Commit | Line | Data |
6b14ceb7 |
1 | # |
2 | # Locale::Language - ISO two letter codes for language identification (ISO 639) |
3 | # |
3a6b268d |
4 | # $Id: Language.pm,v 2.2 2002/07/10 16:33:27 neilb Exp $ |
6b14ceb7 |
5 | # |
47a334e9 |
6 | |
7 | package Locale::Language; |
8 | use strict; |
9 | require 5.002; |
10 | |
47a334e9 |
11 | require Exporter; |
12 | |
13 | #----------------------------------------------------------------------- |
14 | # Public Global Variables |
15 | #----------------------------------------------------------------------- |
16 | use vars qw($VERSION @ISA @EXPORT); |
3a6b268d |
17 | $VERSION = sprintf("%d.%02d", q$Revision: 2.2 $ =~ /(\d+)\.(\d+)/); |
47a334e9 |
18 | @ISA = qw(Exporter); |
19 | @EXPORT = qw(&code2language &language2code |
20 | &all_language_codes &all_language_names ); |
21 | |
22 | #----------------------------------------------------------------------- |
23 | # Private Global Variables |
24 | #----------------------------------------------------------------------- |
25 | my %CODES = (); |
26 | my %LANGUAGES = (); |
27 | |
28 | |
29 | #======================================================================= |
6b14ceb7 |
30 | # |
31 | # code2language ( CODE ) |
32 | # |
47a334e9 |
33 | #======================================================================= |
34 | sub code2language |
35 | { |
36 | my $code = shift; |
37 | |
38 | |
39 | return undef unless defined $code; |
40 | $code = lc($code); |
41 | if (exists $CODES{$code}) |
42 | { |
43 | return $CODES{$code}; |
44 | } |
45 | else |
46 | { |
47 | #--------------------------------------------------------------- |
48 | # no such language code! |
49 | #--------------------------------------------------------------- |
50 | return undef; |
51 | } |
52 | } |
53 | |
6b14ceb7 |
54 | |
55 | #======================================================================= |
56 | # |
57 | # language2code ( LANGUAGE ) |
58 | # |
59 | #======================================================================= |
47a334e9 |
60 | sub language2code |
61 | { |
62 | my $lang = shift; |
63 | |
64 | |
65 | return undef unless defined $lang; |
66 | $lang = lc($lang); |
67 | if (exists $LANGUAGES{$lang}) |
68 | { |
69 | return $LANGUAGES{$lang}; |
70 | } |
71 | else |
72 | { |
73 | #--------------------------------------------------------------- |
74 | # no such language! |
75 | #--------------------------------------------------------------- |
76 | return undef; |
77 | } |
78 | } |
79 | |
47a334e9 |
80 | |
81 | #======================================================================= |
6b14ceb7 |
82 | # |
83 | # all_language_codes() |
84 | # |
85 | #======================================================================= |
47a334e9 |
86 | sub all_language_codes |
87 | { |
88 | return keys %CODES; |
89 | } |
90 | |
6b14ceb7 |
91 | |
92 | #======================================================================= |
93 | # |
94 | # all_language_names() |
95 | # |
96 | #======================================================================= |
47a334e9 |
97 | sub all_language_names |
98 | { |
99 | return values %CODES; |
100 | } |
101 | |
47a334e9 |
102 | |
103 | #======================================================================= |
104 | # initialisation code - stuff the DATA into the CODES hash |
105 | #======================================================================= |
106 | { |
107 | my $code; |
108 | my $language; |
109 | |
3dca81fb |
110 | |
47a334e9 |
111 | while (<DATA>) |
112 | { |
6b6e008c |
113 | next unless /\S/; |
47a334e9 |
114 | chop; |
115 | ($code, $language) = split(/:/, $_, 2); |
116 | $CODES{$code} = $language; |
117 | $LANGUAGES{"\L$language"} = $code; |
118 | } |
3a6b268d |
119 | |
120 | close(DATA); |
47a334e9 |
121 | } |
122 | |
123 | 1; |
124 | |
125 | __DATA__ |
126 | aa:Afar |
127 | ab:Abkhazian |
128 | ae:Avestan |
129 | af:Afrikaans |
130 | am:Amharic |
131 | ar:Arabic |
132 | as:Assamese |
133 | ay:Aymara |
134 | az:Azerbaijani |
135 | |
136 | ba:Bashkir |
137 | be:Belarusian |
138 | bg:Bulgarian |
139 | bh:Bihari |
140 | bi:Bislama |
141 | bn:Bengali |
142 | bo:Tibetan |
143 | br:Breton |
144 | bs:Bosnian |
145 | |
146 | ca:Catalan |
147 | ce:Chechen |
148 | ch:Chamorro |
149 | co:Corsican |
150 | cs:Czech |
151 | cu:Church Slavic |
152 | cv:Chuvash |
153 | cy:Welsh |
154 | |
155 | da:Danish |
156 | de:German |
157 | dz:Dzongkha |
158 | |
159 | el:Greek |
160 | en:English |
161 | eo:Esperanto |
162 | es:Spanish |
163 | et:Estonian |
164 | eu:Basque |
165 | |
166 | fa:Persian |
167 | fi:Finnish |
168 | fj:Fijian |
169 | fo:Faeroese |
170 | fr:French |
171 | fy:Frisian |
172 | |
173 | ga:Irish |
174 | gd:Gaelic (Scots) |
175 | gl:Gallegan |
176 | gn:Guarani |
177 | gu:Gujarati |
178 | gv:Manx |
179 | |
180 | ha:Hausa |
181 | he:Hebrew |
182 | hi:Hindi |
183 | ho:Hiri Motu |
184 | hr:Croatian |
185 | hu:Hungarian |
186 | hy:Armenian |
187 | hz:Herero |
188 | |
189 | ia:Interlingua |
190 | id:Indonesian |
191 | ie:Interlingue |
192 | ik:Inupiaq |
193 | is:Icelandic |
194 | it:Italian |
195 | iu:Inuktitut |
196 | |
197 | ja:Japanese |
198 | jw:Javanese |
199 | |
200 | ka:Georgian |
201 | ki:Kikuyu |
202 | kj:Kuanyama |
203 | kk:Kazakh |
204 | kl:Kalaallisut |
205 | km:Khmer |
206 | kn:Kannada |
207 | ko:Korean |
208 | ks:Kashmiri |
209 | ku:Kurdish |
210 | kv:Komi |
211 | kw:Cornish |
212 | ky:Kirghiz |
213 | |
214 | la:Latin |
215 | lb:Letzeburgesch |
216 | ln:Lingala |
217 | lo:Lao |
218 | lt:Lithuanian |
219 | lv:Latvian |
220 | |
221 | mg:Malagasy |
222 | mh:Marshall |
223 | mi:Maori |
224 | mk:Macedonian |
225 | ml:Malayalam |
226 | mn:Mongolian |
227 | mo:Moldavian |
228 | mr:Marathi |
229 | ms:Malay |
230 | mt:Maltese |
231 | my:Burmese |
232 | |
233 | na:Nauru |
3dca81fb |
234 | nb:Norwegian Bokmål |
47a334e9 |
235 | nd:Ndebele, North |
236 | ne:Nepali |
237 | ng:Ndonga |
238 | nl:Dutch |
239 | nn:Norwegian Nynorsk |
240 | no:Norwegian |
241 | nr:Ndebele, South |
242 | nv:Navajo |
243 | ny:Chichewa; Nyanja |
244 | |
245 | oc:Occitan (post 1500) |
246 | om:Oromo |
247 | or:Oriya |
248 | os:Ossetian; Ossetic |
249 | |
250 | pa:Panjabi |
251 | pi:Pali |
252 | pl:Polish |
253 | ps:Pushto |
254 | pt:Portuguese |
255 | |
256 | qu:Quechua |
257 | |
258 | rm:Rhaeto-Romance |
259 | rn:Rundi |
260 | ro:Romanian |
261 | ru:Russian |
262 | rw:Kinyarwanda |
263 | |
264 | sa:Sanskrit |
265 | sc:Sardinian |
266 | sd:Sindhi |
267 | se:Sami |
268 | sg:Sango |
269 | si:Sinhalese |
270 | sk:Slovak |
271 | sl:Slovenian |
272 | sm:Samoan |
273 | sn:Shona |
274 | so:Somali |
275 | sq:Albanian |
276 | sr:Serbian |
277 | ss:Swati |
278 | st:Sotho |
279 | su:Sundanese |
280 | sv:Swedish |
281 | sw:Swahili |
282 | |
283 | ta:Tamil |
284 | te:Telugu |
285 | tg:Tajik |
286 | th:Thai |
287 | ti:Tigrinya |
288 | tk:Turkmen |
289 | tl:Tagalog |
290 | tn:Tswana |
291 | to:Tonga |
292 | tr:Turkish |
293 | ts:Tsonga |
294 | tt:Tatar |
295 | tw:Twi |
296 | |
297 | ug:Uighur |
298 | uk:Ukrainian |
299 | ur:Urdu |
300 | uz:Uzbek |
301 | |
302 | vi:Vietnamese |
3dca81fb |
303 | vo:Volapük |
47a334e9 |
304 | |
305 | wo:Wolof |
306 | |
307 | xh:Xhosa |
308 | |
309 | yi:Yiddish |
310 | yo:Yoruba |
311 | |
312 | za:Zhuang |
313 | zh:Chinese |
314 | zu:Zulu |