From 37860db32a298e81d107848c7021f39427ff2e29 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 23 Sep 1999 00:38:28 +0000
Subject: no_comment

---
 perl-install/lang.pm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

(limited to 'perl-install/lang.pm')

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index ee6931fae..8d7465729 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -172,6 +172,34 @@ sub write {
     }
 }
 
+sub load_po($) {
+    my ($lang) = @_;
+    my ($s, $from, $to, $state);
+
+    $s .= "package po::I18N;\n";
+    $s .= "\%$lang = (";
+
+    my $f; -e ($f = "$_/po/$lang.po") and last foreach @INC;    
+    local *F; open F, $f or return;
+    foreach (<F>) {
+	/^msgstr/ and $state = 1;
+	/^msgid/ and $state = 2;
+
+	if (/^(#|$)/ && $state != 3) {
+	    $state = 3;
+	    $s .= qq("$from" => "$to",\n) if $from;
+	    $from = $to = '';
+	}
+	$to .= (/"(.*)"/)[0] if $state == 1;
+	$from .= (/"(.*)"/)[0] if $state == 2;
+    }
+    $s .= ");";
+    no strict "vars";
+    eval $s;
+    !$@;
+}
+
+
 #-sub load_font {
 #-    my ($charset) = @_;
 #-    my $fontFile = "lat0-sun16";
-- 
cgit v1.2.1