From: Jean-Marc Lasgouttes <lasgouttes@lyx.org>
Date: Mon, 28 Apr 2003 14:03:28 +0000 (+0000)
Subject: pocheck update from Michael
X-Git-Tag: 1.6.10~16910
X-Git-Url: https://git.lyx.org/gitweb/?a=commitdiff_plain;h=8acbaf95658c46f7e67b67d4ce7c8546a38c09ef;p=features.git

pocheck update from Michael


git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@6869 a592a061-630c-0410-9148-cb99ea01b6c8
---

diff --git a/po/ChangeLog b/po/ChangeLog
index fe3ec4b4be..abf832b7b5 100644
--- a/po/ChangeLog
+++ b/po/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-28  Michael Schmitt  <Michael.Schmitt@teststep.org>
+
+	* pocheck.pl: do not output several different messages about bad
+	translation for the same word.
+
 2003-04-09  John Levon  <levon@movementarian.org>
 
 	* Makefile.in.in: translate the toolbar name
diff --git a/po/pocheck.pl b/po/pocheck.pl
index c1bb637766..365800acfc 100755
--- a/po/pocheck.pl
+++ b/po/pocheck.pl
@@ -55,35 +55,35 @@ foreach $pofilename ( @ARGV )
 
         # Check colon at the end of a message
         if ( ( $msgid =~ m/: *(\|.*)?$/ ) != ( $msgstr =~ m/: *(\|.*)?$/ ) ) {
-          print( "Missing or redundant colon:\n" );
+          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 redundant period:\n" );
+        #  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 redundant space:\n" );
+          print( "Missing or unexpected space:\n" );
           print( "  '$msgid' => '$msgstr'\n" );
           $warn++;
         }
 
         # Check for "&" shortcuts
         if ( ( $msgid =~ m/&[^ ]/ ) != ( $msgstr =~ m/&[^ ]/ ) ) {
-          print( "Missing or redundant QT shortcut:\n" );
+          print( "Missing or unexpected Qt shortcut:\n" );
           print( "  '$msgid' => '$msgstr'\n" );
           $warn++;
         }
 
         # Check for "|..." shortcut(s)
         if ( ( $msgid =~ m/\|[^ ]/ ) != ( $msgstr =~ m/\|[^ ]/ ) ) {
-          print( "Missing or redundant xforms shortcut:\n" );
+          print( "Missing or unexpected xforms shortcut:\n" );
           print( "  '$msgid' => '$msgstr'\n" );
           $warn++;
         }
@@ -96,18 +96,25 @@ foreach $pofilename ( @ARGV )
         $msgstr_clean =~ s/|.*?$//;
         $msgstr_clean =~ s/&([^ ])/$1/; 
 
-        if ( defined( $trans{$msgid_clean} ) && $msgstr_clean ne $trans{$msgid_clean}{'msgstr_clean'} ) {
-          print( "Different translations for '$msgid_clean':\n" );
-          print( "  '$msgid' => '$msgstr'\n" );
-          print( "  '$trans{$msgid_clean}{'msgid'}' => '$trans{$msgid_clean}{'msgstr'}'\n" );
-          $warn++;
-        } else {
-          $trans{$msgid_clean} = { 'msgid' => $msgid, 'msgstr' => $msgstr, 'msgstr_clean' => $msgstr_clean };
-        }
+        $trans{$msgid_clean}{$msgstr_clean} = [ $msgid, $msgstr ];
       }
     } else {
       $i++;
     }
   }
+
+  foreach $msgid ( keys %trans ) {
+    $ref = $trans{$msgid};
+    @msgstrkeys = keys %$ref;
+
+    if ( $#msgstrkeys > 0 ) {
+      print( "Different translations for '$msgid':\n" );
+      foreach $msgstr ( @msgstrkeys ) {
+        print( "  '" . $trans{$msgid}{$msgstr}[0] . "' => '" . $trans{$msgid}{$msgstr}[1] . "'\n" );
+      }
+      $warn++;
+    }
+  }
+
   print( "\nTotal number of warnings: $warn\n\n" );
 }