summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/Win32/OLE/NLS.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/Win32/OLE/NLS.pm')
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/Win32/OLE/NLS.pm968
1 files changed, 0 insertions, 968 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/Win32/OLE/NLS.pm b/Master/tlpkg/tlperl/site/lib/Win32/OLE/NLS.pm
deleted file mode 100755
index 84ea0c77241..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Win32/OLE/NLS.pm
+++ /dev/null
@@ -1,968 +0,0 @@
-# The documentation is at the __END__
-
-package Win32::OLE::NLS;
-require Win32::OLE; # Make sure the XS bootstrap has been called
-
-use strict;
-use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS @ISA);
-
-use Exporter;
-@ISA = qw(Exporter);
-
-@EXPORT = qw(
- CompareString
- LCMapString
- GetLocaleInfo
- GetStringType
- GetSystemDefaultLangID
- GetSystemDefaultLCID
- GetUserDefaultLangID
- GetUserDefaultLCID
-
- MAKELANGID
- PRIMARYLANGID
- SUBLANGID
- LANG_SYSTEM_DEFAULT
- LANG_USER_DEFAULT
- MAKELCID
- LANGIDFROMLCID
- LOCALE_SYSTEM_DEFAULT
- LOCALE_USER_DEFAULT
- );
-
-@EXPORT_OK = qw(SetLocaleInfo SendSettingChange);
-
-%EXPORT_TAGS =
-(
- CT => [qw(CT_CTYPE1 CT_CTYPE2 CT_CTYPE3)],
- C1 => [qw(C1_UPPER C1_LOWER C1_DIGIT C1_SPACE C1_PUNCT
- C1_CNTRL C1_BLANK C1_XDIGIT C1_ALPHA)],
- C2 => [qw(C2_LEFTTORIGHT C2_RIGHTTOLEFT C2_EUROPENUMBER
- C2_EUROPESEPARATOR C2_EUROPETERMINATOR C2_ARABICNUMBER
- C2_COMMONSEPARATOR C2_BLOCKSEPARATOR C2_SEGMENTSEPARATOR
- C2_WHITESPACE C2_OTHERNEUTRAL C2_NOTAPPLICABLE)],
- C3 => [qw(C3_NONSPACING C3_DIACRITIC C3_VOWELMARK C3_SYMBOL C3_KATAKANA
- C3_HIRAGANA C3_HALFWIDTH C3_FULLWIDTH C3_IDEOGRAPH C3_KASHIDA
- C3_ALPHA C3_NOTAPPLICABLE)],
- NORM => [qw(NORM_IGNORECASE NORM_IGNORENONSPACE NORM_IGNORESYMBOLS
- NORM_IGNOREWIDTH NORM_IGNOREKANATYPE NORM_IGNOREKASHIDA)],
- LCMAP => [qw(LCMAP_LOWERCASE LCMAP_UPPERCASE LCMAP_SORTKEY LCMAP_HALFWIDTH
- LCMAP_FULLWIDTH LCMAP_HIRAGANA LCMAP_KATAKANA)],
- LANG => [qw(LANG_NEUTRAL LANG_ALBANIAN LANG_ARABIC LANG_BAHASA
- LANG_BULGARIAN LANG_CATALAN LANG_CHINESE LANG_CZECH LANG_DANISH
- LANG_DUTCH LANG_ENGLISH LANG_FINNISH LANG_FRENCH LANG_GERMAN
- LANG_GREEK LANG_HEBREW LANG_HUNGARIAN LANG_ICELANDIC
- LANG_ITALIAN LANG_JAPANESE LANG_KOREAN LANG_NORWEGIAN
- LANG_POLISH LANG_PORTUGUESE LANG_RHAETO_ROMAN LANG_ROMANIAN
- LANG_RUSSIAN LANG_SERBO_CROATIAN LANG_SLOVAK LANG_SPANISH
- LANG_SWEDISH LANG_THAI LANG_TURKISH LANG_URDU)],
- SUBLANG => [qw(SUBLANG_NEUTRAL SUBLANG_DEFAULT SUBLANG_SYS_DEFAULT
- SUBLANG_CHINESE_SIMPLIFIED SUBLANG_CHINESE_TRADITIONAL
- SUBLANG_DUTCH SUBLANG_DUTCH_BELGIAN SUBLANG_ENGLISH_US
- SUBLANG_ENGLISH_UK SUBLANG_ENGLISH_AUS SUBLANG_ENGLISH_CAN
- SUBLANG_ENGLISH_NZ SUBLANG_ENGLISH_EIRE SUBLANG_FRENCH
- SUBLANG_FRENCH_BELGIAN SUBLANG_FRENCH_CANADIAN
- SUBLANG_FRENCH_SWISS SUBLANG_GERMAN SUBLANG_GERMAN_SWISS
- SUBLANG_GERMAN_AUSTRIAN SUBLANG_ITALIAN SUBLANG_ITALIAN_SWISS
- SUBLANG_NORWEGIAN_BOKMAL SUBLANG_NORWEGIAN_NYNORSK
- SUBLANG_PORTUGUESE SUBLANG_PORTUGUESE_BRAZILIAN
- SUBLANG_SERBO_CROATIAN_CYRILLIC SUBLANG_SERBO_CROATIAN_LATIN
- SUBLANG_SPANISH SUBLANG_SPANISH_MEXICAN
- SUBLANG_SPANISH_MODERN)],
- CTRY => [qw(CTRY_DEFAULT CTRY_AUSTRALIA CTRY_AUSTRIA CTRY_BELGIUM
- CTRY_BRAZIL CTRY_CANADA CTRY_DENMARK CTRY_FINLAND CTRY_FRANCE
- CTRY_GERMANY CTRY_ICELAND CTRY_IRELAND CTRY_ITALY CTRY_JAPAN
- CTRY_MEXICO CTRY_NETHERLANDS CTRY_NEW_ZEALAND CTRY_NORWAY
- CTRY_PORTUGAL CTRY_PRCHINA CTRY_SOUTH_KOREA CTRY_SPAIN
- CTRY_SWEDEN CTRY_SWITZERLAND CTRY_TAIWAN CTRY_UNITED_KINGDOM
- CTRY_UNITED_STATES)],
- LOCALE => [qw(LOCALE_NOUSEROVERRIDE LOCALE_ILANGUAGE LOCALE_SLANGUAGE
- LOCALE_SENGLANGUAGE LOCALE_SABBREVLANGNAME
- LOCALE_SNATIVELANGNAME LOCALE_ICOUNTRY LOCALE_SCOUNTRY
- LOCALE_SENGCOUNTRY LOCALE_SABBREVCTRYNAME LOCALE_SNATIVECTRYNAME
- LOCALE_IDEFAULTLANGUAGE LOCALE_IDEFAULTCOUNTRY
- LOCALE_IDEFAULTCODEPAGE LOCALE_IDEFAULTANSICODEPAGE LOCALE_SLIST
- LOCALE_IMEASURE LOCALE_SDECIMAL LOCALE_STHOUSAND
- LOCALE_SGROUPING LOCALE_IDIGITS LOCALE_ILZERO LOCALE_INEGNUMBER
- LOCALE_SNATIVEDIGITS LOCALE_SCURRENCY LOCALE_SINTLSYMBOL
- LOCALE_SMONDECIMALSEP LOCALE_SMONTHOUSANDSEP LOCALE_SMONGROUPING
- LOCALE_ICURRDIGITS LOCALE_IINTLCURRDIGITS LOCALE_ICURRENCY
- LOCALE_INEGCURR LOCALE_SDATE LOCALE_STIME LOCALE_SSHORTDATE
- LOCALE_SLONGDATE LOCALE_STIMEFORMAT LOCALE_IDATE LOCALE_ILDATE
- LOCALE_ITIME LOCALE_ITIMEMARKPOSN LOCALE_ICENTURY LOCALE_ITLZERO
- LOCALE_IDAYLZERO LOCALE_IMONLZERO LOCALE_S1159 LOCALE_S2359
- LOCALE_ICALENDARTYPE LOCALE_IOPTIONALCALENDAR
- LOCALE_IFIRSTDAYOFWEEK LOCALE_IFIRSTWEEKOFYEAR LOCALE_SDAYNAME1
- LOCALE_SDAYNAME2 LOCALE_SDAYNAME3 LOCALE_SDAYNAME4
- LOCALE_SDAYNAME5 LOCALE_SDAYNAME6 LOCALE_SDAYNAME7
- LOCALE_SABBREVDAYNAME1 LOCALE_SABBREVDAYNAME2
- LOCALE_SABBREVDAYNAME3 LOCALE_SABBREVDAYNAME4
- LOCALE_SABBREVDAYNAME5 LOCALE_SABBREVDAYNAME6
- LOCALE_SABBREVDAYNAME7 LOCALE_SMONTHNAME1 LOCALE_SMONTHNAME2
- LOCALE_SMONTHNAME3 LOCALE_SMONTHNAME4 LOCALE_SMONTHNAME5
- LOCALE_SMONTHNAME6 LOCALE_SMONTHNAME7 LOCALE_SMONTHNAME8
- LOCALE_SMONTHNAME9 LOCALE_SMONTHNAME10 LOCALE_SMONTHNAME11
- LOCALE_SMONTHNAME12 LOCALE_SMONTHNAME13 LOCALE_SABBREVMONTHNAME1
- LOCALE_SABBREVMONTHNAME2 LOCALE_SABBREVMONTHNAME3
- LOCALE_SABBREVMONTHNAME4 LOCALE_SABBREVMONTHNAME5
- LOCALE_SABBREVMONTHNAME6 LOCALE_SABBREVMONTHNAME7
- LOCALE_SABBREVMONTHNAME8 LOCALE_SABBREVMONTHNAME9
- LOCALE_SABBREVMONTHNAME10 LOCALE_SABBREVMONTHNAME11
- LOCALE_SABBREVMONTHNAME12 LOCALE_SABBREVMONTHNAME13
- LOCALE_SPOSITIVESIGN LOCALE_SNEGATIVESIGN LOCALE_IPOSSIGNPOSN
- LOCALE_INEGSIGNPOSN LOCALE_IPOSSYMPRECEDES LOCALE_IPOSSEPBYSPACE
- LOCALE_INEGSYMPRECEDES LOCALE_INEGSEPBYSPACE)],
- TIME => [qw(TIME_NOMINUTESORSECONDS TIME_NOSECONDS TIME_NOTIMEMARKER
- TIME_FORCE24HOURFORMAT)],
- DATE => [qw(DATE_SHORTDATE DATE_LONGDATE DATE_USE_ALT_CALENDAR
- DATE_YEARMONTH DATE_LTRREADING DATE_RTLREADING)],
-);
-
-foreach my $tag (keys %EXPORT_TAGS) {
- push @EXPORT_OK, @{$EXPORT_TAGS{$tag}};
-}
-
-# Character Type Flags
-sub CT_CTYPE1 { 0x0001 }
-sub CT_CTYPE2 { 0x0002 }
-sub CT_CTYPE3 { 0x0004 }
-
-# Character Type 1 Bits
-sub C1_UPPER { 0x0001 }
-sub C1_LOWER { 0x0002 }
-sub C1_DIGIT { 0x0004 }
-sub C1_SPACE { 0x0008 }
-sub C1_PUNCT { 0x0010 }
-sub C1_CNTRL { 0x0020 }
-sub C1_BLANK { 0x0040 }
-sub C1_XDIGIT { 0x0080 }
-sub C1_ALPHA { 0x0100 }
-
-# Character Type 2 Bits
-sub C2_LEFTTORIGHT { 0x1 }
-sub C2_RIGHTTOLEFT { 0x2 }
-sub C2_EUROPENUMBER { 0x3 }
-sub C2_EUROPESEPARATOR { 0x4 }
-sub C2_EUROPETERMINATOR { 0x5 }
-sub C2_ARABICNUMBER { 0x6 }
-sub C2_COMMONSEPARATOR { 0x7 }
-sub C2_BLOCKSEPARATOR { 0x8 }
-sub C2_SEGMENTSEPARATOR { 0x9 }
-sub C2_WHITESPACE { 0xA }
-sub C2_OTHERNEUTRAL { 0xB }
-sub C2_NOTAPPLICABLE { 0x0 }
-
-# Character Type 3 Bits
-sub C3_NONSPACING { 0x0001 }
-sub C3_DIACRITIC { 0x0002 }
-sub C3_VOWELMARK { 0x0004 }
-sub C3_SYMBOL { 0x0008 }
-sub C3_KATAKANA { 0x0010 }
-sub C3_HIRAGANA { 0x0020 }
-sub C3_HALFWIDTH { 0x0040 }
-sub C3_FULLWIDTH { 0x0080 }
-sub C3_IDEOGRAPH { 0x0100 }
-sub C3_KASHIDA { 0x0200 }
-sub C3_ALPHA { 0x8000 }
-sub C3_NOTAPPLICABLE { 0x0 }
-
-# String Flags
-sub NORM_IGNORECASE { 0x0001 }
-sub NORM_IGNORENONSPACE { 0x0002 }
-sub NORM_IGNORESYMBOLS { 0x0004 }
-sub NORM_IGNOREWIDTH { 0x0008 }
-sub NORM_IGNOREKANATYPE { 0x0040 }
-sub NORM_IGNOREKASHIDA { 0x40000}
-
-# Locale Dependent Mapping Flags
-sub LCMAP_LOWERCASE { 0x0100 }
-sub LCMAP_UPPERCASE { 0x0200 }
-sub LCMAP_SORTKEY { 0x0400 }
-sub LCMAP_HALFWIDTH { 0x0800 }
-sub LCMAP_FULLWIDTH { 0x1000 }
-sub LCMAP_HIRAGANA { 0x2000 }
-sub LCMAP_KATAKANA { 0x4000 }
-
-# Primary Language Identifier
-sub LANG_NEUTRAL { 0x00 }
-sub LANG_ALBANIAN { 0x1c }
-sub LANG_ARABIC { 0x01 }
-sub LANG_BAHASA { 0x21 }
-sub LANG_BULGARIAN { 0x02 }
-sub LANG_CATALAN { 0x03 }
-sub LANG_CHINESE { 0x04 }
-sub LANG_CZECH { 0x05 }
-sub LANG_DANISH { 0x06 }
-sub LANG_DUTCH { 0x13 }
-sub LANG_ENGLISH { 0x09 }
-sub LANG_FINNISH { 0x0b }
-sub LANG_FRENCH { 0x0c }
-sub LANG_GERMAN { 0x07 }
-sub LANG_GREEK { 0x08 }
-sub LANG_HEBREW { 0x0d }
-sub LANG_HUNGARIAN { 0x0e }
-sub LANG_ICELANDIC { 0x0f }
-sub LANG_ITALIAN { 0x10 }
-sub LANG_JAPANESE { 0x11 }
-sub LANG_KOREAN { 0x12 }
-sub LANG_NORWEGIAN { 0x14 }
-sub LANG_POLISH { 0x15 }
-sub LANG_PORTUGUESE { 0x16 }
-sub LANG_RHAETO_ROMAN { 0x17 }
-sub LANG_ROMANIAN { 0x18 }
-sub LANG_RUSSIAN { 0x19 }
-sub LANG_SERBO_CROATIAN { 0x1a }
-sub LANG_SLOVAK { 0x1b }
-sub LANG_SPANISH { 0x0a }
-sub LANG_SWEDISH { 0x1d }
-sub LANG_THAI { 0x1e }
-sub LANG_TURKISH { 0x1f }
-sub LANG_URDU { 0x20 }
-
-# Sublanguage Identifier
-sub SUBLANG_NEUTRAL { 0x00 }
-sub SUBLANG_DEFAULT { 0x01 }
-sub SUBLANG_SYS_DEFAULT { 0x02 }
-sub SUBLANG_CHINESE_SIMPLIFIED { 0x02 }
-sub SUBLANG_CHINESE_TRADITIONAL { 0x01 }
-sub SUBLANG_DUTCH { 0x01 }
-sub SUBLANG_DUTCH_BELGIAN { 0x02 }
-sub SUBLANG_ENGLISH_US { 0x01 }
-sub SUBLANG_ENGLISH_UK { 0x02 }
-sub SUBLANG_ENGLISH_AUS { 0x03 }
-sub SUBLANG_ENGLISH_CAN { 0x04 }
-sub SUBLANG_ENGLISH_NZ { 0x05 }
-sub SUBLANG_ENGLISH_EIRE { 0x06 }
-sub SUBLANG_FRENCH { 0x01 }
-sub SUBLANG_FRENCH_BELGIAN { 0x02 }
-sub SUBLANG_FRENCH_CANADIAN { 0x03 }
-sub SUBLANG_FRENCH_SWISS { 0x04 }
-sub SUBLANG_GERMAN { 0x01 }
-sub SUBLANG_GERMAN_SWISS { 0x02 }
-sub SUBLANG_GERMAN_AUSTRIAN { 0x03 }
-sub SUBLANG_ITALIAN { 0x01 }
-sub SUBLANG_ITALIAN_SWISS { 0x02 }
-sub SUBLANG_NORWEGIAN_BOKMAL { 0x01 }
-sub SUBLANG_NORWEGIAN_NYNORSK { 0x02 }
-sub SUBLANG_PORTUGUESE { 0x02 }
-sub SUBLANG_PORTUGUESE_BRAZILIAN { 0x01 }
-sub SUBLANG_SERBO_CROATIAN_CYRILLIC { 0x02 }
-sub SUBLANG_SERBO_CROATIAN_LATIN { 0x01 }
-sub SUBLANG_SPANISH { 0x01 }
-sub SUBLANG_SPANISH_MEXICAN { 0x02 }
-sub SUBLANG_SPANISH_MODERN { 0x03 }
-
-# Country codes
-sub CTRY_DEFAULT { 0 }
-sub CTRY_AUSTRALIA { 61 }
-sub CTRY_AUSTRIA { 43 }
-sub CTRY_BELGIUM { 32 }
-sub CTRY_BRAZIL { 55 }
-sub CTRY_CANADA { 2 }
-sub CTRY_DENMARK { 45 }
-sub CTRY_FINLAND { 358 }
-sub CTRY_FRANCE { 33 }
-sub CTRY_GERMANY { 49 }
-sub CTRY_ICELAND { 354 }
-sub CTRY_IRELAND { 353 }
-sub CTRY_ITALY { 39 }
-sub CTRY_JAPAN { 81 }
-sub CTRY_MEXICO { 52 }
-sub CTRY_NETHERLANDS { 31 }
-sub CTRY_NEW_ZEALAND { 64 }
-sub CTRY_NORWAY { 47 }
-sub CTRY_PORTUGAL { 351 }
-sub CTRY_PRCHINA { 86 }
-sub CTRY_SOUTH_KOREA { 82 }
-sub CTRY_SPAIN { 34 }
-sub CTRY_SWEDEN { 46 }
-sub CTRY_SWITZERLAND { 41 }
-sub CTRY_TAIWAN { 886 }
-sub CTRY_UNITED_KINGDOM { 44 }
-sub CTRY_UNITED_STATES { 1 }
-
-# Locale Types
-sub LOCALE_NOUSEROVERRIDE { 0x80000000 }
-sub LOCALE_ILANGUAGE { 0x0001 }
-sub LOCALE_SLANGUAGE { 0x0002 }
-sub LOCALE_SENGLANGUAGE { 0x1001 }
-sub LOCALE_SABBREVLANGNAME { 0x0003 }
-sub LOCALE_SNATIVELANGNAME { 0x0004 }
-sub LOCALE_ICOUNTRY { 0x0005 }
-sub LOCALE_SCOUNTRY { 0x0006 }
-sub LOCALE_SENGCOUNTRY { 0x1002 }
-sub LOCALE_SABBREVCTRYNAME { 0x0007 }
-sub LOCALE_SNATIVECTRYNAME { 0x0008 }
-sub LOCALE_IDEFAULTLANGUAGE { 0x0009 }
-sub LOCALE_IDEFAULTCOUNTRY { 0x000A }
-sub LOCALE_IDEFAULTCODEPAGE { 0x000B }
-sub LOCALE_IDEFAULTANSICODEPAGE { 0x1004 }
-sub LOCALE_SLIST { 0x000C }
-sub LOCALE_IMEASURE { 0x000D }
-sub LOCALE_SDECIMAL { 0x000E }
-sub LOCALE_STHOUSAND { 0x000F }
-sub LOCALE_SGROUPING { 0x0010 }
-sub LOCALE_IDIGITS { 0x0011 }
-sub LOCALE_ILZERO { 0x0012 }
-sub LOCALE_INEGNUMBER { 0x1010 }
-sub LOCALE_SNATIVEDIGITS { 0x0013 }
-sub LOCALE_SCURRENCY { 0x0014 }
-sub LOCALE_SINTLSYMBOL { 0x0015 }
-sub LOCALE_SMONDECIMALSEP { 0x0016 }
-sub LOCALE_SMONTHOUSANDSEP { 0x0017 }
-sub LOCALE_SMONGROUPING { 0x0018 }
-sub LOCALE_ICURRDIGITS { 0x0019 }
-sub LOCALE_IINTLCURRDIGITS { 0x001A }
-sub LOCALE_ICURRENCY { 0x001B }
-sub LOCALE_INEGCURR { 0x001C }
-sub LOCALE_SDATE { 0x001D }
-sub LOCALE_STIME { 0x001E }
-sub LOCALE_SSHORTDATE { 0x001F }
-sub LOCALE_SLONGDATE { 0x0020 }
-sub LOCALE_STIMEFORMAT { 0x1003 }
-sub LOCALE_IDATE { 0x0021 }
-sub LOCALE_ILDATE { 0x0022 }
-sub LOCALE_ITIME { 0x0023 }
-sub LOCALE_ITIMEMARKPOSN { 0x1005 }
-sub LOCALE_ICENTURY { 0x0024 }
-sub LOCALE_ITLZERO { 0x0025 }
-sub LOCALE_IDAYLZERO { 0x0026 }
-sub LOCALE_IMONLZERO { 0x0027 }
-sub LOCALE_S1159 { 0x0028 }
-sub LOCALE_S2359 { 0x0029 }
-sub LOCALE_ICALENDARTYPE { 0x1009 }
-sub LOCALE_IOPTIONALCALENDAR { 0x100B }
-sub LOCALE_IFIRSTDAYOFWEEK { 0x100C }
-sub LOCALE_IFIRSTWEEKOFYEAR { 0x100D }
-sub LOCALE_SDAYNAME1 { 0x002A }
-sub LOCALE_SDAYNAME2 { 0x002B }
-sub LOCALE_SDAYNAME3 { 0x002C }
-sub LOCALE_SDAYNAME4 { 0x002D }
-sub LOCALE_SDAYNAME5 { 0x002E }
-sub LOCALE_SDAYNAME6 { 0x002F }
-sub LOCALE_SDAYNAME7 { 0x0030 }
-sub LOCALE_SABBREVDAYNAME1 { 0x0031 }
-sub LOCALE_SABBREVDAYNAME2 { 0x0032 }
-sub LOCALE_SABBREVDAYNAME3 { 0x0033 }
-sub LOCALE_SABBREVDAYNAME4 { 0x0034 }
-sub LOCALE_SABBREVDAYNAME5 { 0x0035 }
-sub LOCALE_SABBREVDAYNAME6 { 0x0036 }
-sub LOCALE_SABBREVDAYNAME7 { 0x0037 }
-sub LOCALE_SMONTHNAME1 { 0x0038 }
-sub LOCALE_SMONTHNAME2 { 0x0039 }
-sub LOCALE_SMONTHNAME3 { 0x003A }
-sub LOCALE_SMONTHNAME4 { 0x003B }
-sub LOCALE_SMONTHNAME5 { 0x003C }
-sub LOCALE_SMONTHNAME6 { 0x003D }
-sub LOCALE_SMONTHNAME7 { 0x003E }
-sub LOCALE_SMONTHNAME8 { 0x003F }
-sub LOCALE_SMONTHNAME9 { 0x0040 }
-sub LOCALE_SMONTHNAME10 { 0x0041 }
-sub LOCALE_SMONTHNAME11 { 0x0042 }
-sub LOCALE_SMONTHNAME12 { 0x0043 }
-sub LOCALE_SMONTHNAME13 { 0x100E }
-sub LOCALE_SABBREVMONTHNAME1 { 0x0044 }
-sub LOCALE_SABBREVMONTHNAME2 { 0x0045 }
-sub LOCALE_SABBREVMONTHNAME3 { 0x0046 }
-sub LOCALE_SABBREVMONTHNAME4 { 0x0047 }
-sub LOCALE_SABBREVMONTHNAME5 { 0x0048 }
-sub LOCALE_SABBREVMONTHNAME6 { 0x0049 }
-sub LOCALE_SABBREVMONTHNAME7 { 0x004A }
-sub LOCALE_SABBREVMONTHNAME8 { 0x004B }
-sub LOCALE_SABBREVMONTHNAME9 { 0x004C }
-sub LOCALE_SABBREVMONTHNAME10 { 0x004D }
-sub LOCALE_SABBREVMONTHNAME11 { 0x004E }
-sub LOCALE_SABBREVMONTHNAME12 { 0x004F }
-sub LOCALE_SABBREVMONTHNAME13 { 0x100F }
-sub LOCALE_SPOSITIVESIGN { 0x0050 }
-sub LOCALE_SNEGATIVESIGN { 0x0051 }
-sub LOCALE_IPOSSIGNPOSN { 0x0052 }
-sub LOCALE_INEGSIGNPOSN { 0x0053 }
-sub LOCALE_IPOSSYMPRECEDES { 0x0054 }
-sub LOCALE_IPOSSEPBYSPACE { 0x0055 }
-sub LOCALE_INEGSYMPRECEDES { 0x0056 }
-sub LOCALE_INEGSEPBYSPACE { 0x0057 }
-
-# GetTimeFormat Flags
-sub TIME_NOMINUTESORSECONDS { 0x0001 }
-sub TIME_NOSECONDS { 0x0002 }
-sub TIME_NOTIMEMARKER { 0x0004 }
-sub TIME_FORCE24HOURFORMAT { 0x0008 }
-
-# GetDateFormat Flags
-sub DATE_SHORTDATE { 0x0001 }
-sub DATE_LONGDATE { 0x0002 }
-sub DATE_USE_ALT_CALENDAR { 0x0004 }
-sub DATE_YEARMONTH { 0x0008 }
-sub DATE_LTRREADING { 0x0010 }
-sub DATE_RTLREADING { 0x0020 }
-
-# Language Identifier Functions
-sub MAKELANGID { my ($p,$s) = @_; (($s & 0xffff) << 10) | ($p & 0xffff); }
-sub PRIMARYLANGID { my $lgid = shift; $lgid & 0x3ff; }
-sub SUBLANGID { my $lgid = shift; ($lgid >> 10) & 0x3f; }
-
-sub LANG_SYSTEM_DEFAULT { MAKELANGID(LANG_NEUTRAL, SUBLANG_SYS_DEFAULT); }
-sub LANG_USER_DEFAULT { MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT); }
-
-# Locale Identifier Functions
-sub MAKELCID { my $lgid = shift; $lgid & 0xffff; }
-sub LANGIDFROMLCID { my $lcid = shift; $lcid & 0xffff; }
-
-sub LOCALE_SYSTEM_DEFAULT { MAKELCID(LANG_SYSTEM_DEFAULT); }
-sub LOCALE_USER_DEFAULT { MAKELCID(LANG_USER_DEFAULT); }
-
-1;
-
-__END__
-
-=head1 NAME
-
-Win32::OLE::NLS - OLE National Language Support
-
-=head1 SYNOPSIS
-
- missing
-
-=head1 DESCRIPTION
-
-This module provides access to the national language support features
-in the F<OLENLS.DLL>.
-
-=head2 Functions
-
-=over 8
-
-=item CompareString(LCID,FLAGS,STR1,STR2)
-
-Compare STR1 and STR2 in the LCID locale. FLAGS indicate the character
-traits to be used or ignored when comparing the two strings.
-
- NORM_IGNORECASE Ignore case
- NORM_IGNOREKANATYPE Ignore hiragana/katakana character differences
- NORM_IGNORENONSPACE Ignore accents, diacritics, and vowel marks
- NORM_IGNORESYMBOLS Ignore symbols
- NORM_IGNOREWIDTH Ignore character width
-
-Possible return values are:
-
- 0 Function failed
- 1 STR1 is less than STR2
- 2 STR1 is equal to STR2
- 3 STR1 is greater than STR2
-
-Note that you can subtract 2 from the return code to get values
-comparable to the C<cmp> operator.
-
-=item LCMapString(LCID,FLAGS,STR)
-
-LCMapString translates STR using LCID dependent translation.
-Flags contains a combination of the following options:
-
- LCMAP_LOWERCASE Lowercase
- LCMAP_UPPERCASE Uppercase
- LCMAP_HALFWIDTH Narrow characters
- LCMAP_FULLWIDTH Wide characters
- LCMAP_HIRAGANA Hiragana
- LCMAP_KATAKANA Katakana
- LCMAP_SORTKEY Character sort key
-
-The following normalization options can be combined with C<LCMAP_SORTKEY>:
-
- NORM_IGNORECASE Ignore case
- NORM_IGNOREKANATYPE Ignore hiragana/katakana character differences
- NORM_IGNORENONSPACE Ignore accents, diacritics, and vowel marks
- NORM_IGNORESYMBOLS Ignore symbols
- NORM_IGNOREWIDTH Ignore character width
-
-The return value is the translated string.
-
-=item GetLocaleInfo(LCID,LCTYPE)
-
-Retrieve locale setting LCTYPE from the locale specified by LCID. Use
-LOCALE_NOUSEROVERRIDE | LCTYPE to always query the locale database.
-Otherwise user changes to C<win.ini> through the windows control panel
-take precedence when retrieving values for the system default locale.
-See the documentation below for a list of valid LCTYPE values.
-
-The return value is the contents of the requested locale setting.
-
-=item GetStringType(LCID,TYPE,STR)
-
-Retrieve type information from locale LCID about each character in STR.
-The requested TYPE can be one of the following 3 levels:
-
- CT_CTYPE1 ANSI C and POSIX type information
- CT_CTYPE2 Text layout type information
- CT_CTYPE3 Text processing type information
-
-The return value is a list of values, each of wich is a bitwise OR of
-the applicable type bits from the corresponding table below:
-
- @ct = GetStringType(LOCALE_SYSTEM_DEFAULT, CT_CTYPE1, "String");
-
-ANSI C and POSIX character type information:
-
- C1_UPPER Uppercase
- C1_LOWER Lowercase
- C1_DIGIT Decimal digits
- C1_SPACE Space characters
- C1_PUNCT Punctuation
- C1_CNTRL Control characters
- C1_BLANK Blank characters
- C1_XDIGIT Hexadecimal digits
- C1_ALPHA Any letter
-
-Text layout type information:
-
- C2_LEFTTORIGHT Left to right
- C2_RIGHTTOLEFT Right to left
- C2_EUROPENUMBER European number, European digit
- C2_EUROPESEPARATOR European numeric separator
- C2_EUROPETERMINATOR European numeric terminator
- C2_ARABICNUMBER Arabic number
- C2_COMMONSEPARATOR Common numeric separator
- C2_BLOCKSEPARATOR Block separator
- C2_SEGMENTSEPARATOR Segment separator
- C2_WHITESPACE White space
- C2_OTHERNEUTRAL Other neutrals
- C2_NOTAPPLICABLE No implicit direction (e.g. ctrl codes)
-
-Text precessing type information:
-
- C3_NONSPACING Nonspacing mark
- C3_DIACRITIC Diacritic nonspacing mark
- C3_VOWELMARK Vowel nonspacing mark
- C3_SYMBOL Symbol
- C3_KATAKANA Katakana character
- C3_HIRAGANA Hiragana character
- C3_HALFWIDTH Narrow character
- C3_FULLWIDTH Wide character
- C3_IDEOGRAPH Ideograph
- C3_ALPHA Any letter
- C3_NOTAPPLICABLE Not applicable
-
-
-=item GetSystemDefaultLangID()
-
-Returns the system default language identifier.
-
-=item GetSystemDefaultLCID()
-
-Returns the system default locale identifier.
-
-=item GetUserDefaultLangID()
-
-Returns the user default language identifier.
-
-=item GetUserDefaultLCID()
-
-Returns the user default locale identifier.
-
-=item SendSettingChange()
-
-Sends a WM_SETTINGCHANGE message to all top level windows.
-
-=item SetLocaleInfo(LCID, LCTYPE, LCDATA)
-
-Changes an item in the user override part of the locale setting LCID.
-It doesn't change the system default database. The following LCTYPEs are
-changeable:
-
- LOCALE_ICALENDARTYPE LOCALE_SDATE
- LOCALE_ICURRDIGITS LOCALE_SDECIMAL
- LOCALE_ICURRENCY LOCALE_SGROUPING
- LOCALE_IDIGITS LOCALE_SLIST
- LOCALE_IFIRSTDAYOFWEEK LOCALE_SLONGDATE
- LOCALE_IFIRSTWEEKOFYEAR LOCALE_SMONDECIMALSEP
- LOCALE_ILZERO LOCALE_SMONGROUPING
- LOCALE_IMEASURE LOCALE_SMONTHOUSANDSEP
- LOCALE_INEGCURR LOCALE_SNEGATIVESIGN
- LOCALE_INEGNUMBER LOCALE_SPOSITIVESIGN
- LOCALE_IPAPERSIZE LOCALE_SSHORTDATE
- LOCALE_ITIME LOCALE_STHOUSAND
- LOCALE_S1159 LOCALE_STIME
- LOCALE_S2359 LOCALE_STIMEFORMAT
- LOCALE_SCURRENCY LOCALE_SYEARMONTH
-
-You have to call SendSettingChange() to activate these changes for
-subsequent Win32::OLE::Variant object formatting because the OLE
-subsystem seems to cache locale information.
-
-=item MAKELANGID(LANG,SUBLANG)
-
-Creates a language identifier from a primary language and a sublanguage.
-
-=item PRIMARYLANGID(LANGID)
-
-Retrieves the primary language from a language identifier.
-
-=item SUBLANGID(LANGID)
-
-Retrieves the sublanguage from a language identifier.
-
-=item MAKELCID(LANGID)
-
-Creates a locale identifies from a language identifier.
-
-=item LANGIDFROMLCID(LCID)
-
-Retrieves a language identifier from a locale identifier.
-
-=back
-
-=head2 Locale Types
-
-=over 8
-
-=item LOCALE_ILANGUAGE
-
-The language identifier (in hex).
-
-=item LOCALE_SLANGUAGE
-
-The localized name of the language.
-
-=item LOCALE_SENGLANGUAGE
-
-The ISO Standard 639 English name of the language.
-
-=item LOCALE_SABBREVLANGNAME
-
-The three-letter abbreviated name of the language. The first two
-letters are from the ISO Standard 639 language name abbreviation. The
-third letter indicates the sublanguage type.
-
-=item LOCALE_SNATIVELANGNAME
-
-The native name of the language.
-
-=item LOCALE_ICOUNTRY
-
-The country code, which is based on international phone codes.
-
-=item LOCALE_SCOUNTRY
-
-The localized name of the country.
-
-=item LOCALE_SENGCOUNTRY
-
-The English name of the country.
-
-=item LOCALE_SABBREVCTRYNAME
-
-The ISO Standard 3166 abbreviated name of the country.
-
-=item LOCALE_SNATIVECTRYNAME
-
-The native name of the country.
-
-=item LOCALE_IDEFAULTLANGUAGE
-
-Language identifier for the principal language spoken in this
-locale.
-
-=item LOCALE_IDEFAULTCOUNTRY
-
-Country code for the principal country in this locale.
-
-=item LOCALE_IDEFAULTANSICODEPAGE
-
-The ANSI code page associated with this locale. Format: 4 Unicode
-decimal digits plus a Unicode null terminator.
-
-XXX This should be translated by GetLocaleInfo. XXX
-
-=item LOCALE_IDEFAULTCODEPAGE
-
-The OEM code page associated with the country.
-
-=item LOCALE_SLIST
-
-Characters used to separate list items (often a comma).
-
-=item LOCALE_IMEASURE
-
-Default measurement system:
-
- 0 metric system (S.I.)
- 1 U.S. system
-
-=item LOCALE_SDECIMAL
-
-Characters used for the decimal separator (often a dot).
-
-=item LOCALE_STHOUSAND
-
-Characters used as the separator between groups of digits left of the decimal.
-
-=item LOCALE_SGROUPING
-
-Sizes for each group of digits to the left of the decimal. An explicit
-size is required for each group. Sizes are separated by semicolons. If
-the last value is 0, the preceding value is repeated. To group
-thousands, specify 3;0.
-
-=item LOCALE_IDIGITS
-
-The number of fractional digits.
-
-=item LOCALE_ILZERO
-
-Whether to use leading zeros in decimal fields. A setting of 0
-means use no leading zeros; 1 means use leading zeros.
-
-=item LOCALE_SNATIVEDIGITS
-
-The ten characters that are the native equivalent of the ASCII 0-9.
-
-=item LOCALE_INEGNUMBER
-
-Negative number mode.
-
- 0 (1.1)
- 1 -1.1
- 2 -1.1
- 3 1.1
- 4 1.1
-
-=item LOCALE_SCURRENCY
-
-The string used as the local monetary symbol.
-
-=item LOCALE_SINTLSYMBOL
-
-Three characters of the International monetary symbol specified in ISO
-4217, Codes for the Representation of Currencies and Funds, followed
-by the character separating this string from the amount.
-
-=item LOCALE_SMONDECIMALSEP
-
-Characters used for the monetary decimal separators.
-
-=item LOCALE_SMONTHOUSANDSEP
-
-Characters used as monetary separator between groups of digits left of
-the decimal.
-
-=item LOCALE_SMONGROUPING
-
-Sizes for each group of monetary digits to the left of the decimal. An
-explicit size is needed for each group. Sizes are separated by
-semicolons. If the last value is 0, the preceding value is
-repeated. To group thousands, specify 3;0.
-
-=item LOCALE_ICURRDIGITS
-
-Number of fractional digits for the local monetary format.
-
-=item LOCALE_IINTLCURRDIGITS
-
-Number of fractional digits for the international monetary format.
-
-=item LOCALE_ICURRENCY
-
-Positive currency mode.
-
- 0 Prefix, no separation.
- 1 Suffix, no separation.
- 2 Prefix, 1-character separation.
- 3 Suffix, 1-character separation.
-
-=item LOCALE_INEGCURR
-
-Negative currency mode.
-
- 0 ($1.1)
- 1 -$1.1
- 2 $-1.1
- 3 $1.1-
- 4 $(1.1$)
- 5 -1.1$
- 6 1.1-$
- 7 1.1$-
- 8 -1.1 $ (space before $)
- 9 -$ 1.1 (space after $)
- 10 1.1 $- (space before $)
-
-=item LOCALE_ICALENDARTYPE
-
-The type of calendar currently in use.
-
- 1 Gregorian (as in U.S.)
- 2 Gregorian (always English strings)
- 3 Era: Year of the Emperor (Japan)
- 4 Era: Year of the Republic of China
- 5 Tangun Era (Korea)
-
-=item LOCALE_IOPTIONALCALENDAR
-
-The additional calendar types available for this LCID. Can be a
-null-separated list of all valid optional calendars. Value is
-0 for "None available" or any of the LOCALE_ICALENDARTYPE settings.
-
-XXX null separated list should be translated by GetLocaleInfo XXX
-
-=item LOCALE_SDATE
-
-Characters used for the date separator.
-
-=item LOCALE_STIME
-
-Characters used for the time separator.
-
-=item LOCALE_STIMEFORMAT
-
-Time-formatting string.
-
-=item LOCALE_SSHORTDATE
-
-Short Date_Time formatting strings for this locale.
-
-=item LOCALE_SLONGDATE
-
-Long Date_Time formatting strings for this locale.
-
-=item LOCALE_IDATE
-
-Short Date format-ordering specifier.
-
- 0 Month - Day - Year
- 1 Day - Month - Year
- 2 Year - Month - Day
-
-=item LOCALE_ILDATE
-
-Long Date format ordering specifier. Value can be any of the valid
-LOCALE_IDATE settings.
-
-=item LOCALE_ITIME
-
-Time format specifier.
-
- 0 AM/PM 12-hour format.
- 1 24-hour format.
-
-=item LOCALE_ITIMEMARKPOSN
-
-Whether the time marker string (AM|PM) precedes or follows the time
-string.
- 0 Suffix (9:15 AM).
- 1 Prefix (AM 9:15).
-
-=item LOCALE_ICENTURY
-
-Whether to use full 4-digit century.
-
- 0 Two digit.
- 1 Full century.
-
-=item LOCALE_ITLZERO
-
-Whether to use leading zeros in time fields.
-
- 0 No leading zeros.
- 1 Leading zeros for hours.
-
-=item LOCALE_IDAYLZERO
-
-Whether to use leading zeros in day fields. Values as for
-LOCALE_ITLZERO.
-
-=item LOCALE_IMONLZERO
-
-Whether to use leading zeros in month fields. Values as for
-LOCALE_ITLZERO.
-
-=item LOCALE_S1159
-
-String for the AM designator.
-
-=item LOCALE_S2359
-
-String for the PM designator.
-
-=item LOCALE_IFIRSTWEEKOFYEAR
-
-Specifies which week of the year is considered first.
-
- 0 Week containing 1/1 is the first week of the year.
- 1 First full week following 1/1is the first week of the year.
- 2 First week with at least 4 days is the first week of the year.
-
-=item LOCALE_IFIRSTDAYOFWEEK
-
-Specifies the day considered first in the week. Value "0" means
-SDAYNAME1 and value "6" means SDAYNAME7.
-
-=item LOCALE_SDAYNAME1 .. LOCALE_SDAYNAME7
-
-Long name for Monday .. Sunday.
-
-=item LOCALE_SABBREVDAYNAME1 .. LOCALE_SABBREVDAYNAME7
-
-Abbreviated name for Monday .. Sunday.
-
-=item LOCALE_SMONTHNAME1 .. LOCALE_SMONTHNAME12
-
-Long name for January .. December.
-
-=item LOCALE_SMONTHNAME13
-
-Native name for 13th month, if it exists.
-
-=item LOCALE_SABBREVMONTHNAME1 .. LOCALE_SABBREVMONTHNAME12
-
-Abbreviated name for January .. December.
-
-=item LOCALE_SABBREVMONTHNAME13
-
-Native abbreviated name for 13th month, if it exists.
-
-=item LOCALE_SPOSITIVESIGN
-
-String value for the positive sign.
-
-=item LOCALE_SNEGATIVESIGN
-
-String value for the negative sign.
-
-=item LOCALE_IPOSSIGNPOSN
-
-Formatting index for positive values.
-
- 0 Parentheses surround the amount and the monetary symbol.
- 1 The sign string precedes the amount and the monetary symbol.
- 2 The sign string precedes the amount and the monetary symbol.
- 3 The sign string precedes the amount and the monetary symbol.
- 4 The sign string precedes the amount and the monetary symbol.
-
-=item LOCALE_INEGSIGNPOSN
-
-Formatting index for negative values. Values as for LOCALE_IPOSSIGNPOSN.
-
-=item LOCALE_IPOSSYMPRECEDES
-
-If the monetary symbol precedes, 1. If it succeeds a positive amount, 0.
-
-=item LOCALE_IPOSSEPBYSPACE
-
-If the monetary symbol is separated by a space from a positive amount,
-1. Otherwise, 0.
-
-=item LOCALE_INEGSYMPRECEDES
-
-If the monetary symbol precedes, 1. If it succeeds a negative amount, 0.
-
-=item LOCALE_INEGSEPBYSPACE
-
-If the monetary symbol is separated by a space from a negative amount,
-1. Otherwise, 0.
-
-=back
-
-=head1 AUTHORS/COPYRIGHT
-
-This module is part of the Win32::OLE distribution.
-
-=cut