| [qet] [1201] Added the script used to generate translations statistics. |
[ Thread Index |
Date Index
| More lists.tuxfamily.org/qet Archives
]
Revision: 1201
Author: xavier
Date: 2011-03-06 16:15:50 +0100 (Sun, 06 Mar 2011)
Log Message:
-----------
Added the script used to generate translations statistics.
Added Paths:
-----------
branches/0.3/misc/translations_stat.pl
Added: branches/0.3/misc/translations_stat.pl
===================================================================
--- branches/0.3/misc/translations_stat.pl (rev 0)
+++ branches/0.3/misc/translations_stat.pl 2011-03-06 15:15:50 UTC (rev 1201)
@@ -0,0 +1,261 @@
+#!/usr/bin/perl
+# Copyright 2006-2011 Xavier Guerrin
+# This file is part of QElectroTech.
+#
+# QElectroTech is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 2 of the License, or
+# (at your option) any later version.
+#
+# QElectroTech is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with QElectroTech. If not, see <http://www.gnu.org/licenses/>.
+
+# This script analyzes a QElectroTech Subversion working directory in order to
+# output statistics on the translation progress. The output is a table
+# conforming to the Dokuwiki syntax, as configured on qelectrotech.org/wiki.
+# Typical usage: misc/translations_stat.pl
+
+use strict;
+use utf8;
+use File::Find;
+binmode(STDOUT, ":utf8");
+
+# Configuration
+our $working_directory = '.';
+
+my $ok = '[ok]';
+my $no = '[no]';
+my $todo = 'TODO';
+
+our $default_language = 'fr';
+our @misc_desktop_files = qw(misc/qelectrotech.desktop misc/x-qet-element.desktop misc/x-qet-project.desktop);
+our @misc_xml_files = qw(misc/qelectrotech.xml misc/x-qet-element.xml misc/x-qet-project.xml);
+our @readme_files = qw(CREDIT README INSTALL ELEMENTS.LICENSE packaging/linux/fedora/README.elements);
+our @ordered_languages = qw(fr en es ru pt cs pl ca ro de it);
+our %languages = (
+ 'fr' => {
+ 'name' => 'Français',
+ 'french_name' => 'Français',
+ 'translator_name' => 'Xavier Guerrin',
+ 'translator_mail_ml' => 'xavier@xxxxxxxxxxxxx'
+ },
+ 'en' => {
+ 'name' => 'English',
+ 'french_name' => 'Anglais',
+ 'translator_name' => 'Xavier Guerrin',
+ 'translator_mail_ml' => 'xavier@xxxxxxxxxxxxx',
+ 'qt' => 1,
+ 'unix_manual' => 1,
+ 'desktop_progress_summary' => $ok,
+ 'xml_progress_summary' => $ok
+ },
+ 'es' => {
+ 'name' => 'Español',
+ 'french_name' => 'Espagnol',
+ 'translator_name' => 'Alfredo Carreto',
+ 'translator_mail_ml' => 'electronicos_mx@xxxxxxxxxxxx'
+ },
+ 'ru' => {
+ 'name' => 'Russe',
+ 'french_name' => 'Русский',
+ 'translator_name' => 'Yuriy Litkevich',
+ 'translator_mail_ml' => 'lit-uriy@xxxxxxxxx'
+ },
+ 'pt' => {
+ 'name' => 'Portugais',
+ 'french_name' => 'Português',
+ 'translator_name' => 'Jose Carlos Martins',
+ 'translator_mail_ml' => 'jose@xxxxxxxxxxxxxxxx'
+ },
+ 'cs' => {
+ 'name' => 'Czech',
+ 'french_name' => 'Tchèque',
+ 'translator_name' => 'Pavel Fric',
+ 'translator_mail_ml' => 'pavelfric@xxxxxxxxx'
+ },
+ 'pl' => {
+ 'name' => 'Polska',
+ 'french_name' => 'Polonais',
+ 'translator_name' => 'Pawel Smiech',
+ 'translator_mail_ml' => 'pawel32640@xxxxxxxxxx'
+ },
+ 'ca' => {
+ 'name' => 'Català',
+ 'french_name' => 'Catalan',
+ 'translator_name' => 'Youssef Ouamalkran',
+ 'translator_mail_ml' => 'youssefsan@xxxxxxxxx'
+ },
+ 'ro' => {
+ 'name' => 'Română',
+ 'french_name' => 'Roumain',
+ 'translator_name' => 'Gabi Mandoc',
+ 'translator_mail_ml' => 'gabriel.mandoc@xxxxxx'
+ },
+ 'de' => {
+ 'name' => 'Deutsch',
+ 'french_name' => 'Allemand',
+ 'translator_name' => 'Markus Budde',
+ 'translator_mail_ml' => 'markus.budde@xxxxxxx'
+ },
+ 'it' => {
+ 'name' => 'Italiano',
+ 'french_name' => 'Italiano',
+ 'translator_name' => 'Alessandro Conti',
+ 'translator_mail_ml' => 'dr.slump@xxxxxxxxxxxx'
+ }
+);
+
+my $head_pattern = '^ %-32s ^ %-22s ^ %-8s ^ %-16s ^ %-16s ^ %-23s ^ %-20s ^ %-11s ^ %-7s ^ %-7s ^ %-7s ^ %-16s ^ %-38s ^'."\n";
+my $line_pattern = $head_pattern;
+$line_pattern =~ s/\^/\|/g;
+
+# Functions
+sub get_pattern_count_in_file {
+ my $count = 0, my %params = @_;
+ return -3 if (!defined($params{'pattern'}));
+ return -2 if (!defined($params{'file'}) || ! -f $params{'file'});
+ return -1 if (!open(my $fh, '<', $params{'file'}));
+ while (<$fh>) {
+ ++ $count if (/$params{'pattern'}/);
+ last if (defined($params{'limit'}) && $count == $params{'limit'});
+ }
+ close($fh);
+ return $count;
+}
+
+sub analyze_element_file {
+ return if (($File::Find::name =~ m/\.svn/) || (! -f $_));
+
+ # One more element, count it
+ our $elements_count;
+ ++ $elements_count;
+
+ # Reports translation stat into the %languages hash
+ my $file = $_;
+ our %languages;
+ for my $lang_key (our @ordered_languages) {
+ if (get_pattern_count_in_file('file' => $file, 'pattern' => sprintf('<name lang="%s">', $lang_key, 'limit' => 1)) == 1) {
+ ++ $languages{$lang_key}{'translated_elements_count'};
+ }
+ }
+}
+
+# Action
+chdir($working_directory) or die(sprintf('could not chdir to %s', $working_directory));
+
+# Store the total number of elements
+our $elements_count = 0;
+
+# Analyze the elements collection
+finddepth(\&analyze_element_file, 'elements');
+
+# Complete the "languages" hash with statistics
+for my $lang_key (@ordered_languages) {
+ my $lang = $languages{$lang_key};
+ $lang->{'qt'} = -f sprintf('lang/qt_%s.ts', $lang_key) ? 1 : 0 unless defined($lang->{'qt'});
+
+ # strings statistics
+ my $ts_file = sprintf('lang/qet_%s.ts', $lang_key);
+ my $a = $lang->{'translated_strings_count'} = get_pattern_count_in_file('file' => $ts_file, 'pattern' => '<translation>');
+ my $b = $lang->{'strings_count'} = get_pattern_count_in_file('file' => $ts_file, 'pattern' => '<translation');
+ my $c = $lang->{'strings_progress'} = $b ? ($a / $b * 100) : 0;
+ if ($lang->{'default'} || ($b && $a == $b)) {
+ $lang->{'strings_progress_summary'} = $ok;
+ } else {
+ $lang->{'strings_progress_summary'} = sprintf('%i/%i (%.1f%%)', $a, $b, $c);
+ }
+
+ # elements statistics
+ my $d = our $elements_count;
+ my $e = $lang->{'translated_elements_count'};
+ my $f = $lang->{'elements_progress'} = $d ? ($e / $d * 100) : 0;
+ if ($d && $d == $e) {
+ $lang->{'elements_progress_summary'} = $ok;
+ } else {
+ $lang->{'elements_progress_summary'} = sprintf('%i/%i (%.1f%%)', $e, $d, $f);
+ }
+
+ # misc files statistics
+ if (!defined($lang->{'desktop_progress_summary'})) {
+ my $desktop_count = 0;
+ for my $desktop_file (@misc_desktop_files) {
+ ++ $desktop_count if (get_pattern_count_in_file('file' => $desktop_file, 'pattern' => sprintf('Comment\[%s.*\]', $lang_key), 'limit' => 1) == 1);
+ }
+ if (@misc_desktop_files && @misc_desktop_files == $desktop_count) {
+ $lang->{'desktop_progress_summary'} = $ok;
+ } else {
+ $lang->{'desktop_progress_summary'} = sprintf('%i/%i', $desktop_count, scalar(@misc_desktop_files));
+ }
+ }
+
+ # misc files statistics
+ if (!defined($lang->{'xml_progress_summary'})) {
+ my $xml_count = 0;
+ for my $xml_file (@misc_xml_files) {
+ ++ $xml_count if (get_pattern_count_in_file('file' => $xml_file, 'pattern' => sprintf('xml:lang="%s.*"', $lang_key), 'limit' => 1) == 1);
+ }
+ if (@misc_xml_files && @misc_xml_files == $xml_count) {
+ $lang->{'xml_progress_summary'} = $ok;
+ } else {
+ $lang->{'xml_progress_summary'} = sprintf('%i/%i', $xml_count, scalar(@misc_xml_files));
+ }
+ }
+
+ # Unix manual
+ if (!defined($lang->{'unix_manual'})) {
+ $lang->{'unix_manual'} = 0;
+ if (opendir(my $man_dh, 'man/files')) {
+ for my $dir (grep { /^($lang_key(?:\..+)?)$/ } readdir($man_dh)) {
+ if (-f 'man/files/'.$dir.'/man1/qelectrotech.1') {
+ $lang->{'unix_manual'} = 1;
+ last;
+ }
+ }
+ closedir($man_dh);
+ }
+ }
+
+ # CREDIT README INSTALL ELEMENTS.LICENSE files statistics
+ for my $file (@readme_files) {
+ if (!defined($lang->{$file})) {
+ my $header_count = get_pattern_count_in_file(
+ 'file' => $file,
+ 'pattern' => sprintf('^\[%s\]$', $lang_key),
+ 'count' => 1
+ );
+ $lang->{$file} = ($header_count == 1) ? 1 : 0;
+ }
+ }
+}
+
+# Render a Dokuwiki table displaying the computed statistics
+printf($head_pattern, 'Langue', 'Traducteur', 'Qt', 'Application', 'Collection', 'Fichiers misc/*.desktop', 'Fichiers misc/*.xml', 'Manuel Unix', @readme_files);
+for my $lang_key (@ordered_languages) {
+ my $lang = $languages{$lang_key};
+ my @readme_values = ();
+ for my $file (@readme_files) {
+ push(@readme_values, $lang->{$file} ? $ok : $todo);
+ }
+ printf(
+ $line_pattern,
+ sprintf('\'\'[%s]\'\' %s (%s)', $lang_key, $lang->{'name'}, $lang->{'french_name'}),
+ $lang->{'translator_name'},
+ $lang->{'qt'} ? $ok : $no,
+ $lang->{'strings_progress_summary'},
+ $lang->{'elements_progress_summary'},
+ $lang->{'desktop_progress_summary'},
+ $lang->{'xml_progress_summary'},
+ $lang->{'unix_manual'} ? $ok : $todo,
+ @readme_values
+ );
+}
+
+# Add date to output
+print "\n";
+my @date = localtime(time());
+printf('Dernière date de mise à jour : %02d/%02d/%04d %02d:%02d'."\n", $date[3], $date[4], 1900 + $date[5], $date[2], $date[1]);
Property changes on: branches/0.3/misc/translations_stat.pl
___________________________________________________________________
Added: svn:executable
+ *