#!/usr/bin/perl # Copyright 2003-2005 Nathan Walp # Copyright 2008 Enrico Tröger # # This program 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. # # This program 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 this program; if not, write to the Free Software # Foundation, Inc., 50 Temple Place, Suite 330, Boston, MA 02111-1307 USA # use POSIX qw(strftime); my $PACKAGE="geany"; use Locale::Language; $lang{'ca@valencia'} = "Catalan (Valencian)"; $lang{en_AU} = "English (Australian)"; $lang{en_CA} = "English (Canadian)"; $lang{en_GB} = "English (British)"; $lang{gl} = "Galician"; $lang{my_MM} = "Burmese (Myanmar)"; $lang{pt_BR} = "Portuguese (Brazilian)"; $lang{pt_PT} = "Portuguese (Portuguese)"; $lang{'sr@Latn'} = "Serbian (Latin)"; $lang{zh_CN} = "Chinese (Simplified)"; $lang{zh_TW} = "Chinese (Traditional)"; $lang{uk_UA} = "Ukrainian"; $lang{ast} = "Asturian"; opendir(DIR, ".") || die "can't open directory: $!"; @pos = grep { /\.po$/ && -f } readdir(DIR); foreach (@pos) { s/\.po$//; }; closedir DIR; @pos = sort @pos; $now = `date`; system("intltool-update --pot --gettext-package geany > /dev/null"); $_ = `LANG=C msgfmt --statistics geany.pot -o /dev/null 2>&1`; die "unable to get total: $!" unless (/(\d+) untranslated messages/); $total = $1; $generated = strftime "%Y-%m-%d %H:%M:%S", gmtime; sub find_translator { open(INPUT, "@_") or die "Couldn't open $infile for reading: $!\n"; while () { if (/.+Last-Translator: (.*) <.*/ or /.+Last-Translator: (.*) ?\\n"$/) { return $1; } } close(INPUT); } print " Geany translation statistics

Geany translation statistics

For more information about translating Geany, please see www.geany.org/Support/I18N.

"; foreach $index (0 .. $#pos) { $trans = $fuzz = $untrans = 0; $po = $pos[$index]; print STDERR "$po..." if($ARGV[0] eq '-v'); system("msgmerge $po.po geany.pot -o $po.new 2>/dev/null"); $_ = `LANG=C msgfmt --statistics $po.new -o /dev/null 2>&1`; chomp; if(/(\d+) translated message/) { $trans = $1; } if(/(\d+) fuzzy translation/) { $fuzz = $1; } if(/(\d+) untranslated message/) { $untrans = $1; } unlink("$po.new"); $name = ""; $name = $lang{$po}; $name = code2language($po) unless $name ne ""; $name = "???" unless $name ne ""; $translator = find_translator("$po.po"); $percentage_trans = sprintf("%.2f", ($trans / $total) * 100); $percentage_fuzz = sprintf("%.2f", ($fuzz / $total) * 100); $percentage_untrans = sprintf("%.2f", ($untrans / $total) * 100); $width_trans = sprintf("%.2f", ($trans / $total) * 200); $width_fuzz = sprintf("%.2f", ($fuzz / $total) * 200); $width_untrans = sprintf("%.2f", ($untrans / $total) * 200); $title = $name ." (". $po .") - Translated: ". $trans ." Fuzzy: ". $fuzz ." Untranslated: ". $untrans; $skip_cols = ($fuzz eq 0) + ($untrans eq 0); print " "; } print "

Language (Last Translator)

Translated

Fuzzy

Untranslated

". $name ." (". $translator .")

". $trans ."

". $percentage_trans ." %

". $fuzz ."

". $percentage_fuzz ." %

". $untrans ."

". $percentage_untrans ." %

\n"; if ($fuzz gt 0) { print " \n"; } if ($untrans gt 0) { print " \n"; } print "

geany.pot generated on $generated UTC (will be generated every 24 hours)

This page was generated by i18n_stats.pl. Thanks to Nathan Walp <faceprint(at)faceprint(dot)com> for the original script.

$\"Valid$ $\"Geany$