77 lines
1.3 KiB
Perl
Executable file
77 lines
1.3 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
@ARGV == 2 || die "Usage: $0 <source-dir> <dest-dir>\n";
|
|
|
|
my $source_dir = shift @ARGV;
|
|
my $target_dir = shift @ARGV;
|
|
|
|
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 );
|
|
}
|
|
|
|
close L;
|
|
}
|
|
}
|
|
|
|
close F;
|
|
}
|