/[autoconf]/autoconf/bin/autoupdate.in
ViewVC logotype

Diff of /autoconf/bin/autoupdate.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by eggert, Wed Jul 17 08:30:43 2002 UTC revision 1.39 by akim, Mon Sep 2 07:41:56 2002 UTC
# Line 95  sub parse_args () Line 95  sub parse_args ()
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      }      }
# Line 173  sub handle_autoconf_macros () Line 173  sub handle_autoconf_macros ()
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          {          {
# Line 193  sub handle_autoconf_macros () Line 193  sub handle_autoconf_macros ()
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)
# Line 371  EOF Line 371  EOF
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         {         {
# Line 381  EOF Line 381  EOF
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"

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26