#!@PERL@ -w # -*- perl -*- # @configure_input@ eval 'case $# in 0) exec @PERL@ -S "$0";; *) exec @PERL@ -S "$0" "$@";; esac' if 0; # automake - create Makefile.in from Makefile.am # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. # Originally written by David Mackenzie . # Perl reimplementation by Tom Tromey . package Language; BEGIN { my $perllibdir = $ENV{'perllibdir'} || '@datadir@/@PACKAGE@-@APIVERSION@'; unshift @INC, (split '@PATH_SEPARATOR@', $perllibdir); # Override SHELL. This is required on DJGPP so that system() uses # bash, not COMMAND.COM which doesn't quote arguments properly. # Other systems aren't expected to use $SHELL when Automake # runs, but it should be safe to drop the `if DJGPP' guard if # it turns up other systems need the same thing. After all, # if SHELL is used, ./configure's SHELL is always better than # the user's SHELL (which may be something like tcsh). $ENV{'SHELL'} = '@SHELL@' if exists $ENV{'DJGPP'}; } use Automake::Struct; struct (# Short name of the language (c, f77...). 'name' => "\$", # Nice name of the language (C, Fortran 77...). 'Name' => "\$", # List of configure variables which must be defined. 'config_vars' => '@', 'ansi' => "\$", # `pure' is `1' or `'. A `pure' language is one where, if # all the files in a directory are of that language, then we # do not require the C compiler or any code to call it. 'pure' => "\$", 'autodep' => "\$", # Name of the compiling variable (COMPILE). 'compiler' => "\$", # Content of the compiling variable. 'compile' => "\$", # Flag to require compilation without linking (-c). 'compile_flag' => "\$", 'extensions' => '@', # A subroutine to compute a list of possible extensions of # the product given the input extensions. # (defaults to a subroutine which returns ('.$(OBJEXT)', '.lo')) 'output_extensions' => "\$", # A list of flag variables used in 'compile'. # (defaults to []) 'flags' => "@", # Any tag to pass to libtool while compiling. 'libtool_tag' => "\$", # The file to use when generating rules for this language. # The default is 'depend2'. 'rule_file' => "\$", # Name of the linking variable (LINK). 'linker' => "\$", # Content of the linking variable. 'link' => "\$", # Name of the linker variable (LD). 'lder' => "\$", # Content of the linker variable ($(CC)). 'ld' => "\$", # Flag to specify the output file (-o). 'output_flag' => "\$", '_finish' => "\$", # This is a subroutine which is called whenever we finally # determine the context in which a source file will be # compiled. '_target_hook' => "\$"); sub finish ($) { my ($self) = @_; if (defined $self->_finish) { &{$self->_finish} (); } } sub target_hook ($$$$%) { my ($self) = @_; if (defined $self->_target_hook) { &{$self->_target_hook} (@_); } } package Automake; use strict; use Automake::Config; use Automake::General; use Automake::XFile; use Automake::Channels; use Automake::ChannelDefs; use Automake::Configure_ac; use Automake::FileUtils; use Automake::Location; use Automake::Condition qw/TRUE FALSE/; use Automake::DisjConditions; use Automake::Options; use Automake::Version; use Automake::Variable; use Automake::VarDef; use Automake::Rule; use Automake::RuleDef; use Automake::Wrap 'makefile_wrap'; use File::Basename; use Carp; ## ----------- ## ## Constants. ## ## ----------- ## # Some regular expressions. One reason to put them here is that it # makes indentation work better in Emacs. # Writing singled-quoted-$-terminated regexes is a pain because # perl-mode thinks of $' as the ${'} variable (instead of a $ followed # by a closing quote. Letting perl-mode think the quote is not closed # leads to all sort of misindentations. On the other hand, defining # regexes as double-quoted strings is far less readable. So usually # we will write: # # $REGEX = '^regex_value' . "\$"; my $IGNORE_PATTERN = '^\s*##([^#\n].*)?\n'; my $WHITE_PATTERN = '^\s*' . "\$"; my $COMMENT_PATTERN = '^#'; my $TARGET_PATTERN='[$a-zA-Z_.@%][-.a-zA-Z0-9_(){}/$+@%]*'; # A rule has three parts: a list of targets, a list of dependencies, # and optionally actions. my $RULE_PATTERN = "^($TARGET_PATTERN(?:(?:\\\\\n|\\s)+$TARGET_PATTERN)*) *:([^=].*|)\$"; # Only recognize leading spaces, not leading tabs. If we recognize # leading tabs here then we need to make the reader smarter, because # otherwise it will think rules like `foo=bar; \' are errors. my $ASSIGNMENT_PATTERN = '^ *([^ \t=:+]*)\s*([:+]?)=\s*(.*)' . "\$"; # This pattern recognizes a Gnits version id and sets $1 if the # release is an alpha release. We also allow a suffix which can be # used to extend the version number with a "fork" identifier. my $GNITS_VERSION_PATTERN = '\d+\.\d+([a-z]|\.\d+)?(-[A-Za-z0-9]+)?'; my $IF_PATTERN = '^if\s+(!?)\s*([A-Za-z][A-Za-z0-9_]*)\s*(?:#.*)?' . "\$"; my $ELSE_PATTERN = '^else(?:\s+(!?)\s*([A-Za-z][A-Za-z0-9_]*))?\s*(?:#.*)?' . "\$"; my $ENDIF_PATTERN = '^endif(?:\s+(!?)\s*([A-Za-z][A-Za-z0-9_]*))?\s*(?:#.*)?' . "\$"; my $PATH_PATTERN = '(\w|[/.-])+'; # This will pass through anything not of the prescribed form. my $INCLUDE_PATTERN = ('^include\s+' . '((\$\(top_srcdir\)/' . $PATH_PATTERN . ')' . '|(\$\(srcdir\)/' . $PATH_PATTERN . ')' . '|([^/\$]' . $PATH_PATTERN . '))\s*(#.*)?' . "\$"); # Match `-d' as a command-line argument in a string. my $DASH_D_PATTERN = "(^|\\s)-d(\\s|\$)"; # Directories installed during 'install-exec' phase. my $EXEC_DIR_PATTERN = '^(?:bin|sbin|libexec|sysconf|localstate|lib|pkglib|.*exec.*)' . "\$"; # Values for AC_CANONICAL_* use constant AC_CANONICAL_BUILD => 1; use constant AC_CANONICAL_HOST => 2; use constant AC_CANONICAL_TARGET => 3; # Values indicating when something should be cleaned. use constant MOSTLY_CLEAN => 0; use constant CLEAN => 1; use constant DIST_CLEAN => 2; use constant MAINTAINER_CLEAN => 3; # Libtool files. my @libtool_files = qw(ltmain.sh config.guess config.sub); # ltconfig appears here for compatibility with old versions of libtool. my @libtool_sometimes = qw(ltconfig ltcf-c.sh ltcf-cxx.sh ltcf-gcj.sh); # Commonly found files we look for and automatically include in # DISTFILES. my @common_files = (qw(ABOUT-GNU ABOUT-NLS AUTHORS BACKLOG COPYING COPYING.DOC COPYING.LIB COPYING.LESSER ChangeLog INSTALL NEWS README THANKS TODO ansi2knr.1 ansi2knr.c compile config.guess config.rpath config.sub depcomp elisp-comp install-sh libversion.in mdate-sh missing mkinstalldirs py-compile texinfo.tex ylwrap), @libtool_files, @libtool_sometimes); # Commonly used files we auto-include, but only sometimes. This list # is used for the --help output only. my @common_sometimes = qw(aclocal.m4 acconfig.h config.h.top config.h.bot configure configure.ac configure.in stamp-vti); # Standard directories from the GNU Coding Standards, and additional # pkg* directories from Automake. Stored in a hash for fast member check. my %standard_prefix = map { $_ => 1 } (qw(bin data exec include info lib libexec lisp localstate man man1 man2 man3 man4 man5 man6 man7 man8 man9 oldinclude pkgdatadir pkgincludedir pkglibdir sbin sharedstate sysconf)); # Copyright on generated Makefile.ins. my $gen_copyright = "\ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. "; # These constants are returned by lang_*_rewrite functions. # LANG_SUBDIR means that the resulting object file should be in a # subdir if the source file is. In this case the file name cannot # have `..' components. use constant LANG_IGNORE => 0; use constant LANG_PROCESS => 1; use constant LANG_SUBDIR => 2; # These are used when keeping track of whether an object can be built # by two different paths. use constant COMPILE_LIBTOOL => 1; use constant COMPILE_ORDINARY => 2; # We can't always associate a location to a variable or a rule, # when its defined by Automake. We use INTERNAL in this case. use constant INTERNAL => new Automake::Location; ## ---------------------------------- ## ## Variables related to the options. ## ## ---------------------------------- ## # TRUE if we should always generate Makefile.in. my $force_generation = 1; # From the Perl manual. my $symlink_exists = (eval 'symlink ("", "");', $@ eq ''); # TRUE if missing standard files should be installed. my $add_missing = 0; # TRUE if we should copy missing files; otherwise symlink if possible. my $copy_missing = 0; # TRUE if we should always update files that we know about. my $force_missing = 0; ## ---------------------------------------- ## ## Variables filled during files scanning. ## ## ---------------------------------------- ## # Name of the configure.ac file. my $configure_ac; # Files found by scanning configure.ac for LIBOBJS. my %libsources = (); # Names used in AC_CONFIG_HEADER call. my @config_headers = (); # Names used in AC_CONFIG_LINKS call. my @config_links = (); # Directory where output files go. Actually, output files are # relative to this directory. my $output_directory; # List of Makefile.am's to process, and their corresponding outputs. my @input_files = (); my %output_files = (); # Complete list of Makefile.am's that exist. my @configure_input_files = (); # List of files in AC_CONFIG_FILES/AC_OUTPUT without Makefile.am's, # and their outputs. my @other_input_files = (); # Where each AC_CONFIG_FILES/AC_OUTPUT/AC_CONFIG_LINK/AC_CONFIG_HEADER appears. # The keys are the files created by these macros. my %ac_config_files_location = (); # Directory to search for configure-required files. This # will be computed by &locate_aux_dir and can be set using # AC_CONFIG_AUX_DIR in configure.ac. # $CONFIG_AUX_DIR is the `raw' directory, valid only in the source-tree. my $config_aux_dir = ''; my $config_aux_dir_set_in_configure_ac = 0; # $AM_CONFIG_AUX_DIR is prefixed with $(top_srcdir), so it can be used # in Makefiles. my $am_config_aux_dir = ''; # Whether AM_GNU_GETTEXT has been seen in configure.ac. my $seen_gettext = 0; # Whether AM_GNU_GETTEXT([external]) is used. my $seen_gettext_external = 0; # Where AM_GNU_GETTEXT appears. my $ac_gettext_location; # Lists of tags supported by Libtool. my %libtool_tags = (); # Most important AC_CANONICAL_* macro seen so far. my $seen_canonical = 0; # Location of that macro. my $canonical_location; # Where AM_MAINTAINER_MODE appears. my $seen_maint_mode; # Actual version we've seen. my $package_version = ''; # Where version is defined. my $package_version_location; # TRUE if we've seen AC_ENABLE_MULTILIB. my $seen_multilib = 0; # TRUE if we've seen AM_PROG_CC_C_O my $seen_cc_c_o = 0; # Where AM_INIT_AUTOMAKE is called; my $seen_init_automake = 0; # TRUE if we've seen AM_AUTOMAKE_VERSION. my $seen_automake_version = 0; # Hash table of discovered configure substitutions. Keys are names, # values are `FILE:LINE' strings which are used by error message # generation. my %configure_vars = (); # Files included by $configure_ac. my @configure_deps = (); # Greatest timestamp of configure's dependencies. my $configure_deps_greatest_timestamp = 0; # Hash table of AM_CONDITIONAL variables seen in configure. my %configure_cond = (); # This maps extensions onto language names. my %extension_map = (); # List of the DIST_COMMON files we discovered while reading # configure.in my $configure_dist_common = ''; # This maps languages names onto objects. my %languages = (); # List of targets we must always output. # FIXME: Complete, and remove falsely required targets. my %required_targets = ( 'all' => 1, 'dvi' => 1, 'pdf' => 1, 'ps' => 1, 'info' => 1, 'install-info' => 1, 'install' => 1, 'install-data' => 1, 'install-exec' => 1, 'uninstall' => 1, # FIXME: Not required, temporary hacks. # Well, actually they are sort of required: the -recursive # targets will run them anyway... 'dvi-am' => 1, 'pdf-am' => 1, 'ps-am' => 1, 'info-am' => 1, 'install-data-am' => 1, 'install-exec-am' => 1, 'installcheck-am' => 1, 'uninstall-am' => 1, 'install-man' => 1, ); # Set to 1 if this run will create the Makefile.in that distribute # the files in config_aux_dir. my $automake_will_process_aux_dir = 0; # The name of the Makefile currently being processed. my $am_file = 'BUG'; ################################################################ ## ------------------------------------------ ## ## Variables reset by &initialize_per_input. ## ## ------------------------------------------ ## # Basename and relative dir of the input file. my $am_file_name; my $am_relative_dir; # Same but wrt Makefile.in. my $in_file_name; my $relative_dir; # Greatest timestamp of the output's dependencies (excluding # configure's dependencies). my $output_deps_greatest_timestamp; # These two variables are used when generating each Makefile.in. # They hold the Makefile.in until it is ready to be printed. my $output_rules; my $output_vars; my $output_trailer; my $output_all; my $output_header; # This is the conditional stack, updated on if/else/endif, and # used to build Condition objects. my @cond_stack; # This holds the set of included files. my @include_stack; # This holds a list of directories which we must create at `dist' # time. This is used in some strange scenarios involving weird # AC_OUTPUT commands. my %dist_dirs; # List of dependencies for the obvious targets. my @all; my @check; my @check_tests; # Keys in this hash table are files to delete. The associated # value tells when this should happen (MOSTLY_CLEAN, DIST_CLEAN, etc.) my %clean_files; # Keys in this hash table are object files or other files in # subdirectories which need to be removed. This only holds files # which are created by compilations. The value in the hash indicates # when the file should be removed. my %compile_clean_files; # Keys in this hash table are directories where we expect to build a # libtool object. We use this information to decide what directories # to delete. my %libtool_clean_directories; # Value of `$(SOURCES)', used by tags.am. my @sources; # Sources which go in the distribution. my @dist_sources; # This hash maps object file names onto their corresponding source # file names. This is used to ensure that each object is created # by a single source file. my %object_map; # This hash maps object file names onto an integer value representing # whether this object has been built via ordinary compilation or # libtool compilation (the COMPILE_* constants). my %object_compilation_map; # This keeps track of the directories for which we've already # created dirstamp code. my %directory_map; # All .P files. my %dep_files; # This is a list of all targets to run during "make dist". my @dist_targets; # Keys in this hash are the basenames of files which must depend on # ansi2knr. Values are either the empty string, or the directory in # which the ANSI source file appears; the directory must have a # trailing `/'. my %de_ansi_files; # This is the name of the redirect `all' target to use. my $all_target; # This keeps track of which extensions we've seen (that we care # about). my %extension_seen; # This is random scratch space for the language finish functions. # Don't randomly overwrite it; examine other uses of keys first. my %language_scratch; # We keep track of which objects need special (per-executable) # handling on a per-language basis. my %lang_specific_files; # This is set when `handle_dist' has finished. Once this happens, # we should no longer push on dist_common. my $handle_dist_run; # Used to store a set of linkers needed to generate the sources currently # under consideration. my %linkers_used; # True if we need `LINK' defined. This is a hack. my $need_link; # Was get_object_extension run? # FIXME: This is a hack. a better switch should be found. my $get_object_extension_was_run; # Record each file processed by make_paragraphs. my %transformed_files; ################################################################ # var_SUFFIXES_trigger ($TYPE, $VALUE) # ------------------------------------ # This is called by Automake::Variable::define() when SUFFIXES # is defined ($TYPE eq '') or appended ($TYPE eq '+'). # The work here needs to be performed as a side-effect of the # macro_define() call because SUFFIXES definitions impact # on $KNOWN_EXTENSIONS_PATTERN which is used used when parsing # the input am file. sub var_SUFFIXES_trigger ($$) { my ($type, $value) = @_; accept_extensions (split (' ', $value)); } Automake::Variable::hook ('SUFFIXES', \&var_SUFFIXES_trigger); ################################################################ ## --------------------------------- ## ## Forward subroutine declarations. ## ## --------------------------------- ## sub register_language (%); sub file_contents_internal ($$$%); sub define_files_variable ($\@$$); # &initialize_per_input () # ------------------------ # (Re)-Initialize per-Makefile.am variables. sub initialize_per_input () { reset_local_duplicates (); $am_file_name = ''; $am_relative_dir = ''; $in_file_name = ''; $relative_dir = ''; $output_deps_greatest_timestamp = 0; $output_rules = ''; $output_vars = ''; $output_trailer = ''; $output_all = ''; $output_header = ''; Automake::Options::reset; Automake::Variable::reset; Automake::Rule::reset; @cond_stack = (); @include_stack = (); %dist_dirs = (); @all = (); @check = (); @check_tests = (); %clean_files = (); @sources = (); @dist_sources = (); %object_map = (); %object_compilation_map = (); %directory_map = (); %dep_files = (); @dist_targets = (); %de_ansi_files = (); $all_target = ''; %extension_seen = (); %language_scratch = (); %lang_specific_files = (); $handle_dist_run = 0; $need_link = 0; $get_object_extension_was_run = 0; %compile_clean_files = (); # We always include `.'. This isn't strictly correct. %libtool_clean_directories = ('.' => 1); %transformed_files = (); } ################################################################ # Initialize our list of languages that are internally supported. # C. register_language ('name' => 'c', 'Name' => 'C', 'config_vars' => ['CC'], 'ansi' => 1, 'autodep' => '', 'flags' => ['CFLAGS', 'CPPFLAGS'], 'compiler' => 'COMPILE', 'compile' => '$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)', 'lder' => 'CCLD', 'ld' => '$(CC)', 'linker' => 'LINK', 'link' => '$(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@', 'compile_flag' => '-c', 'libtool_tag' => 'CC', 'extensions' => ['.c'], '_finish' => \&lang_c_finish); # C++. register_language ('name' => 'cxx', 'Name' => 'C++', 'config_vars' => ['CXX'], 'linker' => 'CXXLINK', 'link' => '$(CXXLD) $(AM_CXXFLAGS) $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@', 'autodep' => 'CXX', 'flags' => ['CXXFLAGS', 'CPPFLAGS'], 'compile' => '$(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS)', 'compiler' => 'CXXCOMPILE', 'compile_flag' => '-c', 'output_flag' => '-o', 'libtool_tag' => 'CXX', 'lder' => 'CXXLD', 'ld' => '$(CXX)', 'pure' => 1, 'extensions' => ['.c++', '.cc', '.cpp', '.cxx', '.C']); # Objective C. register_language ('name' => 'objc', 'Name' => 'Objective C', 'config_vars' => ['OBJC'], 'linker' => 'OBJCLINK',, 'link' => '$(OBJCLD) $(AM_OBJCFLAGS) $(OBJCFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@', 'autodep' => 'OBJC', 'flags' => ['OBJCFLAGS', 'CPPFLAGS'], 'compile' => '$(OBJC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_OBJCFLAGS) $(OBJCFLAGS)', 'compiler' => 'OBJCCOMPILE', 'compile_flag' => '-c', 'output_flag' => '-o', 'lder' => 'OBJCLD', 'ld' => '$(OBJC)', 'pure' => 1, 'extensions' => ['.m']); # Headers. register_language ('name' => 'header', 'Name' => 'Header', 'extensions' => ['.h', '.H', '.hxx', '.h++', '.hh', '.hpp', '.inc'], # No output. 'output_extensions' => sub { return () }, # Nothing to do. '_finish' => sub { }); # Yacc (C & C++). register_language ('name' => 'yacc', 'Name' => 'Yacc', 'config_vars' => ['YACC'], 'flags' => ['YFLAGS'], 'compile' => '$(YACC) $(YFLAGS) $(AM_YFLAGS)', 'compiler' => 'YACCCOMPILE', 'extensions' => ['.y'], 'output_extensions' => sub { (my $ext = $_[0]) =~ tr/y/c/; return ($ext,) }, 'rule_file' => 'yacc', '_finish' => \&lang_yacc_finish, '_target_hook' => \&lang_yacc_target_hook); register_language ('name' => 'yaccxx', 'Name' => 'Yacc (C++)', 'config_vars' => ['YACC'], 'rule_file' => 'yacc', 'flags' => ['YFLAGS'], 'compiler' => 'YACCCOMPILE', 'compile' => '$(YACC) $(YFLAGS) $(AM_YFLAGS)', 'extensions' => ['.y++', '.yy', '.yxx', '.ypp'], 'output_extensions' => sub { (my $ext = $_[0]) =~ tr/y/c/; return ($ext,) }, '_finish' => \&lang_yacc_finish, '_target_hook' => \&lang_yacc_target_hook); # Lex (C & C++). register_language ('name' => 'lex', 'Name' => 'Lex', 'config_vars' => ['LEX'], 'rule_file' => 'lex', 'flags' => ['LFLAGS'], 'compile' => '$(LEX) $(LFLAGS) $(AM_LFLAGS)', 'compiler' => 'LEXCOMPILE', 'extensions' => ['.l'], 'output_extensions' => sub { (my $ext = $_[0]) =~ tr/l/c/; return ($ext,) }, '_finish' => \&lang_lex_finish, '_target_hook' => \&lang_lex_target_hook); register_language ('name' => 'lexxx', 'Name' => 'Lex (C++)', 'config_vars' => ['LEX'], 'rule_file' => 'lex', 'flags' => ['LFLAGS'], 'compile' => '$(LEX) $(LFLAGS) $(AM_LFLAGS)', 'compiler' => 'LEXCOMPILE', 'extensions' => ['.l++', '.ll', '.lxx', '.lpp'], 'output_extensions' => sub { (my $ext = $_[0]) =~ tr/l/c/; return ($ext,) }, '_finish' => \&lang_lex_finish, '_target_hook' => \&lang_lex_target_hook); # Assembler. register_language ('name' => 'asm', 'Name' => 'Assembler', 'config_vars' => ['CCAS', 'CCASFLAGS'], 'flags' => ['CCASFLAGS'], # Users can set AM_ASFLAGS to includes DEFS, INCLUDES, # or anything else required. They can also set AS. 'compile' => '$(CCAS) $(AM_CCASFLAGS) $(CCASFLAGS)', 'compiler' => 'CCASCOMPILE', 'compile_flag' => '-c', 'extensions' => ['.s', '.S'], # With assembly we still use the C linker. '_finish' => \&lang_c_finish); # Fortran 77 register_language ('name' => 'f77', 'Name' => 'Fortran 77', 'linker' => 'F77LINK', 'link' => '$(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@', 'flags' => ['FFLAGS'], 'compile' => '$(F77) $(AM_FFLAGS) $(FFLAGS)', 'compiler' => 'F77COMPILE', 'compile_flag' => '-c', 'output_flag' => '-o', 'libtool_tag' => 'F77', 'lder' => 'F77LD', 'ld' => '$(F77)', 'pure' => 1, 'extensions' => ['.f', '.for']); # Fortran register_language ('name' => 'fc', 'Name' => 'Fortran', 'linker' => 'FCLINK', 'link' => '$(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@', 'flags' => ['FCFLAGS'], 'compile' => '$(FC) $(AM_FCFLAGS) $(FCFLAGS)', 'compiler' => 'FCCOMPILE', 'compile_flag' => '-c', 'output_flag' => '-o', 'lder' => 'FCLD', 'ld' => '$(FC)', 'pure' => 1, 'extensions' => ['.f90', '.f95']); # Preprocessed Fortran register_language ('name' => 'ppfc', 'Name' => 'Preprocessed Fortran', 'config_vars' => ['FC'], 'linker' => 'FCLINK', 'link' => '$(FCLD) $(AM_FFLAGS) $(FCFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@', 'lder' => 'FCLD', 'ld' => '$(FC)', 'flags' => ['FCFLAGS', 'CPPFLAGS'], 'compiler' => 'PPFCCOMPILE', 'compile' => '$(FC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_FCFLAGS) $(FCFLAGS)', 'compile_flag' => '-c', 'output_flag' => '-o', 'libtool_tag' => 'FC', 'pure' => 1, 'extensions' => ['.F90','.F95']); # Preprocessed Fortran 77 # # The current support for preprocessing Fortran 77 just involves # passing `$(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) # $(CPPFLAGS)' as additional flags to the Fortran 77 compiler, since # this is how GNU Make does it; see the `GNU Make Manual, Edition 0.51 # for `make' Version 3.76 Beta' (specifically, from info file # `(make)Catalogue of Rules'). # # A better approach would be to write an Autoconf test # (i.e. AC_PROG_FPP) for a Fortran 77 preprocessor, because not all # Fortran 77 compilers know how to do preprocessing. The Autoconf # macro AC_PROG_FPP should test the Fortran 77 compiler first for # preprocessing capabilities, and then fall back on cpp (if cpp were # available). register_language ('name' => 'ppf77', 'Name' => 'Preprocessed Fortran 77', 'config_vars' => ['F77'], 'linker' => 'F77LINK', 'link' => '$(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@', 'lder' => 'F77LD', 'ld' => '$(F77)', 'flags' => ['FFLAGS', 'CPPFLAGS'], 'compiler' => 'PPF77COMPILE', 'compile' => '$(F77) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_FFLAGS) $(FFLAGS)', 'compile_flag' => '-c', 'output_flag' => '-o', 'libtool_tag' => 'F77', 'pure' => 1, 'extensions' => ['.F']); # Ratfor. register_language ('name' => 'ratfor', 'Name' => 'Ratfor', 'config_vars' => ['F77'], 'linker' => 'F77LINK', 'link' => '$(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@', 'lder' => 'F77LD', 'ld' => '$(F77)', 'flags' => ['RFLAGS', 'FFLAGS'], # FIXME also FFLAGS. 'compile' => '$(F77) $(AM_FFLAGS) $(FFLAGS) $(AM_RFLAGS) $(RFLAGS)', 'compiler' => 'RCOMPILE', 'compile_flag' => '-c', 'output_flag' => '-o', 'libtool_tag' => 'F77', 'pure' => 1, 'extensions' => ['.r']); # Java via gcj. register_language ('name' => 'java', 'Name' => 'Java', 'config_vars' => ['GCJ'], 'linker' => 'GCJLINK', 'link' => '$(GCJLD) $(AM_GCJFLAGS) $(GCJFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@', 'autodep' => 'GCJ', 'flags' => ['GCJFLAGS'], 'compile' => '$(GCJ) $(AM_GCJFLAGS) $(GCJFLAGS)', 'compiler' => 'GCJCOMPILE', 'compile_flag' => '-c', 'output_flag' => '-o', 'libtool_tag' => 'GCJ', 'lder' => 'GCJLD', 'ld' => '$(GCJ)', 'pure' => 1, 'extensions' => ['.java', '.class', '.zip', '.jar']); ################################################################ # Error reporting functions. # err_am ($MESSAGE, [%OPTIONS]) # ----------------------------- # Uncategorized errors about the current Makefile.am. sub err_am ($;%) { msg_am ('error', @_); } # err_ac ($MESSAGE, [%OPTIONS]) # ----------------------------- # Uncategorized errors about configure.ac. sub err_ac ($;%) { msg_ac ('error', @_); } # msg_am ($CHANNEL, $MESSAGE, [%OPTIONS]) # --------------------------------------- # Messages about about the current Makefile.am. sub msg_am ($$;%) { my ($channel, $msg, %opts) = @_; msg $channel, "${am_file}.am", $msg, %opts; } # msg_ac ($CHANNEL, $MESSAGE, [%OPTIONS]) # --------------------------------------- # Messages about about configure.ac. sub msg_ac ($$;%) { my ($channel, $msg, %opts) = @_; msg $channel, $configure_ac, $msg, %opts; } ################################################################ # subst ($TEXT) # ------------- # Return a configure-style substitution using the indicated text. # We do this to avoid having the substitutions directly in automake.in; # when we do that they are sometimes removed and this causes confusion # and bugs. sub subst ($) { my ($text) = @_; return '@' . $text . '@'; } ################################################################ # $BACKPATH # &backname ($REL-DIR) # -------------------- # If I `cd $REL-DIR', then to come back, I should `cd $BACKPATH'. # For instance `src/foo' => `../..'. # Works with non strictly increasing paths, i.e., `src/../lib' => `..'. sub backname ($) { my ($file) = @_; my @res; foreach (split (/\//, $file)) { next if $_ eq '.' || $_ eq ''; if ($_ eq '..') { pop @res; } else { push (@res, '..'); } } return join ('/', @res) || '.'; } ################################################################ # Handle AUTOMAKE_OPTIONS variable. Return 1 on error, 0 otherwise. sub handle_options { my $var = var ('AUTOMAKE_OPTIONS'); if ($var) { # FIXME: We should disallow conditional definitions of AUTOMAKE_OPTIONS. if (process_option_list ($var->rdef (TRUE)->location, $var->value_as_list_recursive (cond_filter => TRUE))) { return 1; } } if ($strictness == GNITS) { set_option ('readme-alpha', INTERNAL); set_option ('std-options', INTERNAL); set_option ('check-news', INTERNAL); } return 0; } # shadow_unconditionally ($varname, $where) # ----------------------------------------- # Return a $(variable) that contains all possible values # $varname can take. # If the VAR wasn't defined conditionally, return $(VAR). # Otherwise we create a am__VAR_DIST variable which contains # all possible values, and return $(am__VAR_DIST). sub shadow_unconditionally ($$) { my ($varname, $where) = @_; my $var = var $varname; if ($var->has_conditional_contents) { $varname = "am__${varname}_DIST"; my @files = uniq ($var->value_as_list_recursive); define_pretty_variable ($varname, TRUE, $where, @files); } return "\$($varname)" } # get_object_extension ($OUT) # --------------------------- # Return object extension. Just once, put some code into the output. # OUT is the name of the output file sub get_object_extension { my ($out) = @_; # Maybe require libtool library object files. my $extension = '.$(OBJEXT)'; $extension = '.lo' if ($out =~ /\.la$/); # Check for automatic de-ANSI-fication. $extension = '$U' . $extension if option 'ansi2knr'; $get_object_extension_was_run = 1; return $extension; } # Call finish function for each language that was used. sub handle_languages { if (! option 'no-dependencies') { # Include auto-dep code. Don't include it if DEP_FILES would # be empty. if (&saw_sources_p (0) && keys %dep_files) { # Set location of depcomp. &define_variable ('depcomp', "\$(SHELL) $am_config_aux_dir/depcomp", INTERNAL); &define_variable ('am__depfiles_maybe', 'depfiles', INTERNAL); require_conf_file ("$am_file.am", FOREIGN, 'depcomp'); my @deplist = sort keys %dep_files; # Generate each `include' individually. Irix 6 make will # not properly include several files resulting from a # variable expansion; generating many separate includes # seems safest. $output_rules .= "\n"; foreach my $iter (@deplist) { $output_rules .= (subst ('AMDEP_TRUE') . subst ('am__include') . ' ' . subst ('am__quote') . $iter . subst ('am__quote') . "\n"); } # Compute the set of directories to remove in distclean-depend. my @depdirs = uniq (map { dirname ($_) } @deplist); $output_rules .= &file_contents ('depend', new Automake::Location, DEPDIRS => "@depdirs"); } } else { &define_variable ('depcomp', '', INTERNAL); &define_variable ('am__depfiles_maybe', '', INTERNAL); } my %done; # Is the c linker needed? my $needs_c = 0; foreach my $ext (sort keys %extension_seen) { next unless $extension_map{$ext}; my $lang = $languages{$extension_map{$ext}}; my $rule_file = $lang->rule_file || 'depend2'; # Get information on $LANG. my $pfx = $lang->autodep; my $fpfx = ($pfx eq '') ? 'CC' : $pfx; my ($AMDEP, $FASTDEP) = (option 'no-dependencies' || $lang->autodep eq 'no') ? ('FALSE', 'FALSE') : ('AMDEP', "am__fastdep$fpfx"); my %transform = ('EXT' => $ext, 'PFX' => $pfx, 'FPFX' => $fpfx, 'AMDEP' => $AMDEP, 'FASTDEP' => $FASTDEP, '-c' => $lang->compile_flag || '', 'MORE-THAN-ONE' => (count_files_for_language ($lang->name) > 1)); # Generate the appropriate rules for this extension. if (((! option 'no-dependencies') && $lang->autodep ne 'no') || defined $lang->compile) { # Some C compilers don't support -c -o. Use it only if really # needed. my $output_flag = $lang->output_flag || ''; $output_flag = '-o' if (! $output_flag && $lang->name eq 'c' && option 'subdir-objects'); # Compute a possible derived extension. # This is not used by depend2.am. my $der_ext = (&{$lang->output_extensions} ($ext))[0]; # When we output an inference rule like `.c.o:' we # have two cases to consider: either subdir-objects # is used, or it is not. # # In the latter case the rule is used to build objects # in the current directory, and dependencies always # go into `./$(DEPDIR)/'. We can hard-code this value. # # In the former case the rule can be used to build # objects in sub-directories too. Dependencies should # go into the appropriate sub-directories, e.g., # `sub/$(DEPDIR)/'. The value of this directory # need the be computed on-the-fly. # # DEPBASE holds the name of this directory, plus the # basename part of the object file (extensions Po, TPo, # Plo, TPlo will be added later as appropriate). It is # either hardcoded, or a shell variable (`$depbase') that # will be computed by the rule. my $depbase = option ('subdir-objects') ? '$$depbase' : '$(DEPDIR)/$*'; $output_rules .= file_contents ($rule_file, new Automake::Location, %transform, GENERIC => 1, 'DERIVED-EXT' => $der_ext, DEPBASE => $depbase, BASE => '$*', SOURCE => '$<', OBJ => '$@', OBJOBJ => '$@', LTOBJ => '$@', COMPILE => '$(' . $lang->compiler . ')', LTCOMPILE => '$(LT' . $lang->compiler . ')', -o => $output_flag, SUBDIROBJ => !! option 'subdir-objects'); } # Now include code for each specially handled object with this # language. my %seen_files = (); foreach my $file (@{$lang_specific_files{$lang->name}}) { my ($derived, $source, $obj, $myext, %file_transform) = @$file; # We might see a given object twice, for instance if it is # used under different conditions. next if defined $seen_files{$obj}; $seen_files{$obj} = 1; prog_error ("found " . $lang->name . " in handle_languages, but compiler not defined") unless defined $lang->compile; my $obj_compile = $lang->compile; # Rewrite each occurrence of `AM_$flag' in the compile # rule into `${derived}_$flag' if it exists. for my $flag (@{$lang->flags}) { my $val = "${derived}_$flag"; $obj_compile =~ s/\(AM_$flag\)/\($val\)/ if set_seen ($val); } my $libtool_tag = ''; if ($lang->libtool_tag && exists $libtool_tags{$lang->libtool_tag}) { $libtool_tag = '--tag=' . $lang->libtool_tag . ' ' } my $obj_ltcompile = '$(LIBTOOL) --mode=compile ' . $libtool_tag . $obj_compile; # We _need_ `-o' for per object rules. my $output_flag = $lang->output_flag || '-o'; my $depbase = dirname ($obj); $depbase = '' if $depbase eq '.'; $depbase .= '/' unless $depbase eq ''; $depbase .= '$(DEPDIR)/' . basename ($obj); # Support for deansified files in subdirectories is ugly # enough to deserve an explanation. # # A Note about normal ansi2knr processing first. On # # AUTOMAKE_OPTIONS = ansi2knr # bin_PROGRAMS = foo # foo_SOURCES = foo.c # # we generate rules similar to: # # foo: foo$U.o; link ... # foo$U.o: foo$U.c; compile ... # foo_.c: foo.c; ansi2knr ... # # this is fairly compact, and will call ansi2knr depending # on the value of $U (`' or `_'). # # It's harder with subdir sources. On # # AUTOMAKE_OPTIONS = ansi2knr # bin_PROGRAMS = foo # foo_SOURCES = sub/foo.c # # we have to create foo_.c in the current directory. # (Unless the user asks 'subdir-objects'.) This is important # in case the same file (`foo.c') is compiled from other # directories with different cpp options: foo_.c would # be preprocessed for only one set of options if it were # put in the subdirectory. # # Because foo$U.o must be built from either foo_.c or # sub/foo.c we can't be as concise as in the first example. # Instead we output # # foo: foo$U.o; link ... # foo_.o: foo_.c; compile ... # foo.o: sub/foo.c; compile ... # foo_.c: foo.c; ansi2knr ... # # This is why we'll now transform $rule_file twice # if we detect this case. # A first time we output the compile rule with `$U' # replaced by `_' and the source directory removed, # and another time we simply remove `$U'. # # Note that at this point $source (as computed by # &handle_single_transform) is `sub/foo$U.c'. # This can be confusing: it can be used as-is when # subdir-objects is set, otherwise you have to know # it really means `foo_.c' or `sub/foo.c'. my $objdir = dirname ($obj); my $srcdir = dirname ($source); if ($lang->ansi && $obj =~ /\$U/) { prog_error "`$obj' contains \$U, but `$source' doesn't." if $source !~ /\$U/; (my $source_ = $source) =~ s/\$U/_/g; # Output an additional rule if _.c and .c are not in # the same directory. (_.c is always in $objdir.) if ($objdir ne $srcdir) { (my $obj_ = $obj) =~ s/\$U/_/g; (my $depbase_ = $depbase) =~ s/\$U/_/g; $source_ = basename ($source_); $output_rules .= file_contents ($rule_file, new Automake::Location, %transform, GENERIC => 0, DEPBASE => $depbase_, BASE => $obj_, SOURCE => $source_, OBJ => "$obj_$myext", OBJOBJ => "$obj_.obj", LTOBJ => "$obj_.lo", COMPILE => $obj_compile, LTCOMPILE => $obj_ltcompile, -o => $output_flag, %file_transform); $obj =~ s/\$U//g; $depbase =~ s/\$U//g; $source =~ s/\$U//g; } } $output_rules .= file_contents ($rule_file, new Automake::Location, %transform, GENERIC => 0, DEPBASE => $depbase, BASE => $obj, SOURCE => $source, # Use $myext and not `.o' here, in case # we are actually building a new source # file -- e.g. via yacc. OBJ => "$obj$myext", OBJOBJ => "$obj.obj", LTOBJ => "$obj.lo", COMPILE => $obj_compile, LTCOMPILE => $obj_ltcompile, -o => $output_flag, %file_transform); } # The rest of the loop is done once per language. next if defined $done{$lang}; $done{$lang} = 1; # Load the language dependent Makefile chunks. my %lang = map { uc ($_) => 0 } keys %languages; $lang{uc ($lang->name)} = 1; $output_rules .= file_contents ('lang-compile', new Automake::Location, %transform, %lang); # If the source to a program consists entirely of code from a # `pure' language, for instance C++ for Fortran 77, then we # don't need the C compiler code. However if we run into # something unusual then we do generate the C code. There are # probably corner cases here that do not work properly. # People linking Java code to Fortran code deserve pain. $needs_c ||= ! $lang->pure; define_compiler_variable ($lang) if ($lang->compile); define_linker_variable ($lang) if ($lang->link); require_variables ("$am_file.am", $lang->Name . " source seen", TRUE, @{$lang->config_vars}); # Call the finisher. $lang->finish; # Flags listed in `->flags' are user variables (per GNU Standards), # they should not be overridden in the Makefile... my @dont_override = @{$lang->flags}; # ... and so is LDFLAGS. push @dont_override, 'LDFLAGS' if $lang->link; foreach my $flag (@dont_override) { my $var = var $flag; if ($var) { for my $cond ($var->conditions->conds) { if ($var->rdef ($cond)->owner == VAR_MAKEFILE) { msg_cond_var ('gnu', $cond, $flag, "`$flag' is a user variable, " . "you should not override it;\n" . "use `AM_$flag' instead."); } } } } } # If the project is entirely C++ or entirely Fortran 77 (i.e., 1 # suffix rule was learned), don't bother with the C stuff. But if # anything else creeps in, then use it. $needs_c = 1 if $need_link || suffix_rules_count > 1; if ($needs_c) { &define_compiler_variable ($languages{'c'}) unless defined $done{$languages{'c'}}; define_linker_variable ($languages{'c'}); } } # Check to make sure a source defined in LIBOBJS is not explicitly # mentioned. This is a separate function (as opposed to being inlined # in handle_source_transform) because it isn't always appropriate to # do this check. sub check_libobjs_sources { my ($one_file, $unxformed) = @_; foreach my $prefix ('', 'EXTRA_', 'dist_', 'nodist_', 'dist_EXTRA_', 'nodist_EXTRA_') { my @files; my $varname = $prefix . $one_file . '_SOURCES'; my $var = var ($varname); if ($var) { @files = $var->value_as_list_recursive; } elsif ($prefix eq '') { @files = ($unxformed . '.c'); } else { next; } foreach my $file (@files) { err_var ($prefix . $one_file . '_SOURCES', "automatically discovered file `$file' should not" . " be explicitly mentioned") if defined $libsources{$file}; } } } # @OBJECTS # handle_single_transform ($VAR, $TOPPARENT, $DERIVED, $OBJ, $FILE, %TRANSFORM) # ----------------------------------------------------------------------------- # Does much of the actual work for handle_source_transform. # Arguments are: # $VAR is the name of the variable that the source filenames come from # $TOPPARENT is the name of the _SOURCES variable which is being processed # $DERIVED is the name of resulting executable or library # $OBJ is the object extension (e.g., `$U.lo') # $FILE the source file to transform # %TRANSFORM contains extras arguments to pass to file_contents # when producing explicit rules # Result is a list of the names of objects # %linkers_used will be updated with any linkers needed sub handle_single_transform ($$$$$%) { my ($var, $topparent, $derived, $obj, $_file, %transform) = @_; my @files = ($_file); my @result = (); my $nonansi_obj = $obj; $nonansi_obj =~ s/\$U//g; # Turn sources into objects. We use a while loop like this # because we might add to @files in the loop. while (scalar @files > 0) { $_ = shift @files; # Configure substitutions in _SOURCES variables are errors. if (/^\@.*\@$/) { my $parent_msg = ''; $parent_msg = "\nand is referred to from `$topparent'" if $topparent ne $var->name; err_var ($var, "`" . $var->name . "' includes configure substitution `$_'" . $parent_msg . ";\nconfigure " . "substitutions are not allowed in _SOURCES variables"); next; } # If the source file is in a subdirectory then the `.o' is put # into the current directory, unless the subdir-objects option # is in effect. # Split file name into base and extension. next if ! /^(?:(.*)\/)?([^\/]*)($KNOWN_EXTENSIONS_PATTERN)$/; my $full = $_; my $directory = $1 || ''; my $base = $2; my $extension = $3; # We must generate a rule for the object if it requires its own flags. my $renamed = 0; my ($linker, $object); # This records whether we've seen a derived source file (e.g. # yacc output). my $derived_source = 0; # This holds the `aggregate context' of the file we are # currently examining. If the file is compiled with # per-object flags, then it will be the name of the object. # Otherwise it will be `AM'. This is used by the target hook # language function. my $aggregate = 'AM'; $extension = &derive_suffix ($extension, $nonansi_obj); my $lang; if ($extension_map{$extension} && ($lang = $languages{$extension_map{$extension}})) { # Found the language, so see what it says. &saw_extension ($extension); # Note: computed subr call. The language rewrite function # should return one of the LANG_* constants. It could # also return a list whose first value is such a constant # and whose second value is a new source extension which # should be applied. This means this particular language # generates another source file which we must then process # further. my $subr = \&{'lang_' . $lang->name . '_rewrite'}; my ($r, $source_extension) = &$subr ($directory, $base, $extension); # Skip this entry if we were asked not to process it. next if $r == LANG_IGNORE; # Now extract linker and other info. $linker = $lang->linker; my $this_obj_ext; if (defined $source_extension) { $this_obj_ext = $source_extension; $derived_source = 1; } elsif ($lang->ansi) { $this_obj_ext = $obj; } else { $this_obj_ext = $nonansi_obj; } $object = $base . $this_obj_ext; # Do we have per-executable flags for this executable? my $have_per_exec_flags = 0; foreach my $flag (@{$lang->flags}) { if (set_seen ("${derived}_$flag")) { $have_per_exec_flags = 1; last; } } if ($have_per_exec_flags) { # We have a per-executable flag in effect for this # object. In this case we rewrite the object's # name to ensure it is unique. We also require # the `compile' program to deal with compilers # where `-c -o' does not work. # We choose the name `DERIVED_OBJECT' to ensure # (1) uniqueness, and (2) continuity between # invocations. However, this will result in a # name that is too long for losing systems, in # some situations. So we provide _SHORTNAME to # override. my $dname = $derived; my $var = var ($derived . '_SHORTNAME'); if ($var) { # FIXME: should use the same Condition as # the _SOURCES variable. But this is really # silly overkill -- nobody should have # conditional shortnames. $dname = $var->variable_value; } $object = $dname . '-' . $object; require_conf_file ("$am_file.am", FOREIGN, 'compile') if $lang->name eq 'c'; prog_error ($lang->name . " flags defined without compiler") if ! defined $lang->compile; $renamed = 1; } # If rewrite said it was ok, put the object into a # subdir. if ($r == LANG_SUBDIR && $directory ne '') { $object = $directory . '/' . $object; } # If the object file has been renamed (because per-target # flags are used) we cannot compile the file with an # inference rule: we need an explicit rule. # # If the source is in a subdirectory and the object is in # the current directory, we also need an explicit rule. # # If both source and object files are in a subdirectory # (this happens when the subdir-objects option is used), # then the inference will work. # # The latter case deserves a historical note. When the # subdir-objects option was added on 1999-04-11 it was # thought that inferences rules would work for # subdirectory objects too. Later, on 1999-11-22, # automake was changed to output explicit rules even for # subdir-objects. Nobody remembers why, but this occured # soon after the merge of the user-dep-gen-branch so it # might be related. In late 2003 people complained about # the size of the generated Makefile.ins (libgcj, with # 2200+ subdir objects was reported to have a 9MB # Makefile), so we now rely on inference rules again. # Maybe we'll run across the same issue as in the past, # but at least this time we can document it. However since # dependency tracking has evolved it is possible that # our old problem no longer exists. # Using inference rules for subdir-objects has been tested # with GNU make, Solaris make, Ultrix make, BSD make, # HP-UX make, and OSF1 make successfully. if ($renamed || ($directory ne '' && ! option 'subdir-objects')) { my $obj_sans_ext = substr ($object, 0, - length ($this_obj_ext)); my $full_ansi = $full; if ($lang->ansi && option 'ansi2knr') { $full_ansi =~ s/$KNOWN_EXTENSIONS_PATTERN$/\$U$&/; $obj_sans_ext .= '$U'; } my @specifics = ($full_ansi, $obj_sans_ext, # Only use $this_obj_ext in the derived # source case because in the other case we # *don't* want $(OBJEXT) to appear here. ($derived_source ? $this_obj_ext : '.o')); # If we renamed the object then we want to use the # per-executable flag name. But if this is simply a # subdir build then we still want to use the AM_ flag # name. if ($renamed) { unshift @specifics, $derived; $aggregate = $derived; } else { unshift @specifics, 'AM'; } # Each item on this list is a reference to a list consisting # of four values followed by additional transform flags for # file_contents. The four values are the derived flag prefix # (e.g. for `foo_CFLAGS', it is `foo'), the name of the # source file, the base name of the output file, and # the extension for the object file. push (@{$lang_specific_files{$lang->name}}, [@specifics, %transform]); } } elsif ($extension eq $nonansi_obj) { # This is probably the result of a direct suffix rule. # In this case we just accept the rewrite. $object = "$base$extension"; $linker = ''; } else { # No error message here. Used to have one, but it was # very unpopular. # FIXME: we could potentially do more processing here, # perhaps treating the new extension as though it were a # new source extension (as above). This would require # more restructuring than is appropriate right now. next; } err_am "object `$object' created by `$full' and `$object_map{$object}'" if (defined $object_map{$object} && $object_map{$object} ne $full); my $comp_val = (($object =~ /\.lo$/) ? COMPILE_LIBTOOL : COMPILE_ORDINARY); (my $comp_obj = $object) =~ s/\.lo$/.\$(OBJEXT)/; if (defined $object_compilation_map{$comp_obj} && $object_compilation_map{$comp_obj} != 0 # Only see the error once. && ($object_compilation_map{$comp_obj} != (COMPILE_LIBTOOL | COMPILE_ORDINARY)) && $object_compilation_map{$comp_obj} != $comp_val) { err_am "object `$comp_obj' created both with libtool and without"; } $object_compilation_map{$comp_obj} |= $comp_val; if (defined $lang) { # Let the language do some special magic if required. $lang->target_hook ($aggregate, $object, $full, %transform); } if ($derived_source) { prog_error ($lang->name . " has automatic dependency tracking") if $lang->autodep ne 'no'; # Make sure this new source file is handled next. That will # make it appear to be at the right place in the list. unshift (@files, $object); # Distribute derived sources unless the source they are # derived from is not. &push_dist_common ($object) unless ($topparent =~ /^(?:nobase_)?nodist_/); next; } $linkers_used{$linker} = 1; push (@result, $object); if (! defined $object_map{$object}) { my @dep_list = (); $object_map{$object} = $full; # If resulting object is in subdir, we need to make # sure the subdir exists at build time. if ($object =~ /\//) { # FIXME: check that $DIRECTORY is somewhere in the # project # For Java, the way we're handling it right now, a # `..' component doesn't make sense. if ($lang->name eq 'java' && $object =~ /(\/|^)\.\.\//) { err_am "`$full' should not contain a `..' component"; } # Make sure object is removed by `make mostlyclean'. $compile_clean_files{$object} = MOSTLY_CLEAN; # If we have a libtool object then we also must remove # the ordinary .o. if ($object =~ /\.lo$/) { (my $xobj = $object) =~ s,lo$,\$(OBJEXT),; $compile_clean_files{$xobj} = MOSTLY_CLEAN; # Remove any libtool object in this directory. $libtool_clean_directories{$directory} = 1; } push (@dep_list, require_build_directory ($directory)); # If we're generating dependencies, we also want # to make sure that the appropriate subdir of the # .deps directory is created. push (@dep_list, require_build_directory ($directory . '/$(DEPDIR)')) unless option 'no-dependencies'; } &pretty_print_rule ($object . ':', "\t", @dep_list) if scalar @dep_list > 0; } # Transform .o or $o file into .P file (for automatic # dependency code). if ($lang && $lang->autodep ne 'no') { my $depfile = $object; $depfile =~ s/\.([^.]*)$/.P$1/; $depfile =~ s/\$\(OBJEXT\)$/o/; $dep_files{dirname ($depfile) . '/$(DEPDIR)/' . basename ($depfile)} = 1; } } return @result; } # $LINKER # define_objects_from_sources ($VAR, $OBJVAR, $NODEFINE, $ONE_FILE, # $OBJ, $PARENT, $TOPPARENT, $WHERE, %TRANSFORM) # --------------------------------------------------------------------------- # Define an _OBJECTS variable for a _SOURCES variable (or subvariable) # # Arguments are: # $VAR is the name of the _SOURCES variable # $OBJVAR is the name of the _OBJECTS variable if known (otherwise # it will be generated and returned). # $NODEFINE is a boolean: if true, $OBJVAR will not be defined (but # work done to determine the linker will be). # $ONE_FILE is the canonical (transformed) name of object to build # $OBJ is the object extension (i.e. either `.o' or `.lo'). # $TOPPARENT is the _SOURCES variable being processed. # $WHERE context into which this definition is done # %TRANSFORM extra arguments to pass to file_contents when producing # rules # # Result is a pair ($LINKER, $OBJVAR): # $LINKER is a boolean, true if a linker is needed to deal with the objects sub define_objects_from_sources ($$$$$$$%) { my ($var, $objvar, $nodefine, $one_file, $obj, $topparent, $where, %transform) = @_; my $needlinker = ""; transform_variable_recursively ($var, $objvar, 'am__objects', $nodefine, $where, # The transform code to run on each filename. sub { my ($subvar, $val, $cond, $full_cond) = @_; my @trans = handle_single_transform ($subvar, $topparent, $one_file, $obj, $val, %transform); $needlinker = "true" if @trans; return @trans; }); return $needlinker; } # handle_source_transform ($CANON_TARGET, $TARGET, $OBJEXT, $WHERE, %TRANSFORM) # ----------------------------------------------------------------------------- # Handle SOURCE->OBJECT transform for one program or library. # Arguments are: # canonical (transformed) name of target to build # actual target of object to build # object extension (i.e. either `.o' or `$o'. # location of the source variable # extra arguments to pass to file_contents when producing rules # Return result is name of linker variable that must be used. # Empty return means just use `LINK'. sub handle_source_transform ($$$$%) { # one_file is canonical name. unxformed is given name. obj is # object extension. my ($one_file, $unxformed, $obj, $where, %transform) = @_; my ($linker) = ''; # No point in continuing if _OBJECTS is defined. return if reject_var ($one_file . '_OBJECTS', $one_file . '_OBJECTS should not be defined'); my %used_pfx = (); my $needlinker; %linkers_used = (); foreach my $prefix ('', 'EXTRA_', 'dist_', 'nodist_', 'dist_EXTRA_', 'nodist_EXTRA_') { my $varname = $prefix . $one_file . "_SOURCES"; my $var = var $varname; next unless $var; # We are going to define _OBJECTS variables using the prefix. # Then we glom them all together. So we can't use the null # prefix here as we need it later. my $xpfx = ($prefix eq '') ? 'am_' : $prefix; # Keep track of which prefixes we saw. $used_pfx{$xpfx} = 1 unless $prefix =~ /EXTRA_/; push @sources, "\$($varname)"; push @dist_sources, shadow_unconditionally ($varname, $where) unless (option ('no-dist') || $prefix =~ /^nodist_/); $needlinker |= define_objects_from_sources ($varname, $xpfx . $one_file . '_OBJECTS', $prefix =~ /EXTRA_/, $one_file, $obj, $varname, $where, DIST_SOURCE => ($prefix !~ /^nodist_/), %transform); } if ($needlinker) { $linker ||= &resolve_linker (%linkers_used); } my @keys = sort keys %used_pfx; if (scalar @keys == 0) { # The default source for libfoo.la is libfoo.c, but for # backward compatibility we first look at libfoo_la.c my $old_default_source = "$one_file.c"; (my $default_source = $unxformed) =~ s,(\.[^./\\]*)?$,.c,; if ($old_default_source ne $default_source && (rule $old_default_source || rule '$(srcdir)/' . $old_default_source || rule '${srcdir}/' . $old_default_source || -f $old_default_source)) { my $loc = $where->clone; $loc->pop_context; msg ('obsolete', $loc, "the default source for `$unxformed' has been changed " . "to `$default_source'.\n(Using `$old_default_source' for " . "backward compatibility.)"); $default_source = $old_default_source; } # If a rule exists to build this source with a $(srcdir) # prefix, use that prefix in our variables too. This is for # the sake of BSD Make. if (rule '$(srcdir)/' . $default_source || rule '${srcdir}/' . $default_source) { $default_source = '$(srcdir)/' . $default_source; } &define_variable ($one_file . "_SOURCES", $default_source, $where); push (@sources, $default_source); push (@dist_sources, $default_source); %linkers_used = (); my (@result) = handle_single_transform ($one_file . '_SOURCES', $one_file . '_SOURCES', $one_file, $obj, $default_source, %transform); $linker ||= &resolve_linker (%linkers_used); define_pretty_variable ($one_file . '_OBJECTS', TRUE, $where, @result); } else { @keys = map { '$(' . $_ . $one_file . '_OBJECTS)' } @keys; define_pretty_variable ($one_file . '_OBJECTS', TRUE, $where, @keys); } # If we want to use `LINK' we must make sure it is defined. if ($linker eq '') { $need_link = 1; } return $linker; } # handle_lib_objects ($XNAME, $VAR) # --------------------------------- # Special-case ALLOCA and LIBOBJS substitutions in _LDADD or _LIBADD variables. # Also, generate _DEPENDENCIES variable if appropriate. # Arguments are: # transformed name of object being built, or empty string if no object # name of _LDADD/_LIBADD-type variable to examine # Returns 1 if LIBOBJS seen, 0 otherwise. sub handle_lib_objects { my ($xname, $varname) = @_; my $var = var ($varname); prog_error "handle_lib_objects: `$varname' undefined" unless $var; prog_error "handle_lib_objects: unexpected variable name `$varname'" unless $varname =~ /^(.*)(?:LIB|LD)ADD$/; my $prefix = $1 || 'AM_'; my $seen_libobjs = 0; my $flagvar = 0; transform_variable_recursively ($varname, $xname . '_DEPENDENCIES', 'am__DEPENDENCIES', ! $xname, INTERNAL, # Transformation function, run on each filename. sub { my ($subvar, $val, $cond, $full_cond) = @_; if ($val =~ /^-/) { # Skip -lfoo and -Ldir silently; these are explicitly allowed. if ($val !~ /^-[lL]/ && # Skip -dlopen and -dlpreopen; these are explicitly allowed # for Libtool libraries or programs. (Actually we are a bit # laxest here since this code also applies to non-libtool # libraries or programs, for which -dlopen and -dlopreopen # are pure non-sence. Diagnosting this doesn't seems very # important: the developer will quickly get complaints from # the linker.) $val !~ /^-dl(?:pre)?open$/ && # Only get this error once. ! $flagvar) { $flagvar = 1; # FIXME: should display a stack of nested variables # as context when $var != $subvar. err_var ($var, "linker flags such as `$val' belong in " . "`${prefix}LDFLAGS"); } return (); } elsif ($val !~ /^\@.*\@$/) { # Assume we have a file of some sort, and output it into the # dependency variable. Autoconf substitutions are not output; # rarely is a new dependency substituted into e.g. foo_LDADD # -- but bad things (e.g. -lX11) are routinely substituted. # Note that LIBOBJS and ALLOCA are exceptions to this rule, # and handled specially below. return $val; } elsif ($val =~ /^\@(LT)?LIBOBJS\@$/) { handle_LIBOBJS ($subvar, $cond, $1); $seen_libobjs = 1; return $val; } elsif ($val =~ /^\@(LT)?ALLOCA\@$/) { handle_ALLOCA ($subvar, $cond, $1); return $val; } else { return (); } }); return $seen_libobjs; } sub handle_LIBOBJS ($$$) { my ($var, $cond, $lt) = @_; $lt ||= ''; my $myobjext = ($1 ? 'l' : '') . 'o'; $var->requires_variables ("\@${lt}LIBOBJS\@ used", $lt . 'LIBOBJS') if ! keys %libsources; foreach my $iter (keys %libsources) { if ($iter =~ /\.[cly]$/) { &saw_extension ($&); &saw_extension ('.c'); } if ($iter =~ /\.h$/) { require_file_with_macro ($cond, $var, FOREIGN, $iter); } elsif ($iter ne 'alloca.c') { my $rewrite = $iter; $rewrite =~ s/\.c$/.P$myobjext/; $dep_files{'$(DEPDIR)/' . $rewrite} = 1; $rewrite = "^" . quotemeta ($iter) . "\$"; # Only require the file if it is not a built source. my $bs = var ('BUILT_SOURCES'); if (! $bs || ! grep (/$rewrite/, $bs->value_as_list_recursive)) { require_file_with_macro ($cond, $var, FOREIGN, $iter); } } } } sub handle_ALLOCA ($$$) { my ($var, $cond, $lt) = @_; my $myobjext = ($lt ? 'l' : '') . 'o'; $lt ||= ''; $var->requires_variables ("\@${lt}ALLOCA\@ used", $lt . 'ALLOCA'); $dep_files{'$(DEPDIR)/alloca.P' . $myobjext} = 1; require_file_with_macro ($cond, $var, FOREIGN, 'alloca.c'); &saw_extension ('c'); } # Canonicalize the input parameter sub canonicalize { my ($string) = @_; $string =~ tr/A-Za-z0-9_\@/_/c; return $string; } # Canonicalize a name, and check to make sure the non-canonical name # is never used. Returns canonical name. Arguments are name and a # list of suffixes to check for. sub check_canonical_spelling { my ($name, @suffixes) = @_; my $xname = &canonicalize ($name); if ($xname ne $name) { foreach my $xt (@suffixes) { reject_var ("$name$xt", "use `$xname$xt', not `$name$xt'"); } } return $xname; } # handle_compile () # ----------------- # Set up the compile suite. sub handle_compile () { return unless $get_object_extension_was_run; # Boilerplate. my $default_includes = ''; if (! option 'nostdinc') { $default_includes = ' -I. -I$(srcdir)'; my $var = var 'CONFIG_HEADER'; if ($var) { foreach my $hdr (split (' ', $var->variable_value)) { $default_includes .= ' -I' . dirname ($hdr); } } } my (@mostly_rms, @dist_rms); foreach my $item (sort keys %compile_clean_files) { if ($compile_clean_files{$item} == MOSTLY_CLEAN) { push (@mostly_rms, "\t-rm -f $item"); } elsif ($compile_clean_files{$item} == DIST_CLEAN) { push (@dist_rms, "\t-rm -f $item"); } else { prog_error 'invalid entry in %compile_clean_files'; } } my ($coms, $vars, $rules) = &file_contents_internal (1, "$libdir/am/compile.am", new Automake::Location, ('DEFAULT_INCLUDES' => $default_includes, 'MOSTLYRMS' => join ("\n", @mostly_rms), 'DISTRMS' => join ("\n", @dist_rms))); $output_vars .= $vars; $output_rules .= "$coms$rules"; # Check for automatic de-ANSI-fication. if (option 'ansi2knr') { my ($ansi2knr_filename, $ansi2knr_where) = @{option 'ansi2knr'}; my $ansi2knr_dir = ''; require_variables ($ansi2knr_where, "option `ansi2knr' is used", TRUE, "ANSI2KNR", "U"); # topdir is where ansi2knr should be. if ($ansi2knr_filename eq 'ansi2knr') { # Only require ansi2knr files if they should appear in # this directory. require_file ($ansi2knr_where, FOREIGN, 'ansi2knr.c', 'ansi2knr.1'); # ansi2knr needs to be built before subdirs, so unshift it. unshift (@all, '$(ANSI2KNR)'); } else { $ansi2knr_dir = dirname ($ansi2knr_filename); } $output_rules .= &file_contents ('ansi2knr', new Automake::Location, 'ANSI2KNR-DIR' => $ansi2knr_dir); } } # handle_libtool () # ----------------- # Handle libtool rules. sub handle_libtool { return unless var ('LIBTOOL'); # Libtool requires some files, but only at top level. require_conf_file_with_macro (TRUE, 'LIBTOOL', FOREIGN, @libtool_files) if $relative_dir eq '.'; my @libtool_rms; foreach my $item (sort keys %libtool_clean_directories) { my $dir = ($item eq '.') ? '' : "$item/"; # .libs is for Unix, _libs for DOS. push (@libtool_rms, "\t-rm -rf ${dir}.libs ${dir}_libs"); } # Output the libtool compilation rules. $output_rules .= &file_contents ('libtool', new Automake::Location, LTRMS => join ("\n", @libtool_rms)); } # handle_programs () # ------------------ # Handle C programs. sub handle_programs { my @proglist = &am_install_var ('progs', 'PROGRAMS', 'bin', 'sbin', 'libexec', 'pkglib', 'noinst', 'check'); return if ! @proglist; my $seen_global_libobjs = var ('LDADD') && &handle_lib_objects ('', 'LDADD'); foreach my $pair (@proglist) { my ($where, $one_file) = @$pair; my $seen_libobjs = 0; my $obj = &get_object_extension ($one_file); # Strip any $(EXEEXT) suffix the user might have added, or this # will confuse &handle_source_transform and &check_canonical_spelling. # We'll add $(EXEEXT) back later anyway. $one_file =~ s/\$\(EXEEXT\)$//; # Canonicalize names and check for misspellings. my $xname = &check_canonical_spelling ($one_file, '_LDADD', '_LDFLAGS', '_SOURCES', '_OBJECTS', '_DEPENDENCIES'); $where->push_context ("while processing program `$one_file'"); $where->set (INTERNAL->get); my $linker = &handle_source_transform ($xname, $one_file, $obj, $where, NONLIBTOOL => 1, LIBTOOL => 0); if (var ($xname . "_LDADD")) { $seen_libobjs = &handle_lib_objects ($xname, $xname . '_LDADD'); } else { # User didn't define prog_LDADD override. So do it. &define_variable ($xname . '_LDADD', '$(LDADD)', $where); # This does a bit too much work. But we need it to # generate _DEPENDENCIES when appropriate. if (var ('LDADD')) { $seen_libobjs = &handle_lib_objects ($xname, 'LDADD'); } } reject_var ($xname . '_LIBADD', "use `${xname}_LDADD', not `${xname}_LIBADD'"); set_seen ($xname . '_DEPENDENCIES'); set_seen ($xname . '_LDFLAGS'); # Determine program to use for link. my $xlink; if (var ($xname . '_LINK')) { $xlink = $xname . '_LINK'; } else { $xlink = $linker ? $linker : 'LINK'; } # If the resulting program lies into a subdirectory, # make sure this directory will exist. my $dirstamp = require_build_directory_maybe ($one_file); $output_rules .= &file_contents ('program', $where, PROGRAM => $one_file, XPROGRAM => $xname, XLINK => $xlink, DIRSTAMP => $dirstamp, EXEEXT => '$(EXEEXT)'); if ($seen_libobjs || $seen_global_libobjs) { if (var ($xname . '_LDADD')) { &check_libobjs_sources ($xname, $xname . '_LDADD'); } elsif (var ('LDADD')) { &check_libobjs_sources ($xname, 'LDADD'); } } } } # handle_libraries () # ------------------- # Handle libraries. sub handle_libraries { my @liblist = &am_install_var ('libs', 'LIBRARIES', 'lib', 'pkglib', 'noinst', 'check'); return if ! @liblist; my @prefix = am_primary_prefixes ('LIBRARIES', 0, 'lib', 'pkglib', 'noinst', 'check'); if (@prefix) { my $var = rvar ($prefix[0] . '_LIBRARIES'); $var->requires_variables ('library used', 'RANLIB'); } &define_variable ('AR', 'ar', INTERNAL); &define_variable ('ARFLAGS', 'cru', INTERNAL); foreach my $pair (@liblist) { my ($where, $onelib) = @$pair; my $seen_libobjs = 0; # Check that the library fits the standard naming convention. my $bn = basename ($onelib); if ($bn !~ /^lib.*\.a$/) { $bn =~ s/^(?:lib)?(.*?)(?:\.[^.]*)?$/lib$1.a/; my $suggestion = dirname ($onelib) . "/$bn"; $suggestion =~ s|^\./||g; msg ('error-gnu/warn', $where, "`$onelib' is not a standard library name\n" . "did you mean `$suggestion'?") } $where->push_context ("while processing library `$onelib'"); $where->set (INTERNAL->get); my $obj = &get_object_extension ($onelib); # Canonicalize names and check for misspellings. my $xlib = &check_canonical_spelling ($onelib, '_LIBADD', '_SOURCES', '_OBJECTS', '_DEPENDENCIES', '_AR'); if (! var ($xlib . '_AR')) { &define_variable ($xlib . '_AR', '$(AR) $(ARFLAGS)', $where); } # Generate support for conditional object inclusion in # libraries. if (var ($xlib . '_LIBADD')) { if (&handle_lib_objects ($xlib, $xlib . '_LIBADD')) { $seen_libobjs = 1; } } else { &define_variable ($xlib . "_LIBADD", '', $where); } reject_var ($xlib . '_LDADD', "use `${xlib}_LIBADD', not `${xlib}_LDADD'"); # Make sure we at look at this. set_seen ($xlib . '_DEPENDENCIES'); &handle_source_transform ($xlib, $onelib, $obj, $where, NONLIBTOOL => 1, LIBTOOL => 0); # If the resulting library lies into a subdirectory, # make sure this directory will exist. my $dirstamp = require_build_directory_maybe ($onelib); $output_rules .= &file_contents ('library', $where, LIBRARY => $onelib, XLIBRARY => $xlib, DIRSTAMP => $dirstamp); if ($seen_libobjs) { if (var ($xlib . '_LIBADD')) { &check_libobjs_sources ($xlib, $xlib . '_LIBADD'); } } } } # handle_ltlibraries () # --------------------- # Handle shared libraries. sub handle_ltlibraries { my @liblist = &am_install_var ('ltlib', 'LTLIBRARIES', 'noinst', 'lib', 'pkglib', 'check'); return if ! @liblist; my @prefix = am_primary_prefixes ('LTLIBRARIES', 0, 'lib', 'pkglib', 'noinst', 'check'); if (@prefix) { my $var = rvar ($prefix[0] . '_LTLIBRARIES'); $var->requires_variables ('Libtool library used', 'LIBTOOL'); } my %instdirs = (); my %instconds = (); my %liblocations = (); # Location (in Makefile.am) of each library. foreach my $key (@prefix) { # Get the installation directory of each library. (my $dir = $key) =~ s/^nobase_//; my $var = rvar ($key . '_LTLIBRARIES'); # We reject libraries which are installed in several places # in the same condition, because we can only specify one # `-rpath' option. $var->traverse_recursively (sub { my ($var, $val, $cond, $full_cond) = @_; my $hcond = $full_cond->human; my $where = $var->rdef ($cond)->location; # A library cannot be installed in different directory # in overlapping conditions. if (exists $instconds{$val}) { my ($msg, $acond) = $instconds{$val}->ambiguous_p ($val, $full_cond); if ($msg) { error ($where, $msg, partial => 1); my $dirtxt = "installed in `$dir'"; $dirtxt = "built for `$dir'" if $dir eq 'EXTRA' || $dir eq 'noinst' || $dir eq 'check'; my $dircond = $full_cond->true ? "" : " in condition $hcond"; error ($where, "`$val' should be $dirtxt$dircond ...", partial => 1); my $hacond = $acond->human; my $adir = $instdirs{$val}{$acond}; my $adirtxt = "installed in `$adir'"; $adirtxt = "built for `$adir'" if ($adir eq 'EXTRA' || $adir eq 'noinst' || $adir eq 'check'); my $adircond = $acond->true ? "" : " in condition $hacond"; my $onlyone = ($dir ne $adir) ? ("\nLibtool libraries can be built for only one " . "destination.") : ""; error ($liblocations{$val}{$acond}, "... and should also be $adirtxt$adircond.$onlyone"); return; } } else { $instconds{$val} = new Automake::DisjConditions; } $instdirs{$val}{$full_cond} = $dir; $liblocations{$val}{$full_cond} = $where; $instconds{$val} = $instconds{$val}->merge ($full_cond); }, sub { return (); }, skip_ac_subst => 1); } foreach my $pair (@liblist) { my ($where, $onelib) = @$pair; my $seen_libobjs = 0; my $obj = &get_object_extension ($onelib); # Canonicalize names and check for misspellings. my $xlib = &check_canonical_spelling ($onelib, '_LIBADD', '_LDFLAGS', '_SOURCES', '_OBJECTS', '_DEPENDENCIES'); # Check that the library fits the standard naming convention. my $libname_rx = '^lib.*\.la'; my $ldvar = var ("${xlib}_LDFLAGS") || var ('AM_LDFLAGS'); my $ldvar2 = var ('LDFLAGS'); if (($ldvar && grep (/-module/, $ldvar->value_as_list_recursive)) || ($ldvar2 && grep (/-module/, $ldvar2->value_as_list_recursive))) { # Relax name checking for libtool modules. $libname_rx = '\.la'; } my $bn = basename ($onelib); if ($bn !~ /$libname_rx$/) { my $type = 'library'; if ($libname_rx eq '\.la') { $bn =~ s/^(lib|)(.*?)(?:\.[^.]*)?$/$1$2.la/; $type = 'module'; } else { $bn =~ s/^(?:lib)?(.*?)(?:\.[^.]*)?$/lib$1.la/; } my $suggestion = dirname ($onelib) . "/$bn"; $suggestion =~ s|^\./||g; msg ('error-gnu/warn', $where, "`$onelib' is not a standard libtool $type name\n" . "did you mean `$suggestion'?") } $where->push_context ("while processing Libtool library `$onelib'"); $where->set (INTERNAL->get); # Make sure we look at these. set_seen ($xlib . '_LDFLAGS'); set_seen ($xlib . '_DEPENDENCIES'); # Generate support for conditional object inclusion in # libraries. if (var ($xlib . '_LIBADD')) { if (&handle_lib_objects ($xlib, $xlib . '_LIBADD')) { $seen_libobjs = 1; } } else { &define_variable ($xlib . "_LIBADD", '', $where); } reject_var ("${xlib}_LDADD", "use `${xlib}_LIBADD', not `${xlib}_LDADD'"); my $linker = &handle_source_transform ($xlib, $onelib, $obj, $where, NONLIBTOOL => 0, LIBTOOL => 1); # Determine program to use for link. my $xlink; if (var ($xlib . '_LINK')) { $xlink = $xlib . '_LINK'; } else { $xlink = $linker ? $linker : 'LINK'; } my $rpathvar = "am_${xlib}_rpath"; my $rpath = "\$($rpathvar)"; foreach my $rcond ($instconds{$onelib}->conds) { my $val; if ($instdirs{$onelib}{$rcond} eq 'EXTRA' || $instdirs{$onelib}{$rcond} eq 'noinst' || $instdirs{$onelib}{$rcond} eq 'check') { # It's an EXTRA_ library, so we can't specify -rpath, # because we don't know where the library will end up. # The user probably knows, but generally speaking automake # doesn't -- and in fact configure could decide # dynamically between two different locations. $val = ''; } else { $val = ('-rpath $(' . $instdirs{$onelib}{$rcond} . 'dir)'); } if ($rcond->true) { # If $rcond is true there is only one condition and # there is no point defining an helper variable. $rpath = $val; } else { define_pretty_variable ($rpathvar, $rcond, INTERNAL, $val); } } # If the resulting library lies into a subdirectory, # make sure this directory will exist. my $dirstamp = require_build_directory_maybe ($onelib); # Remember to cleanup .libs/ in this directory. my $dirname = dirname $onelib; $libtool_clean_directories{$dirname} = 1; $output_rules .= &file_contents ('ltlibrary', $where, LTLIBRARY => $onelib, XLTLIBRARY => $xlib, RPATH => $rpath, XLINK => $xlink, DIRSTAMP => $dirstamp); if ($seen_libobjs) { if (var ($xlib . '_LIBADD')) { &check_libobjs_sources ($xlib, $xlib . '_LIBADD'); } } } } # See if any _SOURCES variable were misspelled. sub check_typos () { # It is ok if the user sets this particular variable. set_seen 'AM_LDFLAGS'; foreach my $var (variables) { my $varname = $var->name; # A configure variable is always legitimate. next if exists $configure_vars{$varname}; my $check = 0; foreach my $primary ('_SOURCES', '_LIBADD', '_LDADD', '_LDFLAGS', '_DEPENDENCIES') { if ($varname =~ /^(.*)$primary$/) { $check = $1; last; } } next unless $check; for my $cond ($var->conditions->conds) { msg_var ('syntax', $var, "variable `$varname' is defined but no" . " program or\nlibrary has `$check' as canonic name" . " (possible typo)") unless $var->rdef ($cond)->seen; } } } # Handle scripts. sub handle_scripts { # NOTE we no longer automatically clean SCRIPTS, because it is # useful to sometimes distribute scripts verbatim. This happens # e.g. in Automake itself. &am_install_var ('-candist', 'scripts', 'SCRIPTS', 'bin', 'sbin', 'libexec', 'pkgdata', 'noinst', 'check'); } ## ------------------------ ## ## Handling Texinfo files. ## ## ------------------------ ## # ($OUTFILE, $VFILE, @CLEAN_FILES) # &scan_texinfo_file ($FILENAME) # ------------------------------ # $OUTFILE - name of the info file produced by $FILENAME. # $VFILE - name of the version.texi file used (undef if none). # @CLEAN_FILES - list of byproducts (indexes etc.) sub scan_texinfo_file ($) { my ($filename) = @_; # Some of the following extensions are always created, no matter # whether indexes are used or not. Other (like cps, fns, ... pgs) # are only created when they are used. We used to scan $FILENAME # for their use, but that is not enough: they could be used in # included files. We can't scan included files because we don't # know the include path. Therefore we always erase these files, no # matter whether they are used or not. # # (tmp is only created if an @macro is used and a certain e-TeX # feature is not available.) my %clean_suffixes = map { $_ => 1 } (qw(aux log toc tmp cp cps fn fns ky kys vr vrs tp tps pg pgs)); # grep 'new.*index' texinfo.tex my $texi = new Automake::XFile "< $filename"; verb "reading $filename"; my ($outfile, $vfile); while ($_ = $texi->getline) { if (/^\@setfilename +(\S+)/) { # Honor only the first @setfilename. (It's possible to have # more occurrences later if the manual shows examples of how # to use @setfilename...) next if $outfile; $outfile = $1; if ($outfile =~ /\.(.+)$/ && $1 ne 'info') { error ("$filename:$.", "output `$outfile' has unrecognized extension"); return; } } # A "version.texi" file is actually any file whose name matches # "vers*.texi". elsif (/^\@include\s+(vers[^.]*\.texi)\s*$/) { $vfile = $1; } # Try to find new or unused indexes. # Creating a new category of index. elsif (/^\@def(code)?index (\w+)/) { $clean_suffixes{$2} = 1; $clean_suffixes{"$2s"} = 1; } # Merging an index into an another. elsif (/^\@syn(code)?index (\w+) (\w+)/) { delete $clean_suffixes{"$2s"}; $clean_suffixes{"$3s"} = 1; } } if (! $outfile) { err_am "`$filename' missing \@setfilename"; return; } my $infobase = basename ($filename); $infobase =~ s/\.te?xi(nfo)?$//; return ($outfile, $vfile, map { "$infobase.$_" } (sort keys %clean_suffixes)); } # ($DIRSTAMP, @CLEAN_FILES) # output_texinfo_build_rules ($SOURCE, $DEST, $INSRC, @DEPENDENCIES) # ------------------------------------------------------------------ # SOURCE - the source Texinfo file # DEST - the destination Info file # INSRC - wether DEST should be built in the source tree # DEPENDENCIES - known dependencies sub output_texinfo_build_rules ($$$@) { my ($source, $dest, $insrc, @deps) = @_; # Split `a.texi' into `a' and `.texi'. my ($spfx, $ssfx) = ($source =~ /^(.*?)(\.[^.]*)?$/); my ($dpfx, $dsfx) = ($dest =~ /^(.*?)(\.[^.]*)?$/); $ssfx ||= ""; $dsfx ||= ""; # We can output two kinds of rules: the "generic" rules use Make # suffix rules and are appropriate when $source and $dest do not lie # in a sub-directory; the "specific" rules are needed in the other # case. # # The former are output only once (this is not really apparent here, # but just remember that some logic deeper in Automake will not # output the same rule twice); while the later need to be output for # each Texinfo source. my $generic; my $makeinfoflags; my $sdir = dirname $source; if ($sdir eq '.' && dirname ($dest) eq '.') { $generic = 1; $makeinfoflags = '-I $(srcdir)'; } else { $generic = 0; $makeinfoflags = "-I $sdir -I \$(srcdir)/$sdir"; } # A directory can contain two kinds of info files: some built in the # source tree, and some built in the build tree. The rules are # different in each case. However we cannot output two different # set of generic rules. Because in-source builds are more usual, we # use generic rules in this case and fall back to "specific" rules # for build-dir builds. (It should not be a problem to invert this # if needed.) $generic = 0 unless $insrc; # We cannot use a suffix rule to build info files with an empty # extension. Otherwise we would output a single suffix inference # rule, with separate dependencies, as in # # .texi: # $(MAKEINFO) ... # foo.info: foo.texi # # which confuse Solaris make. (See the Autoconf manual for # details.) Therefore we use a specific rule in this case. This # applies to info files only (dvi and pdf files always have an # extension). my $generic_info = ($generic && $dsfx) ? 1 : 0; # If the resulting file lie into a subdirectory, # make sure this directory will exist. my $dirstamp = require_build_directory_maybe ($dest); my $dipfx = ($insrc ? '$(srcdir)/' : '') . $dpfx; $output_rules .= file_contents ('texibuild', new Automake::Location, DEPS => "@deps", DEST_PREFIX => $dpfx, DEST_INFO_PREFIX => $dipfx, DEST_SUFFIX => $dsfx, DIRSTAMP => $dirstamp, GENERIC => $generic, GENERIC_INFO => $generic_info, INSRC => $insrc, MAKEINFOFLAGS => $makeinfoflags, SOURCE => ($generic ? '$<' : $source), SOURCE_INFO => ($generic_info ? '$<' : $source), SOURCE_REAL => $source, SOURCE_SUFFIX => $ssfx, ); return ($dirstamp, "$dpfx.dvi", "$dpfx.pdf", "$dpfx.ps", "$dpfx.html"); } # $TEXICLEANS # handle_texinfo_helper ($info_texinfos) # -------------------------------------- # Handle all Texinfo source; helper for handle_texinfo. sub handle_texinfo_helper ($) { my ($info_texinfos) = @_; my (@infobase, @info_deps_list, @texi_deps); my %versions; my $done = 0; my @texi_cleans; # Build a regex matching user-cleaned files. my $d = var 'DISTCLEANFILES'; my $c = var 'CLEANFILES'; my @f = (); push @f, $d->value_as_list_recursive (inner_expand => 1) if $d; push @f, $c->value_as_list_recursive (inner_expand => 1) if $c; @f = map { s|[^A-Za-z_0-9*\[\]\-]|\\$&|g; s|\*|[^/]*|g; $_; } @f; my $user_cleaned_files = '^(?:' . join ('|', @f) . ')$'; foreach my $texi ($info_texinfos->value_as_list_recursive (inner_expand => 1)) { my $infobase = $texi; $infobase =~ s/\.(txi|texinfo|texi)$//; if ($infobase eq $texi) { # FIXME: report line number. err_am "texinfo file `$texi' has unrecognized extension"; next; } push @infobase, $infobase; # If 'version.texi' is referenced by input file, then include # automatic versioning capability. my ($out_file, $vtexi, @clean_files) = scan_texinfo_file ("$relative_dir/$texi") or next; push (@texi_cleans, @clean_files); # If the Texinfo source is in a subdirectory, create the # resulting info in this subdirectory. If it is in the current # directory, try hard to not prefix "./" because it breaks the # generic rules. my $outdir = dirname ($texi) . '/'; $outdir = "" if $outdir eq './'; $out_file = $outdir . $out_file; # Until Automake 1.6.3, .info files were built in the # source tree. This was an obstacle to the support of # non-distributed .info files, and non-distributed .texi # files. # # * Non-distributed .texi files is important in some packages # where .texi files are built at make time, probably using # other binaries built in the package itself, maybe using # tools or information found on the build host. Because # these files are not distributed they are always rebuilt # at make time; they should therefore not lie in the source # directory. One plan was to support this using # nodist_info_TEXINFOS or something similar. (Doing this # requires some sanity checks. For instance Automake should # not allow: # dist_info_TEXINFO = foo.texi # nodist_foo_TEXINFO = included.texi # because a distributed file should never depend on a # non-distributed file.) # # * If .texi files are not distributed, then .info files should # not be distributed either. There are also cases where one # want to distribute .texi files, but do not want to # distribute the .info files. For instance the Texinfo package # distributes the tool used to build these files; it would # be a waste of space to distribute them. It's not clear # which syntax we should use to indicate that .info files should # not be distributed. Akim Demaille suggested that eventually # we switch to a new syntax: # | Maybe we should take some inspiration from what's already # | done in the rest of Automake. Maybe there is too much # | syntactic sugar here, and you want # | nodist_INFO = bar.info # | dist_bar_info_SOURCES = bar.texi # | bar_texi_DEPENDENCIES = foo.texi # | with a bit of magic to have bar.info represent the whole # | bar*info set. That's a lot more verbose that the current # | situation, but it is # not new, hence the user has less # | to learn. # | # | But there is still too much room for meaningless specs: # | nodist_INFO = bar.info # | dist_bar_info_SOURCES = bar.texi # | dist_PS = bar.ps something-written-by-hand.ps # | nodist_bar_ps_SOURCES = bar.texi # | bar_texi_DEPENDENCIES = foo.texi # | here bar.texi is dist_ in line 2, and nodist_ in 4. # # Back to the point, it should be clear that in order to support # non-distributed .info files, we need to build them in the # build tree, not in the source tree (non-distributed .texi # files are less of a problem, because we do not output build # rules for them). In Automake 1.7 .info build rules have been # largely cleaned up so that .info files get always build in the # build tree, even when distributed. The idea was that # (1) if during a VPATH build the .info file was found to be # absent or out-of-date (in the source tree or in the # build tree), Make would rebuild it in the build tree. # If an up-to-date source-tree of the .info file existed, # make would not rebuild it in the build tree. # (2) having two copies of .info files, one in the source tree # and one (newer) in the build tree is not a problem # because `make dist' always pick files in the build tree # first. # However it turned out the be a bad idea for several reasons: # * Tru64, OpenBSD, and FreeBSD (not NetBSD) Make do not behave # like GNU Make on point (1) above. These implementations # of Make would always rebuild .info files in the build # tree, even if such files were up to date in the source # tree. Consequently, it was impossible to perform a VPATH # build of a package containing Texinfo files using these # Make implementations. # (Refer to the Autoconf Manual, section "Limitation of # Make", paragraph "VPATH", item "target lookup", for # an account of the differences between these # implementations.) # * The GNU Coding Standards require these files to be built # in the source-tree (when they are distributed, that is). # * Keeping a fresher copy of distributed files in the # build tree can be annoying during development because # - if the files is kept under CVS, you really want it # to be updated in the source tree # - it is confusing that `make distclean' does not erase # all files in the build tree. # # Consequently, starting with Automake 1.8, .info files are # built in the source tree again. Because we still plan to # support non-distributed .info files at some point, we # have a single variable ($INSRC) that controls whether # the current .info file must be built in the source tree # or in the build tree. Actually this variable is switched # off for .info files that appear to be cleaned; this is # for backward compatibility with package such as Texinfo, # which do things like # info_TEXINFOS = texinfo.txi info-stnd.texi info.texi # DISTCLEANFILES = texinfo texinfo-* info*.info* # # Do not create info files for distribution. # dist-info: # in order not to distribute .info files. my $insrc = ($out_file =~ $user_cleaned_files) ? 0 : 1; my $soutdir = '$(srcdir)/' . $outdir; $outdir = $soutdir if $insrc; # If user specified file_TEXINFOS, then use that as explicit # dependency list. @texi_deps = (); push (@texi_deps, "$soutdir$vtexi") if $vtexi; my $canonical = canonicalize ($infobase); if (var ($canonical . "_TEXINFOS")) { push (@texi_deps, '$(' . $canonical . '_TEXINFOS)'); push_dist_common ('$(' . $canonical . '_TEXINFOS)'); } my ($dirstamp, @cfiles) = output_texinfo_build_rules ($texi, $out_file, $insrc, @texi_deps); push (@texi_cleans, @cfiles); push (@info_deps_list, $out_file); # If a vers*.texi file is needed, emit the rule. if ($vtexi) { err_am ("`$vtexi', included in `$texi', " . "also included in `$versions{$vtexi}'") if defined $versions{$vtexi}; $versions{$vtexi} = $texi; # We number the stamp-vti files. This is doable since the # actual names don't matter much. We only number starting # with the second one, so that the common case looks nice. my $vti = ($done ? $done : 'vti'); ++$done; # This is ugly, but it is our historical practice. if ($config_aux_dir_set_in_configure_ac) { require_conf_file_with_macro (TRUE, 'info_TEXINFOS', FOREIGN, 'mdate-sh'); } else { require_file_with_macro (TRUE, 'info_TEXINFOS', FOREIGN, 'mdate-sh'); } my $conf_dir; if ($config_aux_dir_set_in_configure_ac) { $conf_dir = "$am_config_aux_dir/"; } else { $conf_dir = '$(srcdir)/'; } $output_rules .= file_contents ('texi-vers', new Automake::Location, TEXI => $texi, VTI => $vti, STAMPVTI => "${soutdir}stamp-$vti", VTEXI => "$soutdir$vtexi", MDDIR => $conf_dir, DIRSTAMP => $dirstamp); } } # Handle location of texinfo.tex. my $need_texi_file = 0; my $texinfodir; if (var ('TEXINFO_TEX')) { # The user defined TEXINFO_TEX so assume he knows what he is # doing. $texinfodir = ('$(srcdir)/' . dirname (variable_value ('TEXINFO_TEX'))); } elsif (option 'cygnus') { $texinfodir = '$(top_srcdir)/../texinfo'; define_variable ('TEXINFO_TEX', "$texinfodir/texinfo.tex", INTERNAL); } elsif ($config_aux_dir_set_in_configure_ac) { $texinfodir = $am_config_aux_dir; define_variable ('TEXINFO_TEX', "$texinfodir/texinfo.tex", INTERNAL); $need_texi_file = 2; # so that we require_conf_file later } else { $texinfodir = '$(srcdir)'; $need_texi_file = 1; } define_variable ('am__TEXINFO_TEX_DIR', $texinfodir, INTERNAL); push (@dist_targets, 'dist-info'); if (! option 'no-installinfo') { # Make sure documentation is made and installed first. Use # $(INFO_DEPS), not 'info', because otherwise recursive makes # get run twice during "make all". unshift (@all, '$(INFO_DEPS)'); } define_files_variable ("DVIS", @infobase, 'dvi', INTERNAL); define_files_variable ("PDFS", @infobase, 'pdf', INTERNAL); define_files_variable ("PSS", @infobase, 'ps', INTERNAL); define_files_variable ("HTMLS", @infobase, 'html', INTERNAL); # This next isn't strictly needed now -- the places that look here # could easily be changed to look in info_TEXINFOS. But this is # probably better, in case noinst_TEXINFOS is ever supported. define_variable ("TEXINFOS", variable_value ('info_TEXINFOS'), INTERNAL); # Do some error checking. Note that this file is not required # when in Cygnus mode; instead we defined TEXINFO_TEX explicitly # up above. if ($need_texi_file && ! option 'no-texinfo.tex') { if ($need_texi_file > 1) { require_conf_file_with_macro (TRUE, 'info_TEXINFOS', FOREIGN, 'texinfo.tex'); } else { require_file_with_macro (TRUE, 'info_TEXINFOS', FOREIGN, 'texinfo.tex'); } } return makefile_wrap ("", "\t ", @texi_cleans); } # handle_texinfo () # ----------------- # Handle all Texinfo source. sub handle_texinfo () { reject_var 'TEXINFOS', "`TEXINFOS' is an anachronism; use `info_TEXINFOS'"; # FIXME: I think this is an obsolete future feature name. reject_var 'html_TEXINFOS', "HTML generation not yet supported"; my $info_texinfos = var ('info_TEXINFOS'); my $texiclean = ""; if ($info_texinfos) { $texiclean = handle_texinfo_helper ($info_texinfos); } $output_rules .= file_contents ('texinfos', new Automake::Location, TEXICLEAN => $texiclean, 'LOCAL-TEXIS' => !!$info_texinfos); } # Handle any man pages. sub handle_man_pages { reject_var 'MANS', "`MANS' is an anachronism; use `man_MANS'"; # Find all the sections in use. We do this by first looking for # "standard" sections, and then looking for any additional # sections used in man_MANS. my (%sections, %vlist); # We handle nodist_ for uniformity. man pages aren't distributed # by default so it isn't actually very important. foreach my $pfx ('', 'dist_', 'nodist_') { # Add more sections as needed. foreach my $section ('0'..'9', 'n', 'l') { my $varname = $pfx . 'man' . $section . '_MANS'; if (var ($varname)) { $sections{$section} = 1; $varname = '$(' . $varname . ')'; $vlist{$varname} = 1; &push_dist_common ($varname) if $pfx eq 'dist_'; } } my $varname = $pfx . 'man_MANS'; my $var = var ($varname); if ($var) { foreach ($var->value_as_list_recursive) { # A page like `foo.1c' goes into man1dir. if (/\.([0-9a-z])([a-z]*)$/) { $sections{$1} = 1; } } $varname = '$(' . $varname . ')'; $vlist{$varname} = 1; &push_dist_common ($varname) if $pfx eq 'dist_'; } } return unless %sections; # Now for each section, generate an install and uninstall rule. # Sort sections so output is deterministic. foreach my $section (sort keys %sections) { $output_rules .= &file_contents ('mans', new Automake::Location, SECTION => $section); } my @mans = sort keys %vlist; $output_vars .= file_contents ('mans-vars', new Automake::Location, MANS => "@mans"); push (@all, '$(MANS)') unless option 'no-installman'; } # Handle DATA variables. sub handle_data { &am_install_var ('-noextra', '-candist', 'data', 'DATA', 'data', 'sysconf', 'sharedstate', 'localstate', 'pkgdata', 'lisp', 'noinst', 'check'); } # Handle TAGS. sub handle_tags { my @tag_deps = (); my @ctag_deps = (); if (var ('SUBDIRS')) { $output_rules .= ("tags-recursive:\n" . "\tlist=\'\$(SUBDIRS)\'; for subdir in \$\$list; do \\\n" # Never fail here if a subdir fails; it # isn't important. . "\t test \"\$\$subdir\" = . || (cd \$\$subdir" . " && \$(MAKE) \$(AM_MAKEFLAGS) tags); \\\n" . "\tdone\n"); push (@tag_deps, 'tags-recursive'); &depend ('.PHONY', 'tags-recursive'); $output_rules .= ("ctags-recursive:\n" . "\tlist=\'\$(SUBDIRS)\'; for subdir in \$\$list; do \\\n" # Never fail here if a subdir fails; it # isn't important. . "\t test \"\$\$subdir\" = . || (cd \$\$subdir" . " && \$(MAKE) \$(AM_MAKEFLAGS) ctags); \\\n" . "\tdone\n"); push (@ctag_deps, 'ctags-recursive'); &depend ('.PHONY', 'ctags-recursive'); } if (&saw_sources_p (1) || var ('ETAGS_ARGS') || @tag_deps) { my @config; foreach my $spec (@config_headers) { my ($out, @ins) = split_config_file_spec ($spec); foreach my $in (@ins) { # If the config header source is in this directory, # require it. push @config, basename ($in) if $relative_dir eq dirname ($in); } } $output_rules .= &file_contents ('tags', new Automake::Location, CONFIG => "@config", TAGSDIRS => "@tag_deps", CTAGSDIRS => "@ctag_deps"); set_seen 'TAGS_DEPENDENCIES'; } elsif (reject_var ('TAGS_DEPENDENCIES', "doesn't make sense to define `TAGS_DEPENDENCIES'" . "without\nsources or `ETAGS_ARGS'")) { } else { # Every Makefile must define some sort of TAGS rule. # Otherwise, it would be possible for a top-level "make TAGS" # to fail because some subdirectory failed. $output_rules .= "tags: TAGS\nTAGS:\n\n"; # Ditto ctags. $output_rules .= "ctags: CTAGS\nCTAGS:\n\n"; } } # Handle multilib support. sub handle_multilib { if ($seen_multilib && $relative_dir eq '.') { $output_rules .= &file_contents ('multilib', new Automake::Location); push (@all, 'all-multi'); } } # user_phony_rule ($NAME) # ----------------------- # Return false if rule $NAME does not exist. Otherwise, # declare it as phony, complete its definition (in case it is # conditional), and return its Automake::Rule instance. sub user_phony_rule ($) { my ($name) = @_; my $rule = rule $name; if ($rule) { depend ('.PHONY', $name); # Define $NAME in all condition where it is not already defined, # so that it is always OK to depend on $NAME. for my $c ($rule->not_always_defined_in_cond (TRUE)->conds) { Automake::Rule::define ($name, 'internal', RULE_AUTOMAKE, $c, INTERNAL); $output_rules .= $c->subst_string . "$name:\n"; } } return $rule; } # $BOOLEAN # &for_dist_common ($A, $B) # ------------------------- # Subroutine for &handle_dist: sort files to dist. # # We put README first because it then becomes easier to make a # Usenet-compliant shar file (in these, README must be first). # # FIXME: do more ordering of files here. sub for_dist_common { return 0 if $a eq $b; return -1 if $a eq 'README'; return 1 if $b eq 'README'; return $a cmp $b; } # handle_dist # ----------- # Handle 'dist' target. sub handle_dist () { # Substutions for distdit.am my %transform; # Define DIST_SUBDIRS. This must always be done, regardless of the # no-dist setting: target like `distclean' or `maintainer-clean' use it. my $subdirs = var ('SUBDIRS'); if ($subdirs) { # If SUBDIRS is conditionally defined, then set DIST_SUBDIRS # to all possible directories, and use it. If DIST_SUBDIRS is # defined, just use it. # Note that we check DIST_SUBDIRS first on purpose, so that # we don't call has_conditional_contents for now reason. # (In the past one project used so many conditional subdirectories # that calling has_conditional_contents on SUBDIRS caused # automake to grow to 150Mb -- this should not happen with # the current implementation of has_conditional_contents, # but it's more efficient to avoid the call anyway.) if (var ('DIST_SUBDIRS')) { } elsif ($subdirs->has_conditional_contents) { define_pretty_variable ('DIST_SUBDIRS', TRUE, INTERNAL, uniq ($subdirs->value_as_list_recursive)); } else { # We always define this because that is what `distclean' # wants. define_pretty_variable ('DIST_SUBDIRS', TRUE, INTERNAL, '$(SUBDIRS)'); } } # The remaining definitions are only required when a dist target is used. return if option 'no-dist'; # At least one of the archive formats must be enabled. if ($relative_dir eq '.') { my $archive_defined = option 'no-dist-gzip' ? 0 : 1; $archive_defined ||= grep { option "dist-$_" } ('shar', 'zip', 'tarZ', 'bzip2'); error (option 'no-dist-gzip', "no-dist-gzip specified but no dist-* specified, " . "at least one archive format must be enabled") unless $archive_defined; } # Look for common files that should be included in distribution. # If the aux dir is set, and it does not have a Makefile.am, then # we check for these files there as well. my $check_aux = 0; if ($relative_dir eq '.' && $config_aux_dir_set_in_configure_ac) { if (! &is_make_dir ($config_aux_dir)) { $check_aux = 1; } } foreach my $cfile (@common_files) { if (-f ($relative_dir . "/" . $cfile) # The file might be absent, but if it can be built it's ok. || rule $cfile) { &push_dist_common ($cfile); } # Don't use `elsif' here because a file might meaningfully # appear in both directories. if ($check_aux && -f "$config_aux_dir/$cfile") { &push_dist_common ("$config_aux_dir/$cfile") } } # We might copy elements from $configure_dist_common to # %dist_common if we think we need to. If the file appears in our # directory, we would have discovered it already, so we don't # check that. But if the file is in a subdir without a Makefile, # we want to distribute it here if we are doing `.'. Ugly! if ($relative_dir eq '.') { foreach my $file (split (' ' , $configure_dist_common)) { push_dist_common ($file) unless is_make_dir (dirname ($file)); } } # Files to distributed. Don't use ->value_as_list_recursive # as it recursively expands `$(dist_pkgdata_DATA)' etc. my @dist_common = split (' ', rvar ('DIST_COMMON')->variable_value); @dist_common = uniq (sort for_dist_common (@dist_common)); variable_delete 'DIST_COMMON'; define_pretty_variable ('DIST_COMMON', TRUE, INTERNAL, @dist_common); # Now that we've processed DIST_COMMON, disallow further attempts # to set it. $handle_dist_run = 1; # Scan EXTRA_DIST to see if we need to distribute anything from a # subdir. If so, add it to the list. I didn't want to do this # originally, but there were so many requests that I finally # relented. my $extra_dist = var ('EXTRA_DIST'); if ($extra_dist) { # FIXME: This should be fixed to work with conditions. That # will require only making the entries in %dist_dirs under the # appropriate condition. This is meaningful if the nature of # the distribution should depend upon the configure options # used. foreach ($extra_dist->value_as_list_recursive (skip_ac_subst => 1)) { next unless s,/+[^/]+$,,; $dist_dirs{$_} = 1 unless $_ eq '.'; } } # We have to check DIST_COMMON for extra directories in case the # user put a source used in AC_OUTPUT into a subdir. my $topsrcdir = backname ($relative_dir); foreach (rvar ('DIST_COMMON')->value_as_list_recursive (skip_ac_subst => 1)) { s/\$\(top_srcdir\)/$topsrcdir/; s/\$\(srcdir\)/./; # Strip any leading `./'. s,^(:?\./+)*,,; next unless s,/+[^/]+$,,; $dist_dirs{$_} = 1 unless $_ eq '.'; } $transform{'DISTCHECK-HOOK'} = !! rule 'distcheck-hook'; $transform{'GETTEXT'} = $seen_gettext && !$seen_gettext_external; # Prepend $(distdir) to each directory given. my %rewritten = map { '$(distdir)/' . "$_" => 1 } keys %dist_dirs; $transform{'DISTDIRS'} = join (' ', sort keys %rewritten); # If the target `dist-hook' exists, make sure it is run. This # allows users to do random weird things to the distribution # before it is packaged up. push (@dist_targets, 'dist-hook') if user_phony_rule 'dist-hook'; $transform{'DIST-TARGETS'} = join (' ', @dist_targets); my $flm = option ('filename-length-max'); my $filename_filter = $flm ? '.' x $flm->[1] : ''; $output_rules .= &file_contents ('distdir', new Automake::Location, %transform, FILENAME_FILTER => $filename_filter); } # check_directory ($NAME, $WHERE) # ------------------------------- # Ensure $NAME is a directory, and that it uses sane name. # Use $WHERE as a location in the diagnostic, if any. sub check_directory ($$) { my ($dir, $where) = @_; error $where, "required directory $relative_dir/$dir does not exist" unless -d "$relative_dir/$dir"; # If an `obj/' directory exists, BSD make will enter it before # reading `Makefile'. Hence the `Makefile' in the current directory # will not be read. # # % cat Makefile # all: # echo Hello # % cat obj/Makefile # all: # echo World # % make # GNU make # echo Hello # Hello # % pmake # BSD make # echo World # World msg ('portability', $where, "naming a subdirectory `obj' causes troubles with BSD make") if $dir eq 'obj'; # `aux' is probably the most important of the following forbidden name, # since it's tempting to use it as an AC_CONFIG_AUX_DIR. msg ('portability', $where, "name `$dir' is reserved on W32 and DOS platforms") if grep (/^\Q$dir\E$/i, qw/aux lpt1 lpt2 lpt3 com1 com2 com3 com4 con prn/); } # check_directories_in_var ($VARIABLE) # ------------------------------------ # Recursively check all items in variables $VARIABLE as directories sub check_directories_in_var ($) { my ($var) = @_; $var->traverse_recursively (sub { my ($var, $val, $cond, $full_cond) = @_; check_directory ($val, $var->rdef ($cond)->location); return (); }, undef, skip_ac_subst => 1); } # &handle_subdirs () # ------------------ # Handle subdirectories. sub handle_subdirs () { my $subdirs = var ('SUBDIRS'); return unless $subdirs; check_directories_in_var $subdirs; my $dsubdirs = var ('DIST_SUBDIRS'); check_directories_in_var $dsubdirs if $dsubdirs; $output_rules .= &file_contents ('subdirs', new Automake::Location); rvar ('RECURSIVE_TARGETS')->rdef (TRUE)->{'pretty'} = VAR_SORTED; # Gross! } # ($REGEN, @DEPENDENCIES) # &scan_aclocal_m4 # ---------------- # If aclocal.m4 creation is automated, return the list of its dependencies. sub scan_aclocal_m4 () { my $regen_aclocal = 0; set_seen 'CONFIG_STATUS_DEPENDENCIES'; set_seen 'CONFIGURE_DEPENDENCIES'; if (-f 'aclocal.m4') { &define_variable ("ACLOCAL_M4", '$(top_srcdir)/aclocal.m4', INTERNAL); my $aclocal = new Automake::XFile "< aclocal.m4"; my $line = $aclocal->getline; $regen_aclocal = $line =~ 'generated automatically by aclocal'; } my @ac_deps = (); if (set_seen ('ACLOCAL_M4_SOURCES')) { push (@ac_deps, '$(ACLOCAL_M4_SOURCES)'); msg_var ('obsolete', 'ACLOCAL_M4_SOURCES', "`ACLOCAL_M4_SOURCES' is obsolete.\n" . "It should be safe to simply remove it."); } # Note that it might be possible that aclocal.m4 doesn't exist but # should be auto-generated. This case probably isn't very # important. return ($regen_aclocal, @ac_deps); } # @DEPENDENCIES # &prepend_srcdir (@INPUTS) # ------------------------- # Prepend $(srcdir) or $(top_srcdir) to all @INPUTS. The idea is that # if an input file has a directory part the same as the current # directory, then the directory part is simply replaced by $(srcdir). # But if the directory part is different, then $(top_srcdir) is # prepended. sub prepend_srcdir (@) { my (@inputs) = @_; my @newinputs; foreach my $single (@inputs) { if (dirname ($single) eq $relative_dir) { push (@newinputs, '$(srcdir)/' . basename ($single)); } else { push (@newinputs, '$(top_srcdir)/' . $single); } } return @newinputs; } # @DEPENDENCIES # rewrite_inputs_into_dependencies ($OUTPUT, @INPUTS) # --------------------------------------------------- # Compute a list of dependencies appropriate for the rebuild # rule of # AC_CONFIG_FILES($OUTPUT:$INPUT[0]:$INPUTS[1]:...) # Also distribute $INPUTs which are not build by another AC_CONFIG_FILES. sub rewrite_inputs_into_dependencies ($@) { my ($file, @inputs) = @_; my @res = (); for my $i (@inputs) { if (exists $ac_config_files_location{$i}) { my $di = dirname $i; if ($di eq $relative_dir) { $i = basename $i; } # In the top-level Makefile we do not use $(top_builddir), because # we are already there, and since the targets are built without # a $(top_builddir), it helps BSD Make to match them with # dependencies. elsif ($relative_dir ne '.') { $i = '$(top_builddir)/' . $i; } } else { msg ('error', $ac_config_files_location{$file}, "required file `$i' not found") unless exists $output_files{$i} || -f $i; ($i) = prepend_srcdir ($i); push_dist_common ($i); } push @res, $i; } return @res; } # &handle_configure ($MAKEFILE_AM, $MAKEFILE_IN, $MAKEFILE, @INPUTS) # ------------------------------------------------------------------ # Handle remaking and configure stuff. # We need the name of the input file, to do proper remaking rules. sub handle_configure ($$$@) { my ($makefile_am, $makefile_in, $makefile, @inputs) = @_; prog_error 'empty @inputs' unless @inputs; my ($rel_makefile_am, $rel_makefile_in) = prepend_srcdir ($makefile_am, $makefile_in); my $rel_makefile = basename $makefile; my $colon_infile = ':' . join (':', @inputs); $colon_infile = '' if $colon_infile eq ":$makefile.in"; my @rewritten = rewrite_inputs_into_dependencies ($makefile, @inputs); my ($regen_aclocal_m4, @aclocal_m4_deps) = scan_aclocal_m4; define_pretty_variable ('am__aclocal_m4_deps', TRUE, INTERNAL, @configure_deps, @aclocal_m4_deps, '$(top_srcdir)/' . $configure_ac); my @configuredeps = ('$(am__aclocal_m4_deps)', '$(CONFIGURE_DEPENDENCIES)'); push @configuredeps, '$(ACLOCAL_M4)' if -f 'aclocal.m4'; define_pretty_variable ('am__configure_deps', TRUE, INTERNAL, @configuredeps); $output_rules .= file_contents ('configure', new Automake::Location, MAKEFILE => $rel_makefile, 'MAKEFILE-DEPS' => "@rewritten", 'CONFIG-MAKEFILE' => ($relative_dir eq '.') ? '$@' : '$(subdir)/$@', 'MAKEFILE-IN' => $rel_makefile_in, 'MAKEFILE-IN-DEPS' => "@include_stack", 'MAKEFILE-AM' => $rel_makefile_am, STRICTNESS => global_option 'cygnus' ? 'cygnus' : $strictness_name, 'USE-DEPS' => global_option 'no-dependencies' ? ' --ignore-deps' : '', 'MAKEFILE-AM-SOURCES' => "$makefile$colon_infile", 'REGEN-ACLOCAL-M4' => $regen_aclocal_m4); if ($relative_dir eq '.') { &push_dist_common ('acconfig.h') if -f 'acconfig.h'; } # If we have a configure header, require it. my $hdr_index = 0; my @distclean_config; foreach my $spec (@config_headers) { $hdr_index += 1; # $CONFIG_H_PATH: config.h from top level. my ($config_h_path, @ins) = split_config_file_spec ($spec); my $config_h_dir = dirname ($config_h_path); # If the header is in the current directory we want to build # the header here. Otherwise, if we're at the topmost # directory and the header's directory doesn't have a # Makefile, then we also want to build the header. if ($relative_dir eq $config_h_dir || ($relative_dir eq '.' && ! &is_make_dir ($config_h_dir))) { my ($cn_sans_dir, $stamp_dir); if ($relative_dir eq $config_h_dir) { $cn_sans_dir = basename ($config_h_path); $stamp_dir = ''; } else { $cn_sans_dir = $config_h_path; if ($config_h_dir eq '.') { $stamp_dir = ''; } else { $stamp_dir = $config_h_dir . '/'; } } # This will also distribute all inputs. @ins = rewrite_inputs_into_dependencies ($config_h_path, @ins); # Header defined and in this directory. my @files; if (-f $config_h_path . '.top') { push (@files, "$cn_sans_dir.top"); } if (-f $config_h_path . '.bot') { push (@files, "$cn_sans_dir.bot"); } push_dist_common (@files); # For now, acconfig.h can only appear in the top srcdir. if (-f 'acconfig.h') { push (@files, '$(top_srcdir)/acconfig.h'); } my $stamp = "${stamp_dir}stamp-h${hdr_index}"; $output_rules .= file_contents ('remake-hdr', new Automake::Location, FILES => "@files", CONFIG_H => $cn_sans_dir, CONFIG_HIN => $ins[0], CONFIG_H_DEPS => "@ins", CONFIG_H_PATH => $config_h_path, STAMP => "$stamp"); push @distclean_config, $cn_sans_dir, $stamp; } } $output_rules .= file_contents ('clean-hdr', new Automake::Location, FILES => "@distclean_config") if @distclean_config; # Distribute and define mkinstalldirs only if it is already present # in the package, for backward compatibility (some people may still # use $(mkinstalldirs)). my $mkidpath = "$config_aux_dir/mkinstalldirs"; if (-f $mkidpath) { # Use require_file so that any existingscript gets updated # by --force-missing. require_conf_file ($mkidpath, FOREIGN, 'mkinstalldirs'); define_variable ('mkinstalldirs', "\$(SHELL) $am_config_aux_dir/mkinstalldirs", INTERNAL); } else { # Use $(install_sh), not $(mkdir_p) because the latter requires # at least one argument, and $(mkinstalldirs) used to work # even without arguments (e.g. $(mkinstalldirs) $(conditional_dir)). define_variable ('mkinstalldirs', '$(install_sh) -d', INTERNAL); } reject_var ('CONFIG_HEADER', "`CONFIG_HEADER' is an anachronism; now determined " . "automatically\nfrom `$configure_ac'"); my @config_h; foreach my $spec (@config_headers) { my ($out, @ins) = split_config_file_spec ($spec); # Generate CONFIG_HEADER define. if ($relative_dir eq dirname ($out)) { push @config_h, basename ($out); } else { push @config_h, "\$(top_builddir)/$out"; } } define_variable ("CONFIG_HEADER", "@config_h", INTERNAL) if @config_h; # Now look for other files in this directory which must be remade # by config.status, and generate rules for them. my @actual_other_files = (); foreach my $lfile (@other_input_files) { my $file; my @inputs; if ($lfile =~ /^([^:]*):(.*)$/) { # This is the ":" syntax of AC_OUTPUT. $file = $1; @inputs = split (':', $2); } else { # Normal usage. $file = $lfile; @inputs = $file . '.in'; } # Automake files should not be stored in here, but in %MAKE_LIST. prog_error ("$lfile in \@other_input_files\n" . "\@other_input_files = (@other_input_files)") if -f $file . '.am'; my $local = basename ($file); # Make sure the dist directory for each input file is created. # We only have to do this at the topmost level though. This # is a bit ugly but it easier than spreading out the logic, # especially in cases like AC_OUTPUT(foo/out:bar/in), where # there is no Makefile in bar/. if ($relative_dir eq '.') { foreach (@inputs) { $dist_dirs{dirname ($_)} = 1; } } # We skip files that aren't in this directory. However, if # the file's directory does not have a Makefile, and we are # currently doing `.', then we create a rule to rebuild the # file in the subdir. my $fd = dirname ($file); if ($fd ne $relative_dir) { if ($relative_dir eq '.' && ! &is_make_dir ($fd)) { $local = $file; } else { next; } } my @rewritten_inputs = rewrite_inputs_into_dependencies ($file, @inputs); $output_rules .= ($local . ': ' . '$(top_builddir)/config.status ' . "@rewritten_inputs\n" . "\t" . 'cd $(top_builddir) && ' . '$(SHELL) ./config.status ' . ($relative_dir eq '.' ? '' : '$(subdir)/') . '$@' . "\n"); push (@actual_other_files, $local); } # For links we should clean destinations and distribute sources. foreach my $spec (@config_links) { my ($link, $file) = split /:/, $spec; # Some people do AC_CONFIG_LINKS($computed). We only handle # the DEST:SRC form. next unless $file; my $where = $ac_config_files_location{$link}; # Skip destinations that contain shell variables. if ($link !~ /\$/) { # We skip links that aren't in this directory. However, if # the link's directory does not have a Makefile, and we are # currently doing `.', then we add the link to CONFIG_CLEAN_FILES # in `.'s Makefile.in. my $local = basename ($link); my $fd = dirname ($link); if ($fd ne $relative_dir) { if ($relative_dir eq '.' && ! &is_make_dir ($fd)) { $local = $link; } else { $local = undef; } } push @actual_other_files, $local if $local; } # Do not process sources that contain shell variables. if ($file !~ /\$/) { my $fd = dirname ($file); # Make sure the dist directory for each input file is created. # We only have to do this at the topmost level though. if ($relative_dir eq '.') { $dist_dirs{$fd} = 1; } # We distribute files that are in this directory. # At the top-level (`.') we also distribute files whose # directory does not have a Makefile. if (($fd eq $relative_dir) || ($relative_dir eq '.' && ! &is_make_dir ($fd))) { # The following will distribute $file as a side-effect when # it is appropriate (i.e., when $file is not already an output). # We do not need the result, just the side-effect. rewrite_inputs_into_dependencies ($link, $file); } } } # These files get removed by "make distclean". define_pretty_variable ('CONFIG_CLEAN_FILES', TRUE, INTERNAL, @actual_other_files); } # Handle C headers. sub handle_headers { my @r = &am_install_var ('-defaultdist', 'header', 'HEADERS', 'include', 'oldinclude', 'pkginclude', 'noinst', 'check'); foreach (@r) { next unless $_->[1] =~ /\..*$/; &saw_extension ($&); } } sub handle_gettext { return if ! $seen_gettext || $relative_dir ne '.'; my $subdirs = var 'SUBDIRS'; if (! $subdirs) { err_ac "AM_GNU_GETTEXT used but SUBDIRS not defined"; return; } # Perform some sanity checks to help users get the right setup. # We disable these tests when po/ doesn't exist in order not to disallow # unusual gettext setups. # # Bruno Haible: # | The idea is: # | # | 1) If a package doesn't have a directory po/ at top level, it # | will likely have multiple po/ directories in subpackages. # | # | 2) It is useful to warn for the absence of intl/ if AM_GNU_GETTEXT # | is used without 'external'. It is also useful to warn for the # | presence of intl/ if AM_GNU_GETTEXT([external]) is used. Both # | warnings apply only to the usual layout of packages, therefore # | they should both be disabled if no po/ directory is found at # | top level. if (-d 'po') { my @subdirs = $subdirs->value_as_list_recursive; msg_var ('syntax', $subdirs, "AM_GNU_GETTEXT used but `po' not in SUBDIRS") if ! grep ($_ eq 'po', @subdirs); # intl/ is not required when AM_GNU_GETTEXT is called with # the `external' option. msg_var ('syntax', $subdirs, "AM_GNU_GETTEXT used but `intl' not in SUBDIRS") if (! $seen_gettext_external && ! grep ($_ eq 'intl', @subdirs)); # intl/ should not be used with AM_GNU_GETTEXT([external]) msg_var ('syntax', $subdirs, "`intl' should not be in SUBDIRS when " . "AM_GNU_GETTEXT([external]) is used") if ($seen_gettext_external && grep ($_ eq 'intl', @subdirs)); } require_file ($ac_gettext_location, GNU, 'ABOUT-NLS'); } # Handle footer elements. sub handle_footer { # NOTE don't use define_pretty_variable here, because # $contents{...} is already defined. $output_vars .= 'SOURCES = ' . variable_value ('SOURCES') . "\n\n" if variable_value ('SOURCES'); reject_rule ('.SUFFIXES', "use variable `SUFFIXES', not target `.SUFFIXES'"); # Note: AIX 4.1 /bin/make will fail if any suffix rule appears # before .SUFFIXES. So we make sure that .SUFFIXES appears before # anything else, by sticking it right after the default: target. $output_header .= ".SUFFIXES:\n"; my $suffixes = var 'SUFFIXES'; my @suffixes = Automake::Rule::suffixes; if (@suffixes || $suffixes) { # Make sure SUFFIXES has unique elements. Sort them to ensure # the output remains consistent. However, $(SUFFIXES) is # always at the start of the list, unsorted. This is done # because make will choose rules depending on the ordering of # suffixes, and this lets the user have some control. Push # actual suffixes, and not $(SUFFIXES). Some versions of make # do not like variable substitutions on the .SUFFIXES line. my @user_suffixes = ($suffixes ? $suffixes->value_as_list_recursive : ()); my %suffixes = map { $_ => 1 } @suffixes; delete @suffixes{@user_suffixes}; $output_header .= (".SUFFIXES: " . join (' ', @user_suffixes, sort keys %suffixes) . "\n"); } $output_trailer .= file_contents ('footer', new Automake::Location); } # Generate `make install' rules. sub handle_install () { $output_rules .= &file_contents ('install', new Automake::Location, maybe_BUILT_SOURCES => (set_seen ('BUILT_SOURCES') ? (" \$(BUILT_SOURCES)\n" . "\t\$(MAKE) \$(AM_MAKEFLAGS)") : ''), 'installdirs-local' => (user_phony_rule 'installdirs-local' ? ' installdirs-local' : ''), am__installdirs => variable_value ('am__installdirs') || ''); } # Deal with all and all-am. sub handle_all ($) { my ($makefile) = @_; # Output `all-am'. # Put this at the beginning for the sake of non-GNU makes. This # is still wrong if these makes can run parallel jobs. But it is # right enough. unshift (@all, basename ($makefile)); foreach my $spec (@config_headers) { my ($out, @ins) = split_config_file_spec ($spec); push (@all, basename ($out)) if dirname ($out) eq $relative_dir; } # Install `all' hooks. push (@all, "all-local") if user_phony_rule "all-local"; &pretty_print_rule ("all-am:", "\t\t", @all); &depend ('.PHONY', 'all-am', 'all'); # Output `all'. my @local_headers = (); push @local_headers, '$(BUILT_SOURCES)' if var ('BUILT_SOURCES'); foreach my $spec (@config_headers) { my ($out, @ins) = split_config_file_spec ($spec); push @local_headers, basename ($out) if dirname ($out) eq $relative_dir; } if (@local_headers) { # We need to make sure config.h is built before we recurse. # We also want to make sure that built sources are built # before any ordinary `all' targets are run. We can't do this # by changing the order of dependencies to the "all" because # that breaks when using parallel makes. Instead we handle # things explicitly. $output_all .= ("all: @local_headers" . "\n\t" . '$(MAKE) $(AM_MAKEFLAGS) ' . (var ('SUBDIRS') ? 'all-recursive' : 'all-am') . "\n\n"); } else { $output_all .= "all: " . (var ('SUBDIRS') ? 'all-recursive' : 'all-am') . "\n\n"; } } # &do_check_merge_target () # ------------------------- # Handle check merge target specially. sub do_check_merge_target () { # Include user-defined local form of target. push @check_tests, 'check-local' if user_phony_rule 'check-local'; # In --cygnus mode, check doesn't depend on all. if (option 'cygnus') { # Just run the local check rules. pretty_print_rule ('check-am:', "\t\t", @check); } else { # The check target must depend on the local equivalent of # `all', to ensure all the primary targets are built. Then it # must build the local check rules. $output_rules .= "check-am: all-am\n"; pretty_print_rule ("\t\$(MAKE) \$(AM_MAKEFLAGS)", "\t ", @check) if @check; } pretty_print_rule ("\t\$(MAKE) \$(AM_MAKEFLAGS)", "\t ", @check_tests) if @check_tests; depend '.PHONY', 'check', 'check-am'; # Handle recursion. We have to honor BUILT_SOURCES like for `all:'. $output_rules .= ("check: " . (var ('BUILT_SOURCES') ? "\$(BUILT_SOURCES)\n\t\$(MAKE) \$(AM_MAKEFLAGS) " : '') . (var ('SUBDIRS') ? 'check-recursive' : 'check-am') . "\n"); } # handle_clean ($MAKEFILE) # ------------------------ # Handle all 'clean' targets. sub handle_clean ($) { my ($makefile) = @_; # Clean the files listed in user variables if they exist. $clean_files{'$(MOSTLYCLEANFILES)'} = MOSTLY_CLEAN if var ('MOSTLYCLEANFILES'); $clean_files{'$(CLEANFILES)'} = CLEAN if var ('CLEANFILES'); $clean_files{'$(DISTCLEANFILES)'} = DIST_CLEAN if var ('DISTCLEANFILES'); $clean_files{'$(MAINTAINERCLEANFILES)'} = MAINTAINER_CLEAN if var ('MAINTAINERCLEANFILES'); # Built sources are automatically removed by maintainer-clean. $clean_files{'$(BUILT_SOURCES)'} = MAINTAINER_CLEAN if var ('BUILT_SOURCES'); # Compute a list of "rm"s to run for each target. my %rms = (MOSTLY_CLEAN, [], CLEAN, [], DIST_CLEAN, [], MAINTAINER_CLEAN, []); foreach my $file (keys %clean_files) { my $when = $clean_files{$file}; prog_error 'invalid entry in %clean_files' unless exists $rms{$when}; my $rm = "rm -f $file"; # If file is a variable, make sure when don't call `rm -f' without args. $rm ="test -z \"$file\" || $rm" if ($file =~ /^\s*\$(\(.*\)|\{.*\})\s*$/); push @{$rms{$when}}, "\t-$rm\n"; } $output_rules .= &file_contents ('clean', new Automake::Location, MOSTLYCLEAN_RMS => join ('', @{$rms{&MOSTLY_CLEAN}}), CLEAN_RMS => join ('', @{$rms{&CLEAN}}), DISTCLEAN_RMS => join ('', @{$rms{&DIST_CLEAN}}), MAINTAINER_CLEAN_RMS => join ('', @{$rms{&MAINTAINER_CLEAN}}), MAKEFILE => basename $makefile, ); } # &target_cmp ($A, $B) # -------------------- # Subroutine for &handle_factored_dependencies to let `.PHONY' be last. sub target_cmp { return 0 if $a eq $b; return -1 if $b eq '.PHONY'; return 1 if $a eq '.PHONY'; return $a cmp $b; } # &handle_factored_dependencies () # -------------------------------- # Handle everything related to gathered targets. sub handle_factored_dependencies { # Reject bad hooks. foreach my $utarg ('uninstall-data-local', 'uninstall-data-hook', 'uninstall-exec-local', 'uninstall-exec-hook') { my $x = $utarg; $x =~ s/(data|exec)-//; reject_rule ($utarg, "use `$x', not `$utarg'"); } reject_rule ('install-local', "use `install-data-local' or `install-exec-local', " . "not `install-local'"); reject_rule ('install-info-local', "`install-info-local' target defined but " . "`no-installinfo' option not in use") unless option 'no-installinfo'; # Install the -local hooks. foreach (keys %dependencies) { # Hooks are installed on the -am targets. s/-am$// or next; depend ("$_-am", "$_-local") if user_phony_rule "$_-local"; } # Install the -hook hooks. # FIXME: Why not be as liberal as we are with -local hooks? foreach ('install-exec', 'install-data', 'uninstall') { if (user_phony_rule "$_-hook") { $actions{"$_-am"} .= ("\t\@\$(NORMAL_INSTALL)\n" . "\t" . '$(MAKE) $(AM_MAKEFLAGS) ' . "$_-hook\n"); } } # All the required targets are phony. depend ('.PHONY', keys %required_targets); # Actually output gathered targets. foreach (sort target_cmp keys %dependencies) { # If there is nothing about this guy, skip it. next unless (@{$dependencies{$_}} || $actions{$_} || $required_targets{$_}); # Define gathered targets in undefined conditions. # FIXME: Right now we must handle .PHONY as an exception, # because people write things like # .PHONY: myphonytarget # to append dependencies. This would not work if Automake # refrained from defining its own .PHONY target as it does # with other overridden targets. my @undefined_conds = (TRUE,); if ($_ ne '.PHONY') { @undefined_conds = Automake::Rule::define ($_, 'internal', RULE_AUTOMAKE, TRUE, INTERNAL); } my @uniq_deps = uniq (sort @{$dependencies{$_}}); foreach my $cond (@undefined_conds) { my $condstr = $cond->subst_string; &pretty_print_rule ("$condstr$_:", "$condstr\t", @uniq_deps); $output_rules .= $actions{$_} if defined $actions{$_}; $output_rules .= "\n"; } } } # &handle_tests_dejagnu () # ------------------------ sub handle_tests_dejagnu { push (@check_tests, 'check-DEJAGNU'); $output_rules .= file_contents ('dejagnu', new Automake::Location); } # Handle TESTS variable and other checks. sub handle_tests { if (option 'dejagnu') { &handle_tests_dejagnu; } else { foreach my $c ('DEJATOOL', 'RUNTEST', 'RUNTESTFLAGS') { reject_var ($c, "`$c' defined but `dejagnu' not in " . "`AUTOMAKE_OPTIONS'"); } } if (var ('TESTS')) { push (@check_tests, 'check-TESTS'); $output_rules .= &file_contents ('check', new Automake::Location); } } # Handle Emacs Lisp. sub handle_emacs_lisp { my @elfiles = &am_install_var ('-candist', 'lisp', 'LISP', 'lisp', 'noinst'); return if ! @elfiles; define_pretty_variable ('am__ELFILES', TRUE, INTERNAL, map { $_->[1] } @elfiles); define_pretty_variable ('am__ELCFILES', TRUE, INTERNAL, '$(am__ELFILES:.el=.elc)'); # This one can be overridden by users. define_pretty_variable ('ELCFILES', TRUE, INTERNAL, '$(LISP:.el=.elc)'); push @all, '$(ELCFILES)'; require_variables ($elfiles[0][0], "Emacs Lisp sources seen", TRUE, 'EMACS', 'lispdir'); require_conf_file ($elfiles[0][0], FOREIGN, 'elisp-comp'); &define_variable ('elisp_comp', "$am_config_aux_dir/elisp-comp", INTERNAL); } # Handle Python sub handle_python { my @pyfiles = &am_install_var ('-defaultdist', 'python', 'PYTHON', 'noinst'); return if ! @pyfiles; require_variables ($pyfiles[0][0], "Python sources seen", TRUE, 'PYTHON'); require_conf_file ($pyfiles[0][0], FOREIGN, 'py-compile'); &define_variable ('py_compile', "$am_config_aux_dir/py-compile", INTERNAL); } # Handle Java. sub handle_java { my @sourcelist = &am_install_var ('-candist', 'java', 'JAVA', 'java', 'noinst', 'check'); return if ! @sourcelist; my @prefix = am_primary_prefixes ('JAVA', 1, 'java', 'noinst', 'check'); my $dir; foreach my $curs (@prefix) { next if $curs eq 'EXTRA'; err_var "${curs}_JAVA", "multiple _JAVA primaries in use" if defined $dir; $dir = $curs; } push (@all, 'class' . $dir . '.stamp'); } # Handle some of the minor options. sub handle_minor_options { if (option 'readme-alpha') { if ($relative_dir eq '.') { if ($package_version !~ /^$GNITS_VERSION_PATTERN$/) { msg ('error-gnits', $package_version_location, "version `$package_version' doesn't follow " . "Gnits standards"); } if (defined $1 && -f 'README-alpha') { # This means we have an alpha release. See # GNITS_VERSION_PATTERN for details. push_dist_common ('README-alpha'); } } } } ################################################################ # ($OUTPUT, @INPUTS) # &split_config_file_spec ($SPEC) # ------------------------------- # Decode the Autoconf syntax for config files (files, headers, links # etc.). sub split_config_file_spec ($) { my ($spec) = @_; my ($output, @inputs) = split (/:/, $spec); push @inputs, "$output.in" unless @inputs; return ($output, @inputs); } # $input # locate_am (@POSSIBLE_SOURCES) # ----------------------------- # AC_CONFIG_FILES allow specifications such as Makefile:top.in:mid.in:bot.in # This functions returns the first *.in file for which a *.am exists. # It returns undef otherwise. sub locate_am (@) { my (@rest) = @_; my $input; foreach my $file (@rest) { if (($file =~ /^(.*)\.in$/) && -f "$1.am") { $input = $file; last; } } return $input; } my %make_list; # &scan_autoconf_config_files ($WHERE, $CONFIG-FILES) # --------------------------------------------------- # Study $CONFIG-FILES which is the first argument to AC_CONFIG_FILES # (or AC_OUTPUT). sub scan_autoconf_config_files ($$) { my ($where, $config_files) = @_; # Look at potential Makefile.am's. foreach (split ' ', $config_files) { # Must skip empty string for Perl 4. next if $_ eq "\\" || $_ eq ''; # Handle $local:$input syntax. my ($local, @rest) = split (/:/); @rest = ("$local.in",) unless @rest; my $input = locate_am @rest; if ($input) { # We have a file that automake should generate. $make_list{$input} = join (':', ($local, @rest)); } else { # We have a file that automake should cause to be # rebuilt, but shouldn't generate itself. push (@other_input_files, $_); } $ac_config_files_location{$local} = $where; } } # &scan_autoconf_traces ($FILENAME) # --------------------------------- sub scan_autoconf_traces ($) { my ($filename) = @_; # Macros to trace, with their minimal number of arguments. # # IMPORTANT: If you add a macro here, you should also add this macro # ========= to Automake-preselection in autoconf/lib/autom4te.in. my %traced = ( AC_CANONICAL_BUILD => 0, AC_CANONICAL_HOST => 0, AC_CANONICAL_TARGET => 0, AC_CONFIG_AUX_DIR => 1, AC_CONFIG_FILES => 1, AC_CONFIG_HEADERS => 1, AC_CONFIG_LINKS => 1, AC_INIT => 0, AC_LIBSOURCE => 1, AC_SUBST => 1, AM_AUTOMAKE_VERSION => 1, AM_CONDITIONAL => 2, AM_ENABLE_MULTILIB => 0, AM_GNU_GETTEXT => 0, AM_INIT_AUTOMAKE => 0, AM_MAINTAINER_MODE => 0, AM_PROG_CC_C_O => 0, LT_SUPPORTED_TAG => 1, _LT_AC_TAGCONFIG => 0, m4_include => 1, m4_sinclude => 1, sinclude => 1, ); my $traces = ($ENV{AUTOCONF} || 'autoconf') . " "; # Use a separator unlikely to be used, not `:', the default, which # has a precise meaning for AC_CONFIG_FILES and so on. $traces .= join (' ', map { "--trace=$_" . ':\$f:\$l::\$n::\${::}%' } (keys %traced)); my $tracefh = new Automake::XFile ("$traces $filename |"); verb "reading $traces"; while ($_ = $tracefh->getline) { chomp; my ($here, @args) = split (/::/); my $where = new Automake::Location $here; my $macro = $args[0]; prog_error ("unrequested trace `$macro'") unless exists $traced{$macro}; # Skip and diagnose malformed calls. if ($#args < $traced{$macro}) { msg ('syntax', $where, "not enough arguments for $macro"); next; } # Alphabetical ordering please. if ($macro eq 'AC_CANONICAL_BUILD') { if ($seen_canonical <= AC_CANONICAL_BUILD) { $seen_canonical = AC_CANONICAL_BUILD; $canonical_location = $where; } } elsif ($macro eq 'AC_CANONICAL_HOST') { if ($seen_canonical <= AC_CANONICAL_HOST) { $seen_canonical = AC_CANONICAL_HOST; $canonical_location = $where; } } elsif ($macro eq 'AC_CANONICAL_TARGET') { $seen_canonical = AC_CANONICAL_TARGET; $canonical_location = $where; } elsif ($macro eq 'AC_CONFIG_AUX_DIR') { if ($seen_init_automake) { error ($where, "AC_CONFIG_AUX_DIR must be called before " . "AM_INIT_AUTOMAKE...", partial => 1); error ($seen_init_automake, "... AM_INIT_AUTOMAKE called here"); } $config_aux_dir = $args[1]; $config_aux_dir_set_in_configure_ac = 1; $relative_dir = '.'; check_directory ($config_aux_dir, $where); } elsif ($macro eq 'AC_CONFIG_FILES') { # Look at potential Makefile.am's. scan_autoconf_config_files ($where, $args[1]); } elsif ($macro eq 'AC_CONFIG_HEADERS') { foreach my $spec (split (' ', $args[1])) { my ($dest, @src) = split (':', $spec); $ac_config_files_location{$dest} = $where; push @config_headers, $spec; } } elsif ($macro eq 'AC_CONFIG_LINKS') { foreach my $spec (split (' ', $args[1])) { my ($dest, $src) = split (':', $spec); $ac_config_files_location{$dest} = $where; push @config_links, $spec; } } elsif ($macro eq 'AC_INIT') { if (defined $args[2]) { $package_version = $args[2]; $package_version_location = $where; } } elsif ($macro eq 'AC_LIBSOURCE') { $libsources{$args[1]} = $here; } elsif ($macro eq 'AC_SUBST') { # Just check for alphanumeric in AC_SUBST. If you do # AC_SUBST(5), then too bad. $configure_vars{$args[1]} = $where if $args[1] =~ /^\w+$/; } elsif ($macro eq 'AM_AUTOMAKE_VERSION') { error ($where, "version mismatch. This is Automake $VERSION,\n" . "but the definition used by this AM_INIT_AUTOMAKE\n" . "comes from Automake $args[1]. You should recreate\n" . "aclocal.m4 with aclocal and run automake again.\n", # $? = 63 is used to indicate version mismatch to missing. exit_code => 63) if $VERSION ne $args[1]; $seen_automake_version = 1; } elsif ($macro eq 'AM_CONDITIONAL') { $configure_cond{$args[1]} = $where; } elsif ($macro eq 'AM_ENABLE_MULTILIB') { $seen_multilib = $where; } elsif ($macro eq 'AM_GNU_GETTEXT') { $seen_gettext = $where; $ac_gettext_location = $where; $seen_gettext_external = grep ($_ eq 'external', @args); } elsif ($macro eq 'AM_INIT_AUTOMAKE') { $seen_init_automake = $where; if (defined $args[2]) { $package_version = $args[2]; $package_version_location = $where; } elsif (defined $args[1]) { exit $exit_code if (process_global_option_list ($where, split (' ', $args[1]))); } } elsif ($macro eq 'AM_MAINTAINER_MODE') { $seen_maint_mode = $where; } elsif ($macro eq 'AM_PROG_CC_C_O') { $seen_cc_c_o = $where; } elsif ($macro eq 'm4_include' || $macro eq 'm4_sinclude' || $macro eq 'sinclude') { # Some modified versions of Autoconf don't use # forzen files. Consequently it's possible that we see all # m4_include's performed during Autoconf's startup. # Obviously we don't want to distribute Autoconf's files # so we skip absolute filenames here. push @configure_deps, '$(top_srcdir)/' . $args[1] unless $here =~ m,^(?:\w:)?[\\/],; # Keep track of the greatest timestamp. if (-e $args[1]) { my $mtime = mtime $args[1]; $configure_deps_greatest_timestamp = $mtime if $mtime > $configure_deps_greatest_timestamp; } } elsif ($macro eq 'LT_SUPPORTED_TAG') { $libtool_tags{$args[1]} = 1; } elsif ($macro eq '_LT_AC_TAGCONFIG') { # _LT_AC_TAGCONFIG is an old macro present in Libtool 1.5. # We use it to detect whether tags are supported. Our # prefered interface is LT_SUPPORTED_TAG, but it was # introduced in Libtool 1.6. if (0 == keys %libtool_tags) { # Hardcode the tags supported by Libtool 1.5. %libtool_tags = (CC => 1, CXX => 1, GCJ => 1, F77 => 1); } } } $tracefh->close; } # &scan_autoconf_files () # ----------------------- # Check whether we use `configure.ac' or `configure.in'. # Scan it (and possibly `aclocal.m4') for interesting things. # We must scan aclocal.m4 because there might be AC_SUBSTs and such there. sub scan_autoconf_files () { # Reinitialize libsources here. This isn't really necessary, # since we currently assume there is only one configure.ac. But # that won't always be the case. %libsources = (); # Keep track of the youngest configure dependency. $configure_deps_greatest_timestamp = mtime $configure_ac; if (-e 'aclocal.m4') { my $mtime = mtime 'aclocal.m4'; $configure_deps_greatest_timestamp = $mtime if $mtime > $configure_deps_greatest_timestamp; } scan_autoconf_traces ($configure_ac); @configure_input_files = sort keys %make_list; # Set input and output files if not specified by user. if (! @input_files) { @input_files = @configure_input_files; %output_files = %make_list; } if (! $seen_init_automake) { err_ac ("no proper invocation of AM_INIT_AUTOMAKE was found.\nYou " . "should verify that $configure_ac invokes AM_INIT_AUTOMAKE," . "\nthat aclocal.m4 is present in the top-level directory,\n" . "and that aclocal.m4 was recently regenerated " . "(using aclocal)."); } else { if (! $seen_automake_version) { if (-f 'aclocal.m4') { error ($seen_init_automake, "your implementation of AM_INIT_AUTOMAKE comes from " . "an\nold Automake version. You should recreate " . "aclocal.m4\nwith aclocal and run automake again.\n", # $? = 63 is used to indicate version mismatch to missing. exit_code => 63); } else { error ($seen_init_automake, "no proper implementation of AM_INIT_AUTOMAKE was " . "found,\nprobably because aclocal.m4 is missing...\n" . "You should run aclocal to create this file, then\n" . "run automake again.\n"); } } } locate_aux_dir (); # Reorder @input_files so that the Makefile that distributes aux # files is processed last. This is important because each directory # can require auxiliary scripts and we should wait until they have # been installed before distributing them. # The Makefile.in that distribute the aux files is the one in # $config_aux_dir or the top-level Makefile. my $auxdirdist = is_make_dir ($config_aux_dir) ? $config_aux_dir : '.'; my @new_input_files = (); while (@input_files) { my $in = pop @input_files; my @ins = split (/:/, $output_files{$in}); if (dirname ($ins[0]) eq $auxdirdist) { push @new_input_files, $in; $automake_will_process_aux_dir = 1; } else { unshift @new_input_files, $in; } } @input_files = @new_input_files; # If neither the auxdir/Makefile nor the ./Makefile are generated # by Automake, we won't distribute the aux files anyway. Assume # the user know what (s)he does, and pretend we will distribute # them to disable the error in require_file_internal. $automake_will_process_aux_dir = 1 if ! is_make_dir ($auxdirdist); # Look for some files we need. Always check for these. This # check must be done for every run, even those where we are only # looking at a subdir Makefile. We must set relative_dir for # maybe_push_required_file to work. $relative_dir = '.'; require_conf_file ($configure_ac, FOREIGN, 'install-sh', 'missing'); err_am "`install.sh' is an anachronism; use `install-sh' instead" if -f $config_aux_dir . '/install.sh'; # Preserve dist_common for later. $configure_dist_common = variable_value ('DIST_COMMON') || ''; } ################################################################ # Set up for Cygnus mode. sub check_cygnus { my $cygnus = option 'cygnus'; return unless $cygnus; set_strictness ('foreign'); set_option ('no-installinfo', $cygnus); set_option ('no-dependencies', $cygnus); set_option ('no-dist', $cygnus); err_ac "`AM_MAINTAINER_MODE' required when --cygnus specified" if !$seen_maint_mode; } # Do any extra checking for GNU standards. sub check_gnu_standards { if ($relative_dir eq '.') { # In top level (or only) directory. require_file ("$am_file.am", GNU, qw/INSTALL NEWS README AUTHORS ChangeLog/); # Accept one of these three licenses; default to COPYING. # Make sure we do not overwrite an existing license. my $license; foreach (qw /COPYING COPYING.LIB COPYING.LESSER/) { if (-f $_) { $license = $_; last; } } require_file ("$am_file.am", GNU, 'COPYING') unless $license; } for my $opt ('no-installman', 'no-installinfo') { msg ('error-gnu', option $opt, "option `$opt' disallowed by GNU standards") if option $opt; } } # Do any extra checking for GNITS standards. sub check_gnits_standards { if ($relative_dir eq '.') { # In top level (or only) directory. require_file ("$am_file.am", GNITS, 'THANKS'); } } ################################################################ # # Functions to handle files of each language. # Each `lang_X_rewrite($DIRECTORY, $BASE, $EXT)' function follows a # simple formula: Return value is LANG_SUBDIR if the resulting object # file should be in a subdir if the source file is, LANG_PROCESS if # file is to be dealt with, LANG_IGNORE otherwise. # Much of the actual processing is handled in # handle_single_transform. These functions exist so that # auxiliary information can be recorded for a later cleanup pass. # Note that the calls to these functions are computed, so don't bother # searching for their precise names in the source. # This is just a convenience function that can be used to determine # when a subdir object should be used. sub lang_sub_obj { return option 'subdir-objects' ? LANG_SUBDIR : LANG_PROCESS; } # Rewrite a single C source file. sub lang_c_rewrite { my ($directory, $base, $ext) = @_; if (option 'ansi2knr' && $base =~ /_$/) { # FIXME: include line number in error. err_am "C source file `$base.c' would be deleted by ansi2knr rules"; } my $r = LANG_PROCESS; if (option 'subdir-objects') { $r = LANG_SUBDIR; $base = $directory . '/' . $base unless $directory eq '.' || $directory eq ''; err_am ("C objects in subdir but `AM_PROG_CC_C_O' " . "not in `$configure_ac'", uniq_scope => US_GLOBAL) unless $seen_cc_c_o; require_conf_file ("$am_file.am", FOREIGN, 'compile'); # In this case we already have the directory information, so # don't add it again. $de_ansi_files{$base} = ''; } else { $de_ansi_files{$base} = (($directory eq '.' || $directory eq '') ? '' : "$directory/"); } return $r; } # Rewrite a single C++ source file. sub lang_cxx_rewrite { return &lang_sub_obj; } # Rewrite a single header file. sub lang_header_rewrite { # Header files are simply ignored. return LANG_IGNORE; } # Rewrite a single yacc file. sub lang_yacc_rewrite { my ($directory, $base, $ext) = @_; my $r = &lang_sub_obj; (my $newext = $ext) =~ tr/y/c/; return ($r, $newext); } # Rewrite a single yacc++ file. sub lang_yaccxx_rewrite { my ($directory, $base, $ext) = @_; my $r = &lang_sub_obj; (my $newext = $ext) =~ tr/y/c/; return ($r, $newext); } # Rewrite a single lex file. sub lang_lex_rewrite { my ($directory, $base, $ext) = @_; my $r = &lang_sub_obj; (my $newext = $ext) =~ tr/l/c/; return ($r, $newext); } # Rewrite a single lex++ file. sub lang_lexxx_rewrite { my ($directory, $base, $ext) = @_; my $r = &lang_sub_obj; (my $newext = $ext) =~ tr/l/c/; return ($r, $newext); } # Rewrite a single assembly file. sub lang_asm_rewrite { return &lang_sub_obj; } # Rewrite a single Fortran 77 file. sub lang_f77_rewrite { return LANG_PROCESS; } # Rewrite a single Fortran file. sub lang_fc_rewrite { return LANG_PROCESS; } # Rewrite a single preprocessed Fortran file. sub lang_ppfc_rewrite { return LANG_PROCESS; } # Rewrite a single preprocessed Fortran 77 file. sub lang_ppf77_rewrite { return LANG_PROCESS; } # Rewrite a single ratfor file. sub lang_ratfor_rewrite { return LANG_PROCESS; } # Rewrite a single Objective C file. sub lang_objc_rewrite { return &lang_sub_obj; } # Rewrite a single Java file. sub lang_java_rewrite { return LANG_SUBDIR; } # The lang_X_finish functions are called after all source file # processing is done. Each should handle defining rules for the # language, etc. A finish function is only called if a source file of # the appropriate type has been seen. sub lang_c_finish { # Push all libobjs files onto de_ansi_files. We actually only # push files which exist in the current directory, and which are # genuine source files. foreach my $file (keys %libsources) { if ($file =~ /^(.*)\.[cly]$/ && -f "$relative_dir/$file") { $de_ansi_files{$1} = '' } } if (option 'ansi2knr' && keys %de_ansi_files) { # Make all _.c files depend on their corresponding .c files. my @objects; foreach my $base (sort keys %de_ansi_files) { # Each _.c file must depend on ansi2knr; otherwise it # might be used in a parallel build before it is built. # We need to support files in the srcdir and in the build # dir (because these files might be auto-generated. But # we can't use $< -- some makes only define $< during a # suffix rule. my $ansfile = $de_ansi_files{$base} . $base . '.c'; $output_rules .= ($base . "_.c: $ansfile \$(ANSI2KNR)\n\t" . '$(CPP) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) ' . '`if test -f $(srcdir)/' . $ansfile . '; then echo $(srcdir)/' . $ansfile . '; else echo ' . $ansfile . '; fi` ' . "| sed 's/^# \\([0-9]\\)/#line \\1/' " . '| $(ANSI2KNR) > $@' # If ansi2knr fails then we shouldn't # create the _.c file . " || rm -f \$\@\n"); push (@objects, $base . '_.$(OBJEXT)'); push (@objects, $base . '_.lo') if var ('LIBTOOL'); # Explicitly clean the _.c files if they are in a # subdirectory. (In the current directory they get erased # by a `rm -f *_.c' rule.) $clean_files{$base . '_.c'} = MOSTLY_CLEAN if dirname ($base) ne '.'; } # Make all _.o (and _.lo) files depend on ansi2knr. # Use a sneaky little hack to make it print nicely. &pretty_print_rule ('', '', @objects, ':', '$(ANSI2KNR)'); } } # This is a yacc helper which is called whenever we have decided to # compile a yacc file. sub lang_yacc_target_hook { my ($self, $aggregate, $output, $input, %transform) = @_; my $flag = $aggregate . "_YFLAGS"; my $flagvar = var $flag; my $YFLAGSvar = var 'YFLAGS'; if (($flagvar && $flagvar->variable_value =~ /$DASH_D_PATTERN/o) || ($YFLAGSvar && $YFLAGSvar->variable_value =~ /$DASH_D_PATTERN/o)) { (my $output_base = $output) =~ s/$KNOWN_EXTENSIONS_PATTERN$//; my $header = $output_base . '.h'; # Found a `-d' that applies to the compilation of this file. # Add a dependency for the generated header file, and arrange # for that file to be included in the distribution. foreach my $cond (Automake::Rule::define (${header}, 'internal', RULE_AUTOMAKE, TRUE, INTERNAL)) { my $condstr = $cond->subst_string; $output_rules .= ("$condstr${header}: $output\n" # Recover from removal of $header . "$condstr\t\@if test ! -f \$@; then \\\n" . "$condstr\t rm -f $output; \\\n" . "$condstr\t \$(MAKE) $output; \\\n" . "$condstr\telse :; fi\n"); } # Distribute the generated file, unless its .y source was # listed in a nodist_ variable. (&handle_source_transform # will set DIST_SOURCE.) &push_dist_common ($header) if $transform{'DIST_SOURCE'}; # If the files are built in the build directory, then we want # to remove them with `make clean'. If they are in srcdir # they shouldn't be touched. However, we can't determine this # statically, and the GNU rules say that yacc/lex output files # should be removed by maintainer-clean. So that's what we # do. $clean_files{$header} = MAINTAINER_CLEAN; } # Erase $OUTPUT on `make maintainer-clean' (by GNU standards). # See the comment above for $HEADER. $clean_files{$output} = MAINTAINER_CLEAN; } # This is a lex helper which is called whenever we have decided to # compile a lex file. sub lang_lex_target_hook { my ($self, $aggregate, $output, $input) = @_; # If the files are built in the build directory, then we want to # remove them with `make clean'. If they are in srcdir they # shouldn't be touched. However, we can't determine this # statically, and the GNU rules say that yacc/lex output files # should be removed by maintainer-clean. So that's what we do. $clean_files{$output} = MAINTAINER_CLEAN; } # This is a helper for both lex and yacc. sub yacc_lex_finish_helper { return if defined $language_scratch{'lex-yacc-done'}; $language_scratch{'lex-yacc-done'} = 1; # If there is more than one distinct yacc (resp lex) source file # in a given directory, then the `ylwrap' program is required to # allow parallel builds to work correctly. FIXME: for now, no # line number. require_conf_file ($configure_ac, FOREIGN, 'ylwrap'); &define_variable ('YLWRAP', "$am_config_aux_dir/ylwrap", INTERNAL); } sub lang_yacc_finish { return if defined $language_scratch{'yacc-done'}; $language_scratch{'yacc-done'} = 1; reject_var 'YACCFLAGS', "`YACCFLAGS' obsolete; use `YFLAGS' instead"; &yacc_lex_finish_helper if count_files_for_language ('yacc') > 1; } sub lang_lex_finish { return if defined $language_scratch{'lex-done'}; $language_scratch{'lex-done'} = 1; &yacc_lex_finish_helper if count_files_for_language ('lex') > 1; } # Given a hash table of linker names, pick the name that has the most # precedence. This is lame, but something has to have global # knowledge in order to eliminate the conflict. Add more linkers as # required. sub resolve_linker { my (%linkers) = @_; foreach my $l (qw(GCJLINK CXXLINK F77LINK FCLINK OBJCLINK)) { return $l if defined $linkers{$l}; } return 'LINK'; } # Called to indicate that an extension was used. sub saw_extension { my ($ext) = @_; if (! defined $extension_seen{$ext}) { $extension_seen{$ext} = 1; } else { ++$extension_seen{$ext}; } } # Return the number of files seen for a given language. Knows about # special cases we care about. FIXME: this is hideous. We need # something that involves real language objects. For instance yacc # and yaccxx could both derive from a common yacc class which would # know about the strange ylwrap requirement. (Or better yet we could # just not support legacy yacc!) sub count_files_for_language { my ($name) = @_; my @names; if ($name eq 'yacc' || $name eq 'yaccxx') { @names = ('yacc', 'yaccxx'); } elsif ($name eq 'lex' || $name eq 'lexxx') { @names = ('lex', 'lexxx'); } else { @names = ($name); } my $r = 0; foreach $name (@names) { my $lang = $languages{$name}; foreach my $ext (@{$lang->extensions}) { $r += $extension_seen{$ext} if defined $extension_seen{$ext}; } } return $r } # Called to ask whether source files have been seen . If HEADERS is 1, # headers can be included. sub saw_sources_p { my ($headers) = @_; # count all the sources my $count = 0; foreach my $val (values %extension_seen) { $count += $val; } if (!$headers) { $count -= count_files_for_language ('header'); } return $count > 0; } # register_language (%ATTRIBUTE) # ------------------------------ # Register a single language. # Each %ATTRIBUTE is of the form ATTRIBUTE => VALUE. sub register_language (%) { my (%option) = @_; # Set the defaults. $option{'ansi'} = 0 unless defined $option{'ansi'}; $option{'autodep'} = 'no' unless defined $option{'autodep'}; $option{'linker'} = '' unless defined $option{'linker'}; $option{'flags'} = [] unless defined $option{'flags'}; $option{'output_extensions'} = sub { return ( '.$(OBJEXT)', '.lo' ) } unless defined $option{'output_extensions'}; my $lang = new Language (%option); # Fill indexes. $extension_map{$_} = $lang->name foreach @{$lang->extensions}; $languages{$lang->name} = $lang; # Update the pattern of known extensions. accept_extensions (@{$lang->extensions}); # Upate the $suffix_rule map. foreach my $suffix (@{$lang->extensions}) { foreach my $dest (&{$lang->output_extensions} ($suffix)) { register_suffix_rule (INTERNAL, $suffix, $dest); } } } # derive_suffix ($EXT, $OBJ) # -------------------------- # This function is used to find a path from a user-specified suffix $EXT # to $OBJ or to some other suffix we recognize internally, e.g. `cc'. sub derive_suffix ($$) { my ($source_ext, $obj) = @_; while (! $extension_map{$source_ext} && $source_ext ne $obj && exists $suffix_rules->{$source_ext} && exists $suffix_rules->{$source_ext}{$obj}) { $source_ext = $suffix_rules->{$source_ext}{$obj}[0]; } return $source_ext; } ################################################################ # Pretty-print something and append to output_rules. sub pretty_print_rule { $output_rules .= &makefile_wrap (@_); } ################################################################ ## -------------------------------- ## ## Handling the conditional stack. ## ## -------------------------------- ## # $STRING # make_conditional_string ($NEGATE, $COND) # ---------------------------------------- sub make_conditional_string ($$) { my ($negate, $cond) = @_; $cond = "${cond}_TRUE" unless $cond =~ /^TRUE|FALSE$/; $cond = Automake::Condition::conditional_negate ($cond) if $negate; return $cond; } # $COND # cond_stack_if ($NEGATE, $COND, $WHERE) # -------------------------------------- sub cond_stack_if ($$$) { my ($negate, $cond, $where) = @_; error $where, "$cond does not appear in AM_CONDITIONAL" if ! $configure_cond{$cond} && $cond !~ /^TRUE|FALSE$/; push (@cond_stack, make_conditional_string ($negate, $cond)); return new Automake::Condition (@cond_stack); } # $COND # cond_stack_else ($NEGATE, $COND, $WHERE) # ---------------------------------------- sub cond_stack_else ($$$) { my ($negate, $cond, $where) = @_; if (! @cond_stack) { error $where, "else without if"; return FALSE; } $cond_stack[$#cond_stack] = Automake::Condition::conditional_negate ($cond_stack[$#cond_stack]); # If $COND is given, check against it. if (defined $cond) { $cond = make_conditional_string ($negate, $cond); error ($where, "else reminder ($negate$cond) incompatible with " . "current conditional: $cond_stack[$#cond_stack]") if $cond_stack[$#cond_stack] ne $cond; } return new Automake::Condition (@cond_stack); } # $COND # cond_stack_endif ($NEGATE, $COND, $WHERE) # ----------------------------------------- sub cond_stack_endif ($$$) { my ($negate, $cond, $where) = @_; my $old_cond; if (! @cond_stack) { error $where, "endif without if"; return TRUE; } # If $COND is given, check against it. if (defined $cond) { $cond = make_conditional_string ($negate, $cond); error ($where, "endif reminder ($negate$cond) incompatible with " . "current conditional: $cond_stack[$#cond_stack]") if $cond_stack[$#cond_stack] ne $cond; } pop @cond_stack; return new Automake::Condition (@cond_stack); } ## ------------------------ ## ## Handling the variables. ## ## ------------------------ ## # &define_pretty_variable ($VAR, $COND, $WHERE, @VALUE) # ----------------------------------------------------- # Like define_variable, but the value is a list, and the variable may # be defined conditionally. The second argument is the Condition # under which the value should be defined; this should be the empty # string to define the variable unconditionally. The third argument # is a list holding the values to use for the variable. The value is # pretty printed in the output file. sub define_pretty_variable ($$$@) { my ($var, $cond, $where, @value) = @_; if (! vardef ($var, $cond)) { Automake::Variable::define ($var, VAR_AUTOMAKE, '', $cond, "@value", '', $where, VAR_PRETTY); rvar ($var)->rdef ($cond)->set_seen; } } # define_variable ($VAR, $VALUE, $WHERE) # -------------------------------------- # Define a new user variable VAR to VALUE, but only if not already defined. sub define_variable ($$$) { my ($var, $value, $where) = @_; define_pretty_variable ($var, TRUE, $where, $value); } # define_files_variable ($VAR, \@BASENAME, $EXTENSION, $WHERE) # ----------------------------------------------------------- # Define the $VAR which content is the list of file names composed of # a @BASENAME and the $EXTENSION. sub define_files_variable ($\@$$) { my ($var, $basename, $extension, $where) = @_; define_variable ($var, join (' ', map { "$_.$extension" } @$basename), $where); } # Like define_variable, but define a variable to be the configure # substitution by the same name. sub define_configure_variable ($) { my ($var) = @_; my $pretty = VAR_ASIS; my $owner = VAR_CONFIGURE; # Do not output the ANSI2KNR configure variable -- we AC_SUBST # it in protos.m4, but later redefine it elsewhere. This is # pretty hacky. We also don't output AMDEPBACKSLASH: it might # be subst'd by `\', which certainly would not be appreciated by # Make. if ($var eq 'ANSI2KNR' || $var eq 'AMDEPBACKSLASH') { $pretty = VAR_SILENT; $owner = VAR_AUTOMAKE; } Automake::Variable::define ($var, $owner, '', TRUE, subst $var, '', $configure_vars{$var}, $pretty); } # define_compiler_variable ($LANG) # -------------------------------- # Define a compiler variable. We also handle defining the `LT' # version of the command when using libtool. sub define_compiler_variable ($) { my ($lang) = @_; my ($var, $value) = ($lang->compiler, $lang->compile); my $libtool_tag = ''; $libtool_tag = '--tag=' . $lang->libtool_tag . ' ' if $lang->libtool_tag && exists $libtool_tags{$lang->libtool_tag}; &define_variable ($var, $value, INTERNAL); &define_variable ("LT$var", "\$(LIBTOOL) --mode=compile $libtool_tag$value", INTERNAL) if var ('LIBTOOL'); } # define_linker_variable ($LANG) # ------------------------------ # Define linker variables. sub define_linker_variable ($) { my ($lang) = @_; my ($var, $value) = ($lang->lder, $lang->ld); my $libtool_tag = ''; $libtool_tag = '--tag=' . $lang->libtool_tag . ' ' if $lang->libtool_tag && exists $libtool_tags{$lang->libtool_tag}; # CCLD = $(CC). &define_variable ($lang->lder, $lang->ld, INTERNAL); # CCLINK = $(CCLD) blah blah... &define_variable ($lang->linker, ((var ('LIBTOOL') ? '$(LIBTOOL) --mode=link ' . $libtool_tag : '') . $lang->link), INTERNAL); } ################################################################ # &check_trailing_slash ($WHERE, $LINE) # -------------------------------------- # Return 1 iff $LINE ends with a slash. # Might modify $LINE. sub check_trailing_slash ($\$) { my ($where, $line) = @_; # Ignore `##' lines. return 0 if $$line =~ /$IGNORE_PATTERN/o; # Catch and fix a common error. msg "syntax", $where, "whitespace following trailing backslash" if $$line =~ s/\\\s+\n$/\\\n/; return $$line =~ /\\$/; } # &read_am_file ($AMFILE, $WHERE) # ------------------------------- # Read Makefile.am and set up %contents. Simultaneously copy lines # from Makefile.am into $output_trailer, or define variables as # appropriate. NOTE we put rules in the trailer section. We want # user rules to come after our generated stuff. sub read_am_file ($$) { my ($amfile, $where) = @_; my $am_file = new Automake::XFile ("< $amfile"); verb "reading $amfile"; # Keep track of the youngest output dependency. my $mtime = mtime $amfile; $output_deps_greatest_timestamp = $mtime if $mtime > $output_deps_greatest_timestamp; my $spacing = ''; my $comment = ''; my $blank = 0; my $saw_bk = 0; use constant IN_VAR_DEF => 0; use constant IN_RULE_DEF => 1; use constant IN_COMMENT => 2; my $prev_state = IN_RULE_DEF; while ($_ = $am_file->getline) { $where->set ("$amfile:$."); if (/$IGNORE_PATTERN/o) { # Merely delete comments beginning with two hashes. } elsif (/$WHITE_PATTERN/o) { error $where, "blank line following trailing backslash" if $saw_bk; # Stick a single white line before the incoming macro or rule. $spacing = "\n"; $blank = 1; # Flush all comments seen so far. if ($comment ne '') { $output_vars .= $comment; $comment = ''; } } elsif (/$COMMENT_PATTERN/o) { # Stick comments before the incoming macro or rule. Make # sure a blank line precedes the first block of comments. $spacing = "\n" unless $blank; $blank = 1; $comment .= $spacing . $_; $spacing = ''; $prev_state = IN_COMMENT; } else { last; } $saw_bk = check_trailing_slash ($where, $_); } # We save the conditional stack on entry, and then check to make # sure it is the same on exit. This lets us conditionally include # other files. my @saved_cond_stack = @cond_stack; my $cond = new Automake::Condition (@cond_stack); my $last_var_name = ''; my $last_var_type = ''; my $last_var_value = ''; my $last_where; # FIXME: shouldn't use $_ in this loop; it is too big. while ($_) { $where->set ("$amfile:$."); # Make sure the line is \n-terminated. chomp; $_ .= "\n"; # Don't look at MAINTAINER_MODE_TRUE here. That shouldn't be # used by users. @MAINT@ is an anachronism now. $_ =~ s/\@MAINT\@//g unless $seen_maint_mode; my $new_saw_bk = check_trailing_slash ($where, $_); if (/$IGNORE_PATTERN/o) { # Merely delete comments beginning with two hashes. } elsif (/$WHITE_PATTERN/o) { # Stick a single white line before the incoming macro or rule. $spacing = "\n"; error $where, "blank line following trailing backslash" if $saw_bk; } elsif (/$COMMENT_PATTERN/o) { # Stick comments before the incoming macro or rule. $comment .= $spacing . $_; $spacing = ''; error $where, "comment following trailing backslash" if $saw_bk && $comment eq ''; $prev_state = IN_COMMENT; } elsif ($saw_bk) { if ($prev_state == IN_RULE_DEF) { my $cond = new Automake::Condition @cond_stack; $output_trailer .= $cond->subst_string; $output_trailer .= $_; } elsif ($prev_state == IN_COMMENT) { # If the line doesn't start with a `#', add it. # We do this because a continued comment like # # A = foo \ # bar \ # baz # is not portable. BSD make doesn't honor # escaped newlines in comments. s/^#?/#/; $comment .= $spacing . $_; } else # $prev_state == IN_VAR_DEF { $last_var_value .= ' ' unless $last_var_value =~ /\s$/; $last_var_value .= $_; if (!/\\$/) { Automake::Variable::define ($last_var_name, VAR_MAKEFILE, $last_var_type, $cond, $last_var_value, $comment, $last_where, VAR_ASIS) if $cond != FALSE; $comment = $spacing = ''; } } } elsif (/$IF_PATTERN/o) { $cond = cond_stack_if ($1, $2, $where); } elsif (/$ELSE_PATTERN/o) { $cond = cond_stack_else ($1, $2, $where); } elsif (/$ENDIF_PATTERN/o) { $cond = cond_stack_endif ($1, $2, $where); } elsif (/$RULE_PATTERN/o) { # Found a rule. $prev_state = IN_RULE_DEF; # For now we have to output all definitions of user rules # and can't diagnose duplicates (see the comment in # rule_define). So we go on and ignore the return value. Automake::Rule::define ($1, $amfile, RULE_USER, $cond, $where); check_variable_expansions ($_, $where); $output_trailer .= $comment . $spacing; my $cond = new Automake::Condition @cond_stack; $output_trailer .= $cond->subst_string; $output_trailer .= $_; $comment = $spacing = ''; } elsif (/$ASSIGNMENT_PATTERN/o) { # Found a macro definition. $prev_state = IN_VAR_DEF; $last_var_name = $1; $last_var_type = $2; $last_var_value = $3; $last_where = $where->clone; if ($3 ne '' && substr ($3, -1) eq "\\") { # We preserve the `\' because otherwise the long lines # that are generated will be truncated by broken # `sed's. $last_var_value = $3 . "\n"; } if (!/\\$/) { Automake::Variable::define ($last_var_name, VAR_MAKEFILE, $last_var_type, $cond, $last_var_value, $comment, $last_where, VAR_ASIS) if $cond != FALSE; $comment = $spacing = ''; } } elsif (/$INCLUDE_PATTERN/o) { my $path = $1; if ($path =~ s/^\$\(top_srcdir\)\///) { push (@include_stack, "\$\(top_srcdir\)/$path"); # Distribute any included file. # Always use the $(top_srcdir) prefix in DIST_COMMON, # otherwise OSF make will implicitly copy the included # file in the build tree during `make distdir' to satisfy # the dependency. # (subdircond2.test and subdircond3.test will fail.) push_dist_common ("\$\(top_srcdir\)/$path"); } else { $path =~ s/\$\(srcdir\)\///; push (@include_stack, "\$\(srcdir\)/$path"); # Always use the $(srcdir) prefix in DIST_COMMON, # otherwise OSF make will implicitly copy the included # file in the build tree during `make distdir' to satisfy # the dependency. # (subdircond2.test and subdircond3.test will fail.) push_dist_common ("\$\(srcdir\)/$path"); $path = $relative_dir . "/" . $path if $relative_dir ne '.'; } $where->push_context ("`$path' included from here"); &read_am_file ($path, $where); $where->pop_context; } else { # This isn't an error; it is probably a continued rule. # In fact, this is what we assume. $prev_state = IN_RULE_DEF; check_variable_expansions ($_, $where); $output_trailer .= $comment . $spacing; my $cond = new Automake::Condition @cond_stack; $output_trailer .= $cond->subst_string; $output_trailer .= $_; $comment = $spacing = ''; error $where, "`#' comment at start of rule is unportable" if $_ =~ /^\t\s*\#/; } $saw_bk = $new_saw_bk; $_ = $am_file->getline; } $output_trailer .= $comment; error ($where, "trailing backslash on last line") if $saw_bk; error ($where, (@cond_stack ? "unterminated conditionals: @cond_stack" : "too many conditionals closed in include file")) if "@saved_cond_stack" ne "@cond_stack"; } # define_standard_variables () # ---------------------------- # A helper for read_main_am_file which initializes configure variables # and variables from header-vars.am. sub define_standard_variables { my $saved_output_vars = $output_vars; my ($comments, undef, $rules) = file_contents_internal (1, "$libdir/am/header-vars.am", new Automake::Location); foreach my $var (sort keys %configure_vars) { &define_configure_variable ($var); } $output_vars .= $comments . $rules; } # Read main am file. sub read_main_am_file { my ($amfile) = @_; # This supports the strange variable tricks we are about to play. prog_error (macros_dump () . "variable defined before read_main_am_file") if (scalar (variables) > 0); # Generate copyright header for generated Makefile.in. # We do discard the output of predefined variables, handled below. $output_vars = ("# $in_file_name generated by automake " . $VERSION . " from $am_file_name.\n"); $output_vars .= '# ' . subst ('configure_input') . "\n"; $output_vars .= $gen_copyright; # We want to predefine as many variables as possible. This lets # the user set them with `+=' in Makefile.am. &define_standard_variables; # Read user file, which might override some of our values. &read_am_file ($amfile, new Automake::Location); } ################################################################ # $FLATTENED # &flatten ($STRING) # ------------------ # Flatten the $STRING and return the result. sub flatten { $_ = shift; s/\\\n//somg; s/\s+/ /g; s/^ //; s/ $//; return $_; } # @PARAGRAPHS # &make_paragraphs ($MAKEFILE, [%TRANSFORM]) # ------------------------------------------ # Load a $MAKEFILE, apply the %TRANSFORM, and return it as a list of # paragraphs. sub make_paragraphs ($%) { my ($file, %transform) = @_; # Complete %transform with global options and make it a Perl $command. # Note that %transform goes last, so it overrides global options. my $command = "s/$IGNORE_PATTERN//gm;" . transform ('CYGNUS' => !! option 'cygnus', 'MAINTAINER-MODE' => $seen_maint_mode ? subst ('MAINTAINER_MODE_TRUE') : '', 'BZIP2' => !! option 'dist-bzip2', 'COMPRESS' => !! option 'dist-tarZ', 'GZIP' => ! option 'no-dist-gzip', 'SHAR' => !! option 'dist-shar', 'ZIP' => !! option 'dist-zip', 'INSTALL-INFO' => ! option 'no-installinfo', 'INSTALL-MAN' => ! option 'no-installman', 'CK-NEWS' => !! option 'check-news', 'SUBDIRS' => !! var ('SUBDIRS'), 'TOPDIR' => backname ($relative_dir), 'TOPDIR_P' => $relative_dir eq '.', 'BUILD' => ($seen_canonical >= AC_CANONICAL_BUILD), 'HOST' => ($seen_canonical >= AC_CANONICAL_HOST), 'TARGET' => ($seen_canonical >= AC_CANONICAL_TARGET), 'LIBTOOL' => !! var ('LIBTOOL'), 'NONLIBTOOL' => 1, 'FIRST' => ! $transformed_files{$file}, %transform) # We don't need more than two consecutive new-lines. . 's/\n{3,}/\n\n/g'; $transformed_files{$file} = 1; # Swallow the file and apply the COMMAND. my $fc_file = new Automake::XFile "< $file"; # Looks stupid? verb "reading $file"; my $saved_dollar_slash = $/; undef $/; $_ = $fc_file->getline; $/ = $saved_dollar_slash; eval $command; $fc_file->close; my $content = $_; # Split at unescaped new lines. my @lines = split (/(?set ($file); my $result_vars = ''; my $result_rules = ''; my $comment = ''; my $spacing = ''; # The following flags are used to track rules spanning across # multiple paragraphs. my $is_rule = 0; # 1 if we are processing a rule. my $discard_rule = 0; # 1 if the current rule should not be output. # We save the conditional stack on entry, and then check to make # sure it is the same on exit. This lets us conditionally include # other files. my @saved_cond_stack = @cond_stack; my $cond = new Automake::Condition (@cond_stack); foreach (make_paragraphs ($file, %transform)) { # FIXME: no line number available. $where->set ($file); # Sanity checks. error $where, "blank line following trailing backslash:\n$_" if /\\$/; error $where, "comment following trailing backslash:\n$_" if /\\#/; if (/^$/) { $is_rule = 0; # Stick empty line before the incoming macro or rule. $spacing = "\n"; } elsif (/$COMMENT_PATTERN/mso) { $is_rule = 0; # Stick comments before the incoming macro or rule. $comment = "$_\n"; } # Handle inclusion of other files. elsif (/$INCLUDE_PATTERN/o) { if ($cond != FALSE) { my $file = ($is_am ? "$libdir/am/" : '') . $1; $where->push_context ("`$file' included from here"); # N-ary `.=' fails. my ($com, $vars, $rules) = file_contents_internal ($is_am, $file, $where, %transform); $where->pop_context; $comment .= $com; $result_vars .= $vars; $result_rules .= $rules; } } # Handling the conditionals. elsif (/$IF_PATTERN/o) { $cond = cond_stack_if ($1, $2, $file); } elsif (/$ELSE_PATTERN/o) { $cond = cond_stack_else ($1, $2, $file); } elsif (/$ENDIF_PATTERN/o) { $cond = cond_stack_endif ($1, $2, $file); } # Handling rules. elsif (/$RULE_PATTERN/mso) { $is_rule = 1; $discard_rule = 0; # Separate relationship from optional actions: the first # `new-line tab" not preceded by backslash (continuation # line). my $paragraph = $_; /^(.*?)(?:(?subst_string/gme; $result_rules .= "$spacing$comment$condparagraph\n"; } if (scalar @undefined_conds == 0) { # Remember to discard next paragraphs # if they belong to this rule. # (but see also FIXME: #2 above.) $discard_rule = 1; } $comment = $spacing = ''; last; } } } elsif (/$ASSIGNMENT_PATTERN/mso) { my ($var, $type, $val) = ($1, $2, $3); error $where, "variable `$var' with trailing backslash" if /\\$/; $is_rule = 0; Automake::Variable::define ($var, $is_am ? VAR_AUTOMAKE : VAR_MAKEFILE, $type, $cond, $val, $comment, $where, VAR_ASIS) if $cond != FALSE; $comment = $spacing = ''; } else { # This isn't an error; it is probably some tokens which # configure is supposed to replace, such as `@SET-MAKE@', # or some part of a rule cut by an if/endif. if (! $cond->false && ! ($is_rule && $discard_rule)) { s/^/$cond->subst_string/gme; $result_rules .= "$spacing$comment$_\n"; } $comment = $spacing = ''; } } error ($where, @cond_stack ? "unterminated conditionals: @cond_stack" : "too many conditionals closed in include file") if "@saved_cond_stack" ne "@cond_stack"; return ($comment, $result_vars, $result_rules); } # $CONTENTS # &file_contents ($BASENAME, $WHERE, [%TRANSFORM]) # ------------------------------------------------ # Return contents of a file from $libdir/am, automatically skipping # macros or rules which are already known. sub file_contents ($$%) { my ($basename, $where, %transform) = @_; my ($comments, $variables, $rules) = file_contents_internal (1, "$libdir/am/$basename.am", $where, %transform); return "$comments$variables$rules"; } # $REGEXP # &transform (%PAIRS) # ------------------- # For each ($TOKEN, $VAL) in %PAIRS produce a replacement expression # suitable for file_contents which: # - replaces %$TOKEN% with $VAL, # - enables/disables ?$TOKEN? and ?!$TOKEN?, # - replaces %?$TOKEN% with TRUE or FALSE. sub transform (%) { my (%pairs) = @_; my $result = ''; while (my ($token, $val) = each %pairs) { $result .= "s/\Q%$token%\E/\Q$val\E/gm;"; if ($val) { $result .= "s/\Q?$token?\E//gm;s/^.*\Q?!$token?\E.*\\n//gm;"; $result .= "s/\Q%?$token%\E/TRUE/gm;"; } else { $result .= "s/\Q?!$token?\E//gm;s/^.*\Q?$token?\E.*\\n//gm;"; $result .= "s/\Q%?$token%\E/FALSE/gm;"; } } return $result; } # &append_exeext ($MACRO) # ----------------------- # Macro is an Automake magic macro which primary is PROGRAMS, e.g. # bin_PROGRAMS. Make sure these programs have $(EXEEXT) appended. sub append_exeext ($) { my ($macro) = @_; prog_error "append_exeext ($macro)" unless $macro =~ /_PROGRAMS$/; transform_variable_recursively ($macro, $macro, 'am__EXEEXT', 0, INTERNAL, sub { my ($subvar, $val, $cond, $full_cond) = @_; # Append $(EXEEXT) unless the user did it already, or it's a # @substitution@. $val .= '$(EXEEXT)' unless $val =~ /(?:\$\(EXEEXT\)$|^[@]\w+[@]$)/; return $val; }); } # @PREFIX # &am_primary_prefixes ($PRIMARY, $CAN_DIST, @PREFIXES) # ----------------------------------------------------- # Find all variable prefixes that are used for install directories. A # prefix `zar' qualifies iff: # # * `zardir' is a variable. # * `zar_PRIMARY' is a variable. # # As a side effect, it looks for misspellings. It is an error to have # a variable ending in a "reserved" suffix whose prefix is unknown, e.g. # "bin_PROGRAMS". However, unusual prefixes are allowed if a variable # of the same name (with "dir" appended) exists. For instance, if the # variable "zardir" is defined, then "zar_PROGRAMS" becomes valid. # This is to provide a little extra flexibility in those cases which # need it. sub am_primary_prefixes ($$@) { my ($primary, $can_dist, @prefixes) = @_; local $_; my %valid = map { $_ => 0 } @prefixes; $valid{'EXTRA'} = 0; foreach my $var (variables) { # Automake is allowed to define variables that look like primaries # but which aren't. E.g. INSTALL_sh_DATA. # Autoconf can also define variables like INSTALL_DATA, so # ignore all configure variables (at least those which are not # redefined in Makefile.am). # FIXME: We should make sure that these variables are not # conditionally defined (or else adjust the condition below). my $def = $var->def (TRUE); next if $def && $def->owner != VAR_MAKEFILE; my $varname = $var->name; if ($varname =~ /^(nobase_)?(dist_|nodist_)?(.*)_$primary$/) { my ($base, $dist, $X) = ($1 || '', $2 || '', $3 || ''); if ($dist ne '' && ! $can_dist) { err_var ($var, "invalid variable `$varname': `dist' is forbidden"); } # Standard directories must be explicitly allowed. elsif (! defined $valid{$X} && exists $standard_prefix{$X}) { err_var ($var, "`${X}dir' is not a legitimate directory " . "for `$primary'"); } # A not explicitly valid directory is allowed if Xdir is defined. elsif (! defined $valid{$X} && $var->requires_variables ("`$varname' is used", "${X}dir")) { # Nothing to do. Any error message has been output # by $var->requires_variables. } else { # Ensure all extended prefixes are actually used. $valid{"$base$dist$X"} = 1; } } } # Return only those which are actually defined. return sort grep { var ($_ . '_' . $primary) } keys %valid; } # Handle `where_HOW' variable magic. Does all lookups, generates # install code, and possibly generates code to define the primary # variable. The first argument is the name of the .am file to munge, # the second argument is the primary variable (e.g. HEADERS), and all # subsequent arguments are possible installation locations. # # Returns list of [$location, $value] pairs, where # $value's are the values in all where_HOW variable, and $location # there associated location (the place here their parent variables were # defined). # # FIXME: this should be rewritten to be cleaner. It should be broken # up into multiple functions. # # Usage is: am_install_var (OPTION..., file, HOW, where...) sub am_install_var { my (@args) = @_; my $do_require = 1; my $can_dist = 0; my $default_dist = 0; while (@args) { if ($args[0] eq '-noextra') { $do_require = 0; } elsif ($args[0] eq '-candist') { $can_dist = 1; } elsif ($args[0] eq '-defaultdist') { $default_dist = 1; $can_dist = 1; } elsif ($args[0] !~ /^-/) { last; } shift (@args); } my ($file, $primary, @prefix) = @args; # Now that configure substitutions are allowed in where_HOW # variables, it is an error to actually define the primary. We # allow `JAVA', as it is customarily used to mean the Java # interpreter. This is but one of several Java hacks. Similarly, # `PYTHON' is customarily used to mean the Python interpreter. reject_var $primary, "`$primary' is an anachronism" unless $primary eq 'JAVA' || $primary eq 'PYTHON'; # Get the prefixes which are valid and actually used. @prefix = am_primary_prefixes ($primary, $can_dist, @prefix); # If a primary includes a configure substitution, then the EXTRA_ # form is required. Otherwise we can't properly do our job. my $require_extra; my @used = (); my @result = (); foreach my $X (@prefix) { my $nodir_name = $X; my $one_name = $X . '_' . $primary; my $one_var = var $one_name; my $strip_subdir = 1; # If subdir prefix should be preserved, do so. if ($nodir_name =~ /^nobase_/) { $strip_subdir = 0; $nodir_name =~ s/^nobase_//; } # If files should be distributed, do so. my $dist_p = 0; if ($can_dist) { $dist_p = (($default_dist && $nodir_name !~ /^nodist_/) || (! $default_dist && $nodir_name =~ /^dist_/)); $nodir_name =~ s/^(dist|nodist)_//; } # Use the location of the currently processed variable. # We are not processing a particular condition, so pick the first # available. my $tmpcond = $one_var->conditions->one_cond; my $where = $one_var->rdef ($tmpcond)->location->clone; # Append actual contents of where_PRIMARY variable to # @result, skipping @substitutions@. foreach my $locvals ($one_var->value_as_list_recursive (location => 1)) { my ($loc, $value) = @$locvals; # Skip configure substitutions. if ($value =~ /^\@.*\@$/) { if ($nodir_name eq 'EXTRA') { error ($where, "`$one_name' contains configure substitution, " . "but shouldn't"); } # Check here to make sure variables defined in # configure.ac do not imply that EXTRA_PRIMARY # must be defined. elsif (! defined $configure_vars{$one_name}) { $require_extra = $one_name if $do_require; } } else { push (@result, $locvals); } } # A blatant hack: we rewrite each _PROGRAMS primary to include # EXEEXT. append_exeext ($one_name) if $primary eq 'PROGRAMS'; # "EXTRA" shouldn't be used when generating clean targets, # all, or install targets. We used to warn if EXTRA_FOO was # defined uselessly, but this was annoying. next if $nodir_name eq 'EXTRA'; if ($nodir_name eq 'check') { push (@check, '$(' . $one_name . ')'); } else { push (@used, '$(' . $one_name . ')'); } # Is this to be installed? my $install_p = $nodir_name ne 'noinst' && $nodir_name ne 'check'; # If so, with install-exec? (or install-data?). my $exec_p = ($nodir_name =~ /$EXEC_DIR_PATTERN/o); my $check_options_p = $install_p && !! option 'std-options'; # Use the location of the currently processed variable as context. $where->push_context ("while processing `$one_name'"); # The variable containing all file to distribute. my $distvar = "\$($one_name)"; $distvar = shadow_unconditionally ($one_name, $where) if ($dist_p && $one_var->has_conditional_contents); # Singular form of $PRIMARY. (my $one_primary = $primary) =~ s/S$//; $output_rules .= &file_contents ($file, $where, PRIMARY => $primary, ONE_PRIMARY => $one_primary, DIR => $X, NDIR => $nodir_name, BASE => $strip_subdir, EXEC => $exec_p, INSTALL => $install_p, DIST => $dist_p, DISTVAR => $distvar, 'CK-OPTS' => $check_options_p); } # The JAVA variable is used as the name of the Java interpreter. # The PYTHON variable is used as the name of the Python interpreter. if (@used && $primary ne 'JAVA' && $primary ne 'PYTHON') { # Define it. define_pretty_variable ($primary, TRUE, INTERNAL, @used); $output_vars .= "\n"; } err_var ($require_extra, "`$require_extra' contains configure substitution,\n" . "but `EXTRA_$primary' not defined") if ($require_extra && ! var ('EXTRA_' . $primary)); # Push here because PRIMARY might be configure time determined. push (@all, '$(' . $primary . ')') if @used && $primary ne 'JAVA' && $primary ne 'PYTHON'; # Make the result unique. This lets the user use conditionals in # a natural way, but still lets us program lazily -- we don't have # to worry about handling a particular object more than once. # We will keep only one location per object. my %result = (); for my $pair (@result) { my ($loc, $val) = @$pair; $result{$val} = $loc; } my @l = sort keys %result; return map { [$result{$_}->clone, $_] } @l; } ################################################################ # Each key in this hash is the name of a directory holding a # Makefile.in. These variables are local to `is_make_dir'. my %make_dirs = (); my $make_dirs_set = 0; sub is_make_dir { my ($dir) = @_; if (! $make_dirs_set) { foreach my $iter (@configure_input_files) { $make_dirs{dirname ($iter)} = 1; } # We also want to notice Makefile.in's. foreach my $iter (@other_input_files) { if ($iter =~ /Makefile\.in$/) { $make_dirs{dirname ($iter)} = 1; } } $make_dirs_set = 1; } return defined $make_dirs{$dir}; } ################################################################ # Find the aux dir. This should match the algorithm used by # ./configure. (See the Autoconf documentation for for # AC_CONFIG_AUX_DIR.) sub locate_aux_dir () { if (! $config_aux_dir_set_in_configure_ac) { # The default auxiliary directory is the first # of ., .., or ../.. that contains install-sh. # Assume . if install-sh doesn't exist yet. for my $dir (qw (. .. ../..)) { if (-f "$dir/install-sh") { $config_aux_dir = $dir; last; } } $config_aux_dir = '.' unless $config_aux_dir; } # Avoid unsightly '/.'s. $am_config_aux_dir = '$(top_srcdir)' . ($config_aux_dir eq '.' ? "" : "/$config_aux_dir"); $am_config_aux_dir =~ s,/*$,,; } # &maybe_push_required_file ($DIR, $FILE, $FULLFILE) # -------------------------------------------------- # See if we want to push this file onto dist_common. This function # encodes the rules for deciding when to do so. sub maybe_push_required_file { my ($dir, $file, $fullfile) = @_; if ($dir eq $relative_dir) { push_dist_common ($file); return 1; } elsif ($relative_dir eq '.' && ! &is_make_dir ($dir)) { # If we are doing the topmost directory, and the file is in a # subdir which does not have a Makefile, then we distribute it # here. # If a required file is above the source tree, it is important # to prefix it with `$(srcdir)' so that no VPATH search is # performed. Otherwise problems occur with Make implementations # that rewrite and simplify rules whose dependencies are found in a # VPATH location. Here is an example with OSF1/Tru64 Make. # # % cat Makefile # VPATH = sub # distdir: ../a # echo ../a # % ls # Makefile a # % make # echo a # a # # Dependency `../a' was found in `sub/../a', but this make # implementation simplified it as `a'. (Note that the sub/ # directory does not even exist.) # # This kind of VPATH rewriting seems hard to cancel. The # distdir.am hack against VPATH rewriting works only when no # simplification is done, i.e., for dependencies which are in # subdirectories, not in enclosing directories. Hence, in # the latter case we use a full path to make sure no VPATH # search occurs. $fullfile = '$(srcdir)/' . $fullfile if $dir =~ m,^\.\.(?:$|/),; push_dist_common ($fullfile); return 1; } return 0; } # If a file name appears as a key in this hash, then it has already # been checked for. This allows us not to report the same error more # than once. my %required_file_not_found = (); # &require_file_internal ($WHERE, $MYSTRICT, $DIRECTORY, @FILES) # -------------------------------------------------------------- # Verify that the file must exist in $DIRECTORY, or install it. # $MYSTRICT is the strictness level at which this file becomes required. sub require_file_internal ($$$@) { my ($where, $mystrict, $dir, @files) = @_; foreach my $file (@files) { my $fullfile = "$dir/$file"; my $found_it = 0; my $dangling_sym = 0; if (-l $fullfile && ! -f $fullfile) { $dangling_sym = 1; } elsif (-f $fullfile) { $found_it = 1; maybe_push_required_file ($dir, $file, $fullfile); } # `--force-missing' only has an effect if `--add-missing' is # specified. if ($found_it && (! $add_missing || ! $force_missing)) { next; } else { # If we've already looked for it, we're done. You might # wonder why we don't do this before searching for the # file. If we do that, then something like # AC_OUTPUT(subdir/foo foo) will fail to put foo.in into # DIST_COMMON. if (! $found_it) { next if defined $required_file_not_found{$fullfile}; $required_file_not_found{$fullfile} = 1; } if ($strictness >= $mystrict) { if ($dangling_sym && $add_missing) { unlink ($fullfile); } my $trailer = ''; my $suppress = 0; # Only install missing files according to our desired # strictness level. my $message = "required file `$fullfile' not found"; if ($add_missing) { if (-f ("$libdir/$file")) { $suppress = 1; # Install the missing file. Symlink if we # can, copy if we must. Note: delete the file # first, in case it is a dangling symlink. $message = "installing `$fullfile'"; # Windows Perl will hang if we try to delete a # file that doesn't exist. unlink ($fullfile) if -f $fullfile; if ($symlink_exists && ! $copy_missing) { if (! symlink ("$libdir/$file", $fullfile)) { $suppress = 0; $trailer = "; error while making link: $!"; } } elsif (system ('cp', "$libdir/$file", $fullfile)) { $suppress = 0; $trailer = "\n error while copying"; } } if (! maybe_push_required_file (dirname ($fullfile), $file, $fullfile)) { if (! $found_it && ! $automake_will_process_aux_dir) { # We have added the file but could not push it # into DIST_COMMON, probably because this is # an auxiliary file and we are not processing # the top level Makefile. Furthermore Automake # hasn't been asked to create the Makefile.in # that distribute the aux dir files. error ($where, 'Please make a full run of automake' . " so $fullfile gets distributed."); } } } # If --force-missing was specified, and we have # actually found the file, then do nothing. next if $found_it && $force_missing; # If we couldn' install the file, but it is a target in # the Makefile, don't print anything. This allows files # like README, AUTHORS, or THANKS to be generated. next if !$suppress && rule $file; msg ($suppress ? 'note' : 'error', $where, "$message$trailer"); } } } } # &require_file ($WHERE, $MYSTRICT, @FILES) # ----------------------------------------- sub require_file ($$@) { my ($where, $mystrict, @files) = @_; require_file_internal ($where, $mystrict, $relative_dir, @files); } # &require_file_with_macro ($COND, $MACRO, $MYSTRICT, @FILES) # ----------------------------------------------------------- sub require_file_with_macro ($$$@) { my ($cond, $macro, $mystrict, @files) = @_; $macro = rvar ($macro) unless ref $macro; require_file ($macro->rdef ($cond)->location, $mystrict, @files); } # &require_conf_file ($WHERE, $MYSTRICT, @FILES) # ---------------------------------------------- # Looks in configuration path, as specified by AC_CONFIG_AUX_DIR. sub require_conf_file ($$@) { my ($where, $mystrict, @files) = @_; require_file_internal ($where, $mystrict, $config_aux_dir, @files); } # &require_conf_file_with_macro ($COND, $MACRO, $MYSTRICT, @FILES) # ---------------------------------------------------------------- sub require_conf_file_with_macro ($$$@) { my ($cond, $macro, $mystrict, @files) = @_; require_conf_file (rvar ($macro)->rdef ($cond)->location, $mystrict, @files); } ################################################################ # &require_build_directory ($DIRECTORY) # ------------------------------------ # Emit rules to create $DIRECTORY if needed, and return # the file that any target requiring this directory should be made # dependent upon. sub require_build_directory ($) { my $directory = shift; my $dirstamp = "$directory/\$(am__dirstamp)"; # Don't emit the rule twice. if (! defined $directory_map{$directory}) { $directory_map{$directory} = 1; # Set a variable for the dirstamp basename. define_pretty_variable ('am__dirstamp', TRUE, INTERNAL, '$(am__leading_dot)dirstamp'); # Directory must be removed by `make distclean'. $clean_files{$dirstamp} = DIST_CLEAN; $output_rules .= ("$dirstamp:\n" . "\t\@\$(mkdir_p) $directory\n" . "\t\@: > $dirstamp\n"); } return $dirstamp; } # &require_build_directory_maybe ($FILE) # -------------------------------------- # If $FILE lies in a subdirectory, emit a rule to create this # directory and return the file that $FILE should be made # dependent upon. Otherwise, just return the empty string. sub require_build_directory_maybe ($) { my $file = shift; my $directory = dirname ($file); if ($directory ne '.') { return require_build_directory ($directory); } else { return ''; } } ################################################################ # Push a list of files onto dist_common. sub push_dist_common { prog_error "push_dist_common run after handle_dist" if $handle_dist_run; Automake::Variable::define ('DIST_COMMON', VAR_AUTOMAKE, '+', TRUE, "@_", '', INTERNAL, VAR_PRETTY); } ################################################################ # generate_makefile ($MAKEFILE_AM, $MAKEFILE_IN) # ---------------------------------------------- # Generate a Makefile.in given the name of the corresponding Makefile and # the name of the file output by config.status. sub generate_makefile ($$) { my ($makefile_am, $makefile_in) = @_; # Reset all the Makefile.am related variables. initialize_per_input; # AUTOMAKE_OPTIONS can contains -W flags to disable or enable # warnings for this file. So hold any warning issued before # we have processed AUTOMAKE_OPTIONS. buffer_messages ('warning'); # Name of input file ("Makefile.am") and output file # ("Makefile.in"). These have no directory components. $am_file_name = basename ($makefile_am); $in_file_name = basename ($makefile_in); # $OUTPUT is encoded. If it contains a ":" then the first element # is the real output file, and all remaining elements are input # files. We don't scan or otherwise deal with these input files, # other than to mark them as dependencies. See # &scan_autoconf_files for details. my ($makefile, @inputs) = split (/:/, $output_files{$makefile_in}); $relative_dir = dirname ($makefile); $am_relative_dir = dirname ($makefile_am); read_main_am_file ($makefile_am); if (handle_options) { # Process buffered warnings. flush_messages; # Fatal error. Just return, so we can continue with next file. return; } # Process buffered warnings. flush_messages; # There are a few install-related variables that you should not define. foreach my $var ('PRE_INSTALL', 'POST_INSTALL', 'NORMAL_INSTALL') { my $v = var $var; if ($v) { my $def = $v->def (TRUE); prog_error "$var not defined in condition TRUE" unless $def; reject_var $var, "`$var' should not be defined" if $def->owner != VAR_AUTOMAKE; } } # Catch some obsolete variables. msg_var ('obsolete', 'INCLUDES', "`INCLUDES' is the old name for `AM_CPPFLAGS' (or `*_CPPFLAGS')") if var ('INCLUDES'); # At the toplevel directory, we might need config.guess, config.sub. # (Libtool scripts such ltconfig as ltmain.sh are checked for in # handle_libtool.) if ($relative_dir eq '.') { # AC_CANONICAL_HOST, AC_CANONICAL_SYSTEM, and AC_CANONICAL_TARGET # need config.guess and config.sub. require_conf_file ($canonical_location, FOREIGN, 'config.guess', 'config.sub') if $seen_canonical; } # Must do this after reading .am file. define_variable ('subdir', $relative_dir, INTERNAL); # If DIST_SUBDIRS is defined, make sure SUBDIRS is, so that # recursive rules are enabled. define_pretty_variable ('SUBDIRS', TRUE, INTERNAL, '') if var 'DIST_SUBDIRS' && ! var 'SUBDIRS'; # Check first, because we might modify some state. check_cygnus; check_gnu_standards; check_gnits_standards; handle_configure ($makefile_am, $makefile_in, $makefile, @inputs); handle_gettext; handle_libraries; handle_ltlibraries; handle_programs; handle_scripts; # These must be run after all the sources are scanned. They # use variables defined by &handle_libraries, &handle_ltlibraries, # or &handle_programs. handle_compile; handle_languages; handle_libtool; # Variables used by distdir.am and tags.am. define_pretty_variable ('SOURCES', TRUE, INTERNAL, @sources); if (! option 'no-dist') { define_pretty_variable ('DIST_SOURCES', TRUE, INTERNAL, @dist_sources); } handle_multilib; handle_texinfo; handle_emacs_lisp; handle_python; handle_java; handle_man_pages; handle_data; handle_headers; handle_subdirs; handle_tags; handle_minor_options; handle_tests; # This must come after most other rules. handle_dist; handle_footer; do_check_merge_target; handle_all ($makefile); # FIXME: Gross! if (var ('lib_LTLIBRARIES') && var ('bin_PROGRAMS')) { $output_rules .= "install-binPROGRAMS: install-libLTLIBRARIES\n\n"; } handle_install; handle_clean ($makefile); handle_factored_dependencies; # Comes last, because all the above procedures may have # defined or overridden variables. $output_vars .= output_variables; check_typos; my ($out_file) = $output_directory . '/' . $makefile_in; if ($exit_code != 0) { verb "not writing $out_file because of earlier errors"; return; } if (! -d ($output_directory . '/' . $am_relative_dir)) { mkdir ($output_directory . '/' . $am_relative_dir, 0755); } # We make sure that `all:' is the first target. my $output = "$output_vars$output_all$output_header$output_rules$output_trailer"; # Decide whether we must update the output file or not. # We have to update in the following situations. # * $force_generation is set. # * any of the output dependencies is younger than the output # * the contents of the output is different (this can happen # if the project has been populated with a file listed in # @common_files since the last run). # Output's dependencies are split in two sets: # * dependencies which are also configure dependencies # These do not change between each Makefile.am # * other dependencies, specific to the Makefile.am being processed # (such as the Makefile.am itself, or any Makefile fragment # it includes). my $timestamp = mtime $out_file; if (! $force_generation && $configure_deps_greatest_timestamp < $timestamp && $output_deps_greatest_timestamp < $timestamp && $output eq contents ($out_file)) { verb "$out_file unchanged"; # No need to update. return; } if (-e $out_file) { unlink ($out_file) or fatal "cannot remove $out_file: $!\n"; } my $gm_file = new Automake::XFile "> $out_file"; verb "creating $out_file"; print $gm_file $output; } ################################################################ ################################################################ # Print usage information. sub usage () { print "Usage: $0 [OPTION] ... [Makefile]... Generate Makefile.in for configure from Makefile.am. Operation modes: --help print this help, then exit --version print version number, then exit -v, --verbose verbosely list files processed --no-force only update Makefile.in's that are out of date -W, --warnings=CATEGORY report the warnings falling in CATEGORY Dependency tracking: -i, --ignore-deps disable dependency tracking code --include-deps enable dependency tracking code Flavors: --cygnus assume program is part of Cygnus-style tree --foreign set strictness to foreign --gnits set strictness to gnits --gnu set strictness to gnu Library files: -a, --add-missing add missing standard files to package --libdir=DIR directory storing library files -c, --copy with -a, copy missing files (default is symlink) -f, --force-missing force update of standard files "; Automake::ChannelDefs::usage; my ($last, @lcomm); $last = ''; foreach my $iter (sort ((@common_files, @common_sometimes))) { push (@lcomm, $iter) unless $iter eq $last; $last = $iter; } my @four; print "\nFiles which are automatically distributed, if found:\n"; format USAGE_FORMAT = @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< $four[0], $four[1], $four[2], $four[3] . $~ = "USAGE_FORMAT"; my $cols = 4; my $rows = int(@lcomm / $cols); my $rest = @lcomm % $cols; if ($rest) { $rows++; } else { $rest = $cols; } for (my $y = 0; $y < $rows; $y++) { @four = ("", "", "", ""); for (my $x = 0; $x < $cols; $x++) { last if $y + 1 == $rows && $x == $rest; my $idx = (($x > $rest) ? ($rows * $rest + ($rows - 1) * ($x - $rest)) : ($rows * $x)); $idx += $y; $four[$x] = $lcomm[$idx]; } write; } print "\nReport bugs to .\n"; # --help always returns 0 per GNU standards. exit 0; } # &version () # ----------- # Print version information sub version () { print <. Copyright 2004 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. EOF # --version always returns 0 per GNU standards. exit 0; } ################################################################ # Parse command line. sub parse_arguments () { # Start off as gnu. set_strictness ('gnu'); my $cli_where = new Automake::Location; my %cli_options = ( 'libdir:s' => \$libdir, 'gnu' => sub { set_strictness ('gnu'); }, 'gnits' => sub { set_strictness ('gnits'); }, 'cygnus' => sub { set_global_option ('cygnus', $cli_where); }, 'foreign' => sub { set_strictness ('foreign'); }, 'include-deps' => sub { unset_global_option ('no-dependencies'); }, 'i|ignore-deps' => sub { set_global_option ('no-dependencies', $cli_where); }, 'no-force' => sub { $force_generation = 0; }, 'f|force-missing' => \$force_missing, 'o|output-dir:s' => \$output_directory, 'a|add-missing' => \$add_missing, 'c|copy' => \$copy_missing, 'v|verbose' => sub { setup_channel 'verb', silent => 0; }, 'W|warnings:s' => \&parse_warnings, # These long options (--Werror and --Wno-error) for backward # compatibility. Use -Werror and -Wno-error today. 'Werror' => sub { parse_warnings 'W', 'error'; }, 'Wno-error' => sub { parse_warnings 'W', 'no-error'; }, ); use Getopt::Long; Getopt::Long::config ("bundling", "pass_through"); # See if --version or --help is used. We want to process these before # anything else because the GNU Coding Standards require us to # `exit 0' after processing these options, and we can't guarantee this # if we treat other options first. (Handling other options first # could produce error diagnostics, and in this condition it is # confusing if Automake does `exit 0'.) my %cli_options_1st_pass = ( 'version' => \&version, 'help' => \&usage, # Recognize all other options (and their arguments) but do nothing. map { $_ => sub {} } (keys %cli_options) ); my @ARGV_backup = @ARGV; Getopt::Long::GetOptions %cli_options_1st_pass or exit 1; @ARGV = @ARGV_backup; # Now *really* process the options. This time we know # that --help and --version are not present. Getopt::Long::GetOptions %cli_options or exit 1; if (defined $output_directory) { msg 'obsolete', "`--output-dir' is deprecated\n"; } else { # In the next release we'll remove this entirely. $output_directory = '.'; } my $errspec = 0; foreach my $arg (@ARGV) { if ($arg =~ /^-./) { fatal ("unrecognized option `$arg'\n" . "Try `$0 --help' for more information."); } # Handle $local:$input syntax. my ($local, @rest) = split (/:/, $arg); @rest = ("$local.in",) unless @rest; my $input = locate_am @rest; if ($input) { push @input_files, $input; $output_files{$input} = join (':', ($local, @rest)); } else { error "no Automake input file found for `$arg'"; $errspec = 1; } } fatal "no input file found among supplied arguments" if $errspec && ! @input_files; } ################################################################ # Parse the WARNINGS environment variable. parse_WARNINGS; # Parse command line. parse_arguments; $configure_ac = require_configure_ac; # Do configure.ac scan only once. scan_autoconf_files; if (! @input_files) { my $msg = ''; $msg = "\nDid you forget AC_CONFIG_FILES([Makefile]) in $configure_ac?" if -f 'Makefile.am'; fatal ("no `Makefile.am' found for any configure output$msg"); } # Now do all the work on each file. foreach my $file (@input_files) { ($am_file = $file) =~ s/\.in$//; if (! -f ($am_file . '.am')) { error "`$am_file.am' does not exist"; } else { # Any warning setting now local to this Makefile.am. dup_channel_setup; generate_makefile ($am_file . '.am', $file); # Back out any warning setting. drop_channel_setup; } } exit $exit_code; ### Setup "GNU" style for perl-mode and cperl-mode. ## Local Variables: ## perl-indent-level: 2 ## perl-continued-statement-offset: 2 ## perl-continued-brace-offset: 0 ## perl-brace-offset: 0 ## perl-brace-imaginary-offset: 0 ## perl-label-offset: -2 ## cperl-indent-level: 2 ## cperl-brace-offset: 0 ## cperl-continued-brace-offset: 0 ## cperl-label-offset: -2 ## cperl-extra-newline-before-brace: t ## cperl-merge-trailing-else: nil ## cperl-continued-statement-offset: 2 ## End: