automake.in

   1 #!@PERL@ -w
   2 # -*- perl -*-
   3 # @configure_input@
   4
   5 eval 'case $# in 0) exec @PERL@ -S "$0";; *) exec @PERL@ -S "$0" "$@";; esac'
   6     if 0;
   7
   8 # automake - create Makefile.in from Makefile.am
   9 # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
  10 # 2003, 2004, 2005  Free Software Foundation, Inc.
  11
  12 # This program is free software; you can redistribute it and/or modify
  13 # it under the terms of the GNU General Public License as published by
  14 # the Free Software Foundation; either version 2, or (at your option)
  15 # any later version.
  16
  17 # This program is distributed in the hope that it will be useful,
  18 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 # GNU General Public License for more details.
  21
  22 # You should have received a copy of the GNU General Public License
  23 # along with this program; if not, write to the Free Software
  24 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  25 # 02111-1307, USA.
  26
  27 # Originally written by David Mackenzie <djm@gnu.ai.mit.edu>.
  28 # Perl reimplementation by Tom Tromey <tromey@redhat.com>, and
  29 # Alexandre Duret-Lutz <adl@gnu.org>.
  30
  31 package Language;
  32
  33 BEGIN
  34 {
  35   my $perllibdir = $ENV{'perllibdir'} || '@datadir@/@PACKAGE@-@APIVERSION@';
  36   unshift @INC, (split '@PATH_SEPARATOR@', $perllibdir);
  37
  38   # Override SHELL.  This is required on DJGPP so that system() uses
  39   # bash, not COMMAND.COM which doesn't quote arguments properly.
  40   # Other systems aren't expected to use $SHELL when Automake
  41   # runs, but it should be safe to drop the `if DJGPP' guard if
  42   # it turns up other systems need the same thing.  After all,
  43   # if SHELL is used, ./configure's SHELL is always better than
  44   # the user's SHELL (which may be something like tcsh).
  45   $ENV{'SHELL'} = '@SHELL@' if exists $ENV{'DJGPP'};
  46 }
  47
  48 use Automake::Struct;
  49 struct (# Short name of the language (c, f77...).
  50         'name' => "\$",
  51         # Nice name of the language (C, Fortran 77...).
  52         'Name' => "\$",
  53
  54         # List of configure variables which must be defined.
  55         'config_vars' => '@',
  56
  57         'ansi'    => "\$",
  58         # `pure' is `1' or `'.  A `pure' language is one where, if
  59         # all the files in a directory are of that language, then we
  60         # do not require the C compiler or any code to call it.
  61         'pure'   => "\$",
  62
  63         'autodep' => "\$",
  64
  65         # Name of the compiling variable (COMPILE).
  66         'compiler'  => "\$",
  67         # Content of the compiling variable.
  68         'compile'  => "\$",
  69         # Flag to require compilation without linking (-c).
  70         'compile_flag' => "\$",
  71         'extensions' => '@',
  72         # A subroutine to compute a list of possible extensions of
  73         # the product given the input extensions.
  74         # (defaults to a subroutine which returns ('.$(OBJEXT)', '.lo'))
  75         'output_extensions' => "\$",
  76         # A list of flag variables used in 'compile'.
  77         # (defaults to [])
  78         'flags' => "@",
  79
  80         # Any tag to pass to libtool while compiling.
  81         'libtool_tag' => "\$",
  82
  83         # The file to use when generating rules for this language.
  84         # The default is 'depend2'.
  85         'rule_file' => "\$",
  86
  87         # Name of the linking variable (LINK).
  88         'linker' => "\$",
  89         # Content of the linking variable.
  90         'link' => "\$",
  91
  92         # Name of the linker variable (LD).
  93         'lder' => "\$",
  94         # Content of the linker variable ($(CC)).
  95         'ld' => "\$",
  96
  97         # Flag to specify the output file (-o).
  98         'output_flag' => "\$",
  99         '_finish' => "\$",
 100
 101         # This is a subroutine which is called whenever we finally
 102         # determine the context in which a source file will be
 103         # compiled.
 104         '_target_hook' => "\$",
 105
 106         # If TRUE, nodist_ sources will be compiled using specific rules
 107         # (i.e. not inference rules).  The default is FALSE.
 108         'nodist_specific' => "\$");
 109
 110
 111 sub finish ($)
 112 {
 113   my ($self) = @_;
 114   if (defined $self->_finish)
 115     {
 116       &{$self->_finish} ();
 117     }
 118 }
 119
 120 sub target_hook ($$$$%)
 121 {
 122     my ($self) = @_;
 123     if (defined $self->_target_hook)
 124     {
 125         &{$self->_target_hook} (@_);
 126     }
 127 }
 128
 129 package Automake;
 130
 131 use strict;
 132 use Automake::Config;
 133 use Automake::General;
 134 use Automake::XFile;
 135 use Automake::Channels;
 136 use Automake::ChannelDefs;
 137 use Automake::Configure_ac;
 138 use Automake::FileUtils;
 139 use Automake::Location;
 140 use Automake::Condition qw/TRUE FALSE/;
 141 use Automake::DisjConditions;
 142 use Automake::Options;
 143 use Automake::Version;
 144 use Automake::Variable;
 145 use Automake::VarDef;
 146 use Automake::Rule;
 147 use Automake::RuleDef;
 148 use Automake::Wrap 'makefile_wrap';
 149 use File::Basename;
 150 use Carp;
 151
 152 ## ----------- ##
 153 ## Constants.  ##
 154 ## ----------- ##
 155
 156 # Some regular expressions.  One reason to put them here is that it
 157 # makes indentation work better in Emacs.
 158
 159 # Writing singled-quoted-$-terminated regexes is a pain because
 160 # perl-mode thinks of $' as the ${'} variable (instead of a $ followed
 161 # by a closing quote.  Letting perl-mode think the quote is not closed
 162 # leads to all sort of misindentations.  On the other hand, defining
 163 # regexes as double-quoted strings is far less readable.  So usually
 164 # we will write:
 165 #
 166 #  $REGEX = '^regex_value' . "\$";
 167
 168 my $IGNORE_PATTERN = '^\s*##([^#\n].*)?\n';
 169 my $WHITE_PATTERN = '^\s*' . "\$";
 170 my $COMMENT_PATTERN = '^#';
 171 my $TARGET_PATTERN='[$a-zA-Z_.@%][-.a-zA-Z0-9_(){}/$+@%]*';
 172 # A rule has three parts: a list of targets, a list of dependencies,
 173 # and optionally actions.
 174 my $RULE_PATTERN =
 175   "^($TARGET_PATTERN(?:(?:\\\\\n|\\s)+$TARGET_PATTERN)*) *:([^=].*|)\$";
 176
 177 # Only recognize leading spaces, not leading tabs.  If we recognize
 178 # leading tabs here then we need to make the reader smarter, because
 179 # otherwise it will think rules like `foo=bar; \' are errors.
 180 my $ASSIGNMENT_PATTERN = '^ *([^ \t=:+]*)\s*([:+]?)=\s*(.*)' . "\$";
 181 # This pattern recognizes a Gnits version id and sets $1 if the
 182 # release is an alpha release.  We also allow a suffix which can be
 183 # used to extend the version number with a "fork" identifier.
 184 my $GNITS_VERSION_PATTERN = '\d+\.\d+([a-z]|\.\d+)?(-[A-Za-z0-9]+)?';
 185
 186 my $IF_PATTERN = '^if\s+(!?)\s*([A-Za-z][A-Za-z0-9_]*)\s*(?:#.*)?' . "\$";
 187 my $ELSE_PATTERN =
 188   '^else(?:\s+(!?)\s*([A-Za-z][A-Za-z0-9_]*))?\s*(?:#.*)?' . "\$";
 189 my $ENDIF_PATTERN =
 190   '^endif(?:\s+(!?)\s*([A-Za-z][A-Za-z0-9_]*))?\s*(?:#.*)?' . "\$";
 191 my $PATH_PATTERN = '(\w|[+/.-])+';
 192 # This will pass through anything not of the prescribed form.
 193 my $INCLUDE_PATTERN = ('^include\s+'
 194                        . '((\$\(top_srcdir\)/' . $PATH_PATTERN . ')'
 195                        . '|(\$\(srcdir\)/' . $PATH_PATTERN . ')'
 196                        . '|([^/\$]' . $PATH_PATTERN . '))\s*(#.*)?' . "\$");
 197
 198 # Match `-d' as a command-line argument in a string.
 199 my $DASH_D_PATTERN = "(^|\\s)-d(\\s|\$)";
 200 # Directories installed during 'install-exec' phase.
 201 my $EXEC_DIR_PATTERN =
 202   '^(?:bin|sbin|libexec|sysconf|localstate|lib|pkglib|.*exec.*)' . "\$";
 203
 204 # Values for AC_CANONICAL_*
 205 use constant AC_CANONICAL_BUILD  => 1;
 206 use constant AC_CANONICAL_HOST   => 2;
 207 use constant AC_CANONICAL_TARGET => 3;
 208
 209 # Values indicating when something should be cleaned.
 210 use constant MOSTLY_CLEAN     => 0;
 211 use constant CLEAN            => 1;
 212 use constant DIST_CLEAN       => 2;
 213 use constant MAINTAINER_CLEAN => 3;
 214
 215 # Libtool files.
 216 my @libtool_files = qw(ltmain.sh config.guess config.sub);
 217 # ltconfig appears here for compatibility with old versions of libtool.
 218 my @libtool_sometimes = qw(ltconfig ltcf-c.sh ltcf-cxx.sh ltcf-gcj.sh);
 219
 220 # Commonly found files we look for and automatically include in
 221 # DISTFILES.
 222 my @common_files =
 223     (qw(ABOUT-GNU ABOUT-NLS AUTHORS BACKLOG COPYING COPYING.DOC COPYING.LIB
 224         COPYING.LESSER ChangeLog INSTALL NEWS README THANKS TODO
 225         ansi2knr.1 ansi2knr.c compile config.guess config.rpath config.sub
 226         depcomp elisp-comp install-sh libversion.in mdate-sh missing
 227         mkinstalldirs py-compile texinfo.tex ylwrap),
 228      @libtool_files, @libtool_sometimes);
 229
 230 # Commonly used files we auto-include, but only sometimes.  This list
 231 # is used for the --help output only.
 232 my @common_sometimes =
 233   qw(aclocal.m4 acconfig.h config.h.top config.h.bot configure
 234      configure.ac configure.in stamp-vti);
 235
 236 # Standard directories from the GNU Coding Standards, and additional
 237 # pkg* directories from Automake.  Stored in a hash for fast member check.
 238 my %standard_prefix =
 239     map { $_ => 1 } (qw(bin data dataroot dvi exec html include info
 240                         lib libexec lisp localstate man man1 man2 man3
 241                         man4 man5 man6 man7 man8 man9 oldinclude pdf
 242                         pkgdatadir pkgincludedir pkglibdir ps sbin
 243                         sharedstate sysconf));
 244
 245 # Copyright on generated Makefile.ins.
 246 my $gen_copyright = "\
 247 # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
 248 # 2003, 2004, 2005  Free Software Foundation, Inc.
 249 # This Makefile.in is free software; the Free Software Foundation
 250 # gives unlimited permission to copy and/or distribute it,
 251 # with or without modifications, as long as this notice is preserved.
 252
 253 # This program is distributed in the hope that it will be useful,
 254 # but WITHOUT ANY WARRANTY, to the extent permitted by law; without
 255 # even the implied warranty of MERCHANTABILITY or FITNESS FOR A
 256 # PARTICULAR PURPOSE.
 257 ";
 258
 259 # These constants are returned by lang_*_rewrite functions.
 260 # LANG_SUBDIR means that the resulting object file should be in a
 261 # subdir if the source file is.  In this case the file name cannot
 262 # have `..' components.
 263 use constant LANG_IGNORE  => 0;
 264 use constant LANG_PROCESS => 1;
 265 use constant LANG_SUBDIR  => 2;
 266
 267 # These are used when keeping track of whether an object can be built
 268 # by two different paths.
 269 use constant COMPILE_LIBTOOL  => 1;
 270 use constant COMPILE_ORDINARY => 2;
 271
 272 # We can't always associate a location to a variable or a rule,
 273 # when its defined by Automake.  We use INTERNAL in this case.
 274 use constant INTERNAL => new Automake::Location;
 275 \f
 276
 277 ## ---------------------------------- ##
 278 ## Variables related to the options.  ##
 279 ## ---------------------------------- ##
 280
 281 # TRUE if we should always generate Makefile.in.
 282 my $force_generation = 1;
 283
 284 # From the Perl manual.
 285 my $symlink_exists = (eval 'symlink ("", "");', $@ eq '');
 286
 287 # TRUE if missing standard files should be installed.
 288 my $add_missing = 0;
 289
 290 # TRUE if we should copy missing files; otherwise symlink if possible.
 291 my $copy_missing = 0;
 292
 293 # TRUE if we should always update files that we know about.
 294 my $force_missing = 0;
 295
 296
 297 ## ---------------------------------------- ##
 298 ## Variables filled during files scanning.  ##
 299 ## ---------------------------------------- ##
 300
 301 # Name of the configure.ac file.
 302 my $configure_ac;
 303
 304 # Files found by scanning configure.ac for LIBOBJS.
 305 my %libsources = ();
 306
 307 # Names used in AC_CONFIG_HEADER call.
 308 my @config_headers = ();
 309
 310 # Names used in AC_CONFIG_LINKS call.
 311 my @config_links = ();
 312
 313 # Directory where output files go.  Actually, output files are
 314 # relative to this directory.
 315 my $output_directory;
 316
 317 # List of Makefile.am's to process, and their corresponding outputs.
 318 my @input_files = ();
 319 my %output_files = ();
 320
 321 # Complete list of Makefile.am's that exist.
 322 my @configure_input_files = ();
 323
 324 # List of files in AC_CONFIG_FILES/AC_OUTPUT without Makefile.am's,
 325 # and their outputs.
 326 my @other_input_files = ();
 327 # Where each AC_CONFIG_FILES/AC_OUTPUT/AC_CONFIG_LINK/AC_CONFIG_HEADER appears.
 328 # The keys are the files created by these macros.
 329 my %ac_config_files_location = ();
 330
 331 # Directory to search for configure-required files.  This
 332 # will be computed by &locate_aux_dir and can be set using
 333 # AC_CONFIG_AUX_DIR in configure.ac.
 334 # $CONFIG_AUX_DIR is the `raw' directory, valid only in the source-tree.
 335 my $config_aux_dir = '';
 336 my $config_aux_dir_set_in_configure_ac = 0;
 337 # $AM_CONFIG_AUX_DIR is prefixed with $(top_srcdir), so it can be used
 338 # in Makefiles.
 339 my $am_config_aux_dir = '';
 340
 341 # Whether AM_GNU_GETTEXT has been seen in configure.ac.
 342 my $seen_gettext = 0;
 343 # Whether AM_GNU_GETTEXT([external]) is used.
 344 my $seen_gettext_external = 0;
 345 # Where AM_GNU_GETTEXT appears.
 346 my $ac_gettext_location;
 347
 348 # Lists of tags supported by Libtool.
 349 my %libtool_tags = ();
 350 # 1 if Libtool uses LT_SUPPORTED_TAG.  If it does, then it also
 351 # use AC_REQUIRE_AUX_FILE.
 352 my $libtool_new_api = 0;
 353
 354 # Most important AC_CANONICAL_* macro seen so far.
 355 my $seen_canonical = 0;
 356 # Location of that macro.
 357 my $canonical_location;
 358
 359 # Where AM_MAINTAINER_MODE appears.
 360 my $seen_maint_mode;
 361
 362 # Actual version we've seen.
 363 my $package_version = '';
 364
 365 # Where version is defined.
 366 my $package_version_location;
 367
 368 # TRUE if we've seen AC_ENABLE_MULTILIB.
 369 my $seen_multilib = 0;
 370
 371 # TRUE if we've seen AM_PROG_CC_C_O
 372 my $seen_cc_c_o = 0;
 373
 374 # Location of AC_REQUIRE_AUX_FILE calls, indexed by their argument.
 375 my %required_aux_file = ();
 376
 377 # Where AM_INIT_AUTOMAKE is called;
 378 my $seen_init_automake = 0;
 379
 380 # TRUE if we've seen AM_AUTOMAKE_VERSION.
 381 my $seen_automake_version = 0;
 382
 383 # Hash table of discovered configure substitutions.  Keys are names,
 384 # values are `FILE:LINE' strings which are used by error message
 385 # generation.
 386 my %configure_vars = ();
 387
 388 # Files included by $configure_ac.
 389 my @configure_deps = ();
 390
 391 # Greatest timestamp of configure's dependencies.
 392 my $configure_deps_greatest_timestamp = 0;
 393
 394 # Hash table of AM_CONDITIONAL variables seen in configure.
 395 my %configure_cond = ();
 396
 397 # This maps extensions onto language names.
 398 my %extension_map = ();
 399
 400 # List of the DIST_COMMON files we discovered while reading
 401 # configure.in
 402 my $configure_dist_common = '';
 403
 404 # This maps languages names onto objects.
 405 my %languages = ();
 406
 407 # List of targets we must always output.
 408 # FIXME: Complete, and remove falsely required targets.
 409 my %required_targets =
 410   (
 411    'all'          => 1,
 412    'dvi'          => 1,
 413    'pdf'          => 1,
 414    'ps'           => 1,
 415    'info'         => 1,
 416    'install-info' => 1,
 417    'install'      => 1,
 418    'install-data' => 1,
 419    'install-exec' => 1,
 420    'uninstall'    => 1,
 421
 422    # FIXME: Not required, temporary hacks.
 423    # Well, actually they are sort of required: the -recursive
 424    # targets will run them anyway...
 425    'dvi-am'          => 1,
 426    'pdf-am'          => 1,
 427    'ps-am'           => 1,
 428    'info-am'         => 1,
 429    'install-data-am' => 1,
 430    'install-exec-am' => 1,
 431    'installcheck-am' => 1,
 432    'uninstall-am' => 1,
 433
 434    'install-man' => 1,
 435   );
 436
 437 # Set to 1 if this run will create the Makefile.in that distribute
 438 # the files in config_aux_dir.
 439 my $automake_will_process_aux_dir = 0;
 440
 441 # The name of the Makefile currently being processed.
 442 my $am_file = 'BUG';
 443 \f
 444
 445 ################################################################
 446
 447 ## ------------------------------------------ ##
 448 ## Variables reset by &initialize_per_input.  ##
 449 ## ------------------------------------------ ##
 450
 451 # Basename and relative dir of the input file.
 452 my $am_file_name;
 453 my $am_relative_dir;
 454
 455 # Same but wrt Makefile.in.
 456 my $in_file_name;
 457 my $relative_dir;
 458
 459 # Greatest timestamp of the output's dependencies (excluding
 460 # configure's dependencies).
 461 my $output_deps_greatest_timestamp;
 462
 463 # These two variables are used when generating each Makefile.in.
 464 # They hold the Makefile.in until it is ready to be printed.
 465 my $output_rules;
 466 my $output_vars;
 467 my $output_trailer;
 468 my $output_all;
 469 my $output_header;
 470
 471 # This is the conditional stack, updated on if/else/endif, and
 472 # used to build Condition objects.
 473 my @cond_stack;
 474
 475 # This holds the set of included files.
 476 my @include_stack;
 477
 478 # This holds a list of directories which we must create at `dist'
 479 # time.  This is used in some strange scenarios involving weird
 480 # AC_OUTPUT commands.
 481 my %dist_dirs;
 482
 483 # List of dependencies for the obvious targets.
 484 my @all;
 485 my @check;
 486 my @check_tests;
 487
 488 # Keys in this hash table are files to delete.  The associated
 489 # value tells when this should happen (MOSTLY_CLEAN, DIST_CLEAN, etc.)
 490 my %clean_files;
 491
 492 # Keys in this hash table are object files or other files in
 493 # subdirectories which need to be removed.  This only holds files
 494 # which are created by compilations.  The value in the hash indicates
 495 # when the file should be removed.
 496 my %compile_clean_files;
 497
 498 # Keys in this hash table are directories where we expect to build a
 499 # libtool object.  We use this information to decide what directories
 500 # to delete.
 501 my %libtool_clean_directories;
 502
 503 # Value of `$(SOURCES)', used by tags.am.
 504 my @sources;
 505 # Sources which go in the distribution.
 506 my @dist_sources;
 507
 508 # This hash maps object file names onto their corresponding source
 509 # file names.  This is used to ensure that each object is created
 510 # by a single source file.
 511 my %object_map;
 512
 513 # This hash maps object file names onto an integer value representing
 514 # whether this object has been built via ordinary compilation or
 515 # libtool compilation (the COMPILE_* constants).
 516 my %object_compilation_map;
 517
 518
 519 # This keeps track of the directories for which we've already
 520 # created dirstamp code.
 521 my %directory_map;
 522
 523 # All .P files.
 524 my %dep_files;
 525
 526 # This is a list of all targets to run during "make dist".
 527 my @dist_targets;
 528
 529 # Keys in this hash are the basenames of files which must depend on
 530 # ansi2knr.  Values are either the empty string, or the directory in
 531 # which the ANSI source file appears; the directory must have a
 532 # trailing `/'.
 533 my %de_ansi_files;
 534
 535 # This is the name of the redirect `all' target to use.
 536 my $all_target;
 537
 538 # This keeps track of which extensions we've seen (that we care
 539 # about).
 540 my %extension_seen;
 541
 542 # This is random scratch space for the language finish functions.
 543 # Don't randomly overwrite it; examine other uses of keys first.
 544 my %language_scratch;
 545
 546 # We keep track of which objects need special (per-executable)
 547 # handling on a per-language basis.
 548 my %lang_specific_files;
 549
 550 # This is set when `handle_dist' has finished.  Once this happens,
 551 # we should no longer push on dist_common.
 552 my $handle_dist_run;
 553
 554 # Used to store a set of linkers needed to generate the sources currently
 555 # under consideration.
 556 my %linkers_used;
 557
 558 # True if we need `LINK' defined.  This is a hack.
 559 my $need_link;
 560
 561 # Was get_object_extension run?
 562 # FIXME: This is a hack. a better switch should be found.
 563 my $get_object_extension_was_run;
 564
 565 # Record each file processed by make_paragraphs.
 566 my %transformed_files;
 567
 568 # Cache each file processed by make_paragraphs.
 569 # (This is different from %transformed_files because
 570 # %transformed_files is reset for each file while %am_file_cache
 571 # it global to the run.)
 572 my %am_file_cache;
 573
 574 ################################################################
 575
 576 # var_SUFFIXES_trigger ($TYPE, $VALUE)
 577 # ------------------------------------
 578 # This is called by Automake::Variable::define() when SUFFIXES
 579 # is defined ($TYPE eq '') or appended ($TYPE eq '+').
 580 # The work here needs to be performed as a side-effect of the
 581 # macro_define() call because SUFFIXES definitions impact
 582 # on $KNOWN_EXTENSIONS_PATTERN which is used used when parsing
 583 # the input am file.
 584 sub var_SUFFIXES_trigger ($$)
 585 {
 586     my ($type, $value) = @_;
 587     accept_extensions (split (' ', $value));
 588 }
 589 Automake::Variable::hook ('SUFFIXES', \&var_SUFFIXES_trigger);
 590
 591 ################################################################
 592
 593 ## --------------------------------- ##
 594 ## Forward subroutine declarations.  ##
 595 ## --------------------------------- ##
 596 sub register_language (%);
 597 sub file_contents_internal ($$$%);
 598 sub define_files_variable ($\@$$);
 599
 600
 601 # &initialize_per_input ()
 602 # ------------------------
 603 # (Re)-Initialize per-Makefile.am variables.
 604 sub initialize_per_input ()
 605 {
 606     reset_local_duplicates ();
 607
 608     $am_file_name = '';
 609     $am_relative_dir = '';
 610
 611     $in_file_name = '';
 612     $relative_dir = '';
 613
 614     $output_deps_greatest_timestamp = 0;
 615
 616     $output_rules = '';
 617     $output_vars = '';
 618     $output_trailer = '';
 619     $output_all = '';
 620     $output_header = '';
 621
 622     Automake::Options::reset;
 623     Automake::Variable::reset;
 624     Automake::Rule::reset;
 625
 626     @cond_stack = ();
 627
 628     @include_stack = ();
 629
 630     %dist_dirs = ();
 631
 632     @all = ();
 633     @check = ();
 634     @check_tests = ();
 635
 636     %clean_files = ();
 637
 638     @sources = ();
 639     @dist_sources = ();
 640
 641     %object_map = ();
 642     %object_compilation_map = ();
 643
 644     %directory_map = ();
 645
 646     %dep_files = ();
 647
 648     @dist_targets = ();
 649
 650     %de_ansi_files = ();
 651
 652     $all_target = '';
 653
 654     %extension_seen = ();
 655
 656     %language_scratch = ();
 657
 658     %lang_specific_files = ();
 659
 660     $handle_dist_run = 0;
 661
 662     $need_link = 0;
 663
 664     $get_object_extension_was_run = 0;
 665
 666     %compile_clean_files = ();
 667
 668     # We always include `.'.  This isn't strictly correct.
 669     %libtool_clean_directories = ('.' => 1);
 670
 671     %transformed_files = ();
 672 }
 673
 674
 675 ################################################################
 676
 677 # Initialize our list of languages that are internally supported.
 678
 679 # C.
 680 register_language ('name' => 'c',
 681                    'Name' => 'C',
 682                    'config_vars' => ['CC'],
 683                    'ansi' => 1,
 684                    'autodep' => '',
 685                    'flags' => ['CFLAGS', 'CPPFLAGS'],
 686                    'compiler' => 'COMPILE',
 687                    'compile' => '$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)',
 688                    'lder' => 'CCLD',
 689                    'ld' => '$(CC)',
 690                    'linker' => 'LINK',
 691                    'link' => '$(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
 692                    'compile_flag' => '-c',
 693                    'libtool_tag' => 'CC',
 694                    'extensions' => ['.c'],
 695                    '_finish' => \&lang_c_finish);
 696
 697 # C++.
 698 register_language ('name' => 'cxx',
 699                    'Name' => 'C++',
 700                    'config_vars' => ['CXX'],
 701                    'linker' => 'CXXLINK',
 702                    'link' => '$(CXXLD) $(AM_CXXFLAGS) $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
 703                    'autodep' => 'CXX',
 704                    'flags' => ['CXXFLAGS', 'CPPFLAGS'],
 705                    'compile' => '$(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS)',
 706                    'compiler' => 'CXXCOMPILE',
 707                    'compile_flag' => '-c',
 708                    'output_flag' => '-o',
 709                    'libtool_tag' => 'CXX',
 710                    'lder' => 'CXXLD',
 711                    'ld' => '$(CXX)',
 712                    'pure' => 1,
 713                    'extensions' => ['.c++', '.cc', '.cpp', '.cxx', '.C']);
 714
 715 # Objective C.
 716 register_language ('name' => 'objc',
 717                    'Name' => 'Objective C',
 718                    'config_vars' => ['OBJC'],
 719                    'linker' => 'OBJCLINK',,
 720                    'link' => '$(OBJCLD) $(AM_OBJCFLAGS) $(OBJCFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
 721                    'autodep' => 'OBJC',
 722                    'flags' => ['OBJCFLAGS', 'CPPFLAGS'],
 723                    'compile' => '$(OBJC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_OBJCFLAGS) $(OBJCFLAGS)',
 724                    'compiler' => 'OBJCCOMPILE',
 725                    'compile_flag' => '-c',
 726                    'output_flag' => '-o',
 727                    'lder' => 'OBJCLD',
 728                    'ld' => '$(OBJC)',
 729                    'pure' => 1,
 730                    'extensions' => ['.m']);
 731
 732 # Headers.
 733 register_language ('name' => 'header',
 734                    'Name' => 'Header',
 735                    'extensions' => ['.h', '.H', '.hxx', '.h++', '.hh',
 736                                     '.hpp', '.inc'],
 737                    # No output.
 738                    'output_extensions' => sub { return () },
 739                    # Nothing to do.
 740                    '_finish' => sub { });
 741
 742 # Yacc (C & C++).
 743 register_language ('name' => 'yacc',
 744                    'Name' => 'Yacc',
 745                    'config_vars' => ['YACC'],
 746                    'flags' => ['YFLAGS'],
 747                    'compile' => '$(YACC) $(YFLAGS) $(AM_YFLAGS)',
 748                    'compiler' => 'YACCCOMPILE',
 749                    'extensions' => ['.y'],
 750                    'output_extensions' => sub { (my $ext = $_[0]) =~ tr/y/c/;
 751                                                 return ($ext,) },
 752                    'rule_file' => 'yacc',
 753                    '_finish' => \&lang_yacc_finish,
 754                    '_target_hook' => \&lang_yacc_target_hook,
 755                    'nodist_specific' => 1);
 756 register_language ('name' => 'yaccxx',
 757                    'Name' => 'Yacc (C++)',
 758                    'config_vars' => ['YACC'],
 759                    'rule_file' => 'yacc',
 760                    'flags' => ['YFLAGS'],
 761                    'compiler' => 'YACCCOMPILE',
 762                    'compile' => '$(YACC) $(YFLAGS) $(AM_YFLAGS)',
 763                    'extensions' => ['.y++', '.yy', '.yxx', '.ypp'],
 764                    'output_extensions' => sub { (my $ext = $_[0]) =~ tr/y/c/;
 765                                                 return ($ext,) },
 766                    '_finish' => \&lang_yacc_finish,
 767                    '_target_hook' => \&lang_yacc_target_hook,
 768                    'nodist_specific' => 1);
 769
 770 # Lex (C & C++).
 771 register_language ('name' => 'lex',
 772                    'Name' => 'Lex',
 773                    'config_vars' => ['LEX'],
 774                    'rule_file' => 'lex',
 775                    'flags' => ['LFLAGS'],
 776                    'compile' => '$(LEX) $(LFLAGS) $(AM_LFLAGS)',
 777                    'compiler' => 'LEXCOMPILE',
 778                    'extensions' => ['.l'],
 779                    'output_extensions' => sub { (my $ext = $_[0]) =~ tr/l/c/;
 780                                                 return ($ext,) },
 781                    '_finish' => \&lang_lex_finish,
 782                    '_target_hook' => \&lang_lex_target_hook,
 783                    'nodist_specific' => 1);
 784 register_language ('name' => 'lexxx',
 785                    'Name' => 'Lex (C++)',
 786                    'config_vars' => ['LEX'],
 787                    'rule_file' => 'lex',
 788                    'flags' => ['LFLAGS'],
 789                    'compile' => '$(LEX) $(LFLAGS) $(AM_LFLAGS)',
 790                    'compiler' => 'LEXCOMPILE',
 791                    'extensions' => ['.l++', '.ll', '.lxx', '.lpp'],
 792                    'output_extensions' => sub { (my $ext = $_[0]) =~ tr/l/c/;
 793                                                 return ($ext,) },
 794                    '_finish' => \&lang_lex_finish,
 795                    '_target_hook' => \&lang_lex_target_hook,
 796                    'nodist_specific' => 1);
 797
 798 # Assembler.
 799 register_language ('name' => 'asm',
 800                    'Name' => 'Assembler',
 801                    'config_vars' => ['CCAS', 'CCASFLAGS'],
 802
 803                    'flags' => ['CCASFLAGS'],
 804                    # Users can set AM_CCASFLAGS to include DEFS, INCLUDES,
 805                    # or anything else required.  They can also set CCAS.
 806                    'compile' => '$(CCAS) $(AM_CCASFLAGS) $(CCASFLAGS)',
 807                    'compiler' => 'CCASCOMPILE',
 808                    'compile_flag' => '-c',
 809                    'extensions' => ['.s'],
 810
 811                    # With assembly we still use the C linker.
 812                    '_finish' => \&lang_c_finish);
 813
 814 # Preprocessed Assembler.
 815 register_language ('name' => 'cppasm',
 816                    'Name' => 'Preprocessed Assembler',
 817                    'config_vars' => ['CCAS', 'CCASFLAGS'],
 818
 819                    'autodep' => 'CCAS',
 820                    'flags' => ['CCASFLAGS', 'CPPFLAGS'],
 821                    # Users can set AM_ASFLAGS to include DEFS, INCLUDES,
 822                    # or anything else required.  They can also set CCAS.
 823                    'compile' => '$(CCAS) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CCASFLAGS) $(CCASFLAGS)',
 824                    'compiler' => 'CPPASCOMPILE',
 825                    'compile_flag' => '-c',
 826                    'extensions' => ['.S'],
 827
 828                    # With assembly we still use the C linker.
 829                    '_finish' => \&lang_c_finish);
 830
 831 # Fortran 77
 832 register_language ('name' => 'f77',
 833                    'Name' => 'Fortran 77',
 834                    'linker' => 'F77LINK',
 835                    'link' => '$(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
 836                    'flags' => ['FFLAGS'],
 837                    'compile' => '$(F77) $(AM_FFLAGS) $(FFLAGS)',
 838                    'compiler' => 'F77COMPILE',
 839                    'compile_flag' => '-c',
 840                    'output_flag' => '-o',
 841                    'libtool_tag' => 'F77',
 842                    'lder' => 'F77LD',
 843                    'ld' => '$(F77)',
 844                    'pure' => 1,
 845                    'extensions' => ['.f', '.for']);
 846
 847 # Fortran
 848 register_language ('name' => 'fc',
 849                    'Name' => 'Fortran',
 850                    'linker' => 'FCLINK',
 851                    'link' => '$(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
 852                    'flags' => ['FCFLAGS'],
 853                    'compile' => '$(FC) $(AM_FCFLAGS) $(FCFLAGS)',
 854                    'compiler' => 'FCCOMPILE',
 855                    'compile_flag' => '-c',
 856                    'output_flag' => '-o',
 857                    'lder' => 'FCLD',
 858                    'ld' => '$(FC)',
 859                    'pure' => 1,
 860                    'extensions' => ['.f90', '.f95']);
 861
 862 # Preprocessed Fortran
 863 register_language ('name' => 'ppfc',
 864                    'Name' => 'Preprocessed Fortran',
 865                    'config_vars' => ['FC'],
 866                    'linker' => 'FCLINK',
 867                    'link' => '$(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
 868                    'lder' => 'FCLD',
 869                    'ld' => '$(FC)',
 870                    'flags' => ['FCFLAGS', 'CPPFLAGS'],
 871                    'compiler' => 'PPFCCOMPILE',
 872                    'compile' => '$(FC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_FCFLAGS) $(FCFLAGS)',
 873                    'compile_flag' => '-c',
 874                    'output_flag' => '-o',
 875                    'libtool_tag' => 'FC',
 876                    'pure' => 1,
 877                    'extensions' => ['.F90','.F95']);
 878
 879 # Preprocessed Fortran 77
 880 #
 881 # The current support for preprocessing Fortran 77 just involves
 882 # passing `$(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS)
 883 # $(CPPFLAGS)' as additional flags to the Fortran 77 compiler, since
 884 # this is how GNU Make does it; see the `GNU Make Manual, Edition 0.51
 885 # for `make' Version 3.76 Beta' (specifically, from info file
 886 # `(make)Catalogue of Rules').
 887 #
 888 # A better approach would be to write an Autoconf test
 889 # (i.e. AC_PROG_FPP) for a Fortran 77 preprocessor, because not all
 890 # Fortran 77 compilers know how to do preprocessing.  The Autoconf
 891 # macro AC_PROG_FPP should test the Fortran 77 compiler first for
 892 # preprocessing capabilities, and then fall back on cpp (if cpp were
 893 # available).
 894 register_language ('name' => 'ppf77',
 895                    'Name' => 'Preprocessed Fortran 77',
 896                    'config_vars' => ['F77'],
 897                    'linker' => 'F77LINK',
 898                    'link' => '$(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
 899                    'lder' => 'F77LD',
 900                    'ld' => '$(F77)',
 901                    'flags' => ['FFLAGS', 'CPPFLAGS'],
 902                    'compiler' => 'PPF77COMPILE',
 903                    'compile' => '$(F77) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_FFLAGS) $(FFLAGS)',
 904                    'compile_flag' => '-c',
 905                    'output_flag' => '-o',
 906                    'libtool_tag' => 'F77',
 907                    'pure' => 1,
 908                    'extensions' => ['.F']);
 909
 910 # Ratfor.
 911 register_language ('name' => 'ratfor',
 912                    'Name' => 'Ratfor',
 913                    'config_vars' => ['F77'],
 914                    'linker' => 'F77LINK',
 915                    'link' => '$(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
 916                    'lder' => 'F77LD',
 917                    'ld' => '$(F77)',
 918                    'flags' => ['RFLAGS', 'FFLAGS'],
 919                    # FIXME also FFLAGS.
 920                    'compile' => '$(F77) $(AM_FFLAGS) $(FFLAGS) $(AM_RFLAGS) $(RFLAGS)',
 921                    'compiler' => 'RCOMPILE',
 922                    'compile_flag' => '-c',
 923                    'output_flag' => '-o',
 924                    'libtool_tag' => 'F77',
 925                    'pure' => 1,
 926                    'extensions' => ['.r']);
 927
 928 # Java via gcj.
 929 register_language ('name' => 'java',
 930                    'Name' => 'Java',
 931                    'config_vars' => ['GCJ'],
 932                    'linker' => 'GCJLINK',
 933                    'link' => '$(GCJLD) $(AM_GCJFLAGS) $(GCJFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
 934                    'autodep' => 'GCJ',
 935                    'flags' => ['GCJFLAGS'],
 936                    'compile' => '$(GCJ) $(AM_GCJFLAGS) $(GCJFLAGS)',
 937                    'compiler' => 'GCJCOMPILE',
 938                    'compile_flag' => '-c',
 939                    'output_flag' => '-o',
 940                    'libtool_tag' => 'GCJ',
 941                    'lder' => 'GCJLD',
 942                    'ld' => '$(GCJ)',
 943                    'pure' => 1,
 944                    'extensions' => ['.java', '.class', '.zip', '.jar']);
 945
 946 ################################################################
 947
 948 # Error reporting functions.
 949
 950 # err_am ($MESSAGE, [%OPTIONS])
 951 # -----------------------------
 952 # Uncategorized errors about the current Makefile.am.
 953 sub err_am ($;%)
 954 {
 955   msg_am ('error', @_);
 956 }
 957
 958 # err_ac ($MESSAGE, [%OPTIONS])
 959 # -----------------------------
 960 # Uncategorized errors about configure.ac.
 961 sub err_ac ($;%)
 962 {
 963   msg_ac ('error', @_);
 964 }
 965
 966 # msg_am ($CHANNEL, $MESSAGE, [%OPTIONS])
 967 # ---------------------------------------
 968 # Messages about about the current Makefile.am.
 969 sub msg_am ($$;%)
 970 {
 971   my ($channel, $msg, %opts) = @_;
 972   msg $channel, "${am_file}.am", $msg, %opts;
 973 }
 974
 975 # msg_ac ($CHANNEL, $MESSAGE, [%OPTIONS])
 976 # ---------------------------------------
 977 # Messages about about configure.ac.
 978 sub msg_ac ($$;%)
 979 {
 980   my ($channel, $msg, %opts) = @_;
 981   msg $channel, $configure_ac, $msg, %opts;
 982 }
 983
 984 ################################################################
 985
 986 # subst ($TEXT)
 987 # -------------
 988 # Return a configure-style substitution using the indicated text.
 989 # We do this to avoid having the substitutions directly in automake.in;
 990 # when we do that they are sometimes removed and this causes confusion
 991 # and bugs.
 992 sub subst ($)
 993 {
 994     my ($text) = @_;
 995     return '@' . $text . '@';
 996 }
 997
 998 ################################################################
 999
