track broken i18n files

This commit is contained in:
Matthew Hodgson 2017-05-27 17:27:58 +01:00
parent 44f8ee44e6
commit e684cd5d28

View file

@ -20,18 +20,19 @@ my $en = read_i18n($i18ndir."/en_EN.json");
my $src_strings = read_src_strings($srcdir); my $src_strings = read_src_strings($srcdir);
print "Checking strings in src\n"; print "Checking strings in src\n";
foreach my $s (@$src_strings) { foreach my $tuple (@$src_strings) {
my ($s, $file) = (@$tuple);
if (!$en->{$s}) { if (!$en->{$s}) {
if ($en->{$s . '.'}) { if ($en->{$s . '.'}) {
printf ("%10s %24s\t%s\n", "src", "en_EN has fullstop!", "$s"); printf ("%50s %24s\t%s\n", $file, "en_EN has fullstop!", $s);
} }
else { else {
$s =~ /^(.*)\.?$/; $s =~ /^(.*)\.?$/;
if ($en->{$1}) { if ($en->{$1}) {
printf ("%10s %24s\t%s\n", "src", "en_EN lacks fullstop!", "$s"); printf ("%50s %24s\t%s\n", $file, "en_EN lacks fullstop!", $s);
} }
else { else {
printf ("%10s %24s\t%s\n", "src", "Translation missing!", "$s"); printf ("%50s %24s\t%s\n", $file, "Translation missing!", $s);
} }
} }
} }
@ -101,13 +102,14 @@ sub read_src_strings {
find( sub { push @files, $File::Find::name if (-f $_ && /\.jsx?$/) }, $path ); find( sub { push @files, $File::Find::name if (-f $_ && /\.jsx?$/) }, $path );
foreach my $file (@files) { foreach my $file (@files) {
my $src = read_file($file); my $src = read_file($file);
$file =~ s/^.*\/src/src/;
while ($src =~ /_t\(\s*'(.*?[^\\])'/sg) { while ($src =~ /_t\(\s*'(.*?[^\\])'/sg) {
my $s = $1; my $s = $1;
$s =~ s/\\'/'/g; $s =~ s/\\'/'/g;
push @$strings, $s; push @$strings, [$s, $file];
} }
while ($src =~ /_t\(\s*"(.*?[^\\])"/sg) { while ($src =~ /_t\(\s*"(.*?[^\\])"/sg) {
push @$strings, $1; push @$strings, [$1, $file];
} }
} }