129 lines
2.1 KiB
Perl
Executable File
129 lines
2.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Text::Balanced qw(extract_bracketed extract_delimited extract_tagged);
|
|
|
|
@ARGV >= 1 || die "Usage: $0 <source directory>\n";
|
|
|
|
|
|
my %stringtable;
|
|
|
|
sub dec_lua_str
|
|
{
|
|
my $s = shift;
|
|
$s =~ s/[\s\n]+/ /g;
|
|
$s =~ s/\\n/\n/g;
|
|
$s =~ s/\\t/\t/g;
|
|
$s =~ s/\\(.)/$1/g;
|
|
$s =~ s/^ //;
|
|
$s =~ s/ $//;
|
|
return $s;
|
|
}
|
|
|
|
sub dec_tpl_str
|
|
{
|
|
my $s = shift;
|
|
$s =~ s/-$//;
|
|
$s =~ s/[\s\n]+/ /g;
|
|
$s =~ s/^ //;
|
|
$s =~ s/ $//;
|
|
$s =~ s/\\/\\\\/g;
|
|
return $s;
|
|
}
|
|
|
|
|
|
if( open F, "find @ARGV -type f '(' -name '*.html' -o -name '*.lua' ')' |" )
|
|
{
|
|
while( defined( my $file = readline F ) )
|
|
{
|
|
chomp $file;
|
|
|
|
if( open S, "< $file" )
|
|
{
|
|
local $/ = undef;
|
|
my $raw = <S>;
|
|
close S;
|
|
|
|
|
|
my $text = $raw;
|
|
|
|
while( $text =~ s/ ^ .*? (?:translate|translatef|_) [\n\s]* \( /(/sgx )
|
|
{
|
|
( my $code, $text ) = extract_bracketed($text, q{('")});
|
|
|
|
$code =~ s/\\\n/ /g;
|
|
$code =~ s/^\([\n\s]*//;
|
|
$code =~ s/[\n\s]*\)$//;
|
|
|
|
my $res = "";
|
|
my $sub = "";
|
|
|
|
if( $code =~ /^['"]/ )
|
|
{
|
|
while( defined $sub )
|
|
{
|
|
( $sub, $code ) = extract_delimited($code, q{'"}, q{\s*(?:\.\.\s*)?});
|
|
|
|
if( defined $sub && length($sub) > 2 )
|
|
{
|
|
$res .= substr $sub, 1, length($sub) - 2;
|
|
}
|
|
else
|
|
{
|
|
undef $sub;
|
|
}
|
|
}
|
|
}
|
|
elsif( $code =~ /^(\[=*\[)/ )
|
|
{
|
|
my $stag = quotemeta $1;
|
|
my $etag = $stag;
|
|
$etag =~ s/\[/]/g;
|
|
|
|
( $res ) = extract_tagged($code, $stag, $etag);
|
|
|
|
$res =~ s/^$stag//;
|
|
$res =~ s/$etag$//;
|
|
}
|
|
|
|
$res = dec_lua_str($res);
|
|
$stringtable{$res}++ if $res;
|
|
}
|
|
|
|
|
|
$text = $raw;
|
|
|
|
while( $text =~ s/ ^ .*? <% -? [:_] /<%/sgx )
|
|
{
|
|
( my $code, $text ) = extract_tagged($text, '<%', '%>');
|
|
|
|
if( defined $code )
|
|
{
|
|
$code = dec_tpl_str(substr $code, 2, length($code) - 4);
|
|
$stringtable{$code}++;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
close F;
|
|
}
|
|
|
|
|
|
if( open C, "| msgcat -" )
|
|
{
|
|
printf C "msgid \"\"\nmsgstr \"Content-Type: text/plain; charset=UTF-8\"\n\n";
|
|
|
|
foreach my $key ( sort keys %stringtable )
|
|
{
|
|
if( length $key )
|
|
{
|
|
$key =~ s/"/\\"/g;
|
|
printf C "msgid \"%s\"\nmsgstr \"\"\n\n", $key;
|
|
}
|
|
}
|
|
|
|
close C;
|
|
}
|