1 # autoconf -- create `configure' using m4 macros
2 # Copyright (C) 2001, 2002, 2003, 2004, 2006 Free Software Foundation, Inc.
4 # This program is free software; you can redistribute it and/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation; either version 2, or (at your option)
9 # This program is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License
15 # along with this program; if not, write to the Free Software
16 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
19 package Autom4te
::General
;
23 Autom4te::General - general support functions for Autoconf and Automake
31 This perl module provides various general purpose support functions
32 used in several executables of the Autoconf and Automake packages.
38 use Autom4te
::ChannelDefs
;
39 use Autom4te
::Channels
;
47 use vars qw
(@ISA @EXPORT);
51 # Variables we define and export.
53 qw
($debug $force $help $me $tmp $verbose $version);
55 # Functions we define and export.
61 # Functions we forward (coming from modules we use).
62 my @export_forward_subs =
63 qw
(&basename
&dirname
&fileparse
);
65 @EXPORT = (@export_vars, @export_subs, @export_forward_subs);
68 # Variable we share with the main package. Be sure to have a single
69 # copy of them: using `my' together with multiple inclusion of this
70 # package would introduce several copies.
72 =head2 Global Variables
78 Set this variable to 1 if debug messages should be enabled. Debug
79 messages are meant for developpers only, or when tracking down an
89 Set this variable to 1 to recreate all the files, or to consider all
90 the output files are obsolete.
99 Set to the help message associated to the option C<--help>.
108 The name of this application, as should be used in diagostic messages.
117 The name of the temporary directory created by C<mktmpdir>. Left
128 Enable verbosity messages. These messages are meant for ordinary
129 users, and typically make explicit the steps being performed.
133 use vars qw
($verbose);
138 Set to the version message associated to the option C<--version>.
142 use vars qw
($version);
161 Filter Perl's exit codes, delete any temporary directory (unless
162 C<$debug>), and exit nonzero whenever closing C<STDOUT> fails.
170 # $? contains the exit status we will return.
171 # It was set using one of the following ways:
173 # 1) normal termination
175 # 2) calling `exit (n)'
177 # 3) calling die or friends (croak, confess...):
178 # a) when $! is non-0
180 # b) when $! is 0 but $? is not
181 # this sets $? = ($? >> 8) (i.e., the exit code of the
182 # last program executed)
183 # c) when both $! and $? are 0
186 # Cases 1), 2), and 3b) are fine, but we prefer $? = 1 for 3a) and 3c).
188 $status = 1 if ($! && $! == $?
) || $?
== 255;
189 # (Note that we cannot safely distinguish calls to `exit (n)'
190 # from calls to die when `$! = n'. It's not big deal because
191 # we only call `exit (0)' or `exit (1)'.)
193 if (!$debug && defined $tmp && -d
$tmp)
195 local $SIG{__WARN__
} = sub { $status = 1; warn $_[0] };
196 File
::Path
::rmtree
$tmp;
199 # This is required if the code might send any output to stdout
200 # E.g., even --version or --help. So it's best to do it unconditionally.
203 print STDERR
"$me: closing standard output: $!\n";
217 =item C<debug (@message)>
219 If the debug mode is enabled (C<$debug> and C<$verbose>), report the
220 C<@message> on C<STDERR>, signed with the name of the program.
226 # Messages displayed only if $DEBUG and $VERBOSE.
229 print STDERR
"$me: ", @_, "\n"
230 if $verbose && $debug;
234 =item C<getopt (%option)>
236 Wrapper around C<Getopt::Long>. In addition to the user C<option>s,
237 support C<-h>/C<--help>, C<-V>/C<--version>, C<-v>/C<--verbose>,
238 C<-d>/C<--debug>, C<-f>/C<--force>. Conform to the GNU Coding
239 Standards for error messages. Try to work around a weird behavior
240 from C<Getopt::Long> to preserve C<-> as an C<@ARGV> instead of
241 rejecting it as a broken option.
247 # Handle the %OPTION, plus all the common options.
248 # Work around Getopt bugs wrt `-'.
254 # F*k. Getopt seems bogus and dies when given `-' with `bundling'.
255 # If fixed some day, use this: '' => sub { push @ARGV, "-" }
256 my $stdin = grep /^-$/, @ARGV;
257 @ARGV = grep !/^-$/, @ARGV;
258 %option = ("h|help" => sub { print $help; exit 0 },
259 "V|version" => sub { print $version; exit 0 },
261 "v|verbose" => sub { ++$verbose },
262 "d|debug" => sub { ++$debug },
263 'f|force' => \
$force,
265 # User options last, so that they have precedence.
267 Getopt
::Long
::Configure
("bundling", "pass_through");
271 foreach (grep { /^-./ } @ARGV)
273 print STDERR
"$0: unrecognized option `$_'\n";
274 print STDERR
"Try `$0 --help' for more information.\n";
281 setup_channel
'note', silent
=> !$verbose;
282 setup_channel
'verb', silent
=> !$verbose;
286 =item C<mktmpdir ($signature)>
288 Create a temporary directory which name is based on C<$signature>.
289 Store its name in C<$tmp>. C<END> is in charge of removing it, unless
294 # mktmpdir ($SIGNATURE)
295 # ---------------------
298 my ($signature) = @_;
299 my $TMPDIR = $ENV{'TMPDIR'} || '/tmp';
301 # If mktemp supports dirs, use it.
302 $tmp = `(umask 077 &&
303 mktemp -d "$TMPDIR/${signature}XXXXXX") 2>/dev/null`;
306 if (!$tmp || ! -d
$tmp)
308 $tmp = "$TMPDIR/$signature" . int (rand 10000) . ".$$";
310 or croak
"$me: cannot create $tmp: $!\n";
313 print STDERR
"$me:$$: working in $tmp\n"
318 =item C<uniq (@list)>
320 Return C<@list> with no duplicates, keeping only the first
332 foreach my $item (@_)
334 if (! exists $seen{$item})
340 return wantarray ?
@res : "@res";
344 =item C<handle_exec_errors ($command)>
346 Display an error message for C<$command>, based on the content of
352 # handle_exec_errors ($COMMAND)
353 # -----------------------------
354 sub handle_exec_errors
($)
358 $command = (split (' ', $command))[0];
361 error
"failed to run $command: $!";
365 use POSIX qw
(WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG
);
369 my $status = WEXITSTATUS
($?
);
370 # WIFEXITED and WEXITSTATUS can alter $!, reset it so that
371 # error() actually propagates the command's exit status, not $!.
373 error
"$command failed with exit status: $status";
375 elsif (WIFSIGNALED
($?
))
377 my $signal = WTERMSIG
($?
);
378 # In this case we prefer to exit with status 1.
380 error
"$command terminated by signal: $signal";
384 error
"$command exited abnormally";
397 Written by Alexandre Duret-Lutz E<lt>F<adl@gnu.org>E<gt> and Akim
398 Demaille E<lt>F<akim@freefriends.org>E<gt>.
406 ### Setup "GNU" style for perl-mode and cperl-mode.
408 ## perl-indent-level: 2
409 ## perl-continued-statement-offset: 2
410 ## perl-continued-brace-offset: 0
411 ## perl-brace-offset: 0
412 ## perl-brace-imaginary-offset: 0
413 ## perl-label-offset: -2
414 ## cperl-indent-level: 2
415 ## cperl-brace-offset: 0
416 ## cperl-continued-brace-offset: 0
417 ## cperl-label-offset: -2
418 ## cperl-extra-newline-before-brace: t
419 ## cperl-merge-trailing-else: nil
420 ## cperl-continued-statement-offset: 2