diff options
author | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-10-08 10:15:50 +0000 |
---|---|---|
committer | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-10-08 10:15:50 +0000 |
commit | 2b291d3806d85d6a87963dfcc88750e89e147b2c (patch) | |
tree | 1f3566cbe636b9184a5840f09538f02b6a99c5b5 /ext/iconv/charset_alias.rb | |
parent | 04bdcf84328eec8e144b3b9e0a1ee4407d71d594 (diff) | |
download | ruby-2b291d3806d85d6a87963dfcc88750e89e147b2c.tar.gz |
* ext/iconv/charset_alias.rb: parse config.charset_alias file directly.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9357 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/iconv/charset_alias.rb')
-rw-r--r-- | ext/iconv/charset_alias.rb | 46 |
1 files changed, 36 insertions, 10 deletions
diff --git a/ext/iconv/charset_alias.rb b/ext/iconv/charset_alias.rb index f1563b0dff..f3a54b8ddc 100644 --- a/ext/iconv/charset_alias.rb +++ b/ext/iconv/charset_alias.rb @@ -1,10 +1,11 @@ #! /usr/bin/ruby 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 @@ -26,12 +27,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/ @@ -53,7 +68,7 @@ def charset_alias(config_charset, mapfile, target = OS) st.delete_if {|sys, i| i == 1}.empty? st.keys.each {|sys| st[sys] = nil} st.default = nil - open(mapfile, "w") do |f| + writer = proc do |f| f.puts("require 'iconv.so'") f.puts f.puts(comments) @@ -71,7 +86,18 @@ def charset_alias(config_charset, mapfile, target = OS) end 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) |