1 files changed, 36 insertions, 0 deletions
diff --git a/ext/iconv/charset_alias.rb b/ext/iconv/charset_alias.rb
new file mode 100644
index 0000000000..20a7f6406a
--- /dev/null
+++ b/ext/iconv/charset_alias.rb
@@ -0,0 +1,36 @@
+#! /usr/bin/ruby
+require 'rbconfig'
+
+# http://www.ctan.org/tex-archive/macros/texinfo/texinfo/intl/config.charset'
+# Fri, 30 May 2003 00:09:00 GMT'
+
+OS = Config::CONFIG["target"]
+SHELL = Config::CONFIG['SHELL']
+
+def charset_alias(config_charset, mapfile)
+  map = {}
+  comments = []
+  IO.foreach("|#{SHELL} #{config_charset} #{OS}") do |list|
+    next comments << list if /^\#/ =~ list
+    next unless /^(\S+)\s+(\S+)$/ =~ list
+    sys, can = $1, $2
+    next if sys == can
+    next if can.downcase! and sys == can
+    map[can] = sys
+  end
+  case OS
+  when /linux|-gnu/
+    map.delete('ascii')
+  end
+  open(mapfile, "w") do |f|
+    f.puts("require 'iconv.so'")
+    f.puts
+    f.puts(comments)
+    f.puts("class Iconv")
+    map.each {|can, sys| f.puts("  charset_map['#{can}'.freeze] = '#{sys}'.freeze")}
+    f.puts("end")
+  end
+end
+
+ARGV.size == 2 or abort "usage: #$0 config.status map.rb"
+charset_alias(*ARGV)