97af1e481f
Without this patch posubst always exits with 0. This is a problem when chaining commands.
74 lines
1.5 KiB
Plaintext
74 lines
1.5 KiB
Plaintext
#!@PERL@
|
|
# gettext message substitute
|
|
#
|
|
use strict;
|
|
use warnings;
|
|
|
|
my $po_dir='po';
|
|
my $lang='@POLANG@';
|
|
my %msg = ();
|
|
my $msgid = '';
|
|
my $charset = "UTF-8";
|
|
my $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>) {
|
|
my @l = split;
|
|
if ($l[0] eq $charset) {
|
|
$charset_code = $l[1];
|
|
last;
|
|
}
|
|
}
|
|
close(CL);
|
|
|
|
my @src = grep {/\.c$/} @ARGV;
|
|
my @tmp = ();
|
|
foreach my $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;
|
|
my $err = 0;
|
|
system @ARGV;
|
|
if ($? == -1) {
|
|
print "failed to execute: $!\n";
|
|
$err = 125;
|
|
}
|
|
elsif ($? & 127) {
|
|
printf "child died with signal %d\n", ($? & 127);
|
|
$err = 125;
|
|
}
|
|
else {
|
|
$err = $? >> 8;
|
|
if ($err != 0) {
|
|
printf "child exited with value %d\n", $err;
|
|
}
|
|
}
|
|
|
|
unlink @tmp;
|
|
exit $err;
|