[Gridflow-cvs] [svn] commit: r4159 - /trunk/images/make-compose-makefile

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Sat Apr 25 14:56:14 EDT 2009


Author: matju
Date: Sat Apr 25 14:56:14 2009
New Revision: 4159

Log:
support lowercase as being uppercase+32

Modified:
    trunk/images/make-compose-makefile

Modified: trunk/images/make-compose-makefile
==============================================================================
--- trunk/images/make-compose-makefile (original)
+++ trunk/images/make-compose-makefile Sat Apr 25 14:56:14 2009
@@ -1,14 +1,19 @@
 #!/usr/bin/env ruby
 
-f = File.read("../compose-8859-1.pdd").split(/\s*;\s*/)
+f = File.read("compose-8859-1.pdd").split(/\s*;\s*/)
 g = File.open("Makefile","w")
-g.puts "default:: all", ""
+g.puts "default:: all"
+g.puts ""
 list = []
 
 f.each {|char|
-  a,b,c = char.split(/\s+/)
-  g.puts "#{a}.hpgl: #{b}.hpgl #{c}.hpgl", "\tcat #{b}.hpgl #{c}.hpgl > #{a}.hpgl", ""
-  list << "#{a}.hpgl"
+  a,b,c = char.split(/\s+/).map {|x| Integer x }
+  [0,32].each {|o|
+    g.puts "#{a+o}.hpgl: #{b+o}.hpgl #{c}.hpgl"
+    g.puts "\tcat #{b+o}.hpgl #{c}.hpgl > #{a+o}.hpgl"
+    g.puts ""
+    list << "#{a+o}.hpgl"
+  }
 }
 
 g.puts "all:: "+list.join(" ")



More information about the Gridflow-cvs mailing list