Mercurial > pidgin.yaz

comparison po/stats.pl @ 20234:a02994afdb43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
applied changes from 4dd446ee59f869036e9065d0f45270444f319f1d through f6deeedd3d31f0863466fff4c81816aee12122a6
author Richard Laager <rlaager@wiktel.com>
date Fri, 28 Sep 2007 15:53:36 +0000
parents 44b4e8bd759b
children 6d15c55ef3cd
comparison
equal deleted inserted replaced
20233:ef5cdffa31d4 20234:a02994afdb43
61 foreach $index (0 .. $#pos) { 61 foreach $index (0 .. $#pos) {
62 $trans = $fuzz = $untrans = 0; 62 $trans = $fuzz = $untrans = 0;
63 $po = $pos[$index]; 63 $po = $pos[$index];
64 print STDERR "$po..." if($ARGV[0] eq '-v'); 64 print STDERR "$po..." if($ARGV[0] eq '-v');
65 system("msgmerge $po.po $PACKAGE.pot -o $po.new 2>/dev/null"); 65 system("msgmerge $po.po $PACKAGE.pot -o $po.new 2>/dev/null");
66 if (($? & 127) == 2) {
67 printf STDERR "Caught keyboard interrupt--exiting\n";
68 exit
69 }
66 $_ = `msgfmt --statistics $po.new -o /dev/null 2>&1`; 70 $_ = `msgfmt --statistics $po.new -o /dev/null 2>&1`;
67 chomp; 71 chomp;
68 if(/(\d+) translated message/) { $trans = $1; } 72 if(/(\d+) translated message/) { $trans = $1; }
69 if(/(\d+) fuzzy translation/) { $fuzz = $1; } 73 if(/(\d+) fuzzy translation/) { $fuzz = $1; }
70 if(/(\d+) untranslated message/) { $untrans = $1; } 74 if(/(\d+) untranslated message/) { $untrans = $1; }