95 |
if (! @ARGV) |
if (! @ARGV) |
96 |
{ |
{ |
97 |
my $configure_ac = find_configure_ac; |
my $configure_ac = find_configure_ac; |
98 |
die "$me: no input file\n" |
error "no input file" |
99 |
unless $configure_ac; |
unless $configure_ac; |
100 |
push @ARGV, $configure_ac; |
push @ARGV, $configure_ac; |
101 |
} |
} |
173 |
# aclocal.m4 -> aclocal |
# aclocal.m4 -> aclocal |
174 |
my $set = basename (dirname ($file)); |
my $set = basename (dirname ($file)); |
175 |
$set = 'aclocal' if $file eq 'aclocal.m4'; |
$set = 'aclocal' if $file eq 'aclocal.m4'; |
176 |
die "$me: unknown set: $set: $_\n" |
error "unknown set: $set: $_" |
177 |
unless $set =~ /^(m4sugar|aclocal|autoconf)$/; |
unless $set =~ /^(m4sugar|aclocal|autoconf)$/; |
178 |
if ($domain eq "AC") |
if ($domain eq "AC") |
179 |
{ |
{ |
193 |
# such as `builtin', `changequote' etc. See autoconf/autoconf.m4. |
# such as `builtin', `changequote' etc. See autoconf/autoconf.m4. |
194 |
delete $ac_macros{$_} |
delete $ac_macros{$_} |
195 |
foreach (@m4_builtins); |
foreach (@m4_builtins); |
196 |
die "$me: no current Autoconf macros found\n" |
error "no current Autoconf macros found" |
197 |
unless keys %ac_macros; |
unless keys %ac_macros; |
198 |
die "$me: no obsolete Autoconf macros found\n" |
error "no obsolete Autoconf macros found" |
199 |
unless keys %au_macros; |
unless keys %au_macros; |
200 |
|
|
201 |
if ($debug) |
if ($debug) |
371 |
|
|
372 |
# prepared input -- input, but reenables the quote before each AU macro. |
# prepared input -- input, but reenables the quote before each AU macro. |
373 |
open INPUT_M4, ">$tmp/input.m4" |
open INPUT_M4, ">$tmp/input.m4" |
374 |
or die "$me: cannot open: $!\n"; |
or error "cannot open: $!"; |
375 |
open FILE, "<$file" |
open FILE, "<$file" |
376 |
or die "$me: cannot open: $!\n"; |
or error "cannot open: $!"; |
377 |
print INPUT_M4 "$input_m4"; |
print INPUT_M4 "$input_m4"; |
378 |
while (<FILE>) |
while (<FILE>) |
379 |
{ |
{ |
381 |
print INPUT_M4; |
print INPUT_M4; |
382 |
} |
} |
383 |
close FILE |
close FILE |
384 |
or die "$me: cannot close $file: $!\n"; |
or error "cannot close $file: $!"; |
385 |
close INPUT_M4 |
close INPUT_M4 |
386 |
or die "$me: cannot close $tmp/input.m4: $!\n"; |
or error "cannot close $tmp/input.m4: $!"; |
387 |
|
|
388 |
# Now ask m4 to perform the update. |
# Now ask m4 to perform the update. |
389 |
xsystem ("$m4 --include=$tmp" |
xsystem ("$m4 --include=$tmp" |