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;