47 lines
783 B
Perl
47 lines
783 B
Perl
use strict;
|
|
use warnings;
|
|
|
|
package StringExtract::JSCode;
|
|
|
|
use StringExtract::Utils;
|
|
|
|
use Regexp::Common qw(delimited);
|
|
|
|
our $data = {
|
|
|
|
file_roots => [
|
|
'binaries/data/mods/official/gui',
|
|
],
|
|
|
|
file_types => qr/\.js$/i,
|
|
|
|
readfile_func => sub { extract(StringExtract::Utils::read_text(@_)); },
|
|
};
|
|
|
|
sub extract {
|
|
my ($data, $text) = @_;
|
|
|
|
return unless defined $text;
|
|
|
|
$text = StringExtract::Utils::strip_comments($text, 'Java');
|
|
|
|
my @strings;
|
|
|
|
while ($text =~ /translate\s*\(\s*($RE{delimited}{-delim=>'"'})/g) {
|
|
my $str = $1;
|
|
# Remove surrounding quotes
|
|
$str =~ s/^"(.*)"$/$1/;
|
|
# Translate \" sequences
|
|
$str =~ s/\\"/"/g;
|
|
# and \n
|
|
$str =~ s/\\n/\n/g;
|
|
# and \\
|
|
$str =~ s/\\\\/\\/g;
|
|
|
|
push @strings, [ "phrase:".$1, "GUI script" ];
|
|
}
|
|
|
|
return @strings;
|
|
}
|
|
|
|
1; |