# -*- coding: utf-8 -*-
#
# Copyright (C) 2012 Kouhei Sutou <kou@clear-code.com>
# Copyright (C) 2002-2010 Masao Mutoh
#
# Original: Ruby-GetText-Package-1.92.0.
# License: Ruby's or LGPL
#
# This library is free software: you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
require "locale/driver/env"
require "locale/driver/win32_table"
require "fiddle/import"
module Locale
# Locale::Driver::Win32 module for win32.
# Detect the user locales and the charset.
# This is a low-level class. Application shouldn't use this directly.
module Driver
module Win32
module Kernel32
extend Fiddle::Importer
dlload "kernel32.dll"
extern "int GetThreadLocale()"
end
include Win32Table
$stderr.puts self.name + " is loaded." if $DEBUG
@@current_locale_id = nil
module_function
# Gets the Win32 charset of the locale.
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 thread_locale_id #:nodoc:
if @@current_locale_id
@@current_locale_id
else
Kernel32.GetThreadLocale
end
end
def set_thread_locale_id(lcid) #:nodoc:
# for testing.
@@current_locale_id = lcid
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
end
MODULES[:win32] = Win32
end
end
Copyright 2K16 - 2K18 Indonesian Hacker Rulez