5 use Text::Balanced qw(extract_bracketed extract_delimited extract_tagged);
7 @ARGV >= 1 || die "Usage: $0 <source direcory>\n";
35 if( open F, "find @ARGV -type f '(' -name '*.htm' -o -name '*.lua' ')' |" )
37 while( defined( my $file = readline F ) )
41 if( open S, "< $file" )
50 while( $text =~ s/ ^ .*? (?:translate|translatef|i18n|_) [\n\s]* \( /(/sgx )
52 ( my $code, $text ) = extract_bracketed($text, q{('")});
55 $code =~ s/^\([\n\s]*//;
56 $code =~ s/[\n\s]*\)$//;
61 if( $code =~ /^['"]/ )
65 ( $sub, $code ) = extract_delimited($code, q{'"}, q{\s*(?:\.\.\s*)?});
67 if( length($sub) < 1 ) {
73 $res .= substr $sub, 1, length($sub) - 2;
77 elsif( $code =~ /^(\[=*\[)/ )
79 my $stag = quotemeta $1;
83 ( $res ) = extract_tagged($code, $stag, $etag);
89 $res = dec_lua_str($res);
90 $stringtable{$res}++ if $res;
96 while( $text =~ s/ ^ .*? <% -? [:_] /<%/sgx )
98 ( my $code, $text ) = extract_tagged($text, '<%', '%>');
102 $code = dec_tpl_str(substr $code, 2, length($code) - 4);
103 $stringtable{$code}++;
113 if( open C, "| msgcat -" )
115 printf C "msgid \"\"\nmsgstr \"Content-Type: text/plain; charset=UTF-8\"\n\n";
117 foreach my $key ( sort keys %stringtable )
122 printf C "msgid \"%s\"\nmsgstr \"\"\n\n", $key;