blob: a2c445ff8f1557606d65d444569a79d51f61f024 (
plain) (
blame)
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
|
#!@PERL@
# gettext message substitute
#
$po_dir='po';
$lang='@POLANG@';
%msg = ();
$msgid = '';
$charset = "UTF-8";
$charset_code = "WC_CES_UTF_8";
open(PO, "$po_dir/$lang.po") or die "cannot open $po_dir/$lang.po, $!";
while (<PO>) {
if (/^msgid\s*"(.*)"/) {
$msgid = $1;
next;
}
if (/^msgstr\s*"(.*)"/) {
$msg{$msgid} = $1;
next;
}
if (/^"Content-Type: text\/plain; charset=(.*)\\n"/) {
$charset = $1;
next;
}
}
close(PO);
open(CL, "charset-list") or die "cannot open charset-list, $!";
while (<CL>) {
@l = split;
if ($l[0] eq $charset) {
$charset_code = $l[1];
last;
}
}
close(CL);
@src = grep {/\.c$/} @ARGV;
@tmp = ();
foreach $src (@src) {
open(SRC0, $src) or die "cannot open $src, $!";
push(@tmp, ".$src");
open(SRC1, ">.$src") or die "cannot create .$src, $!";
while (<SRC0>) {
s/^static\s*wc_ces\s*(\S+)\s*=\s*(WC_CES_\S+)\s*;\s*\/\*\s*FIXME: charset of source code \*\//static wc_ces $1 = $charset_code; \/* FIXME: charset of source code *\//;
s/(N?_\(")([^"]*)("\))/$1 . ($msg{$2} || $2) . $3/ge;
print SRC1 $_;
}
close(SRC0);
close(SRC1);
}
map {s/(.*\.c)$/.$1/} @ARGV;
system @ARGV;
unlink @tmp;
|
