diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Locale/Codes/Constants.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Locale/Codes/Constants.pm | 133 |
1 files changed, 133 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Locale/Codes/Constants.pm b/Master/tlpkg/tlperl/lib/Locale/Codes/Constants.pm new file mode 100644 index 00000000000..64b96edde74 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Locale/Codes/Constants.pm @@ -0,0 +1,133 @@ +package Locale::Codes::Constants; +# Copyright (C) 2001 Canon Research Centre Europe (CRE). +# Copyright (C) 2002-2009 Neil Bowers +# Copyright (c) 2010-2012 Sullivan Beck +# This program is free software; you can redistribute it and/or modify it +# under the same terms as Perl itself. + +use strict; +use warnings; + +require Exporter; + +#----------------------------------------------------------------------- +# Public Global Variables +#----------------------------------------------------------------------- + +our($VERSION,@ISA,@EXPORT); +our(%ALL_CODESETS); + +$VERSION='3.21'; +@ISA = qw(Exporter); +@EXPORT = qw(LOCALE_CODE_ALPHA_2 + LOCALE_CODE_ALPHA_3 + LOCALE_CODE_NUMERIC + LOCALE_CODE_FIPS + LOCALE_CODE_DOM + + LOCALE_LANG_ALPHA_2 + LOCALE_LANG_ALPHA_3 + LOCALE_LANG_TERM + + LOCALE_CURR_ALPHA + LOCALE_CURR_NUMERIC + + LOCALE_SCRIPT_ALPHA + LOCALE_SCRIPT_NUMERIC + + LOCALE_LANGEXT_ALPHA + + LOCALE_LANGVAR_ALPHA + + LOCALE_LANGFAM_ALPHA + + %ALL_CODESETS + ); + +#----------------------------------------------------------------------- +# Constants +#----------------------------------------------------------------------- + +use constant LOCALE_CODE_ALPHA_2 => 'alpha-2'; +use constant LOCALE_CODE_ALPHA_3 => 'alpha-3'; +use constant LOCALE_CODE_NUMERIC => 'numeric'; +use constant LOCALE_CODE_FIPS => 'fips-10'; +use constant LOCALE_CODE_DOM => 'dom'; + +$ALL_CODESETS{'country'} = { + 'default' => 'alpha-2', + 'codesets' => { 'alpha-2' => ['lc'], + 'alpha-3' => ['lc'], + 'numeric' => ['numeric',3], + 'fips-10' => ['uc'], + 'dom' => ['uc'], + } + }; + +use constant LOCALE_LANG_ALPHA_2 => 'alpha-2'; +use constant LOCALE_LANG_ALPHA_3 => 'alpha-3'; +use constant LOCALE_LANG_TERM => 'term'; + +$ALL_CODESETS{'language'} = { + 'default' => 'alpha-2', + 'codesets' => { 'alpha-2' => ['lc'], + 'alpha-3' => ['lc'], + 'term' => ['lc'], + } + }; + +use constant LOCALE_CURR_ALPHA => 'alpha'; +use constant LOCALE_CURR_NUMERIC => 'num'; + +$ALL_CODESETS{'currency'} = { + 'default' => 'alpha', + 'codesets' => { 'alpha' => ['uc'], + 'num' => ['numeric',3], + } + }; + +use constant LOCALE_SCRIPT_ALPHA => 'alpha'; +use constant LOCALE_SCRIPT_NUMERIC => 'num'; + +$ALL_CODESETS{'script'} = { + 'default' => 'alpha', + 'codesets' => { 'alpha' => ['ucfirst'], + 'num' => ['numeric',3], + } + }; + +use constant LOCALE_LANGEXT_ALPHA => 'alpha'; + +$ALL_CODESETS{'langext'} = { + 'default' => 'alpha', + 'codesets' => { 'alpha' => ['lc'], + } + }; + +use constant LOCALE_LANGVAR_ALPHA => 'alpha'; + +$ALL_CODESETS{'langvar'} = { + 'default' => 'alpha', + 'codesets' => { 'alpha' => ['lc'], + } + }; + +use constant LOCALE_LANGFAM_ALPHA => 'alpha'; + +$ALL_CODESETS{'langfam'} = { + 'default' => 'alpha', + 'codesets' => { 'alpha' => ['lc'], + } + }; + +1; +# Local Variables: +# mode: cperl +# indent-tabs-mode: nil +# cperl-indent-level: 3 +# cperl-continued-statement-offset: 2 +# cperl-continued-brace-offset: 0 +# cperl-brace-offset: 0 +# cperl-brace-imaginary-offset: 0 +# cperl-label-offset: -2 +# End: |