* add enc/trans/make_transdb.rb, dmytranscode.c

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@15320 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 40 insertions, 0 deletions

diff --git a/enc/trans/make_transdb.rb b/enc/trans/make_transdb.rb
new file mode 100644
index 000000000..48a05361b
--- /dev/null
+++ b/enc/trans/make_transdb.rb
@@ -0,0 +1,40 @@
+#
+# static const rb_transcoder
+# rb_from_US_ASCII = {
+#     "US-ASCII", "UTF-8", &from_US_ASCII, 1, 0,
+#     NULL, NULL,
+# };
+#
+
+count = 0
+converters = {}
+transdir = ARGV[0]
+outhdr = ARGV[1] || 'transdb.h'
+Dir.open(transdir) {|d| d.grep(/.+\.[ch]\z/)}.sort.each do |fn|
+  open(File.join(transdir,fn)) do |f|
+    f.each_line do |line|
+      if (/^static const rb_transcoder/ =~ line)..(/"(.*?)"\s*,\s*"(.*?)"/ =~ line)
+        if $1 && $2
+	  from_to = "%s to %s" % [$1, $2]
+          converters[from_to]
+          if converters[from_to]
+	    raise ArgumentError, '%s:%d: transcode "%s" is already registered (%s:%d)' %
+	      [fn, $., from_to, *converters[from_to].values_at(2, 3)]
+	  else
+	    converters[from_to] = [$1, $2, fn[0..-3], $.]
+	  end
+        end
+      end
+    end
+  end
+end
+result = converters.map {|k, v| %[rb_declare_transcoder("%s", "%s", "%s");\n] % v}.join
+mode = IO::RDWR|IO::CREAT
+mode |= IO::BINARY if defined?(IO::BINARY)
+open(outhdr, mode) do |f|
+  unless f.read == result
+    f.rewind
+    f.truncate(0)
+    f.print result
+  end
+end