storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #220 from rkta/posubst

Browse Source 
Do not swallow errors from GCC
This commit is contained in:
Tatsuya Kinoshita
2022-04-08 20:40:07 +09:00
committed by GitHub
parent ba3b7547a0 97af1e481f
commit f80ccd42a6
1 changed files with 30 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
posubst.in
View File

@@ -1,12 +1,15 @@
#!@PERL@ #!@PERL@
# gettext message substitute # gettext message substitute
# #
$po_dir='po'; use strict;
$lang='@POLANG@'; use warnings;
%msg = ();
$msgid = ''; my $po_dir='po';
$charset = "UTF-8"; my $lang='@POLANG@';
$charset_code = "WC_CES_UTF_8"; 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, $!"; open(PO, "$po_dir/$lang.po") or die "cannot open $po_dir/$lang.po, $!";
while (<PO>) { while (<PO>) {
if (/^msgid\s*"(.*)"/) { if (/^msgid\s*"(.*)"/) {
@@ -25,7 +28,7 @@ while (<PO>) {
close(PO); close(PO);
open(CL, "charset-list") or die "cannot open charset-list, $!"; open(CL, "charset-list") or die "cannot open charset-list, $!";
while (<CL>) { while (<CL>) {
@l = split; my @l = split;
if ($l[0] eq $charset) { if ($l[0] eq $charset) {
$charset_code = $l[1]; $charset_code = $l[1];
last; last;
@@ -33,9 +36,9 @@ while (<CL>) {
} }
close(CL); close(CL);
@src = grep {/\.c$/} @ARGV; my @src = grep {/\.c$/} @ARGV;
@tmp = (); my @tmp = ();
foreach $src (@src) { foreach my $src (@src) {
open(SRC0, $src) or die "cannot open $src, $!"; open(SRC0, $src) or die "cannot open $src, $!";
push(@tmp, ".$src"); push(@tmp, ".$src");
open(SRC1, ">.$src") or die "cannot create .$src, $!"; open(SRC1, ">.$src") or die "cannot create .$src, $!";
@@ -49,5 +52,22 @@ foreach $src (@src) {
} }
map {s/(.*\.c)$/.$1/} @ARGV; map {s/(.*\.c)$/.$1/} @ARGV;
my $err = 0;
system @ARGV; 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; unlink @tmp;
exit $err;