diff options
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 28 |
1 files changed, 21 insertions, 7 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index e7199a2f0..90b37e751 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -20,7 +20,7 @@ my %languages = ( 'en' => [ 'English (US)', undef, 'en', 'en_US:en' ], 'en_GB' => [ 'English (UK)', 'iso-8859-1', 'en', 'en_GB:en' ], 'af' => [ 'Afrikaans', 'iso-8859-1', 'af', 'af:en_ZA' ], -#-'ar' => [ 'Arabic', 'iso-8859-6', 'ar', 'ar' ], + 'ar' => [ 'Arabic', 'iso-8859-6', 'ar', 'ar' ], 'bg' => [ 'Bulgarian', 'cp1251', 'bg', 'bg' ], 'br' => [ 'Brezhoneg', 'iso-8859-1', 'br', 'br:fr_FR:fr' ], 'ca' => [ 'Catalan', 'iso-8859-1', 'ca', 'ca:es_ES:es:fr_FR:fr' ], @@ -39,14 +39,15 @@ my %languages = ( 'eu' => [ 'Euskara (Basque)', 'iso-8859-1', 'eu', 'eu:es_ES:fr_FR:es:fr' ], #-'fa' => [ 'Farsi (Iranian)', 'isiri-3342', 'fa', 'fa' ], 'fi' => [ 'Suomi (Finnish)', 'iso-8859-1', 'fi', 'fi' ], +#-'fo' => [ 'Faroese', 'iso-8859-1', 'fo', 'fo:??:??' ], 'fr_CA' => [ 'French (Canada)', 'iso-8859-1', 'fr', 'fr_CA:fr' ], 'fr_FR' => [ 'French (France)', 'iso-8859-1', 'fr', 'fr_FR:fr' ], -#-'fo' => [ 'Faroese', 'iso-8859-1', 'fo', 'fo:??:??' ], 'ga' => [ 'Gaeilge (Irish)', 'iso-8859-14','ga', 'ga:en_IE:en' ], #-'gd' => [ 'Sottish gaelic', 'iso-8859-14','gd', 'gd:en_GB:en' ], 'gl' => [ 'Galician', 'iso-8859-1', 'gl', 'gl:es_ES:pt_PT:pt_BR:es:pt' ], +#-'gv' => [ 'Manx gaelic', 'iso-8859-14','gv', 'gv:en_GB:en' ], #- 'iw' was the old code for hebrew language -#-'he' => [ 'Hebrew', 'iso-8859-8', 'he', 'he:iw_IL' ], + 'he' => [ 'Hebrew', 'iso-8859-8', 'he', 'he:iw_IL' ], 'hr' => [ 'Croatian', 'iso-8859-2', 'hr', 'hr' ], 'hu' => [ 'Hungarian', 'iso-8859-2', 'hu', 'hu' ], 'hy' => [ 'Armenian', 'armscii-8', 'hy', 'hy' ], @@ -57,11 +58,12 @@ my %languages = ( 'it' => [ 'Italian', 'iso-8859-1', 'it', 'it_IT:it' ], 'ja' => [ 'Japanese', 'jisx0208', 'ja', 'ja_JP.ujis:ja' ], 'ka' => [ 'Georgian', 'georgian-academy', 'ka', 'ka' ], -#-'kl' => [ 'Greenlandic (inuit)', 'iso-8859-1', 'kl', 'kl' ], + 'kl' => [ 'Greenlandic (inuit)', 'iso-8859-1', 'kl', 'kl' ], 'ko' => [ 'Korean', 'ksc5601', 'ko', 'ko' ], +#-'kw' => [ 'Cornish gaelic', 'iso-8859-14','kw', 'kw:en_GB:en' ], #-'lo' => [ 'Laotian', 'mulelao-1', 'lo', 'lo' ], 'lt' => [ 'Lithuanian', 'iso-8859-13','lt', 'lt' ], -#-'lv' => [ 'Latvian', 'iso-8859-13','lv', 'lv' ], + 'lv' => [ 'Latvian', 'iso-8859-13','lv', 'lv' ], #-'mk' => [ 'Macedonian (Cyrillic)', 'iso-8859-5', 'mk', 'mk:sp:sr' ], #-'mk_latin'=> [ 'Macedonian (Latin)', 'iso-8859-2', 'mk_latin', 'mk_latin:sr' ], #-'ms' => [ 'Malay', 'iso-8859-1', 'ms', 'ms' ], @@ -69,7 +71,9 @@ my %languages = ( 'no' => [ 'Norwegian (Bokmaal)', 'iso-8859-1', 'no', 'no:no@nynorsk' ], 'no@nynorsk' => [ 'Norwegian (Nynorsk)','iso-8859-1', 'no', 'no@nynorsk:no' ], #-'oc' => [ 'Occitan', 'iso-8859-1', 'oc', 'oc:fr_FR' ], +#-'pd' => [ 'Plauttdietsch', 'iso-8859-1', 'pd', 'pd' ], 'pl' => [ 'Polish', 'iso-8859-2', 'pl', 'pl' ], +#-'pp' => [ 'Papiamento', 'iso-8859-1', 'pp', 'pp' ], 'pt_BR' => [ 'Portuguese (Brazil)', 'iso-8859-1', 'pt_BR', 'pt_BR:pt_PT:pt' ], 'pt_PT' => [ 'Portuguese (Portugal)', 'iso-8859-1', 'pt', 'pt_PT:pt:pt_BR' ], 'ro' => [ 'Romanian', 'iso-8859-2', 'ro', 'ro' ], @@ -87,6 +91,7 @@ my %languages = ( 'vi_VN.viscii' => [ 'Vietnamese (VISCII)','viscii', 'vi', 'vi_VN.viscii:vi_VN.tcvn-viscii1.1-1:vi' ], 'wa' => [ 'Walon', 'iso-8859-1', 'wa', 'wa:fr_BE:fr' ], +#-'yi' => [ 'Yiddish', 'cp1255', 'yi', 'yi' ], 'zh_TW.Big5' => [ 'Chinese (Big5)', 'Big5', 'zh_TW.Big5', 'zh_TW.Big5:zh_TW.big5:zh' ], 'zh_CN' => [ 'Chinese (GuoBiao)', 'gb2312', 'zh_CN', 'zh_CN:zh_CN.GB2312:zh_CN.gb2312:zh' ], ); @@ -169,6 +174,10 @@ my %charsets = ( std("koi8-u") ], "cp1251" => [ "iso05.f16", "iso05", "iso05_to_cp1251.trans", std_("microsoft-cp1251") ], +#- Yiddish needs special console driver for text mode (none yet) +#- (and gtk support isn't done yet) + "cp1255" => [ "iso08.f16", "iso08", "trivial.trans", + std_("microsoft-cp1255") ], #- korean needs special console driver for text mode "ksc5601" => [ undef, undef, undef, "-*-*-*-*-*-*-*-*-*-*-*-*-ksc5601.1987-*" ], @@ -244,9 +253,14 @@ sub write { $lang or return; - my $h = { LC_ALL => $lang }; + my $h = { LC_CTYPE => $lang }; + add2hash $h, { LC_COLLATE => $lang }; + add2hash $h, { LC_MESSAGES => $lang }; + add2hash $h, { LC_NUMERIC => $lang }; + add2hash $h, { LC_MONETARY => $lang }; + add2hash $h, { LC_TIME => $lang }; if (my $l = $languages{$lang}) { - add2hash $h, { LANG => $l->[2], LANGUAGE => $l->[2], RPM_LANG_INSTALL => $l->[3] }; + add2hash $h, { LANG => $l->[2], LANGUAGE => $l->[3], RPM_LANG_INSTALL => $l->[3] }; my $c = $charsets{$l->[1] || ''}; if ($c && $c->[0] && $c->[1]) { |