X-Git-Url: http://git.archive.openwrt.org/?p=project%2Fluci.git;a=blobdiff_plain;f=build%2Fi18n-po2lua.pl;h=5129055ffbd1bd33b86f371f524799b294e27ce1;hp=38e6529bb7a99c2db225055106fbe37be76cffbd;hb=46a2b5ebeaad5c1702e95970cc74dfad0690fa6d;hpb=6948b6bc70456ab137463dc1b8520e6abc9480e3

diff --git a/build/i18n-po2lua.pl b/build/i18n-po2lua.pl
index 38e6529bb..5129055ff 100755
--- a/build/i18n-po2lua.pl
+++ b/build/i18n-po2lua.pl
@@ -10,59 +10,17 @@ if( ! -d $target_dir )
 	system('mkdir', '-p', $target_dir);
 }
 
-
-my %target_strings;
-
-
 if( open F, "find $source_dir -type f -name '*.po' |" )
 {
 	while( chomp( my $file = readline F ) )
 	{
-		if( open L, "< $file" )
-		{
-			my ( $basename ) = $file =~ m{.+/([^/]+\.[\w\-]+)\.po$};
-
-			if( open D, "> $target_dir/$basename.lua" )
-			{
-				printf "Generating %-40s ", "$target_dir/$basename.lua";
-
-				my ( $k, $v );
-
-				while( chomp( my $line = readline L ) )
-				{
-					if( $line =~ /^msgid "(.+)"/ )
-					{
-						$k = $1;
-					}
-					elsif( $k && $line =~ /^msgstr "(.*)"/ )
-					{
-						$v = $1;
-					}
-					elsif( $k && defined($v) && $line =~ /^"(.+)"/ )
-					{
-						$v .= $1;
-					}
-					else
-					{
-						if( $k && defined($v) )
-						{
-							$v =~ s/\\(['"\\])/$1/g;
-							$v =~ s/(['\\])/\\$1/g;
-
-							printf D "%s%s='%s'\n", $v ? '' : '--', $k, $v;
-						}
-		
-						$k = $v = undef;
-					}
-				}
-
-				print "done\n";
-
-				close D;
-			}
+		my ( $lang, $basename ) = $file =~ m{.+/(\w+)/([^/]+)\.po$};
+		$lang = lc $lang;
+		$lang =~ s/_/-/g;
 
-			close L;
-		}
+		printf "Generating %-40s ", "$target_dir/$basename.$lang.lmo";
+		system("./build/po2lmo", $file, "$target_dir/$basename.$lang.lmo");
+		print ( -f "$target_dir/$basename.$lang.lmo" ? "done\n" : "empty\n" );
 	}
 
 	close F;