# $M4.
my $m4 = $ENV{"M4"} || '@M4@';
# Some non-GNU m4's don't reject the --help option, so give them /dev/null.
-error "need GNU m4 1.4 or later: $m4"
+fatal "need GNU m4 1.4 or later: $m4"
if system "$m4 --help </dev/null 2>&1 | grep reload-state >/dev/null";
# Set some high recursion limit as the default limit, 250, has already
my $type = shift @words;
if ($type eq 'begin-language:')
{
- error "$file:$.: end-language missing for: $lang"
+ fatal "$file:$.: end-language missing for: $lang"
if defined $lang;
$lang = lc $words[0];
}
}
elsif ($type eq 'args:')
{
- error "$file:$.: no current language"
+ fatal "$file:$.: no current language"
unless defined $lang;
push @{$language{$lang}}, @words;
}
"no-cache" => sub { $cache = undef; },
);
- error "too few arguments
+ fatal "too few arguments
Try `$me --help' for more information."
unless @ARGV;
# And it implies melting: there is risk not to update properly using
# old frozen files, and worse yet: we could load a frozen file and
# refreeze it! A sort of caching :)
- error "cannot freeze and trace"
+ fatal "cannot freeze and trace"
if $freeze && @trace;
$melt = 1
if $freeze;
{
use File::Copy;
move ("${file}t", "$file")
- or error "cannot not rename ${file}t as $file: $!";
+ or fatal "cannot not rename ${file}t as $file: $!";
}
}
{
$out->open($output, O_CREAT | O_WRONLY | O_TRUNC, oct ($mode));
}
- error "cannot create $output: $!"
+ fatal "cannot create $output: $!"
unless $out;
my $in = new Autom4te::XFile ($ocache . $req->id);
$result =~ s/#.*\n//g;
$result =~ s/^\n//mg;
- error "freezing produced output:\n$result"
+ fatal "freezing produced output:\n$result"
if $result;
# If freezing produces output, something went wrong: a bad `divert',
if ($freeze)
{
freeze ($output);
- exit 0;
+ exit $exit_code;
}
# We need our cache directory.
if (! -d "$cache")
{
mkdir "$cache", 0755
- or error "cannot create $cache: $!";
+ or fatal "cannot create $cache: $!";
}
# Open the index for update, and lock it. autom4te handles several
#
# For ordinary extensions like f90, etcetera, the modified FCFLAGS
# are currently needed for IBM's xlf* and Intel's ifc (grrr). Unfortunately,
-* xlf* will only take flags to recognize one extension at a time, so if the
+# xlf* will only take flags to recognize one extension at a time, so if the
# user wants to compile multiple extensions (.f90 and .f95, say), she
# will need to use the FCFLAGS_F90 and FCFLAGS_F95 individually rather
# than just adding them all to FCFLAGS, for example.