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