aclocal.in

   1 #!@PERL@
   2 # -*- perl -*-
   3 # @configure_input@
   4
   5 # aclocal - create aclocal.m4 by scanning configure.in
   6 # Copyright (C) 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
   7
   8 # This program is free software; you can redistribute it and/or modify
   9 # it under the terms of the GNU General Public License as published by
  10 # the Free Software Foundation; either version 2, or (at your option)
  11 # any later version.
  12
  13 # This program is distributed in the hope that it will be useful,
  14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 # GNU General Public License for more details.
  17
  18 # You should have received a copy of the GNU General Public License
  19 # along with this program; if not, write to the Free Software
  20 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  21 # 02111-1307, USA.
  22
  23 # Written by Tom Tromey <tromey@cygnus.com>.
  24
  25 eval 'exec @PERL@ -S $0 ${1+"$@"}'
  26     if 0;
  27
  28 # aclocal - scan configure.in and generate aclocal.m4.
  29
  30 # Some constants.
  31 $VERSION = "@VERSION@";
  32 $PACKAGE = "@PACKAGE@";
  33 $prefix = "@prefix@";
  34 # Note that this isn't pkgdatadir, but a separate directory.
  35 $acdir = "@datadir@/aclocal";
  36
  37 # Some globals.
  38
  39 # Exit status.
  40 $exit_status = 0;
  41
  42 # Text to output.
  43 $output = '';
  44
  45 # Output file name.
  46 $output_file = 'aclocal.m4';
  47
  48 # Which macros have been seen.
  49 %macro_seen = ();
  50
  51 # Which files have been seen.
  52 %file_seen = ();
  53
  54 # Map macro names to file names.
  55 %map = ();
  56
  57 # Map file names to file contents.
  58 %file_contents = ();
  59
  60 # How much to say.
  61 $verbosity = 0;
  62
  63 # Map from obsolete macros to hints for new macros.
  64 # If you change this, change the corresponding list in automake.in.
  65 # FIXME: should just put this into a single file.
  66 %obsolete_macros =
  67     (
  68      'AC_FEATURE_CTYPE', "use \`AC_HEADER_STDC'",
  69      'AC_FEATURE_ERRNO', "add \`strerror' to \`AC_REPLACE_FUNCS(...)'",
  70      'AC_FEATURE_EXIT', '',
  71      'AC_SYSTEM_HEADER', '',
  72
  73      # Note that we do not handle this one, because it is still run
  74      # from AM_CONFIG_HEADER.  So we deal with it specially in
  75      # scan_configure.
  76      # 'AC_CONFIG_HEADER', "use \`AM_CONFIG_HEADER'",
  77
  78      'fp_C_PROTOTYPES', "use \`AM_C_PROTOTYPES'",
  79      'fp_PROG_CC_STDC', "use \`AM_PROG_CC_STDC'",
  80      'fp_PROG_INSTALL', "use \`AC_PROG_INSTALL'",
  81      'fp_WITH_DMALLOC', "use \`AM_WITH_DMALLOC'",
  82      'fp_WITH_REGEX', "use \`AM_WITH_REGEX'",
  83      'gm_PROG_LIBTOOL', "use \`AM_PROG_LIBTOOL'",
  84      'jm_MAINTAINER_MODE', "use \`AM_MAINTAINER_MODE'",
  85      'md_TYPE_PTRDIFF_T', "use \`AM_TYPE_PTRDIFF_T'",
  86      'ud_PATH_LISPDIR', "use \`AM_PATH_LISPDIR'",
  87      'ud_GNU_GETTEXT', "use \`AM_GNU_GETTEXT'",
  88
  89      # Now part of autoconf proper, under a different name.
  90      'AM_FUNC_FNMATCH', "use \`AC_FUNC_FNMATCH'",
  91      'fp_FUNC_FNMATCH', "use \`AC_FUNC_FNMATCH'",
  92      'AM_SANITY_CHECK_CC', "automatically done by \`AC_PROG_CC'",
  93      'AM_PROG_INSTALL', "use \`AC_PROG_INSTALL'",
  94      'AM_EXEEXT', "use \`AC_EXEEXT'",
  95      'AM_CYGWIN32', "use \`AC_CYGWIN'",
  96      'AM_MINGW32', "use \`AC_MINGW32'",
  97      'AM_FUNC_MKTIME', "use \`AC_FUNC_MKTIME'",
  98
  99 # These aren't quite obsolete.
 100 #      'md_PATH_PROG',
 101      );
 102
 103 # Regexp to match the above macros.
 104 $obsolete_rx = '(' . join ('|', keys %obsolete_macros) . ')';
 105
 106 # Matches a macro definition.
 107 $ac_defun_rx = "AC_DEFUN\\(\\[?([^],)\n]+)\\]?";
 108
 109 # Matches an AC_REQUIRE line.
 110 $ac_require_rx = "AC_REQUIRE\\(\\[?([^])]*)\\]?\\)";
 111
 112 \f
 113
 114 local (@dirlist) = &parse_arguments (@ARGV);
 115 &scan_m4_files ($acdir, @dirlist);
 116 &scan_configure;
 117 if (! $exit_status)
 118 {
 119     &write_aclocal;
 120 }
 121 &check_acinclude;
 122
 123 exit $exit_status;
 124
 125 ################################################################
 126
 127 # Print usage and exit.
 128 sub usage
 129 {
 130     local ($status) = @_;
 131
 132     print "Usage: aclocal [OPTIONS] ...\n\n";
 133     print "Generate aclocal.m4 by scanning configure.in\n
 134   --acdir=DIR           directory holding config files
 135   --help                print this help, then exit
 136   -I DIR                add directory to search list for .m4 files
 137   --output=FILE         put output in FILE (default aclocal.m4)
 138   --print-ac-dir        print name of directory holding m4 files
 139   --verbose             don't be silent
 140   --version             print version number, then exit
 141
 142 Report bugs to <bug-automake\@gnu.org>.\n";
 143
 144     exit $status;
 145 }
 146
 147 # Parse command line.
 148 sub parse_arguments
 149 {
 150     local (@arglist) = @_;
 151     local (@dirlist);
 152     local ($print_and_exit) = 0;
 153
 154     while (@arglist)
 155     {
 156         if ($arglist[0] =~ /^--acdir=(.+)$/)
 157         {
 158             $acdir = $1;
 159         }
 160         elsif ($arglist[0] =~/^--output=(.+)$/)
 161         {
 162             $output_file = $1;
 163         }
 164         elsif ($arglist[0] eq '-I')
 165         {
 166             shift (@arglist);
 167             push (@dirlist, $arglist[0]);
 168         }
 169         elsif ($arglist[0] eq '--print-ac-dir')
 170         {
 171             $print_and_exit = 1;
 172         }
 173         elsif ($arglist[0] eq '--verbose')
 174         {
 175             ++$verbosity;
 176         }
 177         elsif ($arglist[0] eq '--version')
 178         {
 179             print "aclocal (GNU $PACKAGE) $VERSION\n\n";
 180             print "Copyright (C) 1999 Free Software Foundation, Inc.\n";
 181             print "This is free software; see the source for copying conditions.  There is NO\n";
 182             print "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\n";
 183             print "Written by Tom Tromey <tromey\@cygnus.com>\n";
 184             exit 0;
 185         }
 186         elsif ($arglist[0] eq '--help')
 187         {
 188             &usage (0);
 189         }
 190         else
 191         {
 192             die "aclocal: unrecognized option -- \`$arglist[0]'\nTry \`aclocal --help' for more information.\n";
 193         }
 194
 195         shift (@arglist);
 196     }
 197
 198     if ($print_and_exit)
 199     {
 200         print $acdir, "\n";
 201         exit 0;
 202     }
 203
 204     return @dirlist;
 205 }
 206
 207 ################################################################
 208
 209 sub scan_configure
 210 {
 211     open (CONFIGURE, "configure.in")
 212         || die "aclocal: couldn't open \`configure.in': $!\n";
 213
 214     # Make sure we include acinclude.m4 if it exists.
 215     if (-f 'acinclude.m4')
 216     {
 217         &add_file ('acinclude.m4');
 218     }
 219
 220     while (<CONFIGURE>)
 221     {
 222         # Remove comments from current line.
 223         s/\bdnl\b.*$//;
 224         s/\#.*$//;
 225
 226         if (/$obsolete_rx/o)
 227         {
 228             local ($hint) = '';
 229             if ($obsolete_macros{$1} ne '')
 230             {
 231                 $hint = '; ' . $obsolete_macros{$1};
 232             }
 233             warn "aclocal: configure.in: $.: \`$1' is obsolete$hint\n";
 234             $exit_status = 1;
 235             next;
 236         }
 237
 238         # Search for things we know about.  The "search" sub is
 239         # constructed dynamically by scan_m4_files.
 240         if (! &search && /(^|\s+)(AM_[A-Z_]+)/)
 241         {
 242             # Macro not found, but AM_ prefix found.
 243             warn "aclocal: configure.in: $.: macro \`$2' not found in library\n";
 244             $exit_status = 1;
 245         }
 246     }
 247
 248     close (CONFIGURE);
 249 }
 250
 251 ################################################################
 252
 253 # Check macros in acinclude.m4.  If one is not used, warn.
 254 sub check_acinclude
 255 {
 256     local ($key);
 257
 258     foreach $key (keys %map)
 259     {
 260         next unless $map{$key} eq 'acinclude.m4';
 261         if (! $macro_seen{$key})
 262         {
 263             # FIXME: should print line number of acinclude.m4.
 264             warn "aclocal: macro \`$key' defined in acinclude.m4 but never used\n";
 265         }
 266     }
 267 }
 268
 269 ################################################################
 270
 271 # Scan all the installed m4 files and construct a map.
 272 sub scan_m4_files
 273 {
 274     local (@dirlist) = @_;
 275
 276     # First, scan acinclude.m4 if it exists.
 277     if (-f 'acinclude.m4')
 278     {
 279         $file_contents{'acinclude.m4'} = &scan_file ('acinclude.m4');
 280     }
 281
 282     local ($m4dir);
 283     foreach $m4dir (@dirlist)
 284     {
 285         opendir (DIR, $m4dir)
 286             || die "aclocal: couldn't open directory \`$m4dir': $!\n";
 287         local ($file, $fullfile, $expr);
 288         foreach $file (sort grep (! /^\./, readdir (DIR)))
 289         {
 290             # Only examine .m4 files.
 291             next unless $file =~ /\.m4$/;
 292
 293             # Skip some files when running out of srcdir.
 294             next if $file eq 'aclocal.m4';
 295
 296             $fullfile = $m4dir . '/' . $file;
 297             $file_contents{$fullfile} = &scan_file ($fullfile);
 298         }
 299         closedir (DIR);
 300     }
 301
 302     # Construct a new function that does the searching.  We use a
 303     # function (instead of just evalling $search in the loop) so that
 304     # "die" is correctly and easily propagated if run.
 305     local ($search, $expr, $key) = '';
 306     foreach $key (reverse sort keys %map)
 307     {
 308         # EXPR is a regexp matching the name of the macro.
 309         ($expr = $key) =~ s/(\W)/\\$1/g;
 310         $search .= ("if (/" . $expr . "/) { & add_macro (" . $key
 311                     . "); return 1; }\n");
 312     }
 313     $search .= "return 0;\n";
 314     eval 'sub search { ' . $search . '};';
 315     die "internal error: $@\n search is $search " if $@;
 316 }
 317
 318 ################################################################
 319
 320 # Add a macro to the output.
 321 sub add_macro
 322 {
 323     local ($macro) = @_;
 324
 325     # We want to ignore AC_ macros.  However, if an AC_ macro is
 326     # defined in (eg) acinclude.m4, then we want to make sure we mark
 327     # it as seen.
 328     return if $macro =~ /^AC_/ && ! defined $map{$macro};
 329
 330     if (! defined $map{$macro})
 331     {
 332         warn "aclocal: macro \`$macro' required but not defined\n";
 333         $exit_status = 1;
 334         return;
 335     }
 336
 337     print STDERR "saw macro $macro\n" if $verbosity;
 338     $macro_seen{$macro} = 1;
 339     &add_file ($map{$macro});
 340 }
 341
 342 # Add a file to output.
 343 sub add_file
 344 {
 345     local ($file) = @_;
 346
 347     # Only add a file once.
 348     return if ($file_seen{$file});
 349     $file_seen{$file} = 1;
 350
 351     $output .= $file_contents{$file} . "\n";
 352     local ($a, @rlist);
 353     foreach (split ("\n", $file_contents{$file}))
 354     {
 355         # This is a hack for Perl 4.
 356         $a = $_;
 357         if ($a =~ /$ac_require_rx/g)
 358         {
 359             push (@rlist, $1);
 360         }
 361
 362         # This function constructed dynamically.
 363         if (! &search && /(^|\s+)(AM_[A-Z_]+)/)
 364         {
 365             # Macro not found, but AM_ prefix found.
 366             warn "aclocal: configure.in: $.: macro \`$2' not found in library\n";
 367             $exit_status = 1;
 368         }
 369     }
 370
 371     local ($macro);
 372     foreach $macro (@rlist)
 373     {
 374         &add_macro ($macro);
 375     }
 376 }
 377
 378 # Scan a single M4 file.  Return contents.
 379 sub scan_file
 380 {
 381     local ($file) = @_;
 382
 383     open (FILE, $file)
 384         || die "aclocal: couldn't open \`$file': $!\n";
 385     local ($contents) = '';
 386     while (<FILE>)
 387     {
 388         # Ignore `##' lines.
 389         next if /^##/;
 390
 391         $contents .= $_;
 392
 393         if (/$ac_defun_rx/)
 394         {
 395             if (!defined $map{$1})
 396             {
 397                 $map{$1} = $file;
 398             }
 399             # Allow acinclude.m4 to override other macro files.
 400             elsif ($map{$1} ne 'acinclude.m4' || $file eq 'acinclude.m4')
 401             {
 402                 warn "aclocal: $file: $.: duplicated macro \`$1'\n";
 403                 $exit_status = 1;
 404             }
 405             print STDERR "Found macro $1 in $file: $.\n" if $verbosity;
 406         }
 407     }
 408     close (FILE);
 409
 410     return $contents;
 411 }
 412
 413 ################################################################
 414
 415 # Write output.
 416 sub write_aclocal
 417 {
 418     return if ! length ($output);
 419
 420     print STDERR "Writing $output_file\n" if $verbosity;
 421
 422     open (ACLOCAL, "> " . $output_file)
 423         || die "aclocal: couldn't open \`$output_file' for writing: $!\n";
 424     print ACLOCAL "dnl $output_file generated automatically by aclocal $VERSION\n";
 425     print ACLOCAL "\
 426 dnl Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc.
 427 dnl This file is free software; the Free Software Foundation
 428 dnl gives unlimited permission to copy and/or distribute it,
 429 dnl with or without modifications, as long as this notice is preserved.
 430
 431 dnl This program is distributed in the hope that it will be useful,
 432 dnl but WITHOUT ANY WARRANTY, to the extent permitted by law; without
 433 dnl even the implied warranty of MERCHANTABILITY or FITNESS FOR A
 434 dnl PARTICULAR PURPOSE.
 435
 436 ";
 437     print ACLOCAL $output;
 438     close (ACLOCAL);
 439 }