Edit
kc3-lang/automake/aclocal.in
Tom Tromey
- aclocal.in
-
#!@PERL@ # -*- perl -*- # @configure_input@ # aclocal - create aclocal.m4 by scanning configure.in # Copyright (C) 1996 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., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. # Written by Tom Tromey <tromey@cygnus.com>. eval 'exec @PERL@ -S $0 ${1+"$@"}' if 0; # aclocal - scan configure.in and generate aclocal.m4. # Some constants. $VERSION = "@VERSION@"; $PACKAGE = "@PACKAGE@"; $prefix = "@prefix@"; # Note that this isn't pkgdatadir, but a separate directory. $acdir = "@datadir@/aclocal"; # Some globals. # Exit status. $exit_status = 0; # Text to output. $output = ''; # Output file name. $output_file = 'aclocal.m4'; # Which macros have been seen. %macro_seen = (); # Which files have been seen. %file_seen = (); # Map macro names to file names. %map = (); # Map file names to file contents. %file_contents = (); # How much to say. $verbosity = 0; @obsolete_macros = ( 'AC_FEATURE_CTYPE', 'AC_FEATURE_ERRNO', 'AC_FEATURE_EXIT', 'AC_SYSTEM_HEADER', 'fp_C_PROTOTYPES', 'fp_FUNC_FNMATCH', 'fp_PROG_CC_STDC', 'fp_PROG_INSTALL', 'fp_WITH_DMALLOC', 'fp_WITH_REGEX', 'gm_PROG_LIBTOOL', 'jm_MAINTAINER_MODE', 'md_TYPE_PTRDIFF_T', 'ud_PATH_LISPDIR', 'ud_GNU_GETTEXT', # Now part of autoconf proper, under a different name. 'AM_FUNC_FNMATCH', 'AM_SANITY_CHECK_CC', # These aren't quite obsolete. # 'md_PATH_PROG', # 'ud_GNU_GETTEXT', # 'ud_LC_MESSAGES', # 'ud_WITH_NLS' ); $obsolete_rx = '(' . join ('|', @obsolete_macros) . ')'; # Matches a macro definition. $ac_defun_rx = "AC_DEFUN\\(\\[?([^],)\n]+)\\]?"; # Matches an AC_REQUIRE line. $ac_require_rx = "AC_REQUIRE\\(\\[?([^])]*)\\]?\\)"; local (@dirlist) = &parse_arguments (@ARGV); &scan_m4_files ($acdir, @dirlist); &scan_configure; if (! $exit_status) { &write_aclocal; } &check_acinclude; exit $exit_status; ################################################################ # Print usage and exit. sub usage { local ($status) = @_; print "Usage: aclocal [OPTIONS] ...\n"; print "\ --acdir=DIR directory holding config files --help print this help, then exit -I DIR add directory to search list for .m4 files --output=FILE put output in FILE (default aclocal.m4) --verbose don't be silent --version print version number, then exit Report bugs to <bug-gnu-utils\@prep.ai.mit.edu>\n"; exit $status; } # Parse command line. sub parse_arguments { local (@arglist) = @_; local (@dirlist); while (@arglist) { if ($arglist[0] =~ /^--acdir=(.+)$/) { $acdir = $1; } elsif ($arglist[0] =~/^--output=(.+)$/) { $output_file = $1; } elsif ($arglist[0] eq '-I') { shift (@arglist); push (@dirlist, $arglist[0]); } elsif ($arglist[0] eq '--verbose') { ++$verbosity; } elsif ($arglist[0] eq '--version') { print "aclocal (GNU $PACKAGE) $VERSION\n\n"; print "Copyright (C) 1996, 1997 Free Software Foundation, Inc.\n"; print "This is free software; see the source for copying conditions. There is NO\n"; print "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\n"; print "Written by Tom Tromey <tromey\@cygnus.com>\n"; exit 0; } elsif ($arglist[0] eq '--help') { &usage (0); } else { die "aclocal: unrecognized option -- \`$arglist[0]'\nTry \`aclocal --help' for more information.\n"; } shift (@arglist); } return @dirlist; } ################################################################ sub scan_configure { open (CONFIGURE, "configure.in") || die "aclocal: couldn't open \`configure.in': $!\n"; # Make sure we include acinclude.m4 if it exists. if (-f 'acinclude.m4') { &add_file ('acinclude.m4'); } while (<CONFIGURE>) { # Remove comments from current line. s/\bdnl\b.*$//; s/\#.*$//; if (/$obsolete_rx/o) { chop; warn "aclocal: configure.in: $.: obsolete macro \`$_'\n"; $exit_status = 1; next; } # Search for things we know about. The "search" sub is # constructed dynamically, above. &search; } close (CONFIGURE); } ################################################################ # Check macros in acinclude.m4. If one is not used, warn. sub check_acinclude { local ($key); foreach $key (keys %map) { next unless $map{$key} eq 'acinclude.m4'; if (! $macro_seen{$key}) { warn "aclocal: macro \`$key' defined in acinclude.m4 but never used\n"; } } } ################################################################ # Scan all the installed m4 files and construct a map. sub scan_m4_files { local (@dirlist) = @_; # First, scan acinclude.m4 if it exists. if (-f 'acinclude.m4') { $file_contents{'acinclude.m4'} = &scan_file ('acinclude.m4'); } local ($m4dir); foreach $m4dir (@dirlist) { opendir (DIR, $m4dir) || die "aclocal: couldn't open directory \`$m4dir': $!\n"; local ($file, $fullfile, $expr); foreach $file (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'; $fullfile = $m4dir . '/' . $file; $file_contents{$fullfile} = &scan_file ($fullfile); } closedir (DIR); } # Construct a new function that does the searching. We use a # function (instead of just evalling $search in the loop) so that # "die" is correctly and easily propagated if run. local ($search, $expr, $key) = ''; foreach $key (keys %map) { # EXPR is a regexp matching the name of the macro. ($expr = $key) =~ s/(\W)/\\$1/g; $search .= "&add_macro ('" . $key . "') if /" . $expr . "/;\n"; } eval 'sub search { ' . $search . '};'; die "internal error: $@\n search is $search " if $@; } ################################################################ # Add a macro to the output. sub add_macro { local ($macro) = @_; # Ignore AC_ macros. return if $macro =~ /^AC_/; if (! defined $map{$macro}) { warn "aclocal: macro \`$macro' required but not defined\n"; $exit_status = 1; return; } print STDERR "saw macro $macro\n" if $verbosity; $macro_seen{$macro} = 1; &add_file ($map{$macro}); } # Add a file to output. sub add_file { local ($file) = @_; # Only add a file once. return if ($file_seen{$file}); $file_seen{$file} = 1; $output .= $file_contents{$file} . "\n"; local (@rlist); foreach (split ("\n", $file_contents{$file})) { if (/$ac_require_rx/g) { push (@rlist, $1); } # This function constructed dynamically. &search; } local ($macro); foreach $macro (@rlist) { &add_macro ($macro); } } # Scan a single M4 file. Return contents. sub scan_file { local ($file) = @_; open (FILE, $file) || die "aclocal: couldn't open \`$file': $!\n"; local ($contents) = ''; while (<FILE>) { # Ignore `##' lines. next if /^##/; $contents .= $_; if (/$ac_defun_rx/) { if (!defined $map{$1}) { $map{$1} = $file; } # Allow acinclude.m4 to override other macro files. elsif ($map{$1} ne 'acinclude.m4' || $file eq 'acinclude.m4') { warn "aclocal: $file: $.: duplicated macro \`$1'\n"; $exit_status = 1; } print STDERR "Found macro $1 in $file: $.\n" if $verbosity; } } close (FILE); return $contents; } ################################################################ # Write output. sub write_aclocal { return if ! length ($output); print STDERR "Writing aclocal.m4\n" if $verbosity; open (ACLOCAL, "> aclocal.m4") || die "aclocal: couldn't open \`aclocal.m4' for writing: $!\n"; print ACLOCAL "dnl aclocal.m4 generated automatically by aclocal $VERSION\n\n"; print ACLOCAL $output; close (ACLOCAL); }