mirror of
https://github.com/qgis/QGIS.git
synced 2025-02-24 00:47:57 -05:00
47 lines
1.3 KiB
Perl
47 lines
1.3 KiB
Perl
|
#!/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)
|