From 16a36a117d944776e9b863bd30f08fa4402dcc4b Mon Sep 17 00:00:00 2001 From: "Robert C. Helling" Date: Sun, 18 Oct 2015 17:16:46 +0200 Subject: A perl script to check format strings in translations This script can be called on translations files, e.g. > scripts/checktranslation.pl translations/*ts and will report if the number of % signs in source and translation differ. It finds quite a few issues that need to be investigated. Signed-off-by: Robert C. Helling Signed-off-by: Dirk Hohndel --- scripts/checktranslation.pl | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100755 scripts/checktranslation.pl (limited to 'scripts') diff --git a/scripts/checktranslation.pl b/scripts/checktranslation.pl new file mode 100755 index 000000000..0324ad88a --- /dev/null +++ b/scripts/checktranslation.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl -CS + +use strict; +use utf8; +use XML::TreeBuilder; + +foreach my $file_name (@ARGV) { + my $tree = XML::TreeBuilder->new({'NoExpand' => 0, 'ErrorContext' => 0}); + $tree->parse_file($file_name, ProtocolEncoding => 'UTF-8'); + foreach my $string ($tree->find_by_tag_name('message')) { + my $source = $string->find_by_tag_name('source')->as_text; + my $translation = $string->find_by_tag_name('translation')->as_text; + next unless $translation =~ /\S/; + my @source_args = ($source =~ /\%([^\s\-\(\)])/g); + my @translation_args = ($translation =~ /\%([^\s\-\(\)])/g); + if (scalar(@source_args) != scalar(@translation_args)) { + print "$file_name:\n$source\n->\n$translation\n\n"; + } + } +} -- cgit v1.2.3-70-g09d2