1 files changed, 65 insertions, 0 deletions
diff --git a/enc/make_encdb.rb b/enc/make_encdb.rb
new file mode 100755
index 0000000000..2cd7699944
--- /dev/null
+++ b/enc/make_encdb.rb
@@ -0,0 +1,65 @@
+#! ./miniruby
+
+#
+# OnigEncodingDefine(foo, Foo) = {
+#   ..
+#   "Shift_JIS", /* Canonical Name */
+#   ..
+# };
+# ENC_ALIAS("SJIS", "Shift_JIS")
+# ENC_REPLICATE("Windows-31J", "Shift_JIS")
+# ENC_ALIAS("CP932", "Windows-31J")
+#
+
+require 'mkmf'
+
+encodings = []
+replicas = {}
+aliases = {}
+Dir.open($srcdir) {|d| d.grep(/.+\.c\z/)}.each do |fn|
+  open(File.join($srcdir,fn)) do |f|
+    orig = nil
+    name = nil
+    f.each_line do |line|
+      break if /^OnigEncodingDefine/o =~ line
+    end
+    f.each_line do |line|
+      break if /"(.*?)"/ =~ line
+    end
+    encodings << $1 if $1
+    f.each_line do |line|
+      if /^ENC_REPLICATE\(\s*"([^"]+)"\s*,\s*"([^"]+)"/o =~ line
+	replicas[$1] = $2
+      elsif /^ENC_ALIAS\(\s*"([^"]+)"\s*,\s*"([^"]+)"/o =~ line
+	aliases[$1] = $2
+      end
+    end
+  end
+end
+open('encdb.h', 'wb') do |f|
+  f.puts 'static const char *enc_name_list[] = {'
+  encodings.each {|name| f.puts'    "%s",' % name}
+  replicas.each_key {|name| f.puts'    "%s",' % name}
+  f.puts(<<"_TEXT_")
+    NULL
+};
+static const int enc_name_list_size = #{encodings.length + replicas.length};
+static const int enc_aliases_size = #{aliases.length};
+static st_table *enc_table_replica_name;
+static st_table *enc_table_alias_name;
+
+static void enc_init_db(void)
+{
+    if (!enc_table_replica_name) {
+	enc_table_replica_name = st_init_strcasetable();
+    }
+    if (!enc_table_alias_name) {
+	enc_table_alias_name = st_init_strcasetable();
+    }
+_TEXT_
+  replicas.each_pair {|name, orig|
+    f.puts'    st_insert(enc_table_replica_name, (st_data_t)"%s", (st_data_t)"%s");' % [name, orig]}
+  aliases.each_pair {|name, orig|
+    f.puts'    st_insert(enc_table_alias_name, (st_data_t)"%s", (st_data_t)"%s");' % [name, orig]}
+  f.puts '}'
+end