module Locale::Driver::Win32

def charset
  charset = ::Locale::Driver::Env.charset
  unless charset
    if locales
      tag = locales[0].to_rfc.to_s
      loc = LocaleTable.find{|v| v[1] == tag}
      loc = LocaleTable.find{|v| v[1] =~ /^#{locales[0].language}/} unless loc
      charset = loc ? loc[2] : nil
    else
      charset = "CP1252"
    end
  end
  charset
end

def locales  #:nodoc:
  locales = ::Locale::Driver::Env.locales
  unless locales
    lang = LocaleTable.assoc(thread_locale_id)
    if lang
      ret = Locale::Tag::Common.parse(lang[1])
      locales = Locale::TagList.new([ret])
    else
      locales = nil
    end
  end
  locales
end

def set_thread_locale_id(lcid)  #:nodoc:
  # for testing.
  @@current_locale_id = lcid
end

def thread_locale_id  #:nodoc:
  if @@current_locale_id
    @@current_locale_id
  else
    Kernel32.GetThreadLocale
  end
end