From 7a8c02cd47750decd6c7507d8c5f090a8d3b4605 Mon Sep 17 00:00:00 2001
From: naruse <naruse@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 29 Jan 2008 11:18:22 +0000
Subject: * add enc/trans/make_transdb.rb, dmytranscode.c

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@15320 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 enc/trans/make_transdb.rb | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 enc/trans/make_transdb.rb

(limited to 'enc/trans/make_transdb.rb')

diff --git a/enc/trans/make_transdb.rb b/enc/trans/make_transdb.rb
new file mode 100644
index 0000000000..48a05361bc
--- /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
-- 
cgit v1.2.3