Edit
kc3-lang/automake/aclocal.in
Branch :
-
Show log
Commit
-
Author :
Alexandre Duret-Lutz
Date : 2005-05-14 20:28:56
Hash : 1183efd3
Message : * COPYING, ChangeLog, ChangeLog.00, ChangeLog.01, ChangeLog.02, ChangeLog.03, ChangeLog.96, ChangeLog.98, HACKING, Makefile.am, NEWS, README, TODO, aclocal.in, automake.in, bootstrap, configure, configure.ac, doc/Makefile.am, doc/fdl.texi, lib/COPYING, lib/Makefile.am, lib/acinstall, lib/compile, lib/config-ml.in, lib/config.guess, lib/config.sub, lib/depcomp, lib/elisp-comp, lib/gnupload, lib/mdate-sh, lib/missing, lib/py-compile, lib/symlink-tree, lib/texinfo.tex, lib/ylwrap, lib/Automake/ChannelDefs.pm, lib/Automake/Channels.pm, lib/Automake/Condition.pm, lib/Automake/Config.in, lib/Automake/Configure_ac.pm, lib/Automake/DisjConditions.pm, lib/Automake/FileUtils.pm, lib/Automake/General.pm, lib/Automake/Item.pm, lib/Automake/ItemDef.pm, lib/Automake/Location.pm, lib/Automake/Makefile.am, lib/Automake/Options.pm, lib/Automake/Rule.pm, lib/Automake/RuleDef.pm, lib/Automake/Struct.pm, lib/Automake/VarDef.pm, lib/Automake/Variable.pm, lib/Automake/Version.pm, lib/Automake/Wrap.pm, lib/Automake/XFile.pm, lib/Automake/tests/Condition.pl, lib/Automake/tests/DisjConditions.pl, lib/Automake/tests/Makefile.am, lib/Automake/tests/Version.pl, lib/Automake/tests/Wrap.pl, lib/am/Makefile.am, lib/am/ansi2knr.am, lib/am/check.am, lib/am/clean-hdr.am, lib/am/clean.am, lib/am/compile.am, lib/am/configure.am, lib/am/data.am, lib/am/dejagnu.am, lib/am/depend.am, lib/am/depend2.am, lib/am/distdir.am, lib/am/footer.am, lib/am/header-vars.am, lib/am/header.am, lib/am/inst-vars.am, lib/am/install.am, lib/am/java.am, lib/am/lang-compile.am, lib/am/lex.am, lib/am/library.am, lib/am/libs.am, lib/am/libtool.am, lib/am/lisp.am, lib/am/ltlib.am, lib/am/ltlibrary.am, lib/am/mans-vars.am, lib/am/mans.am, lib/am/multilib.am, lib/am/program.am, lib/am/progs.am, lib/am/python.am, lib/am/remake-hdr.am, lib/am/scripts.am, lib/am/subdirs.am, lib/am/tags.am, lib/am/texi-vers.am, lib/am/texibuild.am, lib/am/texinfos.am, lib/am/yacc.am, m4/Makefile.am, tests/aclibobj.test, tests/acloca10.test, tests/acloca11.test, tests/acloca12.test, tests/acloca13.test, tests/acloca14.test, tests/acloca15.test, tests/acloca16.test, tests/acloca17.test, tests/acloca18.test, tests/acloca19.test, tests/aclocal.test, tests/aclocal3.test, tests/aclocal4.test, tests/aclocal5.test, tests/aclocal6.test, tests/aclocal7.test, tests/aclocal8.test, tests/aclocal9.test, tests/acoutbs.test, tests/acoutbs2.test, tests/acoutnoq.test, tests/acoutpt.test, tests/acoutpt2.test, tests/acoutqnl.test, tests/acsilent.test, tests/acsubst.test, tests/acsubst2.test, tests/all.test, tests/alloca.test, tests/alloca2.test, tests/alpha.test, tests/alpha2.test, tests/amassign.test, tests/ammissing.test, tests/ansi.test, tests/ansi10.test, tests/ansi2.test, tests/ansi3.test, tests/ansi3b.test, tests/ansi4.test, tests/ansi5.test, tests/ansi6.test, tests/ansi7.test, tests/ansi8.test, tests/ansi9.test, tests/ar.test, tests/ar2.test, tests/asm.test, tests/autohdr.test, tests/autohdr2.test, tests/autohdr3.test, tests/autohdr4.test, tests/automake.test, tests/auxdir.test, tests/auxdir2.test, tests/auxdir3.test, tests/auxdir4.test, tests/backsl.test, tests/backsl2.test, tests/backsl3.test, tests/backsl4.test, tests/badline.test, tests/badopt.test, tests/badprog.test, tests/block.test, tests/bsource.test, tests/canon.test, tests/canon2.test, tests/canon3.test, tests/canon4.test, tests/canon5.test, tests/ccnoco.test, tests/check.test, tests/check2.test, tests/check3.test, tests/check4.test, tests/checkall.test, tests/clean.test, tests/clean2.test, tests/colneq.test, tests/colneq2.test, tests/colon.test, tests/colon2.test, tests/colon3.test, tests/colon4.test, tests/colon5.test, tests/colon6.test, tests/colon7.test, tests/comment.test, tests/comment2.test, tests/comment3.test, tests/comment4.test, tests/comment5.test, tests/comment6.test, tests/comment7.test, tests/comment8.test, tests/comment9.test, tests/compile.test, tests/compile_f90_c_cxx.test, tests/compile_f_c_cxx.test, tests/cond.test, tests/cond10.test, tests/cond11.test, tests/cond13.test, tests/cond14.test, tests/cond15.test, tests/cond16.test, tests/cond17.test, tests/cond18.test, tests/cond19.test, tests/cond2.test, tests/cond20.test, tests/cond21.test, tests/cond22.test, tests/cond23.test, tests/cond24.test, tests/cond25.test, tests/cond26.test, tests/cond27.test, tests/cond28.test, tests/cond29.test, tests/cond3.test, tests/cond30.test, tests/cond31.test, tests/cond32.test, tests/cond33.test, tests/cond34.test, tests/cond35.test, tests/cond36.test, tests/cond37.test, tests/cond4.test, tests/cond5.test, tests/cond6.test, tests/cond7.test, tests/cond8.test, tests/cond9.test, tests/condd.test, tests/condhook.test, tests/condinc.test, tests/condinc2.test, tests/condlib.test, tests/condman.test, tests/condman2.test, tests/conf2.test, tests/confdeps.test, tests/conff.test, tests/conff2.test, tests/confh.test, tests/confh4.test, tests/confh5.test, tests/config.test, tests/confincl.test, tests/conflnk.test, tests/conflnk2.test, tests/conflnk3.test, tests/confsub.test, tests/confvar.test, tests/confvar2.test, tests/copy.test, tests/ctarget1.test, tests/cxx.test, tests/cxx2.test, tests/cxxansi.test, tests/cxxcpp.test, tests/cxxlibobj.test, tests/cxxlink.test, tests/cxxnoc.test, tests/cxxo.test, tests/cygwin32.test, tests/dash.test, tests/defs.in, tests/defun.test, tests/defun2.test, tests/dejagnu.test, tests/dejagnu2.test, tests/dejagnu3.test, tests/dejagnu4.test, tests/dejagnu5.test, tests/dejagnu6.test, tests/dejagnu7.test, tests/depacl2.test, tests/depcomp.test, tests/depcomp2.test, tests/depcomp3.test, tests/depcomp4.test, tests/depcomp5.test, tests/depdist.test, tests/depend.test, tests/depend2.test, tests/depend3.test, tests/depend4.test, tests/destdir.test, tests/dirforbid.test, tests/dirlist.test, tests/discover.test, tests/distcom2.test, tests/distcom3.test, tests/distcom4.test, tests/distcom5.test, tests/distcom6.test, tests/distcom7.test, tests/distdir.test, tests/distname.test, tests/dollar.test, tests/double.test, tests/dup2.test, tests/else.test, tests/empty.test, tests/empty2.test, tests/empty3.test, tests/empty4.test, tests/exdir.test, tests/exdir2.test, tests/exeext.test, tests/exeext2.test, tests/exeext3.test, tests/exeext4.test, tests/exsource.test, tests/ext.test, tests/ext2.test, tests/extra.test, tests/extra2.test, tests/extra3.test, tests/extra4.test, tests/extra5.test, tests/extra6.test, tests/extra7.test, tests/f90only.test, tests/flibs.test, tests/fn99.test, tests/fnoc.test, tests/fo.test, tests/fonly.test, tests/fortdep.test, tests/fpinst2.test, tests/fpinstall.test, tests/gcj.test, tests/gcj2.test, tests/gcj3.test, tests/gcj4.test, tests/gcj5.test, tests/getopt.test, tests/gettext.test, tests/gettext2.test, tests/gnits.test, tests/gnits2.test, tests/gnits3.test, tests/gnumake.test, tests/gnuwarn.test, tests/gnuwarn2.test, tests/header.test, tests/help.test, tests/hfs.test, tests/hosts.test, tests/implicit.test, tests/include.test, tests/include2.test, tests/info.test, tests/insh2.test, tests/install2.test, tests/installdir.test, tests/instdat.test, tests/instdat2.test, tests/instexec.test, tests/insthook.test, tests/instman.test, tests/instman2.test, tests/instsh.test, tests/instsh2.test, tests/instspc.test, tests/interp.test, tests/interp2.test, tests/java.test, tests/java2.test, tests/java3.test, tests/javaprim.test, tests/javasubst.test, tests/ldadd.test, tests/ldflags.test, tests/lex.test, tests/lex2.test, tests/lex3.test, tests/lex4.test, tests/lex5.test, tests/libobj10.test, tests/libobj11.test, tests/libobj12.test, tests/libobj13.test, tests/libobj14.test, tests/libobj2.test, tests/libobj3.test, tests/libobj4.test, tests/libobj5.test, tests/libobj7.test, tests/libobj8.test, tests/library.test, tests/library2.test, tests/library3.test, tests/libtool.test, tests/libtool2.test, tests/libtool3.test, tests/libtool4.test, tests/libtool5.test, tests/libtool6.test, tests/libtool7.test, tests/libtool8.test, tests/libtool9.test, tests/license.test, tests/link_c_cxx.test, tests/link_dist.test, tests/link_f90_only.test, tests/link_f_only.test, tests/link_fc.test, tests/link_fccxx.test, tests/link_fcxx.test, tests/lisp2.test, tests/lisp3.test, tests/lisp4.test, tests/lisp5.test, tests/lisp6.test, tests/lisp7.test, tests/lisp8.test, tests/listval.test, tests/location.test, tests/longlin2.test, tests/longline.test, tests/ltcond.test, tests/ltcond2.test, tests/ltconv.test, tests/ltdeps.test, tests/ltlibobjs.test, tests/ltlibsrc.test, tests/maintclean.test, tests/make.test, tests/makej.test, tests/makevars.test, tests/man.test, tests/man2.test, tests/mclean.test, tests/mdate.test, tests/mdate2.test, tests/mdate3.test, tests/mdate4.test, tests/missing.test, tests/missing2.test, tests/missing3.test, tests/mkinst2.test, tests/mkinstall.test, tests/mmodely.test, tests/multlib.test, tests/nobase.test, tests/nodef.test, tests/nodef2.test, tests/nodep.test, tests/nodepcomp.test, tests/nodist.test, tests/nodist2.test, tests/nodist3.test, tests/nogzip.test, tests/nogzip2.test, tests/noinst.test, tests/noinstdir.test, tests/nolink.test, tests/nostdinc.test, tests/number.test, tests/obsolete.test, tests/order.test, tests/outdir.test, tests/output.test, tests/output10.test, tests/output11.test, tests/output12.test, tests/output2.test, tests/output3.test, tests/output4.test, tests/output5.test, tests/output6.test, tests/output7.test, tests/output8.test, tests/output9.test, tests/overrid.test, tests/parse.test, tests/percent.test, tests/percent2.test, tests/phony.test, tests/pluseq.test, tests/pluseq10.test, tests/pluseq2.test, tests/pluseq3.test, tests/pluseq4.test, tests/pluseq5.test, tests/pluseq6.test, tests/pluseq7.test, tests/pluseq8.test, tests/pluseq9.test, tests/postproc.test, tests/ppf77.test, tests/pr2.test, tests/pr204.test, tests/pr211.test, tests/pr220.test, tests/pr224.test, tests/pr229.test, tests/pr243.test, tests/pr266.test, tests/pr279-2.test, tests/pr279.test, tests/pr287.test, tests/pr300-lib.test, tests/pr300-ltlib.test, tests/pr300-prog.test, tests/pr307.test, tests/pr401.test, tests/pr401b.test, tests/pr401c.test, tests/pr72.test, tests/pr87.test, tests/pr9.test, tests/prefix.test, tests/primary.test, tests/primary2.test, tests/primary3.test, tests/proginst.test, tests/python.test, tests/python10.test, tests/python11.test, tests/python12.test, tests/python2.test, tests/python3.test, tests/python4.test, tests/python5.test, tests/python6.test, tests/python7.test, tests/python8.test, tests/python9.test, tests/recurs.test, tests/recurs2.test, tests/regex.test, tests/remake.test, tests/remake2.test, tests/remake3.test, tests/remake4.test, tests/remake5.test, tests/req.test, tests/reqd.test, tests/reqd2.test, tests/rulepat.test, tests/scripts.test, tests/seenc.test, tests/sinclude.test, tests/space.test, tests/specflg.test, tests/specflg2.test, tests/specflg3.test, tests/specflg6.test, tests/specflg7.test, tests/specflg8.test, tests/specflg9.test, tests/spell.test, tests/spell2.test, tests/spell3.test, tests/spelling.test, tests/spy.test, tests/srcsub.test, tests/srcsub2.test, tests/stamph2.test, tests/stdlib.test, tests/stdlib2.test, tests/strip.test, tests/subcond.test, tests/subcond2.test, tests/subcond3.test, tests/subdir.test, tests/subdir2.test, tests/subdir3.test, tests/subdir4.test, tests/subdir5.test, tests/subdir6.test, tests/subdir7.test, tests/subdir8.test, tests/subdir9.test, tests/subdirbuiltsources.test, tests/subobj.test, tests/subobj2.test, tests/subobj3.test, tests/subobj4.test, tests/subobj5.test, tests/subobj6.test, tests/subobj7.test, tests/subobj8.test, tests/subobj9.test, tests/subobjname.test, tests/subpkg.test, tests/subpkg2.test, tests/subst.test, tests/subst2.test, tests/substre2.test, tests/substref.test, tests/substtarg.test, tests/suffix.test, tests/suffix10.test, tests/suffix11.test, tests/suffix2.test, tests/suffix3.test, tests/suffix4.test, tests/suffix5.test, tests/suffix6.test, tests/suffix7.test, tests/suffix8.test, tests/suffix9.test, tests/symlink.test, tests/symlink2.test, tests/symlink3.test, tests/syntax.test, tests/tags.test, tests/tagsub.test, tests/tar.test, tests/tar2.test, tests/tar3.test, tests/target-cflags.test, tests/targetclash.test, tests/transform.test, tests/txinfo.test, tests/txinfo10.test, tests/txinfo13.test, tests/txinfo16.test, tests/txinfo17.test, tests/txinfo18.test, tests/txinfo19.test, tests/txinfo2.test, tests/txinfo20.test, tests/txinfo21.test, tests/txinfo22.test, tests/txinfo23.test, tests/txinfo24.test, tests/txinfo25.test, tests/txinfo26.test, tests/txinfo27.test, tests/txinfo28.test, tests/txinfo29.test, tests/txinfo3.test, tests/txinfo4.test, tests/txinfo5.test, tests/txinfo6.test, tests/txinfo7.test, tests/txinfo8.test, tests/txinfo9.test, tests/unused.test, tests/vars.test, tests/vars3.test, tests/vartar.test, tests/version.test, tests/version2.test, tests/version3.test, tests/version4.test, tests/version6.test, tests/version7.test, tests/version8.test, tests/vpath.test, tests/vtexi.test, tests/vtexi2.test, tests/warnopts.test, tests/werror.test, tests/werror2.test, tests/whoami.test, tests/xsource.test, tests/yacc.test, tests/yacc2.test, tests/yacc3.test, tests/yacc4.test, tests/yacc5.test, tests/yacc6.test, tests/yacc7.test, tests/yacc8.test, tests/yaccpp.test, tests/yaccvpath.test: Update FSF postal mail address.
- aclocal.in
-
#!@PERL@ -w # -*- perl -*- # @configure_input@ eval 'case $# in 0) exec @PERL@ -S "$0";; *) exec @PERL@ -S "$0" "$@";; esac' if 0; # aclocal - create aclocal.m4 by scanning configure.ac # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 # Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA # 02110-1301, USA. # Written by Tom Tromey <tromey@redhat.com>, and # Alexandre Duret-Lutz <adl@gnu.org>. BEGIN { my $perllibdir = $ENV{'perllibdir'} || '@datadir@/@PACKAGE@-@APIVERSION@'; unshift @INC, (split '@PATH_SEPARATOR@', $perllibdir); } use strict; use Automake::Config; use Automake::General; use Automake::Configure_ac; use Automake::Channels; use Automake::ChannelDefs; use Automake::XFile; use Automake::FileUtils; use File::Basename; use File::stat; use Cwd; # Some globals. # Include paths for searching macros. We search macros in this order: # user-supplied directories first, then the directory containing the # automake macros, and finally the system-wide directories for # third-party macro. @user_includes can be augmented with -I. # @system_includes can be augmented with the `dirlist' file. Also # --acdir will reset both @automake_includes and @system_includes. my @user_includes = (); my @automake_includes = ("@datadir@/aclocal-$APIVERSION"); my @system_includes = ('@datadir@/aclocal'); # Whether we should copy M4 file in $user_includes[0]. my $install = 0; # --diff my @diff_command; # --dry-run my $dry_run = 0; # configure.ac or configure.in. my $configure_ac; # Output file name. my $output_file = 'aclocal.m4'; # Option --force. my $force_output = 0; # Modification time of the youngest dependency. my $greatest_mtime = 0; # Which macros have been seen. my %macro_seen = (); # Remember the order into which we scanned the files. # It's important to output the contents of aclocal.m4 in the opposite order. # (Definitions in first files we have scanned should override those from # later files. So they must appear last in the output.) my @file_order = (); # Map macro names to file names. my %map = (); # Ditto, but records the last definition of each macro as returned by --trace. my %map_traced_defs = (); # Map basenames to macro names. my %invmap = (); # Map file names to file contents. my %file_contents = (); # Map file names to file types. my %file_type = (); use constant FT_USER => 1; use constant FT_AUTOMAKE => 2; use constant FT_SYSTEM => 3; # Map file names to included files (transitively closed). my %file_includes = (); # Files which have already been added. my %file_added = (); # Files that have already been scanned. my %scanned_configure_dep = (); # Serial numbers, for files that have one. # The key is the basename of the file, # the value is the serial number represented as a list. my %serial = (); # Matches a macro definition. # AC_DEFUN([macroname], ...) # or # AC_DEFUN(macroname, ...) # When macroname is `['-quoted , we accept any character in the name, # except `]'. Otherwise macroname stops on the first `]', `,', `)', # or `\n' encountered. my $ac_defun_rx = "(?:AU_ALIAS|A[CU]_DEFUN|AC_DEFUN_ONCE)\\((?:\\[([^]]+)\\]|([^],)\n]+))"; # Matches an AC_REQUIRE line. my $ac_require_rx = "AC_REQUIRE\\((?:\\[([^]]+)\\]|([^],)\n]+))\\)"; # Matches an m4_include line my $m4_include_rx = "(?:m4_)?(s?)include\\((?:\\[([^]]+)\\]|([^],)\n]+))\\)"; # Match a serial number my $serial_line_rx = '^#\s*serial\s+(\S*)'; my $serial_number_rx = '^\d+(?:\.\d+)*$'; ################################################################ # Check macros in acinclude.m4. If one is not used, warn. sub check_acinclude () { foreach my $key (keys %map) { # FIXME: should print line number of acinclude.m4. msg ('syntax', "warning: macro `$key' defined in " . "acinclude.m4 but never used") if $map{$key} eq 'acinclude.m4' && ! exists $macro_seen{$key}; } } sub reset_maps () { $greatest_mtime = 0; %macro_seen = (); @file_order = (); %map = (); %map_traced_defs = (); %file_contents = (); %file_type = (); %file_includes = (); %file_added = (); %scanned_configure_dep = (); %invmap = (); %serial = (); undef &search; } # install_file ($SRC, $DEST) sub install_file ($$) { my ($src, $dest) = @_; my $diff_dest = $dest; if ($force_output || !exists $file_contents{$dest} || $file_contents{$src} ne $file_contents{$dest}) { if (-e $dest) { msg 'note', "overwriting `$dest' with `$src'"; } else { msg 'note', "installing `$dest' from `$src'"; $diff_dest = '/dev/null'; } if (@diff_command) { my @cmd = (@diff_command, $diff_dest, $src); $! = 0; verb "running: @cmd"; my $res = system (@cmd); Automake::FileUtils::handle_exec_errors "@cmd", 1 if $res; } elsif (!$dry_run) { xsystem ('cp', $src, $dest); } } } # Compare two lists of numbers. sub list_compare (\@\@) { my @l = @{$_[0]}; my @r = @{$_[1]}; while (1) { if (0 == @l) { return (0 == @r) ? 0 : -1; } elsif (0 == @r) { return 1; } elsif ($l[0] < $r[0]) { return -1; } elsif ($l[0] > $r[0]) { return 1; } shift @l; shift @r; } } ################################################################ # scan_m4_dirs($TYPE, @DIRS) # -------------------------- # Scan all M4 files installed in @DIRS for new macro definitions. # Register each file as of type $TYPE (one of the FT_* constants). sub scan_m4_dirs ($@) { my ($type, @dirlist) = @_; foreach my $m4dir (@dirlist) { if (! opendir (DIR, $m4dir)) { fatal "couldn't open directory `$m4dir': $!"; } # We reverse the directory contents so that foo2.m4 gets # used in preference to foo1.m4. foreach my $file (reverse sort grep (! /^\./, readdir (DIR))) { # Only examine .m4 files. next unless $file =~ /\.m4$/; # Skip some files when running out of srcdir. next if $file eq 'aclocal.m4'; my $fullfile = File::Spec->canonpath ("$m4dir/$file"); &scan_file ($type, $fullfile, 'aclocal'); } closedir (DIR); } } # Scan all the installed m4 files and construct a map. sub scan_m4_files () { # First, scan configure.ac. It may contain macro definitions, # or may include other files that define macros. &scan_file (FT_USER, $configure_ac, 'aclocal'); # Then, scan acinclude.m4 if it exists. if (-f 'acinclude.m4') { &scan_file (FT_USER, 'acinclude.m4', 'aclocal'); } # Finally, scan all files in our search paths. scan_m4_dirs (FT_USER, @user_includes); scan_m4_dirs (FT_AUTOMAKE, @automake_includes); scan_m4_dirs (FT_SYSTEM, @system_includes); # Construct a new function that does the searching. We use a # function (instead of just evaluating $search in the loop) so that # "die" is correctly and easily propagated if run. my $search = "sub search {\nmy \$found = 0;\n"; foreach my $key (reverse sort keys %map) { $search .= ('if (/\b\Q' . $key . '\E(?!\w)/) { & add_macro ("' . $key . '"); $found = 1; }' . "\n"); } $search .= "return \$found;\n};\n"; eval $search; prog_error "$@\n search is $search" if $@; } ################################################################ # Add a macro to the output. sub add_macro ($) { my ($macro) = @_; # Ignore unknown required macros. Either they are not really # needed (e.g., a conditional AC_REQUIRE), in which case aclocal # should be quiet, or they are needed and Autoconf itself will # complain when we trace for macro usage later. return unless defined $map{$macro}; verb "saw macro $macro"; $macro_seen{$macro} = 1; &add_file ($map{$macro}); } # scan_configure_dep ($file) # -------------------------- # Scan a configure dependency (configure.ac, or separate m4 files) # for uses of know macros and AC_REQUIREs of possibly unknown macros. # Recursively scan m4_included files. sub scan_configure_dep ($) { my ($file) = @_; # Do not scan a file twice. return () if exists $scanned_configure_dep{$file}; $scanned_configure_dep{$file} = 1; my $mtime = mtime $file; $greatest_mtime = $mtime if $greatest_mtime < $mtime; my $contents = exists $file_contents{$file} ? $file_contents{$file} : contents $file; my $line = 0; my @rlist = (); my @ilist = (); foreach (split ("\n", $contents)) { ++$line; # Remove comments from current line. s/\bdnl\b.*$//; s/\#.*$//; while (/$m4_include_rx/go) { my $ifile = $2 || $3; # Skip missing `sinclude'd files. next if $1 eq 's' && ! -f $ifile; push @ilist, $ifile; } while (/$ac_require_rx/go) { push (@rlist, $1 || $2); } # The search function is constructed dynamically by # scan_m4_files. The last parenthetical match makes sure we # don't match things that look like macro assignments or # AC_SUBSTs. if (! &search && /(^|\s+)(AM_[A-Z0-9_]+)($|[^\]\)=A-Z0-9_])/) { # Macro not found, but AM_ prefix found. # Make this just a warning, because we do not know whether # the macro is actually used (it could be called conditionally). msg ('unsupported', "$file:$line", "warning: macro `$2' not found in library"); } } add_macro ($_) foreach (@rlist); &scan_configure_dep ($_) foreach @ilist; } # add_file ($FILE) # ---------------- # Add $FILE to output. sub add_file ($) { my ($file) = @_; # Only add a file once. return if ($file_added{$file}); $file_added{$file} = 1; scan_configure_dep $file; } # Point to the documentation for underquoted AC_DEFUN only once. my $underquoted_manual_once = 0; # scan_file ($TYPE, $FILE, $WHERE) # -------------------------------- # Scan a single M4 file ($FILE), and all files it includes. # Return the list of included files. # $TYPE is one of FT_USER, FT_AUTOMAKE, or FT_SYSTEM, depending # on where the file comes from. # $WHERE is the location to use in the diagnostic if the file # does not exist. sub scan_file ($$$) { my ($type, $file, $where) = @_; my $basename = basename $file; # Do not scan the same file twice. return @{$file_includes{$file}} if exists $file_includes{$file}; # Prevent potential infinite recursion (if two files include each other). return () if exists $file_contents{$file}; unshift @file_order, $file; $file_type{$file} = $type; fatal "$where: file `$file' does not exist" if ! -e $file; my $fh = new Automake::XFile $file; my $contents = ''; my @inc_files = (); my %inc_lines = (); my $defun_seen = 0; my $serial_seen = 0; my $serial_older = 0; while ($_ = $fh->getline) { # Ignore `##' lines. next if /^##/; $contents .= $_; my $line = $_; if ($line =~ /$serial_line_rx/go) { my $number = $1; if ($number !~ /$serial_number_rx/go) { msg ('syntax', "$file:$.", "warning: ill-formed serial number `$number', " . "expecting a version string with only digits and dots"); } elsif ($defun_seen) { # aclocal removes all definitions from M4 file with the # same basename if a greater serial number is found. # Encountering a serial after some macros will undefine # these macros... msg ('syntax', "$file:$.", 'the serial number must appear before any macro definition'); } # We really care about serials only for non-automake macros # and when --install is used. But the above diagnostics are # made regardless of this, because not using --install is # not a reason not the fix macro files. elsif ($install && $type != FT_AUTOMAKE) { $serial_seen = 1; my @new = split (/\./, $number); verb "$file:$.: serial $number"; if (!exists $serial{$basename} || list_compare (@new, @{$serial{$basename}}) > 0) { # Delete any definition we knew from the old macro. foreach my $def (@{$invmap{$basename}}) { verb "$file:$.: ignoring previous definition of $def"; delete $map{$def}; } $invmap{$basename} = []; $serial{$basename} = \@new; } else { $serial_older = 1; } } } while ($line =~ /$ac_defun_rx/go) { $defun_seen = 1; if (! defined $1) { msg ('syntax', "$file:$.", "warning: underquoted definition of $2" . "\n run info '(automake)Extending aclocal'\n" . " or see http://sources.redhat.com/automake/" . "automake.html#Extending-aclocal") unless $underquoted_manual_once; $underquoted_manual_once = 1; } # If this macro does not have a serial and we have already # seen a macro with the same basename earlier, we should # ignore the macro (don't exit immediately so we can still # diagnose later #serial numbers and underquoted macros). $serial_older ||= ($type != FT_AUTOMAKE && !$serial_seen && exists $serial{$basename}); my $macro = $1 || $2; if (!$serial_older && !defined $map{$macro}) { verb "found macro $macro in $file: $."; $map{$macro} = $file; push @{$invmap{$basename}}, $macro; } else { # Note: we used to give an error here if we saw a # duplicated macro. However, this turns out to be # extremely unpopular. It causes actual problems which # are hard to work around, especially when you must # mix-and-match tool versions. verb "ignoring macro $macro in $file: $."; } } while ($line =~ /$m4_include_rx/go) { my $ifile = $2 || $3; # Skip missing `sinclude'd files. next if $1 eq 's' && ! -f $ifile; push (@inc_files, $ifile); $inc_lines{$ifile} = $.; } } # Ignore any file that has an old serial (or no serial if we know # another one with a serial). return () if ($serial_older || ($type != FT_AUTOMAKE && !$serial_seen && exists $serial{$basename})); $file_contents{$file} = $contents; # For some reason I don't understand, it does not work # to do `map { scan_file ($_, ...) } @inc_files' below. # With Perl 5.8.2 it undefines @inc_files. my @copy = @inc_files; my @all_inc_files = (@inc_files, map { scan_file ($type, $_, "$file:$inc_lines{$_}") } @copy); $file_includes{$file} = \@all_inc_files; return @all_inc_files; } # strip_redundant_includes (%FILES) # --------------------------------- # Each key in %FILES is a file that must be present in the output. # However some of these files might already include other files in %FILES, # so there is no point in including them another time. # This removes items of %FILES which are already included by another file. sub strip_redundant_includes (%) { my %files = @_; # Always include acinclude.m4, even if it does not appear to be used. $files{'acinclude.m4'} = 1 if -f 'acinclude.m4'; # File included by $configure_ac are redundant. $files{$configure_ac} = 1; # Files at the end of @file_order should override those at the beginning, # so it is important to preserve these trailing files. We can remove # a file A if it is going to be output before a file B that includes # file A, not the converse. foreach my $file (reverse @file_order) { next unless exists $files{$file}; foreach my $ifile (@{$file_includes{$file}}) { next unless exists $files{$ifile}; delete $files{$ifile}; verb "$ifile is already included by $file"; } } # configure.ac is implicitly included. delete $files{$configure_ac}; return %files; } sub trace_used_macros () { my %files = map { $map{$_} => 1 } keys %macro_seen; %files = strip_redundant_includes %files; my $traces = ($ENV{AUTOM4TE} || 'autom4te'); $traces .= " --language Autoconf-without-aclocal-m4 "; # All candidate files. $traces .= join (' ', grep { exists $files{$_} } @file_order) . " "; # All candidate macros. $traces .= join (' ', (map { "--trace='$_:\$f::\$n::\$1'" } ('AC_DEFUN', 'AC_DEFUN_ONCE', 'AU_DEFUN')), # Do not trace $1 for all other macros as we do # not need it and it might contains harmful # characters (like newlines). (map { "--trace='$_:\$f::\$n'" } (keys %macro_seen))); verb "running $traces $configure_ac"; my $tracefh = new Automake::XFile ("$traces $configure_ac |"); my %traced = (); while ($_ = $tracefh->getline) { chomp; my ($file, $macro, $arg1) = split (/::/); $traced{$macro} = 1 if exists $macro_seen{$macro}; $map_traced_defs{$arg1} = $file if ($macro eq 'AC_DEFUN' || $macro eq 'AC_DEFUN_ONCE' || $macro eq 'AU_DEFUN'); } $tracefh->close; return %traced; } sub scan_configure () { # Make sure we include acinclude.m4 if it exists. if (-f 'acinclude.m4') { add_file ('acinclude.m4'); } scan_configure_dep ($configure_ac); } ################################################################ # Write output. # Return 0 iff some files were installed locally. sub write_aclocal ($@) { my ($output_file, @macros) = @_; my $output = ''; my %files = (); # Get the list of files containing definitions for the macros used. # (Filter out unused macro definitions with $map_traced_defs. This # can happen when an Autoconf macro is conditionally defined: # aclocal sees the potential definition, but this definition is # actually never processed and the Autoconf implementation is used # instead.) for my $m (@macros) { $files{$map{$m}} = 1 if (exists $map_traced_defs{$m} && $map{$m} eq $map_traced_defs{$m}); } # Do not explicitly include a file that is already indirectly included. %files = strip_redundant_includes %files; my $installed = 0; for my $file (grep { exists $files{$_} } @file_order) { # Check the time stamp of this file, and of all files it includes. for my $ifile ($file, @{$file_includes{$file}}) { my $mtime = mtime $ifile; $greatest_mtime = $mtime if $greatest_mtime < $mtime; } # If the file to add looks like outside the project, copy it # to the output. The regex catches filenames starting with # things like `/', `\', or `c:\'. if ($file_type{$file} != FT_USER || $file =~ m,^(?:\w:)?[\\/],) { if (!$install || $file_type{$file} != FT_SYSTEM) { # Copy the file into aclocal.m4. $output .= $file_contents{$file} . "\n"; } else { # Install the file (and any file it includes). my $dest; for my $ifile (@{$file_includes{$file}}, $file) { $dest = "$user_includes[0]/" . basename $ifile; verb "installing $ifile to $dest"; install_file ($ifile, $dest); } $installed = 1; } } else { # Otherwise, simply include the file. $output .= "m4_include([$file])\n"; } } if ($installed) { verb "running aclocal anew, because some files were installed locally"; return 0; } # Nothing to output?! # FIXME: Shouldn't we diagnose this? return 1 if ! length ($output); # We used to print `# $output_file generated automatically etc.' But # this creates spurious differences when using autoreconf. Autoreconf # creates aclocal.m4t and then rename it to aclocal.m4, but the # rebuild rules generated by Automake create aclocal.m4 directly -- # this would gives two ways to get the same file, with a different # name in the header. $output = "# generated automatically by aclocal $VERSION -*- Autoconf -*- # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, # 2005 Free Software Foundation, Inc. # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. $output"; # We try not to update $output_file unless necessary, because # doing so invalidate Autom4te's cache and therefore slows down # tools called after aclocal. # # We need to overwrite $output_file in the following situations. # * The --force option is in use. # * One of the dependencies is younger. # (Not updating $output_file in this situation would cause # make to call aclocal in loop.) # * The contents of the current file are different from what # we have computed. if (!$force_output && $greatest_mtime < mtime ($output_file) && $output eq contents ($output_file)) { verb "$output_file unchanged"; return 1; } verb "writing $output_file"; if (!$dry_run) { my $out = new Automake::XFile "> $output_file"; print $out $output; } return 1; } ################################################################ # Print usage and exit. sub usage ($) { my ($status) = @_; print "Usage: aclocal [OPTIONS] ... Generate `aclocal.m4' by scanning `configure.ac' or `configure.in' Options: --acdir=DIR directory holding config files (for debugging) --diff[=COMMAND] run COMMAND [diff -u] on M4 files that would be changed (implies --install and --dry-run) --dry-run pretend to, but do not actually update any file --force always update output file --help print this help, then exit -I DIR add directory to search list for .m4 files --install copy third-party files to the first -I directory --output=FILE put output in FILE (default aclocal.m4) --print-ac-dir print name of directory holding m4 files, then exit --verbose don't be silent --version print version number, then exit -W, --warnings=CATEGORY report the warnings falling in CATEGORY Warning categories include: `syntax' dubious syntactic constructs (default) `unsupported' unknown macros (default) `all' all the warnings (default) `no-CATEGORY' turn off warnings in CATEGORY `none' turn off all the warnings `error' treat warnings as errors Report bugs to <bug-automake\@gnu.org>.\n"; exit $status; } # Print version and exit. sub version() { print <<EOF; aclocal (GNU $PACKAGE) $VERSION Written by Tom Tromey <tromey\@redhat.com> and Alexandre Duret-Lutz <adl\@gnu.org>. Copyright (C) 2005 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. EOF exit 0; } # Parse command line. sub parse_arguments () { my $print_and_exit = 0; my $diff_command; my %cli_options = ( 'acdir=s' => sub # Setting --acdir overrides both the { # automake (versioned) directory and the # public (unversioned) system directory. @automake_includes = (); @system_includes = ($_[1]) }, 'diff:s' => \$diff_command, 'dry-run' => \$dry_run, 'force' => \$force_output, 'I=s' => \@user_includes, 'install' => \$install, 'output=s' => \$output_file, 'print-ac-dir' => \$print_and_exit, 'verbose' => sub { setup_channel 'verb', silent => 0; }, 'W|warnings=s' => \&parse_warnings, ); use Getopt::Long; Getopt::Long::config ("bundling", "pass_through"); # See if --version or --help is used. We want to process these before # anything else because the GNU Coding Standards require us to # `exit 0' after processing these options, and we can't guarantee this # if we treat other options first. (Handling other options first # could produce error diagnostics, and in this condition it is # confusing if aclocal does `exit 0'.) my %cli_options_1st_pass = ( 'version' => \&version, 'help' => sub { usage(0); }, # Recognize all other options (and their arguments) but do nothing. map { $_ => sub {} } (keys %cli_options) ); my @ARGV_backup = @ARGV; Getopt::Long::GetOptions %cli_options_1st_pass or exit 1; @ARGV = @ARGV_backup; # Now *really* process the options. This time we know that --help # and --version are not present, but we specify them nonetheless so # that ambiguous abbreviation are diagnosed. Getopt::Long::GetOptions %cli_options, 'version' => sub {}, 'help' => sub {} or exit 1; if (@ARGV) { my %argopts; for my $k (keys %cli_options) { if ($k =~ /(.*)=s$/) { map { $argopts{(length ($_) == 1) ? "-$_" : "--$_" } = 1; } (split (/\|/, $1)); } } if (exists $argopts{$ARGV[0]}) { fatal ("option `$ARGV[0]' requires an argument\n" . "Try `$0 --help' for more information."); } else { fatal ("unrecognized option `$ARGV[0]'\n" . "Try `$0 --help' for more information."); } } if ($print_and_exit) { print "@system_includes\n"; exit 0; } if (defined $diff_command) { $diff_command = 'diff -u' if $diff_command eq ''; @diff_command = split (' ', $diff_command); $install = 1; $dry_run = 1; } if ($install && !@user_includes) { fatal ("--install should copy macros in the directory indicated by the" . "\nfirst -I option, but no -I was supplied."); } if (! -d $system_includes[0]) { # By default $(datadir)/aclocal doesn't exist. We don't want to # get an error in the case where we are searching the default # directory and it hasn't been created. (We know # @system_includes has its default value if @automake_includes # is not empty, because --acdir is the only way to change this.) @system_includes = () if @automake_includes; } else { # Finally, adds any directory listed in the `dirlist' file. if (open (DIRLIST, "$system_includes[0]/dirlist")) { while (<DIRLIST>) { # Ignore '#' lines. next if /^#/; # strip off newlines and end-of-line comments s/\s*\#.*$//; chomp; push (@system_includes, $_) if -d $_; } close (DIRLIST); } } } ################################################################ parse_WARNINGS; # Parse the WARNINGS environment variable. parse_arguments; $configure_ac = require_configure_ac; # We may have to rerun aclocal if some file have been installed, but # it should not happen more than once. The reason we must run again # is that once the file has been moved from /usr/share/aclocal/ to the # local m4/ directory it appears at a new place in the search path, # hence it should be output at a different position in aclocal.m4. If # we did not rerun aclocal, the next run of aclocal would produce a # different aclocal.m4. my $loop = 0; while (1) { ++$loop; prog_error "Too many loops." if $loop > 2; reset_maps; scan_m4_files; scan_configure; last if $exit_code; my %macro_traced = trace_used_macros; last if write_aclocal ($output_file, keys %macro_traced); last if $dry_run; } check_acinclude; exit $exit_code; ### Setup "GNU" style for perl-mode and cperl-mode. ## Local Variables: ## perl-indent-level: 2 ## perl-continued-statement-offset: 2 ## perl-continued-brace-offset: 0 ## perl-brace-offset: 0 ## perl-brace-imaginary-offset: 0 ## perl-label-offset: -2 ## cperl-indent-level: 2 ## cperl-brace-offset: 0 ## cperl-continued-brace-offset: 0 ## cperl-label-offset: -2 ## cperl-extra-newline-before-brace: t ## cperl-merge-trailing-else: nil ## cperl-continued-statement-offset: 2 ## End: