source: extensions/gsdl-video/trunk/installed/cmdline/lib/ruby/1.8/irb/locale.rb@ 18425

#
#   irb/locale.rb - internationalization module
#       $Release Version: 0.9.5$
#       $Revision: 11708 $
#       $Date: 2007-02-13 08:01:19 +0900 (Tue, 13 Feb 2007) $
#       by Keiju ISHITSUKA([email protected])
#
# --
#
#   
#

autoload :Kconv, "kconv"

module IRB
  class Locale
    @RCS_ID='-$Id: locale.rb 11708 2007-02-12 23:01:19Z shyouhei $-'

    JPDefaultLocale = "ja"
    LOCALE_DIR = "/lc/"

    def initialize(locale = nil)
      @lang = locale || ENV["IRB_LANG"] || ENV["LC_MESSAGES"] || ENV["LC_ALL"] || ENV["LANG"] || "C" 
    end

    attr_reader :lang

    def lc2kconv(lang)
      case lang
      when "ja_JP.ujis", "ja_JP.euc", "ja_JP.eucJP"
        Kconv::EUC
      when "ja_JP.sjis", "ja_JP.SJIS"
        Kconv::SJIS
      when /ja_JP.utf-?8/i
    Kconv::UTF8
      end
    end
    private :lc2kconv

    def String(mes)
      mes = super(mes)
      case @lang
      when /^ja/
    mes = Kconv::kconv(mes, lc2kconv(@lang))
      else
    mes
      end
      mes
    end

    def format(*opts)
      String(super(*opts))
    end

    def gets(*rs)
      String(super(*rs))
    end

    def readline(*rs)
      String(super(*rs))
    end

    def print(*opts)
      ary = opts.collect{|opt| String(opt)}
      super(*ary)
    end

    def printf(*opts)
      s = format(*opts)
      print s
    end

    def puts(*opts)
      ary = opts.collect{|opt| String(opt)}
      super(*ary)
    end

    def require(file, priv = nil)
      rex = Regexp.new("lc/#{Regexp.quote(file)}\.(so|o|sl|rb)?")
      return false if $".find{|f| f =~ rex}

      case file
      when /\.rb$/
    begin
      load(file, priv)
      $".push file
      return true
    rescue LoadError
    end
      when /\.(so|o|sl)$/
    return super
      end

      begin
    load(f = file + ".rb")
    $".push f  #"
    return true
      rescue LoadError
    return ruby_require(file)
      end
    end

    alias toplevel_load load
    
    def load(file, priv=nil)
      dir = File.dirname(file)
      dir = "" if dir == "."
      base = File.basename(file)

      if /^ja(_JP)?$/ =~ @lang
    back, @lang = @lang, "C"
      end
      begin
    if dir[0] == ?/ #/
      lc_path = search_file(dir, base)
      return real_load(lc_path, priv) if lc_path
    end
    
    for path in $:
      lc_path = search_file(path + "/" + dir, base)
      return real_load(lc_path, priv) if lc_path
    end
      ensure
    @lang = back if back
      end
      raise LoadError, "No such file to load -- #{file}"
    end 

    def real_load(path, priv)
      src = self.String(File.read(path))
      if priv
    eval("self", TOPLEVEL_BINDING).extend(Module.new {eval(src, nil, path)})
      else
    eval(src, TOPLEVEL_BINDING, path)
      end
    end
    private :real_load

    def find(file , paths = $:)
      dir = File.dirname(file)
      dir = "" if dir == "."
      base = File.basename(file)
      if dir[0] == ?/ #/
      return lc_path = search_file(dir, base)
      else
    for path in $:
      if lc_path = search_file(path + "/" + dir, base)
        return lc_path
      end
    end
      end
      nil
    end

    def search_file(path, file)
      if File.exist?(p1 = path + lc_path(file, "C"))
    if File.exist?(p2 = path + lc_path(file))
      return p2
    else
    end
    return p1
      else
      end
      nil
    end
    private :search_file

    def lc_path(file = "", lc = @lang)
      case lc
      when "C"
    LOCALE_DIR + file
      when /^ja/
    LOCALE_DIR + "ja/" + file
      else
    LOCALE_DIR + @lang + "/" + file
      end
    end
    private :lc_path
  end
end