1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#! /usr/bin/perl -w
use utf8;
use strict;
use open qw/:std :encoding(utf8)/;
my %want;
my $file;
my $idx = 'a';
open $file,'<','specialmessages.java' or die;
for my $line (<$file>)
{
if($line =~ /\/\* JOSM trac newticket page \*\/ tr\("(.*)"\);/)
{
my $res = $1;
$want{$res} = $idx++;
}
close($file);
}
for my $po (reverse sort glob("po/*.po"))
{
local $/;
$/ = "\n\n";
open $file,'<',$po or die;
my %lang;
for my $line (<$file>)
{
$line =~ s/"\n"//g;
next if $line =~ /# fuzzy/;
for my $t (keys %want)
{
if($line =~ /msgid "\Q$t\E"/ && $line =~ /msgstr "(.+)"/)
{
my $res = $1;
$res =~ s/\\"/"/g;
$res =~ s/''/’/g;
$res =~ s/'/’/g;
$lang{$want{$t}} = $res;
}
}
}
if(scalar(%lang) == scalar(%want))
{
$po =~ /^po\/(.*)\.po$/;
my $code = $1;
if($code =~ /en_/)
{
my $diff = 0;
for my $t (sort keys %lang)
{
my %wantr = reverse %want;
my $r = $lang{$t};
$r =~ s/\"/\\"/g;
if($wantr{$t} ne $r)
{
++$diff;
}
}
next if !$diff;
print "$diff\n";
}
print " } else if (navigator.language.indexOf('$code') == 0) {\n";
for my $t (sort keys %lang)
{
print " $t = '$lang{$t}';\n";
}
}
}
|
