anne/lyx_mirror
1
0
Fork 0
mirror of https://git.lyx.org/repos/lyx.git synced 2024-11-09 18:31:04 +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

25
po/pocheck.pl
View File

@ -36,22 +36,29 @@ foreach $pofilename ( @ARGV )
$i = 0;
while ($i <= $noOfLines) {
if ( ( $msgid ) = ( $pofile[$i] =~ m/^msgid "(.*)"/ ) ) {
( $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++;
}
if ( $msgid ne "" && $msgstr ne "" ) {
# 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/: *(\|.*)?$/ ) ) {
@ -88,6 +95,9 @@ foreach $pofilename ( @ARGV )
$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);
@ -96,17 +106,20 @@ foreach $pofilename ( @ARGV )
$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 ];
}
} else {
$i++;
}
}
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 ) {