1000
1001 # $BACKPATH
1002 # &backname ($REL-DIR)
1003 # --------------------
1004 # If I `cd $REL-DIR', then to come back, I should `cd $BACKPATH'.
1005 # For instance `src/foo' => `../..'.
1006 # Works with non strictly increasing paths, i.e., `src/../lib' => `..'.
1007 sub backname ($)
1008 {
1009     my ($file) = @_;
1010     my @res;
1011     foreach (split (/\//, $file))
1012     {
1013         next if $_ eq '.' || $_ eq '';
1014         if ($_ eq '..')
1015         {
1016             pop @res;
1017         }
1018         else
1019         {
1020             push (@res, '..');
1021         }
1022     }
1023     return join ('/', @res) || '.';
1024 }
1025
1026 ################################################################
1027
1028
1029 # Handle AUTOMAKE_OPTIONS variable.  Return 1 on error, 0 otherwise.
1030 sub handle_options
1031 {
1032   my $var = var ('AUTOMAKE_OPTIONS');
1033   if ($var)
1034     {
1035       # FIXME: We should disallow conditional definitions of AUTOMAKE_OPTIONS.
1036       if (process_option_list ($var->rdef (TRUE)->location,
1037                                $var->value_as_list_recursive (cond_filter =>
1038                                                               TRUE)))
1039         {
1040           return 1;
1041         }
1042     }
1043
1044   if ($strictness == GNITS)
1045     {
1046       set_option ('readme-alpha', INTERNAL);
1047       set_option ('std-options', INTERNAL);
1048       set_option ('check-news', INTERNAL);
1049     }
1050
1051   return 0;
1052 }
1053
1054 # shadow_unconditionally ($varname, $where)
1055 # -----------------------------------------
1056 # Return a $(variable) that contains all possible values
1057 # $varname can take.
1058 # If the VAR wasn't defined conditionally, return $(VAR).
1059 # Otherwise we create a am__VAR_DIST variable which contains
1060 # all possible values, and return $(am__VAR_DIST).
1061 sub shadow_unconditionally ($$)
1062 {
1063   my ($varname, $where) = @_;
1064   my $var = var $varname;
1065   if ($var->has_conditional_contents)
1066     {
1067       $varname = "am__${varname}_DIST";
1068       my @files = uniq ($var->value_as_list_recursive);
1069       define_pretty_variable ($varname, TRUE, $where, @files);
1070     }
1071   return "\$($varname)"
1072 }
1073
1074 # get_object_extension ($EXTENSION)
1075 # ---------------------------------
1076 # Prefix $EXTENSION with $U if ansi2knr is in use.
1077 sub get_object_extension ($)
1078 {
1079     my ($extension) = @_;
1080
1081     # Check for automatic de-ANSI-fication.
1082     $extension = '$U' . $extension
1083       if option 'ansi2knr';
1084
1085     $get_object_extension_was_run = 1;
1086
1087     return $extension;
1088 }
1089
1090 # check_user_variables (@LIST)
1091 # ----------------------------
1092 # Make sure each variable VAR in @LIST do not exist, suggest using AM_VAR
1093 # otherwise.
1094 sub check_user_variables (@)
1095 {
1096   my @dont_override = @_;
1097   foreach my $flag (@dont_override)
1098     {
1099       my $var = var $flag;
1100       if ($var)
1101         {
1102           for my $cond ($var->conditions->conds)
1103             {
1104               if ($var->rdef ($cond)->owner == VAR_MAKEFILE)
1105                 {
1106                   msg_cond_var ('gnu', $cond, $flag,
1107                                 "`$flag' is a user variable, "
1108                                 . "you should not override it;\n"
1109                                 . "use `AM_$flag' instead.");
1110                 }
1111             }
1112         }
1113     }
1114 }
1115
1116 # Call finish function for each language that was used.
1117 sub handle_languages
1118 {
1119     if (! option 'no-dependencies')
1120     {
1121         # Include auto-dep code.  Don't include it if DEP_FILES would
1122         # be empty.
1123         if (&saw_sources_p (0) && keys %dep_files)
1124         {
1125             # Set location of depcomp.
1126             &define_variable ('depcomp',
1127                               "\$(SHELL) $am_config_aux_dir/depcomp",
1128                               INTERNAL);
1129             &define_variable ('am__depfiles_maybe', 'depfiles', INTERNAL);
1130
1131             require_conf_file ("$am_file.am", FOREIGN, 'depcomp');
1132
1133             my @deplist = sort keys %dep_files;
1134             # Generate each `include' individually.  Irix 6 make will
1135             # not properly include several files resulting from a
1136             # variable expansion; generating many separate includes
1137             # seems safest.
1138             $output_rules .= "\n";
1139             foreach my $iter (@deplist)
1140             {
1141                 $output_rules .= (subst ('AMDEP_TRUE')
1142                                   . subst ('am__include')
1143                                   . ' '
1144                                   . subst ('am__quote')
1145                                   . $iter
1146                                   . subst ('am__quote')
1147                                   . "\n");
1148             }
1149
1150             # Compute the set of directories to remove in distclean-depend.
1151             my @depdirs = uniq (map { dirname ($_) } @deplist);
1152             $output_rules .= &file_contents ('depend',
1153                                              new Automake::Location,
1154                                              DEPDIRS => "@depdirs");
1155         }
1156     }
1157     else
1158     {
1159         &define_variable ('depcomp', '', INTERNAL);
1160         &define_variable ('am__depfiles_maybe', '', INTERNAL);
1161     }
1162
1163     my %done;
1164
1165     # Is the c linker needed?
1166     my $needs_c = 0;
1167     foreach my $ext (sort keys %extension_seen)
1168     {
1169         next unless $extension_map{$ext};
1170
1171         my $lang = $languages{$extension_map{$ext}};
1172
1173         my $rule_file = $lang->rule_file || 'depend2';
1174
1175         # Get information on $LANG.
1176         my $pfx = $lang->autodep;
1177         my $fpfx = ($pfx eq '') ? 'CC' : $pfx;
1178
1179         my ($AMDEP, $FASTDEP) =
1180           (option 'no-dependencies' || $lang->autodep eq 'no')
1181           ? ('FALSE', 'FALSE') : ('AMDEP', "am__fastdep$fpfx");
1182
1183         my %transform = ('EXT'     => $ext,
1184                          'PFX'     => $pfx,
1185                          'FPFX'    => $fpfx,
1186                          'AMDEP'   => $AMDEP,
1187                          'FASTDEP' => $FASTDEP,
1188                          '-c'      => $lang->compile_flag || '',
1189                          'MORE-THAN-ONE'
1190                                    => (count_files_for_language ($lang->name) > 1),
1191                          # These are not used, but they need to be defined
1192                          # so &transform do not complain.
1193                          SUBDIROBJ     => 0,
1194                          'DERIVED-EXT' => 'BUG',
1195                          DIST_SOURCE   => 1,
1196                         );
1197
1198         # Generate the appropriate rules for this extension.
1199         if (((! option 'no-dependencies') && $lang->autodep ne 'no')
1200             || defined $lang->compile)
1201         {
1202             # Some C compilers don't support -c -o.  Use it only if really
1203             # needed.
1204             my $output_flag = $lang->output_flag || '';
1205             $output_flag = '-o'
1206               if (! $output_flag
1207                   && $lang->name eq 'c'
1208                   && option 'subdir-objects');
1209
1210             # Compute a possible derived extension.
1211             # This is not used by depend2.am.
1212             my $der_ext = (&{$lang->output_extensions} ($ext))[0];
1213
1214             # When we output an inference rule like `.c.o:' we
1215             # have two cases to consider: either subdir-objects
1216             # is used, or it is not.
1217             #
1218             # In the latter case the rule is used to build objects
1219             # in the current directory, and dependencies always
1220             # go into `./$(DEPDIR)/'.  We can hard-code this value.
1221             #
1222             # In the former case the rule can be used to build
1223             # objects in sub-directories too.  Dependencies should
1224             # go into the appropriate sub-directories, e.g.,
1225             # `sub/$(DEPDIR)/'.  The value of this directory
1226             # need the be computed on-the-fly.
1227             #
1228             # DEPBASE holds the name of this directory, plus the
1229             # basename part of the object file (extensions Po, TPo,
1230             # Plo, TPlo will be added later as appropriate).  It is
1231             # either hardcoded, or a shell variable (`$depbase') that
1232             # will be computed by the rule.
1233             my $depbase =
1234               option ('subdir-objects') ? '$$depbase' : '$(DEPDIR)/$*';
1235             $output_rules .=
1236               file_contents ($rule_file,
1237                              new Automake::Location,
1238                              %transform,
1239                              GENERIC   => 1,
1240
1241                              'DERIVED-EXT' => $der_ext,
1242
1243                              DEPBASE   => $depbase,
1244                              BASE      => '$*',
1245                              SOURCE    => '$<',
1246                              OBJ       => '$@',
1247                              OBJOBJ    => '$@',
1248                              LTOBJ     => '$@',
1249
1250                              COMPILE   => '$(' . $lang->compiler . ')',
1251                              LTCOMPILE => '$(LT' . $lang->compiler . ')',
1252                              -o        => $output_flag,
1253                              SUBDIROBJ => !! option 'subdir-objects');
1254         }
1255
1256         # Now include code for each specially handled object with this
1257         # language.
1258         my %seen_files = ();
1259         foreach my $file (@{$lang_specific_files{$lang->name}})
1260         {
1261             my ($derived, $source, $obj, $myext, %file_transform) = @$file;
1262
1263             # We might see a given object twice, for instance if it is
1264             # used under different conditions.
1265             next if defined $seen_files{$obj};
1266             $seen_files{$obj} = 1;
1267
1268             prog_error ("found " . $lang->name .
1269                         " in handle_languages, but compiler not defined")
1270               unless defined $lang->compile;
1271
1272             my $obj_compile = $lang->compile;
1273
1274             # Rewrite each occurrence of `AM_$flag' in the compile
1275             # rule into `${derived}_$flag' if it exists.
1276             for my $flag (@{$lang->flags})
1277               {
1278                 my $val = "${derived}_$flag";
1279                 $obj_compile =~ s/\(AM_$flag\)/\($val\)/
1280                   if set_seen ($val);
1281               }
1282
1283             my $libtool_tag = '';
1284             if ($lang->libtool_tag && exists $libtool_tags{$lang->libtool_tag})
1285               {
1286                 $libtool_tag = '--tag=' . $lang->libtool_tag . ' '
1287               }
1288
1289             my $ptltflags = "${derived}_LIBTOOLFLAGS";
1290             $ptltflags = 'AM_LIBTOOLFLAGS' unless set_seen $ptltflags;
1291
1292             my $obj_ltcompile =
1293               "\$(LIBTOOL) $libtool_tag\$($ptltflags) \$(LIBTOOLFLAGS) "
1294               . "--mode=compile $obj_compile";
1295
1296             # We _need_ `-o' for per object rules.
1297             my $output_flag = $lang->output_flag || '-o';
1298
1299             my $depbase = dirname ($obj);
1300             $depbase = ''
1301                 if $depbase eq '.';
1302             $depbase .= '/'
1303                 unless $depbase eq '';
1304             $depbase .= '$(DEPDIR)/' . basename ($obj);
1305
1306             # Support for deansified files in subdirectories is ugly
1307             # enough to deserve an explanation.
1308             #
1309             # A Note about normal ansi2knr processing first.  On
1310             #
1311             #   AUTOMAKE_OPTIONS = ansi2knr
1312             #   bin_PROGRAMS = foo
1313             #   foo_SOURCES = foo.c
1314             #
1315             # we generate rules similar to:
1316             #
1317             #   foo: foo$U.o; link ...
1318             #   foo$U.o: foo$U.c; compile ...
1319             #   foo_.c: foo.c; ansi2knr ...
1320             #
1321             # this is fairly compact, and will call ansi2knr depending
1322             # on the value of $U (`' or `_').
1323             #
1324             # It's harder with subdir sources. On
1325             #
1326             #   AUTOMAKE_OPTIONS = ansi2knr
1327             #   bin_PROGRAMS = foo
1328             #   foo_SOURCES = sub/foo.c
1329             #
1330             # we have to create foo_.c in the current directory.
1331             # (Unless the user asks 'subdir-objects'.)  This is important
1332             # in case the same file (`foo.c') is compiled from other
1333             # directories with different cpp options: foo_.c would
1334             # be preprocessed for only one set of options if it were
1335             # put in the subdirectory.
1336             #
1337             # Because foo$U.o must be built from either foo_.c or
1338             # sub/foo.c we can't be as concise as in the first example.
1339             # Instead we output
1340             #
1341             #   foo: foo$U.o; link ...
1342             #   foo_.o: foo_.c; compile ...
1343             #   foo.o: sub/foo.c; compile ...
1344             #   foo_.c: foo.c; ansi2knr ...
1345             #
1346             # This is why we'll now transform $rule_file twice
1347             # if we detect this case.
1348             # A first time we output the compile rule with `$U'
1349             # replaced by `_' and the source directory removed,
1350             # and another time we simply remove `$U'.
1351             #
1352             # Note that at this point $source (as computed by
1353             # &handle_single_transform) is `sub/foo$U.c'.
1354             # This can be confusing: it can be used as-is when
1355             # subdir-objects is set, otherwise you have to know
1356             # it really means `foo_.c' or `sub/foo.c'.
1357             my $objdir = dirname ($obj);
1358             my $srcdir = dirname ($source);
1359             if ($lang->ansi && $obj =~ /\$U/)
1360               {
1361                 prog_error "`$obj' contains \$U, but `$source' doesn't."
1362                   if $source !~ /\$U/;
1363
1364                 (my $source_ = $source) =~ s/\$U/_/g;
1365                 # Output an additional rule if _.c and .c are not in
1366                 # the same directory.  (_.c is always in $objdir.)
1367                 if ($objdir ne $srcdir)
1368                   {
1369                     (my $obj_ = $obj) =~ s/\$U/_/g;
1370                     (my $depbase_ = $depbase) =~ s/\$U/_/g;
1371                     $source_ = basename ($source_);
1372
1373                     $output_rules .=
1374                       file_contents ($rule_file,
1375                                      new Automake::Location,
1376                                      %transform,
1377                                      GENERIC   => 0,
1378
1379                                      DEPBASE   => $depbase_,
1380                                      BASE      => $obj_,
1381                                      SOURCE    => $source_,
1382                                      OBJ       => "$obj_$myext",
1383                                      OBJOBJ    => "$obj_.obj",
1384                                      LTOBJ     => "$obj_.lo",
1385
1386                                      COMPILE   => $obj_compile,
1387                                      LTCOMPILE => $obj_ltcompile,
1388                                      -o        => $output_flag,
1389                                      %file_transform);
1390                     $obj =~ s/\$U//g;
1391                     $depbase =~ s/\$U//g;
1392                     $source =~ s/\$U//g;
1393                   }
1394               }
1395
1396             $output_rules .=
1397               file_contents ($rule_file,
1398                              new Automake::Location,
1399                              %transform,
1400                              GENERIC   => 0,
1401
1402                              DEPBASE   => $depbase,
1403                              BASE      => $obj,
1404                              SOURCE    => $source,
1405                              # Use $myext and not `.o' here, in case
1406                              # we are actually building a new source
1407                              # file -- e.g. via yacc.
1408                              OBJ       => "$obj$myext",
1409                              OBJOBJ    => "$obj.obj",
1410                              LTOBJ     => "$obj.lo",
1411
1412                              COMPILE   => $obj_compile,
1413                              LTCOMPILE => $obj_ltcompile,
1414                              -o        => $output_flag,
1415                              %file_transform);
1416         }
1417
1418         # The rest of the loop is done once per language.
1419         next if defined $done{$lang};
1420         $done{$lang} = 1;
1421
1422         # Load the language dependent Makefile chunks.
1423         my %lang = map { uc ($_) => 0 } keys %languages;
1424         $lang{uc ($lang->name)} = 1;
1425         $output_rules .= file_contents ('lang-compile',
1426                                         new Automake::Location,
1427                                         %transform, %lang);
1428
1429         # If the source to a program consists entirely of code from a
1430         # `pure' language, for instance C++ or Fortran 77, then we
1431         # don't need the C compiler code.  However if we run into
1432         # something unusual then we do generate the C code.  There are
1433         # probably corner cases here that do not work properly.
1434         # People linking Java code to Fortran code deserve pain.
1435         $needs_c ||= ! $lang->pure;
1436
1437         define_compiler_variable ($lang)
1438           if ($lang->compile);
1439
1440         define_linker_variable ($lang)
1441           if ($lang->link);
1442
1443         require_variables ("$am_file.am", $lang->Name . " source seen",
1444                            TRUE, @{$lang->config_vars});
1445
1446         # Call the finisher.
1447         $lang->finish;
1448
1449         # Flags listed in `->flags' are user variables (per GNU Standards),
1450         # they should not be overridden in the Makefile...
1451         my @dont_override = @{$lang->flags};
1452         # ... and so is LDFLAGS.
1453         push @dont_override, 'LDFLAGS' if $lang->link;
1454
1455         check_user_variables @dont_override;
1456     }
1457
1458     # If the project is entirely C++ or entirely Fortran 77 (i.e., 1
1459     # suffix rule was learned), don't bother with the C stuff.  But if
1460     # anything else creeps in, then use it.
1461     $needs_c = 1
1462       if $need_link || suffix_rules_count > 1;
1463
1464     if ($needs_c)
1465       {
1466         &define_compiler_variable ($languages{'c'})
1467           unless defined $done{$languages{'c'}};
1468         define_linker_variable ($languages{'c'});
1469       }
1470 }
1471
1472 # Check to make sure a source defined in LIBOBJS is not explicitly
1473 # mentioned.  This is a separate function (as opposed to being inlined
1474 # in handle_source_transform) because it isn't always appropriate to
1475 # do this check.
1476 sub check_libobjs_sources
1477 {
1478   my ($one_file, $unxformed) = @_;
1479
1480   foreach my $prefix ('', 'EXTRA_', 'dist_', 'nodist_',
1481                       'dist_EXTRA_', 'nodist_EXTRA_')
1482     {
1483       my @files;
1484       my $varname = $prefix . $one_file . '_SOURCES';
1485       my $var = var ($varname);
1486       if ($var)
1487         {
1488           @files = $var->value_as_list_recursive;
1489         }
1490       elsif ($prefix eq '')
1491         {
1492           @files = ($unxformed . '.c');
1493         }
1494       else
1495         {
1496           next;
1497         }
1498
1499       foreach my $file (@files)
1500         {
1501           err_var ($prefix . $one_file . '_SOURCES',
1502                    "automatically discovered file `$file' should not" .
1503                    " be explicitly mentioned")
1504             if defined $libsources{$file};
1505         }
1506     }
1507 }
1508
1509
1510 # @OBJECTS
1511 # handle_single_transform ($VAR, $TOPPARENT, $DERIVED, $OBJ, $FILE, %TRANSFORM)
1512 # -----------------------------------------------------------------------------
1513 # Does much of the actual work for handle_source_transform.
1514 # Arguments are:
1515 #   $VAR is the name of the variable that the source filenames come from
1516 #   $TOPPARENT is the name of the _SOURCES variable which is being processed
1517 #   $DERIVED is the name of resulting executable or library
1518 #   $OBJ is the object extension (e.g., `$U.lo')
1519 #   $FILE the source file to transform
1520 #   %TRANSFORM contains extras arguments to pass to file_contents
1521 #     when producing explicit rules
1522 # Result is a list of the names of objects
1523 # %linkers_used will be updated with any linkers needed
1524 sub handle_single_transform ($$$$$%)
1525 {
1526     my ($var, $topparent, $derived, $obj, $_file, %transform) = @_;
1527     my @files = ($_file);
1528     my @result = ();
1529     my $nonansi_obj = $obj;
1530     $nonansi_obj =~ s/\$U//g;
1531
1532     # Turn sources into objects.  We use a while loop like this
1533     # because we might add to @files in the loop.
1534     while (scalar @files > 0)
1535     {
1536         $_ = shift @files;
1537
1538         # Configure substitutions in _SOURCES variables are errors.
1539         if (/^\@.*\@$/)
1540         {
1541           my $parent_msg = '';
1542           $parent_msg = "\nand is referred to from `$topparent'"
1543             if $topparent ne $var->name;
1544           err_var ($var,
1545                    "`" . $var->name . "' includes configure substitution `$_'"
1546                    . $parent_msg . ";\nconfigure " .
1547                    "substitutions are not allowed in _SOURCES variables");
1548           next;
1549         }
1550
1551         # If the source file is in a subdirectory then the `.o' is put
1552         # into the current directory, unless the subdir-objects option
1553         # is in effect.
1554
1555         # Split file name into base and extension.
1556         next if ! /^(?:(.*)\/)?([^\/]*)($KNOWN_EXTENSIONS_PATTERN)$/;
1557         my $full = $_;
1558         my $directory = $1 || '';
1559         my $base = $2;
1560         my $extension = $3;
1561
1562         # We must generate a rule for the object if it requires its own flags.
1563         my $renamed = 0;
1564         my ($linker, $object);
1565
1566         # This records whether we've seen a derived source file (e.g.
1567         # yacc output).
1568         my $derived_source = 0;
1569
1570         # This holds the `aggregate context' of the file we are
1571         # currently examining.  If the file is compiled with
1572         # per-object flags, then it will be the name of the object.
1573         # Otherwise it will be `AM'.  This is used by the target hook
1574         # language function.
1575         my $aggregate = 'AM';
1576
1577         $extension = &derive_suffix ($extension, $nonansi_obj);
1578         my $lang;
1579         if ($extension_map{$extension} &&
1580             ($lang = $languages{$extension_map{$extension}}))
1581         {
1582             # Found the language, so see what it says.
1583             &saw_extension ($extension);
1584
1585             # Do we have per-executable flags for this executable?
1586             my $have_per_exec_flags = 0;
1587             my @peflags = @{$lang->flags};
1588             push @peflags, 'LIBTOOLFLAGS' if $nonansi_obj eq '.lo';
1589             foreach my $flag (@peflags)
1590               {
1591                 if (set_seen ("${derived}_$flag"))
1592                   {
1593                     $have_per_exec_flags = 1;
1594                     last;
1595                   }
1596               }
1597
1598             # Note: computed subr call.  The language rewrite function
1599             # should return one of the LANG_* constants.  It could
1600             # also return a list whose first value is such a constant
1601             # and whose second value is a new source extension which
1602             # should be applied.  This means this particular language
1603             # generates another source file which we must then process
1604             # further.
1605             my $subr = \&{'lang_' . $lang->name . '_rewrite'};
1606             my ($r, $source_extension)
1607                 = &$subr ($directory, $base, $extension,
1608                           $nonansi_obj, $have_per_exec_flags, $var);
1609             # Skip this entry if we were asked not to process it.
1610             next if $r == LANG_IGNORE;
1611
1612             # Now extract linker and other info.
1613             $linker = $lang->linker;
1614
1615             my $this_obj_ext;
1616             if (defined $source_extension)
1617             {
1618                 $this_obj_ext = $source_extension;
1619                 $derived_source = 1;
1620             }
1621             elsif ($lang->ansi)
1622             {
1623                 $this_obj_ext = $obj;
1624             }
1625             else
1626             {
1627                 $this_obj_ext = $nonansi_obj;
1628             }
1629             $object = $base . $this_obj_ext;
1630
1631             if ($have_per_exec_flags)
1632             {
1633                 # We have a per-executable flag in effect for this
1634                 # object.  In this case we rewrite the object's
1635                 # name to ensure it is unique.
1636
1637                 # We choose the name `DERIVED_OBJECT' to ensure
1638                 # (1) uniqueness, and (2) continuity between
1639                 # invocations.  However, this will result in a
1640                 # name that is too long for losing systems, in
1641                 # some situations.  So we provide _SHORTNAME to
1642                 # override.
1643
1644                 my $dname = $derived;
1645                 my $var = var ($derived . '_SHORTNAME');
1646                 if ($var)
1647                 {
1648                     # FIXME: should use the same Condition as
1649                     # the _SOURCES variable.  But this is really
1650                     # silly overkill -- nobody should have
1651                     # conditional shortnames.
1652                     $dname = $var->variable_value;
1653                 }
1654                 $object = $dname . '-' . $object;
1655
1656                 prog_error ($lang->name . " flags defined without compiler")
1657                   if ! defined $lang->compile;
1658
1659                 $renamed = 1;
1660             }
1661
1662             # If rewrite said it was ok, put the object into a
1663             # subdir.
1664             if ($r == LANG_SUBDIR && $directory ne '')
1665             {
1666                 $object = $directory . '/' . $object;
1667             }
1668
1669             # If the object file has been renamed (because per-target
1670             # flags are used) we cannot compile the file with an
1671             # inference rule: we need an explicit rule.
1672             #
1673             # If the source is in a subdirectory and the object is in
1674             # the current directory, we also need an explicit rule.
1675             #
1676             # If both source and object files are in a subdirectory
1677             # (this happens when the subdir-objects option is used),
1678             # then the inference will work.
1679             #
1680             # The latter case deserves a historical note.  When the
1681             # subdir-objects option was added on 1999-04-11 it was
1682             # thought that inferences rules would work for
1683             # subdirectory objects too.  Later, on 1999-11-22,
1684             # automake was changed to output explicit rules even for
1685             # subdir-objects.  Nobody remembers why, but this occured
1686             # soon after the merge of the user-dep-gen-branch so it
1687             # might be related.  In late 2003 people complained about
1688             # the size of the generated Makefile.ins (libgcj, with
1689             # 2200+ subdir objects was reported to have a 9MB
1690             # Makefile), so we now rely on inference rules again.
1691             # Maybe we'll run across the same issue as in the past,
1692             # but at least this time we can document it.  However since
1693             # dependency tracking has evolved it is possible that
1694             # our old problem no longer exists.
1695             # Using inference rules for subdir-objects has been tested
1696             # with GNU make, Solaris make, Ultrix make, BSD make,
1697             # HP-UX make, and OSF1 make successfully.
1698             if ($renamed
1699                 || ($directory ne '' && ! option 'subdir-objects')
1700                 # We must also use specific rules for a nodist_ source
1701                 # if its language requests it.
1702                 || ($lang->nodist_specific && ! $transform{'DIST_SOURCE'}))
1703             {
1704                 my $obj_sans_ext = substr ($object, 0,
1705                                            - length ($this_obj_ext));
1706                 my $full_ansi = $full;
1707                 if ($lang->ansi && option 'ansi2knr')
1708                   {
1709                     $full_ansi =~ s/$KNOWN_EXTENSIONS_PATTERN$/\$U$&/;
1710                     $obj_sans_ext .= '$U';
1711                   }
1712
1713                 my @specifics = ($full_ansi, $obj_sans_ext,
1714                                  # Only use $this_obj_ext in the derived
1715                                  # source case because in the other case we
1716                                  # *don't* want $(OBJEXT) to appear here.
1717                                  ($derived_source ? $this_obj_ext : '.o'));
1718
1719                 # If we renamed the object then we want to use the
1720                 # per-executable flag name.  But if this is simply a
1721                 # subdir build then we still want to use the AM_ flag
1722                 # name.
1723                 if ($renamed)
1724                   {
1725                     unshift @specifics, $derived;
1726                     $aggregate = $derived;
1727                   }
1728                 else
1729                   {
1730                     unshift @specifics, 'AM';
1731                   }
1732
1733                 # Each item on this list is a reference to a list consisting
1734                 # of four values followed by additional transform flags for
1735                 # file_contents.   The four values are the derived flag prefix
1736                 # (e.g. for `foo_CFLAGS', it is `foo'), the name of the
1737                 # source file, the base name of the output file, and
1738                 # the extension for the object file.
1739                 push (@{$lang_specific_files{$lang->name}},
1740                       [@specifics, %transform]);
1741             }
1742         }
1743         elsif ($extension eq $nonansi_obj)
1744         {
1745             # This is probably the result of a direct suffix rule.
1746             # In this case we just accept the rewrite.
1747             $object = "$base$extension";
1748             $linker = '';
1749         }
1750         else
1751         {
1752             # No error message here.  Used to have one, but it was
1753             # very unpopular.
1754             # FIXME: we could potentially do more processing here,
1755             # perhaps treating the new extension as though it were a
1756             # new source extension (as above).  This would require
1757             # more restructuring than is appropriate right now.
1758             next;
1759         }
1760
1761         err_am "object `$object' created by `$full' and `$object_map{$object}'"
1762           if (defined $object_map{$object}
1763               && $object_map{$object} ne $full);
1764
1765         my $comp_val = (($object =~ /\.lo$/)
1766                         ? COMPILE_LIBTOOL : COMPILE_ORDINARY);
1767         (my $comp_obj = $object) =~ s/\.lo$/.\$(OBJEXT)/;
1768         if (defined $object_compilation_map{$comp_obj}
1769             && $object_compilation_map{$comp_obj} != 0
1770             # Only see the error once.
1771             && ($object_compilation_map{$comp_obj}
1772                 != (COMPILE_LIBTOOL | COMPILE_ORDINARY))
1773             && $object_compilation_map{$comp_obj} != $comp_val)
1774           {
1775             err_am "object `$comp_obj' created both with libtool and without";
1776           }
1777         $object_compilation_map{$comp_obj} |= $comp_val;
1778
1779         if (defined $lang)
1780         {
1781             # Let the language do some special magic if required.
1782             $lang->target_hook ($aggregate, $object, $full, %transform);
1783         }
1784
1785         if ($derived_source)
1786           {
1787             prog_error ($lang->name . " has automatic dependency tracking")
1788               if $lang->autodep ne 'no';
1789             # Make sure this new source file is handled next.  That will
1790             # make it appear to be at the right place in the list.
1791             unshift (@files, $object);
1792             # Distribute derived sources unless the source they are
1793             # derived from is not.
1794             &push_dist_common ($object)
1795               unless ($topparent =~ /^(?:nobase_)?nodist_/);
1796             next;
1797           }
1798
1799         $linkers_used{$linker} = 1;
1800
1801         push (@result, $object);
1802
1803         if (! defined $object_map{$object})
1804         {
1805             my @dep_list = ();
1806             $object_map{$object} = $full;
1807
1808             # If resulting object is in subdir, we need to make
1809             # sure the subdir exists at build time.
1810             if ($object =~ /\//)
1811             {
1812                 # FIXME: check that $DIRECTORY is somewhere in the
1813                 # project
1814
1815                 # For Java, the way we're handling it right now, a
1816                 # `..' component doesn't make sense.
1817                 if ($lang->name eq 'java' && $object =~ /(\/|^)\.\.\//)
1818                   {
1819                     err_am "`$full' should not contain a `..' component";
1820                   }
1821
1822                 # Make sure object is removed by `make mostlyclean'.
1823                 $compile_clean_files{$object} = MOSTLY_CLEAN;
1824                 # If we have a libtool object then we also must remove
1825                 # the ordinary .o.
1826                 if ($object =~ /\.lo$/)
1827                 {
1828                     (my $xobj = $object) =~ s,lo$,\$(OBJEXT),;
1829                     $compile_clean_files{$xobj} = MOSTLY_CLEAN;
1830
1831                     # Remove any libtool object in this directory.
1832                     $libtool_clean_directories{$directory} = 1;
1833                 }
1834
1835                 push (@dep_list, require_build_directory ($directory));
1836
1837                 # If we're generating dependencies, we also want
1838                 # to make sure that the appropriate subdir of the
1839                 # .deps directory is created.
1840                 push (@dep_list,
1841                       require_build_directory ($directory . '/$(DEPDIR)'))
1842                   unless option 'no-dependencies';
1843             }
1844
1845             &pretty_print_rule ($object . ':', "\t", @dep_list)
1846                 if scalar @dep_list > 0;
1847         }
1848
1849         # Transform .o or $o file into .P file (for automatic
1850         # dependency code).
1851         if ($lang && $lang->autodep ne 'no')
1852         {
1853             my $depfile = $object;
1854             $depfile =~ s/\.([^.]*)$/.P$1/;
1855             $depfile =~ s/\$\(OBJEXT\)$/o/;
1856             $dep_files{dirname ($depfile) . '/$(DEPDIR)/'
1857                            . basename ($depfile)} = 1;
1858         }
1859     }
1860
1861     return @result;
1862 }
1863
1864
1865 # $LINKER
1866 # define_objects_from_sources ($VAR, $OBJVAR, $NODEFINE, $ONE_FILE,
1867 #                              $OBJ, $PARENT, $TOPPARENT, $WHERE, %TRANSFORM)
1868 # ---------------------------------------------------------------------------
1869 # Define an _OBJECTS variable for a _SOURCES variable (or subvariable)
1870 #
1871 # Arguments are:
1872 #   $VAR is the name of the _SOURCES variable
1873 #   $OBJVAR is the name of the _OBJECTS variable if known (otherwise
1874 #     it will be generated and returned).
1875 #   $NODEFINE is a boolean: if true, $OBJVAR will not be defined (but
1876 #     work done to determine the linker will be).
1877 #   $ONE_FILE is the canonical (transformed) name of object to build
1878 #   $OBJ is the object extension (i.e. either `.o' or `.lo').
1879 #   $TOPPARENT is the _SOURCES variable being processed.
1880 #   $WHERE context into which this definition is done
1881 #   %TRANSFORM extra arguments to pass to file_contents when producing
1882 #     rules
1883 #
1884 # Result is a pair ($LINKER, $OBJVAR):
1885 #    $LINKER is a boolean, true if a linker is needed to deal with the objects
1886 sub define_objects_from_sources ($$$$$$$%)
1887 {
1888   my ($var, $objvar, $nodefine, $one_file,
1889       $obj, $topparent, $where, %transform) = @_;
1890
1891   my $needlinker = "";
1892
1893   transform_variable_recursively
1894     ($var, $objvar, 'am__objects', $nodefine, $where,
1895      # The transform code to run on each filename.
1896      sub {
1897        my ($subvar, $val, $cond, $full_cond) = @_;
1898        my @trans = handle_single_transform ($subvar, $topparent,
1899                                             $one_file, $obj, $val,
1900                                             %transform);
1901        $needlinker = "true" if @trans;
1902        return @trans;
1903      });
1904
1905   return $needlinker;
1906 }
1907
1908
1909 # handle_source_transform ($CANON_TARGET, $TARGET, $OBJEXT, $WHERE, %TRANSFORM)
1910 # -----------------------------------------------------------------------------
1911 # Handle SOURCE->OBJECT transform for one program or library.
1912 # Arguments are:
1913 #   canonical (transformed) name of target to build
1914 #   actual target of object to build
1915 #   object extension (i.e. either `.o' or `$o'.
1916 #   location of the source variable
1917 #   extra arguments to pass to file_contents when producing rules
1918 # Return result is name of linker variable that must be used.
1919 # Empty return means just use `LINK'.
1920 sub handle_source_transform ($$$$%)
1921 {
1922     # one_file is canonical name.  unxformed is given name.  obj is
1923     # object extension.
1924     my ($one_file, $unxformed, $obj, $where, %transform) = @_;
1925
1926     my ($linker) = '';
1927
1928     # No point in continuing if _OBJECTS is defined.
1929     return if reject_var ($one_file . '_OBJECTS',
1930                           $one_file . '_OBJECTS should not be defined');
1931
1932     my %used_pfx = ();
1933     my $needlinker;
1934     %linkers_used = ();
1935     foreach my $prefix ('', 'EXTRA_', 'dist_', 'nodist_',
1936                         'dist_EXTRA_', 'nodist_EXTRA_')
1937     {
1938         my $varname = $prefix . $one_file . "_SOURCES";
1939         my $var = var $varname;
1940         next unless $var;
1941
1942         # We are going to define _OBJECTS variables using the prefix.
1943         # Then we glom them all together.  So we can't use the null
1944         # prefix here as we need it later.
1945         my $xpfx = ($prefix eq '') ? 'am_' : $prefix;
1946
1947         # Keep track of which prefixes we saw.
1948         $used_pfx{$xpfx} = 1
1949           unless $prefix =~ /EXTRA_/;
1950
1951         push @sources, "\$($varname)";
1952         push @dist_sources, shadow_unconditionally ($varname, $where)
1953           unless (option ('no-dist') || $prefix =~ /^nodist_/);
1954
1955         $needlinker |=
1956             define_objects_from_sources ($varname,
1957                                          $xpfx . $one_file . '_OBJECTS',
1958                                          $prefix =~ /EXTRA_/,
1959                                          $one_file, $obj, $varname, $where,
1960                                          DIST_SOURCE => ($prefix !~ /^nodist_/),
1961                                          %transform);
1962     }
1963     if ($needlinker)
1964     {
1965         $linker ||= &resolve_linker (%linkers_used);
1966     }
1967
1968     my @keys = sort keys %used_pfx;
1969     if (scalar @keys == 0)
1970     {
1971         # The default source for libfoo.la is libfoo.c, but for
1972         # backward compatibility we first look at libfoo_la.c
1973         my $old_default_source = "$one_file.c";
1974         (my $default_source = $unxformed) =~ s,(\.[^./\\]*)?$,.c,;
1975         if ($old_default_source ne $default_source
1976             && (rule $old_default_source
1977                 || rule '$(srcdir)/' . $old_default_source
1978                 || rule '${srcdir}/' . $old_default_source
1979                 || -f $old_default_source))
1980           {
1981             my $loc = $where->clone;
1982             $loc->pop_context;
1983             msg ('obsolete', $loc,
1984                  "the default source for `$unxformed' has been changed "
1985                  . "to `$default_source'.\n(Using `$old_default_source' for "
1986                  . "backward compatibility.)");
1987             $default_source = $old_default_source;
1988           }
1989         # If a rule exists to build this source with a $(srcdir)
1990         # prefix, use that prefix in our variables too.  This is for
1991         # the sake of BSD Make.
1992         if (rule '$(srcdir)/' . $default_source
1993             || rule '${srcdir}/' . $default_source)
1994           {
1995             $default_source = '$(srcdir)/' . $default_source;
1996           }
1997
1998         &define_variable ($one_file . "_SOURCES", $default_source, $where);
1999         push (@sources, $default_source);
2000         push (@dist_sources, $default_source);
2001
2002         %linkers_used = ();
2003         my (@result) =
2004           handle_single_transform ($one_file . '_SOURCES',
2005                                    $one_file . '_SOURCES',
2006                                    $one_file, $obj,
2007                                    $default_source, %transform);
2008         $linker ||= &resolve_linker (%linkers_used);
2009         define_pretty_variable ($one_file . '_OBJECTS', TRUE, $where, @result);
2010     }
2011     else
2012     {
2013         @keys = map { '$(' . $_ . $one_file . '_OBJECTS)' } @keys;
2014         define_pretty_variable ($one_file . '_OBJECTS', TRUE, $where, @keys);
2015     }
2016
2017     # If we want to use `LINK' we must make sure it is defined.
2018     if ($linker eq '')
2019     {
2020         $need_link = 1;
2021     }
2022
2023     return $linker;
2024 }
2025
2026
2027 # handle_lib_objects ($XNAME, $VAR)
2028 # ---------------------------------
2029 # Special-case ALLOCA and LIBOBJS substitutions in _LDADD or _LIBADD variables.
2030 # Also, generate _DEPENDENCIES variable if appropriate.
2031 # Arguments are:
2032 #   transformed name of object being built, or empty string if no object
2033 #   name of _LDADD/_LIBADD-type variable to examine
2034 # Returns 1 if LIBOBJS seen, 0 otherwise.
2035 sub handle_lib_objects
2036 {
2037   my ($xname, $varname) = @_;
2038
2039   my $var = var ($varname);
2040   prog_error "handle_lib_objects: `$varname' undefined"
2041     unless $var;
2042   prog_error "handle_lib_objects: unexpected variable name `$varname'"
2043     unless $varname =~ /^(.*)(?:LIB|LD)ADD$/;
2044   my $prefix = $1 || 'AM_';
2045
2046   my $seen_libobjs = 0;
2047   my $flagvar = 0;
2048
2049   transform_variable_recursively
2050     ($varname, $xname . '_DEPENDENCIES', 'am__DEPENDENCIES',
2051      ! $xname, INTERNAL,
2052      # Transformation function, run on each filename.
2053      sub {
2054        my ($subvar, $val, $cond, $full_cond) = @_;
2055
2056        if ($val =~ /^-/)
2057          {
2058            # Skip -lfoo and -Ldir silently; these are explicitly allowed.
2059            if ($val !~ /^-[lL]/ &&
2060                # Skip -dlopen and -dlpreopen; these are explicitly allowed
2061                # for Libtool libraries or programs.  (Actually we are a bit
2062                # laxest here since this code also applies to non-libtool
2063                # libraries or programs, for which -dlopen and -dlopreopen
2064                # are pure non-sence.  Diagnosting this doesn't seems very
2065                # important: the developer will quickly get complaints from
2066                # the linker.)
2067                $val !~ /^-dl(?:pre)?open$/ &&
2068                # Only get this error once.
2069                ! $flagvar)
2070              {
2071                $flagvar = 1;
2072                # FIXME: should display a stack of nested variables
2073                # as context when $var != $subvar.
2074                err_var ($var, "linker flags such as `$val' belong in "
2075                         . "`${prefix}LDFLAGS");
2076              }
2077            return ();
2078          }
2079        elsif ($val !~ /^\@.*\@$/)
2080          {
2081            # Assume we have a file of some sort, and output it into the
2082            # dependency variable.  Autoconf substitutions are not output;
2083            # rarely is a new dependency substituted into e.g. foo_LDADD
2084            # -- but bad things (e.g. -lX11) are routinely substituted.
2085            # Note that LIBOBJS and ALLOCA are exceptions to this rule,
2086            # and handled specially below.
2087            return $val;
2088          }
2089        elsif ($val =~ /^\@(LT)?LIBOBJS\@$/)
2090          {
2091            handle_LIBOBJS ($subvar, $cond, $1);
2092            $seen_libobjs = 1;
2093            return $val;
2094          }
2095        elsif ($val =~ /^\@(LT)?ALLOCA\@$/)
2096          {
2097            handle_ALLOCA ($subvar, $cond, $1);
2098            return $val;
2099          }
2100        else
2101          {
2102            return ();
2103          }
2104      });
2105
2106   return $seen_libobjs;
2107 }
2108
2109 sub handle_LIBOBJS ($$$)
2110 {
2111   my ($var, $cond, $lt) = @_;
2112   $lt ||= '';
2113   my $myobjext = ($1 ? 'l' : '') . 'o';
2114
2115   $var->requires_variables ("\@${lt}LIBOBJS\@ used", $lt . 'LIBOBJS')
2116     if ! keys %libsources;
2117
2118   foreach my $iter (keys %libsources)
2119     {
2120       if ($iter =~ /\.[cly]$/)
2121         {
2122           &saw_extension ($&);
2123           &saw_extension ('.c');
2124         }
2125
2126       if ($iter =~ /\.h$/)
2127         {
2128           require_file_with_macro ($cond, $var, FOREIGN, $iter);
2129         }
2130       elsif ($iter ne 'alloca.c')
2131         {
2132           my $rewrite = $iter;
2133           $rewrite =~ s/\.c$/.P$myobjext/;
2134           $dep_files{'$(DEPDIR)/' . $rewrite} = 1;
2135           $rewrite = "^" . quotemeta ($iter) . "\$";
2136           # Only require the file if it is not a built source.
2137           my $bs = var ('BUILT_SOURCES');
2138           if (! $bs || ! grep (/$rewrite/, $bs->value_as_list_recursive))
2139             {
2140               require_file_with_macro ($cond, $var, FOREIGN, $iter);
2141             }
2142         }
2143     }
2144 }
2145
2146 sub handle_ALLOCA ($$$)
2147 {
2148   my ($var, $cond, $lt) = @_;
2149   my $myobjext = ($lt ? 'l' : '') . 'o';
2150   $lt ||= '';
2151   $var->requires_variables ("\@${lt}ALLOCA\@ used", $lt . 'ALLOCA');
2152   $dep_files{'$(DEPDIR)/alloca.P' . $myobjext} = 1;
2153   require_file_with_macro ($cond, $var, FOREIGN, 'alloca.c');
2154   &saw_extension ('c');
2155 }
2156
2157 # Canonicalize the input parameter
2158 sub canonicalize
2159 {
2160     my ($string) = @_;
2161     $string =~ tr/A-Za-z0-9_\@/_/c;
2162     return $string;
2163 }
2164
2165 # Canonicalize a name, and check to make sure the non-canonical name
2166 # is never used.  Returns canonical name.  Arguments are name and a
2167 # list of suffixes to check for.
2168 sub check_canonical_spelling
2169 {
2170   my ($name, @suffixes) = @_;
2171
2172   my $xname = &canonicalize ($name);
2173   if ($xname ne $name)
2174     {
2175       foreach my $xt (@suffixes)
2176         {
2177           reject_var ("$name$xt", "use `$xname$xt', not `$name$xt'");
2178         }
2179     }
2180
2181   return $xname;
2182 }
2183
2184
2185 # handle_compile ()
2186 # -----------------
2187 # Set up the compile suite.
2188 sub handle_compile ()
2189 {
2190     return
2191       unless $get_object_extension_was_run;
2192
2193     # Boilerplate.
2194     my $default_includes = '';
2195     if (! option 'nostdinc')
2196       {
2197         $default_includes = ' -I. -I$(srcdir)';
2198
2199         my $var = var 'CONFIG_HEADER';
2200         if ($var)
2201           {
2202             foreach my $hdr (split (' ', $var->variable_value))
2203               {
2204                 $default_includes .= ' -I' . dirname ($hdr);
2205               }
2206           }
2207       }
2208
2209     my (@mostly_rms, @dist_rms);
2210     foreach my $item (sort keys %compile_clean_files)
2211     {
2212         if ($compile_clean_files{$item} == MOSTLY_CLEAN)
2213         {
2214             push (@mostly_rms, "\t-rm -f $item");
2215         }
2216         elsif ($compile_clean_files{$item} == DIST_CLEAN)
2217         {
2218             push (@dist_rms, "\t-rm -f $item");
2219         }
2220         else
2221         {
2222           prog_error 'invalid entry in %compile_clean_files';
2223         }
2224     }
2225
2226     my ($coms, $vars, $rules) =
2227       &file_contents_internal (1, "$libdir/am/compile.am",
2228                                new Automake::Location,
2229                                ('DEFAULT_INCLUDES' => $default_includes,
2230                                 'MOSTLYRMS' => join ("\n", @mostly_rms),
2231                                 'DISTRMS' => join ("\n", @dist_rms)));
2232     $output_vars .= $vars;
2233     $output_rules .= "$coms$rules";
2234
2235     # Check for automatic de-ANSI-fication.
2236     if (option 'ansi2knr')
2237       {
2238         my ($ansi2knr_filename, $ansi2knr_where) = @{option 'ansi2knr'};
2239         my $ansi2knr_dir = '';
2240
2241         require_variables ($ansi2knr_where, "option `ansi2knr' is used",
2242                            TRUE, "ANSI2KNR", "U");
2243
2244         # topdir is where ansi2knr should be.
2245         if ($ansi2knr_filename eq 'ansi2knr')
2246           {
2247             # Only require ansi2knr files if they should appear in
2248             # this directory.
2249             require_file ($ansi2knr_where, FOREIGN,
2250                           'ansi2knr.c', 'ansi2knr.1');
2251
2252             # ansi2knr needs to be built before subdirs, so unshift it.
2253             unshift (@all, '$(ANSI2KNR)');
2254           }
2255         else
2256           {
2257             $ansi2knr_dir = dirname ($ansi2knr_filename);
2258           }
2259
2260         $output_rules .= &file_contents ('ansi2knr',
2261                                          new Automake::Location,
2262                                          'ANSI2KNR-DIR' => $ansi2knr_dir);
2263
2264     }
2265 }
2266
2267 # handle_libtool ()
2268 # -----------------
2269 # Handle libtool rules.
2270 sub handle_libtool
2271 {
2272   return unless var ('LIBTOOL');
2273
2274   # Libtool requires some files, but only at top level.
2275   # (Starting with Libtool 2.0 we do not have to bother.  These
2276   # requirements are done with AC_REQUIRE_AUX_FILE.)
2277   require_conf_file_with_macro (TRUE, 'LIBTOOL', FOREIGN, @libtool_files)
2278     if $relative_dir eq '.' && ! $libtool_new_api;
2279
2280   my @libtool_rms;
2281   foreach my $item (sort keys %libtool_clean_directories)
2282     {
2283       my $dir = ($item eq '.') ? '' : "$item/";
2284       # .libs is for Unix, _libs for DOS.
2285       push (@libtool_rms, "\t-rm -rf ${dir}.libs ${dir}_libs");
2286     }
2287
2288   check_user_variables 'LIBTOOLFLAGS';
2289
2290   # Output the libtool compilation rules.
2291   $output_rules .= &file_contents ('libtool',
2292                                    new Automake::Location,
2293                                    LTRMS => join ("\n", @libtool_rms));
2294 }
2295
2296 # handle_programs ()
2297 # ------------------
2298 # Handle C programs.
2299 sub handle_programs
2300 {
2301   my @proglist = &am_install_var ('progs', 'PROGRAMS',
2302                                   'bin', 'sbin', 'libexec', 'pkglib',
2303                                   'noinst', 'check');
2304   return if ! @proglist;
2305
2306   my $seen_global_libobjs =
2307     var ('LDADD') && &handle_lib_objects ('', 'LDADD');
2308
2309   foreach my $pair (@proglist)
2310     {
2311       my ($where, $one_file) = @$pair;
2312
2313       my $seen_libobjs = 0;
2314       my $obj = get_object_extension '.$(OBJEXT)';
2315
2316       # Strip any $(EXEEXT) suffix the user might have added, or this
2317       # will confuse &handle_source_transform and &check_canonical_spelling.
2318       # We'll add $(EXEEXT) back later anyway.
2319       $one_file =~ s/\$\(EXEEXT\)$//;
2320
2321       # Canonicalize names and check for misspellings.
2322       my $xname = &check_canonical_spelling ($one_file, '_LDADD', '_LDFLAGS',
2323                                              '_SOURCES', '_OBJECTS',
2324                                              '_DEPENDENCIES');
2325
2326       $where->push_context ("while processing program `$one_file'");
2327       $where->set (INTERNAL->get);
2328
2329       my $linker = &handle_source_transform ($xname, $one_file, $obj, $where,
2330                                              NONLIBTOOL => 1, LIBTOOL => 0);
2331
2332       if (var ($xname . "_LDADD"))
2333         {
2334           $seen_libobjs = &handle_lib_objects ($xname, $xname . '_LDADD');
2335         }
2336       else
2337         {
2338           # User didn't define prog_LDADD override.  So do it.
2339           &define_variable ($xname . '_LDADD', '$(LDADD)', $where);
2340
2341           # This does a bit too much work.  But we need it to
2342           # generate _DEPENDENCIES when appropriate.
2343           if (var ('LDADD'))
2344             {
2345               $seen_libobjs = &handle_lib_objects ($xname, 'LDADD');
2346             }
2347         }
2348
2349       reject_var ($xname . '_LIBADD',
2350                   "use `${xname}_LDADD', not `${xname}_LIBADD'");
2351
2352       set_seen ($xname . '_DEPENDENCIES');
2353       set_seen ($xname . '_LDFLAGS');
2354
2355       # Determine program to use for link.
2356       my $xlink;
2357       if (var ($xname . '_LINK'))
2358         {
2359           $xlink = $xname . '_LINK';
2360         }
2361       else
2362         {
2363           $xlink = $linker ? $linker : 'LINK';
2364         }
2365
2366       # If the resulting program lies into a subdirectory,
2367       # make sure this directory will exist.
2368       my $dirstamp = require_build_directory_maybe ($one_file);
2369
2370       $output_rules .= &file_contents ('program',
2371                                        $where,
2372                                        PROGRAM  => $one_file,
2373                                        XPROGRAM => $xname,
2374                                        XLINK    => $xlink,
2375                                        DIRSTAMP => $dirstamp,
2376                                        EXEEXT   => '$(EXEEXT)');
2377
2378       if ($seen_libobjs || $seen_global_libobjs)
2379         {
2380           if (var ($xname . '_LDADD'))
2381             {
2382               &check_libobjs_sources ($xname, $xname . '_LDADD');
2383             }
2384           elsif (var ('LDADD'))
2385             {
2386               &check_libobjs_sources ($xname, 'LDADD');
2387             }
2388         }
2389     }
2390 }
2391
2392
2393 # handle_libraries ()
2394 # -------------------
2395 # Handle libraries.
2396 sub handle_libraries
2397 {
2398   my @liblist = &am_install_var ('libs', 'LIBRARIES',
2399                                  'lib', 'pkglib', 'noinst', 'check');
2400   return if ! @liblist;
2401
2402   my @prefix = am_primary_prefixes ('LIBRARIES', 0, 'lib', 'pkglib',
2403                                     'noinst', 'check');
2404
2405   if (@prefix)
2406     {
2407       my $var = rvar ($prefix[0] . '_LIBRARIES');
2408       $var->requires_variables ('library used', 'RANLIB');
2409     }
2410
2411   &define_variable ('AR', 'ar', INTERNAL);
2412   &define_variable ('ARFLAGS', 'cru', INTERNAL);
2413
2414   foreach my $pair (@liblist)
2415     {
2416       my ($where, $onelib) = @$pair;
2417
2418       my $seen_libobjs = 0;
2419       # Check that the library fits the standard naming convention.
2420       my $bn = basename ($onelib);
2421       if ($bn !~ /^lib.*\.a$/)
2422         {
2423           $bn =~ s/^(?:lib)?(.*?)(?:\.[^.]*)?$/lib$1.a/;
2424           my $suggestion = dirname ($onelib) . "/$bn";
2425           $suggestion =~ s|^\./||g;
2426           msg ('error-gnu/warn', $where,
2427                "`$onelib' is not a standard library name\n"
2428                . "did you mean `$suggestion'?")
2429         }
2430
2431       $where->push_context ("while processing library `$onelib'");
2432       $where->set (INTERNAL->get);
2433
2434       my $obj = get_object_extension '.$(OBJEXT)';
2435
2436       # Canonicalize names and check for misspellings.
2437       my $xlib = &check_canonical_spelling ($onelib, '_LIBADD', '_SOURCES',
2438                                             '_OBJECTS', '_DEPENDENCIES',
2439                                             '_AR');
2440
2441       if (! var ($xlib . '_AR'))
2442         {
2443           &define_variable ($xlib . '_AR', '$(AR) $(ARFLAGS)', $where);
2444         }
2445
2446       # Generate support for conditional object inclusion in
2447       # libraries.
2448       if (var ($xlib . '_LIBADD'))
2449         {
2450           if (&handle_lib_objects ($xlib, $xlib . '_LIBADD'))
2451             {
2452               $seen_libobjs = 1;
2453             }
2454         }
2455       else
2456         {
2457           &define_variable ($xlib . "_LIBADD", '', $where);
2458         }
2459
2460       reject_var ($xlib . '_LDADD',
2461                   "use `${xlib}_LIBADD', not `${xlib}_LDADD'");
2462
2463       # Make sure we at look at this.
2464       set_seen ($xlib . '_DEPENDENCIES');
2465
2466       &handle_source_transform ($xlib, $onelib, $obj, $where,
2467                                 NONLIBTOOL => 1, LIBTOOL => 0);
2468
2469       # If the resulting library lies into a subdirectory,
2470       # make sure this directory will exist.
2471       my $dirstamp = require_build_directory_maybe ($onelib);
2472
2473       $output_rules .= &file_contents ('library',
2474                                        $where,
2475                                        LIBRARY  => $onelib,
2476                                        XLIBRARY => $xlib,
2477                                        DIRSTAMP => $dirstamp);
2478
2479       if ($seen_libobjs)
2480         {
2481           if (var ($xlib . '_LIBADD'))
2482             {
2483               &check_libobjs_sources ($xlib, $xlib . '_LIBADD');
2484             }
2485         }
2486     }
2487 }
2488
2489
2490 # handle_ltlibraries ()
2491 # ---------------------
2492 # Handle shared libraries.
2493 sub handle_ltlibraries
2494 {
2495   my @liblist = &am_install_var ('ltlib', 'LTLIBRARIES',
2496                                  'noinst', 'lib', 'pkglib', 'check');
2497   return if ! @liblist;
2498
2499   my @prefix = am_primary_prefixes ('LTLIBRARIES', 0, 'lib', 'pkglib',
2500                                     'noinst', 'check');
2501
2502   if (@prefix)
2503     {
2504       my $var = rvar ($prefix[0] . '_LTLIBRARIES');
2505       $var->requires_variables ('Libtool library used', 'LIBTOOL');
2506     }
2507
2508   my %instdirs = ();
2509   my %instconds = ();
2510   my %liblocations = ();        # Location (in Makefile.am) of each library.
2511
2512   foreach my $key (@prefix)
2513     {
2514       # Get the installation directory of each library.
2515       (my $dir = $key) =~ s/^nobase_//;
2516       my $var = rvar ($key . '_LTLIBRARIES');
2517
2518       # We reject libraries which are installed in several places
2519       # in the same condition, because we can only specify one
2520       # `-rpath' option.
2521       $var->traverse_recursively
2522         (sub
2523          {
2524            my ($var, $val, $cond, $full_cond) = @_;
2525            my $hcond = $full_cond->human;
2526            my $where = $var->rdef ($cond)->location;
2527            # A library cannot be installed in different directory
2528            # in overlapping conditions.
2529            if (exists $instconds{$val})
2530              {
2531                my ($msg, $acond) =
2532                  $instconds{$val}->ambiguous_p ($val, $full_cond);
2533
2534                if ($msg)
2535                  {
2536                    error ($where, $msg, partial => 1);
2537
2538                    my $dirtxt = "installed in `$dir'";
2539                    $dirtxt = "built for `$dir'"
2540                      if $dir eq 'EXTRA' || $dir eq 'noinst' || $dir eq 'check';
2541                    my $dircond =
2542                      $full_cond->true ? "" : " in condition $hcond";
2543
2544                    error ($where, "`$val' should be $dirtxt$dircond ...",
2545                           partial => 1);
2546
2547                    my $hacond = $acond->human;
2548                    my $adir = $instdirs{$val}{$acond};
2549                    my $adirtxt = "installed in `$adir'";
2550                    $adirtxt = "built for `$adir'"
2551                      if ($adir eq 'EXTRA' || $adir eq 'noinst'
2552                          || $adir eq 'check');
2553                    my $adircond = $acond->true ? "" : " in condition $hacond";
2554
2555                    my $onlyone = ($dir ne $adir) ?
2556                      ("\nLibtool libraries can be built for only one "
2557                       . "destination.") : "";
2558
2559                    error ($liblocations{$val}{$acond},
2560                           "... and should also be $adirtxt$adircond.$onlyone");
2561                    return;
2562                  }
2563              }
2564            else
2565              {
2566                $instconds{$val} = new Automake::DisjConditions;
2567              }
2568            $instdirs{$val}{$full_cond} = $dir;
2569            $liblocations{$val}{$full_cond} = $where;
2570            $instconds{$val} = $instconds{$val}->merge ($full_cond);
2571          },
2572          sub
2573          {
2574            return ();
2575          },
2576          skip_ac_subst => 1);
2577     }
2578
2579   foreach my $pair (@liblist)
2580     {
2581       my ($where, $onelib) = @$pair;
2582
2583       my $seen_libobjs = 0;
2584       my $obj = get_object_extension '.lo';
2585
2586       # Canonicalize names and check for misspellings.
2587       my $xlib = &check_canonical_spelling ($onelib, '_LIBADD', '_LDFLAGS',
2588                                             '_SOURCES', '_OBJECTS',
2589                                             '_DEPENDENCIES');
2590
2591       # Check that the library fits the standard naming convention.
2592       my $libname_rx = '^lib.*\.la';
2593       my $ldvar = var ("${xlib}_LDFLAGS") || var ('AM_LDFLAGS');
2594       my $ldvar2 = var ('LDFLAGS');
2595       if (($ldvar && grep (/-module/, $ldvar->value_as_list_recursive))
2596           || ($ldvar2 && grep (/-module/, $ldvar2->value_as_list_recursive)))
2597         {
2598           # Relax name checking for libtool modules.
2599           $libname_rx = '\.la';
2600         }
2601
2602       my $bn = basename ($onelib);
2603       if ($bn !~ /$libname_rx$/)
2604         {
2605           my $type = 'library';
2606           if ($libname_rx eq '\.la')
2607             {
2608               $bn =~ s/^(lib|)(.*?)(?:\.[^.]*)?$/$1$2.la/;
2609               $type = 'module';
2610             }
2611           else
2612             {
2613               $bn =~ s/^(?:lib)?(.*?)(?:\.[^.]*)?$/lib$1.la/;
2614             }
2615           my $suggestion = dirname ($onelib) . "/$bn";
2616           $suggestion =~ s|^\./||g;
2617           msg ('error-gnu/warn', $where,
2618                "`$onelib' is not a standard libtool $type name\n"
2619                . "did you mean `$suggestion'?")
2620         }
2621
2622       $where->push_context ("while processing Libtool library `$onelib'");
2623       $where->set (INTERNAL->get);
2624
2625       # Make sure we look at these.
2626       set_seen ($xlib . '_LDFLAGS');
2627       set_seen ($xlib . '_DEPENDENCIES');
2628
2629       # Generate support for conditional object inclusion in
2630       # libraries.
2631       if (var ($xlib . '_LIBADD'))
2632         {
2633           if (&handle_lib_objects ($xlib, $xlib . '_LIBADD'))
2634             {
2635               $seen_libobjs = 1;
2636             }
2637         }
2638       else
2639         {
2640           &define_variable ($xlib . "_LIBADD", '', $where);
2641         }
2642
2643       reject_var ("${xlib}_LDADD",
2644                   "use `${xlib}_LIBADD', not `${xlib}_LDADD'");
2645
2646
2647       my $linker = &handle_source_transform ($xlib, $onelib, $obj, $where,
2648                                              NONLIBTOOL => 0, LIBTOOL => 1);
2649
2650       # Determine program to use for link.
2651       my $xlink;
2652       if (var ($xlib . '_LINK'))
2653         {
2654           $xlink = $xlib . '_LINK';
2655         }
2656       else
2657         {
2658           $xlink = $linker ? $linker : 'LINK';
2659         }
2660
2661       my $rpathvar = "am_${xlib}_rpath";
2662       my $rpath = "\$($rpathvar)";
2663       foreach my $rcond ($instconds{$onelib}->conds)
2664         {
2665           my $val;
2666           if ($instdirs{$onelib}{$rcond} eq 'EXTRA'
2667               || $instdirs{$onelib}{$rcond} eq 'noinst'
2668               || $instdirs{$onelib}{$rcond} eq 'check')
2669             {
2670               # It's an EXTRA_ library, so we can't specify -rpath,
2671               # because we don't know where the library will end up.
2672               # The user probably knows, but generally speaking automake
2673               # doesn't -- and in fact configure could decide
2674               # dynamically between two different locations.
2675               $val = '';
2676             }
2677           else
2678             {
2679               $val = ('-rpath $(' . $instdirs{$onelib}{$rcond} . 'dir)');
2680             }
2681           if ($rcond->true)
2682             {
2683               # If $rcond is true there is only one condition and
2684               # there is no point defining an helper variable.
2685               $rpath = $val;
2686             }
2687           else
2688             {
2689               define_pretty_variable ($rpathvar, $rcond, INTERNAL, $val);
2690             }
2691         }
2692
2693       # If the resulting library lies into a subdirectory,
2694       # make sure this directory will exist.
2695       my $dirstamp = require_build_directory_maybe ($onelib);
2696
2697       # Remember to cleanup .libs/ in this directory.
2698       my $dirname = dirname $onelib;
2699       $libtool_clean_directories{$dirname} = 1;
2700
2701       $output_rules .= &file_contents ('ltlibrary',
2702                                        $where,
2703                                        LTLIBRARY  => $onelib,
2704                                        XLTLIBRARY => $xlib,
2705                                        RPATH      => $rpath,
2706                                        XLINK      => $xlink,
2707                                        DIRSTAMP   => $dirstamp);
2708       if ($seen_libobjs)
2709         {
2710           if (var ($xlib . '_LIBADD'))
2711             {
2712               &check_libobjs_sources ($xlib, $xlib . '_LIBADD');
2713             }
2714         }
2715     }
2716 }
2717
2718 # See if any _SOURCES variable were misspelled.
2719 sub check_typos ()
2720 {
2721   # It is ok if the user sets this particular variable.
2722   set_seen 'AM_LDFLAGS';
2723
2724   foreach my $primary ('SOURCES', 'LIBADD', 'LDADD', 'LDFLAGS', 'DEPENDENCIES')
2725     {
2726       foreach my $var (variables $primary)
2727         {
2728           my $varname = $var->name;
2729           # A configure variable is always legitimate.
2730           next if exists $configure_vars{$varname};
2731
2732           for my $cond ($var->conditions->conds)
2733             {
2734               $varname =~ /^(?:nobase_)?(?:dist_|nodist_)?(.*)_[[:alnum:]]+$/;
2735               msg_var ('syntax', $var, "variable `$varname' is defined but no"
2736                        . " program or\nlibrary has `$1' as canonic name"
2737                        . " (possible typo)")
2738                 unless $var->rdef ($cond)->seen;
2739             }
2740         }
2741     }
2742 }
2743
2744
2745 # Handle scripts.
2746 sub handle_scripts
2747 {
2748     # NOTE we no longer automatically clean SCRIPTS, because it is
2749     # useful to sometimes distribute scripts verbatim.  This happens
2750     # e.g. in Automake itself.
2751     &am_install_var ('-candist', 'scripts', 'SCRIPTS',
2752                      'bin', 'sbin', 'libexec', 'pkgdata',
2753                      'noinst', 'check');
2754 }
2755
2756
2757
2758
2759 ## ------------------------ ##
2760 ## Handling Texinfo files.  ##
2761 ## ------------------------ ##
2762
2763 # ($OUTFILE, $VFILE, @CLEAN_FILES)
2764 # &scan_texinfo_file ($FILENAME)
2765 # ------------------------------
2766 # $OUTFILE     - name of the info file produced by $FILENAME.
2767 # $VFILE       - name of the version.texi file used (undef if none).
2768 # @CLEAN_FILES - list of byproducts (indexes etc.)
2769 sub scan_texinfo_file ($)
2770 {
2771   my ($filename) = @_;
2772
2773   # Some of the following extensions are always created, no matter
2774   # whether indexes are used or not.  Other (like cps, fns, ... pgs)
2775   # are only created when they are used.  We used to scan $FILENAME
2776   # for their use, but that is not enough: they could be used in
2777   # included files.  We can't scan included files because we don't
2778   # know the include path.  Therefore we always erase these files, no
2779   # matter whether they are used or not.
2780   #
2781   # (tmp is only created if an @macro is used and a certain e-TeX
2782   # feature is not available.)
2783   my %clean_suffixes =
2784     map { $_ => 1 } (qw(aux log toc tmp
2785                         cp cps
2786                         fn fns
2787                         ky kys
2788                         vr vrs
2789                         tp tps
2790                         pg pgs)); # grep 'new.*index' texinfo.tex
2791
2792   my $texi = new Automake::XFile "< $filename";
2793   verb "reading $filename";
2794
2795   my ($outfile, $vfile);
2796   while ($_ = $texi->getline)
2797     {
2798       if (/^\@setfilename +(\S+)/)
2799         {
2800           # Honor only the first @setfilename.  (It's possible to have
2801           # more occurrences later if the manual shows examples of how
2802           # to use @setfilename...)
2803           next if $outfile;
2804
2805           $outfile = $1;
2806           if ($outfile =~ /\.(.+)$/ && $1 ne 'info')
2807             {
2808               error ("$filename:$.",
2809                      "output `$outfile' has unrecognized extension");
2810               return;
2811             }
2812         }
2813       # A "version.texi" file is actually any file whose name matches
2814       # "vers*.texi".
2815       elsif (/^\@include\s+(vers[^.]*\.texi)\s*$/)
2816         {
2817           $vfile = $1;
2818         }
2819
2820       # Try to find new or unused indexes.
2821
2822       # Creating a new category of index.
2823       elsif (/^\@def(code)?index (\w+)/)
2824         {
2825           $clean_suffixes{$2} = 1;
2826           $clean_suffixes{"$2s"} = 1;
2827         }
2828
2829       # Merging an index into an another.
2830       elsif (/^\@syn(code)?index (\w+) (\w+)/)
2831         {
2832           delete $clean_suffixes{"$2s"};
2833           $clean_suffixes{"$3s"} = 1;
2834         }
2835
2836     }
2837
2838   if (! $outfile)
2839     {
2840       err_am "`$filename' missing \@setfilename";
2841       return;
2842     }
2843
2844   my $infobase = basename ($filename);
2845   $infobase =~ s/\.te?xi(nfo)?$//;
2846   return ($outfile, $vfile,
2847           map { "$infobase.$_" } (sort keys %clean_suffixes));
2848 }
2849
2850
2851 # ($DIRSTAMP, @CLEAN_FILES)
2852 # output_texinfo_build_rules ($SOURCE, $DEST, $INSRC, @DEPENDENCIES)
2853 # ------------------------------------------------------------------
2854 # SOURCE - the source Texinfo file
2855 # DEST - the destination Info file
2856 # INSRC - wether DEST should be built in the source tree
2857 # DEPENDENCIES - known dependencies
2858 sub output_texinfo_build_rules ($$$@)
2859 {
2860   my ($source, $dest, $insrc, @deps) = @_;
2861
2862   # Split `a.texi' into `a' and `.texi'.
2863   my ($spfx, $ssfx) = ($source =~ /^(.*?)(\.[^.]*)?$/);
2864   my ($dpfx, $dsfx) = ($dest =~ /^(.*?)(\.[^.]*)?$/);
2865
2866   $ssfx ||= "";
2867   $dsfx ||= "";
2868
2869   # We can output two kinds of rules: the "generic" rules use Make
2870   # suffix rules and are appropriate when $source and $dest do not lie
2871   # in a sub-directory; the "specific" rules are needed in the other
2872   # case.
2873   #
2874   # The former are output only once (this is not really apparent here,
2875   # but just remember that some logic deeper in Automake will not
2876   # output the same rule twice); while the later need to be output for
2877   # each Texinfo source.
2878   my $generic;
2879   my $makeinfoflags;
2880   my $sdir = dirname $source;
2881   if ($sdir eq '.' && dirname ($dest) eq '.')
2882     {
2883       $generic = 1;
2884       $makeinfoflags = '-I $(srcdir)';
2885     }
2886   else
2887     {
2888       $generic = 0;
2889       $makeinfoflags = "-I $sdir -I \$(srcdir)/$sdir";
2890     }
2891
2892   # A directory can contain two kinds of info files: some built in the
2893   # source tree, and some built in the build tree.  The rules are
2894   # different in each case.  However we cannot output two different
2895   # set of generic rules.  Because in-source builds are more usual, we
2896   # use generic rules in this case and fall back to "specific" rules
2897   # for build-dir builds.  (It should not be a problem to invert this
2898   # if needed.)
2899   $generic = 0 unless $insrc;
2900
2901   # We cannot use a suffix rule to build info files with an empty
2902   # extension.  Otherwise we would output a single suffix inference
2903   # rule, with separate dependencies, as in
2904   #
2905   #    .texi:
2906   #             $(MAKEINFO) ...
2907   #    foo.info: foo.texi
2908   #
2909   # which confuse Solaris make.  (See the Autoconf manual for
2910   # details.)  Therefore we use a specific rule in this case.  This
2911   # applies to info files only (dvi and pdf files always have an
2912   # extension).
2913   my $generic_info = ($generic && $dsfx) ? 1 : 0;
2914
2915   # If the resulting file lie into a subdirectory,
2916   # make sure this directory will exist.
2917   my $dirstamp = require_build_directory_maybe ($dest);
2918
2919   my $dipfx = ($insrc ? '$(srcdir)/' : '') . $dpfx;
2920
2921   $output_rules .= file_contents ('texibuild',
2922                                   new Automake::Location,
2923                                   DEPS             => "@deps",
2924                                   DEST_PREFIX      => $dpfx,
2925                                   DEST_INFO_PREFIX => $dipfx,
2926                                   DEST_SUFFIX      => $dsfx,
2927                                   DIRSTAMP         => $dirstamp,
2928                                   GENERIC          => $generic,
2929                                   GENERIC_INFO     => $generic_info,
2930                                   INSRC            => $insrc,
2931                                   MAKEINFOFLAGS    => $makeinfoflags,
2932                                   SOURCE           => ($generic
2933                                                        ? '$<' : $source),
2934                                   SOURCE_INFO      => ($generic_info
2935                                                        ? '$<' : $source),
2936                                   SOURCE_REAL      => $source,
2937                                   SOURCE_SUFFIX    => $ssfx,
2938                                   );
2939   return ($dirstamp, "$dpfx.dvi", "$dpfx.pdf", "$dpfx.ps", "$dpfx.html");
2940 }
2941
2942
2943 # $TEXICLEANS
2944 # handle_texinfo_helper ($info_texinfos)
2945 # --------------------------------------
2946 # Handle all Texinfo source; helper for handle_texinfo.
2947 sub handle_texinfo_helper ($)
2948 {
2949   my ($info_texinfos) = @_;
2950   my (@infobase, @info_deps_list, @texi_deps);
2951   my %versions;
2952   my $done = 0;
2953   my @texi_cleans;
2954
2955   # Build a regex matching user-cleaned files.
2956   my $d = var 'DISTCLEANFILES';
2957   my $c = var 'CLEANFILES';
2958   my @f = ();
2959   push @f, $d->value_as_list_recursive (inner_expand => 1) if $d;
2960   push @f, $c->value_as_list_recursive (inner_expand => 1) if $c;
2961   @f = map { s|[^A-Za-z_0-9*\[\]\-]|\\$&|g; s|\*|[^/]*|g; $_; } @f;
2962   my $user_cleaned_files = '^(?:' . join ('|', @f) . ')$';
2963
2964   foreach my $texi
2965       ($info_texinfos->value_as_list_recursive (inner_expand => 1))
2966     {
2967       my $infobase = $texi;
2968       $infobase =~ s/\.(txi|texinfo|texi)$//;
2969
2970       if ($infobase eq $texi)
2971         {
2972           # FIXME: report line number.
2973           err_am "texinfo file `$texi' has unrecognized extension";
2974           next;
2975         }
2976
2977       push @infobase, $infobase;
2978
2979       # If 'version.texi' is referenced by input file, then include
2980       # automatic versioning capability.
2981       my ($out_file, $vtexi, @clean_files) =
2982         scan_texinfo_file ("$relative_dir/$texi")
2983         or next;
2984       push (@texi_cleans, @clean_files);
2985
2986       # If the Texinfo source is in a subdirectory, create the
2987       # resulting info in this subdirectory.  If it is in the current
2988       # directory, try hard to not prefix "./" because it breaks the
2989       # generic rules.
2990       my $outdir = dirname ($texi) . '/';
2991       $outdir = "" if $outdir eq './';
2992       $out_file =  $outdir . $out_file;
2993
2994       # Until Automake 1.6.3, .info files were built in the
2995       # source tree.  This was an obstacle to the support of
2996       # non-distributed .info files, and non-distributed .texi
2997       # files.
2998       #
2999       # * Non-distributed .texi files is important in some packages
3000       #   where .texi files are built at make time, probably using
3001       #   other binaries built in the package itself, maybe using
3002       #   tools or information found on the build host.  Because
3003       #   these files are not distributed they are always rebuilt
3004       #   at make time; they should therefore not lie in the source
3005       #   directory.  One plan was to support this using
3006       #   nodist_info_TEXINFOS or something similar.  (Doing this
3007       #   requires some sanity checks.  For instance Automake should
3008       #   not allow:
3009       #      dist_info_TEXINFO = foo.texi
3010       #      nodist_foo_TEXINFO = included.texi
3011       #   because a distributed file should never depend on a
3012       #   non-distributed file.)
3013       #
3014       # * If .texi files are not distributed, then .info files should
3015       #   not be distributed either.  There are also cases where one
3016       #   want to distribute .texi files, but do not want to
3017       #   distribute the .info files.  For instance the Texinfo package
3018       #   distributes the tool used to build these files; it would
3019       #   be a waste of space to distribute them.  It's not clear
3020       #   which syntax we should use to indicate that .info files should
3021       #   not be distributed.  Akim Demaille suggested that eventually
3022       #   we switch to a new syntax:
3023       #   |  Maybe we should take some inspiration from what's already
3024       #   |  done in the rest of Automake.  Maybe there is too much
3025       #   |  syntactic sugar here, and you want
3026       #   |     nodist_INFO = bar.info
3027       #   |     dist_bar_info_SOURCES = bar.texi
3028       #   |     bar_texi_DEPENDENCIES = foo.texi
3029       #   |  with a bit of magic to have bar.info represent the whole
3030       #   |  bar*info set.  That's a lot more verbose that the current
3031       #   |  situation, but it is # not new, hence the user has less
3032       #   |  to learn.
3033       #   |
3034       #   |  But there is still too much room for meaningless specs:
3035       #   |     nodist_INFO = bar.info
3036       #   |     dist_bar_info_SOURCES = bar.texi
3037       #   |     dist_PS = bar.ps something-written-by-hand.ps
3038       #   |     nodist_bar_ps_SOURCES = bar.texi
3039       #   |     bar_texi_DEPENDENCIES = foo.texi
3040       #   |  here bar.texi is dist_ in line 2, and nodist_ in 4.
3041       #
3042       # Back to the point, it should be clear that in order to support
3043       # non-distributed .info files, we need to build them in the
3044       # build tree, not in the source tree (non-distributed .texi
3045       # files are less of a problem, because we do not output build
3046       # rules for them).  In Automake 1.7 .info build rules have been
3047       # largely cleaned up so that .info files get always build in the
3048       # build tree, even when distributed.  The idea was that
3049       #   (1) if during a VPATH build the .info file was found to be
3050       #       absent or out-of-date (in the source tree or in the
3051       #       build tree), Make would rebuild it in the build tree.
3052       #       If an up-to-date source-tree of the .info file existed,
3053       #       make would not rebuild it in the build tree.
3054       #   (2) having two copies of .info files, one in the source tree
3055       #       and one (newer) in the build tree is not a problem
3056       #       because `make dist' always pick files in the build tree
3057       #       first.
3058       # However it turned out the be a bad idea for several reasons:
3059       #   * Tru64, OpenBSD, and FreeBSD (not NetBSD) Make do not behave
3060       #     like GNU Make on point (1) above.  These implementations
3061       #     of Make would always rebuild .info files in the build
3062       #     tree, even if such files were up to date in the source
3063       #     tree.  Consequently, it was impossible to perform a VPATH
3064       #     build of a package containing Texinfo files using these
3065       #     Make implementations.
3066       #     (Refer to the Autoconf Manual, section "Limitation of
3067       #     Make", paragraph "VPATH", item "target lookup", for
3068       #     an account of the differences between these
3069       #     implementations.)
3070       #   * The GNU Coding Standards require these files to be built
3071       #     in the source-tree (when they are distributed, that is).
3072       #   * Keeping a fresher copy of distributed files in the
3073       #     build tree can be annoying during development because
3074       #     - if the files is kept under CVS, you really want it
3075       #       to be updated in the source tree
3076       #     - it is confusing that `make distclean' does not erase
3077       #       all files in the build tree.
3078       #
3079       # Consequently, starting with Automake 1.8, .info files are
3080       # built in the source tree again.  Because we still plan to
3081       # support non-distributed .info files at some point, we
3082       # have a single variable ($INSRC) that controls whether
3083       # the current .info file must be built in the source tree
3084       # or in the build tree.  Actually this variable is switched
3085       # off for .info files that appear to be cleaned; this is
3086       # for backward compatibility with package such as Texinfo,
3087       # which do things like
3088       #   info_TEXINFOS = texinfo.txi info-stnd.texi info.texi
3089       #   DISTCLEANFILES = texinfo texinfo-* info*.info*
3090       #   # Do not create info files for distribution.
3091       #   dist-info:
3092       # in order not to distribute .info files.
3093       my $insrc = ($out_file =~ $user_cleaned_files) ? 0 : 1;
3094
3095       my $soutdir = '$(srcdir)/' . $outdir;
3096       $outdir = $soutdir if $insrc;
3097
3098       # If user specified file_TEXINFOS, then use that as explicit
3099       # dependency list.
3100       @texi_deps = ();
3101       push (@texi_deps, "$soutdir$vtexi") if $vtexi;
3102
3103       my $canonical = canonicalize ($infobase);
3104       if (var ($canonical . "_TEXINFOS"))
3105         {
3106           push (@texi_deps, '$(' . $canonical . '_TEXINFOS)');
3107           push_dist_common ('$(' . $canonical . '_TEXINFOS)');
3108         }
3109
3110       my ($dirstamp, @cfiles) =
3111         output_texinfo_build_rules ($texi, $out_file, $insrc, @texi_deps);
3112       push (@texi_cleans, @cfiles);
3113
3114       push (@info_deps_list, $out_file);
3115
3116       # If a vers*.texi file is needed, emit the rule.
3117       if ($vtexi)
3118         {
3119           err_am ("`$vtexi', included in `$texi', "
3120                   . "also included in `$versions{$vtexi}'")
3121             if defined $versions{$vtexi};
3122           $versions{$vtexi} = $texi;
3123
3124           # We number the stamp-vti files.  This is doable since the
3125           # actual names don't matter much.  We only number starting
3126           # with the second one, so that the common case looks nice.
3127           my $vti = ($done ? $done : 'vti');
3128           ++$done;
3129
3130           # This is ugly, but it is our historical practice.
3131           if ($config_aux_dir_set_in_configure_ac)
3132             {
3133               require_conf_file_with_macro (TRUE, 'info_TEXINFOS', FOREIGN,
3134                                             'mdate-sh');
3135             }
3136           else
3137             {
3138               require_file_with_macro (TRUE, 'info_TEXINFOS',
3139                                        FOREIGN, 'mdate-sh');
3140             }
3141
3142           my $conf_dir;
3143           if ($config_aux_dir_set_in_configure_ac)
3144             {
3145               $conf_dir = "$am_config_aux_dir/";
3146             }
3147           else
3148             {
3149               $conf_dir = '$(srcdir)/';
3150             }
3151           $output_rules .= file_contents ('texi-vers',
3152                                           new Automake::Location,
3153                                           TEXI     => $texi,
3154                                           VTI      => $vti,
3155                                           STAMPVTI => "${soutdir}stamp-$vti",
3156                                           VTEXI    => "$soutdir$vtexi",
3157                                           MDDIR    => $conf_dir,
3158                                           DIRSTAMP => $dirstamp);
3159         }
3160     }
3161
3162   # Handle location of texinfo.tex.
3163   my $need_texi_file = 0;
3164   my $texinfodir;
3165   if (var ('TEXINFO_TEX'))
3166     {
3167       # The user defined TEXINFO_TEX so assume he knows what he is
3168       # doing.
3169       $texinfodir = ('$(srcdir)/'
3170                      . dirname (variable_value ('TEXINFO_TEX')));
3171     }
3172   elsif (option 'cygnus')
3173     {
3174       $texinfodir = '$(top_srcdir)/../texinfo';
3175       define_variable ('TEXINFO_TEX', "$texinfodir/texinfo.tex", INTERNAL);
3176     }
3177   elsif ($config_aux_dir_set_in_configure_ac)
3178     {
3179       $texinfodir = $am_config_aux_dir;
3180       define_variable ('TEXINFO_TEX', "$texinfodir/texinfo.tex", INTERNAL);
3181       $need_texi_file = 2; # so that we require_conf_file later
3182     }
3183   else
3184     {
3185       $texinfodir = '$(srcdir)';
3186       $need_texi_file = 1;
3187     }
3188   define_variable ('am__TEXINFO_TEX_DIR', $texinfodir, INTERNAL);
3189
3190   push (@dist_targets, 'dist-info');
3191
3192   if (! option 'no-installinfo')
3193     {
3194       # Make sure documentation is made and installed first.  Use
3195       # $(INFO_DEPS), not 'info', because otherwise recursive makes
3196       # get run twice during "make all".
3197       unshift (@all, '$(INFO_DEPS)');
3198     }
3199
3200   define_files_variable ("DVIS", @infobase, 'dvi', INTERNAL);
3201   define_files_variable ("PDFS", @infobase, 'pdf', INTERNAL);
3202   define_files_variable ("PSS", @infobase, 'ps', INTERNAL);
3203   define_files_variable ("HTMLS", @infobase, 'html', INTERNAL);
3204
3205   # This next isn't strictly needed now -- the places that look here
3206   # could easily be changed to look in info_TEXINFOS.  But this is
3207   # probably better, in case noinst_TEXINFOS is ever supported.
3208   define_variable ("TEXINFOS", variable_value ('info_TEXINFOS'), INTERNAL);
3209
3210   # Do some error checking.  Note that this file is not required
3211   # when in Cygnus mode; instead we defined TEXINFO_TEX explicitly
3212   # up above.
3213   if ($need_texi_file && ! option 'no-texinfo.tex')
3214     {
3215       if ($need_texi_file > 1)
3216         {
3217           require_conf_file_with_macro (TRUE, 'info_TEXINFOS', FOREIGN,
3218                                         'texinfo.tex');
3219         }
3220       else
3221         {
3222           require_file_with_macro (TRUE, 'info_TEXINFOS', FOREIGN,
3223                                    'texinfo.tex');
3224         }
3225     }
3226
3227   return makefile_wrap ("", "\t  ", @texi_cleans);
3228 }
3229
3230
3231 # handle_texinfo ()
3232 # -----------------
3233 # Handle all Texinfo source.
3234 sub handle_texinfo ()
3235 {
3236   reject_var 'TEXINFOS', "`TEXINFOS' is an anachronism; use `info_TEXINFOS'";
3237   # FIXME: I think this is an obsolete future feature name.
3238   reject_var 'html_TEXINFOS', "HTML generation not yet supported";
3239
3240   my $info_texinfos = var ('info_TEXINFOS');
3241   my $texiclean = "";
3242   if ($info_texinfos)
3243     {
3244       $texiclean = handle_texinfo_helper ($info_texinfos);
3245     }
3246   $output_rules .=  file_contents ('texinfos',
3247                                    new Automake::Location,
3248                                    TEXICLEAN     => $texiclean,
3249                                    'LOCAL-TEXIS' => !!$info_texinfos);
3250 }
3251
3252
3253 # Handle any man pages.
3254 sub handle_man_pages
3255 {
3256   reject_var 'MANS', "`MANS' is an anachronism; use `man_MANS'";
3257
3258   # Find all the sections in use.  We do this by first looking for
3259   # "standard" sections, and then looking for any additional
3260   # sections used in man_MANS.
3261   my (%sections, %vlist);
3262   # We handle nodist_ for uniformity.  man pages aren't distributed
3263   # by default so it isn't actually very important.
3264   foreach my $pfx ('', 'dist_', 'nodist_')
3265     {
3266       # Add more sections as needed.
3267       foreach my $section ('0'..'9', 'n', 'l')
3268         {
3269           my $varname = $pfx . 'man' . $section . '_MANS';
3270           if (var ($varname))
3271             {
3272               $sections{$section} = 1;
3273               $varname = '$(' . $varname . ')';
3274               $vlist{$varname} = 1;
3275
3276               &push_dist_common ($varname)
3277                 if $pfx eq 'dist_';
3278             }
3279         }
3280
3281       my $varname = $pfx . 'man_MANS';
3282       my $var = var ($varname);
3283       if ($var)
3284         {
3285           foreach ($var->value_as_list_recursive)
3286             {
3287               # A page like `foo.1c' goes into man1dir.
3288               if (/\.([0-9a-z])([a-z]*)$/)
3289                 {
3290                   $sections{$1} = 1;
3291                 }
3292             }
3293
3294           $varname = '$(' . $varname . ')';
3295           $vlist{$varname} = 1;
3296           &push_dist_common ($varname)
3297             if $pfx eq 'dist_';
3298         }
3299     }
3300
3301   return unless %sections;
3302
3303   # Now for each section, generate an install and uninstall rule.
3304   # Sort sections so output is deterministic.
3305   foreach my $section (sort keys %sections)
3306     {
3307       $output_rules .= &file_contents ('mans',
3308                                        new Automake::Location,
3309                                        SECTION => $section);
3310     }
3311
3312   my @mans = sort keys %vlist;
3313   $output_vars .= file_contents ('mans-vars',
3314                                  new Automake::Location,
3315                                  MANS => "@mans");
3316
3317   push (@all, '$(MANS)')
3318     unless option 'no-installman';
3319 }
3320
3321 # Handle DATA variables.
3322 sub handle_data
3323 {
3324     &am_install_var ('-noextra', '-candist', 'data', 'DATA',
3325                      'data', 'dataroot', 'dvi', 'html', 'pdf', 'ps',
3326                      'sysconf', 'sharedstate', 'localstate',
3327                      'pkgdata', 'lisp', 'noinst', 'check');
3328 }
3329
3330 # Handle TAGS.
3331 sub handle_tags
3332 {
3333     my @tag_deps = ();
3334     my @ctag_deps = ();
3335     if (var ('SUBDIRS'))
3336     {
3337         $output_rules .= ("tags-recursive:\n"
3338                           . "\tlist=\'\$(SUBDIRS)\'; for subdir in \$\$list; do \\\n"
3339                           # Never fail here if a subdir fails; it
3340                           # isn't important.
3341                           . "\t  test \"\$\$subdir\" = . || (cd \$\$subdir"
3342                           . " && \$(MAKE) \$(AM_MAKEFLAGS) tags); \\\n"
3343                           . "\tdone\n");
3344         push (@tag_deps, 'tags-recursive');
3345         &depend ('.PHONY', 'tags-recursive');
3346
3347         $output_rules .= ("ctags-recursive:\n"
3348                           . "\tlist=\'\$(SUBDIRS)\'; for subdir in \$\$list; do \\\n"
3349                           # Never fail here if a subdir fails; it
3350                           # isn't important.
3351                           . "\t  test \"\$\$subdir\" = . || (cd \$\$subdir"
3352                           . " && \$(MAKE) \$(AM_MAKEFLAGS) ctags); \\\n"
3353                           . "\tdone\n");
3354         push (@ctag_deps, 'ctags-recursive');
3355         &depend ('.PHONY', 'ctags-recursive');
3356     }
3357
3358     if (&saw_sources_p (1)
3359         || var ('ETAGS_ARGS')
3360         || @tag_deps)
3361     {
3362         my @config;
3363         foreach my $spec (@config_headers)
3364         {
3365             my ($out, @ins) = split_config_file_spec ($spec);
3366             foreach my $in (@ins)
3367               {
3368                 # If the config header source is in this directory,
3369                 # require it.
3370                 push @config, basename ($in)
3371                   if $relative_dir eq dirname ($in);
3372               }
3373         }
3374         $output_rules .= &file_contents ('tags',
3375                                          new Automake::Location,
3376                                          CONFIG    => "@config",
3377                                          TAGSDIRS  => "@tag_deps",
3378                                          CTAGSDIRS => "@ctag_deps");
3379
3380         set_seen 'TAGS_DEPENDENCIES';
3381     }
3382     elsif (reject_var ('TAGS_DEPENDENCIES',
3383                        "doesn't make sense to define `TAGS_DEPENDENCIES'"
3384                        . "without\nsources or `ETAGS_ARGS'"))
3385     {
3386     }
3387     else
3388     {
3389         # Every Makefile must define some sort of TAGS rule.
3390         # Otherwise, it would be possible for a top-level "make TAGS"
3391         # to fail because some subdirectory failed.
3392         $output_rules .= "tags: TAGS\nTAGS:\n\n";
3393         # Ditto ctags.
3394         $output_rules .= "ctags: CTAGS\nCTAGS:\n\n";
3395     }
3396 }
3397
3398 # Handle multilib support.
3399 sub handle_multilib
3400 {
3401   if ($seen_multilib && $relative_dir eq '.')
3402     {
3403       $output_rules .= &file_contents ('multilib', new Automake::Location);
3404       push (@all, 'all-multi');
3405     }
3406 }
3407
3408
3409 # user_phony_rule ($NAME)
3410 # -----------------------
3411 # Return false if rule $NAME does not exist.  Otherwise,
3412 # declare it as phony, complete its definition (in case it is
3413 # conditional), and return its Automake::Rule instance.
3414 sub user_phony_rule ($)
3415 {
3416   my ($name) = @_;
3417   my $rule = rule $name;
3418   if ($rule)
3419     {
3420       depend ('.PHONY', $name);
3421       # Define $NAME in all condition where it is not already defined,
3422       # so that it is always OK to depend on $NAME.
3423       for my $c ($rule->not_always_defined_in_cond (TRUE)->conds)
3424         {
3425           Automake::Rule::define ($name, 'internal', RULE_AUTOMAKE,
3426                                   $c, INTERNAL);
3427           $output_rules .= $c->subst_string . "$name:\n";
3428         }
3429     }
3430   return $rule;
3431 }
3432
3433
3434 # $BOOLEAN
3435 # &for_dist_common ($A, $B)
3436 # -------------------------
3437 # Subroutine for &handle_dist: sort files to dist.
3438 #
3439 # We put README first because it then becomes easier to make a
3440 # Usenet-compliant shar file (in these, README must be first).
3441 #
3442 # FIXME: do more ordering of files here.
3443 sub for_dist_common
3444 {
3445     return 0
3446         if $a eq $b;
3447     return -1
3448         if $a eq 'README';
3449     return 1
3450         if $b eq 'README';
3451     return $a cmp $b;
3452 }
3453
3454
3455 # handle_dist
3456 # -----------
3457 # Handle 'dist' target.
3458 sub handle_dist ()
3459 {
3460   # Substutions for distdit.am
3461   my %transform;
3462
3463   # Define DIST_SUBDIRS.  This must always be done, regardless of the
3464   # no-dist setting: target like `distclean' or `maintainer-clean' use it.
3465   my $subdirs = var ('SUBDIRS');
3466   if ($subdirs)
3467     {
3468       # If SUBDIRS is conditionally defined, then set DIST_SUBDIRS
3469       # to all possible directories, and use it.  If DIST_SUBDIRS is
3470       # defined, just use it.
3471
3472       # Note that we check DIST_SUBDIRS first on purpose, so that
3473       # we don't call has_conditional_contents for now reason.
3474       # (In the past one project used so many conditional subdirectories
3475       # that calling has_conditional_contents on SUBDIRS caused
3476       # automake to grow to 150Mb -- this should not happen with
3477       # the current implementation of has_conditional_contents,
3478       # but it's more efficient to avoid the call anyway.)
3479       if (var ('DIST_SUBDIRS'))
3480         {
3481         }
3482       elsif ($subdirs->has_conditional_contents)
3483         {
3484           define_pretty_variable
3485             ('DIST_SUBDIRS', TRUE, INTERNAL,
3486              uniq ($subdirs->value_as_list_recursive));
3487         }
3488       else
3489         {
3490           # We always define this because that is what `distclean'
3491           # wants.
3492           define_pretty_variable ('DIST_SUBDIRS', TRUE, INTERNAL,
3493                                   '$(SUBDIRS)');
3494         }
3495     }
3496
3497   # The remaining definitions are only required when a dist target is used.
3498   return if option 'no-dist';
3499
3500   # At least one of the archive formats must be enabled.
3501   if ($relative_dir eq '.')
3502     {
3503       my $archive_defined = option 'no-dist-gzip' ? 0 : 1;
3504       $archive_defined ||=
3505         grep { option "dist-$_" } ('shar', 'zip', 'tarZ', 'bzip2');
3506       error (option 'no-dist-gzip',
3507              "no-dist-gzip specified but no dist-* specified, "
3508              . "at least one archive format must be enabled")
3509         unless $archive_defined;
3510     }
3511
3512   # Look for common files that should be included in distribution.
3513   # If the aux dir is set, and it does not have a Makefile.am, then
3514   # we check for these files there as well.
3515   my $check_aux = 0;
3516   if ($relative_dir eq '.'
3517       && $config_aux_dir_set_in_configure_ac)
3518     {
3519       if (! &is_make_dir ($config_aux_dir))
3520         {
3521           $check_aux = 1;
3522         }
3523     }
3524   foreach my $cfile (@common_files)
3525     {
3526       if (dir_has_case_matching_file ($relative_dir, $cfile)
3527           # The file might be absent, but if it can be built it's ok.
3528           || rule $cfile)
3529         {
3530           &push_dist_common ($cfile);
3531         }
3532
3533       # Don't use `elsif' here because a file might meaningfully
3534       # appear in both directories.
3535       if ($check_aux && dir_has_case_matching_file ($config_aux_dir, $cfile))
3536         {
3537           &push_dist_common ("$config_aux_dir/$cfile")
3538         }
3539     }
3540
3541   # We might copy elements from $configure_dist_common to
3542   # %dist_common if we think we need to.  If the file appears in our
3543   # directory, we would have discovered it already, so we don't
3544   # check that.  But if the file is in a subdir without a Makefile,
3545   # we want to distribute it here if we are doing `.'.  Ugly!
3546   if ($relative_dir eq '.')
3547     {
3548       foreach my $file (split (' ' , $configure_dist_common))
3549         {
3550           push_dist_common ($file)
3551             unless is_make_dir (dirname ($file));
3552         }
3553     }
3554
3555   # Files to distributed.  Don't use ->value_as_list_recursive
3556   # as it recursively expands `$(dist_pkgdata_DATA)' etc.
3557   my @dist_common = split (' ', rvar ('DIST_COMMON')->variable_value);
3558   @dist_common = uniq (sort for_dist_common (@dist_common));
3559   variable_delete 'DIST_COMMON';
3560   define_pretty_variable ('DIST_COMMON', TRUE, INTERNAL, @dist_common);
3561
3562   # Now that we've processed DIST_COMMON, disallow further attempts
3563   # to set it.
3564   $handle_dist_run = 1;
3565
3566   # Scan EXTRA_DIST to see if we need to distribute anything from a
3567   # subdir.  If so, add it to the list.  I didn't want to do this
3568   # originally, but there were so many requests that I finally
3569   # relented.
3570   my $extra_dist = var ('EXTRA_DIST');
3571   if ($extra_dist)
3572     {
3573       # FIXME: This should be fixed to work with conditions.  That
3574       # will require only making the entries in %dist_dirs under the
3575       # appropriate condition.  This is meaningful if the nature of
3576       # the distribution should depend upon the configure options
3577       # used.
3578       foreach ($extra_dist->value_as_list_recursive (skip_ac_subst => 1))
3579         {
3580           next unless s,/+[^/]+$,,;
3581           $dist_dirs{$_} = 1
3582             unless $_ eq '.';
3583         }
3584     }
3585
3586   # We have to check DIST_COMMON for extra directories in case the
3587   # user put a source used in AC_OUTPUT into a subdir.
3588   my $topsrcdir = backname ($relative_dir);
3589   foreach (rvar ('DIST_COMMON')->value_as_list_recursive (skip_ac_subst => 1))
3590     {
3591       s/\$\(top_srcdir\)/$topsrcdir/;
3592       s/\$\(srcdir\)/./;
3593       # Strip any leading `./'.
3594       s,^(:?\./+)*,,;
3595       next unless s,/+[^/]+$,,;
3596       $dist_dirs{$_} = 1
3597         unless $_ eq '.';
3598     }
3599
3600   $transform{'DISTCHECK-HOOK'} = !! rule 'distcheck-hook';
3601   $transform{'GETTEXT'} = $seen_gettext && !$seen_gettext_external;
3602
3603   # Prepend $(distdir) to each directory given.
3604   my %rewritten = map { '$(distdir)/' . "$_" => 1 } keys %dist_dirs;
3605   $transform{'DISTDIRS'} = join (' ', sort keys %rewritten);
3606
3607   # If the target `dist-hook' exists, make sure it is run.  This
3608   # allows users to do random weird things to the distribution
3609   # before it is packaged up.
3610   push (@dist_targets, 'dist-hook')
3611     if user_phony_rule 'dist-hook';
3612   $transform{'DIST-TARGETS'} = join (' ', @dist_targets);
3613
3614   my $flm = option ('filename-length-max');
3615   my $filename_filter = $flm ? '.' x $flm->[1] : '';
3616
3617   $output_rules .= &file_contents ('distdir',
3618                                    new Automake::Location,
3619                                    %transform,
3620                                    FILENAME_FILTER => $filename_filter);
3621 }
3622
3623
3624 # check_directory ($NAME, $WHERE)
3625 # -------------------------------
3626 # Ensure $NAME is a directory, and that it uses sane name.
3627 # Use $WHERE as a location in the diagnostic, if any.
3628 sub check_directory ($$)
3629 {
3630   my ($dir, $where) = @_;
3631
3632   error $where, "required directory $relative_dir/$dir does not exist"
3633     unless -d "$relative_dir/$dir";
3634
3635   # If an `obj/' directory exists, BSD make will enter it before
3636   # reading `Makefile'.  Hence the `Makefile' in the current directory
3637   # will not be read.
3638   #
3639   #  % cat Makefile
3640   #  all:
3641   #          echo Hello
3642   #  % cat obj/Makefile
3643   #  all:
3644   #          echo World
3645   #  % make      # GNU make
3646   #  echo Hello
3647   #  Hello
3648   #  % pmake     # BSD make
3649   #  echo World
3650   #  World
3651   msg ('portability', $where,
3652        "naming a subdirectory `obj' causes troubles with BSD make")
3653     if $dir eq 'obj';
3654
3655   # `aux' is probably the most important of the following forbidden name,
3656   # since it's tempting to use it as an AC_CONFIG_AUX_DIR.
3657   msg ('portability', $where,
3658        "name `$dir' is reserved on W32 and DOS platforms")
3659     if grep (/^\Q$dir\E$/i, qw/aux lpt1 lpt2 lpt3 com1 com2 com3 com4 con prn/);
3660 }
3661
3662 # check_directories_in_var ($VARIABLE)
3663 # ------------------------------------
3664 # Recursively check all items in variables $VARIABLE as directories
3665 sub check_directories_in_var ($)
3666 {
3667   my ($var) = @_;
3668   $var->traverse_recursively
3669     (sub
3670      {
3671        my ($var, $val, $cond, $full_cond) = @_;
3672        check_directory ($val, $var->rdef ($cond)->location);
3673        return ();
3674      },
3675      undef,
3676      skip_ac_subst => 1);
3677 }
3678
3679 # &handle_subdirs ()
3680 # ------------------
3681 # Handle subdirectories.
3682 sub handle_subdirs ()
3683 {
3684   my $subdirs = var ('SUBDIRS');
3685   return
3686     unless $subdirs;
3687
3688   check_directories_in_var $subdirs;
3689
3690   my $dsubdirs = var ('DIST_SUBDIRS');
3691   check_directories_in_var $dsubdirs
3692     if $dsubdirs;
3693
3694   $output_rules .= &file_contents ('subdirs', new Automake::Location);
3695   rvar ('RECURSIVE_TARGETS')->rdef (TRUE)->{'pretty'} = VAR_SORTED; # Gross!
3696 }
3697
3698
3699 # ($REGEN, @DEPENDENCIES)
3700 # &scan_aclocal_m4
3701 # ----------------
3702 # If aclocal.m4 creation is automated, return the list of its dependencies.
3703 sub scan_aclocal_m4 ()
3704 {
3705   my $regen_aclocal = 0;
3706
3707   set_seen 'CONFIG_STATUS_DEPENDENCIES';
3708   set_seen 'CONFIGURE_DEPENDENCIES';
3709
3710   if (-f 'aclocal.m4')
3711     {
3712       &define_variable ("ACLOCAL_M4", '$(top_srcdir)/aclocal.m4', INTERNAL);
3713
3714       my $aclocal = new Automake::XFile "< aclocal.m4";
3715       my $line = $aclocal->getline;
3716       $regen_aclocal = $line =~ 'generated automatically by aclocal';
3717     }
3718
3719   my @ac_deps = ();
3720
3721   if (set_seen ('ACLOCAL_M4_SOURCES'))
3722     {
3723       push (@ac_deps, '$(ACLOCAL_M4_SOURCES)');
3724       msg_var ('obsolete', 'ACLOCAL_M4_SOURCES',
3725                "`ACLOCAL_M4_SOURCES' is obsolete.\n"
3726                . "It should be safe to simply remove it.");
3727     }
3728
3729   # Note that it might be possible that aclocal.m4 doesn't exist but
3730   # should be auto-generated.  This case probably isn't very
3731   # important.
3732
3733   return ($regen_aclocal, @ac_deps);
3734 }
3735
3736
3737 # @DEPENDENCIES
3738 # &prepend_srcdir (@INPUTS)
3739 # -------------------------
3740 # Prepend $(srcdir) or $(top_srcdir) to all @INPUTS.  The idea is that
3741 # if an input file has a directory part the same as the current
3742 # directory, then the directory part is simply replaced by $(srcdir).
3743 # But if the directory part is different, then $(top_srcdir) is
3744 # prepended.
3745 sub prepend_srcdir (@)
3746 {
3747   my (@inputs) = @_;
3748   my @newinputs;
3749
3750   foreach my $single (@inputs)
3751     {
3752       if (dirname ($single) eq $relative_dir)
3753         {
3754           push (@newinputs, '$(srcdir)/' . basename ($single));
3755         }
3756       else
3757         {
3758           push (@newinputs, '$(top_srcdir)/' . $single);
3759         }
3760     }
3761   return @newinputs;
3762 }
3763
3764 # @DEPENDENCIES
3765 # rewrite_inputs_into_dependencies ($OUTPUT, @INPUTS)
3766 # ---------------------------------------------------
3767 # Compute a list of dependencies appropriate for the rebuild
3768 # rule of
3769 #   AC_CONFIG_FILES($OUTPUT:$INPUT[0]:$INPUTS[1]:...)
3770 # Also distribute $INPUTs which are not build by another AC_CONFIG_FILES.
3771 sub rewrite_inputs_into_dependencies ($@)
3772 {
3773   my ($file, @inputs) = @_;
3774   my @res = ();
3775
3776   for my $i (@inputs)
3777     {
3778       if (exists $ac_config_files_location{$i})
3779         {
3780           my $di = dirname $i;
3781           if ($di eq $relative_dir)
3782             {
3783               $i = basename $i;
3784             }
3785           # In the top-level Makefile we do not use $(top_builddir), because
3786           # we are already there, and since the targets are built without
3787           # a $(top_builddir), it helps BSD Make to match them with
3788           # dependencies.
3789           elsif ($relative_dir ne '.')
3790             {
3791               $i = '$(top_builddir)/' . $i;
3792             }
3793         }
3794       else
3795         {
3796           msg ('error', $ac_config_files_location{$file},
3797                "required file `$i' not found")
3798             unless exists $output_files{$i} || -f $i;
3799           ($i) = prepend_srcdir ($i);
3800           push_dist_common ($i);
3801         }
3802       push @res, $i;
3803     }
3804   return @res;
3805 }
3806
3807
3808
3809 # &handle_configure ($MAKEFILE_AM, $MAKEFILE_IN, $MAKEFILE, @INPUTS)
3810 # ------------------------------------------------------------------
3811 # Handle remaking and configure stuff.
3812 # We need the name of the input file, to do proper remaking rules.
3813 sub handle_configure ($$$@)
3814 {
3815   my ($makefile_am, $makefile_in, $makefile, @inputs) = @_;
3816
3817   prog_error 'empty @inputs'
3818     unless @inputs;
3819
3820   my ($rel_makefile_am, $rel_makefile_in) = prepend_srcdir ($makefile_am,
3821                                                             $makefile_in);
3822   my $rel_makefile = basename $makefile;
3823
3824   my $colon_infile = ':' . join (':', @inputs);
3825   $colon_infile = '' if $colon_infile eq ":$makefile.in";
3826   my @rewritten = rewrite_inputs_into_dependencies ($makefile, @inputs);
3827   my ($regen_aclocal_m4, @aclocal_m4_deps) = scan_aclocal_m4;
3828   define_pretty_variable ('am__aclocal_m4_deps', TRUE, INTERNAL,
3829                           @configure_deps, @aclocal_m4_deps,
3830                           '$(top_srcdir)/' . $configure_ac);
3831   my @configuredeps = ('$(am__aclocal_m4_deps)', '$(CONFIGURE_DEPENDENCIES)');
3832   push @configuredeps, '$(ACLOCAL_M4)' if -f 'aclocal.m4';
3833   define_pretty_variable ('am__configure_deps', TRUE, INTERNAL,
3834                           @configuredeps);
3835
3836   $output_rules .= file_contents
3837     ('configure',
3838      new Automake::Location,
3839      MAKEFILE              => $rel_makefile,
3840      'MAKEFILE-DEPS'       => "@rewritten",
3841      'CONFIG-MAKEFILE'     => ($relative_dir eq '.') ? '$@' : '$(subdir)/$@',
3842      'MAKEFILE-IN'         => $rel_makefile_in,
3843      'MAKEFILE-IN-DEPS'    => "@include_stack",
3844      'MAKEFILE-AM'         => $rel_makefile_am,
3845      STRICTNESS            => global_option 'cygnus'
3846                                 ? 'cygnus' : $strictness_name,
3847      'USE-DEPS'            => global_option 'no-dependencies'
3848                                 ? ' --ignore-deps' : '',
3849      'MAKEFILE-AM-SOURCES' => "$makefile$colon_infile",
3850      'REGEN-ACLOCAL-M4'    => $regen_aclocal_m4);
3851
3852   if ($relative_dir eq '.')
3853     {
3854       &push_dist_common ('acconfig.h')
3855         if -f 'acconfig.h';
3856     }
3857
3858   # If we have a configure header, require it.
3859   my $hdr_index = 0;
3860   my @distclean_config;
3861   foreach my $spec (@config_headers)
3862     {
3863       $hdr_index += 1;
3864       # $CONFIG_H_PATH: config.h from top level.
3865       my ($config_h_path, @ins) = split_config_file_spec ($spec);
3866       my $config_h_dir = dirname ($config_h_path);
3867
3868       # If the header is in the current directory we want to build
3869       # the header here.  Otherwise, if we're at the topmost
3870       # directory and the header's directory doesn't have a
3871       # Makefile, then we also want to build the header.
3872       if ($relative_dir eq $config_h_dir
3873           || ($relative_dir eq '.' && ! &is_make_dir ($config_h_dir)))
3874         {
3875           my ($cn_sans_dir, $stamp_dir);
3876           if ($relative_dir eq $config_h_dir)
3877             {
3878               $cn_sans_dir = basename ($config_h_path);
3879               $stamp_dir = '';
3880             }
3881           else
3882             {
3883               $cn_sans_dir = $config_h_path;
3884               if ($config_h_dir eq '.')
3885                 {
3886                   $stamp_dir = '';
3887                 }
3888               else
3889                 {
3890                   $stamp_dir = $config_h_dir . '/';
3891                 }
3892             }
3893
3894           # This will also distribute all inputs.
3895           @ins = rewrite_inputs_into_dependencies ($config_h_path, @ins);
3896
3897           # Header defined and in this directory.
3898           my @files;
3899           if (-f $config_h_path . '.top')
3900             {
3901               push (@files, "$cn_sans_dir.top");
3902             }
3903           if (-f $config_h_path . '.bot')
3904             {
3905               push (@files, "$cn_sans_dir.bot");
3906             }
3907
3908           push_dist_common (@files);
3909
3910           # For now, acconfig.h can only appear in the top srcdir.
3911           if (-f 'acconfig.h')
3912             {
3913               push (@files, '$(top_srcdir)/acconfig.h');
3914             }
3915
3916           my $stamp = "${stamp_dir}stamp-h${hdr_index}";
3917           $output_rules .=
3918             file_contents ('remake-hdr',
3919                            new Automake::Location,
3920                            FILES            => "@files",
3921                            CONFIG_H         => $cn_sans_dir,
3922                            CONFIG_HIN       => $ins[0],
3923                            CONFIG_H_DEPS    => "@ins",
3924                            CONFIG_H_PATH    => $config_h_path,
3925                            STAMP            => "$stamp");
3926
3927           push @distclean_config, $cn_sans_dir, $stamp;
3928         }
3929     }
3930
3931   $output_rules .= file_contents ('clean-hdr',
3932                                   new Automake::Location,
3933                                   FILES => "@distclean_config")
3934     if @distclean_config;
3935
3936   # Distribute and define mkinstalldirs only if it is already present
3937   # in the package, for backward compatibility (some people may still
3938   # use $(mkinstalldirs)).
3939   my $mkidpath = "$config_aux_dir/mkinstalldirs";
3940   if (-f $mkidpath)
3941     {
3942       # Use require_file so that any existing script gets updated
3943       # by --force-missing.
3944       require_conf_file ($mkidpath, FOREIGN, 'mkinstalldirs');
3945       define_variable ('mkinstalldirs',
3946                        "\$(SHELL) $am_config_aux_dir/mkinstalldirs", INTERNAL);
3947     }
3948   else
3949     {
3950       # Use $(install_sh), not $(mkdir_p) because the latter requires
3951       # at least one argument, and $(mkinstalldirs) used to work
3952       # even without arguments (e.g. $(mkinstalldirs) $(conditional_dir)).
3953       define_variable ('mkinstalldirs', '$(install_sh) -d', INTERNAL);
3954     }
3955
3956   reject_var ('CONFIG_HEADER',
3957               "`CONFIG_HEADER' is an anachronism; now determined "
3958               . "automatically\nfrom `$configure_ac'");
3959
3960   my @config_h;
3961   foreach my $spec (@config_headers)
3962     {
3963       my ($out, @ins) = split_config_file_spec ($spec);
3964       # Generate CONFIG_HEADER define.
3965       if ($relative_dir eq dirname ($out))
3966         {
3967           push @config_h, basename ($out);
3968         }
3969       else
3970         {
3971           push @config_h, "\$(top_builddir)/$out";
3972         }
3973     }
3974   define_variable ("CONFIG_HEADER", "@config_h", INTERNAL)
3975     if @config_h;
3976
3977   # Now look for other files in this directory which must be remade
3978   # by config.status, and generate rules for them.
3979   my @actual_other_files = ();
3980   foreach my $lfile (@other_input_files)
3981     {
3982       my $file;
3983       my @inputs;
3984       if ($lfile =~ /^([^:]*):(.*)$/)
3985         {
3986           # This is the ":" syntax of AC_OUTPUT.
3987           $file = $1;
3988           @inputs = split (':', $2);
3989         }
3990       else
3991         {
3992           # Normal usage.
3993           $file = $lfile;
3994           @inputs = $file . '.in';
3995         }
3996
3997       # Automake files should not be stored in here, but in %MAKE_LIST.
3998       prog_error ("$lfile in \@other_input_files\n"
3999                   . "\@other_input_files = (@other_input_files)")
4000         if -f $file . '.am';
4001
4002       my $local = basename ($file);
4003
4004       # Make sure the dist directory for each input file is created.
4005       # We only have to do this at the topmost level though.  This
4006       # is a bit ugly but it easier than spreading out the logic,
4007       # especially in cases like AC_OUTPUT(foo/out:bar/in), where
4008       # there is no Makefile in bar/.
4009       if ($relative_dir eq '.')
4010         {
4011           foreach (@inputs)
4012             {
4013               $dist_dirs{dirname ($_)} = 1;
4014             }
4015         }
4016
4017       # We skip files that aren't in this directory.  However, if
4018       # the file's directory does not have a Makefile, and we are
4019       # currently doing `.', then we create a rule to rebuild the
4020       # file in the subdir.
4021       my $fd = dirname ($file);
4022       if ($fd ne $relative_dir)
4023         {
4024           if ($relative_dir eq '.' && ! &is_make_dir ($fd))
4025             {
4026               $local = $file;
4027             }
4028           else
4029             {
4030               next;
4031             }
4032         }
4033
4034       my @rewritten_inputs = rewrite_inputs_into_dependencies ($file, @inputs);
4035
4036       $output_rules .= ($local . ': '
4037                         . '$(top_builddir)/config.status '
4038                         . "@rewritten_inputs\n"
4039                         . "\t"
4040                         . 'cd $(top_builddir) && '
4041                         . '$(SHELL) ./config.status '
4042                         . ($relative_dir eq '.' ? '' : '$(subdir)/')
4043                         . '$@'
4044                         . "\n");
4045       push (@actual_other_files, $local);
4046     }
4047
4048   # For links we should clean destinations and distribute sources.
4049   foreach my $spec (@config_links)
4050     {
4051       my ($link, $file) = split /:/, $spec;
4052       # Some people do AC_CONFIG_LINKS($computed).  We only handle
4053       # the DEST:SRC form.
4054       next unless $file;
4055       my $where = $ac_config_files_location{$link};
4056
4057       # Skip destinations that contain shell variables.
4058       if ($link !~ /\$/)
4059         {
4060           # We skip links that aren't in this directory.  However, if
4061           # the link's directory does not have a Makefile, and we are
4062           # currently doing `.', then we add the link to CONFIG_CLEAN_FILES
4063           # in `.'s Makefile.in.
4064           my $local = basename ($link);
4065           my $fd = dirname ($link);
4066           if ($fd ne $relative_dir)
4067             {
4068               if ($relative_dir eq '.' && ! &is_make_dir ($fd))
4069                 {
4070                   $local = $link;
4071                 }
4072               else
4073                 {
4074                   $local = undef;
4075                 }
4076             }
4077           push @actual_other_files, $local if $local;
4078         }
4079
4080       # Do not process sources that contain shell variables.
4081       if ($file !~ /\$/)
4082         {
4083           my $fd = dirname ($file);
4084
4085           # Make sure the dist directory for each input file is created.
4086           # We only have to do this at the topmost level though.
4087           if ($relative_dir eq '.')
4088             {
4089               $dist_dirs{$fd} = 1;
4090             }
4091
4092           # We distribute files that are in this directory.
4093           # At the top-level (`.') we also distribute files whose
4094           # directory does not have a Makefile.
4095           if (($fd eq $relative_dir)
4096               || ($relative_dir eq '.' && ! &is_make_dir ($fd)))
4097             {
4098               # The following will distribute $file as a side-effect when
4099               # it is appropriate (i.e., when $file is not already an output).
4100               # We do not need the result, just the side-effect.
4101               rewrite_inputs_into_dependencies ($link, $file);
4102             }
4103         }
4104     }
4105
4106   # These files get removed by "make distclean".
4107   define_pretty_variable ('CONFIG_CLEAN_FILES', TRUE, INTERNAL,
4108                           @actual_other_files);
4109 }
4110
4111 # Handle C headers.
4112 sub handle_headers
4113 {
4114     my @r = &am_install_var ('-defaultdist', 'header', 'HEADERS', 'include',
4115                              'oldinclude', 'pkginclude',
4116                              'noinst', 'check');
4117     foreach (@r)
4118     {
4119       next unless $_->[1] =~ /\..*$/;
4120       &saw_extension ($&);
4121     }
4122 }
4123
4124 sub handle_gettext
4125 {
4126   return if ! $seen_gettext || $relative_dir ne '.';
4127
4128   my $subdirs = var 'SUBDIRS';
4129
4130   if (! $subdirs)
4131     {
4132       err_ac "AM_GNU_GETTEXT used but SUBDIRS not defined";
4133       return;
4134     }
4135
4136   # Perform some sanity checks to help users get the right setup.
4137   # We disable these tests when po/ doesn't exist in order not to disallow
4138   # unusual gettext setups.
4139   #
4140   # Bruno Haible:
4141   # | The idea is:
4142   # |
4143   # |  1) If a package doesn't have a directory po/ at top level, it
4144   # |     will likely have multiple po/ directories in subpackages.
4145   # |
4146   # |  2) It is useful to warn for the absence of intl/ if AM_GNU_GETTEXT
4147   # |     is used without 'external'. It is also useful to warn for the
4148   # |     presence of intl/ if AM_GNU_GETTEXT([external]) is used. Both
4149   # |     warnings apply only to the usual layout of packages, therefore
4150   # |     they should both be disabled if no po/ directory is found at
4151   # |     top level.
4152
4153   if (-d 'po')
4154     {
4155       my @subdirs = $subdirs->value_as_list_recursive;
4156
4157       msg_var ('syntax', $subdirs,
4158                "AM_GNU_GETTEXT used but `po' not in SUBDIRS")
4159         if ! grep ($_ eq 'po', @subdirs);
4160
4161       # intl/ is not required when AM_GNU_GETTEXT is called with
4162       # the `external' option.
4163       msg_var ('syntax', $subdirs,
4164                "AM_GNU_GETTEXT used but `intl' not in SUBDIRS")
4165         if (! $seen_gettext_external
4166             && ! grep ($_ eq 'intl', @subdirs));
4167
4168       # intl/ should not be used with AM_GNU_GETTEXT([external])
4169       msg_var ('syntax', $subdirs,
4170                "`intl' should not be in SUBDIRS when "
4171                . "AM_GNU_GETTEXT([external]) is used")
4172         if ($seen_gettext_external && grep ($_ eq 'intl', @subdirs));
4173     }
4174
4175   require_file ($ac_gettext_location, GNU, 'ABOUT-NLS');
4176 }
4177
4178 # Handle footer elements.
4179 sub handle_footer
4180 {
4181     # NOTE don't use define_pretty_variable here, because
4182     # $contents{...} is already defined.
4183     $output_vars .= 'SOURCES = ' . variable_value ('SOURCES') . "\n\n"
4184       if variable_value ('SOURCES');
4185
4186     reject_rule ('.SUFFIXES',
4187                  "use variable `SUFFIXES', not target `.SUFFIXES'");
4188
4189     # Note: AIX 4.1 /bin/make will fail if any suffix rule appears
4190     # before .SUFFIXES.  So we make sure that .SUFFIXES appears before
4191     # anything else, by sticking it right after the default: target.
4192     $output_header .= ".SUFFIXES:\n";
4193     my $suffixes = var 'SUFFIXES';
4194     my @suffixes = Automake::Rule::suffixes;
4195     if (@suffixes || $suffixes)
4196     {
4197         # Make sure SUFFIXES has unique elements.  Sort them to ensure
4198         # the output remains consistent.  However, $(SUFFIXES) is
4199         # always at the start of the list, unsorted.  This is done
4200         # because make will choose rules depending on the ordering of
4201         # suffixes, and this lets the user have some control.  Push
4202         # actual suffixes, and not $(SUFFIXES).  Some versions of make
4203         # do not like variable substitutions on the .SUFFIXES line.
4204         my @user_suffixes = ($suffixes
4205                              ? $suffixes->value_as_list_recursive : ());
4206
4207         my %suffixes = map { $_ => 1 } @suffixes;
4208         delete @suffixes{@user_suffixes};
4209
4210         $output_header .= (".SUFFIXES: "
4211                            . join (' ', @user_suffixes, sort keys %suffixes)
4212                            . "\n");
4213     }
4214
4215     $output_trailer .= file_contents ('footer', new Automake::Location);
4216 }
4217
4218
4219 # Generate `make install' rules.
4220 sub handle_install ()
4221 {
4222   $output_rules .= &file_contents
4223     ('install',
4224      new Automake::Location,
4225      maybe_BUILT_SOURCES => (set_seen ('BUILT_SOURCES')
4226                              ? (" \$(BUILT_SOURCES)\n"
4227                                 . "\t\$(MAKE) \$(AM_MAKEFLAGS)")
4228                              : ''),
4229      'installdirs-local' => (user_phony_rule 'installdirs-local'
4230                              ? ' installdirs-local' : ''),
4231      am__installdirs => variable_value ('am__installdirs') || '');
4232 }
4233
4234
4235 # Deal with all and all-am.
4236 sub handle_all ($)
4237 {
4238     my ($makefile) = @_;
4239
4240     # Output `all-am'.
4241
4242     # Put this at the beginning for the sake of non-GNU makes.  This
4243     # is still wrong if these makes can run parallel jobs.  But it is
4244     # right enough.
4245     unshift (@all, basename ($makefile));
4246
4247     foreach my $spec (@config_headers)
4248       {
4249         my ($out, @ins) = split_config_file_spec ($spec);
4250         push (@all, basename ($out))
4251           if dirname ($out) eq $relative_dir;
4252       }
4253
4254     # Install `all' hooks.
4255     push (@all, "all-local")
4256       if user_phony_rule "all-local";
4257
4258     &pretty_print_rule ("all-am:", "\t\t", @all);
4259     &depend ('.PHONY', 'all-am', 'all');
4260
4261
4262     # Output `all'.
4263
4264     my @local_headers = ();
4265     push @local_headers, '$(BUILT_SOURCES)'
4266       if var ('BUILT_SOURCES');
4267     foreach my $spec (@config_headers)
4268       {
4269         my ($out, @ins) = split_config_file_spec ($spec);
4270         push @local_headers, basename ($out)
4271           if dirname ($out) eq $relative_dir;
4272       }
4273
4274     if (@local_headers)
4275       {
4276         # We need to make sure config.h is built before we recurse.
4277         # We also want to make sure that built sources are built
4278         # before any ordinary `all' targets are run.  We can't do this
4279         # by changing the order of dependencies to the "all" because
4280         # that breaks when using parallel makes.  Instead we handle
4281         # things explicitly.
4282         $output_all .= ("all: @local_headers"
4283                         . "\n\t"
4284                         . '$(MAKE) $(AM_MAKEFLAGS) '
4285                         . (var ('SUBDIRS') ? 'all-recursive' : 'all-am')
4286                         . "\n\n");
4287       }
4288     else
4289       {
4290         $output_all .= "all: " . (var ('SUBDIRS')
4291                                   ? 'all-recursive' : 'all-am') . "\n\n";
4292       }
4293 }
4294
4295
4296 # &do_check_merge_target ()
4297 # -------------------------
4298 # Handle check merge target specially.
4299 sub do_check_merge_target ()
4300 {
4301   # Include user-defined local form of target.
4302   push @check_tests, 'check-local'
4303     if user_phony_rule 'check-local';
4304
4305   # In --cygnus mode, check doesn't depend on all.
4306   if (option 'cygnus')
4307     {
4308       # Just run the local check rules.
4309       pretty_print_rule ('check-am:', "\t\t", @check);
4310     }
4311   else
4312     {
4313       # The check target must depend on the local equivalent of
4314       # `all', to ensure all the primary targets are built.  Then it
4315       # must build the local check rules.
4316       $output_rules .= "check-am: all-am\n";
4317       pretty_print_rule ("\t\$(MAKE) \$(AM_MAKEFLAGS)", "\t  ",
4318                          @check)
4319         if @check;
4320     }
4321   pretty_print_rule ("\t\$(MAKE) \$(AM_MAKEFLAGS)", "\t  ",
4322                      @check_tests)
4323     if @check_tests;
4324
4325   depend '.PHONY', 'check', 'check-am';
4326   # Handle recursion.  We have to honor BUILT_SOURCES like for `all:'.
4327   $output_rules .= ("check: "
4328                     . (var ('BUILT_SOURCES')
4329                        ? "\$(BUILT_SOURCES)\n\t\$(MAKE) \$(AM_MAKEFLAGS) "
4330                        : '')
4331                     . (var ('SUBDIRS') ? 'check-recursive' : 'check-am')
4332                     . "\n");
4333 }
4334
4335 # handle_clean ($MAKEFILE)
4336 # ------------------------
4337 # Handle all 'clean' targets.
4338 sub handle_clean ($)
4339 {
4340   my ($makefile) = @_;
4341
4342   # Clean the files listed in user variables if they exist.
4343   $clean_files{'$(MOSTLYCLEANFILES)'} = MOSTLY_CLEAN
4344     if var ('MOSTLYCLEANFILES');
4345   $clean_files{'$(CLEANFILES)'} = CLEAN
4346     if var ('CLEANFILES');
4347   $clean_files{'$(DISTCLEANFILES)'} = DIST_CLEAN
4348     if var ('DISTCLEANFILES');
4349   $clean_files{'$(MAINTAINERCLEANFILES)'} = MAINTAINER_CLEAN
4350     if var ('MAINTAINERCLEANFILES');
4351
4352   # Built sources are automatically removed by maintainer-clean.
4353   $clean_files{'$(BUILT_SOURCES)'} = MAINTAINER_CLEAN
4354     if var ('BUILT_SOURCES');
4355
4356   # Compute a list of "rm"s to run for each target.
4357   my %rms = (MOSTLY_CLEAN, [],
4358              CLEAN, [],
4359              DIST_CLEAN, [],
4360              MAINTAINER_CLEAN, []);
4361
4362   foreach my $file (keys %clean_files)
4363     {
4364       my $when = $clean_files{$file};
4365       prog_error 'invalid entry in %clean_files'
4366         unless exists $rms{$when};
4367
4368       my $rm = "rm -f $file";
4369       # If file is a variable, make sure when don't call `rm -f' without args.
4370       $rm ="test -z \"$file\" || $rm"
4371         if ($file =~ /^\s*\$(\(.*\)|\{.*\})\s*$/);
4372
4373       push @{$rms{$when}}, "\t-$rm\n";
4374     }
4375
4376   $output_rules .= &file_contents
4377     ('clean',
4378      new Automake::Location,
4379      MOSTLYCLEAN_RMS      => join ('', sort @{$rms{&MOSTLY_CLEAN}}),
4380      CLEAN_RMS            => join ('', sort @{$rms{&CLEAN}}),
4381      DISTCLEAN_RMS        => join ('', sort @{$rms{&DIST_CLEAN}}),
4382      MAINTAINER_CLEAN_RMS => join ('', sort @{$rms{&MAINTAINER_CLEAN}}),
4383      MAKEFILE             => basename $makefile,
4384      );
4385 }
4386
4387
4388 # &target_cmp ($A, $B)
4389 # --------------------
4390 # Subroutine for &handle_factored_dependencies to let `.PHONY' and
4391 # other `.TARGETS' be last.
4392 sub target_cmp
4393 {
4394   return 0 if $a eq $b;
4395
4396   my $a1 = substr ($a, 0, 1);
4397   my $b1 = substr ($b, 0, 1);
4398   if ($a1 ne $b1)
4399     {
4400       return -1 if $b1 eq '.';
4401       return 1 if $a1 eq '.';
4402     }
4403   return $a cmp $b;
4404 }
4405
4406
4407 # &handle_factored_dependencies ()
4408 # --------------------------------
4409 # Handle everything related to gathered targets.
4410 sub handle_factored_dependencies
4411 {
4412   # Reject bad hooks.
4413   foreach my $utarg ('uninstall-data-local', 'uninstall-data-hook',
4414                      'uninstall-exec-local', 'uninstall-exec-hook',
4415                      'uninstall-dvi-local',
4416                      'uninstall-html-local',
4417                      'uninstall-info-local',
4418                      'uninstall-pdf-local',
4419                      'uninstall-ps-local')
4420     {
4421       my $x = $utarg;
4422       $x =~ s/-.*-/-/;
4423       reject_rule ($utarg, "use `$x', not `$utarg'");
4424     }
4425
4426   reject_rule ('install-local',
4427                "use `install-data-local' or `install-exec-local', "
4428                . "not `install-local'");
4429
4430   # Install the -local hooks.
4431   foreach (keys %dependencies)
4432     {
4433       # Hooks are installed on the -am targets.
4434       s/-am$// or next;
4435       depend ("$_-am", "$_-local")
4436         if user_phony_rule "$_-local";
4437     }
4438
4439   # Install the -hook hooks.
4440   # FIXME: Why not be as liberal as we are with -local hooks?
4441   foreach ('install-exec', 'install-data', 'uninstall')
4442     {
4443       if (user_phony_rule "$_-hook")
4444         {
4445           $actions{"$_-am"} .=
4446             ("\t\@\$(NORMAL_INSTALL)\n"
4447              . "\t" . '$(MAKE) $(AM_MAKEFLAGS) ' . "$_-hook\n");
4448           depend ('.MAKE', "$_-am");
4449         }
4450     }
4451
4452   # All the required targets are phony.
4453   depend ('.PHONY', keys %required_targets);
4454
4455   # Actually output gathered targets.
4456   foreach (sort target_cmp keys %dependencies)
4457     {
4458       # If there is nothing about this guy, skip it.
4459       next
4460         unless (@{$dependencies{$_}}
4461                 || $actions{$_}
4462                 || $required_targets{$_});
4463
4464       # Define gathered targets in undefined conditions.
4465       # FIXME: Right now we must handle .PHONY as an exception,
4466       # because people write things like
4467       #    .PHONY: myphonytarget
4468       # to append dependencies.  This would not work if Automake
4469       # refrained from defining its own .PHONY target as it does
4470       # with other overridden targets.
4471       # Likewise for `.MAKE'.
4472       my @undefined_conds = (TRUE,);
4473       if ($_ ne '.PHONY' && $_ ne '.MAKE')
4474         {
4475           @undefined_conds =
4476             Automake::Rule::define ($_, 'internal',
4477                                     RULE_AUTOMAKE, TRUE, INTERNAL);
4478         }
4479       my @uniq_deps = uniq (sort @{$dependencies{$_}});
4480       foreach my $cond (@undefined_conds)
4481         {
4482           my $condstr = $cond->subst_string;
4483           &pretty_print_rule ("$condstr$_:", "$condstr\t", @uniq_deps);
4484           $output_rules .= $actions{$_} if defined $actions{$_};
4485           $output_rules .= "\n";
4486         }
4487     }
4488 }
4489
4490
4491 # &handle_tests_dejagnu ()
4492 # ------------------------
4493 sub handle_tests_dejagnu
4494 {
4495     push (@check_tests, 'check-DEJAGNU');
4496     $output_rules .= file_contents ('dejagnu', new Automake::Location);
4497 }
4498
4499
4500 # Handle TESTS variable and other checks.
4501 sub handle_tests
4502 {
4503   if (option 'dejagnu')
4504     {
4505       &handle_tests_dejagnu;
4506     }
4507   else
4508     {
4509       foreach my $c ('DEJATOOL', 'RUNTEST', 'RUNTESTFLAGS')
4510         {
4511           reject_var ($c, "`$c' defined but `dejagnu' not in "
4512                       . "`AUTOMAKE_OPTIONS'");
4513         }
4514     }
4515
4516   if (var ('TESTS'))
4517     {
4518       push (@check_tests, 'check-TESTS');
4519       $output_rules .= &file_contents ('check', new Automake::Location);
4520     }
4521 }
4522
4523 # Handle Emacs Lisp.
4524 sub handle_emacs_lisp
4525 {
4526   my @elfiles = &am_install_var ('-candist', 'lisp', 'LISP',
4527                                  'lisp', 'noinst');
4528
4529   return if ! @elfiles;
4530
4531   define_pretty_variable ('am__ELFILES', TRUE, INTERNAL,
4532                           map { $_->[1] } @elfiles);
4533   define_pretty_variable ('am__ELCFILES', TRUE, INTERNAL,
4534                           '$(am__ELFILES:.el=.elc)');
4535   # This one can be overridden by users.
4536   define_pretty_variable ('ELCFILES', TRUE, INTERNAL, '$(LISP:.el=.elc)');
4537
4538   push @all, '$(ELCFILES)';
4539
4540   require_variables ($elfiles[0][0], "Emacs Lisp sources seen", TRUE,
4541                      'EMACS', 'lispdir');
4542   require_conf_file ($elfiles[0][0], FOREIGN, 'elisp-comp');
4543   &define_variable ('elisp_comp', "$am_config_aux_dir/elisp-comp", INTERNAL);
4544 }
4545
4546 # Handle Python
4547 sub handle_python
4548 {
4549   my @pyfiles = &am_install_var ('-defaultdist', 'python', 'PYTHON',
4550                                  'noinst');
4551   return if ! @pyfiles;
4552
4553   require_variables ($pyfiles[0][0], "Python sources seen", TRUE, 'PYTHON');
4554   require_conf_file ($pyfiles[0][0], FOREIGN, 'py-compile');
4555   &define_variable ('py_compile', "$am_config_aux_dir/py-compile", INTERNAL);
4556 }
4557
4558 # Handle Java.
4559 sub handle_java
4560 {
4561     my @sourcelist = &am_install_var ('-candist',
4562                                       'java', 'JAVA',
4563                                       'java', 'noinst', 'check');
4564     return if ! @sourcelist;
4565
4566     my @prefix = am_primary_prefixes ('JAVA', 1,
4567                                       'java', 'noinst', 'check');
4568
4569     my $dir;
4570     foreach my $curs (@prefix)
4571       {
4572         next
4573           if $curs eq 'EXTRA';
4574
4575         err_var "${curs}_JAVA", "multiple _JAVA primaries in use"
4576           if defined $dir;
4577         $dir = $curs;
4578       }
4579
4580
4581     push (@all, 'class' . $dir . '.stamp');
4582 }
4583
4584
4585 # Handle some of the minor options.
4586 sub handle_minor_options
4587 {
4588   if (option 'readme-alpha')
4589     {
4590       if ($relative_dir eq '.')
4591         {
4592           if ($package_version !~ /^$GNITS_VERSION_PATTERN$/)
4593             {
4594               msg ('error-gnits', $package_version_location,
4595                    "version `$package_version' doesn't follow " .
4596                    "Gnits standards");
4597             }
4598           if (defined $1 && -f 'README-alpha')
4599             {
4600               # This means we have an alpha release.  See
4601               # GNITS_VERSION_PATTERN for details.
4602               push_dist_common ('README-alpha');
4603             }
4604         }
4605     }
4606 }
4607
4608 ################################################################
4609
4610 # ($OUTPUT, @INPUTS)
4611 # &split_config_file_spec ($SPEC)
4612 # -------------------------------
4613 # Decode the Autoconf syntax for config files (files, headers, links
4614 # etc.).
4615 sub split_config_file_spec ($)
4616 {
4617   my ($spec) = @_;
4618   my ($output, @inputs) = split (/:/, $spec);
4619
4620   push @inputs, "$output.in"
4621     unless @inputs;
4622
4623   return ($output, @inputs);
4624 }
4625
4626 # $input
4627 # locate_am (@POSSIBLE_SOURCES)
4628 # -----------------------------
4629 # AC_CONFIG_FILES allow specifications such as Makefile:top.in:mid.in:bot.in
4630 # This functions returns the first *.in file for which a *.am exists.
4631 # It returns undef otherwise.
4632 sub locate_am (@)
4633 {
4634   my (@rest) = @_;
4635   my $input;
4636   foreach my $file (@rest)
4637     {
4638       if (($file =~ /^(.*)\.in$/) && -f "$1.am")
4639         {
4640           $input = $file;
4641           last;
4642         }
4643     }
4644   return $input;
4645 }
4646
4647 my %make_list;
4648
4649 # &scan_autoconf_config_files ($WHERE, $CONFIG-FILES)
4650 # ---------------------------------------------------
4651 # Study $CONFIG-FILES which is the first argument to AC_CONFIG_FILES
4652 # (or AC_OUTPUT).
4653 sub scan_autoconf_config_files ($$)
4654 {
4655   my ($where, $config_files) = @_;
4656
4657   # Look at potential Makefile.am's.
4658   foreach (split ' ', $config_files)
4659     {
4660       # Must skip empty string for Perl 4.
4661       next if $_ eq "\\" || $_ eq '';
4662
4663       # Handle $local:$input syntax.
4664       my ($local, @rest) = split (/:/);
4665       @rest = ("$local.in",) unless @rest;
4666       my $input = locate_am @rest;
4667       if ($input)
4668         {
4669           # We have a file that automake should generate.
4670           $make_list{$input} = join (':', ($local, @rest));
4671         }
4672       else
4673         {
4674           # We have a file that automake should cause to be
4675           # rebuilt, but shouldn't generate itself.
4676           push (@other_input_files, $_);
4677         }
4678       $ac_config_files_location{$local} = $where;
4679     }
4680 }
4681
4682
4683 # &scan_autoconf_traces ($FILENAME)
4684 # ---------------------------------
4685 sub scan_autoconf_traces ($)
4686 {
4687   my ($filename) = @_;
4688
4689   # Macros to trace, with their minimal number of arguments.
4690   #
4691   # IMPORTANT: If you add a macro here, you should also add this macro
4692   # =========  to Automake-preselection in autoconf/lib/autom4te.in.
4693   my %traced = (
4694                 AC_CANONICAL_BUILD => 0,
4695                 AC_CANONICAL_HOST => 0,
4696                 AC_CANONICAL_TARGET => 0,
4697                 AC_CONFIG_AUX_DIR => 1,
4698                 AC_CONFIG_FILES => 1,
4699                 AC_CONFIG_HEADERS => 1,
4700                 AC_CONFIG_LINKS => 1,
4701                 AC_INIT => 0,
4702                 AC_LIBSOURCE => 1,
4703                 AC_REQUIRE_AUX_FILE => 1,
4704                 AC_SUBST => 1,
4705                 AM_AUTOMAKE_VERSION => 1,
4706                 AM_CONDITIONAL => 2,
4707                 AM_ENABLE_MULTILIB => 0,
4708                 AM_GNU_GETTEXT => 0,
4709                 AM_INIT_AUTOMAKE => 0,
4710                 AM_MAINTAINER_MODE => 0,
4711                 AM_PROG_CC_C_O => 0,
4712                 LT_SUPPORTED_TAG => 1,
4713                 _LT_AC_TAGCONFIG => 0,
4714                 m4_include => 1,
4715                 m4_sinclude => 1,
4716                 sinclude => 1,
4717               );
4718
4719   my $traces = ($ENV{AUTOCONF} || 'autoconf') . " ";
4720
4721   # Use a separator unlikely to be used, not `:', the default, which
4722   # has a precise meaning for AC_CONFIG_FILES and so on.
4723   $traces .= join (' ',
4724                    map { "--trace=$_" . ':\$f:\$l::\$n::\${::}%' }
4725                    (keys %traced));
4726
4727   my $tracefh = new Automake::XFile ("$traces $filename |");
4728   verb "reading $traces";
4729
4730   while ($_ = $tracefh->getline)
4731     {
4732       chomp;
4733       my ($here, @args) = split (/::/);
4734       my $where = new Automake::Location $here;
4735       my $macro = $args[0];
4736
4737       prog_error ("unrequested trace `$macro'")
4738         unless exists $traced{$macro};
4739
4740       # Skip and diagnose malformed calls.
4741       if ($#args < $traced{$macro})
4742         {
4743           msg ('syntax', $where, "not enough arguments for $macro");
4744           next;
4745         }
4746
4747       # Alphabetical ordering please.
4748       if ($macro eq 'AC_CANONICAL_BUILD')
4749         {
4750           if ($seen_canonical <= AC_CANONICAL_BUILD)
4751             {
4752               $seen_canonical = AC_CANONICAL_BUILD;
4753               $canonical_location = $where;
4754             }
4755         }
4756       elsif ($macro eq 'AC_CANONICAL_HOST')
4757         {
4758           if ($seen_canonical <= AC_CANONICAL_HOST)
4759             {
4760               $seen_canonical = AC_CANONICAL_HOST;
4761               $canonical_location = $where;
4762             }
4763         }
4764       elsif ($macro eq 'AC_CANONICAL_TARGET')
4765         {
4766           $seen_canonical = AC_CANONICAL_TARGET;
4767           $canonical_location = $where;
4768         }
4769       elsif ($macro eq 'AC_CONFIG_AUX_DIR')
4770         {
4771           if ($seen_init_automake)
4772             {
4773               error ($where, "AC_CONFIG_AUX_DIR must be called before "
4774                      . "AM_INIT_AUTOMAKE...", partial => 1);
4775               error ($seen_init_automake, "... AM_INIT_AUTOMAKE called here");
4776             }
4777           $config_aux_dir = $args[1];
4778           $config_aux_dir_set_in_configure_ac = 1;
4779           $relative_dir = '.';
4780           check_directory ($config_aux_dir, $where);
4781         }
4782       elsif ($macro eq 'AC_CONFIG_FILES')
4783         {
4784           # Look at potential Makefile.am's.
4785           scan_autoconf_config_files ($where, $args[1]);
4786         }
4787       elsif ($macro eq 'AC_CONFIG_HEADERS')
4788         {
4789           foreach my $spec (split (' ', $args[1]))
4790             {
4791               my ($dest, @src) = split (':', $spec);
4792               $ac_config_files_location{$dest} = $where;
4793               push @config_headers, $spec;
4794             }
4795         }
4796       elsif ($macro eq 'AC_CONFIG_LINKS')
4797         {
4798           foreach my $spec (split (' ', $args[1]))
4799             {
4800               my ($dest, $src) = split (':', $spec);
4801               $ac_config_files_location{$dest} = $where;
4802               push @config_links, $spec;
4803             }
4804         }
4805       elsif ($macro eq 'AC_INIT')
4806         {
4807           if (defined $args[2])
4808             {
4809               $package_version = $args[2];
4810               $package_version_location = $where;
4811             }
4812         }
4813       elsif ($macro eq 'AC_LIBSOURCE')
4814         {
4815           $libsources{$args[1]} = $here;
4816         }
4817       elsif ($macro eq 'AC_SUBST')
4818         {
4819           # Just check for alphanumeric in AC_SUBST.  If you do
4820           # AC_SUBST(5), then too bad.
4821           $configure_vars{$args[1]} = $where
4822             if $args[1] =~ /^\w+$/;
4823         }
4824       elsif ($macro eq 'AM_AUTOMAKE_VERSION')
4825         {
4826           error ($where,
4827                  "version mismatch.  This is Automake $VERSION,\n" .
4828                  "but the definition used by this AM_INIT_AUTOMAKE\n" .
4829                  "comes from Automake $args[1].  You should recreate\n" .
4830                  "aclocal.m4 with aclocal and run automake again.\n",
4831                  # $? = 63 is used to indicate version mismatch to missing.
4832                  exit_code => 63)
4833             if $VERSION ne $args[1];
4834
4835           $seen_automake_version = 1;
4836         }
4837       elsif ($macro eq 'AM_CONDITIONAL')
4838         {
4839           $configure_cond{$args[1]} = $where;
4840         }
4841       elsif ($macro eq 'AM_ENABLE_MULTILIB')
4842         {
4843           $seen_multilib = $where;
4844         }
4845       elsif ($macro eq 'AM_GNU_GETTEXT')
4846         {
4847           $seen_gettext = $where;
4848           $ac_gettext_location = $where;
4849           $seen_gettext_external = grep ($_ eq 'external', @args);
4850         }
4851       elsif ($macro eq 'AM_INIT_AUTOMAKE')
4852         {
4853           $seen_init_automake = $where;
4854           if (defined $args[2])
4855             {
4856               $package_version = $args[2];
4857               $package_version_location = $where;
4858             }
4859           elsif (defined $args[1])
4860             {
4861               exit $exit_code
4862                 if (process_global_option_list ($where,
4863                                                 split (' ', $args[1])));
4864             }
4865         }
4866       elsif ($macro eq 'AM_MAINTAINER_MODE')
4867         {
4868           $seen_maint_mode = $where;
4869         }
4870       elsif ($macro eq 'AM_PROG_CC_C_O')
4871         {
4872           $seen_cc_c_o = $where;
4873         }
4874       elsif ($macro eq 'AC_REQUIRE_AUX_FILE')
4875         {
4876           # Only remember the first time a file is required.
4877           $required_aux_file{$args[1]} = $where
4878             unless exists $required_aux_file{$args[1]};
4879         }
4880       elsif ($macro eq 'm4_include'
4881              || $macro eq 'm4_sinclude'
4882              || $macro eq 'sinclude')
4883         {
4884           # Some modified versions of Autoconf don't use
4885           # forzen files.  Consequently it's possible that we see all
4886           # m4_include's performed during Autoconf's startup.
4887           # Obviously we don't want to distribute Autoconf's files
4888           # so we skip absolute filenames here.
4889           push @configure_deps, '$(top_srcdir)/' . $args[1]
4890             unless $here =~ m,^(?:\w:)?[\\/],;
4891           # Keep track of the greatest timestamp.
4892           if (-e $args[1])
4893             {
4894               my $mtime = mtime $args[1];
4895               $configure_deps_greatest_timestamp = $mtime
4896                 if $mtime > $configure_deps_greatest_timestamp;
4897             }
4898         }
4899       elsif ($macro eq 'LT_SUPPORTED_TAG')
4900         {
4901           $libtool_tags{$args[1]} = 1;
4902           $libtool_new_api = 1;
4903         }
4904       elsif ($macro eq '_LT_AC_TAGCONFIG')
4905         {
4906           # _LT_AC_TAGCONFIG is an old macro present in Libtool 1.5.
4907           # We use it to detect whether tags are supported.  Our
4908           # prefered interface is LT_SUPPORTED_TAG, but it was
4909           # introduced in Libtool 1.6.
4910           if (0 == keys %libtool_tags)
4911             {
4912               # Hardcode the tags supported by Libtool 1.5.
4913               %libtool_tags = (CC => 1, CXX => 1, GCJ => 1, F77 => 1);
4914             }
4915         }
4916     }
4917
4918   $tracefh->close;
4919 }
4920
4921
4922 # &scan_autoconf_files ()
4923 # -----------------------
4924 # Check whether we use `configure.ac' or `configure.in'.
4925 # Scan it (and possibly `aclocal.m4') for interesting things.
4926 # We must scan aclocal.m4 because there might be AC_SUBSTs and such there.
4927 sub scan_autoconf_files ()
4928 {
4929   # Reinitialize libsources here.  This isn't really necessary,
4930   # since we currently assume there is only one configure.ac.  But
4931   # that won't always be the case.
4932   %libsources = ();
4933
4934   # Keep track of the youngest configure dependency.
4935   $configure_deps_greatest_timestamp = mtime $configure_ac;
4936   if (-e 'aclocal.m4')
4937     {
4938       my $mtime = mtime 'aclocal.m4';
4939       $configure_deps_greatest_timestamp = $mtime
4940         if $mtime > $configure_deps_greatest_timestamp;
4941     }
4942
4943   scan_autoconf_traces ($configure_ac);
4944
4945   @configure_input_files = sort keys %make_list;
4946   # Set input and output files if not specified by user.
4947   if (! @input_files)
4948     {
4949       @input_files = @configure_input_files;
4950       %output_files = %make_list;
4951     }
4952
4953
4954   if (! $seen_init_automake)
4955     {
4956       err_ac ("no proper invocation of AM_INIT_AUTOMAKE was found.\nYou "
4957               . "should verify that $configure_ac invokes AM_INIT_AUTOMAKE,"
4958               . "\nthat aclocal.m4 is present in the top-level directory,\n"
4959               . "and that aclocal.m4 was recently regenerated "
4960               . "(using aclocal).");
4961     }
4962   else
4963     {
4964       if (! $seen_automake_version)
4965         {
4966           if (-f 'aclocal.m4')
4967             {
4968               error ($seen_init_automake,
4969                      "your implementation of AM_INIT_AUTOMAKE comes from " .
4970                      "an\nold Automake version.  You should recreate " .
4971                      "aclocal.m4\nwith aclocal and run automake again.\n",
4972                      # $? = 63 is used to indicate version mismatch to missing.
4973                      exit_code => 63);
4974             }
4975           else
4976             {
4977               error ($seen_init_automake,
4978                      "no proper implementation of AM_INIT_AUTOMAKE was " .
4979                      "found,\nprobably because aclocal.m4 is missing...\n" .
4980                      "You should run aclocal to create this file, then\n" .
4981                      "run automake again.\n");
4982             }
4983         }
4984     }
4985
4986   locate_aux_dir ();
4987
4988   # Reorder @input_files so that the Makefile that distributes aux
4989   # files is processed last.  This is important because each directory
4990   # can require auxiliary scripts and we should wait until they have
4991   # been installed before distributing them.
4992
4993   # The Makefile.in that distribute the aux files is the one in
4994   # $config_aux_dir or the top-level Makefile.
4995   my $auxdirdist = is_make_dir ($config_aux_dir) ? $config_aux_dir : '.';
4996   my @new_input_files = ();
4997   while (@input_files)
4998     {
4999       my $in = pop @input_files;
5000       my @ins = split (/:/, $output_files{$in});
5001       if (dirname ($ins[0]) eq $auxdirdist)
5002         {
5003           push @new_input_files, $in;
5004           $automake_will_process_aux_dir = 1;
5005         }
5006       else
5007         {
5008           unshift @new_input_files, $in;
5009         }
5010     }
5011   @input_files = @new_input_files;
5012
5013   # If neither the auxdir/Makefile nor the ./Makefile are generated
5014   # by Automake, we won't distribute the aux files anyway.  Assume
5015   # the user know what (s)he does, and pretend we will distribute
5016   # them to disable the error in require_file_internal.
5017   $automake_will_process_aux_dir = 1 if ! is_make_dir ($auxdirdist);
5018
5019   # Look for some files we need.  Always check for these.  This
5020   # check must be done for every run, even those where we are only
5021   # looking at a subdir Makefile.  We must set relative_dir for
5022   # maybe_push_required_file to work.
5023   $relative_dir = '.';
5024   foreach my $file (keys %required_aux_file)
5025     {
5026       require_conf_file ($required_aux_file{$file}->get, FOREIGN, $file)
5027     }
5028   err_am "`install.sh' is an anachronism; use `install-sh' instead"
5029     if -f $config_aux_dir . '/install.sh';
5030
5031   # Preserve dist_common for later.
5032   $configure_dist_common = variable_value ('DIST_COMMON') || '';
5033
5034 }
5035
5036 ################################################################
5037
5038 # Set up for Cygnus mode.
5039 sub check_cygnus
5040 {
5041   my $cygnus = option 'cygnus';
5042   return unless $cygnus;
5043
5044   set_strictness ('foreign');
5045   set_option ('no-installinfo', $cygnus);
5046   set_option ('no-dependencies', $cygnus);
5047   set_option ('no-dist', $cygnus);
5048
5049   err_ac "`AM_MAINTAINER_MODE' required when --cygnus specified"
5050     if !$seen_maint_mode;
5051 }
5052
5053 # Do any extra checking for GNU standards.
5054 sub check_gnu_standards
5055 {
5056   if ($relative_dir eq '.')
5057     {
5058       # In top level (or only) directory.
5059       require_file ("$am_file.am", GNU,
5060                     qw/INSTALL NEWS README AUTHORS ChangeLog/);
5061
5062       # Accept one of these three licenses; default to COPYING.
5063       # Make sure we do not overwrite an existing license.
5064       my $license;
5065       foreach (qw /COPYING COPYING.LIB COPYING.LESSER/)
5066         {
5067           if (-f $_)
5068             {
5069               $license = $_;
5070               last;
5071             }
5072         }
5073       require_file ("$am_file.am", GNU, 'COPYING')
5074         unless $license;
5075     }
5076
5077   for my $opt ('no-installman', 'no-installinfo')
5078     {
5079       msg ('error-gnu', option $opt,
5080            "option `$opt' disallowed by GNU standards")
5081         if option $opt;
5082     }
5083 }
5084
5085 # Do any extra checking for GNITS standards.
5086 sub check_gnits_standards
5087 {
5088   if ($relative_dir eq '.')
5089     {
5090       # In top level (or only) directory.
5091       require_file ("$am_file.am", GNITS, 'THANKS');
5092     }
5093 }
5094
5095 ################################################################
5096 #
5097 # Functions to handle files of each language.
5098
5099 # Each `lang_X_rewrite($DIRECTORY, $BASE, $EXT)' function follows a
5100 # simple formula: Return value is LANG_SUBDIR if the resulting object
5101 # file should be in a subdir if the source file is, LANG_PROCESS if
5102 # file is to be dealt with, LANG_IGNORE otherwise.
5103
5104 # Much of the actual processing is handled in
5105 # handle_single_transform.  These functions exist so that
5106 # auxiliary information can be recorded for a later cleanup pass.
5107 # Note that the calls to these functions are computed, so don't bother
5108 # searching for their precise names in the source.
5109
5110 # This is just a convenience function that can be used to determine
5111 # when a subdir object should be used.
5112 sub lang_sub_obj
5113 {
5114     return option 'subdir-objects' ? LANG_SUBDIR : LANG_PROCESS;
5115 }
5116
5117 # Rewrite a single C source file.
5118 sub lang_c_rewrite
5119 {
5120   my ($directory, $base, $ext, $nonansi_obj, $have_per_exec_flags, $var) = @_;
5121
5122   if (option 'ansi2knr' && $base =~ /_$/)
5123     {
5124       # FIXME: include line number in error.
5125       err_am "C source file `$base.c' would be deleted by ansi2knr rules";
5126     }
5127
5128   my $r = LANG_PROCESS;
5129   if (option 'subdir-objects')
5130     {
5131       $r = LANG_SUBDIR;
5132       if ($directory && $directory ne '.')
5133         {
5134           $base = $directory . '/' . $base;
5135
5136           # libtool is always able to put the object at the proper place,
5137           # so we do not have to require AM_PROG_CC_C_O when building .lo files.
5138           err_var ($var, "compiling `$base.c' in subdir requires "
5139                    . "`AM_PROG_CC_C_O' in `$configure_ac'",
5140                    uniq_scope => US_GLOBAL,
5141                    uniq_part => 'AM_PROG_CC_C_O subdir')
5142             unless $seen_cc_c_o || $nonansi_obj eq '.lo';
5143         }
5144
5145       # In this case we already have the directory information, so
5146       # don't add it again.
5147       $de_ansi_files{$base} = '';
5148     }
5149   else
5150     {
5151       $de_ansi_files{$base} = (($directory eq '.' || $directory eq '')
5152                                ? ''
5153                                : "$directory/");
5154     }
5155
5156   if (! $seen_cc_c_o
5157       && $have_per_exec_flags
5158       && ! option 'subdir-objects'
5159       && $nonansi_obj ne '.lo')
5160     {
5161       err_var ($var, "compiling `$base.c' with per-target flags requires "
5162                . "`AM_PROG_CC_C_O' in `$configure_ac'",
5163                uniq_scope => US_GLOBAL,
5164                uniq_part => 'AM_PROG_CC_C_O per-target')
5165     }
5166
5167     return $r;
5168 }
5169
5170 # Rewrite a single C++ source file.
5171 sub lang_cxx_rewrite
5172 {
5173     return &lang_sub_obj;
5174 }
5175
5176 # Rewrite a single header file.
5177 sub lang_header_rewrite
5178 {
5179     # Header files are simply ignored.
5180     return LANG_IGNORE;
5181 }
5182
5183 # Rewrite a single yacc file.
5184 sub lang_yacc_rewrite
5185 {
5186     my ($directory, $base, $ext) = @_;
5187
5188     my $r = &lang_sub_obj;
5189     (my $newext = $ext) =~ tr/y/c/;
5190     return ($r, $newext);
5191 }
5192
5193 # Rewrite a single yacc++ file.
5194 sub lang_yaccxx_rewrite
5195 {
5196     my ($directory, $base, $ext) = @_;
5197
5198     my $r = &lang_sub_obj;
5199     (my $newext = $ext) =~ tr/y/c/;
5200     return ($r, $newext);
5201 }
5202
5203 # Rewrite a single lex file.
5204 sub lang_lex_rewrite
5205 {
5206     my ($directory, $base, $ext) = @_;
5207
5208     my $r = &lang_sub_obj;
5209     (my $newext = $ext) =~ tr/l/c/;
5210     return ($r, $newext);
5211 }
5212
5213 # Rewrite a single lex++ file.
5214 sub lang_lexxx_rewrite
5215 {
5216     my ($directory, $base, $ext) = @_;
5217
5218     my $r = &lang_sub_obj;
5219     (my $newext = $ext) =~ tr/l/c/;
5220     return ($r, $newext);
5221 }
5222
5223 # Rewrite a single assembly file.
5224 sub lang_asm_rewrite
5225 {
5226     return &lang_sub_obj;
5227 }
5228
5229 # Rewrite a single preprocessed assembly file.
5230 sub lang_cppasm_rewrite
5231 {
5232     return &lang_sub_obj;
5233 }
5234
5235 # Rewrite a single Fortran 77 file.
5236 sub lang_f77_rewrite
5237 {
5238     return LANG_PROCESS;
5239 }
5240
5241 # Rewrite a single Fortran file.
5242 sub lang_fc_rewrite
5243 {
5244     return LANG_PROCESS;
5245 }
5246
5247 # Rewrite a single preprocessed Fortran file.
5248 sub lang_ppfc_rewrite
5249 {
5250     return LANG_PROCESS;
5251 }
5252
5253 # Rewrite a single preprocessed Fortran 77 file.
5254 sub lang_ppf77_rewrite
5255 {
5256     return LANG_PROCESS;
5257 }
5258
5259 # Rewrite a single ratfor file.
5260 sub lang_ratfor_rewrite
5261 {
5262     return LANG_PROCESS;
5263 }
5264
5265 # Rewrite a single Objective C file.
5266 sub lang_objc_rewrite
5267 {
5268     return &lang_sub_obj;
5269 }
5270
5271 # Rewrite a single Java file.
5272 sub lang_java_rewrite
5273 {
5274     return LANG_SUBDIR;
5275 }
5276
5277 # The lang_X_finish functions are called after all source file
5278 # processing is done.  Each should handle defining rules for the
5279 # language, etc.  A finish function is only called if a source file of
5280 # the appropriate type has been seen.
5281
5282 sub lang_c_finish
5283 {
5284     # Push all libobjs files onto de_ansi_files.  We actually only
5285     # push files which exist in the current directory, and which are
5286     # genuine source files.
5287     foreach my $file (keys %libsources)
5288     {
5289         if ($file =~ /^(.*)\.[cly]$/ && -f "$relative_dir/$file")
5290         {
5291             $de_ansi_files{$1} = ''
5292         }
5293     }
5294
5295     if (option 'ansi2knr' && keys %de_ansi_files)
5296     {
5297         # Make all _.c files depend on their corresponding .c files.
5298         my @objects;
5299         foreach my $base (sort keys %de_ansi_files)
5300         {
5301             # Each _.c file must depend on ansi2knr; otherwise it
5302             # might be used in a parallel build before it is built.
5303             # We need to support files in the srcdir and in the build
5304             # dir (because these files might be auto-generated.  But
5305             # we can't use $< -- some makes only define $< during a
5306             # suffix rule.
5307             my $ansfile = $de_ansi_files{$base} . $base . '.c';
5308             $output_rules .= ($base . "_.c: $ansfile \$(ANSI2KNR)\n\t"
5309                               . '$(CPP) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) '
5310                               . '`if test -f $(srcdir)/' . $ansfile
5311                               . '; then echo $(srcdir)/' . $ansfile
5312                               . '; else echo ' . $ansfile . '; fi` '
5313                               . "| sed 's/^# \\([0-9]\\)/#line \\1/' "
5314                               . '| $(ANSI2KNR) > $@'
5315                               # If ansi2knr fails then we shouldn't
5316                               # create the _.c file
5317                               . " || rm -f \$\@\n");
5318             push (@objects, $base . '_.$(OBJEXT)');
5319             push (@objects, $base . '_.lo')
5320               if var ('LIBTOOL');
5321
5322             # Explicitly clean the _.c files if they are in a
5323             # subdirectory. (In the current directory they get erased
5324             # by a `rm -f *_.c' rule.)
5325             $clean_files{$base . '_.c'} = MOSTLY_CLEAN
5326               if dirname ($base) ne '.';
5327         }
5328
5329         # Make all _.o (and _.lo) files depend on ansi2knr.
5330         # Use a sneaky little hack to make it print nicely.
5331         &pretty_print_rule ('', '', @objects, ':', '$(ANSI2KNR)');
5332     }
5333 }
5334
5335 # This is a yacc helper which is called whenever we have decided to
5336 # compile a yacc file.
5337 sub lang_yacc_target_hook
5338 {
5339     my ($self, $aggregate, $output, $input, %transform) = @_;
5340
5341     my $flag = $aggregate . "_YFLAGS";
5342     my $flagvar = var $flag;
5343     my $YFLAGSvar = var 'YFLAGS';
5344     if (($flagvar && $flagvar->variable_value =~ /$DASH_D_PATTERN/o)
5345         || ($YFLAGSvar && $YFLAGSvar->variable_value =~ /$DASH_D_PATTERN/o))
5346     {
5347         (my $output_base = $output) =~ s/$KNOWN_EXTENSIONS_PATTERN$//;
5348         my $header = $output_base . '.h';
5349
5350         # Found a `-d' that applies to the compilation of this file.
5351         # Add a dependency for the generated header file, and arrange
5352         # for that file to be included in the distribution.
5353         foreach my $cond (Automake::Rule::define (${header}, 'internal',
5354                                                   RULE_AUTOMAKE, TRUE,
5355                                                   INTERNAL))
5356           {
5357             my $condstr = $cond->subst_string;
5358             $output_rules .= ("$condstr${header}: $output\n"
5359                               # Recover from removal of $header
5360                               . "$condstr\t\@if test ! -f \$@; then \\\n"
5361                               . "$condstr\t  rm -f $output; \\\n"
5362                               . "$condstr\t  \$(MAKE) $output; \\\n"
5363                               . "$condstr\telse :; fi\n");
5364           }
5365         # Distribute the generated file, unless its .y source was
5366         # listed in a nodist_ variable.  (&handle_source_transform
5367         # will set DIST_SOURCE.)
5368         &push_dist_common ($header)
5369           if $transform{'DIST_SOURCE'};
5370
5371         # If the files are built in the build directory, then we want
5372         # to remove them with `make clean'.  If they are in srcdir
5373         # they shouldn't be touched.  However, we can't determine this
5374         # statically, and the GNU rules say that yacc/lex output files
5375         # should be removed by maintainer-clean.  So that's what we
5376         # do.
5377         $clean_files{$header} = MAINTAINER_CLEAN;
5378     }
5379     # Erase $OUTPUT on `make maintainer-clean' (by GNU standards).
5380     # See the comment above for $HEADER.
5381     $clean_files{$output} = MAINTAINER_CLEAN;
5382 }
5383
5384 # This is a lex helper which is called whenever we have decided to
5385 # compile a lex file.
5386 sub lang_lex_target_hook
5387 {
5388     my ($self, $aggregate, $output, $input) = @_;
5389     # If the files are built in the build directory, then we want to
5390     # remove them with `make clean'.  If they are in srcdir they
5391     # shouldn't be touched.  However, we can't determine this
5392     # statically, and the GNU rules say that yacc/lex output files
5393     # should be removed by maintainer-clean.  So that's what we do.
5394     $clean_files{$output} = MAINTAINER_CLEAN;
5395 }
5396
5397 # This is a helper for both lex and yacc.
5398 sub yacc_lex_finish_helper
5399 {
5400   return if defined $language_scratch{'lex-yacc-done'};
5401   $language_scratch{'lex-yacc-done'} = 1;
5402
5403   # If there is more than one distinct yacc (resp lex) source file
5404   # in a given directory, then the `ylwrap' program is required to
5405   # allow parallel builds to work correctly.  FIXME: for now, no
5406   # line number.
5407   require_conf_file ($configure_ac, FOREIGN, 'ylwrap');
5408   &define_variable ('YLWRAP', "$am_config_aux_dir/ylwrap", INTERNAL);
5409 }
5410
5411 sub lang_yacc_finish
5412 {
5413   return if defined $language_scratch{'yacc-done'};
5414   $language_scratch{'yacc-done'} = 1;
5415
5416   reject_var 'YACCFLAGS', "`YACCFLAGS' obsolete; use `YFLAGS' instead";
5417
5418   &yacc_lex_finish_helper
5419     if count_files_for_language ('yacc') > 1;
5420 }
5421
5422
5423 sub lang_lex_finish
5424 {
5425   return if defined $language_scratch{'lex-done'};
5426   $language_scratch{'lex-done'} = 1;
5427
5428   &yacc_lex_finish_helper
5429     if count_files_for_language ('lex') > 1;
5430 }
5431
5432
5433 # Given a hash table of linker names, pick the name that has the most
5434 # precedence.  This is lame, but something has to have global
5435 # knowledge in order to eliminate the conflict.  Add more linkers as
5436 # required.
5437 sub resolve_linker
5438 {
5439     my (%linkers) = @_;
5440
5441     foreach my $l (qw(GCJLINK CXXLINK F77LINK FCLINK OBJCLINK))
5442     {
5443         return $l if defined $linkers{$l};
5444     }
5445     return 'LINK';
5446 }
5447
5448 # Called to indicate that an extension was used.
5449 sub saw_extension
5450 {
5451     my ($ext) = @_;
5452     if (! defined $extension_seen{$ext})
5453     {
5454         $extension_seen{$ext} = 1;
5455     }
5456     else
5457     {
5458         ++$extension_seen{$ext};
5459     }
5460 }
5461
5462 # Return the number of files seen for a given language.  Knows about
5463 # special cases we care about.  FIXME: this is hideous.  We need
5464 # something that involves real language objects.  For instance yacc
5465 # and yaccxx could both derive from a common yacc class which would
5466 # know about the strange ylwrap requirement.  (Or better yet we could
5467 # just not support legacy yacc!)
5468 sub count_files_for_language
5469 {
5470     my ($name) = @_;
5471
5472     my @names;
5473     if ($name eq 'yacc' || $name eq 'yaccxx')
5474     {
5475         @names = ('yacc', 'yaccxx');
5476     }
5477     elsif ($name eq 'lex' || $name eq 'lexxx')
5478     {
5479         @names = ('lex', 'lexxx');
5480     }
5481     else
5482     {
5483         @names = ($name);
5484     }
5485
5486     my $r = 0;
5487     foreach $name (@names)
5488     {
5489         my $lang = $languages{$name};
5490         foreach my $ext (@{$lang->extensions})
5491         {
5492             $r += $extension_seen{$ext}
5493                 if defined $extension_seen{$ext};
5494         }
5495     }
5496
5497     return $r
5498 }
5499
5500 # Called to ask whether source files have been seen . If HEADERS is 1,
5501 # headers can be included.
5502 sub saw_sources_p
5503 {
5504     my ($headers) = @_;
5505
5506     # count all the sources
5507     my $count = 0;
5508     foreach my $val (values %extension_seen)
5509     {
5510         $count += $val;
5511     }
5512
5513     if (!$headers)
5514     {
5515         $count -= count_files_for_language ('header');
5516     }
5517
5518     return $count > 0;
5519 }
5520
5521
5522 # register_language (%ATTRIBUTE)
5523 # ------------------------------
5524 # Register a single language.
5525 # Each %ATTRIBUTE is of the form ATTRIBUTE => VALUE.
5526 sub register_language (%)
5527 {
5528   my (%option) = @_;
5529
5530   # Set the defaults.
5531   $option{'ansi'} = 0
5532     unless defined $option{'ansi'};
5533   $option{'autodep'} = 'no'
5534     unless defined $option{'autodep'};
5535   $option{'linker'} = ''
5536     unless defined $option{'linker'};
5537   $option{'flags'} = []
5538     unless defined $option{'flags'};
5539   $option{'output_extensions'} = sub { return ( '.$(OBJEXT)', '.lo' ) }
5540     unless defined $option{'output_extensions'};
5541   $option{'nodist_specific'} = 0
5542     unless defined $option{'nodist_specific'};
5543
5544   my $lang = new Language (%option);
5545
5546   # Fill indexes.
5547   $extension_map{$_} = $lang->name foreach @{$lang->extensions};
5548   $languages{$lang->name} = $lang;
5549
5550   # Update the pattern of known extensions.
5551   accept_extensions (@{$lang->extensions});
5552
5553   # Upate the $suffix_rule map.
5554   foreach my $suffix (@{$lang->extensions})
5555     {
5556       foreach my $dest (&{$lang->output_extensions} ($suffix))
5557         {
5558           register_suffix_rule (INTERNAL, $suffix, $dest);
5559         }
5560     }
5561 }
5562
5563 # derive_suffix ($EXT, $OBJ)
5564 # --------------------------
5565 # This function is used to find a path from a user-specified suffix $EXT
5566 # to $OBJ or to some other suffix we recognize internally, e.g. `cc'.
5567 sub derive_suffix ($$)
5568 {
5569   my ($source_ext, $obj) = @_;
5570
5571   while (! $extension_map{$source_ext}
5572          && $source_ext ne $obj
5573          && exists $suffix_rules->{$source_ext}
5574          && exists $suffix_rules->{$source_ext}{$obj})
5575     {
5576       $source_ext = $suffix_rules->{$source_ext}{$obj}[0];
5577     }
5578
5579   return $source_ext;
5580 }
5581
5582
5583 ################################################################
5584
5585 # Pretty-print something and append to output_rules.
5586 sub pretty_print_rule
5587 {
5588     $output_rules .= &makefile_wrap (@_);
5589 }
5590
5591
5592 ################################################################
5593
5594
5595 ## -------------------------------- ##
5596 ## Handling the conditional stack.  ##
5597 ## -------------------------------- ##
5598
5599
5600 # $STRING
5601 # make_conditional_string ($NEGATE, $COND)
5602 # ----------------------------------------
5603 sub make_conditional_string ($$)
5604 {
5605   my ($negate, $cond) = @_;
5606   $cond = "${cond}_TRUE"
5607     unless $cond =~ /^TRUE|FALSE$/;
5608   $cond = Automake::Condition::conditional_negate ($cond)
5609     if $negate;
5610   return $cond;
5611 }
5612
5613
5614 # $COND
5615 # cond_stack_if ($NEGATE, $COND, $WHERE)
5616 # --------------------------------------
5617 sub cond_stack_if ($$$)
5618 {
5619   my ($negate, $cond, $where) = @_;
5620
5621   error $where, "$cond does not appear in AM_CONDITIONAL"
5622     if ! $configure_cond{$cond} && $cond !~ /^TRUE|FALSE$/;
5623
5624   push (@cond_stack, make_conditional_string ($negate, $cond));
5625
5626   return new Automake::Condition (@cond_stack);
5627 }
5628
5629
5630 # $COND
5631 # cond_stack_else ($NEGATE, $COND, $WHERE)
5632 # ----------------------------------------
5633 sub cond_stack_else ($$$)
5634 {
5635   my ($negate, $cond, $where) = @_;
5636
5637   if (! @cond_stack)
5638     {
5639       error $where, "else without if";
5640       return FALSE;
5641     }
5642
5643   $cond_stack[$#cond_stack] =
5644     Automake::Condition::conditional_negate ($cond_stack[$#cond_stack]);
5645
5646   # If $COND is given, check against it.
5647   if (defined $cond)
5648     {
5649       $cond = make_conditional_string ($negate, $cond);
5650
5651       error ($where, "else reminder ($negate$cond) incompatible with "
5652              . "current conditional: $cond_stack[$#cond_stack]")
5653         if $cond_stack[$#cond_stack] ne $cond;
5654     }
5655
5656   return new Automake::Condition (@cond_stack);
5657 }
5658
5659
5660 # $COND
5661 # cond_stack_endif ($NEGATE, $COND, $WHERE)
5662 # -----------------------------------------
5663 sub cond_stack_endif ($$$)
5664 {
5665   my ($negate, $cond, $where) = @_;
5666   my $old_cond;
5667
5668   if (! @cond_stack)
5669     {
5670       error $where, "endif without if";
5671       return TRUE;
5672     }
5673
5674   # If $COND is given, check against it.
5675   if (defined $cond)
5676     {
5677       $cond = make_conditional_string ($negate, $cond);
5678
5679       error ($where, "endif reminder ($negate$cond) incompatible with "
5680              . "current conditional: $cond_stack[$#cond_stack]")
5681         if $cond_stack[$#cond_stack] ne $cond;
5682     }
5683
5684   pop @cond_stack;
5685
5686   return new Automake::Condition (@cond_stack);
5687 }
5688
5689
5690
5691
5692
5693 ## ------------------------ ##
5694 ## Handling the variables.  ##
5695 ## ------------------------ ##
5696
5697
5698 # &define_pretty_variable ($VAR, $COND, $WHERE, @VALUE)
5699 # -----------------------------------------------------
5700 # Like define_variable, but the value is a list, and the variable may
5701 # be defined conditionally.  The second argument is the Condition
5702 # under which the value should be defined; this should be the empty
5703 # string to define the variable unconditionally.  The third argument
5704 # is a list holding the values to use for the variable.  The value is
5705 # pretty printed in the output file.
5706 sub define_pretty_variable ($$$@)
5707 {
5708     my ($var, $cond, $where, @value) = @_;
5709
5710     if (! vardef ($var, $cond))
5711     {
5712         Automake::Variable::define ($var, VAR_AUTOMAKE, '', $cond, "@value",
5713                                     '', $where, VAR_PRETTY);
5714         rvar ($var)->rdef ($cond)->set_seen;
5715     }
5716 }
5717
5718
5719 # define_variable ($VAR, $VALUE, $WHERE)
5720 # --------------------------------------
5721 # Define a new Automake Makefile variable VAR to VALUE, but only if
5722 # not already defined.
5723 sub define_variable ($$$)
5724 {
5725     my ($var, $value, $where) = @_;
5726     define_pretty_variable ($var, TRUE, $where, $value);
5727 }
5728
5729
5730 # define_files_variable ($VAR, \@BASENAME, $EXTENSION, $WHERE)
5731 # -----------------------------------------------------------
5732 # Define the $VAR which content is the list of file names composed of
5733 # a @BASENAME and the $EXTENSION.
5734 sub define_files_variable ($\@$$)
5735 {
5736   my ($var, $basename, $extension, $where) = @_;
5737   define_variable ($var,
5738                    join (' ', map { "$_.$extension" } @$basename),
5739                    $where);
5740 }
5741
5742
5743 # Like define_variable, but define a variable to be the configure
5744 # substitution by the same name.
5745 sub define_configure_variable ($)
5746 {
5747   my ($var) = @_;
5748
5749   my $pretty = VAR_ASIS;
5750   my $owner = VAR_CONFIGURE;
5751
5752   # Do not output the ANSI2KNR configure variable -- we AC_SUBST
5753   # it in protos.m4, but later redefine it elsewhere.  This is
5754   # pretty hacky.  We also don't output AMDEPBACKSLASH: it might
5755   # be subst'd by `\', which certainly would not be appreciated by
5756   # Make.
5757   if ($var eq 'ANSI2KNR' || $var eq 'AMDEPBACKSLASH')
5758     {
5759       $pretty = VAR_SILENT;
5760       $owner = VAR_AUTOMAKE;
5761     }
5762
5763   Automake::Variable::define ($var, $owner, '', TRUE, subst $var,
5764                               '', $configure_vars{$var}, $pretty);
5765 }
5766
5767
5768 # define_compiler_variable ($LANG)
5769 # --------------------------------
5770 # Define a compiler variable.  We also handle defining the `LT'
5771 # version of the command when using libtool.
5772 sub define_compiler_variable ($)
5773 {
5774     my ($lang) = @_;
5775
5776     my ($var, $value) = ($lang->compiler, $lang->compile);
5777     my $libtool_tag = '';
5778     $libtool_tag = '--tag=' . $lang->libtool_tag . ' '
5779       if $lang->libtool_tag && exists $libtool_tags{$lang->libtool_tag};
5780     &define_variable ($var, $value, INTERNAL);
5781     &define_variable ("LT$var",
5782                       "\$(LIBTOOL) $libtool_tag\$(AM_LIBTOOLFLAGS) "
5783                       . "\$(LIBTOOLFLAGS) --mode=compile $value",
5784                       INTERNAL)
5785       if var ('LIBTOOL');
5786 }
5787
5788
5789 # define_linker_variable ($LANG)
5790 # ------------------------------
5791 # Define linker variables.
5792 sub define_linker_variable ($)
5793 {
5794     my ($lang) = @_;
5795
5796     my ($var, $value) = ($lang->lder, $lang->ld);
5797     my $libtool_tag = '';
5798     $libtool_tag = '--tag=' . $lang->libtool_tag . ' '
5799       if $lang->libtool_tag && exists $libtool_tags{$lang->libtool_tag};
5800     # CCLD = $(CC).
5801     &define_variable ($lang->lder, $lang->ld, INTERNAL);
5802     # CCLINK = $(CCLD) blah blah...
5803     &define_variable ($lang->linker,
5804                       ((var ('LIBTOOL') ?
5805                         "\$(LIBTOOL) $libtool_tag\$(AM_LIBTOOLFLAGS) "
5806                         . "\$(LIBTOOLFLAGS) --mode=link " : '')
5807                        . $lang->link),
5808                       INTERNAL);
5809 }
5810
5811 ################################################################
5812
5813 # &check_trailing_slash ($WHERE, $LINE)
5814 # --------------------------------------
5815 # Return 1 iff $LINE ends with a slash.
5816 # Might modify $LINE.
5817 sub check_trailing_slash ($\$)
5818 {
5819   my ($where, $line) = @_;
5820
5821   # Ignore `##' lines.
5822   return 0 if $$line =~ /$IGNORE_PATTERN/o;
5823
5824   # Catch and fix a common error.
5825   msg "syntax", $where, "whitespace following trailing backslash"
5826     if $$line =~ s/\\\s+\n$/\\\n/;
5827
5828   return $$line =~ /\\$/;
5829 }
5830
5831
5832 # &read_am_file ($AMFILE, $WHERE)
5833 # -------------------------------
5834 # Read Makefile.am and set up %contents.  Simultaneously copy lines
5835 # from Makefile.am into $output_trailer, or define variables as
5836 # appropriate.  NOTE we put rules in the trailer section.  We want
5837 # user rules to come after our generated stuff.
5838 sub read_am_file ($$)
5839 {
5840     my ($amfile, $where) = @_;
5841
5842     my $am_file = new Automake::XFile ("< $amfile");
5843     verb "reading $amfile";
5844
5845     # Keep track of the youngest output dependency.
5846     my $mtime = mtime $amfile;
5847     $output_deps_greatest_timestamp = $mtime
5848       if $mtime > $output_deps_greatest_timestamp;
5849
5850     my $spacing = '';
5851     my $comment = '';
5852     my $blank = 0;
5853     my $saw_bk = 0;
5854
5855     use constant IN_VAR_DEF => 0;
5856     use constant IN_RULE_DEF => 1;
5857     use constant IN_COMMENT => 2;
5858     my $prev_state = IN_RULE_DEF;
5859
5860     while ($_ = $am_file->getline)
5861     {
5862         $where->set ("$amfile:$.");
5863         if (/$IGNORE_PATTERN/o)
5864         {
5865             # Merely delete comments beginning with two hashes.
5866         }
5867         elsif (/$WHITE_PATTERN/o)
5868         {
5869             error $where, "blank line following trailing backslash"
5870               if $saw_bk;
5871             # Stick a single white line before the incoming macro or rule.
5872             $spacing = "\n";
5873             $blank = 1;
5874             # Flush all comments seen so far.
5875             if ($comment ne '')
5876             {
5877                 $output_vars .= $comment;
5878                 $comment = '';
5879             }
5880         }
5881         elsif (/$COMMENT_PATTERN/o)
5882         {
5883             # Stick comments before the incoming macro or rule.  Make
5884             # sure a blank line precedes the first block of comments.
5885             $spacing = "\n" unless $blank;
5886             $blank = 1;
5887             $comment .= $spacing . $_;
5888             $spacing = '';
5889             $prev_state = IN_COMMENT;
5890         }
5891         else
5892         {
5893             last;
5894         }
5895         $saw_bk = check_trailing_slash ($where, $_);
5896     }
5897
5898     # We save the conditional stack on entry, and then check to make
5899     # sure it is the same on exit.  This lets us conditionally include
5900     # other files.
5901     my @saved_cond_stack = @cond_stack;
5902     my $cond = new Automake::Condition (@cond_stack);
5903
5904     my $last_var_name = '';
5905     my $last_var_type = '';
5906     my $last_var_value = '';
5907     my $last_where;
5908     # FIXME: shouldn't use $_ in this loop; it is too big.
5909     while ($_)
5910     {
5911         $where->set ("$amfile:$.");
5912
5913         # Make sure the line is \n-terminated.
5914         chomp;
5915         $_ .= "\n";
5916
5917         # Don't look at MAINTAINER_MODE_TRUE here.  That shouldn't be
5918         # used by users.  @MAINT@ is an anachronism now.
5919         $_ =~ s/\@MAINT\@//g
5920             unless $seen_maint_mode;
5921
5922         my $new_saw_bk = check_trailing_slash ($where, $_);
5923
5924         if (/$IGNORE_PATTERN/o)
5925         {
5926             # Merely delete comments beginning with two hashes.
5927         }
5928         elsif (/$WHITE_PATTERN/o)
5929         {
5930             # Stick a single white line before the incoming macro or rule.
5931             $spacing = "\n";
5932             error $where, "blank line following trailing backslash"
5933               if $saw_bk;
5934         }
5935         elsif (/$COMMENT_PATTERN/o)
5936         {
5937             # Stick comments before the incoming macro or rule.
5938             $comment .= $spacing . $_;
5939             $spacing = '';
5940             error $where, "comment following trailing backslash"
5941               if $saw_bk && $comment eq '';
5942             $prev_state = IN_COMMENT;
5943         }
5944         elsif ($saw_bk)
5945         {
5946             if ($prev_state == IN_RULE_DEF)
5947             {
5948               my $cond = new Automake::Condition @cond_stack;
5949               $output_trailer .= $cond->subst_string;
5950               $output_trailer .= $_;
5951             }
5952             elsif ($prev_state == IN_COMMENT)
5953             {
5954                 # If the line doesn't start with a `#', add it.
5955                 # We do this because a continued comment like
5956                 #   # A = foo \
5957                 #         bar \
5958                 #         baz
5959                 # is not portable.  BSD make doesn't honor
5960                 # escaped newlines in comments.
5961                 s/^#?/#/;
5962                 $comment .= $spacing . $_;
5963             }
5964             else # $prev_state == IN_VAR_DEF
5965             {
5966               $last_var_value .= ' '
5967                 unless $last_var_value =~ /\s$/;
5968               $last_var_value .= $_;
5969
5970               if (!/\\$/)
5971                 {
5972                   Automake::Variable::define ($last_var_name, VAR_MAKEFILE,
5973                                               $last_var_type, $cond,
5974                                               $last_var_value, $comment,
5975                                               $last_where, VAR_ASIS)
5976                     if $cond != FALSE;
5977                   $comment = $spacing = '';
5978                 }
5979             }
5980         }
5981
5982         elsif (/$IF_PATTERN/o)
5983           {
5984             $cond = cond_stack_if ($1, $2, $where);
5985           }
5986         elsif (/$ELSE_PATTERN/o)
5987           {
5988             $cond = cond_stack_else ($1, $2, $where);
5989           }
5990         elsif (/$ENDIF_PATTERN/o)
5991           {
5992             $cond = cond_stack_endif ($1, $2, $where);
5993           }
5994
5995         elsif (/$RULE_PATTERN/o)
5996         {
5997             # Found a rule.
5998             $prev_state = IN_RULE_DEF;
5999
6000             # For now we have to output all definitions of user rules
6001             # and can't diagnose duplicates (see the comment in
6002             # rule_define). So we go on and ignore the return value.
6003             Automake::Rule::define ($1, $amfile, RULE_USER, $cond, $where);
6004
6005             check_variable_expansions ($_, $where);
6006
6007             $output_trailer .= $comment . $spacing;
6008             my $cond = new Automake::Condition @cond_stack;
6009             $output_trailer .= $cond->subst_string;
6010             $output_trailer .= $_;
6011             $comment = $spacing = '';
6012         }
6013         elsif (/$ASSIGNMENT_PATTERN/o)
6014         {
6015             # Found a macro definition.
6016             $prev_state = IN_VAR_DEF;
6017             $last_var_name = $1;
6018             $last_var_type = $2;
6019             $last_var_value = $3;
6020             $last_where = $where->clone;
6021             if ($3 ne '' && substr ($3, -1) eq "\\")
6022             {
6023                 # We preserve the `\' because otherwise the long lines
6024                 # that are generated will be truncated by broken
6025                 # `sed's.
6026                 $last_var_value = $3 . "\n";
6027             }
6028
6029             if (!/\\$/)
6030               {
6031                 Automake::Variable::define ($last_var_name, VAR_MAKEFILE,
6032                                             $last_var_type, $cond,
6033                                             $last_var_value, $comment,
6034                                             $last_where, VAR_ASIS)
6035                   if $cond != FALSE;
6036                 $comment = $spacing = '';
6037               }
6038         }
6039         elsif (/$INCLUDE_PATTERN/o)
6040         {
6041             my $path = $1;
6042
6043             if ($path =~ s/^\$\(top_srcdir\)\///)
6044               {
6045                 push (@include_stack, "\$\(top_srcdir\)/$path");
6046                 # Distribute any included file.
6047
6048                 # Always use the $(top_srcdir) prefix in DIST_COMMON,
6049                 # otherwise OSF make will implicitly copy the included
6050                 # file in the build tree during `make distdir' to satisfy
6051                 # the dependency.
6052                 # (subdircond2.test and subdircond3.test will fail.)
6053                 push_dist_common ("\$\(top_srcdir\)/$path");
6054               }
6055             else
6056               {
6057                 $path =~ s/\$\(srcdir\)\///;
6058                 push (@include_stack, "\$\(srcdir\)/$path");
6059                 # Always use the $(srcdir) prefix in DIST_COMMON,
6060                 # otherwise OSF make will implicitly copy the included
6061                 # file in the build tree during `make distdir' to satisfy
6062                 # the dependency.
6063                 # (subdircond2.test and subdircond3.test will fail.)
6064                 push_dist_common ("\$\(srcdir\)/$path");
6065                 $path = $relative_dir . "/" . $path if $relative_dir ne '.';
6066               }
6067             $where->push_context ("`$path' included from here");
6068             &read_am_file ($path, $where);
6069             $where->pop_context;
6070         }
6071         else
6072         {
6073             # This isn't an error; it is probably a continued rule.
6074             # In fact, this is what we assume.
6075             $prev_state = IN_RULE_DEF;
6076             check_variable_expansions ($_, $where);
6077             $output_trailer .= $comment . $spacing;
6078             my $cond = new Automake::Condition @cond_stack;
6079             $output_trailer .= $cond->subst_string;
6080             $output_trailer .= $_;
6081             $comment = $spacing = '';
6082             error $where, "`#' comment at start of rule is unportable"
6083               if $_ =~ /^\t\s*\#/;
6084         }
6085
6086         $saw_bk = $new_saw_bk;
6087         $_ = $am_file->getline;
6088     }
6089
6090     $output_trailer .= $comment;
6091
6092     error ($where, "trailing backslash on last line")
6093       if $saw_bk;
6094
6095     error ($where, (@cond_stack ? "unterminated conditionals: @cond_stack"
6096                     : "too many conditionals closed in include file"))
6097       if "@saved_cond_stack" ne "@cond_stack";
6098 }
6099
6100
6101 # define_standard_variables ()
6102 # ----------------------------
6103 # A helper for read_main_am_file which initializes configure variables
6104 # and variables from header-vars.am.
6105 sub define_standard_variables
6106 {
6107   my $saved_output_vars = $output_vars;
6108   my ($comments, undef, $rules) =
6109     file_contents_internal (1, "$libdir/am/header-vars.am",
6110                             new Automake::Location);
6111
6112   foreach my $var (sort keys %configure_vars)
6113     {
6114       &define_configure_variable ($var);
6115     }
6116
6117   $output_vars .= $comments . $rules;
6118 }
6119
6120 # Read main am file.
6121 sub read_main_am_file
6122 {
6123     my ($amfile) = @_;
6124
6125     # This supports the strange variable tricks we are about to play.
6126     prog_error (macros_dump () . "variable defined before read_main_am_file")
6127       if (scalar (variables) > 0);
6128
6129     # Generate copyright header for generated Makefile.in.
6130     # We do discard the output of predefined variables, handled below.
6131     $output_vars = ("# $in_file_name generated by automake "
6132                    . $VERSION . " from $am_file_name.\n");
6133     $output_vars .= '# ' . subst ('configure_input') . "\n";
6134     $output_vars .= $gen_copyright;
6135
6136     # We want to predefine as many variables as possible.  This lets
6137     # the user set them with `+=' in Makefile.am.
6138     &define_standard_variables;
6139
6140     # Read user file, which might override some of our values.
6141     &read_am_file ($amfile, new Automake::Location);
6142 }
6143
6144
6145
6146 ################################################################
6147
6148 # $FLATTENED
6149 # &flatten ($STRING)
6150 # ------------------
6151 # Flatten the $STRING and return the result.
6152 sub flatten
6153 {
6154   $_ = shift;
6155
6156   s/\\\n//somg;
6157   s/\s+/ /g;
6158   s/^ //;
6159   s/ $//;
6160
6161   return $_;
6162 }
6163
6164 # transform($TOKEN, \%PAIRS)
6165 # ==========================
6166 # If ($TOKEN, $VAL) is in %PAIRS:
6167 #   - replaces %$TOKEN% with $VAL,
6168 #   - enables/disables ?$TOKEN? and ?!$TOKEN?,
6169 #   - replaces %?$TOKEN% with TRUE or FALSE.
6170 sub transform($$)
6171 {
6172   my ($token, $transform) = @_;
6173
6174   if (substr ($token, 0, 1) eq '%')
6175     {
6176       my $cond = (substr ($token, 1, 1) eq '?') ? 1 : 0;
6177       $token = substr ($token, 1 + $cond, -1);
6178       my $val = $transform->{$token};
6179       prog_error "Unknown %token% `$token'" unless defined $val;
6180       if ($cond)
6181         {
6182           return $val ? 'TRUE' : 'FALSE';
6183         }
6184       else
6185         {
6186           return $val;
6187         }
6188     }
6189   # Now $token is '?xxx?' or '?!xxx?'.
6190   my $neg = (substr ($token, 1, 1) eq '!') ? 1 : 0;
6191   $token = substr ($token, 1 + $neg, -1);
6192   my $val = $transform->{$token};
6193   prog_error "Unknown ?token? `$token' (neg = $neg)" unless defined $val;
6194   return (!!$val == $neg) ? '##%' : '';
6195 }
6196
6197 # @PARAGRAPHS
6198 # &make_paragraphs ($MAKEFILE, [%TRANSFORM])
6199 # ------------------------------------------
6200 # Load a $MAKEFILE, apply the %TRANSFORM, and return it as a list of
6201 # paragraphs.
6202 sub make_paragraphs ($%)
6203 {
6204   my ($file, %transform) = @_;
6205
6206   # Complete %transform with global options.
6207   # Note that %transform goes last, so it overrides global options.
6208   %transform = ('CYGNUS'      => !! option 'cygnus',
6209                  'MAINTAINER-MODE'
6210                  => $seen_maint_mode ? subst ('MAINTAINER_MODE_TRUE') : '',
6211
6212                  'BZIP2'       => !! option 'dist-bzip2',
6213                  'COMPRESS'    => !! option 'dist-tarZ',
6214                  'GZIP'        =>  ! option 'no-dist-gzip',
6215                  'SHAR'        => !! option 'dist-shar',
6216                  'ZIP'         => !! option 'dist-zip',
6217
6218                  'INSTALL-INFO' =>  ! option 'no-installinfo',
6219                  'INSTALL-MAN'  =>  ! option 'no-installman',
6220                  'CK-NEWS'      => !! option 'check-news',
6221
6222                  'SUBDIRS'      => !! var ('SUBDIRS'),
6223                  'TOPDIR'       => backname ($relative_dir),
6224                  'TOPDIR_P'     => $relative_dir eq '.',
6225
6226                  'BUILD'    => ($seen_canonical >= AC_CANONICAL_BUILD),
6227                  'HOST'     => ($seen_canonical >= AC_CANONICAL_HOST),
6228                  'TARGET'   => ($seen_canonical >= AC_CANONICAL_TARGET),
6229
6230                  'LIBTOOL'      => !! var ('LIBTOOL'),
6231                  'NONLIBTOOL'   => 1,
6232                  'FIRST'        => ! $transformed_files{$file},
6233                 %transform);
6234
6235   $transformed_files{$file} = 1;
6236   $_ = $am_file_cache{$file};
6237
6238   if (! defined $_)
6239     {
6240       verb "reading $file";
6241       # Swallow the whole file.
6242       my $fc_file = new Automake::XFile "< $file";
6243       my $saved_dollar_slash = $/;
6244       undef $/;
6245       $_ = $fc_file->getline;
6246       $/ = $saved_dollar_slash;
6247       $fc_file->close;
6248
6249       # Remove ##-comments.
6250       # Besides we don't need more than two consecutive new-lines.
6251       s/(?:$IGNORE_PATTERN|(?<=\n\n)\n+)//gom;
6252
6253       $am_file_cache{$file} = $_;
6254     }
6255
6256   # Substitute Automake template tokens.
6257   s/(?:%\??[\w\-]+%|\?!?[\w\-]+\?)/transform($&, \%transform)/ge;
6258   # transform() may have added some ##%-comments to strip.
6259   # (we use `##%' instead of `##' so we can distinguish ##%##%##% from
6260   # ####### and do not remove the latter.)
6261   s/^[ \t]*(?:##%)+.*\n//gm;
6262
6263   # Split at unescaped new lines.
6264   my @lines = split (/(?<!\\)\n/, $_);
6265   my @res;
6266
6267   while (defined ($_ = shift @lines))
6268     {
6269       my $paragraph = $_;
6270       # If we are a rule, eat as long as we start with a tab.
6271       if (/$RULE_PATTERN/smo)
6272         {
6273           while (defined ($_ = shift @lines) && $_ =~ /^\t/)
6274             {
6275               $paragraph .= "\n$_";
6276             }
6277           unshift (@lines, $_);
6278         }
6279
6280       # If we are a comments, eat as much comments as you can.
6281       elsif (/$COMMENT_PATTERN/smo)
6282         {
6283           while (defined ($_ = shift @lines)
6284                  && $_ =~ /$COMMENT_PATTERN/smo)
6285             {
6286               $paragraph .= "\n$_";
6287             }
6288           unshift (@lines, $_);
6289         }
6290
6291       push @res, $paragraph;
6292     }
6293
6294   return @res;
6295 }
6296
6297
6298
6299 # ($COMMENT, $VARIABLES, $RULES)
6300 # &file_contents_internal ($IS_AM, $FILE, $WHERE, [%TRANSFORM])
6301 # -------------------------------------------------------------
6302 # Return contents of a file from $libdir/am, automatically skipping
6303 # macros or rules which are already known. $IS_AM iff the caller is
6304 # reading an Automake file (as opposed to the user's Makefile.am).
6305 sub file_contents_internal ($$$%)
6306 {
6307     my ($is_am, $file, $where, %transform) = @_;
6308
6309     $where->set ($file);
6310
6311     my $result_vars = '';
6312     my $result_rules = '';
6313     my $comment = '';
6314     my $spacing = '';
6315
6316     # The following flags are used to track rules spanning across
6317     # multiple paragraphs.
6318     my $is_rule = 0;            # 1 if we are processing a rule.
6319     my $discard_rule = 0;       # 1 if the current rule should not be output.
6320
6321     # We save the conditional stack on entry, and then check to make
6322     # sure it is the same on exit.  This lets us conditionally include
6323     # other files.
6324     my @saved_cond_stack = @cond_stack;
6325     my $cond = new Automake::Condition (@cond_stack);
6326
6327     foreach (make_paragraphs ($file, %transform))
6328     {
6329         # FIXME: no line number available.
6330         $where->set ($file);
6331
6332         # Sanity checks.
6333         error $where, "blank line following trailing backslash:\n$_"
6334           if /\\$/;
6335         error $where, "comment following trailing backslash:\n$_"
6336           if /\\#/;
6337
6338         if (/^$/)
6339         {
6340             $is_rule = 0;
6341             # Stick empty line before the incoming macro or rule.
6342             $spacing = "\n";
6343         }
6344         elsif (/$COMMENT_PATTERN/mso)
6345         {
6346             $is_rule = 0;
6347             # Stick comments before the incoming macro or rule.
6348             $comment = "$_\n";
6349         }
6350
6351         # Handle inclusion of other files.
6352         elsif (/$INCLUDE_PATTERN/o)
6353         {
6354             if ($cond != FALSE)
6355               {
6356                 my $file = ($is_am ? "$libdir/am/" : '') . $1;
6357                 $where->push_context ("`$file' included from here");
6358                 # N-ary `.=' fails.
6359                 my ($com, $vars, $rules)
6360                   = file_contents_internal ($is_am, $file, $where, %transform);
6361                 $where->pop_context;
6362                 $comment .= $com;
6363                 $result_vars .= $vars;
6364                 $result_rules .= $rules;
6365               }
6366         }
6367
6368         # Handling the conditionals.
6369         elsif (/$IF_PATTERN/o)
6370           {
6371             $cond = cond_stack_if ($1, $2, $file);
6372           }
6373         elsif (/$ELSE_PATTERN/o)
6374           {
6375             $cond = cond_stack_else ($1, $2, $file);
6376           }
6377         elsif (/$ENDIF_PATTERN/o)
6378           {
6379             $cond = cond_stack_endif ($1, $2, $file);
6380           }
6381
6382         # Handling rules.
6383         elsif (/$RULE_PATTERN/mso)
6384         {
6385           $is_rule = 1;
6386           $discard_rule = 0;
6387           # Separate relationship from optional actions: the first
6388           # `new-line tab" not preceded by backslash (continuation
6389           # line).
6390           my $paragraph = $_;
6391           /^(.*?)(?:(?<!\\)\n(\t.*))?$/s;
6392           my ($relationship, $actions) = ($1, $2 || '');
6393
6394           # Separate targets from dependencies: the first colon.
6395           $relationship =~ /^([^:]+\S+) *: *(.*)$/som;
6396           my ($targets, $dependencies) = ($1, $2);
6397           # Remove the escaped new lines.
6398           # I don't know why, but I have to use a tmp $flat_deps.
6399           my $flat_deps = &flatten ($dependencies);
6400           my @deps = split (' ', $flat_deps);
6401
6402           foreach (split (' ' , $targets))
6403             {
6404               # FIXME: 1. We are not robust to people defining several targets
6405               # at once, only some of them being in %dependencies.  The
6406               # actions from the targets in %dependencies are usually generated
6407               # from the content of %actions, but if some targets in $targets
6408               # are not in %dependencies the ELSE branch will output
6409               # a rule for all $targets (i.e. the targets which are both
6410               # in %dependencies and $targets will have two rules).
6411
6412               # FIXME: 2. The logic here is not able to output a
6413               # multi-paragraph rule several time (e.g. for each condition
6414               # it is defined for) because it only knows the first paragraph.
6415
6416               # FIXME: 3. We are not robust to people defining a subset
6417               # of a previously defined "multiple-target" rule.  E.g.
6418               # `foo:' after `foo bar:'.
6419
6420               # Output only if not in FALSE.
6421               if (defined $dependencies{$_} && $cond != FALSE)
6422                 {
6423                   &depend ($_, @deps);
6424                   if ($actions{$_})
6425                     {
6426                       $actions{$_} .= "\n$actions" if $actions;
6427                     }
6428                   else
6429                     {
6430                       $actions{$_} = $actions;
6431                     }
6432                 }
6433               else
6434                 {
6435                   # Free-lance dependency.  Output the rule for all the
6436                   # targets instead of one by one.
6437                   my @undefined_conds =
6438                     Automake::Rule::define ($targets, $file,
6439                                             $is_am ? RULE_AUTOMAKE : RULE_USER,
6440                                             $cond, $where);
6441                   for my $undefined_cond (@undefined_conds)
6442                     {
6443                       my $condparagraph = $paragraph;
6444                       $condparagraph =~ s/^/$undefined_cond->subst_string/gme;
6445                       $result_rules .= "$spacing$comment$condparagraph\n";
6446                     }
6447                   if (scalar @undefined_conds == 0)
6448                     {
6449                       # Remember to discard next paragraphs
6450                       # if they belong to this rule.
6451                       # (but see also FIXME: #2 above.)
6452                       $discard_rule = 1;
6453                     }
6454                   $comment = $spacing = '';
6455                   last;
6456                 }
6457             }
6458         }
6459
6460         elsif (/$ASSIGNMENT_PATTERN/mso)
6461         {
6462             my ($var, $type, $val) = ($1, $2, $3);
6463             error $where, "variable `$var' with trailing backslash"
6464               if /\\$/;
6465
6466             $is_rule = 0;
6467
6468             Automake::Variable::define ($var,
6469                                         $is_am ? VAR_AUTOMAKE : VAR_MAKEFILE,
6470                                         $type, $cond, $val, $comment, $where,
6471                                         VAR_ASIS)
6472               if $cond != FALSE;
6473
6474             $comment = $spacing = '';
6475         }
6476         else
6477         {
6478             # This isn't an error; it is probably some tokens which
6479             # configure is supposed to replace, such as `@SET-MAKE@',
6480             # or some part of a rule cut by an if/endif.
6481             if (! $cond->false && ! ($is_rule && $discard_rule))
6482               {
6483                 s/^/$cond->subst_string/gme;
6484                 $result_rules .= "$spacing$comment$_\n";
6485               }
6486             $comment = $spacing = '';
6487         }
6488     }
6489
6490     error ($where, @cond_stack ?
6491            "unterminated conditionals: @cond_stack" :
6492            "too many conditionals closed in include file")
6493       if "@saved_cond_stack" ne "@cond_stack";
6494
6495     return ($comment, $result_vars, $result_rules);
6496 }
6497
6498
6499 # $CONTENTS
6500 # &file_contents ($BASENAME, $WHERE, [%TRANSFORM])
6501 # ------------------------------------------------
6502 # Return contents of a file from $libdir/am, automatically skipping
6503 # macros or rules which are already known.
6504 sub file_contents ($$%)
6505 {
6506     my ($basename, $where, %transform) = @_;
6507     my ($comments, $variables, $rules) =
6508       file_contents_internal (1, "$libdir/am/$basename.am", $where,
6509                               %transform);
6510     return "$comments$variables$rules";
6511 }
6512
6513
6514 # &append_exeext ($MACRO)
6515 # -----------------------
6516 # Macro is an Automake magic macro which primary is PROGRAMS, e.g.
6517 # bin_PROGRAMS.  Make sure these programs have $(EXEEXT) appended.
6518 sub append_exeext ($)
6519 {
6520   my ($macro) = @_;
6521
6522   prog_error "append_exeext ($macro)"
6523     unless $macro =~ /_PROGRAMS$/;
6524
6525   transform_variable_recursively
6526     ($macro, $macro, 'am__EXEEXT', 0, INTERNAL,
6527      sub {
6528        my ($subvar, $val, $cond, $full_cond) = @_;
6529        # Append $(EXEEXT) unless the user did it already, or it's a
6530        # @substitution@.
6531        $val .= '$(EXEEXT)' unless $val =~ /(?:\$\(EXEEXT\)$|^[@]\w+[@]$)/;
6532        return $val;
6533      });
6534 }
6535
6536
6537 # @PREFIX
6538 # &am_primary_prefixes ($PRIMARY, $CAN_DIST, @PREFIXES)
6539 # -----------------------------------------------------
6540 # Find all variable prefixes that are used for install directories.  A
6541 # prefix `zar' qualifies iff:
6542 #
6543 # * `zardir' is a variable.
6544 # * `zar_PRIMARY' is a variable.
6545 #
6546 # As a side effect, it looks for misspellings.  It is an error to have
6547 # a variable ending in a "reserved" suffix whose prefix is unknown, e.g.
6548 # "bin_PROGRAMS".  However, unusual prefixes are allowed if a variable
6549 # of the same name (with "dir" appended) exists.  For instance, if the
6550 # variable "zardir" is defined, then "zar_PROGRAMS" becomes valid.
6551 # This is to provide a little extra flexibility in those cases which
6552 # need it.
6553 sub am_primary_prefixes ($$@)
6554 {
6555   my ($primary, $can_dist, @prefixes) = @_;
6556
6557   local $_;
6558   my %valid = map { $_ => 0 } @prefixes;
6559   $valid{'EXTRA'} = 0;
6560   foreach my $var (variables $primary)
6561     {
6562       # Automake is allowed to define variables that look like primaries
6563       # but which aren't.  E.g. INSTALL_sh_DATA.
6564       # Autoconf can also define variables like INSTALL_DATA, so
6565       # ignore all configure variables (at least those which are not
6566       # redefined in Makefile.am).
6567       # FIXME: We should make sure that these variables are not
6568       # conditionally defined (or else adjust the condition below).
6569       my $def = $var->def (TRUE);
6570       next if $def && $def->owner != VAR_MAKEFILE;
6571
6572       my $varname = $var->name;
6573
6574       if ($varname =~ /^(nobase_)?(dist_|nodist_)?(.*)_[[:alnum:]]+$/)
6575         {
6576           my ($base, $dist, $X) = ($1 || '', $2 || '', $3 || '');
6577           if ($dist ne '' && ! $can_dist)
6578             {
6579               err_var ($var,
6580                        "invalid variable `$varname': `dist' is forbidden");
6581             }
6582           # Standard directories must be explicitly allowed.
6583           elsif (! defined $valid{$X} && exists $standard_prefix{$X})
6584             {
6585               err_var ($var,
6586                        "`${X}dir' is not a legitimate directory " .
6587                        "for `$primary'");
6588             }
6589           # A not explicitly valid directory is allowed if Xdir is defined.
6590           elsif (! defined $valid{$X} &&
6591                  $var->requires_variables ("`$varname' is used", "${X}dir"))
6592             {
6593               # Nothing to do.  Any error message has been output
6594               # by $var->requires_variables.
6595             }
6596           else
6597             {
6598               # Ensure all extended prefixes are actually used.
6599               $valid{"$base$dist$X"} = 1;
6600             }
6601         }
6602       else
6603         {
6604           prog_error "unexpected variable name: $varname";
6605         }
6606     }
6607
6608   # Return only those which are actually defined.
6609   return sort grep { var ($_ . '_' . $primary) } keys %valid;
6610 }
6611
6612
6613 # Handle `where_HOW' variable magic.  Does all lookups, generates
6614 # install code, and possibly generates code to define the primary
6615 # variable.  The first argument is the name of the .am file to munge,
6616 # the second argument is the primary variable (e.g. HEADERS), and all
6617 # subsequent arguments are possible installation locations.
6618 #
6619 # Returns list of [$location, $value] pairs, where
6620 # $value's are the values in all where_HOW variable, and $location
6621 # there associated location (the place here their parent variables were
6622 # defined).
6623 #
6624 # FIXME: this should be rewritten to be cleaner.  It should be broken
6625 # up into multiple functions.
6626 #
6627 # Usage is: am_install_var (OPTION..., file, HOW, where...)
6628 sub am_install_var
6629 {
6630   my (@args) = @_;
6631
6632   my $do_require = 1;
6633   my $can_dist = 0;
6634   my $default_dist = 0;
6635   while (@args)
6636     {
6637       if ($args[0] eq '-noextra')
6638         {
6639           $do_require = 0;
6640         }
6641       elsif ($args[0] eq '-candist')
6642         {
6643           $can_dist = 1;
6644         }
6645       elsif ($args[0] eq '-defaultdist')
6646         {
6647           $default_dist = 1;
6648           $can_dist = 1;
6649         }
6650       elsif ($args[0] !~ /^-/)
6651         {
6652           last;
6653         }
6654       shift (@args);
6655     }
6656
6657   my ($file, $primary, @prefix) = @args;
6658
6659   # Now that configure substitutions are allowed in where_HOW
6660   # variables, it is an error to actually define the primary.  We
6661   # allow `JAVA', as it is customarily used to mean the Java
6662   # interpreter.  This is but one of several Java hacks.  Similarly,
6663   # `PYTHON' is customarily used to mean the Python interpreter.
6664   reject_var $primary, "`$primary' is an anachronism"
6665     unless $primary eq 'JAVA' || $primary eq 'PYTHON';
6666
6667   # Get the prefixes which are valid and actually used.
6668   @prefix = am_primary_prefixes ($primary, $can_dist, @prefix);
6669
6670   # If a primary includes a configure substitution, then the EXTRA_
6671   # form is required.  Otherwise we can't properly do our job.
6672   my $require_extra;
6673
6674   my @used = ();
6675   my @result = ();
6676
6677   foreach my $X (@prefix)
6678     {
6679       my $nodir_name = $X;
6680       my $one_name = $X . '_' . $primary;
6681       my $one_var = var $one_name;
6682
6683       my $strip_subdir = 1;
6684       # If subdir prefix should be preserved, do so.
6685       if ($nodir_name =~ /^nobase_/)
6686         {
6687           $strip_subdir = 0;
6688           $nodir_name =~ s/^nobase_//;
6689         }
6690
6691       # If files should be distributed, do so.
6692       my $dist_p = 0;
6693       if ($can_dist)
6694         {
6695           $dist_p = (($default_dist && $nodir_name !~ /^nodist_/)
6696                      || (! $default_dist && $nodir_name =~ /^dist_/));
6697           $nodir_name =~ s/^(dist|nodist)_//;
6698         }
6699
6700
6701       # Use the location of the currently processed variable.
6702       # We are not processing a particular condition, so pick the first
6703       # available.
6704       my $tmpcond = $one_var->conditions->one_cond;
6705       my $where = $one_var->rdef ($tmpcond)->location->clone;
6706
6707       # Append actual contents of where_PRIMARY variable to
6708       # @result, skipping @substitutions@.
6709       foreach my $locvals ($one_var->value_as_list_recursive (location => 1))
6710         {
6711           my ($loc, $value) = @$locvals;
6712           # Skip configure substitutions.
6713           if ($value =~ /^\@.*\@$/)
6714             {
6715               if ($nodir_name eq 'EXTRA')
6716                 {
6717                   error ($where,
6718                          "`$one_name' contains configure substitution, "
6719                          . "but shouldn't");
6720                 }
6721               # Check here to make sure variables defined in
6722               # configure.ac do not imply that EXTRA_PRIMARY
6723               # must be defined.
6724               elsif (! defined $configure_vars{$one_name})
6725                 {
6726                   $require_extra = $one_name
6727                     if $do_require;
6728                 }
6729             }
6730           else
6731             {
6732               push (@result, $locvals);
6733             }
6734         }
6735       # A blatant hack: we rewrite each _PROGRAMS primary to include
6736       # EXEEXT.
6737       append_exeext ($one_name)
6738         if $primary eq 'PROGRAMS';
6739       # "EXTRA" shouldn't be used when generating clean targets,
6740       # all, or install targets.  We used to warn if EXTRA_FOO was
6741       # defined uselessly, but this was annoying.
6742       next
6743         if $nodir_name eq 'EXTRA';
6744
6745       if ($nodir_name eq 'check')
6746         {
6747           push (@check, '$(' . $one_name . ')');
6748         }
6749       else
6750         {
6751           push (@used, '$(' . $one_name . ')');
6752         }
6753
6754       # Is this to be installed?
6755       my $install_p = $nodir_name ne 'noinst' && $nodir_name ne 'check';
6756
6757       # If so, with install-exec? (or install-data?).
6758       my $exec_p = ($nodir_name =~ /$EXEC_DIR_PATTERN/o);
6759
6760       my $check_options_p = $install_p && !! option 'std-options';
6761
6762       # Use the location of the currently processed variable as context.
6763       $where->push_context ("while processing `$one_name'");
6764
6765       # The variable containing all file to distribute.
6766       my $distvar = "\$($one_name)";
6767       $distvar = shadow_unconditionally ($one_name, $where)
6768         if ($dist_p && $one_var->has_conditional_contents);
6769
6770       # Singular form of $PRIMARY.
6771       (my $one_primary = $primary) =~ s/S$//;
6772       $output_rules .= &file_contents ($file, $where,
6773                                        PRIMARY     => $primary,
6774                                        ONE_PRIMARY => $one_primary,
6775                                        DIR         => $X,
6776                                        NDIR        => $nodir_name,
6777                                        BASE        => $strip_subdir,
6778
6779                                        EXEC      => $exec_p,
6780                                        INSTALL   => $install_p,
6781                                        DIST      => $dist_p,
6782                                        DISTVAR   => $distvar,
6783                                        'CK-OPTS' => $check_options_p);
6784     }
6785
6786   # The JAVA variable is used as the name of the Java interpreter.
6787   # The PYTHON variable is used as the name of the Python interpreter.
6788   if (@used && $primary ne 'JAVA' && $primary ne 'PYTHON')
6789     {
6790       # Define it.
6791       define_pretty_variable ($primary, TRUE, INTERNAL, @used);
6792       $output_vars .= "\n";
6793     }
6794
6795   err_var ($require_extra,
6796            "`$require_extra' contains configure substitution,\n"
6797            . "but `EXTRA_$primary' not defined")
6798     if ($require_extra && ! var ('EXTRA_' . $primary));
6799
6800   # Push here because PRIMARY might be configure time determined.
6801   push (@all, '$(' . $primary . ')')
6802     if @used && $primary ne 'JAVA' && $primary ne 'PYTHON';
6803
6804   # Make the result unique.  This lets the user use conditionals in
6805   # a natural way, but still lets us program lazily -- we don't have
6806   # to worry about handling a particular object more than once.
6807   # We will keep only one location per object.
6808   my %result = ();
6809   for my $pair (@result)
6810     {
6811       my ($loc, $val) = @$pair;
6812       $result{$val} = $loc;
6813     }
6814   my @l = sort keys %result;
6815   return map { [$result{$_}->clone, $_] } @l;
6816 }
6817
6818
6819 ################################################################
6820
6821 # Each key in this hash is the name of a directory holding a
6822 # Makefile.in.  These variables are local to `is_make_dir'.
6823 my %make_dirs = ();
6824 my $make_dirs_set = 0;
6825
6826 sub is_make_dir
6827 {
6828     my ($dir) = @_;
6829     if (! $make_dirs_set)
6830     {
6831         foreach my $iter (@configure_input_files)
6832         {
6833             $make_dirs{dirname ($iter)} = 1;
6834         }
6835         # We also want to notice Makefile.in's.
6836         foreach my $iter (@other_input_files)
6837         {
6838             if ($iter =~ /Makefile\.in$/)
6839             {
6840                 $make_dirs{dirname ($iter)} = 1;
6841             }
6842         }
6843         $make_dirs_set = 1;
6844     }
6845     return defined $make_dirs{$dir};
6846 }
6847
6848 ################################################################
6849
6850 # Find the aux dir.  This should match the algorithm used by
6851 # ./configure. (See the Autoconf documentation for for
6852 # AC_CONFIG_AUX_DIR.)
6853 sub locate_aux_dir ()
6854 {
6855   if (! $config_aux_dir_set_in_configure_ac)
6856     {
6857       # The default auxiliary directory is the first
6858       # of ., .., or ../.. that contains install-sh.
6859       # Assume . if install-sh doesn't exist yet.
6860       for my $dir (qw (. .. ../..))
6861         {
6862           if (-f "$dir/install-sh")
6863             {
6864               $config_aux_dir = $dir;
6865               last;
6866             }
6867         }
6868       $config_aux_dir = '.' unless $config_aux_dir;
6869     }
6870   # Avoid unsightly '/.'s.
6871   $am_config_aux_dir =
6872     '$(top_srcdir)' . ($config_aux_dir eq '.' ? "" : "/$config_aux_dir");
6873   $am_config_aux_dir =~ s,/*$,,;
6874 }
6875
6876
6877 # &maybe_push_required_file ($DIR, $FILE, $FULLFILE)
6878 # --------------------------------------------------
6879 # See if we want to push this file onto dist_common.  This function
6880 # encodes the rules for deciding when to do so.
6881 sub maybe_push_required_file
6882 {
6883   my ($dir, $file, $fullfile) = @_;
6884
6885   if ($dir eq $relative_dir)
6886     {
6887       push_dist_common ($file);
6888       return 1;
6889     }
6890   elsif ($relative_dir eq '.' && ! &is_make_dir ($dir))
6891     {
6892       # If we are doing the topmost directory, and the file is in a
6893       # subdir which does not have a Makefile, then we distribute it
6894       # here.
6895
6896       # If a required file is above the source tree, it is important
6897       # to prefix it with `$(srcdir)' so that no VPATH search is
6898       # performed.  Otherwise problems occur with Make implementations
6899       # that rewrite and simplify rules whose dependencies are found in a
6900       # VPATH location.  Here is an example with OSF1/Tru64 Make.
6901       #
6902       #   % cat Makefile
6903       #   VPATH = sub
6904       #   distdir: ../a
6905       #           echo ../a
6906       #   % ls
6907       #   Makefile a
6908       #   % make
6909       #   echo a
6910       #   a
6911       #
6912       # Dependency `../a' was found in `sub/../a', but this make
6913       # implementation simplified it as `a'.  (Note that the sub/
6914       # directory does not even exist.)
6915       #
6916       # This kind of VPATH rewriting seems hard to cancel.  The
6917       # distdir.am hack against VPATH rewriting works only when no
6918       # simplification is done, i.e., for dependencies which are in
6919       # subdirectories, not in enclosing directories.  Hence, in
6920       # the latter case we use a full path to make sure no VPATH
6921       # search occurs.
6922       $fullfile = '$(srcdir)/' . $fullfile
6923         if $dir =~ m,^\.\.(?:$|/),;
6924
6925       push_dist_common ($fullfile);
6926       return 1;
6927     }
6928   return 0;
6929 }
6930
6931
6932 # If a file name appears as a key in this hash, then it has already
6933 # been checked for.  This allows us not to report the same error more
6934 # than once.
6935 my %required_file_not_found = ();
6936
6937 # &require_file_internal ($WHERE, $MYSTRICT, $DIRECTORY, @FILES)
6938 # --------------------------------------------------------------
6939 # Verify that the file must exist in $DIRECTORY, or install it.
6940 # $MYSTRICT is the strictness level at which this file becomes required.
6941 sub require_file_internal ($$$@)
6942 {
6943   my ($where, $mystrict, $dir, @files) = @_;
6944
6945   foreach my $file (@files)
6946     {
6947       my $fullfile = "$dir/$file";
6948       my $found_it = 0;
6949       my $dangling_sym = 0;
6950
6951       if (-l $fullfile && ! -f $fullfile)
6952         {
6953           $dangling_sym = 1;
6954         }
6955       elsif (dir_has_case_matching_file ($dir, $file))
6956         {
6957           $found_it = 1;
6958           maybe_push_required_file ($dir, $file, $fullfile);
6959         }
6960
6961       # `--force-missing' only has an effect if `--add-missing' is
6962       # specified.
6963       if ($found_it && (! $add_missing || ! $force_missing))
6964         {
6965           next;
6966         }
6967       else
6968         {
6969           # If we've already looked for it, we're done.  You might
6970           # wonder why we don't do this before searching for the
6971           # file.  If we do that, then something like
6972           # AC_OUTPUT(subdir/foo foo) will fail to put foo.in into
6973           # DIST_COMMON.
6974           if (! $found_it)
6975             {
6976               next if defined $required_file_not_found{$fullfile};
6977               $required_file_not_found{$fullfile} = 1;
6978             }
6979
6980           if ($strictness >= $mystrict)
6981             {
6982               if ($dangling_sym && $add_missing)
6983                 {
6984                   unlink ($fullfile);
6985                 }
6986
6987               my $trailer = '';
6988               my $suppress = 0;
6989
6990               # Only install missing files according to our desired
6991               # strictness level.
6992               my $message = "required file `$fullfile' not found";
6993               if ($add_missing)
6994                 {
6995                   if (-f ("$libdir/$file"))
6996                     {
6997                       $suppress = 1;
6998
6999                       # Install the missing file.  Symlink if we
7000                       # can, copy if we must.  Note: delete the file
7001                       # first, in case it is a dangling symlink.
7002                       $message = "installing `$fullfile'";
7003                       # Windows Perl will hang if we try to delete a
7004                       # file that doesn't exist.
7005                       unlink ($fullfile) if -f $fullfile;
7006                       if ($symlink_exists && ! $copy_missing)
7007                         {
7008                           if (! symlink ("$libdir/$file", $fullfile))
7009                             {
7010                               $suppress = 0;
7011                               $trailer = "; error while making link: $!";
7012                             }
7013                         }
7014                       elsif (system ('cp', "$libdir/$file", $fullfile))
7015                         {
7016                           $suppress = 0;
7017                           $trailer = "\n    error while copying";
7018                         }
7019                       reset_dir_cache ($dir);
7020                     }
7021
7022                   if (! maybe_push_required_file (dirname ($fullfile),
7023                                                   $file, $fullfile))
7024                     {
7025                       if (! $found_it && ! $automake_will_process_aux_dir)
7026                         {
7027                           # We have added the file but could not push it
7028                           # into DIST_COMMON, probably because this is
7029                           # an auxiliary file and we are not processing
7030                           # the top level Makefile.  Furthermore Automake
7031                           # hasn't been asked to create the Makefile.in
7032                           # that distribute the aux dir files.
7033                           error ($where, 'Please make a full run of automake'
7034                                  . " so $fullfile gets distributed.");
7035                         }
7036                     }
7037                 }
7038
7039               # If --force-missing was specified, and we have
7040               # actually found the file, then do nothing.
7041               next
7042                 if $found_it && $force_missing;
7043
7044               # If we couldn' install the file, but it is a target in
7045               # the Makefile, don't print anything.  This allows files
7046               # like README, AUTHORS, or THANKS to be generated.
7047               next
7048                 if !$suppress && rule $file;
7049
7050               msg ($suppress ? 'note' : 'error', $where, "$message$trailer");
7051             }
7052         }
7053     }
7054 }
7055
7056 # &require_file ($WHERE, $MYSTRICT, @FILES)
7057 # -----------------------------------------
7058 sub require_file ($$@)
7059 {
7060     my ($where, $mystrict, @files) = @_;
7061     require_file_internal ($where, $mystrict, $relative_dir, @files);
7062 }
7063
7064 # &require_file_with_macro ($COND, $MACRO, $MYSTRICT, @FILES)
7065 # -----------------------------------------------------------
7066 sub require_file_with_macro ($$$@)
7067 {
7068     my ($cond, $macro, $mystrict, @files) = @_;
7069     $macro = rvar ($macro) unless ref $macro;
7070     require_file ($macro->rdef ($cond)->location, $mystrict, @files);
7071 }
7072
7073
7074 # &require_conf_file ($WHERE, $MYSTRICT, @FILES)
7075 # ----------------------------------------------
7076 # Looks in configuration path, as specified by AC_CONFIG_AUX_DIR.
7077 sub require_conf_file ($$@)
7078 {
7079     my ($where, $mystrict, @files) = @_;
7080     require_file_internal ($where, $mystrict, $config_aux_dir, @files);
7081 }
7082
7083
7084 # &require_conf_file_with_macro ($COND, $MACRO, $MYSTRICT, @FILES)
7085 # ----------------------------------------------------------------
7086 sub require_conf_file_with_macro ($$$@)
7087 {
7088     my ($cond, $macro, $mystrict, @files) = @_;
7089     require_conf_file (rvar ($macro)->rdef ($cond)->location,
7090                        $mystrict, @files);
7091 }
7092
7093 ################################################################
7094
7095 # &require_build_directory ($DIRECTORY)
7096 # ------------------------------------
7097 # Emit rules to create $DIRECTORY if needed, and return
7098 # the file that any target requiring this directory should be made
7099 # dependent upon.
7100 sub require_build_directory ($)
7101 {
7102   my $directory = shift;
7103   my $dirstamp = "$directory/\$(am__dirstamp)";
7104
7105   # Don't emit the rule twice.
7106   if (! defined $directory_map{$directory})
7107     {
7108       $directory_map{$directory} = 1;
7109
7110       # Set a variable for the dirstamp basename.
7111       define_pretty_variable ('am__dirstamp', TRUE, INTERNAL,
7112                               '$(am__leading_dot)dirstamp');
7113
7114       # Directory must be removed by `make distclean'.
7115       $clean_files{$dirstamp} = DIST_CLEAN;
7116
7117       $output_rules .= ("$dirstamp:\n"
7118                         . "\t\@\$(mkdir_p) $directory\n"
7119                         . "\t\@: > $dirstamp\n");
7120     }
7121
7122   return $dirstamp;
7123 }
7124
7125 # &require_build_directory_maybe ($FILE)
7126 # --------------------------------------
7127 # If $FILE lies in a subdirectory, emit a rule to create this
7128 # directory and return the file that $FILE should be made
7129 # dependent upon.  Otherwise, just return the empty string.
7130 sub require_build_directory_maybe ($)
7131 {
7132     my $file = shift;
7133     my $directory = dirname ($file);
7134
7135     if ($directory ne '.')
7136     {
7137         return require_build_directory ($directory);
7138     }
7139     else
7140     {
7141         return '';
7142     }
7143 }
7144
7145 ################################################################
7146
7147 # Push a list of files onto dist_common.
7148 sub push_dist_common
7149 {
7150   prog_error "push_dist_common run after handle_dist"
7151     if $handle_dist_run;
7152   Automake::Variable::define ('DIST_COMMON', VAR_AUTOMAKE, '+', TRUE, "@_",
7153                               '', INTERNAL, VAR_PRETTY);
7154 }
7155
7156
7157 ################################################################
7158
7159 # generate_makefile ($MAKEFILE_AM, $MAKEFILE_IN)
7160 # ----------------------------------------------
7161 # Generate a Makefile.in given the name of the corresponding Makefile and
7162 # the name of the file output by config.status.
7163 sub generate_makefile ($$)
7164 {
7165   my ($makefile_am, $makefile_in) = @_;
7166
7167   # Reset all the Makefile.am related variables.
7168   initialize_per_input;
7169
7170   # AUTOMAKE_OPTIONS can contains -W flags to disable or enable
7171   # warnings for this file.  So hold any warning issued before
7172   # we have processed AUTOMAKE_OPTIONS.
7173   buffer_messages ('warning');
7174
7175   # Name of input file ("Makefile.am") and output file
7176   # ("Makefile.in").  These have no directory components.
7177   $am_file_name = basename ($makefile_am);
7178   $in_file_name = basename ($makefile_in);
7179
7180   # $OUTPUT is encoded.  If it contains a ":" then the first element
7181   # is the real output file, and all remaining elements are input
7182   # files.  We don't scan or otherwise deal with these input files,
7183   # other than to mark them as dependencies.  See
7184   # &scan_autoconf_files for details.
7185   my ($makefile, @inputs) = split (/:/, $output_files{$makefile_in});
7186
7187   $relative_dir = dirname ($makefile);
7188   $am_relative_dir = dirname ($makefile_am);
7189
7190   read_main_am_file ($makefile_am);
7191   if (handle_options)
7192     {
7193       # Process buffered warnings.
7194       flush_messages;
7195       # Fatal error.  Just return, so we can continue with next file.
7196       return;
7197     }
7198   # Process buffered warnings.
7199   flush_messages;
7200
7201   # There are a few install-related variables that you should not define.
7202   foreach my $var ('PRE_INSTALL', 'POST_INSTALL', 'NORMAL_INSTALL')
7203     {
7204       my $v = var $var;
7205       if ($v)
7206         {
7207           my $def = $v->def (TRUE);
7208           prog_error "$var not defined in condition TRUE"
7209             unless $def;
7210           reject_var $var, "`$var' should not be defined"
7211             if $def->owner != VAR_AUTOMAKE;
7212         }
7213     }
7214
7215   # Catch some obsolete variables.
7216   msg_var ('obsolete', 'INCLUDES',
7217            "`INCLUDES' is the old name for `AM_CPPFLAGS' (or `*_CPPFLAGS')")
7218     if var ('INCLUDES');
7219
7220   # Must do this after reading .am file.
7221   define_variable ('subdir', $relative_dir, INTERNAL);
7222
7223   # If DIST_SUBDIRS is defined, make sure SUBDIRS is, so that
7224   # recursive rules are enabled.
7225   define_pretty_variable ('SUBDIRS', TRUE, INTERNAL, '')
7226     if var 'DIST_SUBDIRS' && ! var 'SUBDIRS';
7227
7228   # Check first, because we might modify some state.
7229   check_cygnus;
7230   check_gnu_standards;
7231   check_gnits_standards;
7232
7233   handle_configure ($makefile_am, $makefile_in, $makefile, @inputs);
7234   handle_gettext;
7235   handle_libraries;
7236   handle_ltlibraries;
7237   handle_programs;
7238   handle_scripts;
7239
7240   # These must be run after all the sources are scanned.  They
7241   # use variables defined by &handle_libraries, &handle_ltlibraries,
7242   # or &handle_programs.
7243   handle_compile;
7244   handle_languages;
7245   handle_libtool;
7246
7247   # Variables used by distdir.am and tags.am.
7248   define_pretty_variable ('SOURCES', TRUE, INTERNAL, @sources);
7249   if (! option 'no-dist')
7250     {
7251       define_pretty_variable ('DIST_SOURCES', TRUE, INTERNAL, @dist_sources);
7252     }
7253
7254   handle_multilib;
7255   handle_texinfo;
7256   handle_emacs_lisp;
7257   handle_python;
7258   handle_java;
7259   handle_man_pages;
7260   handle_data;
7261   handle_headers;
7262   handle_subdirs;
7263   handle_tags;
7264   handle_minor_options;
7265   handle_tests;
7266
7267   # This must come after most other rules.
7268   handle_dist;
7269
7270   handle_footer;
7271   do_check_merge_target;
7272   handle_all ($makefile);
7273
7274   # FIXME: Gross!
7275   if (var ('lib_LTLIBRARIES') && var ('bin_PROGRAMS'))
7276     {
7277       $output_rules .= "install-binPROGRAMS: install-libLTLIBRARIES\n\n";
7278     }
7279
7280   handle_install;
7281   handle_clean ($makefile);
7282   handle_factored_dependencies;
7283
7284   # Comes last, because all the above procedures may have
7285   # defined or overridden variables.
7286   $output_vars .= output_variables;
7287
7288   check_typos;
7289
7290   my ($out_file) = $output_directory . '/' . $makefile_in;
7291
7292   if ($exit_code != 0)
7293     {
7294       verb "not writing $out_file because of earlier errors";
7295       return;
7296     }
7297
7298   if (! -d ($output_directory . '/' . $am_relative_dir))
7299     {
7300       mkdir ($output_directory . '/' . $am_relative_dir, 0755);
7301     }
7302
7303   # We make sure that `all:' is the first target.
7304   my $output =
7305     "$output_vars$output_all$output_header$output_rules$output_trailer";
7306
7307   # Decide whether we must update the output file or not.
7308   # We have to update in the following situations.
7309   #  * $force_generation is set.
7310   #  * any of the output dependencies is younger than the output
7311   #  * the contents of the output is different (this can happen
7312   #    if the project has been populated with a file listed in
7313   #    @common_files since the last run).
7314   # Output's dependencies are split in two sets:
7315   #  * dependencies which are also configure dependencies
7316   #    These do not change between each Makefile.am
7317   #  * other dependencies, specific to the Makefile.am being processed
7318   #    (such as the Makefile.am itself, or any Makefile fragment
7319   #    it includes).
7320   my $timestamp = mtime $out_file;
7321   if (! $force_generation
7322       && $configure_deps_greatest_timestamp < $timestamp
7323       && $output_deps_greatest_timestamp < $timestamp
7324       && $output eq contents ($out_file))
7325     {
7326       verb "$out_file unchanged";
7327       # No need to update.
7328       return;
7329     }
7330
7331   if (-e $out_file)
7332     {
7333       unlink ($out_file)
7334         or fatal "cannot remove $out_file: $!\n";
7335     }
7336
7337   my $gm_file = new Automake::XFile "> $out_file";
7338   verb "creating $out_file";
7339   print $gm_file $output;
7340 }
7341
7342 ################################################################
7343
7344
7345
7346
7347 ################################################################
7348
7349 # Print usage information.
7350 sub usage ()
7351 {
7352     print "Usage: $0 [OPTION] ... [Makefile]...
7353
7354 Generate Makefile.in for configure from Makefile.am.
7355
7356 Operation modes:
7357       --help               print this help, then exit
7358       --version            print version number, then exit
7359   -v, --verbose            verbosely list files processed
7360       --no-force           only update Makefile.in's that are out of date
7361   -W, --warnings=CATEGORY  report the warnings falling in CATEGORY
7362
7363 Dependency tracking:
7364   -i, --ignore-deps      disable dependency tracking code
7365       --include-deps     enable dependency tracking code
7366
7367 Flavors:
7368       --cygnus           assume program is part of Cygnus-style tree
7369       --foreign          set strictness to foreign
7370       --gnits            set strictness to gnits
7371       --gnu              set strictness to gnu
7372
7373 Library files:
7374   -a, --add-missing      add missing standard files to package
7375       --libdir=DIR       directory storing library files
7376   -c, --copy             with -a, copy missing files (default is symlink)
7377   -f, --force-missing    force update of standard files
7378
7379 ";
7380     Automake::ChannelDefs::usage;
7381
7382     my ($last, @lcomm);
7383     $last = '';
7384     foreach my $iter (sort ((@common_files, @common_sometimes)))
7385     {
7386         push (@lcomm, $iter) unless $iter eq $last;
7387         $last = $iter;
7388     }
7389
7390     my @four;
7391     print "\nFiles which are automatically distributed, if found:\n";
7392     format USAGE_FORMAT =
7393   @<<<<<<<<<<<<<<<<   @<<<<<<<<<<<<<<<<   @<<<<<<<<<<<<<<<<   @<<<<<<<<<<<<<<<<
7394   $four[0],           $four[1],           $four[2],           $four[3]
7395 .
7396     $~ = "USAGE_FORMAT";
7397
7398     my $cols = 4;
7399     my $rows = int(@lcomm / $cols);
7400     my $rest = @lcomm % $cols;
7401
7402     if ($rest)
7403     {
7404         $rows++;
7405     }
7406     else
7407     {
7408         $rest = $cols;
7409     }
7410
7411     for (my $y = 0; $y < $rows; $y++)
7412     {
7413         @four = ("", "", "", "");
7414         for (my $x = 0; $x < $cols; $x++)
7415         {
7416             last if $y + 1 == $rows && $x == $rest;
7417
7418             my $idx = (($x > $rest)
7419                        ?  ($rows * $rest + ($rows - 1) * ($x - $rest))
7420                        : ($rows * $x));
7421
7422             $idx += $y;
7423             $four[$x] = $lcomm[$idx];
7424         }
7425         write;
7426     }
7427
7428     print "\nReport bugs to <bug-automake\@gnu.org>.\n";
7429
7430     # --help always returns 0 per GNU standards.
7431     exit 0;
7432 }
7433
7434
7435 # &version ()
7436 # -----------
7437 # Print version information
7438 sub version ()
7439 {
7440   print <<EOF;
7441 automake (GNU $PACKAGE) $VERSION
7442 Written by Tom Tromey <tromey\@redhat.com>
7443        and Alexandre Duret-Lutz <adl\@gnu.org>.
7444
7445 Copyright 2005 Free Software Foundation, Inc.
7446 This is free software; see the source for copying conditions.  There is NO
7447 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
7448 EOF
7449   # --version always returns 0 per GNU standards.
7450   exit 0;
7451 }
7452
7453 ################################################################
7454
7455 # Parse command line.
7456 sub parse_arguments ()
7457 {
7458   # Start off as gnu.
7459   set_strictness ('gnu');
7460
7461   my $cli_where = new Automake::Location;
7462   my %cli_options =
7463     (
7464      'libdir=s'         => \$libdir,
7465      'gnu'              => sub { set_strictness ('gnu'); },
7466      'gnits'            => sub { set_strictness ('gnits'); },
7467      'cygnus'           => sub { set_global_option ('cygnus', $cli_where); },
7468      'foreign'          => sub { set_strictness ('foreign'); },
7469      'include-deps'     => sub { unset_global_option ('no-dependencies'); },
7470      'i|ignore-deps'    => sub { set_global_option ('no-dependencies',
7471                                                     $cli_where); },
7472      'no-force'         => sub { $force_generation = 0; },
7473      'f|force-missing'  => \$force_missing,
7474      'o|output-dir=s'   => \$output_directory,
7475      'a|add-missing'    => \$add_missing,
7476      'c|copy'           => \$copy_missing,
7477      'v|verbose'        => sub { setup_channel 'verb', silent => 0; },
7478      'W|warnings=s'     => \&parse_warnings,
7479      # These long options (--Werror and --Wno-error) for backward
7480      # compatibility.  Use -Werror and -Wno-error today.
7481      'Werror'           => sub { parse_warnings 'W', 'error'; },
7482      'Wno-error'        => sub { parse_warnings 'W', 'no-error'; },
7483      );
7484   use Getopt::Long;
7485   Getopt::Long::config ("bundling", "pass_through");
7486
7487   # See if --version or --help is used.  We want to process these before
7488   # anything else because the GNU Coding Standards require us to
7489   # `exit 0' after processing these options, and we can't guarantee this
7490   # if we treat other options first.  (Handling other options first
7491   # could produce error diagnostics, and in this condition it is
7492   # confusing if Automake does `exit 0'.)
7493   my %cli_options_1st_pass =
7494     (
7495      'version' => \&version,
7496      'help'    => \&usage,
7497      # Recognize all other options (and their arguments) but do nothing.
7498      map { $_ => sub {} } (keys %cli_options)
7499      );
7500   my @ARGV_backup = @ARGV;
7501   Getopt::Long::GetOptions %cli_options_1st_pass
7502     or exit 1;
7503   @ARGV = @ARGV_backup;
7504
7505   # Now *really* process the options.  This time we know that --help
7506   # and --version are not present, but we specify them nonetheless so
7507   # that ambiguous abbreviation are diagnosed.
7508   Getopt::Long::GetOptions %cli_options, 'version' => sub {}, 'help' => sub {}
7509     or exit 1;
7510
7511   if (defined $output_directory)
7512     {
7513       msg 'obsolete', "`--output-dir' is deprecated\n";
7514     }
7515   else
7516     {
7517       # In the next release we'll remove this entirely.
7518       $output_directory = '.';
7519     }
7520
7521   return unless @ARGV;
7522
7523   if ($ARGV[0] =~ /^-./)
7524     {
7525       my %argopts;
7526       for my $k (keys %cli_options)
7527         {
7528           if ($k =~ /(.*)=s$/)
7529             {
7530               map { $argopts{(length ($_) == 1)
7531                              ? "-$_" : "--$_" } = 1; } (split (/\|/, $1));
7532             }
7533         }
7534       if ($ARGV[0] eq '--')
7535         {
7536           shift @ARGV;
7537         }
7538       elsif (exists $argopts{$ARGV[0]})
7539         {
7540           fatal ("option `$ARGV[0]' requires an argument\n"
7541                  . "Try `$0 --help' for more information.");
7542         }
7543       else
7544         {
7545           fatal ("unrecognized option `$ARGV[0]'.\n"
7546                  . "Try `$0 --help' for more information.");
7547         }
7548     }
7549
7550   my $errspec = 0;
7551   foreach my $arg (@ARGV)
7552     {
7553       fatal ("empty argument\nTry `$0 --help' for more information.")
7554         if ($arg eq '');
7555
7556       # Handle $local:$input syntax.
7557       my ($local, @rest) = split (/:/, $arg);
7558       @rest = ("$local.in",) unless @rest;
7559       my $input = locate_am @rest;
7560       if ($input)
7561         {
7562           push @input_files, $input;
7563           $output_files{$input} = join (':', ($local, @rest));
7564         }
7565       else
7566         {
7567           error "no Automake input file found for `$arg'";
7568           $errspec = 1;
7569         }
7570     }
7571   fatal "no input file found among supplied arguments"
7572     if $errspec && ! @input_files;
7573 }
7574
7575 ################################################################
7576
7577 # Parse the WARNINGS environment variable.
7578 parse_WARNINGS;
7579
7580 # Parse command line.
7581 parse_arguments;
7582
7583 $configure_ac = require_configure_ac;
7584
7585 # Do configure.ac scan only once.
7586 scan_autoconf_files;
7587
7588 if (! @input_files)
7589   {
7590     my $msg = '';
7591     $msg = "\nDid you forget AC_CONFIG_FILES([Makefile]) in $configure_ac?"
7592       if -f 'Makefile.am';
7593     fatal ("no `Makefile.am' found for any configure output$msg");
7594   }
7595
7596 # Now do all the work on each file.
7597 foreach my $file (@input_files)
7598   {
7599     ($am_file = $file) =~ s/\.in$//;
7600     if (! -f ($am_file . '.am'))
7601       {
7602         error "`$am_file.am' does not exist";
7603       }
7604     else
7605       {
7606         # Any warning setting now local to this Makefile.am.
7607         dup_channel_setup;
7608
7609         generate_makefile ($am_file . '.am', $file);
7610
7611         # Back out any warning setting.
7612         drop_channel_setup;
7613       }
7614   }
7615
7616 exit $exit_code;
7617
7618
7619 ### Setup "GNU" style for perl-mode and cperl-mode.
7620 ## Local Variables:
7621 ## perl-indent-level: 2
7622 ## perl-continued-statement-offset: 2
7623 ## perl-continued-brace-offset: 0
7624 ## perl-brace-offset: 0
7625 ## perl-brace-imaginary-offset: 0
7626 ## perl-label-offset: -2
7627 ## cperl-indent-level: 2
7628 ## cperl-brace-offset: 0
7629 ## cperl-continued-brace-offset: 0
7630 ## cperl-label-offset: -2
7631 ## cperl-extra-newline-before-brace: t
7632 ## cperl-merge-trailing-else: nil
7633 ## cperl-continued-statement-offset: 2
7634 ## End: