summaryrefslogtreecommitdiff
path: root/ext/iconv/charset_alias.rb
diff options
context:
space:
mode:
authornobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2005-10-08 10:15:50 +0000
committernobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2005-10-08 10:15:50 +0000
commitb440480b7f2e7a7dc8b5e77f1d03decb2433641a (patch)
treea86e52ef8cee81384223008bd45c7b84efb7b618 /ext/iconv/charset_alias.rb
parent3b4216d2b5505adc02e7bd3649e82d3a00aa3772 (diff)
* ext/iconv/charset_alias.rb: parse config.charset_alias file directly.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@9357 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/iconv/charset_alias.rb')
-rw-r--r--ext/iconv/charset_alias.rb46
1 files changed, 36 insertions, 10 deletions
diff --git a/ext/iconv/charset_alias.rb b/ext/iconv/charset_alias.rb
index 65fd41759b..e5210b4e4f 100644
--- a/ext/iconv/charset_alias.rb
+++ b/ext/iconv/charset_alias.rb
@@ -1,11 +1,12 @@
#! /usr/bin/ruby
# :stopdoc:
require 'rbconfig'
+require 'optparse'
# http://www.ctan.org/tex-archive/macros/texinfo/texinfo/intl/config.charset
# Fri, 30 May 2003 00:09:00 GMT'
-OS = Config::CONFIG["target"]
+OS = Config::CONFIG["target_os"]
SHELL = Config::CONFIG['SHELL']
class Hash::Ordered < Hash
@@ -24,12 +25,26 @@ end
def charset_alias(config_charset, mapfile, target = OS)
map = Hash::Ordered.new
comments = []
- IO.foreach("|#{SHELL} #{config_charset} #{target}") do |list|
- next comments << list if /^\#/ =~ list
- next unless /^(\S+)\s+(\S+)$/ =~ list
- sys, can = $1, $2
- can.downcase!
- map[can] = sys
+ match = false
+ open(config_charset) do |input|
+ input.find {|line| /^case "\$os" in/ =~ line} or return
+ input.find {|line|
+ /^\s*([-\w\*]+(?:\s*\|\s*[-\w\*]+)*)(?=\))/ =~ line and
+ $&.split('|').any? {|pattern| File.fnmatch?(pattern.strip, target)}
+ } or return
+ input.find do |line|
+ case line
+ when /^\s*echo "(?:\$\w+\.)?([-\w*]+)\s+([-\w]+)"/
+ sys, can = $1, $2
+ can.downcase!
+ map[can] = sys
+ false
+ when /^\s*;;/
+ true
+ else
+ false
+ end
+ end
end
case target
when /linux|-gnu/
@@ -38,7 +53,7 @@ def charset_alias(config_charset, mapfile, target = OS)
# get rid of tilde/yen problem.
map['shift_jis'] = 'cp932'
end
- open(mapfile, "w") do |f|
+ writer = proc do |f|
f.puts("require 'iconv.so'")
f.puts
f.puts(comments)
@@ -46,7 +61,18 @@ def charset_alias(config_charset, mapfile, target = OS)
map.each {|can, sys| f.puts(" charset_map['#{can}'.freeze] = '#{sys}'.freeze")}
f.puts("end")
end
+ if mapfile
+ open(mapfile, "w", &writer)
+ else
+ writer[STDOUT]
+ end
end
-(2..3) === ARGV.size or abort "usage: #$0 config.status map.rb [target]"
-charset_alias(*ARGV)
+target = OS
+opt = nil
+ARGV.options do |opt|
+ opt.banner << " config.status map.rb"
+ opt.on("--target OS") {|t| target = t}
+ opt.parse! and (1..2) === ARGV.size
+end or abort opt.to_s
+charset_alias(ARGV[0], ARGV[1], target)