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

Clean up and add soem comments to pocheck.pl.

Browse Source 
It wouldn't be a bad thing to port this to Python....



git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@38262 a592a061-630c-0410-9148-cb99ea01b6c8
This commit is contained in:
Richard Heck 2011-04-05 21:48:55 +00:00
parent 895abdd712
commit 772262ca3d
1 changed files with 76 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

139
po/pocheck.pl
View File

@ -36,77 +36,90 @@ foreach $pofilename ( @ARGV )
$i = 0;
while ($i <= $noOfLines) {
if ( ( $msgid ) = ( $pofile[$i] =~ m/^msgid "(.*)"/ ) ) {
$i++;
while ( ( $more ) = $pofile[$i] =~ m/^"(.*)"/ ) {
$msgid = $msgid . $more;
$i++;
}
until ( ( $msgstr ) = ( $pofile[$i] =~ m/^msgstr "(.*)"/ ) ) { $i++; };
$i++;
while ( ( $i <= $noOfLines ) &&
( ( $more ) = $pofile[$i] =~ m/^"(.*)"/ ) ) {
$msgstr = $msgstr . $more;
$i++;
}
if ( $msgid ne "" && $msgstr ne "" ) {
# Check colon at the end of a message
if ( ( $msgid =~ m/: *(\|.*)?$/ ) != ( $msgstr =~ m/: *(\|.*)?$/ ) ) {
print( "Missing or unexpected colon:\n" );
print( " '$msgid' => '$msgstr'\n" );
$warn++;
}
# Check period at the end of a message; uncomment code if you are paranoid
#if ( ( $msgid =~ m/\. *(\|.*)?$/ ) != ( $msgstr =~ m/\. *(\|.*)?$/ ) ) {
# print( "Missing or unexpected period:\n" );
# print( " '$msgid' => '$msgstr'\n" );
# $warn++;
#}
# Check space at the end of a message
if ( ( $msgid =~ m/ *?(\|.*)?$/ ) != ( $msgstr =~ m/ *?(\|.*)?$/ ) ) {
print( "Missing or unexpected space:\n" );
print( " '$msgid' => '$msgstr'\n" );
$warn++;
}
# Check for "&" shortcuts
if ( ( $msgid =~ m/&[^ ]/ ) != ( $msgstr =~ m/&[^ ]/ ) ) {
print( "Missing or unexpected Qt shortcut:\n" );
print( " '$msgid' => '$msgstr'\n" );
$warn++;
}
# Check for "|..." shortcuts
if ( ( $msgid =~ m/\|[^ ]/ ) != ( $msgstr =~ m/\|[^ ]/ ) ) {
print( "Missing or unexpected menu shortcut:\n" );
print( " '$msgid' => '$msgstr'\n" );
$warn++;
}
$msgid_clean = lc($msgid);
$msgstr_clean = lc($msgstr);
$msgid_clean =~ s/(.*)\|.*?$/$1/; # strip menu shortcuts
$msgstr_clean =~ s/(.*)\|.*?$/$1/;
$msgid_clean =~ s/&([^ ])/$1/; # strip Qt shortcuts
$msgstr_clean =~ s/&([^ ])/$1/;
$trans{$msgid_clean}{$msgstr_clean} = [ $msgid, $msgstr ];
}
} else {
( $msgid ) = ( $pofile[$i] =~ m/^msgid "(.*)"/ );
$i++;
next unless $msgid;
# some msgid's are more than one line long, so add those.
while ( ( $more ) = $pofile[$i] =~ m/^"(.*)"/ ) {
$msgid = $msgid . $more;
$i++;
}
# now look for the associated msgstr.
until ( ( $msgstr ) = ( $pofile[$i] =~ m/^msgstr "(.*)"/ ) ) { $i++; };
$i++;
# again collect any extra lines.
while ( ( $i <= $noOfLines ) &&
( ( $more ) = $pofile[$i] =~ m/^"(.*)"/ ) ) {
$msgstr = $msgstr . $more;
$i++;
}
# nothing to do if one of them is empty.
# (surely that is always $msgstr?)
next if ($msgid eq "" or $msgstr eq "");
# Check colon at the end of a message
if ( ( $msgid =~ m/: *(\|.*)?$/ ) != ( $msgstr =~ m/: *(\|.*)?$/ ) ) {
print( "Missing or unexpected colon:\n" );
print( " '$msgid' => '$msgstr'\n" );
$warn++;
}
# Check period at the end of a message; uncomment code if you are paranoid
#if ( ( $msgid =~ m/\. *(\|.*)?$/ ) != ( $msgstr =~ m/\. *(\|.*)?$/ ) ) {
# print( "Missing or unexpected period:\n" );
# print( " '$msgid' => '$msgstr'\n" );
# $warn++;
#}
# Check space at the end of a message
if ( ( $msgid =~ m/ *?(\|.*)?$/ ) != ( $msgstr =~ m/ *?(\|.*)?$/ ) ) {
print( "Missing or unexpected space:\n" );
print( " '$msgid' => '$msgstr'\n" );
$warn++;
}
# Check for "&" shortcuts
if ( ( $msgid =~ m/&[^ ]/ ) != ( $msgstr =~ m/&[^ ]/ ) ) {
print( "Missing or unexpected Qt shortcut:\n" );
print( " '$msgid' => '$msgstr'\n" );
$warn++;
}
# Check for "|..." shortcuts
if ( ( $msgid =~ m/\|[^ ]/ ) != ( $msgstr =~ m/\|[^ ]/ ) ) {
print( "Missing or unexpected menu shortcut:\n" );
print( " '$msgid' => '$msgstr'\n" );
$warn++;
}
# 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);
$msgid_clean =~ s/(.*)\|.*?$/$1/; # strip menu shortcuts
$msgstr_clean =~ s/(.*)\|.*?$/$1/;
$msgid_clean =~ s/&([^ ])/$1/; # strip Qt shortcuts
$msgstr_clean =~ s/&([^ ])/$1/;
# this is a hash of hashes. the keys of the outer hash are
# cleaned versions of ORIGINAL strings. the keys of the inner hash
# are the cleaned versions of their TRANSLATIONS. The value for the
# inner hash is an array of the orignal string and translation.
$trans{$msgid_clean}{$msgstr_clean} = [ $msgid, $msgstr ];
}
foreach $msgid ( keys %trans ) {
# so $ref is a reference to the inner hash.
$ref = $trans{$msgid};
# @msgstrkeys is an array of the keys of that inner hash.
@msgstrkeys = keys %$ref;
# do we have more than one such key?
if ( $#msgstrkeys > 0 ) {
print( "Different translations for '$msgid':\n" );
foreach $msgstr ( @msgstrkeys ) {