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