37 lines
910 B
Ruby
37 lines
910 B
Ruby
#! /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)
|