Changeset 19496 in osm for applications/editors/josm/i18n/i18n.pl

Timestamp:

2010-01-13T19:40:10+01:00 (17 years ago)

Author:

stoecker

Message:

i18n update

File:

• applications/editors/josm/i18n/i18n.pl (modified) (10 diffs)

applications/editors/josm/i18n/i18n.pl

@@ -7 +7 @@
 
 my $waswarn = 0;
+my $maxcount = 0;
 
 main();
@@ -27 +28 @@
     my $linenum = 0;
 
+    my $cnt = -1; # don't count translators info
     if($file =~ /\/(.._..)\.po$/ || $file =~ /\/(..)\.po$/)
     {
@@ -48 +50 @@
         {
           my ($n, $d) = ($1, $2);
+          ++$cnt if $n eq "msgid";
           my $new = !${postate}{fuzzy} && (($n eq "msgid" && $postate{type} ne "msgctxt") || ($n eq "msgctxt"));
           checkpo(\%postate, \%all, $l, "line $linenum in $file", $keys, $new);
@@ -65 +68 @@
       die "File format not supported for file $file.";
     }
+    $maxcount = $cnt if $cnt > $maxcount;
     close(FILE);
   }
@@ -202 +206 @@
   {
     my $la;
+    my $cnt = 0;
     if($file =~ /[-_](.._..)\.lang$/ || $file =~ /^(?:.*\/)?(.._..)\.lang$/ ||
     $file =~ /[-_](...?)\.lang$/ || $file =~ /^(?:.*\/)?(..)\.lang$/)
     {
-      print "Creating file $file\n";
       $la = $1;
     }
@@ -220 +224 @@
       if($la eq "en")
       {
+        ++$cnt;
         $val = $en;
         $val =~ s/^___(.*)___/_:$1\n/;
@@ -228 +233 @@
         $ennoctx =~ s/^___(.*)___//;
         $val = (exists($data->{$en}{$la})) ? $data->{$en}{$la} : "";
+        ++$cnt if $val;
         $val = "" if($ennoctx eq $val);
       }
@@ -242 +248 @@
       if($la eq "en")
       {
+        ++$cnt;
         $val = $en;
         $val =~ s/^___(.*)___/_:$1\n/;
@@ -249 +256 @@
         $val = (exists($data->{$en}{$la})) ? $data->{$en}{$la} : "";
         --$num if(!$val);
+        ++$cnt if $val;
         if($num == 2)
         {
@@ -268 +276 @@
     }
     close FILE;
+    print "Created file $file: Added $cnt strings out of $maxcount.\n";
   }
 }