From dadc34655c3ab961b0b0b94a10eaaba710f0b5e8 Mon Sep 17 00:00:00 2001 From: tpearson Date: Mon, 4 Jul 2011 22:38:03 +0000 Subject: Added kmymoney git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/applications/kmymoney@1239792 283d02a7-25f6-0310-bc7c-ecb5cbfe19da --- po/stats.pl | 218 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 218 insertions(+) create mode 100755 po/stats.pl (limited to 'po/stats.pl') diff --git a/po/stats.pl b/po/stats.pl new file mode 100755 index 0000000..e080296 --- /dev/null +++ b/po/stats.pl @@ -0,0 +1,218 @@ +#!/usr/bin/perl +# +# This script reads the xx.po file and generates some statistics +# information in form of XML output. This output is parsed by +# the translate.php file found on the KMyMoney web-site. +# +# (C) 2007 by Thomas Baumgart +# +# Syntax: +# stats.pl +# +# The script requires to find the kmymoney2.pot file in the same +# directory in order to check if the po file is based on the current +# pot file. +# +#*************************************************************************** +#* 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. * +#*************************************************************************** + +# total message counter +my $msgs = 0; + +# fuzzy message counter +my $fuzzy = 0; + +# translated message counter +my $translated = 0; + +# untranslated message counter +my $untranslated = 0; + +# state machine +# possible states: +# +# 0 - idle +# 1 - in message +# 2 - in msgid +# 3 - in empty msgstr +# 4 - in msgstr +my $state = 0; + +# line counter +my $linecnt = 0; + +# filename of file to process +my $fname; + +# pot version information +my $potVersion; + +# "po file matches current pot file" flag +my $poVersionOk = 0; + +if($#ARGV == -1) { + $fname = "-"; +} elsif($#ARGV == 0) { + $fname = $ARGV[0]; + $fname =~ /^(.*\/)?(.*)\.po$/; + $basedir = $1; + $langcode = $2; +} else { + print STDERR "Can only process one file at a time\n"; + exit 1; +} + + +$country{"ca"} = "Catalan"; +$country{"cs"} = "Czech"; +$country{"da"} = "Denmark"; +$country{"de"} = "Germany"; +$country{"en_GB"} = "Great Britain"; +$country{"es"} = "Spain"; +$country{"es_AR"} = "Argentina"; +$country{"fi"} = "Finnland"; +$country{"fr"} = "France"; +$country{"gl"} = "Galicia"; +$country{"it"} = "Italy"; +$country{"lt"} = "Lithuania"; +$country{"nl"} = "Netherlands"; +$country{"pl"} = "Poland"; +$country{"pt_BR"} = "Brazil"; +$country{"pt"} = "Portugal"; +$country{"ro"} = "Romania"; +$country{"ru"} = "Russia"; +$country{"sk"} = "Slovakia"; +$country{"sl"} = "Slovenia"; +$country{"sv"} = "Sweden"; +$country{"tr"} = "Turkey"; +$country{"zh_CN"} = "China"; + +$language{"ca"} = "Catalan"; +$language{"cs"} = "Czech"; +$language{"da"} = "Danish"; +$language{"de"} = "German"; +$language{"en_GB"} = "British"; +$language{"es"} = "Spanish (Spain)"; +$language{"es_AR"} = "Spanish (Argentina)"; +$language{"fi"} = "Suomi"; +$language{"fr"} = "French"; +$language{"gl"} = "Galician"; +$language{"it"} = "Italian"; +$language{"lt"} = "Lithuanian"; +$language{"nl"} = "Dutch"; +$language{"pl"} = "Polish"; +$language{"pt_BR"} = "Portuguese (Brazil)"; +$language{"pt"} = "Portuguese (Portugal)"; +$language{"ro"} = "Romanian"; +$language{"ru"} = "Russian"; +$language{"sk"} = "Slovak"; +$language{"sl"} = "Slovenian"; +$language{"sv"} = "Swedish"; +$language{"tr"} = "Turkish"; +$language{"zh_CN"} = "Simplified Chinese"; + +$flags{"es_AR"} = "ar"; +$flags{"en_GB"} = "gb"; +$flags{"pt_BR"} = "br"; +$flags{"pt"} = "pt"; +$flags{"da"} = "dk"; +$flags{"gl"} = "Galicia"; +$flags{"zh_CN"} = "cn"; + +open(IN, "< $basedir/kmymoney2.pot") or die("POT file not found."); +while() { + if($_ =~ /POT-Creation-Date/) { + chomp($_); + $potVersion = $_; + last; + } +} +close IN; + +$potVersionOk="0"; + +open(IN, "< $fname") or die("Cannot open $fname for reading"); +while() { + $linecnt++; + if($_ =~ /Language-Team: (.*) <.*>/) { + $language = $1; + next; + } + if($_ =~ /Last-Translator: (.*) <.*>/) { + $author = $1; + next; + } + if($_ =~ /POT-Creation-Date/) { + chomp($_); + $potVersionOk = "1" if($_ eq $potVersion); + next; + } + # "PO-Revision-Date: 2007-02-21 21:57+0100\n" + if($_ =~ /PO-Revision-Date: (\d+-\d+-\d+) /) { + $poRevision = $1; + } + + if($state == 0) { + if($_ =~ /^\#:/) { + $state = 1; + } + } elsif($state == 1) { + if($_ =~ /^msgid /) { + $msgs++; + $state = 2; + + } elsif($_ =~ /^#, fuzzy/) { + $fuzzy++; + } + + } elsif($state == 2) { + if($_ =~ /^msgstr ""$/) { + # we have detected an emtpy msgstr. this can have two reasons + # a) the message is untranslated, then the next line is empty + # b) the message is too long and starts on the next line + $state = 3; + } elsif($_ =~ /^msgstr "[^"]/) { + $translated++; + $state = 4; + } + } elsif($state == 3) { + if($_ =~ /^"[^"]/) { + $translated++; + $state = 4; + } else { + $untranslated++; + $state = 0; + } + } elsif($state == 4) { + chomp($_); + if($_ =~ /^$/) { + $state = 0; + } + } +} +close IN; + +my $flag = $flags{$langcode}; +$flag = $langcode if(length($flag) == 0); + +$ptransdisp = (int (($translated - $fuzzy) * 10000 / $msgs)) / 100; +; +$pfuzzy = int (($fuzzy * 100) / $msgs); +$puntrans = int (($untranslated * 100) / $msgs); + +print "\n"; +print " $flag\n"; +print " $language{$langcode}\n"; +print " $country{$langcode}\n"; +print " $author\n"; +print " $ptransdisp\n"; +print " $pfuzzy\n"; +print " $puntrans\n"; +print " $potVersionOk\n"; +print " $poRevision\n"; +print "\n"; + -- cgit v1.2.1