Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | package Psh::Locale; |
2 | ||
3 | # | |
4 | # Here is the list of ISO-639:1988 language codes. Obtained from | |
5 | # http://www.uk.adlibsoft.com/iso/iso639.html on 1999-12-26. | |
6 | # | |
7 | # aa Afar | |
8 | # ab Abkhazian | |
9 | # af Afrikaans | |
10 | # am Amharic | |
11 | # ar Arabic | |
12 | # as Assamese | |
13 | # ay Aymara | |
14 | # az Azerbaijani | |
15 | # | |
16 | # ba Bashkir | |
17 | # be Byelorussian | |
18 | # bg Bulgarian | |
19 | # bh Bihari | |
20 | # bi Bislama | |
21 | # bn Bengali; Bangla | |
22 | # bo Tibetan | |
23 | # br Breton | |
24 | # | |
25 | # ca Catalan | |
26 | # co Corsican | |
27 | # cs Czech | |
28 | # cy Welsh | |
29 | # | |
30 | # da Danish | |
31 | # de German | |
32 | # dz Bhutani | |
33 | # | |
34 | # el Greek | |
35 | # en English | |
36 | # eo Esperanto | |
37 | # es Spanish | |
38 | # et Estonian | |
39 | # eu Basque | |
40 | # | |
41 | # fa Persian | |
42 | # fi Finnish | |
43 | # fj Fiji | |
44 | # fo Faeroese | |
45 | # fr French | |
46 | # fy Frisian | |
47 | # | |
48 | # ga Irish | |
49 | # gd Scots Gaelic | |
50 | # gl Galician | |
51 | # gn Guarani | |
52 | # gu Gujarati | |
53 | # | |
54 | # ha Hausa | |
55 | # hi Hindi | |
56 | # hr Croatian | |
57 | # hu Hungarian | |
58 | # hy Armenian | |
59 | # | |
60 | # ia Interlingua | |
61 | # ie Interlingue | |
62 | # ik Inupiak | |
63 | # in Indonesian | |
64 | # is Icelandic | |
65 | # it Italian | |
66 | # iw Hebrew | |
67 | # | |
68 | # ja Japanese | |
69 | # ji Yiddish | |
70 | # jw Javanese | |
71 | # | |
72 | # ka Georgian | |
73 | # kk Kazakh | |
74 | # kl Greenlandic | |
75 | # km Cambodian | |
76 | # kn Kannada | |
77 | # ko Korean | |
78 | # ks Kashmiri | |
79 | # ku Kurdish | |
80 | # ky Kirghiz | |
81 | # | |
82 | # la Latin | |
83 | # ln Lingala | |
84 | # lo Laothian | |
85 | # lt Lithuanian | |
86 | # lv Latvian, Lettish | |
87 | # | |
88 | # mg Malagasy | |
89 | # mi Maori | |
90 | # mk Macedonian | |
91 | # ml Malayalam | |
92 | # mn Mongolian | |
93 | # mo Moldavian | |
94 | # mr Marathi | |
95 | # ms Malay | |
96 | # mt Maltese | |
97 | # my Burmese | |
98 | # | |
99 | # na Nauru | |
100 | # ne Nepali | |
101 | # nl Dutch | |
102 | # no Norwegian | |
103 | # | |
104 | # oc Occitan | |
105 | # om (Afan) Oromo | |
106 | # or Oriya | |
107 | # | |
108 | # pa Punjabi | |
109 | # pl Polish | |
110 | # ps Pashto, Pushto | |
111 | # pt Portuguese | |
112 | # | |
113 | # qu Quechua | |
114 | # | |
115 | # rm Rhaeto-Romance | |
116 | # rn Kirundi | |
117 | # ro Romanian | |
118 | # ru Russian | |
119 | # rw Kinyarwanda | |
120 | # | |
121 | # sa Sanskrit | |
122 | # sd Sindhi | |
123 | # sg Sangro | |
124 | # sh Serbo-Croatian | |
125 | # si Singhalese | |
126 | # sk Slovak | |
127 | # sl Slovenian | |
128 | # sm Samoan | |
129 | # sn Shona | |
130 | # so Somali | |
131 | # sq Albanian | |
132 | # sr Serbian | |
133 | # ss Siswati | |
134 | # st Sesotho | |
135 | # su Sundanese | |
136 | # sv Swedish | |
137 | # sw Swahili | |
138 | # | |
139 | # ta Tamil | |
140 | # te Tegulu | |
141 | # tg Tajik | |
142 | # th Thai | |
143 | # ti Tigrinya | |
144 | # tk Turkmen | |
145 | # tl Tagalog | |
146 | # tn Setswana | |
147 | # to Tonga | |
148 | # tr Turkish | |
149 | # ts Tsonga | |
150 | # tt Tatar | |
151 | # tw Twi | |
152 | # | |
153 | # uk Ukrainian | |
154 | # ur Urdu | |
155 | # uz Uzbek | |
156 | # | |
157 | # vi Vietnamese | |
158 | # vo Volapuk | |
159 | # | |
160 | # wo Wolof | |
161 | # | |
162 | # xh Xhosa | |
163 | # | |
164 | # yo Yoruba | |
165 | # | |
166 | # zh Chinese | |
167 | # zu Zulu | |
168 | # | |
169 | ||
170 | my (@mon,@wday); | |
171 | my $locale_loaded; | |
172 | my $special_locale=0; | |
173 | ||
174 | sub load_locale { | |
175 | return if $locale_loaded; | |
176 | eval "require Psh::Locale::Default"; | |
177 | ||
178 | my $lang= $ENV{LANG}; | |
179 | # Now try to use a locale module depending on LANG | |
180 | if( $lang and $lang ne "C" and $lang ne "POSIX") { | |
181 | $lang=lc($lang); | |
182 | ||
183 | my %alias_table= ( | |
184 | "de_de" => "German", | |
185 | "deutsch" => "German", | |
186 | "de" => "German", | |
187 | ||
188 | "es" => "Spanish", | |
189 |