* ext/iconv/charset_alias.rb (charset_alias): create wrapper libray

even if no target matched.

* ext/iconv/extconf.rb: create wrapper library under RUBYARCHDIR
  directly.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@9384 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2005-10-13 14:33:30 +00:00
parent 9401edfe22
commit c84f1057b4
2 changed files with 40 additions and 11 deletions

View file

@ -15,23 +15,25 @@ class Hash::Ordered < Hash
end end
def []=(key, val) def []=(key, val)
ary = fetch(key) {return super(key, [self.size, key, val])} and ary = fetch(key) {return super(key, [self.size, key, val])} and
ary.last = val ary << val
end end
def each def sort
values.sort.each {|i, key, val| yield key, val} values.sort.collect {|i, *rest| rest}
end
def each(&block)
sort.each(&block)
end end
end end
def charset_alias(config_charset, mapfile, target = OS) def charset_alias(config_charset, mapfile, target = OS)
map = Hash::Ordered.new map = Hash::Ordered.new
comments = [] comments = []
match = false
open(config_charset) do |input| open(config_charset) do |input|
input.find {|line| /^case "\$os" in/ =~ line} or return input.find {|line| /^case "\$os" in/ =~ line} or break
input.find {|line| input.find {|line|
/^\s*([-\w\*]+(?:\s*\|\s*[-\w\*]+)*)(?=\))/ =~ line and /^\s*([-\w\*]+(?:\s*\|\s*[-\w\*]+)*)(?=\))/ =~ line and
$&.split('|').any? {|pattern| File.fnmatch?(pattern.strip, target)} $&.split('|').any? {|pattern| File.fnmatch?(pattern.strip, target)}
} or return } or break
input.find do |line| input.find do |line|
case line case line
when /^\s*echo "(?:\$\w+\.)?([-\w*]+)\s+([-\w]+)"/ when /^\s*echo "(?:\$\w+\.)?([-\w*]+)\s+([-\w]+)"/
@ -48,17 +50,40 @@ def charset_alias(config_charset, mapfile, target = OS)
end end
case target case target
when /linux|-gnu/ when /linux|-gnu/
map.delete('ascii') # map.delete('ascii')
when /cygwin/ when /cygwin|os2-emx/
# get rid of tilde/yen problem. # get rid of tilde/yen problem.
map['shift_jis'] = 'cp932' map['shift_jis'] = 'cp932'
end end
st = Hash.new(0)
map = map.sort.collect do |can, *sys|
if sys.grep(/^en_us(?=.|$)/i) {break true} == true
noen = %r"^(?!en_us)\w+_\w+#{Regexp.new($')}$"i #"
sys.reject! {|s| noen =~ s}
end
sys = sys.first
st[sys] += 1
[can, sys]
end
st.delete_if {|sys, i| i == 1}.empty?
st.keys.each {|sys| st[sys] = nil}
st.default = nil
writer = proc do |f| writer = proc do |f|
f.puts("require 'iconv.so'") f.puts("require 'iconv.so'")
f.puts f.puts
f.puts(comments) f.puts(comments)
f.puts("class Iconv") f.puts("class Iconv")
map.each {|can, sys| f.puts(" charset_map['#{can}'.freeze] = '#{sys}'.freeze")} i = 0
map.each do |can, sys|
if s = st[sys]
sys = s
elsif st.key?(sys)
sys = (st[sys] = "sys#{i+=1}") + " = '#{sys}'.freeze"
else
sys = "'#{sys}'.freeze"
end
f.puts(" charset_map['#{can}'] = #{sys}")
end
f.puts("end") f.puts("end")
end end
if mapfile if mapfile

View file

@ -26,8 +26,12 @@ if have_func("iconv", "iconv.h") or
if conf if conf
prefix = '$(srcdir)' prefix = '$(srcdir)'
prefix = $nmake ? "{#{prefix}}" : "#{prefix}/" prefix = $nmake ? "{#{prefix}}" : "#{prefix}/"
if $extout
wrapper = "$(RUBYARCHDIR)/iconv.rb"
else
wrapper = "./iconv.rb" wrapper = "./iconv.rb"
$INSTALLFILES = [[wrapper, "$(RUBYARCHDIR)"]] $INSTALLFILES = [[wrapper, "$(RUBYARCHDIR)"]]
end
if String === conf if String === conf
require 'uri' require 'uri'
scheme = URI.parse(conf).scheme scheme = URI.parse(conf).scheme