cst1/openstreetmap-website
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add --untranslated-values to spot things that haven't been translated

Browse source
This commit is contained in:
Ævar Arnfjörð Bjarmason 2009-06-22 16:27:40 +00:00
parent d3dd0229cb
commit 9721a9a96e
1 changed files with 40 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
script/locale/diff
View file

@ -30,6 +30,18 @@ translated files when F<en.yml> changes.
Print this help message.
=item --diff-keys
Show the hash keys that differ between the two files, useful merging
new entries from F<en.yml> to a local file.
=item --untranslated-values
Show keys whose values are either exactly the same between the two
files, or don't exist in the target file (the latter file specified).
This helps to find untranslated values.
=back
=head1 AUTHOR
@ -43,6 +55,8 @@ Getopt::Long::Parser->new(
config => [ qw< bundling no_ignore_case no_require_order pass_through > ],
)->getoptions(
'h|help' => \my $help,
'diff-keys' => \my $diff_keys,
'undiff-values' => \my $undiff_values,
) or help();
# On --help
@ -59,18 +73,36 @@ my $to_data = LoadFile($to);
my $from_parsed = { iterate($from_data->{basename($from)}) };
my $to_parsed = { iterate($to_data->{basename($to)}) };
# Delete hash values
#walkdepth \&delete_hash_values, $_ for $from_data, $to_data;
# Since this used to be the default, support that...
if ((not $undiff_values and not $diff_keys) or $diff_keys)
{
print_key_differences();
}
elsif ($undiff_values)
{
my @untranslated = untranslated_keys($from_parsed, $to_parsed);
# Hack around Test::Differences wanting a Test::* module loaded
$INC{"Test.pm"} = 1;
sub Test::ok { print shift }
# Diff the tree
eq_or_diff([ sort keys %$from_parsed ], [ sort keys %$to_parsed ]);
print $_, "\n" for @untranslated;
}
exit 0;
sub print_key_differences
{
# Hack around Test::Differences wanting a Test::* module loaded
$INC{"Test.pm"} = 1;
sub Test::ok { print shift }
# Diff the tree
eq_or_diff([ sort keys %$from_parsed ], [ sort keys %$to_parsed ]);
}
sub untranslated_keys
{
my ($from_parsed, $to_parsed) = @_;
sort grep { not exists $to_parsed->{$_} or $from_parsed->{$_} eq $to_parsed->{$_} } keys %$from_parsed;
}
sub iterate
{
my ($hash, @path) = @_;