anne/lyx_mirror
1
0
Fork 0
mirror of https://git.lyx.org/repos/lyx.git synced 2024-11-22 10:00:33 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* pocheck.pl, allow synoptical check for critical bugs in translations.

Browse Source 
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@38275 a592a061-630c-0410-9148-cb99ea01b6c8
This commit is contained in:
Pavel Sanda 2011-04-06 10:17:51 +00:00
parent 2911d4e771
commit fa674176fd
1 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
po/pocheck.pl
View File

@ -27,12 +27,13 @@ options is given, in which case we checks only for those requested.
-s: Check for space at end -s: Check for space at end
-t: Check for uniform translation -t: Check for uniform translation
These options can be given with or without other options. These options can be given with or without other options.
-f: Ignore fuzzy translations. -f: Ignore fuzzy translations
-w: Only report summary total of errors -w: Only report summary total of errors
-i: Silent mode, report only errors
EOT EOT
my %options; my %options;
getopts(":hacfmpqstw", \%options); getopts(":hacfmpqstwi", \%options);
if (defined($options{h})) { if (defined($options{h})) {
print $usage; print $usage;
@ -43,6 +44,8 @@ my $only_total = defined($options{w});
delete $options{w} if $only_total; delete $options{w} if $only_total;
my $ignore_fuzzy = defined($options{f}); my $ignore_fuzzy = defined($options{f});
delete $options{f} if $ignore_fuzzy; delete $options{f} if $ignore_fuzzy;
my $silent_mode = defined($options{i});
delete $options{i} if $silent_mode;
my $check_args = (!%options or defined($options{a})); my $check_args = (!%options or defined($options{a}));
my $check_colons = (!%options or defined($options{c})); my $check_colons = (!%options or defined($options{c}));
@ -56,7 +59,9 @@ my %trans;
foreach my $pofilename ( @ARGV ) { foreach my $pofilename ( @ARGV ) {
my %bad; my %bad;
print "Processing po file '$pofilename'...\n"; if (!$silent_mode) {
print "Processing po file '$pofilename'...\n";
}
open( INPUT, "<$pofilename" ) open( INPUT, "<$pofilename" )
|| die "Cannot read po file '$pofilename'"; || die "Cannot read po file '$pofilename'";
@ -110,7 +115,7 @@ foreach my $pofilename ( @ARGV ) {
my $n = 0; my $n = 0;
foreach my $arg (@argstrs) { $n = $arg if $arg > $n; } foreach my $arg (@argstrs) { $n = $arg if $arg > $n; }
if ($n <= 0) { if ($n <= 0) {
print "Line $linenum: Problem finding arguments in:\n $msgid!\n" print "$pofilename, line $linenum: Problem finding arguments in:\n $msgid!\n"
unless $only_total; unless $only_total;
++$bad{"Missing arguments"}; ++$bad{"Missing arguments"};
$warn++; $warn++;
@ -118,7 +123,7 @@ foreach my $pofilename ( @ARGV ) {
foreach my $i (1..$n) { foreach my $i (1..$n) {
my $arg = "%$i\\\$s"; my $arg = "%$i\\\$s";
if ( $msgstr !~ m/$arg/ ) { if ( $msgstr !~ m/$arg/ ) {
print "Line $linenum: Missing argument `$arg'\n '$msgid' ==> '$msgstr'\n" print "$pofilename, line $linenum: Missing argument `$arg'\n '$msgid' ==> '$msgstr'\n"
unless $only_total; unless $only_total;
++$bad{"Missing arguments"}; ++$bad{"Missing arguments"};
$warn++; $warn++;
@ -220,14 +225,15 @@ foreach my $pofilename ( @ARGV ) {
} }
} }
} }
if (!$silent_mode) {
if ($warn) { if ($warn) {
while (my ($k, $v) = each %bad) { print "$k: $v\n"; } while (my ($k, $v) = each %bad) { print "$k: $v\n"; }
if (scalar(keys %bad) > 1) { if (scalar(keys %bad) > 1) {
print "Total warnings: $warn\n"; print "Total warnings: $warn\n";
}
} else {
print "No warnings!\n";
} }
} else { print "\n";
print "No warnings!\n";
} }
print "\n";
} }