- 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 ) )
- {
- 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 );
- }