mirror/autoconf
2
0
Fork 0
mirror of git://git.sv.gnu.org/autoconf synced 2024-12-09 02:10:22 +08:00
Code Issues Packages Projects Releases Wiki Activity

* bin/autoupdate.in (&handle_m4_macros) <unm4.m4>: Undefine iff

Browse Source 
defined.
This commit is contained in:
Akim Demaille 2001-09-05 07:06:18 +00:00
parent d3f9e418ab
commit 32672ba4a6
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
2001-09-05 Akim Demaille <akim@epita.fr>
* bin/autoupdate.in (&handle_m4_macros) <unm4.m4>: Undefine iff
defined.
2001-09-05 Akim Demaille <akim@epita.fr>
* lib/Autom4te/General.pm (&getopt): Work around the `-' Getopt bug.

19
bin/autoupdate.in
View File

@ -110,16 +110,16 @@ my @m4_builtins;
sub handle_m4_macros ()
{
# Get the list of builtins.
xsystem ("echo dumpdef | $m4 2>$tmp/sugar.defs >/dev/null");
my $sugar_defs = new IO::File "$tmp/sugar.defs"
or die "$me: cannot open $tmp/sugar.defs: $!\n";
while ($_ = $sugar_defs->getline)
xsystem ("echo dumpdef | $m4 2>$tmp/m4.defs >/dev/null");
my $m4_defs = new IO::File "$tmp/m4.defs"
or die "$me: cannot open $tmp/m4.defs: $!\n";
while ($_ = $m4_defs->getline)
{
push @m4_builtins, $1
if /^(\w+):/;
}
$sugar_defs->close
or die "$me: cannot close $tmp/sugar.defs: $!\n";
$m4_defs->close
or die "$me: cannot close $tmp/m4.defs: $!\n";
# Output the files.
my $m4_m4 = new IO::File ">$tmp/m4.m4"
@ -128,14 +128,17 @@ sub handle_m4_macros ()
my $unm4_m4 = new IO::File ">$tmp/unm4.m4"
or die "$me: cannot create $tmp/unm4.m4: $!\n";
print $unm4_m4 "# unm4.m4 -- disable the m4 builtins.\n";
print $unm4_m4 "# Because Autoconf, via M4sugar, redefines some of these\n";
print $unm4_m4 "# macros, and therefore since unac.m4 disables them,\n";
print $unm4_m4 "# disable only if defined.\n";
my $m4save_m4 = new IO::File ">$tmp/m4save.m4"
or die "$me: cannot create $tmp/unm4.m4: $!\n";
print $m4save_m4 "# savem4.m4 -- save the m4 builtins.\n";
foreach (@m4_builtins)
{
print $m4_m4 "_au_define([$_], _au_defn([_au_$_]))\n";
print $unm4_m4 "_au_undefine([$_])\n";
print $m4save_m4 "define([_au_$_], defn([$_]))\n";
print $unm4_m4 "_au_ifdef([$_], [_au_undefine([$_])])\n";
print $m4_m4 "_au_define([$_], _au_defn([_au_$_]))\n";
}
$m4save_m4->close
or die "$me: cannot close $tmp/m4save.m4: $!\n";