1 | #!/usr/bin/perl -w |
---|
2 | require 5.008; |
---|
3 | use bytes; |
---|
4 | use strict; |
---|
5 | use POSIX; |
---|
6 | use Locale::PO; |
---|
7 | |
---|
8 | use integer; |
---|
9 | |
---|
10 | if (@ARGV == 0 || $ARGV[0] eq '--help') { |
---|
11 | print STDERR "Syntax: $0 PO_FILE...\n"; |
---|
12 | exit (@ARGV != 0); |
---|
13 | } |
---|
14 | |
---|
15 | my %dropped; |
---|
16 | |
---|
17 | my $pot = Locale::PO->load_file_asarray("survex.pot"); |
---|
18 | for my $po_file (@ARGV) { |
---|
19 | my ($lang) = ($po_file =~ m!([^/]+)\.po$!); |
---|
20 | my $po = Locale::PO->load_file_ashash($po_file); |
---|
21 | if (!defined $po) { |
---|
22 | print STDERR "$po_file: Bad!\n"; |
---|
23 | next; |
---|
24 | } |
---|
25 | |
---|
26 | # Build a map from msgno to po msgid, so we can find the old translation when |
---|
27 | # a msgid has since changed in the pot file. |
---|
28 | my %msgno_to_po; |
---|
29 | foreach my $msgid (keys %{$po}) { |
---|
30 | my $ref = $po->{$msgid}->reference; |
---|
31 | if (defined $ref) { |
---|
32 | my ($msgno) = $ref =~ /\bn:(\d+)/; |
---|
33 | if (defined $msgno) { |
---|
34 | $msgno_to_po{$msgno} = [ $msgid, $po->{$msgid}->msgstr ]; |
---|
35 | } |
---|
36 | } |
---|
37 | } |
---|
38 | |
---|
39 | my @fuzzy; |
---|
40 | open NEW, '>', "$po_file.tmp" or die $!; |
---|
41 | foreach my $pot_entry (@{$pot}) { |
---|
42 | my $msgid = $pot_entry->msgid; |
---|
43 | my $msgstr = '""'; |
---|
44 | my $po_entry; |
---|
45 | if (exists $$po{$msgid}) { |
---|
46 | $po_entry = $$po{$msgid}; |
---|
47 | $msgstr = $po_entry->msgstr; |
---|
48 | delete $$po{$msgid}; |
---|
49 | if ($msgid eq '""') { |
---|
50 | $msgstr =~ s/\\n(..)/\\n"\n"$1/g; |
---|
51 | print NEW "msgid $msgid\nmsgstr \"\"\n$msgstr\n"; |
---|
52 | next; |
---|
53 | } |
---|
54 | } else { |
---|
55 | $po_entry = $pot_entry; |
---|
56 | } |
---|
57 | if (defined $pot_entry->automatic) { |
---|
58 | my $automatic = "\n" . $pot_entry->automatic; |
---|
59 | $automatic =~ s/\n/\n#. /g; |
---|
60 | while ($automatic =~ s/\n#. \n/\n#.\n/g) { } |
---|
61 | print NEW $automatic; |
---|
62 | } |
---|
63 | my $fuzzy = $po_entry->fuzzy; |
---|
64 | my $ref = $pot_entry->reference; |
---|
65 | if (defined $ref) { |
---|
66 | if ($msgstr eq '""') { |
---|
67 | my ($msgno) = $ref =~ /\bn:(\d+)/; |
---|
68 | if (exists $msgno_to_po{$msgno}) { |
---|
69 | my $old_msgid; |
---|
70 | ($old_msgid, $msgstr) = @{$msgno_to_po{$msgno}}; |
---|
71 | if ($msgstr ne '""') { |
---|
72 | $fuzzy = 1; |
---|
73 | print "$po_file: Fuzzifying translation $old_msgid / $msgid -> $msgstr\n"; |
---|
74 | push @fuzzy, $old_msgid; |
---|
75 | } |
---|
76 | } |
---|
77 | } |
---|
78 | $ref = "\n" . $ref; |
---|
79 | $ref =~ s/\n/\n#: /mg; |
---|
80 | print NEW $ref; |
---|
81 | } |
---|
82 | my $c_format = $pot_entry->c_format; |
---|
83 | if ($fuzzy || $c_format) { |
---|
84 | print NEW "\n#"; |
---|
85 | print NEW ", fuzzy" if $fuzzy; |
---|
86 | print NEW ", c-format" if $c_format; |
---|
87 | } |
---|
88 | print NEW "\n"; |
---|
89 | print NEW "#~ " if $pot_entry->obsolete; |
---|
90 | print NEW "msgid $msgid\n"; |
---|
91 | print NEW "#~ " if $pot_entry->obsolete; |
---|
92 | print NEW "msgstr $msgstr\n"; |
---|
93 | } |
---|
94 | close NEW or die $!; |
---|
95 | unlink "$po_file.old"; |
---|
96 | delete @$po{@fuzzy}; |
---|
97 | for (sort keys %{$po}) { |
---|
98 | my $msgstr = $$po{$_}->msgstr; |
---|
99 | if ($msgstr ne '""') { |
---|
100 | print "$po_file: Dropping [$_] -> [$msgstr]\n"; |
---|
101 | $dropped{$_}->{$lang} = $msgstr; |
---|
102 | } |
---|
103 | } |
---|
104 | link $po_file, "$po_file.old" or die $!; |
---|
105 | rename "$po_file.tmp", $po_file or die $!; |
---|
106 | } |
---|
107 | |
---|
108 | if (%dropped) { |
---|
109 | print "Saving dropped messages to deadmessages.txt\n"; |
---|
110 | open DEAD, '>>deadmessages.txt' or die "Failed to open deadmessages.txt\n"; |
---|
111 | for (sort keys %dropped) { |
---|
112 | print DEAD "\nmsgid \"$_\"\n"; |
---|
113 | my $h = $dropped{$_}; |
---|
114 | for my $lang (sort keys %$h) { |
---|
115 | print DEAD "$lang $$h{$lang}\n"; |
---|
116 | } |
---|
117 | } |
---|
118 | close DEAD; |
---|
119 | } |
---|