#-- vim:sw=2:et
#++
#
# :title: Language module for rbot
#
# This module takes care of language handling for rbot:
# setting the core.language value, loading the appropriate
# .lang file etc.
#
module Irc
module Language

  # This constant has holds the mapping
  # from long language names to usual POSIX
  # locale specifications
  Lang2Locale = {
    :english  => 'en_GB',
    :british_english  => 'en_GB',
    :american_english  => 'en_US',
    :italian  => 'it',
    :french   => 'fr',
    :german   => 'de',
    :dutch    => 'nl',
    :japanese => 'ja',
    :russian  => 'ru',
    :traditional_chinese => 'zh_TW',
    :simplified_chinese => 'zh_CN'
  }

  class Language
    BotConfig.register BotConfigEnumValue.new('core.language', 
      :default => "english", :wizard => true,
      :values => Proc.new{|bot|
            Dir.new(Config::datadir + "/languages").collect {|f|
              f =~ /\.lang$/ ? f.gsub(/\.lang$/, "") : nil
            }.compact
          },   
      :on_change => Proc.new {|bot, v| bot.lang.set_language v},
      :desc => "Which language file the bot should use")
    
    def initialize(bot, language)
      @bot = bot
      set_language language
    end
    attr_reader :language, :locale

    def set_language(language)
      l = language.to_s.gsub(/\s+/,'_').intern
      if Lang2Locale.key?(l)
        @locale = Lang2Locale[l]
        debug "locale set to #{@locale}"
        setlocale(@locale)
      else
        warn "Unable to set locale, unknown language #{l}"
      end

      file = Config::datadir + "/languages/#{language}.lang"
      unless(FileTest.exist?(file))
        raise "no such language: #{language} (no such file #{file})"
      end
      @language = language
      @file = file
      scan
      return if @bot.plugins.nil?
      @bot.plugins.core_modules.each { |p|
        if p.respond_to?('set_language')
          p.set_language(@language)
        end
      }
      @bot.plugins.plugins.each { |p|
        if p.respond_to?('set_language')
          p.set_language(@language)
        end
      }
    end

    def scan
      @strings = Hash.new
      current_key = nil
      IO.foreach(@file) {|l|
        next if l =~ /^$/
        next if l =~ /^\s*#/
        if(l =~ /^(\S+):$/)
          @strings[$1] = Array.new
          current_key = $1
        elsif(l =~ /^\s*(.*)$/)
          @strings[current_key] << $1
        end
      }
    end

    def rescan
      scan
    end

    def get(key)
      if(@strings.has_key?(key))
        return @strings[key][rand(@strings[key].length)]
      else
        raise "undefined language key"
      end
    end

    def save
      File.open(@file, "w") {|file|
        @strings.each {|key,val|
          file.puts "#{key}:"
          val.each_value {|v|
            file.puts "   #{v}"
          }
        }
      }
    end
  end

end
end