-q: Check Qt shortcuts
-s: Check for space at end
-t: Check for uniform translation
-This option can be given with or without other options.
+These options can be given with or without other options.
+-f: Ignore fuzzy translations
-w: Only report summary total of errors
+-i: Silent mode, report only errors
EOT
my %options;
-getopts(":hacmpqstw", \%options);
+getopts(":hacfmpqstwi", \%options);
if (defined($options{h})) {
print $usage;
my $only_total = defined($options{w});
delete $options{w} if $only_total;
+my $ignore_fuzzy = defined($options{f});
+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_colons = (!%options or defined($options{c}));
-my $check_spaces = (!%options or defined($options{m}));
+my $check_spaces = (!%options or defined($options{s}));
my $check_periods = (!%options or defined($options{p}));
my $check_qt = (!%options or defined($options{q}));
-my $check_menu = (!%options or defined($options{s}));
+my $check_menu = (!%options or defined($options{m}));
my $check_trans = (!%options or defined($options{t}));
my %trans;
foreach my $pofilename ( @ARGV ) {
my %bad;
- print "Processing po file '$pofilename'...\n";
+ if (!$silent_mode) {
+ print "Processing po file '$pofilename'...\n";
+ }
open( INPUT, "<$pofilename" )
|| die "Cannot read po file '$pofilename'";
( $msgid ) = ( $pofile[$i] =~ m/^msgid "(.*)"/ );
$i++;
next unless $msgid;
+ if ($ignore_fuzzy) {
+ my $previous = $pofile[$i - 2];
+ next if $previous =~ m/#,.*fuzzy/;
+ }
# some msgid's are more than one line long, so add those.
while ( ( $more ) = $pofile[$i] =~ m/^"(.*)"/ ) {
# (surely that is always $msgstr?)
next if ($msgid eq "" or $msgstr eq "");
+ # discard [[...]] from the end of msgid, this is used only as hint to translation
+ $msgid =~ s/\[\[.*\]\]$//;
+
# Check for matching %1$s, etc.
if ($check_args) {
my @argstrs = ( $msgid =~ m/%(\d)\$s/g );
my $n = 0;
foreach my $arg (@argstrs) { $n = $arg if $arg > $n; }
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;
++$bad{"Missing arguments"};
$warn++;
foreach my $i (1..$n) {
my $arg = "%$i\\\$s";
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;
++$bad{"Missing arguments"};
$warn++;
}
}
}
-
- if ($warn) {
- while (my ($k, $v) = each %bad) { print "$k: $v\n"; }
- if (scalar(keys %bad) > 1) {
- print "Total warnings: $warn\n";
+ if (!$silent_mode) {
+ if ($warn) {
+ while (my ($k, $v) = each %bad) { print "$k: $v\n"; }
+ if (scalar(keys %bad) > 1) {
+ print "Total warnings: $warn\n";
+ }
+ } else {
+ print "No warnings!\n";
}
- } else {
- print "No warnings!\n";
+ print "\n";
}
- print "\n";
}