Skip to content

Commit

Permalink
add translatation statistics script
Browse files Browse the repository at this point in the history
git-svn-id: http://svn.osgeo.org/qgis/trunk/qgis@10294 c8812cc2-4d05-0410-92ff-de0c093fc19c
  • Loading branch information
jef committed Mar 19, 2009
1 parent b05f5ea commit 913cb37
Showing 1 changed file with 46 additions and 0 deletions.
46 changes: 46 additions & 0 deletions scripts/tsstat.pl
Original file line number Diff line number Diff line change
@@ -0,0 +1,46 @@
#!/usr/bin/perl

use strict;
use Locale::Language;
use Locale::Country;

print "Language;Count;Translated;Translated_finished;translated_unfinished;untranslated;part\n";

for my $i (<i18n/qgis_*.ts>) {
my ($langcode) = $i =~ /i18n\/qgis_(.*).ts/;

my $name;
if($langcode =~ /(.*)_(.*)/) {
my $lang = code2language(lc $1);
my $country = code2country(lc $2);
$name = "$lang ($country)";
} else {
$name = code2language(lc $langcode);
}


open F, "lrelease $i|";

my($translations,$finished,$unfinished,$untranslated);

while(<F>) {
if(/Generated (\d+) translation\(s\) \((\d+) finished and (\d+) unfinished\)/) {
$translations=$1;
$finished=$2;
$unfinished=$3;
} elsif(/Ignored (\d+) untranslated source text\(s\)/) {
$untranslated=$1;
}
}

close F;

my $n = $translations+$untranslated;

print "$name;$n;$translations;$finished;$unfinished;$untranslated;" . sprintf("%.1f%", ($n-$untranslated)/$n*100) . "\n";
}

__END__
Updating 'qgis_de.qm'...
Generated 3300 translation(s) (1217 finished and 2083 unfinished)
Ignored 8 untranslated source text(s)

0 comments on commit 913cb37

Please sign in to comment.