Convert remaining iso language codes
[deb/packages.git] / lib / Packages / I18N / LanguageNames.pm
1 # Taken from the webwml CVS tree (english/templates/language_names.wml)
2
3 package Packages::I18N::LanguageNames;
4
5 use strict;
6 use warnings;
7
8 use Exporter;
9 use Packages::I18N::Locale;
10
11 our @ISA = qw( Exporter );
12 our @EXPORT = qw( get_language_name get_all_languages );
13
14 my %ctrans = (
15         ar    => N_("Arabic"),
16         fi    => N_("Finnish"),
17         hr    => N_("Croatian"),
18         da    => N_("Danish"),
19         nl    => N_("Dutch"),
20         en    => N_("English"),
21         fa    => N_("Persian"),
22         fr    => N_("French"),
23         de    => N_("German"),
24         hy    => N_("Armenian"),
25         it    => N_("Italian"),
26         ja    => N_("Japanese"),
27         ko    => N_("Korean"),
28         es    => N_("Spanish"),
29         pt    => N_("Portuguese"),
30         'pt-br'=> N_("Portuguese (Brasilia)"),
31         'pt-pt'=> N_("Portuguese (Portugal)"),
32         zh    => N_("Chinese"),
33         'zh-cn'=> N_("Chinese (China)"),
34         'zh-hk'=> N_("Chinese (Hong Kong)"),
35         'zh-tw'=> N_("Chinese (Taiwan)"),
36         sv    => N_("Swedish"),
37         'sv-se'=> N_("Swedish"),
38         pl    => N_("Polish"),
39         'no'  => N_("Norwegian"),
40         'tr'  => N_("Turkish"),
41         ru    => N_("Russian"),
42         cs    => N_("Czech"),
43         eo    => N_("Esperanto"),
44         hu    => N_("Hungarian"),
45         ro    => N_("Romanian"),
46         sk    => N_("Slovak"),
47         el    => N_("Greek"),
48         ca    => N_("Catalan"),
49         lt    => N_("Lithuanian"),
50         sl    => N_("Slovene"),
51         bg    => N_("Bulgarian"),
52         uk    => N_("Ukrainian"),
53 );
54
55 sub get_language_name {
56     return $ctrans{$_[0]};
57 }
58
59 sub get_all_languages {
60     return %ctrans;
61 }
62
63 1;