X-Git-Url: http://git.archive.openwrt.org/?p=project%2Fluci.git;a=blobdiff_plain;f=build%2Fi18n-po2lua.pl;h=5129055ffbd1bd33b86f371f524799b294e27ce1;hp=c57198fd5cdf515178d28198262e03797dd890fb;hb=94ea9077076d98374a331131fb7c9fc57df370a6;hpb=2ef4b11de93165bd197b1583997f5c78d6bc64e5 diff --git a/build/i18n-po2lua.pl b/build/i18n-po2lua.pl index c57198fd5..5129055ff 100755 --- a/build/i18n-po2lua.pl +++ b/build/i18n-po2lua.pl @@ -10,67 +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 $content = 0; - my ( $lang, $basename ) = $file =~ m{.+/(\w+)/([^/]+)\.po$}; - $lang = lc $lang; - $lang =~ s/_/-/g; - - if( open D, "> $target_dir/$basename.$lang.lua" ) - { - printf "Generating %-40s ", "$target_dir/$basename.$lang.lua"; - - my ( $k, $v ); - - while( chomp( my $line = readline L ) || ( defined($k) && defined($v) ) ) - { - if( $line =~ /^msgid "(.+)"/ ) - { - $k = $1; - } - elsif( $k && $line =~ /^msgstr "(.*)"/ ) - { - $v = $1; - } - elsif( $k && defined($v) && $line =~ /^"(.+)"/ ) - { - $v .= $1; - } - else - { - if( $k && defined($v) && length($v) > 0 ) - { - $v =~ s/\\(['"\\])/$1/g; - $v =~ s/(['\\])/\\$1/g; - - printf D "%s='%s'\n", $k, $v; - $content++; - } - - $k = $v = undef; - } - } - - print $content ? "done ($content strings)\n" : "empty\n"; - - close D; - - - unlink("$target_dir/$basename.$lang.lua") - unless( $content > 0 ); - } + 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;