Add basic l10n support.

[deb/packages.git] / lib / Packages / I18N / Locale.pm

diff --git a/lib/Packages/I18N/Locale.pm b/lib/Packages/I18N/Locale.pm
new file mode 100644 (file)
index 0000000..10fc3cc
--- /dev/null
+++ b/lib/Packages/I18N/Locale.pm
@@ -0,0 +1,57 @@
+package Packages::I18N::Locale;
+
+use strict;
+use warnings;
+
+use Exporter;
+use Locale::gettext;
+
+our @ISA = qw( Exporter );
+our @EXPORT = qw( get_locale get_charset _g _ N_ );
+
+
+my %lang2loc = ( en => "en_US",
+                cs => "cs_CZ",
+                da => "da_DK",
+                ja => "ja_JP",
+                sv => "sv_SE",
+                uk => "uk_UA",
+                default => "en_US",
+                );
+
+# most of them can probably changed to UTF-8 in Sarge
+# as there are more available UTF-8 locales then
+my %lang2charset = (
+                   default => 'UTF-8',
+                   ja => 'EUC-JP',
+                   uk => 'KOI8-U',
+                   );
+
+sub get_locale {
+    my $lang = shift;
+    my $locale = $lang;
+
+    return "$lang2loc{default}.".get_charset() unless $lang;
+
+    if ( length($lang) == 2 ) {
+       $locale = $lang2loc{$lang} || ( "${lang}_" . uc $lang );
+    } elsif ( $lang !~ /^[a-z][a-z]_[A-Z][A-Z]$/ ) {
+       warn "get_locale: couldn't determine locale\n";
+       return;
+    }
+    $locale .= ".".get_charset($lang);
+    return $locale;
+}
+
+sub get_charset {
+    my $lang = shift;
+
+    return $lang2charset{default} unless $lang;
+    return $lang2charset{$lang} || $lang2charset{default};
+}
+
+sub _ { return gettext( $_[0] ) }
+sub _g { return gettext( $_[0] ) }
+sub N_ { return $_[0] }
+
+1;