[Hugin-cvs] /hgrepo/h/hu/hugin/hugin: Added fuzzy messges to output

[<hug...@li...>]

branch:    
details:   http://hugin.hg.sourceforge.net/hgweb/hugin/hugin/hgrepo/h/hu/hugin/hugin/rev/473d40945cc4
changeset: 4784:473d40945cc4
user:      Kornel Benko <Kor...@be...>
date:       Wed Dec 29 09:30:32 2010 +0100
description:
Added fuzzy messges to output

diffstat:

 src/translations/diff_po.pl |  33 +++++++++++++++++++++++----------
 1 files changed, 23 insertions(+), 10 deletions(-)

Unterschiede (63 Zeilen):

diff -r 7e78190dbca7 -r 473d40945cc4 src/translations/diff_po.pl
--- a/src/translations/diff_po.pl	Tue Dec 28 18:37:39 2010 +0100
+++ b/src/translations/diff_po.pl	Wed Dec 29 09:30:32 2010 +0100
@@ -21,10 +21,11 @@
 
 my ($status, $foundline, $msgid, $msgstr, $fuzzy);
 
-my %Messages = ();		# Used for original po-file
-my %newMessages = ();		# new po-file
+my %Messages = ();              # Used for original po-file
+my %newMessages = ();           # new po-file
 my %Untranslated = ();          # inside new po-file
-my $result = 0;			# exit value
+my %Fuzzy = ();                 # inside new po-file
+my $result = 0;                 # exit value
 
 if (@ARGV != 2) {
   die("Expected exactly 2 parameters");
@@ -43,6 +44,10 @@
     # this is still untranslated string
     $Untranslated{$newMessages{$k}->{line}} = $k;
   }
+  elsif ($newMessages{$k}->{fuzzy}) {
+    #fuzzy string
+    $Fuzzy{$newMessages{$k}->{line}} = $k;
+  }
   if (exists($Messages{$k})) {
     &printIfDiff($k, $Messages{$k}, $newMessages{$k});
     delete($Messages{$k});
@@ -70,14 +75,9 @@
   print "> msgstr = \"" . $newMessages{$k}->{msgstr} . "\"\n";
 }
 
-my @UntranslatedKeys = sort { $a <=> $b;} keys %Untranslated;
+&printExtraMessages("fuzzy", \%Fuzzy);
+&printExtraMessages("untranslated", \%Untranslated);
 
-if (@UntranslatedKeys > 0) {
-  print "Still " . 0 + @UntranslatedKeys . " untranslated messages found in $ARGV[1]\n";
-  for my $l (@UntranslatedKeys) {
-    print "> line $l: \"" . $Untranslated{$l} . "\"\n"; 
-  }
-}
 exit($result);
 
 sub check($$)
@@ -189,3 +189,16 @@
 
   return sort {$rMessages->{$a}->{line} <=> $rMessages->{$b}->{line};} keys %{$rMessages};
 }
+
+sub printExtraMessages($$)
+{
+  my ($type, $rExtra) = @_;
+  my @UntranslatedKeys = sort { $a <=> $b;} keys %{$rExtra};
+
+  if (@UntranslatedKeys > 0) {
+    print "Still " . 0 + @UntranslatedKeys . " $type messages found in $ARGV[1]\n";
+    for my $l (@UntranslatedKeys) {
+      print "> line $l: \"" . $rExtra->{$l} . "\"\n"; 
+    }
+  }
+}