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