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