[kde-russian] Множественные формы

[kde-russian] Множественные формы

[Черепанов Андрей]

Я начал ревизию ошибок во множественных формах наших переводов. Ветку 3.2 
исправил. Сейчас исправляю HEAD. В конце сообщения приведён скрипт, которым я 
проверяю. Он, правда, не проверяет, переведено ли сообщение вообще и в 
обязательном порядке требует указания трёх '%n' в переводе. Прошу проверять 
ваши переводы перед выкладыванием.

---------------------------------------------------------------
#!/usr/bin/perl

$file = $ARGV[0];
open(F,"$file") or die("Cannot open file $file");
$type = 0;
while(<F>) {
        if(/^#/) { next; }
        if(/^msgid "(.*)"$/) { $type=1; $id=$1; next; }
        if(/^msgstr "(.*)"$/) { $type=2; $str=$1; next; }
        if(/^$/) {
                $type=0;
                # Check forms
                # print "$id\n\t$str\n";
                if($id =~ /^_n:/) {
                        if(not $str =~ /%n.*%n.*%n/) {
                                print "Failed $file\n";
                                exit;
                        }
                }
                next;
        }
        if(/^(\s+)?"(.*)"$/) {
                # Merge strings
                if($type==1) { $id.=$2; }
                if($type==2) { $str.=$2; }
        }
}
close F;

-- 
Андрей Черепанов
sibskull@mail.ru