PrivateCoffee/element-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 3

track entries that exist in en_EN but not in the src...

Browse source
This commit is contained in:
Matthew Hodgson 2017-05-27 18:35:34 +01:00
parent 3703306a9e
commit 8d79ab6ce2
1 changed files with 29 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
scripts/check-i18n.pl
View file

@ -18,10 +18,12 @@ my $srcdir = abs_path($1."/../src");
my $en = read_i18n($i18ndir."/en_EN.json");
my $src_strings = read_src_strings($srcdir);
my $src = {};
print "Checking strings in src\n";
foreach my $tuple (@$src_strings) {
my ($s, $file) = (@$tuple);
$src->{$s} = $file;
if (!$en->{$s}) {
if ($en->{$s . '.'}) {
printf ("%50s %24s\t%s\n", $file, "en_EN has fullstop!", $s);
@ -38,6 +40,29 @@ foreach my $tuple (@$src_strings) {
}
}
print "\nChecking en_EN\n";
my $count = 0;
foreach my $k (sort keys %$en) {
if (!$src->{$k}) {
if ($src->{$k. '.'}) {
printf ("%50s %24s\t%s\n", $src->{$k. '.'}, "src has fullstop!", $k);
}
else {
$k =~ /^(.*)\.?$/;
if ($src->{$1}) {
printf ("%50s %24s\t%s\n", $src->{$1}, "src lacks fullstop!", $k);
}
else {
printf ("%50s %24s\t%s\n", '???', "Not present in src?", $k);
}
}
}
else {
$count++;
}
}
printf ("$count/" . (scalar keys %$src) . " strings found in src are present in en_EN\n");
opendir(DIR, $i18ndir) || die $!;
my @files = readdir(DIR);
closedir(DIR);
@ -50,23 +75,23 @@ foreach my $lang (grep { -f "$i18ndir/$_" && !/en_EN\.json/ } @files) {
foreach my $k (sort keys %$map) {
if ($en->{$k}) {
if ($map->{$k} eq $k) {
printf ("%10s %24s\t%s\n", $lang, "Untranslated string?", "$k");
printf ("%10s %24s\t%s\n", $lang, "Untranslated string?", $k);
}
$count++;
}
else {
if ($en->{$k . "."}) {
printf ("%10s %24s\t%s\n", $lang, "en_EN has fullstop!", "$k");
printf ("%10s %24s\t%s\n", $lang, "en_EN has fullstop!", $k);
next;
}
$k =~ /^(.*)\.?$/;
if ($en->{$1}) {
printf ("%10s %24s\t%s\n", $lang, "en_EN lacks fullstop!", "$k");
printf ("%10s %24s\t%s\n", $lang, "en_EN lacks fullstop!", $k);
next;
}
printf ("%10s %24s\t%s\n", $lang, "Not present in en_EN", "$k");
printf ("%10s %24s\t%s\n", $lang, "Not present in en_EN", $k);
}
}