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

Use strict and warnings.

Browse Source 
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@38264 a592a061-630c-0410-9148-cb99ea01b6c8
This commit is contained in:
Richard Heck 2011-04-05 22:13:48 +00:00
parent 1856b0a6df
commit c294f1f623
1 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
po/pocheck.pl
View File

@ -18,23 +18,30 @@
# Invocation:
# pocheck.pl po_file po_file ...
foreach $pofilename ( @ARGV )
use strict;
use warnings;
my %trans;
foreach my $pofilename ( @ARGV )
{
print "Processing po file '$pofilename'...\n";
open( INPUT, "<$pofilename" )
|| die "Cannot read po file '$pofilename'";
@pofile = <INPUT>;
my @pofile = <INPUT>;
close( INPUT );
undef( %trans );
keys( %trans ) = 10000;
$noOfLines = $#pofile;
my $noOfLines = $#pofile;
$warn = 0;
my $warn = 0;
my $i = 0;
my ($msgid, $msgstr, $more);
$i = 0;
while ($i <= $noOfLines) {
( $msgid ) = ( $pofile[$i] =~ m/^msgid "(.*)"/ );
$i++;
@ -61,16 +68,16 @@ foreach $pofilename ( @ARGV )
next if ($msgid eq "" or $msgstr eq "");
# Check for matching %1$s, etc.
@argstrs = ( $msgid =~ m/%(\d)\$s/g );
my @argstrs = ( $msgid =~ m/%(\d)\$s/g );
if (@argstrs) {
$num = 0;
foreach $arg (@argstrs) { $num = $arg if $arg > $num; }
if ($num <= 0) {
my $n = 0;
foreach my $arg (@argstrs) { $n = $arg if $arg > $n; }
if ($n <= 0) {
print "Problem finding arguments in:\n $msgid!\n";
$warn++;
} else {
foreach $i (1..$num) {
$arg = "%$i\\\$s";
foreach my $i (1..$n) {
my $arg = "%$i\\\$s";
if ( $msgstr !~ m/$arg/ ) {
print "Missing argument `$arg'\n '$msgid' ==> '$msgstr'\n";
$warn++;
@ -117,8 +124,8 @@ foreach $pofilename ( @ARGV )
# we now collect these translations in a hash.
# this will allow us to check below if we have translated
# anything more than one way.
$msgid_clean = lc($msgid);
$msgstr_clean = lc($msgstr);
my $msgid_clean = lc($msgid);
my $msgstr_clean = lc($msgstr);
$msgid_clean =~ s/(.*)\|.*?$/$1/; # strip menu shortcuts
$msgstr_clean =~ s/(.*)\|.*?$/$1/;
@ -134,9 +141,9 @@ foreach $pofilename ( @ARGV )
foreach $msgid ( keys %trans ) {
# so $ref is a reference to the inner hash.
$ref = $trans{$msgid};
my $ref = $trans{$msgid};
# @msgstrkeys is an array of the keys of that inner hash.
@msgstrkeys = keys %$ref;
my @msgstrkeys = keys %$ref;
# do we have more than one such key?
if ( $#msgstrkeys > 0 ) {