| 1 | #!@PERL@ | 
|---|
| 2 | # -*- perl -*- | 
|---|
| 3 | # @configure_input@ | 
|---|
| 4 |  | 
|---|
| 5 | eval 'exec @PERL@ -S $0 ${1+"$@"}' | 
|---|
| 6 | if 0; | 
|---|
| 7 |  | 
|---|
| 8 | # automake - create Makefile.in from Makefile.am | 
|---|
| 9 | # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2001, 2002 Free Software Foundation, Inc. | 
|---|
| 10 |  | 
|---|
| 11 | # This program is free software; you can redistribute it and/or modify | 
|---|
| 12 | # it under the terms of the GNU General Public License as published by | 
|---|
| 13 | # the Free Software Foundation; either version 2, or (at your option) | 
|---|
| 14 | # any later version. | 
|---|
| 15 |  | 
|---|
| 16 | # This program is distributed in the hope that it will be useful, | 
|---|
| 17 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | 
|---|
| 18 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the | 
|---|
| 19 | # GNU General Public License for more details. | 
|---|
| 20 |  | 
|---|
| 21 | # You should have received a copy of the GNU General Public License | 
|---|
| 22 | # along with this program; if not, write to the Free Software | 
|---|
| 23 | # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | 
|---|
| 24 | # 02111-1307, USA. | 
|---|
| 25 |  | 
|---|
| 26 | # Originally written by David Mackenzie <djm@gnu.ai.mit.edu>. | 
|---|
| 27 | # Perl reimplementation by Tom Tromey <tromey@redhat.com>. | 
|---|
| 28 |  | 
|---|
| 29 |  | 
|---|
| 30 | # Parameters set by configure.  Not to be changed.  NOTE: assign | 
|---|
| 31 | # VERSION as string so that eg version 0.30 will print correctly. | 
|---|
| 32 | $VERSION = "@VERSION@"; | 
|---|
| 33 | $PACKAGE = "@PACKAGE@"; | 
|---|
| 34 | $prefix = $ENV{'UNIXROOT'}."@prefix@"; | 
|---|
| 35 | $am_dir = "${prefix}/share/@PACKAGE@-@APIVERSION@"; | 
|---|
| 36 | $TAR = "@TAR@"; | 
|---|
| 37 |  | 
|---|
| 38 | # String constants. | 
|---|
| 39 | $IGNORE_PATTERN = "^##([^#].*)?\$"; | 
|---|
| 40 | $WHITE_PATTERN = "^[ \t]*\$"; | 
|---|
| 41 | $COMMENT_PATTERN = "^#"; | 
|---|
| 42 | $RULE_PATTERN = "^([\$a-zA-Z_.][-.a-zA-Z0-9_(){}/\$]*) *:([^=].*|)\$"; | 
|---|
| 43 | $SUFFIX_RULE_PATTERN = "^\\.([a-zA-Z]+)\\.([a-zA-Z]+)\$"; | 
|---|
| 44 | $MACRO_PATTERN = "^([A-Za-z][A-Za-z0-9_]*)[ \t]*([:+]?)=[ \t]*(.*)\$"; | 
|---|
| 45 | $BOGUS_MACRO_PATTERN = "^([^ \t]*)[ \t]*([:+]?)=[ \t]*(.*)\$"; | 
|---|
| 46 | # This pattern recognizes a Gnits version id and sets $1 if the | 
|---|
| 47 | # release is an alpha release.  We also allow a suffix which can be | 
|---|
| 48 | # used to extend the version number with a "fork" identifier. | 
|---|
| 49 | $GNITS_VERSION_PATTERN = '[0-9]+\.[0-9]+([a-z]|\.[0-9]+)?(-[A-Za-z0-9]+)?'; | 
|---|
| 50 | $IF_PATTERN = "^if[ \t]+\([A-Za-z][A-Za-z0-9_]*\)[ \t]*\(#.*\)?\$"; | 
|---|
| 51 | $ELSE_PATTERN = "^else[ \t]*\(#.*\)?\$"; | 
|---|
| 52 | $ENDIF_PATTERN = "^endif[ \t]*\(#.*\)?\$"; | 
|---|
| 53 | $PATH_PATTERN='(\\w|/|\\.)+'; | 
|---|
| 54 | # This will pass through anything not of the prescribed form. | 
|---|
| 55 | $INCLUDE_PATTERN = "^include[ \t]+((\\\$\\\(top_srcdir\\\)/${PATH_PATTERN})|(\\\$\\\(srcdir\\\)/${PATH_PATTERN})|([^/\\\$]${PATH_PATTERN}))[ \t]*(#.*)?\$"; | 
|---|
| 56 |  | 
|---|
| 57 | # Some regular expressions.  One reason to put them here is that it | 
|---|
| 58 | # makes indentation work better in Emacs. | 
|---|
| 59 | $AC_CONFIG_AUX_DIR_PATTERN = "AC_CONFIG_AUX_DIR\\(([^)]+)\\)"; | 
|---|
| 60 | $AM_INIT_AUTOMAKE_PATTERN = "AM_INIT_AUTOMAKE\\([^,]*,([^,)]+)[,)]"; | 
|---|
| 61 | $AM_PACKAGE_VERSION_PATTERN = "^\\s*\\[?([^]\\s]+)\\]?\\s*\$"; | 
|---|
| 62 | # Note that there is no AC_PATH_TOOL.  But we don't really care. | 
|---|
| 63 | $AC_CHECK_PATTERN = "AC_(CHECK|PATH)_(PROG|PROGS|TOOL)\\(\\[?(\\w+)"; | 
|---|
| 64 | $AM_MISSING_PATTERN = "AM_MISSING_PROG\\(\\[?(\\w+)"; | 
|---|
| 65 | # Just check for alphanumeric in AC_SUBST.  If you do AC_SUBST(5), | 
|---|
| 66 | # then too bad. | 
|---|
| 67 | $AC_SUBST_PATTERN = "AC_SUBST\\(\\[?(\\w+)"; | 
|---|
| 68 | $AM_CONDITIONAL_PATTERN = "AM_CONDITIONAL\\((\\w+)"; | 
|---|
| 69 |  | 
|---|
| 70 | # Constants to define the "strictness" level. | 
|---|
| 71 | $FOREIGN = 0; | 
|---|
| 72 | $GNU = 1; | 
|---|
| 73 | $GNITS = 2; | 
|---|
| 74 |  | 
|---|
| 75 |  | 
|---|
| 76 |  | 
|---|
| 77 |  | 
|---|
| 78 | # Variables global to entire run. | 
|---|
| 79 |  | 
|---|
| 80 | # TRUE if we should always generate Makefile.in. | 
|---|
| 81 | $force_generation = 1; | 
|---|
| 82 |  | 
|---|
| 83 | # Strictness level as set on command line. | 
|---|
| 84 | $default_strictness = $GNU; | 
|---|
| 85 |  | 
|---|
| 86 | # Name of strictness level, as set on command line. | 
|---|
| 87 | $default_strictness_name = 'gnu'; | 
|---|
| 88 |  | 
|---|
| 89 | # This is TRUE if GNU make specific automatic dependency generation | 
|---|
| 90 | # code should be included in generated Makefile.in. | 
|---|
| 91 | $cmdline_use_dependencies = 1; | 
|---|
| 92 |  | 
|---|
| 93 | # This is the name of a dependency makefile bit (usually for inclusion in a | 
|---|
| 94 | # SMakefile or similar); empty if not set. | 
|---|
| 95 | $generate_deps = ''; | 
|---|
| 96 |  | 
|---|
| 97 | # TRUE if in verbose mode. | 
|---|
| 98 | $verbose = 0; | 
|---|
| 99 |  | 
|---|
| 100 | # This holds our (eventual) exit status.  We don't actually exit until | 
|---|
| 101 | # we have processed all input files. | 
|---|
| 102 | $exit_status = 0; | 
|---|
| 103 |  | 
|---|
| 104 | # From the Perl manual. | 
|---|
| 105 | $symlink_exists = (eval 'symlink ("", "");', $@ eq ''); | 
|---|
| 106 |  | 
|---|
| 107 | # TRUE if missing standard files should be installed. | 
|---|
| 108 | $add_missing = 0; | 
|---|
| 109 |  | 
|---|
| 110 | # TRUE if we should copy missing files; otherwise symlink if possible. | 
|---|
| 111 | $copy_missing = 0; | 
|---|
| 112 |  | 
|---|
| 113 | # Name of the top autoconf input: `configure.ac' or `configure.in' | 
|---|
| 114 | $configure_ac = ''; | 
|---|
| 115 |  | 
|---|
| 116 | # Files found by scanning configure.ac for LIBOBJS. | 
|---|
| 117 | %libsources = (); | 
|---|
| 118 |  | 
|---|
| 119 | # True if AM_C_PROTOTYPES appears in configure.ac. | 
|---|
| 120 | $am_c_prototypes = 0; | 
|---|
| 121 |  | 
|---|
| 122 | # Names used in AC_CONFIG_HEADER call.  @config_fullnames holds the | 
|---|
| 123 | # name which appears in AC_CONFIG_HEADER, colon and all. | 
|---|
| 124 | # @config_names holds the file names.  @config_headers holds the '.in' | 
|---|
| 125 | # files.  Ordinarily these are similar, but they can be different if | 
|---|
| 126 | # the weird "NAME:FILE" syntax is used. | 
|---|
| 127 | @config_fullnames = (); | 
|---|
| 128 | @config_names = (); | 
|---|
| 129 | @config_headers = (); | 
|---|
| 130 | # Line number at which AC_CONFIG_HEADER appears in configure.ac. | 
|---|
| 131 | $config_header_line = 0; | 
|---|
| 132 |  | 
|---|
| 133 | # Directory where output files go.  Actually, output files are | 
|---|
| 134 | # relative to this directory. | 
|---|
| 135 | $output_directory = '.'; | 
|---|
| 136 |  | 
|---|
| 137 | # Relative location of top build directory. | 
|---|
| 138 | $top_builddir = ''; | 
|---|
| 139 |  | 
|---|
| 140 | # Absolute location of top build directory. | 
|---|
| 141 | $build_directory = ''; | 
|---|
| 142 |  | 
|---|
| 143 | # Name of srcdir as given in build directory's Makefile.  For | 
|---|
| 144 | # dependencies only. | 
|---|
| 145 | $srcdir_name = ''; | 
|---|
| 146 |  | 
|---|
| 147 | # List of Makefile.am's to process, and their corresponding outputs. | 
|---|
| 148 | @input_files = (); | 
|---|
| 149 | %output_files = (); | 
|---|
| 150 |  | 
|---|
| 151 | # List of files in AC_OUTPUT without Makefile.am, and their outputs. | 
|---|
| 152 | @other_input_files = (); | 
|---|
| 153 | # Line number at which AC_OUTPUT seen. | 
|---|
| 154 | $ac_output_line = 0; | 
|---|
| 155 |  | 
|---|
| 156 | # List of directories to search for configure-required files.  This | 
|---|
| 157 | # can be set by AC_CONFIG_AUX_DIR. | 
|---|
| 158 | @config_aux_path = ('.', '..', '../..'); | 
|---|
| 159 | $config_aux_dir = ''; | 
|---|
| 160 |  | 
|---|
| 161 | # Whether AC_PROG_MAKE_SET has been seen in configure.ac. | 
|---|
| 162 | $seen_make_set = 0; | 
|---|
| 163 |  | 
|---|
| 164 | # Whether AM_GNU_GETTEXT has been seen in configure.ac. | 
|---|
| 165 | $seen_gettext = 0; | 
|---|
| 166 | # Line number at which AM_GNU_GETTEXT seen. | 
|---|
| 167 | $ac_gettext_line = 0; | 
|---|
| 168 |  | 
|---|
| 169 | # Whether ALL_LINGUAS has been seen. | 
|---|
| 170 | $seen_linguas = ''; | 
|---|
| 171 | # The actual text. | 
|---|
| 172 | $all_linguas = ''; | 
|---|
| 173 | # Line number at which it appears. | 
|---|
| 174 | $all_linguas_line = 0; | 
|---|
| 175 |  | 
|---|
| 176 | # 1 if AC_PROG_INSTALL seen. | 
|---|
| 177 | $seen_prog_install = 0; | 
|---|
| 178 |  | 
|---|
| 179 | # Whether AC_PATH_XTRA has been seen in configure.ac. | 
|---|
| 180 | $seen_path_xtra = 0; | 
|---|
| 181 |  | 
|---|
| 182 | # TRUE if AC_DECL_YYTEXT was seen. | 
|---|
| 183 | $seen_decl_yytext = 0; | 
|---|
| 184 |  | 
|---|
| 185 | # TRUE if we've seen AC_CANONICAL_(HOST|SYSTEM).  The presence of | 
|---|
| 186 | # AC_CHECK_TOOL also sets this. | 
|---|
| 187 | $seen_canonical = 0; | 
|---|
| 188 |  | 
|---|
| 189 | # TRUE if we've seen AC_ARG_PROGRAM. | 
|---|
| 190 | $seen_arg_prog = 0; | 
|---|
| 191 |  | 
|---|
| 192 | # TRUE if we've seen AM_PROG_LIBTOOL. | 
|---|
| 193 | $seen_libtool = 0; | 
|---|
| 194 | $libtool_line = 0; | 
|---|
| 195 |  | 
|---|
| 196 | # Files installed by libtoolize. | 
|---|
| 197 | @libtoolize_files = ('ltmain.sh', 'config.guess', 'config.sub'); | 
|---|
| 198 | # ltconfig appears here for compatibility with old versions of libtool. | 
|---|
| 199 | @libtoolize_sometimes = ('ltconfig', 'ltcf-c.sh', 'ltcf-cxx.sh', | 
|---|
| 200 | 'ltcf-gcj.sh'); | 
|---|
| 201 |  | 
|---|
| 202 | # TRUE if we've seen AM_MAINTAINER_MODE. | 
|---|
| 203 | $seen_maint_mode = 0; | 
|---|
| 204 |  | 
|---|
| 205 | # TRUE if we've seen PACKAGE and VERSION. | 
|---|
| 206 | $seen_package = 0; | 
|---|
| 207 | $seen_version = 0; | 
|---|
| 208 |  | 
|---|
| 209 | # Actual version we've seen. | 
|---|
| 210 | $package_version = ''; | 
|---|
| 211 |  | 
|---|
| 212 | # Line number where we saw version definition. | 
|---|
| 213 | $package_version_line = 0; | 
|---|
| 214 |  | 
|---|
| 215 | # TRUE if we've seen AM_PATH_LISPDIR. | 
|---|
| 216 | $seen_lispdir = 0; | 
|---|
| 217 |  | 
|---|
| 218 | # TRUE if we've seen AC_EXEEXT. | 
|---|
| 219 | $seen_exeext = 0; | 
|---|
| 220 |  | 
|---|
| 221 | # TRUE if we've seen AC_OBJEXT. | 
|---|
| 222 | $seen_objext = 0; | 
|---|
| 223 |  | 
|---|
| 224 | # TRUE if we've seen AC_ENABLE_MULTILIB. | 
|---|
| 225 | $seen_multilib = 0; | 
|---|
| 226 |  | 
|---|
| 227 | # Hash table of discovered configure substitutions.  Keys are names, | 
|---|
| 228 | # values are `FILE:LINE' strings which are used by error message | 
|---|
| 229 | # generation. | 
|---|
| 230 | %configure_vars = (); | 
|---|
| 231 |  | 
|---|
| 232 | # This is used to keep track of which variable definitions we are | 
|---|
| 233 | # scanning.  It is only used in certain limited ways, but it has to be | 
|---|
| 234 | # global.  It is declared just for documentation purposes. | 
|---|
| 235 | %vars_scanned = (); | 
|---|
| 236 |  | 
|---|
| 237 | # Charsets used by maintainer and in distribution.  MAINT_CHARSET is | 
|---|
| 238 | # handled in a funny way: if seen in the top-level Makefile.am, it is | 
|---|
| 239 | # used for every directory which does not specify a different value. | 
|---|
| 240 | # The rationale here is that some directories (eg gettext) might be | 
|---|
| 241 | # distributions of other packages, and thus require their own charset | 
|---|
| 242 | # info.  However, the DIST_CHARSET must be the same for the entire | 
|---|
| 243 | # package; it can only be set at top-level. | 
|---|
| 244 | # FIXME: this yields bugs when rebuilding.  What to do?  Always | 
|---|
| 245 | # read (and sometimes discard) top-level Makefile.am? | 
|---|
| 246 | $maint_charset = ''; | 
|---|
| 247 | $dist_charset = 'utf8';         # recode doesn't support this yet. | 
|---|
| 248 |  | 
|---|
| 249 | # Name of input file ("Makefile.in") and output file ("Makefile.am"). | 
|---|
| 250 | # These have no directory components. | 
|---|
| 251 | $am_file_name = ''; | 
|---|
| 252 | $in_file_name = ''; | 
|---|
| 253 |  | 
|---|
| 254 | # TRUE if --cygnus seen. | 
|---|
| 255 | $cygnus_mode = 0; | 
|---|
| 256 |  | 
|---|
| 257 | # Keys of this hash are names of dependency files to ignore. | 
|---|
| 258 | %omit_dependencies = (); | 
|---|
| 259 |  | 
|---|
| 260 | # Hash table of AM_CONDITIONAL variables seen in configure. | 
|---|
| 261 | %configure_cond = (); | 
|---|
| 262 |  | 
|---|
| 263 | # Map from obsolete macros to hints for new macros. | 
|---|
| 264 | # FIXME complete the list so that there are no `0' hints. | 
|---|
| 265 | %obsolete_macros = | 
|---|
| 266 | ( | 
|---|
| 267 | 'AC_FEATURE_CTYPE', "use \`AC_HEADER_STDC'", | 
|---|
| 268 | 'AC_FEATURE_ERRNO', "add \`strerror' to \`AC_REPLACE_FUNCS(...)'", | 
|---|
| 269 | 'AC_FEATURE_EXIT', 0, | 
|---|
| 270 | 'AC_SYSTEM_HEADER', 0, | 
|---|
| 271 |  | 
|---|
| 272 | # Note that we do not handle this one, because it is still run | 
|---|
| 273 | # from AM_CONFIG_HEADER.  So we deal with it specially in | 
|---|
| 274 | # scan_configure. | 
|---|
| 275 | # 'AC_CONFIG_HEADER', "use \`AM_CONFIG_HEADER'", | 
|---|
| 276 |  | 
|---|
| 277 | 'fp_C_PROTOTYPES', "use \`AM_C_PROTOTYPES'", | 
|---|
| 278 | 'fp_PROG_CC_STDC', "use \`AM_PROG_CC_STDC'", | 
|---|
| 279 | 'fp_PROG_INSTALL', "use \`AC_PROG_INSTALL'", | 
|---|
| 280 | 'fp_WITH_DMALLOC', "use \`AM_WITH_DMALLOC'", | 
|---|
| 281 | 'fp_WITH_REGEX', "use \`AM_WITH_REGEX'", | 
|---|
| 282 | 'gm_PROG_LIBTOOL', "use \`AM_PROG_LIBTOOL'", | 
|---|
| 283 | 'jm_MAINTAINER_MODE', "use \`AM_MAINTAINER_MODE'", | 
|---|
| 284 | 'md_TYPE_PTRDIFF_T', "use \`AM_TYPE_PTRDIFF_T'", | 
|---|
| 285 | 'ud_PATH_LISPDIR', "use \`AM_PATH_LISPDIR'", | 
|---|
| 286 |  | 
|---|
| 287 | # Now part of autoconf proper, under a different name. | 
|---|
| 288 | 'AM_FUNC_FNMATCH', "use \`AC_FUNC_FNMATCH'", | 
|---|
| 289 | 'fp_FUNC_FNMATCH', "use \`AC_FUNC_FNMATCH'", | 
|---|
| 290 | 'AM_SANITY_CHECK_CC', "automatically done by \`AC_PROG_CC'", | 
|---|
| 291 | 'AM_PROG_INSTALL', "use \`AC_PROG_INSTALL'", | 
|---|
| 292 | 'AM_EXEEEXT', "use \`AC_EXEEXT'", | 
|---|
| 293 | 'AM_CYGWIN32', "use \`AC_CYGWIN32'", | 
|---|
| 294 | 'AM_MINGW32', "use \`AC_MINGW32'", | 
|---|
| 295 |  | 
|---|
| 296 | # These aren't quite obsolete. | 
|---|
| 297 | #      'md_PATH_PROG', | 
|---|
| 298 | ); | 
|---|
| 299 |  | 
|---|
| 300 | # Regexp to match the above macros. | 
|---|
| 301 | $obsolete_rx = '\b(' . join ('|', keys %obsolete_macros) . ')\b'; | 
|---|
| 302 |  | 
|---|
| 303 | # This maps extensions onto language names. | 
|---|
| 304 | %extension_map = (); | 
|---|
| 305 |  | 
|---|
| 306 | # This maps languages names onto properties. | 
|---|
| 307 | %language_map = (); | 
|---|
| 308 |  | 
|---|
| 309 |  | 
|---|
| 310 |  | 
|---|
| 311 |  | 
|---|
| 312 | # Initialize global constants and our list of languages that are | 
|---|
| 313 | # internally supported. | 
|---|
| 314 | &initialize_global_constants; | 
|---|
| 315 |  | 
|---|
| 316 | ®ister_language ('c', '', 1, | 
|---|
| 317 | 'c'); | 
|---|
| 318 | ®ister_language ('cxx', 'CXXLINK', 0, | 
|---|
| 319 | 'c++', 'cc', 'cpp', 'cxx', 'C'); | 
|---|
| 320 | ®ister_language ('objc', 'OBJCLINK', 0, | 
|---|
| 321 | 'm'); | 
|---|
| 322 | ®ister_language ('header', '', 0, | 
|---|
| 323 | 'h', 'H', 'hxx', 'h++', 'hh', 'hpp', 'inc'); | 
|---|
| 324 | ®ister_language ('yacc', '', 1, | 
|---|
| 325 | 'y'); | 
|---|
| 326 | ®ister_language ('yaccxx', 'CXXLINK', 0, | 
|---|
| 327 | 'y++', 'yy', 'yxx'); | 
|---|
| 328 | ®ister_language ('lex', '', 1, | 
|---|
| 329 | 'l'); | 
|---|
| 330 | ®ister_language ('lexxx', 'CXXLINK', 0, | 
|---|
| 331 | 'l++', 'll', 'lxx'); | 
|---|
| 332 | ®ister_language ('asm', '', 0, | 
|---|
| 333 | 's', 'S'); | 
|---|
| 334 | ®ister_language ('f77', 'F77LINK', 0, | 
|---|
| 335 | 'f', 'for', 'f90'); | 
|---|
| 336 | ®ister_language ('ppf77', 'F77LINK', 0, | 
|---|
| 337 | 'F'); | 
|---|
| 338 | ®ister_language ('ratfor', 'F77LINK', 0, | 
|---|
| 339 | 'r'); | 
|---|
| 340 |  | 
|---|
| 341 |  | 
|---|
| 342 | # Parse command line. | 
|---|
| 343 | &parse_arguments (@ARGV); | 
|---|
| 344 |  | 
|---|
| 345 | # Do configure.ac scan only once. | 
|---|
| 346 | &scan_configure; | 
|---|
| 347 |  | 
|---|
| 348 | die "automake: no \`Makefile.am' found or specified\n" | 
|---|
| 349 | if ! @input_files; | 
|---|
| 350 |  | 
|---|
| 351 | # If --generate-deps was given, we don't do anything else | 
|---|
| 352 | # | 
|---|
| 353 | if ($generate_deps) | 
|---|
| 354 | { | 
|---|
| 355 | die "automake: Must specify --include-deps (or -i) when generating\n" | 
|---|
| 356 | if $use_dependencies; | 
|---|
| 357 | die "automake: Must provide --build-dir when generating\n" | 
|---|
| 358 | if ! $build_directory; | 
|---|
| 359 | die "automake: Must provide --srcdir-name when generating\n" | 
|---|
| 360 | if ! $srcdir_name; | 
|---|
| 361 |  | 
|---|
| 362 | open (GDEP, ">$output_directory/.dep_segment") | 
|---|
| 363 | || die "automake: Could not open `$output_directory/.dep_segment': $!\n"; | 
|---|
| 364 |  | 
|---|
| 365 | &handle_dependencies; | 
|---|
| 366 | print GDEP $output_rules; | 
|---|
| 367 |  | 
|---|
| 368 | close(GDEP); | 
|---|
| 369 | exit $exit_status; | 
|---|
| 370 | } | 
|---|
| 371 |  | 
|---|
| 372 | # Now do all the work on each file. | 
|---|
| 373 | foreach $am_file (@input_files) | 
|---|
| 374 | { | 
|---|
| 375 | if (! -f ($am_file . '.am')) | 
|---|
| 376 | { | 
|---|
| 377 | &am_error ("\`" . $am_file . ".am' does not exist"); | 
|---|
| 378 | } | 
|---|
| 379 | else | 
|---|
| 380 | { | 
|---|
| 381 | &generate_makefile ($output_files{$am_file}, $am_file); | 
|---|
| 382 | } | 
|---|
| 383 | } | 
|---|
| 384 |  | 
|---|
| 385 | &am_conf_error ("AC_PROG_INSTALL must be used in \`$configure_ac'") | 
|---|
| 386 | if (! $seen_prog_install); | 
|---|
| 387 |  | 
|---|
| 388 | exit $exit_status; | 
|---|
| 389 |  | 
|---|
| 390 |  | 
|---|
| 391 | ################################################################ | 
|---|
| 392 |  | 
|---|
| 393 | # Parse command line. | 
|---|
| 394 | sub parse_arguments | 
|---|
| 395 | { | 
|---|
| 396 | local (@arglist) = @_; | 
|---|
| 397 |  | 
|---|
| 398 | # Start off as gnu. | 
|---|
| 399 | &set_strictness ('gnu'); | 
|---|
| 400 |  | 
|---|
| 401 | while (@arglist) | 
|---|
| 402 | { | 
|---|
| 403 | if ($arglist[0] eq "--version") | 
|---|
| 404 | { | 
|---|
| 405 | print "automake (GNU $PACKAGE) $VERSION\n\n"; | 
|---|
| 406 | print "Copyright (C) 1999, 2001 Free Software Foundation, Inc.\n"; | 
|---|
| 407 | print "This is free software; see the source for copying conditions.  There is NO\n"; | 
|---|
| 408 | print "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\n"; | 
|---|
| 409 | print "Written by Tom Tromey <tromey\@redhat.com>\n"; | 
|---|
| 410 |  | 
|---|
| 411 | exit 0; | 
|---|
| 412 | } | 
|---|
| 413 | elsif ($arglist[0] eq "--help") | 
|---|
| 414 | { | 
|---|
| 415 | &usage; | 
|---|
| 416 | } | 
|---|
| 417 | elsif ($arglist[0] =~ /^--amdir=(.+)$/) | 
|---|
| 418 | { | 
|---|
| 419 | $am_dir = $1; | 
|---|
| 420 | } | 
|---|
| 421 | elsif ($arglist[0] eq '--amdir') | 
|---|
| 422 | { | 
|---|
| 423 | &require_argument (@arglist); | 
|---|
| 424 | shift (@arglist); | 
|---|
| 425 | $am_dir = $arglist[0]; | 
|---|
| 426 | } | 
|---|
| 427 | elsif ($arglist[0] =~ /^--build-dir=(.+)$/) | 
|---|
| 428 | { | 
|---|
| 429 | # Must end in /. | 
|---|
| 430 | $build_directory = $1 . '/'; | 
|---|
| 431 | } | 
|---|
| 432 | elsif ($arglist[0] eq '--build-dir') | 
|---|
| 433 | { | 
|---|
| 434 | &require_argument (@arglist); | 
|---|
| 435 | shift (@arglist); | 
|---|
| 436 | # Must end in /. | 
|---|
| 437 | $build_directory = $arglist[0] . '/'; | 
|---|
| 438 | } | 
|---|
| 439 | elsif ($arglist[0] =~ /^--srcdir-name=(.+)$/) | 
|---|
| 440 | { | 
|---|
| 441 | $srcdir_name = $1; | 
|---|
| 442 | } | 
|---|
| 443 | elsif ($arglist[0] eq '--srcdir-name') | 
|---|
| 444 | { | 
|---|
| 445 | &require_argument (@arglist); | 
|---|
| 446 | shift (@arglist); | 
|---|
| 447 | $srcdir_name = $arglist[0]; | 
|---|
| 448 | } | 
|---|
| 449 | elsif ($arglist[0] eq '--gnu') | 
|---|
| 450 | { | 
|---|
| 451 | &set_strictness ('gnu'); | 
|---|
| 452 | } | 
|---|
| 453 | elsif ($arglist[0] eq '--gnits') | 
|---|
| 454 | { | 
|---|
| 455 | &set_strictness ('gnits'); | 
|---|
| 456 | } | 
|---|
| 457 | elsif ($arglist[0] eq '--cygnus') | 
|---|
| 458 | { | 
|---|
| 459 | $cygnus_mode = 1; | 
|---|
| 460 | } | 
|---|
| 461 | elsif ($arglist[0] eq '--foreign') | 
|---|
| 462 | { | 
|---|
| 463 | &set_strictness ('foreign'); | 
|---|
| 464 | } | 
|---|
| 465 | elsif ($arglist[0] eq '--include-deps' || $arglist[0] eq '-i') | 
|---|
| 466 | { | 
|---|
| 467 | $cmdline_use_dependencies = 0; | 
|---|
| 468 | } | 
|---|
| 469 | elsif ($arglist[0] eq '--generate-deps') | 
|---|
| 470 | { | 
|---|
| 471 | $generate_deps = 1; | 
|---|
| 472 | } | 
|---|
| 473 | elsif ($arglist[0] eq '--no-force') | 
|---|
| 474 | { | 
|---|
| 475 | $force_generation = 0; | 
|---|
| 476 | } | 
|---|
| 477 | elsif ($arglist[0] =~ /^--output-dir=(.*)$/) | 
|---|
| 478 | { | 
|---|
| 479 | # Set output directory. | 
|---|
| 480 | $output_directory = $1; | 
|---|
| 481 | } | 
|---|
| 482 | elsif ($arglist[0] eq '--output-dir' || $arglist[0] eq '-o') | 
|---|
| 483 | { | 
|---|
| 484 | &require_argument (@arglist); | 
|---|
| 485 | shift (@arglist); | 
|---|
| 486 | $output_directory = $arglist[0]; | 
|---|
| 487 | } | 
|---|
| 488 | elsif ($arglist[0] eq '--add-missing' || $arglist[0] eq '-a') | 
|---|
| 489 | { | 
|---|
| 490 | $add_missing = 1; | 
|---|
| 491 | } | 
|---|
| 492 | elsif ($arglist[0] eq '--copy' || $arglist[0] eq '-c') | 
|---|
| 493 | { | 
|---|
| 494 | $copy_missing = 1; | 
|---|
| 495 | } | 
|---|
| 496 | elsif ($arglist[0] eq '--verbose' || $arglist[0] eq '-v') | 
|---|
| 497 | { | 
|---|
| 498 | $verbose = 1; | 
|---|
| 499 | } | 
|---|
| 500 | elsif ($arglist[0] eq '--') | 
|---|
| 501 | { | 
|---|
| 502 | # Stop option processing. | 
|---|
| 503 | shift (@arglist); | 
|---|
| 504 | push (@input_files, @arglist); | 
|---|
| 505 | last; | 
|---|
| 506 | } | 
|---|
| 507 | elsif ($arglist[0] =~ /^-/) | 
|---|
| 508 | { | 
|---|
| 509 | die "automake: unrecognized option -- \`$arglist[0]'\nTry \`automake --help' for more information.\n"; | 
|---|
| 510 | } | 
|---|
| 511 | else | 
|---|
| 512 | { | 
|---|
| 513 | # Handle $local:$input syntax.  Note that we only examine | 
|---|
| 514 | # the first ":" file to see if it is automake input; the | 
|---|
| 515 | # rest are just taken verbatim.  We still keep all the | 
|---|
| 516 | # files around for dependency checking, however. | 
|---|
| 517 | local ($local, $input, @rest) = split (/:/, $arglist[0]); | 
|---|
| 518 | if (! $input) | 
|---|
| 519 | { | 
|---|
| 520 | $input = $local; | 
|---|
| 521 | } | 
|---|
| 522 | else | 
|---|
| 523 | { | 
|---|
| 524 | # Strip .in; later on .am is tacked on.  That is how | 
|---|
| 525 | # the automake input file is found.  Maybe not the | 
|---|
| 526 | # best way, but it is easy to explain.  FIXME: should | 
|---|
| 527 | # be error if .in is missing. | 
|---|
| 528 | $input =~ s/\.in$//; | 
|---|
| 529 | } | 
|---|
| 530 | push (@input_files, $input); | 
|---|
| 531 | $output_files{$input} = join (':', ($local, @rest)); | 
|---|
| 532 | } | 
|---|
| 533 |  | 
|---|
| 534 | shift (@arglist); | 
|---|
| 535 | } | 
|---|
| 536 |  | 
|---|
| 537 | # Take global strictness from whatever we currently have set. | 
|---|
| 538 | $default_strictness = $strictness; | 
|---|
| 539 | $default_strictness_name = $strictness_name; | 
|---|
| 540 | } | 
|---|
| 541 |  | 
|---|
| 542 | # Ensure argument exists, or die. | 
|---|
| 543 | sub require_argument | 
|---|
| 544 | { | 
|---|
| 545 | local ($arg, @arglist) = @_; | 
|---|
| 546 | die "automake: no argument given for option \`$arg'\n" | 
|---|
| 547 | if ! @arglist; | 
|---|
| 548 | } | 
|---|
| 549 |  | 
|---|
| 550 | ################################################################ | 
|---|
| 551 |  | 
|---|
| 552 | # Generate a Makefile.in given the name of the corresponding Makefile and | 
|---|
| 553 | # the name of the file output by config.status. | 
|---|
| 554 | sub generate_makefile | 
|---|
| 555 | { | 
|---|
| 556 | local ($output, $makefile) = @_; | 
|---|
| 557 |  | 
|---|
| 558 | ($am_file_name = $makefile) =~ s/^.*\///; | 
|---|
| 559 | $in_file_name = $am_file_name . '.in'; | 
|---|
| 560 | $am_file_name .= '.am'; | 
|---|
| 561 |  | 
|---|
| 562 | # $OUTPUT is encoded.  If it contains a ":" then the first element | 
|---|
| 563 | # is the real output file, and all remaining elements are input | 
|---|
| 564 | # files.  We don't scan or otherwise deal with these input file, | 
|---|
| 565 | # other than to mark them as dependencies.  See scan_configure for | 
|---|
| 566 | # details. | 
|---|
| 567 | local (@secondary_inputs); | 
|---|
| 568 | ($output, @secondary_inputs) = split (/:/, $output); | 
|---|
| 569 |  | 
|---|
| 570 | &initialize_per_input; | 
|---|
| 571 | $relative_dir = &dirname ($output); | 
|---|
| 572 | $am_relative_dir = &dirname ($makefile); | 
|---|
| 573 |  | 
|---|
| 574 | # At the toplevel directory, we might need config.guess, config.sub | 
|---|
| 575 | # or libtool scripts (ltconfig and ltmain.sh). | 
|---|
| 576 | if ($relative_dir eq '.') | 
|---|
| 577 | { | 
|---|
| 578 | # libtool requires some files. | 
|---|
| 579 | &require_conf_file_with_conf_line ($libtool_line, $FOREIGN, | 
|---|
| 580 | @libtoolize_files) | 
|---|
| 581 | if $seen_libtool; | 
|---|
| 582 |  | 
|---|
| 583 | # AC_CANONICAL_HOST and AC_CANONICAL_SYSTEM need config.guess and | 
|---|
| 584 | # config.sub. | 
|---|
| 585 | &require_config_file ($FOREIGN, 'config.guess', 'config.sub') | 
|---|
| 586 | if $seen_canonical; | 
|---|
| 587 | } | 
|---|
| 588 |  | 
|---|
| 589 | # We still need Makefile.in here, because sometimes the `dist' | 
|---|
| 590 | # target doesn't re-run automake. | 
|---|
| 591 | if ($am_relative_dir eq $relative_dir) | 
|---|
| 592 | { | 
|---|
| 593 | # Only distribute the files if they are in the same subdir as | 
|---|
| 594 | # the generated makefile. | 
|---|
| 595 | &push_dist_common ($in_file_name, $am_file_name); | 
|---|
| 596 | } | 
|---|
| 597 | push (@sources, '$(SOURCES)') | 
|---|
| 598 | if &variable_defined ('SOURCES'); | 
|---|
| 599 | push (@objects, '$(OBJECTS)') | 
|---|
| 600 | if &variable_defined ('OBJECTS'); | 
|---|
| 601 |  | 
|---|
| 602 | &read_main_am_file ($makefile . '.am'); | 
|---|
| 603 | if (&handle_options) | 
|---|
| 604 | { | 
|---|
| 605 | # Fatal error.  Just return, so we can continue with next file. | 
|---|
| 606 | return; | 
|---|
| 607 | } | 
|---|
| 608 |  | 
|---|
| 609 | # Check first, because we might modify some state. | 
|---|
| 610 | &check_cygnus; | 
|---|
| 611 | &check_gnu_standards; | 
|---|
| 612 | &check_gnits_standards; | 
|---|
| 613 |  | 
|---|
| 614 | &handle_configure ($output, $makefile, @secondary_inputs); | 
|---|
| 615 | &handle_gettext; | 
|---|
| 616 | &handle_libraries; | 
|---|
| 617 | &handle_ltlibraries; | 
|---|
| 618 | &handle_programs; | 
|---|
| 619 | &handle_scripts; | 
|---|
| 620 |  | 
|---|
| 621 | &handle_built_sources; | 
|---|
| 622 |  | 
|---|
| 623 | # This must be run after all the sources are scanned. | 
|---|
| 624 | &finish_languages; | 
|---|
| 625 |  | 
|---|
| 626 | # Re-init SOURCES and OBJECTS.  FIXME: other code shouldn't depend | 
|---|
| 627 | # on this (but currently does). | 
|---|
| 628 | $contents{'SOURCES'} = join (' ', @sources); | 
|---|
| 629 | $contents{'OBJECTS'} = join (' ', @objects); | 
|---|
| 630 |  | 
|---|
| 631 | &handle_multilib; | 
|---|
| 632 | &handle_texinfo; | 
|---|
| 633 | &handle_emacs_lisp; | 
|---|
| 634 | &handle_java; | 
|---|
| 635 | &handle_man_pages; | 
|---|
| 636 | &handle_data; | 
|---|
| 637 | &handle_headers; | 
|---|
| 638 | &handle_subdirs; | 
|---|
| 639 | &handle_tags; | 
|---|
| 640 | &handle_minor_options; | 
|---|
| 641 | &handle_dist ($makefile); | 
|---|
| 642 | &handle_dependencies; | 
|---|
| 643 | &handle_tests; | 
|---|
| 644 | &handle_footer; | 
|---|
| 645 | &handle_merge_targets ($output); | 
|---|
| 646 | &handle_installdirs; | 
|---|
| 647 | &handle_clean; | 
|---|
| 648 | &handle_phony; | 
|---|
| 649 |  | 
|---|
| 650 | &check_typos; | 
|---|
| 651 |  | 
|---|
| 652 | if (! -d ($output_directory . '/' . $am_relative_dir)) | 
|---|
| 653 | { | 
|---|
| 654 | mkdir ($output_directory . '/' . $am_relative_dir, 0755); | 
|---|
| 655 | } | 
|---|
| 656 |  | 
|---|
| 657 | local ($out_file) = $output_directory . '/' . $makefile . ".in"; | 
|---|
| 658 | if (! $force_generation && -e $out_file) | 
|---|
| 659 | { | 
|---|
| 660 | local ($am_time) = (stat ($makefile . '.am'))[9]; | 
|---|
| 661 | local ($in_time) = (stat ($out_file))[9]; | 
|---|
| 662 | # FIXME: should cache these times. | 
|---|
| 663 | local ($conf_time) = (stat ($configure_ac))[9]; | 
|---|
| 664 | # FIXME: how to do unsigned comparison? | 
|---|
| 665 | if ($am_time < $in_time || $am_time < $conf_time) | 
|---|
| 666 | { | 
|---|
| 667 | # No need to update. | 
|---|
| 668 | return; | 
|---|
| 669 | } | 
|---|
| 670 | if (-f 'aclocal.m4') | 
|---|
| 671 | { | 
|---|
| 672 | local ($acl_time) = (stat _)[9]; | 
|---|
| 673 | return if ($am_time < $acl_time); | 
|---|
| 674 | } | 
|---|
| 675 | } | 
|---|
| 676 |  | 
|---|
| 677 | if (! open (GM_FILE, "> " . $out_file)) | 
|---|
| 678 | { | 
|---|
| 679 | warn "automake: ${am_file}.in: cannot write: $!\n"; | 
|---|
| 680 | $exit_status = 1; | 
|---|
| 681 | return; | 
|---|
| 682 | } | 
|---|
| 683 | print "automake: creating ", $makefile, ".in\n" if $verbose; | 
|---|
| 684 |  | 
|---|
| 685 | print GM_FILE $output_vars; | 
|---|
| 686 | # We make sure that `all:' is the first target. | 
|---|
| 687 | print GM_FILE $output_all; | 
|---|
| 688 | print GM_FILE $output_header; | 
|---|
| 689 | print GM_FILE $output_rules; | 
|---|
| 690 | print GM_FILE $output_trailer; | 
|---|
| 691 |  | 
|---|
| 692 | close (GM_FILE); | 
|---|
| 693 | } | 
|---|
| 694 |  | 
|---|
| 695 | ################################################################ | 
|---|
| 696 |  | 
|---|
| 697 | # A helper which handles the logic of requiring a version number in | 
|---|
| 698 | # AUTOMAKE_OPTIONS.  Return 1 on error, 0 on success. | 
|---|
| 699 | sub version_check ($$$$) | 
|---|
| 700 | { | 
|---|
| 701 | my ($rmajor, $rminor, $ralpha, $rfork) = ($1, $2, $3, $4); | 
|---|
| 702 |  | 
|---|
| 703 | &prog_error ("version is incorrect: $VERSION") | 
|---|
| 704 | if $VERSION !~ /(\d+)\.(\d+)([a-z]?)-?([A-Za-z0-9]+)?/; | 
|---|
| 705 |  | 
|---|
| 706 | my ($tmajor, $tminor, $talpha, $tfork) = ($1, $2, $3, $4); | 
|---|
| 707 |  | 
|---|
| 708 | $rfork ||= ''; | 
|---|
| 709 | $tfork ||= ''; | 
|---|
| 710 |  | 
|---|
| 711 | my $rminorminor = 0; | 
|---|
| 712 | my $tminorminor = 0; | 
|---|
| 713 |  | 
|---|
| 714 | # Some versions were labelled like `1.4-p3a'.  This is the same as | 
|---|
| 715 | # an alpha release labelled `1.4.3a'.  However, a version like | 
|---|
| 716 | # `1.4g' is the same as `1.4.99g'.  Yes, this sucks.  Moral: | 
|---|
| 717 | # always listen to the users. | 
|---|
| 718 | if ($rfork =~ /p([0-9]+)([a-z]?)/) | 
|---|
| 719 | { | 
|---|
| 720 | $rminorminor = $1; | 
|---|
| 721 | # `1.4a-p3b' never existed.  But we'll accept it anyway. | 
|---|
| 722 | $ralpha = $ralpha || $2 || ''; | 
|---|
| 723 | $rfork = ''; | 
|---|
| 724 | } | 
|---|
| 725 | if ($tfork =~ /p([0-9]+)([a-z]?)/) | 
|---|
| 726 | { | 
|---|
| 727 | $tminorminor = $1; | 
|---|
| 728 | # `1.4a-p3b' never existed.  But we'll accept it anyway. | 
|---|
| 729 | $talpha = $talpha || $2 || ''; | 
|---|
| 730 | $tfork = ''; | 
|---|
| 731 | } | 
|---|
| 732 |  | 
|---|
| 733 | $rminorminor = 99 if $ralpha ne '' && $rminorminor == 0; | 
|---|
| 734 | $tminorminor = 99 if $talpha ne '' && $tminorminor == 0; | 
|---|
| 735 |  | 
|---|
| 736 | # 2.0 is better than 1.0. | 
|---|
| 737 | # 1.2 is better than 1.1. | 
|---|
| 738 | # 1.2a is better than 1.2. | 
|---|
| 739 | # If we require 3.4n-foo then we require something | 
|---|
| 740 | # >= 3.4n, with the `foo' fork identifier. | 
|---|
| 741 | # The $r* variables are what the user specified. | 
|---|
| 742 | # The $t* variables denote automake itself. | 
|---|
| 743 | if ($rmajor > $tmajor | 
|---|
| 744 | || ($rmajor == $tmajor && $rminor > $tminor) | 
|---|
| 745 | || ($rminor == $tminor && $rminor == $tminor | 
|---|
| 746 | && $rminorminor > $tminorminor) | 
|---|
| 747 | || ($rminor == $tminor && $rminor == $tminor | 
|---|
| 748 | && $rminorminor == $tminorminor | 
|---|
| 749 | && $ralpha gt $talpha) | 
|---|
| 750 | || ($rfork ne '' && $rfork ne $tfork)) | 
|---|
| 751 | { | 
|---|
| 752 | &am_line_error ('AUTOMAKE_OPTIONS', | 
|---|
| 753 | "require version $_, but have $VERSION"); | 
|---|
| 754 | return 1; | 
|---|
| 755 | } | 
|---|
| 756 |  | 
|---|
| 757 | return 0; | 
|---|
| 758 | } | 
|---|
| 759 |  | 
|---|
| 760 | # Handle AUTOMAKE_OPTIONS variable.  Return 1 on error, 0 otherwise. | 
|---|
| 761 | sub handle_options | 
|---|
| 762 | { | 
|---|
| 763 | if (&variable_defined ('AUTOMAKE_OPTIONS')) | 
|---|
| 764 | { | 
|---|
| 765 | foreach (&variable_value_as_list ('AUTOMAKE_OPTIONS', '')) | 
|---|
| 766 | { | 
|---|
| 767 | $options{$_} = 1; | 
|---|
| 768 | if ($_ eq 'gnits' || $_ eq 'gnu' || $_ eq 'foreign') | 
|---|
| 769 | { | 
|---|
| 770 | &set_strictness ($_); | 
|---|
| 771 | } | 
|---|
| 772 | elsif ($_ eq 'cygnus') | 
|---|
| 773 | { | 
|---|
| 774 | $cygnus_mode = 1; | 
|---|
| 775 | } | 
|---|
| 776 | elsif (/ansi2knr/) | 
|---|
| 777 | { | 
|---|
| 778 | # An option like "../lib/ansi2knr" is allowed.  With | 
|---|
| 779 | # no path prefix, we assume the required programs are | 
|---|
| 780 | # in this directory.  We save the actual option for | 
|---|
| 781 | # later. | 
|---|
| 782 | $options{'ansi2knr'} = $_; | 
|---|
| 783 | } | 
|---|
| 784 | elsif ($_ eq 'no-installman' || $_ eq 'no-installinfo' | 
|---|
| 785 | || $_ eq 'dist-shar' || $_ eq 'dist-zip' | 
|---|
| 786 | || $_ eq 'dist-tarZ' || $_ eq 'dejagnu' | 
|---|
| 787 | || $_ eq 'no-texinfo.tex' | 
|---|
| 788 | || $_ eq 'readme-alpha' || $_ eq 'check-news') | 
|---|
| 789 | { | 
|---|
| 790 | # Explicitly recognize these. | 
|---|
| 791 | } | 
|---|
| 792 | elsif ($_ eq 'no-dependencies') | 
|---|
| 793 | { | 
|---|
| 794 | $use_dependencies = 0; | 
|---|
| 795 | } | 
|---|
| 796 | elsif (/([0-9]+)\.([0-9]+)([a-z]?)(-[A-Za-z0-9]+)?/) | 
|---|
| 797 | { | 
|---|
| 798 | # Got a version number. | 
|---|
| 799 |  | 
|---|
| 800 | if (version_check ($1, $2, $3, $4)) | 
|---|
| 801 | { | 
|---|
| 802 | return 1; | 
|---|
| 803 | } | 
|---|
| 804 | } | 
|---|
| 805 | else | 
|---|
| 806 | { | 
|---|
| 807 | &am_line_error ('AUTOMAKE_OPTIONS', | 
|---|
| 808 | "option \`" . $_ . "\' not recognized"); | 
|---|
| 809 | } | 
|---|
| 810 | } | 
|---|
| 811 | } | 
|---|
| 812 |  | 
|---|
| 813 | if ($strictness == $GNITS) | 
|---|
| 814 | { | 
|---|
| 815 | $options{'readme-alpha'} = 1; | 
|---|
| 816 | $options{'check-news'} = 1; | 
|---|
| 817 | } | 
|---|
| 818 |  | 
|---|
| 819 | return 0; | 
|---|
| 820 | } | 
|---|
| 821 |  | 
|---|
| 822 | # Return object extension.  Just once, put some code into the output. | 
|---|
| 823 | # Argument is the name of the output file | 
|---|
| 824 | sub get_object_extension | 
|---|
| 825 | { | 
|---|
| 826 | local ($out) = @_; | 
|---|
| 827 |  | 
|---|
| 828 | # Maybe require libtool library object files. | 
|---|
| 829 | local ($extension) = '.o'; | 
|---|
| 830 | $extension = '.$(OBJEXT)' if $seen_objext; | 
|---|
| 831 | $extension = '.lo' if ($out =~ /\.la$/); | 
|---|
| 832 |  | 
|---|
| 833 | if (! $included_generic_compile) | 
|---|
| 834 | { | 
|---|
| 835 | # Boilerplate. | 
|---|
| 836 | local ($xform) = ''; | 
|---|
| 837 | if (&variable_defined ('CONFIG_HEADER')) | 
|---|
| 838 | { | 
|---|
| 839 | local ($one_hdr); | 
|---|
| 840 | foreach $one_hdr (split (' ', &variable_value ('CONFIG_HEADER'))) | 
|---|
| 841 | { | 
|---|
| 842 | local ($var); | 
|---|
| 843 | ($var = &dirname ($one_hdr)) =~ s/(\W)/\\$1/g; | 
|---|
| 844 | $xform .= ' ' if $xform; | 
|---|
| 845 | $xform .= '-I' . $var; | 
|---|
| 846 | } | 
|---|
| 847 | } | 
|---|
| 848 | $xform = 's/\@CONFIG_INCLUDE_SPEC\@/' . $xform . '/go;'; | 
|---|
| 849 | $output_vars .= &file_contents_with_transform ($xform, | 
|---|
| 850 | 'comp-vars'); | 
|---|
| 851 |  | 
|---|
| 852 | $xform = (($use_dependencies | 
|---|
| 853 | ? 's/^NOTDEPEND.*$//;' | 
|---|
| 854 | : 's/^NOTDEPEND//;') | 
|---|
| 855 | . ($seen_objext ? 's/^OBJEXT//;' : 's/^OBJEXT.*$//;')); | 
|---|
| 856 | $output_rules .= &file_contents_with_transform ($xform, 'compile'); | 
|---|
| 857 |  | 
|---|
| 858 | &push_phony_cleaners ('compile'); | 
|---|
| 859 |  | 
|---|
| 860 | # If using X, include some extra variable definitions.  NOTE | 
|---|
| 861 | # we don't want to force these into CFLAGS or anything, | 
|---|
| 862 | # because not all programs will necessarily use X. | 
|---|
| 863 | if ($seen_path_xtra) | 
|---|
| 864 | { | 
|---|
| 865 | local ($var); | 
|---|
| 866 | foreach $var ('X_CFLAGS', 'X_LIBS', 'X_EXTRA_LIBS', 'X_PRE_LIBS') | 
|---|
| 867 | { | 
|---|
| 868 | &define_configure_variable ($var); | 
|---|
| 869 | } | 
|---|
| 870 | } | 
|---|
| 871 |  | 
|---|
| 872 | push (@suffixes, '.c', '.o', '.S', '.s'); | 
|---|
| 873 | push (@suffixes, '.obj') if $seen_objext; | 
|---|
| 874 | push (@clean, 'compile'); | 
|---|
| 875 |  | 
|---|
| 876 | $included_generic_compile = 1; | 
|---|
| 877 | } | 
|---|
| 878 |  | 
|---|
| 879 | if ($seen_libtool && ! $included_libtool_compile) | 
|---|
| 880 | { | 
|---|
| 881 | # Output the libtool compilation rules. | 
|---|
| 882 | $output_rules .= | 
|---|
| 883 | &file_contents_with_transform | 
|---|
| 884 | ($use_dependencies ? 's/^NOTDEPEND.*$//;' : 's/^NOTDEPEND//;', | 
|---|
| 885 | 'libtool'); | 
|---|
| 886 |  | 
|---|
| 887 | &push_phony_cleaners ('libtool'); | 
|---|
| 888 |  | 
|---|
| 889 | push (@suffixes, '.lo'); | 
|---|
| 890 | push (@clean, 'libtool'); | 
|---|
| 891 |  | 
|---|
| 892 | $included_libtool_compile = 1; | 
|---|
| 893 | } | 
|---|
| 894 |  | 
|---|
| 895 | # Check for automatic de-ANSI-fication. | 
|---|
| 896 | if (defined $options{'ansi2knr'}) | 
|---|
| 897 | { | 
|---|
| 898 | $extension = '$U' . $extension; | 
|---|
| 899 | if (! $included_knr_compile) | 
|---|
| 900 | { | 
|---|
| 901 | if (! $am_c_prototypes) | 
|---|
| 902 | { | 
|---|
| 903 | &am_line_error ('AUTOMAKE_OPTIONS', | 
|---|
| 904 | "option \`ansi2knr' in use but \`AM_C_PROTOTYPES' not in \`$configure_ac'"); | 
|---|
| 905 | &keyed_aclocal_warning ('AM_C_PROTOTYPES'); | 
|---|
| 906 | # Only give this error once. | 
|---|
| 907 | $am_c_prototypes = 1; | 
|---|
| 908 | } | 
|---|
| 909 |  | 
|---|
| 910 | # Only require ansi2knr files if they should appear in | 
|---|
| 911 | # this directory. | 
|---|
| 912 | if ($options{'ansi2knr'} eq 'ansi2knr') | 
|---|
| 913 | { | 
|---|
| 914 | &require_file_with_line ('AUTOMAKE_OPTIONS', $FOREIGN, | 
|---|
| 915 | 'ansi2knr.c', 'ansi2knr.1'); | 
|---|
| 916 | $output_rules .= &file_contents ('kr-extra'); | 
|---|
| 917 | push (@clean, 'krextra'); | 
|---|
| 918 | &push_phony_cleaners ('krextra'); | 
|---|
| 919 | } | 
|---|
| 920 |  | 
|---|
| 921 | # Generate rules to build ansi2knr.  If it is in some | 
|---|
| 922 | # other directory, then generate dependencies but have the | 
|---|
| 923 | # rule just run elsewhere. | 
|---|
| 924 | $objext = $seen_objext ? ".$(OBJEXT)" : ".o"; | 
|---|
| 925 | $output_rules .= ($options{'ansi2knr'} . ': ' | 
|---|
| 926 | . $options{'ansi2knr'} . $objext . "\n"); | 
|---|
| 927 | if ($options{'ansi2knr'} eq 'ansi2knr') | 
|---|
| 928 | { | 
|---|
| 929 | $output_rules .= ("\t\$(LINK) ansi2knr" . $objext | 
|---|
| 930 | . " \$(LIBS)\n" | 
|---|
| 931 | . "ansi2knr" . $objext | 
|---|
| 932 | . ": \$(CONFIG_HEADER)\n\n"); | 
|---|
| 933 | } | 
|---|
| 934 | else | 
|---|
| 935 | { | 
|---|
| 936 | $output_rules .= ("\tcd " . &dirname ($options{'ansi2knr'}) | 
|---|
| 937 | . " && \$(MAKE) \$(AM_MAKEFLAGS) " | 
|---|
| 938 | . "ansi2knr\n\n"); | 
|---|
| 939 | # This is required for non-GNU makes. | 
|---|
| 940 | $output_rules .= ($options{'ansi2knr'} . $objext . ":\n"); | 
|---|
| 941 | $output_rules .= ("\tcd " . &dirname ($options{'ansi2knr'}) | 
|---|
| 942 | . " && \$(MAKE) \$(AM_MAKEFLAGS)" | 
|---|
| 943 | . " ansi2knr" . $objext . "\n\n"); | 
|---|
| 944 | } | 
|---|
| 945 |  | 
|---|
| 946 | # Make sure ansi2knr can be found: if no path specified, | 
|---|
| 947 | # specify "./". | 
|---|
| 948 | if ($options{'ansi2knr'} eq 'ansi2knr') | 
|---|
| 949 | { | 
|---|
| 950 | # Substitution from AM_C_PROTOTYPES.  This makes it be | 
|---|
| 951 | # built only when necessary. | 
|---|
| 952 | &define_configure_variable ('ANSI2KNR'); | 
|---|
| 953 | # ansi2knr needs to be built before subdirs, so unshift it. | 
|---|
| 954 | unshift (@all, '$(ANSI2KNR)'); | 
|---|
| 955 | } | 
|---|
| 956 | else | 
|---|
| 957 | { | 
|---|
| 958 | # Found in another directory. | 
|---|
| 959 | &define_variable ("ANSI2KNR", $options{'ansi2knr'}); | 
|---|
| 960 | } | 
|---|
| 961 |  | 
|---|
| 962 | $output_rules .= &file_contents ('clean-kr'); | 
|---|
| 963 |  | 
|---|
| 964 | push (@clean, 'kr'); | 
|---|
| 965 | &push_phony_cleaners ('kr'); | 
|---|
| 966 |  | 
|---|
| 967 | $included_knr_compile = 1; | 
|---|
| 968 | } | 
|---|
| 969 | } | 
|---|
| 970 |  | 
|---|
| 971 | return $extension; | 
|---|
| 972 | } | 
|---|
| 973 |  | 
|---|
| 974 | # Call finish function for each language that was used. | 
|---|
| 975 | sub finish_languages | 
|---|
| 976 | { | 
|---|
| 977 | local ($ext, $name, $lang, %done); | 
|---|
| 978 | local ($non_c) = 1; | 
|---|
| 979 | foreach $ext (sort keys %extension_seen) | 
|---|
| 980 | { | 
|---|
| 981 | $lang = $extension_map{$ext}; | 
|---|
| 982 | next if defined $done{$lang}; | 
|---|
| 983 | $done{$lang} = 1; | 
|---|
| 984 | $non_c = 0 if $lang !~ /(objc|cxx|f77|ratfor)$/; | 
|---|
| 985 |  | 
|---|
| 986 | # Compute the function name of the finisher and then call it. | 
|---|
| 987 | $name = 'lang_' . $lang . '_finish'; | 
|---|
| 988 | do $name (); | 
|---|
| 989 | } | 
|---|
| 990 |  | 
|---|
| 991 | # If the project is entirely C++ or entirely Fortran 77, don't | 
|---|
| 992 | # bother with the C stuff.  But if anything else creeps in, then use | 
|---|
| 993 | # it. | 
|---|
| 994 | if (! $non_c || scalar keys %suffix_rules > 0) | 
|---|
| 995 | { | 
|---|
| 996 | local ($ltcompile, $ltlink) = &libtool_compiler; | 
|---|
| 997 |  | 
|---|
| 998 | &define_configure_variable ('CFLAGS'); | 
|---|
| 999 | &define_variable ('COMPILE', | 
|---|
| 1000 | '$(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)'); | 
|---|
| 1001 | &define_variable ('LTCOMPILE', | 
|---|
| 1002 | $ltcompile . | 
|---|
| 1003 | '$(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)') | 
|---|
| 1004 | if ($seen_libtool); | 
|---|
| 1005 | &define_variable ('CCLD', '$(CC)'); | 
|---|
| 1006 | &define_variable ('LINK', $ltlink . '$(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@'); | 
|---|
| 1007 | } | 
|---|
| 1008 | } | 
|---|
| 1009 |  | 
|---|
| 1010 | # Output a rule to build from a YACC source.  The output from YACC is | 
|---|
| 1011 | # compiled with C or C++, depending on the extension of the YACC file. | 
|---|
| 1012 | sub output_yacc_build_rule | 
|---|
| 1013 | { | 
|---|
| 1014 | local ($yacc_suffix, $use_ylwrap, $c_suffix) = @_; | 
|---|
| 1015 |  | 
|---|
| 1016 | local ($suffix); | 
|---|
| 1017 | ($suffix = $yacc_suffix) =~ tr/y/c/; | 
|---|
| 1018 | push (@suffixes, $yacc_suffix, $suffix); | 
|---|
| 1019 |  | 
|---|
| 1020 | # Generate rule for c/c++. | 
|---|
| 1021 | $output_rules .= "$yacc_suffix$suffix:\n\t"; | 
|---|
| 1022 |  | 
|---|
| 1023 | if ($use_ylwrap) | 
|---|
| 1024 | { | 
|---|
| 1025 | $output_rules .= ('$(SHELL) $(YLWRAP)' | 
|---|
| 1026 | . ' "$(YACC)" $< y.tab.c $*' . $suffix | 
|---|
| 1027 | . ' y.tab.h $*.h -- $(AM_YFLAGS) $(YFLAGS)'); | 
|---|
| 1028 | } | 
|---|
| 1029 | else | 
|---|
| 1030 | { | 
|---|
| 1031 | $output_rules .= ('$(YACC) $(AM_YFLAGS) $(YFLAGS) $< && mv y.tab.c $*' | 
|---|
| 1032 | . $suffix . "\n" | 
|---|
| 1033 | . "\tif test -f y.tab.h; then \\\n" | 
|---|
| 1034 | . "\tif cmp -s y.tab.h \$*.h; then rm -f y.tab.h; else mv y.tab.h \$*.h; fi; \\\n" | 
|---|
| 1035 | . "\telse :; fi"); | 
|---|
| 1036 | } | 
|---|
| 1037 | $output_rules .= "\n"; | 
|---|
| 1038 | } | 
|---|
| 1039 |  | 
|---|
| 1040 | sub output_lex_build_rule | 
|---|
| 1041 | { | 
|---|
| 1042 | local ($lex_suffix, $use_ylwrap) = @_; | 
|---|
| 1043 | local ($c_suffix); | 
|---|
| 1044 |  | 
|---|
| 1045 | ($c_suffix = $lex_suffix) =~ tr/l/c/; | 
|---|
| 1046 | push (@suffixes, $lex_suffix); | 
|---|
| 1047 | &define_configure_variable ('LEX_OUTPUT_ROOT'); | 
|---|
| 1048 | &define_configure_variable ('LEXLIB'); | 
|---|
| 1049 | $output_rules .= "$lex_suffix$c_suffix:\n\t"; | 
|---|
| 1050 |  | 
|---|
| 1051 | if ($use_ylwrap) | 
|---|
| 1052 | { | 
|---|
| 1053 | # Is the $@ correct here?  If so, why not use it in the ylwrap | 
|---|
| 1054 | # build rule for yacc above? | 
|---|
| 1055 | $output_rules .= '$(SHELL) $(YLWRAP)' | 
|---|
| 1056 | . ' "$(LEX)" $< $(LEX_OUTPUT_ROOT).c $@ -- $(AM_LFLAGS) $(LFLAGS)'; | 
|---|
| 1057 | } | 
|---|
| 1058 | else | 
|---|
| 1059 | { | 
|---|
| 1060 | $output_rules .= '$(LEX) $(AM_LFLAGS) $(LFLAGS) $< && mv $(LEX_OUTPUT_ROOT).c $@'; | 
|---|
| 1061 | } | 
|---|
| 1062 | $output_rules .= "\n"; | 
|---|
| 1063 | } | 
|---|
| 1064 |  | 
|---|
| 1065 |  | 
|---|
| 1066 | # Check to make sure a source defined in LIBOBJS is not explicitly | 
|---|
| 1067 | # mentioned.  This is a separate function (as opposed to being inlined | 
|---|
| 1068 | # in handle_source_transform) because it isn't always appropriate to | 
|---|
| 1069 | # do this check. | 
|---|
| 1070 | sub check_libobjs_sources | 
|---|
| 1071 | { | 
|---|
| 1072 | local ($one_file, $unxformed) = @_; | 
|---|
| 1073 |  | 
|---|
| 1074 | local ($prefix, $file, @files); | 
|---|
| 1075 | foreach $prefix ('', 'EXTRA_') | 
|---|
| 1076 | { | 
|---|
| 1077 | if (&variable_defined ($prefix . $one_file . '_SOURCES')) | 
|---|
| 1078 | { | 
|---|
| 1079 | @files = &variable_value_as_list (($prefix | 
|---|
| 1080 | . $one_file . '_SOURCES'), | 
|---|
| 1081 | 'all'); | 
|---|
| 1082 | } | 
|---|
| 1083 | elsif ($prefix eq '') | 
|---|
| 1084 | { | 
|---|
| 1085 | @files = ($unxformed . '.c'); | 
|---|
| 1086 | } | 
|---|
| 1087 | else | 
|---|
| 1088 | { | 
|---|
| 1089 | next; | 
|---|
| 1090 | } | 
|---|
| 1091 |  | 
|---|
| 1092 | foreach $file (@files) | 
|---|
| 1093 | { | 
|---|
| 1094 | if (defined $libsources{$file}) | 
|---|
| 1095 | { | 
|---|
| 1096 | &am_line_error ($prefix . $one_file . '_SOURCES', | 
|---|
| 1097 | "automatically discovered file \`$file' should not be explicitly mentioned"); | 
|---|
| 1098 | } | 
|---|
| 1099 | } | 
|---|
| 1100 | } | 
|---|
| 1101 | } | 
|---|
| 1102 |  | 
|---|
| 1103 | # Does much of the actual work for handle_source_transform. | 
|---|
| 1104 | # Arguments are: | 
|---|
| 1105 | #   object extension (e.g., `$U.lo') | 
|---|
| 1106 | #   list of source files to transform | 
|---|
| 1107 | # Result is a list | 
|---|
| 1108 | #   first element is name of linker to use (empty string for default linker) | 
|---|
| 1109 | #   remaining elements are names of objects | 
|---|
| 1110 | sub handle_single_transform_list | 
|---|
| 1111 | { | 
|---|
| 1112 | local ($obj, @files) = @_; | 
|---|
| 1113 | local (@result) = (); | 
|---|
| 1114 | local ($nonansi_obj) = $obj; | 
|---|
| 1115 | $nonansi_obj =~ s/_//g; | 
|---|
| 1116 | local (%linkers_used) = (); | 
|---|
| 1117 | if (@files > 0) | 
|---|
| 1118 | { | 
|---|
| 1119 | # Turn sources into objects. | 
|---|
| 1120 | foreach (@files) | 
|---|
| 1121 | { | 
|---|
| 1122 | # Skip things that look like configure substitutions. | 
|---|
| 1123 | next if /^\@.*\@$/; | 
|---|
| 1124 |  | 
|---|
| 1125 | # We don't support source files in a subdirectory.  The | 
|---|
| 1126 | # reason is that we'd want to put the .o into a similar | 
|---|
| 1127 | # subdirectory, but this means finding a good way to make | 
|---|
| 1128 | # the directory.  Later. | 
|---|
| 1129 | if (/\//) | 
|---|
| 1130 | { | 
|---|
| 1131 | &am_error | 
|---|
| 1132 | ("not supported: source file `$_' is in subdirectory"); | 
|---|
| 1133 | next; | 
|---|
| 1134 | } | 
|---|
| 1135 |  | 
|---|
| 1136 | # Split file name into base and extension. | 
|---|
| 1137 | local ($base, $extension, $linker, $object); | 
|---|
| 1138 | next if ! /^(.*)\.(.*)$/; | 
|---|
| 1139 | $base = $1; | 
|---|
| 1140 | $extension = $2; | 
|---|
| 1141 |  | 
|---|
| 1142 | local ($lang) = $extension_map{$extension}; | 
|---|
| 1143 | if ($lang) | 
|---|
| 1144 | { | 
|---|
| 1145 | &saw_extension ($extension); | 
|---|
| 1146 | # Found the language, so see what it says. | 
|---|
| 1147 | local ($subr) = 'lang_' . $lang . '_rewrite'; | 
|---|
| 1148 | # Note: computed subr call. | 
|---|
| 1149 | local ($r) = do $subr ($base, $extension); | 
|---|
| 1150 | # Skip this entry if we were asked not to process it. | 
|---|
| 1151 | next if ! $r; | 
|---|
| 1152 |  | 
|---|
| 1153 | # Now extract linker and other info. | 
|---|
| 1154 | $linker = $language_map{$lang . '-linker'}; | 
|---|
| 1155 |  | 
|---|
| 1156 | if ($language_map{$lang . '-ansi-p'}) | 
|---|
| 1157 | { | 
|---|
| 1158 | $object = $base . $obj; | 
|---|
| 1159 | } | 
|---|
| 1160 | else | 
|---|
| 1161 | { | 
|---|
| 1162 | $object = $base . $nonansi_obj; | 
|---|
| 1163 | } | 
|---|
| 1164 | } | 
|---|
| 1165 | elsif ($extension =~ /^$source_suffix_pattern$/) | 
|---|
| 1166 | { | 
|---|
| 1167 | # We just rewrite it.  Maybe we should do more. | 
|---|
| 1168 | $object = $base . '.' . $suffix_rules{$extension}; | 
|---|
| 1169 | $linker = ''; | 
|---|
| 1170 | } | 
|---|
| 1171 | else | 
|---|
| 1172 | { | 
|---|
| 1173 | # No error message here.  Used to have one, but it was | 
|---|
| 1174 | # very unpopular. | 
|---|
| 1175 | next; | 
|---|
| 1176 | } | 
|---|
| 1177 |  | 
|---|
| 1178 | $linkers_used{$linker} = 1; | 
|---|
| 1179 |  | 
|---|
| 1180 | push (@result, $object); | 
|---|
| 1181 |  | 
|---|
| 1182 | # Transform .o or $o file into .P file (for automatic | 
|---|
| 1183 | # dependency code). | 
|---|
| 1184 | $dep_files{'.deps/' . $base . '.P'} = 1; | 
|---|
| 1185 | } | 
|---|
| 1186 | } | 
|---|
| 1187 |  | 
|---|
| 1188 | return (&resolve_linker (%linkers_used), @result); | 
|---|
| 1189 | } | 
|---|
| 1190 |  | 
|---|
| 1191 | # Handle SOURCE->OBJECT transform for one program or library. | 
|---|
| 1192 | # Arguments are: | 
|---|
| 1193 | #   canonical (transformed) name of object to build | 
|---|
| 1194 | #   actual name of object to build | 
|---|
| 1195 | #   object extension (ie either `.o' or `$o'. | 
|---|
| 1196 | # Return result is name of linker variable that must be used. | 
|---|
| 1197 | # Empty return means just use `LINK'. | 
|---|
| 1198 | sub handle_source_transform | 
|---|
| 1199 | { | 
|---|
| 1200 | # one_file is canonical name.  unxformed is given name.  obj is | 
|---|
| 1201 | # object extension. | 
|---|
| 1202 | local ($one_file, $unxformed, $obj) = @_; | 
|---|
| 1203 |  | 
|---|
| 1204 | local ($linker) = ''; | 
|---|
| 1205 |  | 
|---|
| 1206 | if (&variable_defined ($one_file . "_OBJECTS")) | 
|---|
| 1207 | { | 
|---|
| 1208 | &am_line_error ($one_file . '_OBJECTS', | 
|---|
| 1209 | $one_file . '_OBJECTS', 'should not be defined'); | 
|---|
| 1210 | # No point in continuing. | 
|---|
| 1211 | return; | 
|---|
| 1212 | } | 
|---|
| 1213 |  | 
|---|
| 1214 | local (@files, @result, $prefix, $temp); | 
|---|
| 1215 | foreach $prefix ('', 'EXTRA_') | 
|---|
| 1216 | { | 
|---|
| 1217 | @files = (); | 
|---|
| 1218 | local ($var) = $prefix . $one_file . "_SOURCES"; | 
|---|
| 1219 | if (&variable_defined ($var)) | 
|---|
| 1220 | { | 
|---|
| 1221 | push (@sources, '$(' . $prefix . $one_file . "_SOURCES)"); | 
|---|
| 1222 | push (@objects, '$(' . $prefix . $one_file . "_OBJECTS)") | 
|---|
| 1223 | unless $prefix eq 'EXTRA_'; | 
|---|
| 1224 | local (@conds) = &variable_conditions ($var); | 
|---|
| 1225 | if (! @conds) | 
|---|
| 1226 | { | 
|---|
| 1227 | @files = &variable_value_as_list ($var, ''); | 
|---|
| 1228 | } | 
|---|
| 1229 | else | 
|---|
| 1230 | { | 
|---|
| 1231 | local ($cond); | 
|---|
| 1232 | foreach $cond (@conds) | 
|---|
| 1233 | { | 
|---|
| 1234 | @files = &variable_value_as_list ($var, $cond); | 
|---|
| 1235 | ($temp, @result) = &handle_single_transform_list ($obj, | 
|---|
| 1236 | @files); | 
|---|
| 1237 | $linker = $temp if $linker eq ''; | 
|---|
| 1238 |  | 
|---|
| 1239 | # Define _OBJECTS conditionally. | 
|---|
| 1240 | &define_pretty_variable ($one_file . '_OBJECTS', $cond, | 
|---|
| 1241 | @result) | 
|---|
| 1242 | unless $prefix eq 'EXTRA_'; | 
|---|
| 1243 | } | 
|---|
| 1244 |  | 
|---|
| 1245 | next; | 
|---|
| 1246 | } | 
|---|
| 1247 | } | 
|---|
| 1248 | elsif ($prefix eq '') | 
|---|
| 1249 | { | 
|---|
| 1250 | &define_variable ($one_file . "_SOURCES", $unxformed . ".c"); | 
|---|
| 1251 | push (@sources, $unxformed . '.c'); | 
|---|
| 1252 | push (@objects, $unxformed . $obj); | 
|---|
| 1253 | push (@files, $unxformed . '.c'); | 
|---|
| 1254 | } | 
|---|
| 1255 |  | 
|---|
| 1256 | ($temp, @result) = &handle_single_transform_list ($obj, @files); | 
|---|
| 1257 | $linker = $temp if $linker eq ''; | 
|---|
| 1258 | &define_pretty_variable ($one_file . "_OBJECTS", '', @result) | 
|---|
| 1259 | unless $prefix eq 'EXTRA_'; | 
|---|
| 1260 | } | 
|---|
| 1261 |  | 
|---|
| 1262 | return $linker; | 
|---|
| 1263 | } | 
|---|
| 1264 |  | 
|---|
| 1265 | # Handle the BUILT_SOURCES variable. | 
|---|
| 1266 | sub handle_built_sources | 
|---|
| 1267 | { | 
|---|
| 1268 | return unless &variable_defined ('BUILT_SOURCES'); | 
|---|
| 1269 |  | 
|---|
| 1270 | local (@sources) = &variable_value_as_list ('BUILT_SOURCES', 'all'); | 
|---|
| 1271 | local ($s); | 
|---|
| 1272 | foreach $s (@sources) | 
|---|
| 1273 | { | 
|---|
| 1274 | if (/^\@.*\@$/) | 
|---|
| 1275 | { | 
|---|
| 1276 | # FIXME: is this really the right thing to do? | 
|---|
| 1277 | &am_line_error ('BUILT_SOURCES', | 
|---|
| 1278 | "\`BUILT_SOURCES' should not contain a configure substitution"); | 
|---|
| 1279 | last; | 
|---|
| 1280 | } | 
|---|
| 1281 | } | 
|---|
| 1282 |  | 
|---|
| 1283 | # We don't care about the return value of this function.  We just | 
|---|
| 1284 | # want to make sure to update %dep_files with the contents of | 
|---|
| 1285 | # BUILT_SOURCES. | 
|---|
| 1286 | &handle_single_transform_list (".o", @sources); | 
|---|
| 1287 | } | 
|---|
| 1288 |  | 
|---|
| 1289 | # Special-case @ALLOCA@ and @LIBOBJS@ in _LDADD or _LIBADD variables. | 
|---|
| 1290 | # Also, generate _DEPENDENCIES variable if appropriate. | 
|---|
| 1291 | # Arguments are: | 
|---|
| 1292 | #   transformed name of object being built, or empty string if no object | 
|---|
| 1293 | #   name of _LDADD/_LIBADD-type variable to examine | 
|---|
| 1294 | #   boolean (lex_seen) which is true if a lex source file was seen in this | 
|---|
| 1295 | #     object.  valid only for LDADDs, not LIBADDs. | 
|---|
| 1296 | # Returns 1 if LIBOBJS seen, 0 otherwise. | 
|---|
| 1297 | sub handle_lib_objects | 
|---|
| 1298 | { | 
|---|
| 1299 | local ($xname, $var, $lex_seen) = @_; | 
|---|
| 1300 | local ($ret); | 
|---|
| 1301 |  | 
|---|
| 1302 | die "automake: programming error 1 in handle_lib_objects\n" | 
|---|
| 1303 | if ! &variable_defined ($var); | 
|---|
| 1304 |  | 
|---|
| 1305 | die "automake: programming error 2 in handle_lib_objects\n" | 
|---|
| 1306 | if $lex_seen && $var =~ /LIBADD/; | 
|---|
| 1307 |  | 
|---|
| 1308 | local (@conds) = &variable_conditions ($var); | 
|---|
| 1309 | if (! @conds) | 
|---|
| 1310 | { | 
|---|
| 1311 | $ret = &handle_lib_objects_cond ($xname, $var, $lex_seen, ''); | 
|---|
| 1312 | } | 
|---|
| 1313 | else | 
|---|
| 1314 | { | 
|---|
| 1315 | local ($cond); | 
|---|
| 1316 | $ret = 0; | 
|---|
| 1317 | foreach $cond (@conds) | 
|---|
| 1318 | { | 
|---|
| 1319 | if (&handle_lib_objects_cond ($xname, $var, $lex_seen, $cond)) | 
|---|
| 1320 | { | 
|---|
| 1321 | $ret = 1; | 
|---|
| 1322 | } | 
|---|
| 1323 | } | 
|---|
| 1324 | } | 
|---|
| 1325 |  | 
|---|
| 1326 | return $ret; | 
|---|
| 1327 | } | 
|---|
| 1328 |  | 
|---|
| 1329 | # Subroutine of handle_lib_objects: handle a particular condition. | 
|---|
| 1330 | sub handle_lib_objects_cond | 
|---|
| 1331 | { | 
|---|
| 1332 | local ($xname, $var, $lex_seen, $cond) = @_; | 
|---|
| 1333 |  | 
|---|
| 1334 | # We recognize certain things that are commonly put in LIBADD or | 
|---|
| 1335 | # LDADD. | 
|---|
| 1336 | local ($lsearch); | 
|---|
| 1337 | local (@dep_list) = (); | 
|---|
| 1338 |  | 
|---|
| 1339 | local ($seen_libobjs) = 0; | 
|---|
| 1340 | local ($flagvar) = 0; | 
|---|
| 1341 |  | 
|---|
| 1342 | foreach $lsearch (&variable_value_as_list ($var, $cond)) | 
|---|
| 1343 | { | 
|---|
| 1344 | # Skip -lfoo and -Ldir; these are explicitly allowed. | 
|---|
| 1345 | next if $lsearch =~ /^-[lL]/; | 
|---|
| 1346 | if (! $flagvar && $lsearch =~ /^-/) | 
|---|
| 1347 | { | 
|---|
| 1348 | if ($var =~ /^(.*)LDADD$/) | 
|---|
| 1349 | { | 
|---|
| 1350 | &am_line_error ($var, "linker flags such as \`$lsearch' belong in \`${1}LDFLAGS"); | 
|---|
| 1351 | } | 
|---|
| 1352 | else | 
|---|
| 1353 | { | 
|---|
| 1354 | # Only get this error once. | 
|---|
| 1355 | $flagvar = 1; | 
|---|
| 1356 | &am_line_error ($var, "you cannot use linker flags such as \`$lsearch' in \`$var'"); | 
|---|
| 1357 | } | 
|---|
| 1358 | } | 
|---|
| 1359 |  | 
|---|
| 1360 | # Assume we have a file of some sort, and push it onto the | 
|---|
| 1361 | # dependency list.  Autoconf substitutions are not pushed; | 
|---|
| 1362 | # rarely is a new dependency substituted into (eg) foo_LDADD | 
|---|
| 1363 | # -- but "bad things (eg -lX11) are routinely substituted. | 
|---|
| 1364 | # Note that LIBOBJS and ALLOCA are exceptions to this rule, | 
|---|
| 1365 | # and handled specially below. | 
|---|
| 1366 | push (@dep_list, $lsearch) | 
|---|
| 1367 | unless $lsearch =~ /^\@.*\@$/; | 
|---|
| 1368 |  | 
|---|
| 1369 | # Automatically handle @LIBOBJS@ and @ALLOCA@.  Basically this | 
|---|
| 1370 | # means adding entries to dep_files. | 
|---|
| 1371 | if ($lsearch =~ /^\@(LT)?LIBOBJS\@$/) | 
|---|
| 1372 | { | 
|---|
| 1373 | push (@dep_list, $lsearch); | 
|---|
| 1374 | $seen_libobjs = 1; | 
|---|
| 1375 | if (! keys %libsources) | 
|---|
| 1376 | { | 
|---|
| 1377 | &am_line_error ($var, "\@$1" . "LIBOBJS\@ seen but never set in \`$configure_ac'"); | 
|---|
| 1378 | } | 
|---|
| 1379 |  | 
|---|
| 1380 | local ($iter, $rewrite); | 
|---|
| 1381 | foreach $iter (keys %libsources) | 
|---|
| 1382 | { | 
|---|
| 1383 | if ($iter =~ /\.([cly])$/) | 
|---|
| 1384 | { | 
|---|
| 1385 | &saw_extension ($1); | 
|---|
| 1386 | &saw_extension ('c'); | 
|---|
| 1387 | } | 
|---|
| 1388 |  | 
|---|
| 1389 | if ($iter =~ /\.h$/) | 
|---|
| 1390 | { | 
|---|
| 1391 | &require_file_with_line ($var, $FOREIGN, $iter); | 
|---|
| 1392 | } | 
|---|
| 1393 | elsif ($iter ne 'alloca.c') | 
|---|
| 1394 | { | 
|---|
| 1395 | ($rewrite = $iter) =~ s/\.c$/.P/; | 
|---|
| 1396 | $dep_files{'.deps/' . $rewrite} = 1; | 
|---|
| 1397 | &require_file_with_line ($var, $FOREIGN, $iter); | 
|---|
| 1398 | } | 
|---|
| 1399 | } | 
|---|
| 1400 | } | 
|---|
| 1401 | elsif ($lsearch =~ /^\@(LT)?ALLOCA\@$/) | 
|---|
| 1402 | { | 
|---|
| 1403 | push (@dep_list, $lsearch); | 
|---|
| 1404 | &am_line_error ($var, | 
|---|
| 1405 | "\@$1" . "ALLOCA\@ seen but \`AC_FUNC_ALLOCA' not in \`$configure_ac'") | 
|---|
| 1406 | if ! defined $libsources{'alloca.c'}; | 
|---|
| 1407 | $dep_files{'.deps/alloca.P'} = 1; | 
|---|
| 1408 | &require_file_with_line ($var, $FOREIGN, 'alloca.c'); | 
|---|
| 1409 | &saw_extension ('c'); | 
|---|
| 1410 | } | 
|---|
| 1411 | } | 
|---|
| 1412 |  | 
|---|
| 1413 | if ($xname ne '' && ! &variable_defined ($xname . '_DEPENDENCIES', $cond)) | 
|---|
| 1414 | { | 
|---|
| 1415 | &define_pretty_variable ($xname . '_DEPENDENCIES', $cond, @dep_list); | 
|---|
| 1416 | } | 
|---|
| 1417 |  | 
|---|
| 1418 | return $seen_libobjs; | 
|---|
| 1419 | } | 
|---|
| 1420 |  | 
|---|
| 1421 | # Canonicalize a name, and check to make sure the non-canonical name | 
|---|
| 1422 | # is never used.  Returns canonical name.  Arguments are name and a | 
|---|
| 1423 | # list of suffixes to check for. | 
|---|
| 1424 | sub check_canonical_spelling | 
|---|
| 1425 | { | 
|---|
| 1426 | local ($name, @suffixes) = @_; | 
|---|
| 1427 | local ($xname, $xt); | 
|---|
| 1428 |  | 
|---|
| 1429 | ($xname = $name) =~ tr/A-Za-z0-9_/_/c; | 
|---|
| 1430 | if ($xname ne $name) | 
|---|
| 1431 | { | 
|---|
| 1432 | local ($xt); | 
|---|
| 1433 | foreach $xt (@suffixes) | 
|---|
| 1434 | { | 
|---|
| 1435 | &am_line_error ($name . $xt, | 
|---|
| 1436 | "invalid variable \`" . $name . $xt | 
|---|
| 1437 | . "'; should be \`" . $xname . $xt . "'") | 
|---|
| 1438 | if &variable_defined ($name . $xt); | 
|---|
| 1439 | } | 
|---|
| 1440 | } | 
|---|
| 1441 |  | 
|---|
| 1442 | return $xname; | 
|---|
| 1443 | } | 
|---|
| 1444 |  | 
|---|
| 1445 | # Handle C programs. | 
|---|
| 1446 | sub handle_programs | 
|---|
| 1447 | { | 
|---|
| 1448 | local (@proglist) = &am_install_var ('-clean', | 
|---|
| 1449 | 'progs', 'PROGRAMS', | 
|---|
| 1450 | 'bin', 'sbin', 'libexec', 'pkglib', | 
|---|
| 1451 | 'noinst', 'check'); | 
|---|
| 1452 | return if ! @proglist; | 
|---|
| 1453 |  | 
|---|
| 1454 | # If a program is installed, this is required.  We only want this | 
|---|
| 1455 | # error to appear once. | 
|---|
| 1456 | &am_conf_error ("AC_ARG_PROGRAM must be used in \`$configure_ac'") | 
|---|
| 1457 | unless $seen_arg_prog; | 
|---|
| 1458 | $seen_arg_prog = 1; | 
|---|
| 1459 |  | 
|---|
| 1460 | local ($one_file, $xname, $munge); | 
|---|
| 1461 |  | 
|---|
| 1462 | local ($seen_libobjs) = 0; | 
|---|
| 1463 | foreach $one_file (@proglist) | 
|---|
| 1464 | { | 
|---|
| 1465 | local ($obj) = &get_object_extension ($one_file); | 
|---|
| 1466 |  | 
|---|
| 1467 | # Canonicalize names and check for misspellings. | 
|---|
| 1468 | $xname = &check_canonical_spelling ($one_file, '_LDADD', '_LDFLAGS', | 
|---|
| 1469 | '_SOURCES', '_OBJECTS', | 
|---|
| 1470 | '_DEPENDENCIES'); | 
|---|
| 1471 |  | 
|---|
| 1472 | # FIXME: Using a trick to figure out if any lex sources appear | 
|---|
| 1473 | # in our program; should use some cleaner method. | 
|---|
| 1474 | local ($lex_num) = scalar (keys %lex_sources); | 
|---|
| 1475 | local ($linker) = &handle_source_transform ($xname, $one_file, $obj); | 
|---|
| 1476 | local ($lex_file_seen) = (scalar (keys %lex_sources) > $lex_num); | 
|---|
| 1477 |  | 
|---|
| 1478 | local ($xt) = ''; | 
|---|
| 1479 | if (&variable_defined ($xname . "_LDADD")) | 
|---|
| 1480 | { | 
|---|
| 1481 | if (&handle_lib_objects ($xname, $xname . '_LDADD', | 
|---|
| 1482 | $lex_file_seen)) | 
|---|
| 1483 | { | 
|---|
| 1484 | $seen_libobjs = 1; | 
|---|
| 1485 | } | 
|---|
| 1486 | $lex_file_seen = 0; | 
|---|
| 1487 | $xt = '_LDADD'; | 
|---|
| 1488 | } | 
|---|
| 1489 | else | 
|---|
| 1490 | { | 
|---|
| 1491 | # User didn't define prog_LDADD override.  So do it. | 
|---|
| 1492 | &define_variable ($xname . '_LDADD', '$(LDADD)'); | 
|---|
| 1493 |  | 
|---|
| 1494 | # This does a bit too much work.  But we need it to | 
|---|
| 1495 | # generate _DEPENDENCIES when appropriate. | 
|---|
| 1496 | if (&variable_defined ('LDADD')) | 
|---|
| 1497 | { | 
|---|
| 1498 | if (&handle_lib_objects ($xname, 'LDADD', $lex_file_seen)) | 
|---|
| 1499 | { | 
|---|
| 1500 | $seen_libobjs = 1; | 
|---|
| 1501 | } | 
|---|
| 1502 | $lex_file_seen = 0; | 
|---|
| 1503 | } | 
|---|
| 1504 | elsif (! &variable_defined ($xname . '_DEPENDENCIES')) | 
|---|
| 1505 | { | 
|---|
| 1506 | &define_variable ($xname . '_DEPENDENCIES', ''); | 
|---|
| 1507 | } | 
|---|
| 1508 | $xt = '_SOURCES' | 
|---|
| 1509 | } | 
|---|
| 1510 |  | 
|---|
| 1511 | if (&variable_defined ($xname . '_LIBADD')) | 
|---|
| 1512 | { | 
|---|
| 1513 | &am_line_error ($xname . '_LIBADD', | 
|---|
| 1514 | "use \`" . $xname . "_LDADD', not \`" | 
|---|
| 1515 | . $xname . "_LIBADD'"); | 
|---|
| 1516 | } | 
|---|
| 1517 |  | 
|---|
| 1518 | if (! &variable_defined ($xname . '_LDFLAGS')) | 
|---|
| 1519 | { | 
|---|
| 1520 | # Define the prog_LDFLAGS variable. | 
|---|
| 1521 | &define_variable ($xname . '_LDFLAGS', ''); | 
|---|
| 1522 | } | 
|---|
| 1523 |  | 
|---|
| 1524 | # Determine program to use for link. | 
|---|
| 1525 | local ($xlink); | 
|---|
| 1526 | if (&variable_defined ($xname . '_LINK')) | 
|---|
| 1527 | { | 
|---|
| 1528 | $xlink = $xname . '_LINK'; | 
|---|
| 1529 | } | 
|---|
| 1530 | else | 
|---|
| 1531 | { | 
|---|
| 1532 | $xlink = $linker ? $linker : 'LINK'; | 
|---|
| 1533 | } | 
|---|
| 1534 |  | 
|---|
| 1535 | local ($xexe); | 
|---|
| 1536 | if ($seen_exeext && $one_file !~ /\./) | 
|---|
| 1537 | { | 
|---|
| 1538 | $xexe = 's/\@EXEEXT\@/\$(EXEEXT)/g;'; | 
|---|
| 1539 | } | 
|---|
| 1540 | else | 
|---|
| 1541 | { | 
|---|
| 1542 | $xexe = 's/\@EXEEXT\@//g;'; | 
|---|
| 1543 | } | 
|---|
| 1544 |  | 
|---|
| 1545 | $output_rules .= | 
|---|
| 1546 | &file_contents_with_transform | 
|---|
| 1547 | ('s/\@PROGRAM\@/' . $one_file . '/go;' | 
|---|
| 1548 | . 's/\@XPROGRAM\@/' . $xname . '/go;' | 
|---|
| 1549 | . 's/\@XLINK\@/' . $xlink . '/go;' | 
|---|
| 1550 | . $xexe, | 
|---|
| 1551 | 'program'); | 
|---|
| 1552 | } | 
|---|
| 1553 |  | 
|---|
| 1554 | if (&variable_defined ('LDADD') && &handle_lib_objects ('', 'LDADD', 0)) | 
|---|
| 1555 | { | 
|---|
| 1556 | $seen_libobjs = 1; | 
|---|
| 1557 | } | 
|---|
| 1558 |  | 
|---|
| 1559 | if ($seen_libobjs) | 
|---|
| 1560 | { | 
|---|
| 1561 | foreach $one_file (@proglist) | 
|---|
| 1562 | { | 
|---|
| 1563 | # Canonicalize names. | 
|---|
| 1564 | ($xname = $one_file) =~ tr/A-Za-z0-9_/_/c; | 
|---|
| 1565 |  | 
|---|
| 1566 | if (&variable_defined ($xname . '_LDADD')) | 
|---|
| 1567 | { | 
|---|
| 1568 | &check_libobjs_sources ($xname, $xname . '_LDADD'); | 
|---|
| 1569 | } | 
|---|
| 1570 | elsif (&variable_defined ('LDADD')) | 
|---|
| 1571 | { | 
|---|
| 1572 | &check_libobjs_sources ($xname, 'LDADD'); | 
|---|
| 1573 | } | 
|---|
| 1574 | } | 
|---|
| 1575 | } | 
|---|
| 1576 | } | 
|---|
| 1577 |  | 
|---|
| 1578 |  | 
|---|
| 1579 | # Handle libraries. | 
|---|
| 1580 | sub handle_libraries | 
|---|
| 1581 | { | 
|---|
| 1582 | local (@liblist) = &am_install_var ('-clean', | 
|---|
| 1583 | 'libs', 'LIBRARIES', | 
|---|
| 1584 | 'lib', 'pkglib', 'noinst', 'check'); | 
|---|
| 1585 | return if ! @liblist; | 
|---|
| 1586 |  | 
|---|
| 1587 | local (%valid) = &am_primary_prefixes ('LIBRARIES', 'lib', 'pkglib', | 
|---|
| 1588 | 'noinst', 'check'); | 
|---|
| 1589 | if (! defined $configure_vars{'RANLIB'}) | 
|---|
| 1590 | { | 
|---|
| 1591 | local ($key); | 
|---|
| 1592 | foreach $key (keys %valid) | 
|---|
| 1593 | { | 
|---|
| 1594 | if (&variable_defined ($key . '_LIBRARIES')) | 
|---|
| 1595 | { | 
|---|
| 1596 | &am_line_error ($key . '_LIBRARIES', "library used but \`RANLIB' not defined in \`$configure_ac'"); | 
|---|
| 1597 | # Only get this error once.  If this is ever printed, | 
|---|
| 1598 | # we have a bug. | 
|---|
| 1599 | $configure_vars{'RANLIB'} = 'BUG'; | 
|---|
| 1600 | last; | 
|---|
| 1601 | } | 
|---|
| 1602 | } | 
|---|
| 1603 | } | 
|---|
| 1604 |  | 
|---|
| 1605 | local ($onelib); | 
|---|
| 1606 | local ($munge); | 
|---|
| 1607 | local ($xlib); | 
|---|
| 1608 | local ($seen_libobjs) = 0; | 
|---|
| 1609 | foreach $onelib (@liblist) | 
|---|
| 1610 | { | 
|---|
| 1611 | # Check that the library fits the standard naming convention. | 
|---|
| 1612 | if ($onelib !~ /^lib.*\.a$/) | 
|---|
| 1613 | { | 
|---|
| 1614 | # FIXME should put line number here.  That means mapping | 
|---|
| 1615 | # from library name back to variable name. | 
|---|
| 1616 | &am_error ("\`$onelib' is not a standard library name"); | 
|---|
| 1617 | } | 
|---|
| 1618 |  | 
|---|
| 1619 | local ($obj) = &get_object_extension ($onelib); | 
|---|
| 1620 |  | 
|---|
| 1621 | # Canonicalize names and check for misspellings. | 
|---|
| 1622 | $xlib = &check_canonical_spelling ($onelib, '_LIBADD', '_SOURCES', | 
|---|
| 1623 | '_OBJECTS', '_DEPENDENCIES'); | 
|---|
| 1624 |  | 
|---|
| 1625 | if (&variable_defined ($xlib . '_LIBADD')) | 
|---|
| 1626 | { | 
|---|
| 1627 | if (&handle_lib_objects ($xlib, $xlib . '_LIBADD', 0)) | 
|---|
| 1628 | { | 
|---|
| 1629 | $seen_libobjs = 1; | 
|---|
| 1630 | } | 
|---|
| 1631 | } | 
|---|
| 1632 | else | 
|---|
| 1633 | { | 
|---|
| 1634 | # Generate support for conditional object inclusion in | 
|---|
| 1635 | # libraries. | 
|---|
| 1636 | &define_variable ($xlib . "_LIBADD", ''); | 
|---|
| 1637 | } | 
|---|
| 1638 |  | 
|---|
| 1639 | if (&variable_defined ($xlib . '_LDADD')) | 
|---|
| 1640 | { | 
|---|
| 1641 | &am_line_error ($xlib . '_LDADD', | 
|---|
| 1642 | "use \`" . $xlib . "_LIBADD', not \`" | 
|---|
| 1643 | . $xlib . "_LDADD'"); | 
|---|
| 1644 | } | 
|---|
| 1645 |  | 
|---|
| 1646 | # Make sure we at look at this. | 
|---|
| 1647 | &examine_variable ($xlib . '_DEPENDENCIES'); | 
|---|
| 1648 |  | 
|---|
| 1649 | &handle_source_transform ($xlib, $onelib, $obj); | 
|---|
| 1650 |  | 
|---|
| 1651 | $output_rules .= | 
|---|
| 1652 | &file_contents_with_transform ('s/\@LIBRARY\@/' . $onelib . '/go;' | 
|---|
| 1653 | . 's/\@XLIBRARY\@/' | 
|---|
| 1654 | . $xlib . '/go;', | 
|---|
| 1655 | 'library'); | 
|---|
| 1656 | } | 
|---|
| 1657 |  | 
|---|
| 1658 | if ($seen_libobjs) | 
|---|
| 1659 | { | 
|---|
| 1660 | foreach $onelib (@liblist) | 
|---|
| 1661 | { | 
|---|
| 1662 | # Canonicalize names. | 
|---|
| 1663 | ($xlib = $onelib) =~ tr/A-Za-z0-9_/_/c; | 
|---|
| 1664 | if (&variable_defined ($xlib . '_LIBADD')) | 
|---|
| 1665 | { | 
|---|
| 1666 | &check_libobjs_sources ($xlib, $xlib . '_LIBADD'); | 
|---|
| 1667 | } | 
|---|
| 1668 | } | 
|---|
| 1669 | } | 
|---|
| 1670 |  | 
|---|
| 1671 | &define_variable ('AR', 'ar'); | 
|---|
| 1672 | &define_configure_variable ('RANLIB'); | 
|---|
| 1673 | } | 
|---|
| 1674 |  | 
|---|
| 1675 | # Handle shared libraries. | 
|---|
| 1676 | sub handle_ltlibraries | 
|---|
| 1677 | { | 
|---|
| 1678 | local (@liblist) = &am_install_var ('-clean', | 
|---|
| 1679 | 'ltlib', 'LTLIBRARIES', | 
|---|
| 1680 | 'noinst', 'lib', 'pkglib'); | 
|---|
| 1681 | return if ! @liblist; | 
|---|
| 1682 |  | 
|---|
| 1683 | local (%instdirs); | 
|---|
| 1684 | local (%valid) = &am_primary_prefixes ('LTLIBRARIES', 'lib', 'pkglib', | 
|---|
| 1685 | 'noinst'); | 
|---|
| 1686 |  | 
|---|
| 1687 | local ($key); | 
|---|
| 1688 | foreach $key (keys %valid) | 
|---|
| 1689 | { | 
|---|
| 1690 | if (&variable_defined ($key . '_LTLIBRARIES')) | 
|---|
| 1691 | { | 
|---|
| 1692 | if (!$seen_libtool) | 
|---|
| 1693 | { | 
|---|
| 1694 | &am_line_error ($key . '_LTLIBRARIES', "library used but \`LIBTOOL' not defined in \`$configure_ac'"); | 
|---|
| 1695 | # Only get this error once.  If this is ever printed, | 
|---|
| 1696 | # we have a bug. | 
|---|
| 1697 | $configure_vars{'LIBTOOL'} = 'BUG'; | 
|---|
| 1698 | $seen_libtool = 1; | 
|---|
| 1699 | } | 
|---|
| 1700 |  | 
|---|
| 1701 | # Get the installation directory of each library. | 
|---|
| 1702 | for (&variable_value_as_list ($key . '_LTLIBRARIES', 'all')) | 
|---|
| 1703 | { | 
|---|
| 1704 | if ($instdirs{$_}) | 
|---|
| 1705 | { | 
|---|
| 1706 | &am_error ("\`$_' is already going to be installed in \`$instdirs{$_}'"); | 
|---|
| 1707 | } | 
|---|
| 1708 | else | 
|---|
| 1709 | { | 
|---|
| 1710 | $instdirs{$_} = $key; | 
|---|
| 1711 | } | 
|---|
| 1712 | } | 
|---|
| 1713 | } | 
|---|
| 1714 | } | 
|---|
| 1715 |  | 
|---|
| 1716 | local ($onelib); | 
|---|
| 1717 | local ($munge); | 
|---|
| 1718 | local ($xlib); | 
|---|
| 1719 | local ($seen_libobjs) = 0; | 
|---|
| 1720 | foreach $onelib (@liblist) | 
|---|
| 1721 | { | 
|---|
| 1722 | local ($obj) = &get_object_extension ($onelib); | 
|---|
| 1723 |  | 
|---|
| 1724 | # Canonicalize names and check for misspellings. | 
|---|
| 1725 | $xlib = &check_canonical_spelling ($onelib, '_LIBADD', '_LDFLAGS', | 
|---|
| 1726 | '_SOURCES', '_OBJECTS', | 
|---|
| 1727 | '_DEPENDENCIES'); | 
|---|
| 1728 |  | 
|---|
| 1729 | if (! &variable_defined ($xlib . '_LDFLAGS')) | 
|---|
| 1730 | { | 
|---|
| 1731 | # Define the lib_LDFLAGS variable. | 
|---|
| 1732 | &define_variable ($xlib . '_LDFLAGS', ''); | 
|---|
| 1733 | } | 
|---|
| 1734 |  | 
|---|
| 1735 | # Check that the library fits the standard naming convention. | 
|---|
| 1736 | $libname_rx = "^lib.*\.la"; | 
|---|
| 1737 | if (&variable_value ($xlib . '_LDFLAGS') =~ /-module/) | 
|---|
| 1738 | { | 
|---|
| 1739 | # Relax name checking for libtool modules. | 
|---|
| 1740 | $libname_rx = "\.la"; | 
|---|
| 1741 | } | 
|---|
| 1742 | if ($onelib !~ /$libname_rx$/) | 
|---|
| 1743 | { | 
|---|
| 1744 | # FIXME this should only be a warning for foreign packages | 
|---|
| 1745 | # FIXME should put line number here.  That means mapping | 
|---|
| 1746 | # from library name back to variable name. | 
|---|
| 1747 | &am_error ("\`$onelib' is not a standard libtool library name"); | 
|---|
| 1748 | } | 
|---|
| 1749 |  | 
|---|
| 1750 | if (&variable_defined ($xlib . '_LIBADD')) | 
|---|
| 1751 | { | 
|---|
| 1752 | if (&handle_lib_objects ($xlib, $xlib . '_LIBADD', 0)) | 
|---|
| 1753 | { | 
|---|
| 1754 | $seen_libobjs = 1; | 
|---|
| 1755 | } | 
|---|
| 1756 | } | 
|---|
| 1757 | else | 
|---|
| 1758 | { | 
|---|
| 1759 | # Generate support for conditional object inclusion in | 
|---|
| 1760 | # libraries. | 
|---|
| 1761 | &define_variable ($xlib . "_LIBADD", ''); | 
|---|
| 1762 | } | 
|---|
| 1763 |  | 
|---|
| 1764 | if (&variable_defined ($xlib . '_LDADD')) | 
|---|
| 1765 | { | 
|---|
| 1766 | &am_line_error ($xlib . '_LDADD', | 
|---|
| 1767 | "use \`" . $xlib . "_LIBADD', not \`" | 
|---|
| 1768 | . $xlib . "_LDADD'"); | 
|---|
| 1769 | } | 
|---|
| 1770 |  | 
|---|
| 1771 | # Make sure we at look at this. | 
|---|
| 1772 | &examine_variable ($xlib . '_DEPENDENCIES'); | 
|---|
| 1773 |  | 
|---|
| 1774 | local ($linker) = &handle_source_transform ($xlib, $onelib, $obj); | 
|---|
| 1775 |  | 
|---|
| 1776 | # Determine program to use for link. | 
|---|
| 1777 | local ($xlink); | 
|---|
| 1778 | if (&variable_defined ($xlib . '_LINK')) | 
|---|
| 1779 | { | 
|---|
| 1780 | $xlink = $xlib . '_LINK'; | 
|---|
| 1781 | } | 
|---|
| 1782 | else | 
|---|
| 1783 | { | 
|---|
| 1784 | $xlink = $linker ? $linker : 'LINK'; | 
|---|
| 1785 | } | 
|---|
| 1786 |  | 
|---|
| 1787 | local ($rpath); | 
|---|
| 1788 | if ($instdirs{$onelib} eq 'EXTRA' || $instdirs{$onelib} eq 'noinst') | 
|---|
| 1789 | { | 
|---|
| 1790 | # It's an EXTRA_ library, so we can't specify -rpath, | 
|---|
| 1791 | # because we don't know where the library will end up. | 
|---|
| 1792 | # The user probably knows, but generally speaking automake | 
|---|
| 1793 | # doesn't -- and in fact configure could decide | 
|---|
| 1794 | # dynamically between two different locations. | 
|---|
| 1795 | $rpath = 's/\@RPATH\@//go;'; | 
|---|
| 1796 | } | 
|---|
| 1797 | else | 
|---|
| 1798 | { | 
|---|
| 1799 | $rpath = ('s/\@RPATH\@/-rpath \$(' . $instdirs{$onelib} | 
|---|
| 1800 | . 'dir)/go;'); | 
|---|
| 1801 | } | 
|---|
| 1802 |  | 
|---|
| 1803 | $output_rules .= | 
|---|
| 1804 | &file_contents_with_transform ('s/\@LTLIBRARY\@/' | 
|---|
| 1805 | . $onelib . '/go;' | 
|---|
| 1806 | . 's/\@XLTLIBRARY\@/' | 
|---|
| 1807 | . $xlib . '/go;' | 
|---|
| 1808 | . $rpath | 
|---|
| 1809 | . 's/\@XLINK\@/' . $xlink . '/go;', | 
|---|
| 1810 | 'ltlibrary'); | 
|---|
| 1811 | } | 
|---|
| 1812 |  | 
|---|
| 1813 | if ($seen_libobjs) | 
|---|
| 1814 | { | 
|---|
| 1815 | foreach $onelib (@liblist) | 
|---|
| 1816 | { | 
|---|
| 1817 | # Canonicalize names. | 
|---|
| 1818 | ($xlib = $onelib) =~ tr/A-Za-z0-9_/_/c; | 
|---|
| 1819 | if (&variable_defined ($xlib . '_LIBADD')) | 
|---|
| 1820 | { | 
|---|
| 1821 | &check_libobjs_sources ($xlib, $xlib . '_LIBADD'); | 
|---|
| 1822 | } | 
|---|
| 1823 | } | 
|---|
| 1824 | } | 
|---|
| 1825 | } | 
|---|
| 1826 |  | 
|---|
| 1827 | # See if any _SOURCES variable were misspelled.  Also, make sure that | 
|---|
| 1828 | # EXTRA_ variables don't contain configure substitutions. | 
|---|
| 1829 | sub check_typos | 
|---|
| 1830 | { | 
|---|
| 1831 | local ($varname, $primary); | 
|---|
| 1832 | foreach $varname (keys %contents) | 
|---|
| 1833 | { | 
|---|
| 1834 | foreach $primary ('_SOURCES', '_LIBADD', '_LDADD', '_LDFLAGS', | 
|---|
| 1835 | '_DEPENDENCIES') | 
|---|
| 1836 | { | 
|---|
| 1837 | if ($varname =~ /$primary$/ && ! $content_seen{$varname}) | 
|---|
| 1838 | { | 
|---|
| 1839 | &am_line_error ($varname, | 
|---|
| 1840 | "invalid unused variable name: \`$varname'"); | 
|---|
| 1841 | } | 
|---|
| 1842 | } | 
|---|
| 1843 | } | 
|---|
| 1844 | } | 
|---|
| 1845 |  | 
|---|
| 1846 | # Handle scripts. | 
|---|
| 1847 | sub handle_scripts | 
|---|
| 1848 | { | 
|---|
| 1849 | # NOTE we no longer automatically clean SCRIPTS, because it is | 
|---|
| 1850 | # useful to sometimes distribute scripts verbatim.  This happens | 
|---|
| 1851 | # eg in Automake itself. | 
|---|
| 1852 | &am_install_var ('scripts', 'SCRIPTS', | 
|---|
| 1853 | 'bin', 'sbin', 'libexec', 'pkgdata', | 
|---|
| 1854 | 'noinst', 'check'); | 
|---|
| 1855 |  | 
|---|
| 1856 | local ($scripts_installed) = 0; | 
|---|
| 1857 | # Set $scripts_installed if appropriate.  Make sure we only find | 
|---|
| 1858 | # scripts which are actually installed -- this is why we can't | 
|---|
| 1859 | # simply use the return value of am_install_var. | 
|---|
| 1860 | local (%valid) = &am_primary_prefixes ('SCRIPTS', 'bin', 'sbin', | 
|---|
| 1861 | 'libexec', 'pkgdata', | 
|---|
| 1862 | 'noinst', 'check'); | 
|---|
| 1863 | local ($key); | 
|---|
| 1864 | foreach $key (keys %valid) | 
|---|
| 1865 | { | 
|---|
| 1866 | if ($key ne 'noinst' | 
|---|
| 1867 | && $key ne 'check' | 
|---|
| 1868 | && &variable_defined ($key . '_SCRIPTS')) | 
|---|
| 1869 | { | 
|---|
| 1870 | $scripts_installed = 1; | 
|---|
| 1871 | # push (@check_tests, 'check-' . $key . 'SCRIPTS'); | 
|---|
| 1872 | } | 
|---|
| 1873 | } | 
|---|
| 1874 |  | 
|---|
| 1875 | if ($scripts_installed) | 
|---|
| 1876 | { | 
|---|
| 1877 | # If a program is installed, this is required.  We only want this | 
|---|
| 1878 | # error to appear once. | 
|---|
| 1879 | &am_conf_error ("AC_ARG_PROGRAM must be used in \`$configure_ac'") | 
|---|
| 1880 | unless $seen_arg_prog; | 
|---|
| 1881 | $seen_arg_prog = 1; | 
|---|
| 1882 | } | 
|---|
| 1883 | } | 
|---|
| 1884 |  | 
|---|
| 1885 | # Search a file for a "version.texi" Texinfo include.  Return the name | 
|---|
| 1886 | # of the include file if found, or the empty string if not.  A | 
|---|
| 1887 | # "version.texi" file is actually any file whose name matches | 
|---|
| 1888 | # "vers*.texi". | 
|---|
| 1889 | sub scan_texinfo_file | 
|---|
| 1890 | { | 
|---|
| 1891 | local ($filename) = @_; | 
|---|
| 1892 |  | 
|---|
| 1893 | if (! open (TEXI, $filename)) | 
|---|
| 1894 | { | 
|---|
| 1895 | &am_error ("couldn't open \`$filename': $!"); | 
|---|
| 1896 | return ''; | 
|---|
| 1897 | } | 
|---|
| 1898 | print "automake: reading $filename\n" if $verbose; | 
|---|
| 1899 |  | 
|---|
| 1900 | local ($vfile, $outfile); | 
|---|
| 1901 | while (<TEXI>) | 
|---|
| 1902 | { | 
|---|
| 1903 | if (/^\@setfilename +(\S+)/) | 
|---|
| 1904 | { | 
|---|
| 1905 | $outfile = $1; | 
|---|
| 1906 | last if ($vfile); | 
|---|
| 1907 | } | 
|---|
| 1908 |  | 
|---|
| 1909 | if (/^\@include\s+(vers[^.]*\.texi)\s*$/) | 
|---|
| 1910 | { | 
|---|
| 1911 | # Found version.texi include. | 
|---|
| 1912 | $vfile = $1; | 
|---|
| 1913 | last if $outfile; | 
|---|
| 1914 | } | 
|---|
| 1915 | } | 
|---|
| 1916 |  | 
|---|
| 1917 | close (TEXI); | 
|---|
| 1918 | return ($outfile, $vfile); | 
|---|
| 1919 | } | 
|---|
| 1920 |  | 
|---|
| 1921 | # Handle all Texinfo source. | 
|---|
| 1922 | sub handle_texinfo | 
|---|
| 1923 | { | 
|---|
| 1924 | &am_line_error ('TEXINFOS', | 
|---|
| 1925 | "\`TEXINFOS' is an anachronism; use \`info_TEXINFOS'") | 
|---|
| 1926 | if &variable_defined ('TEXINFOS'); | 
|---|
| 1927 | return if (! &variable_defined ('info_TEXINFOS') | 
|---|
| 1928 | && ! &variable_defined ('html_TEXINFOS')); | 
|---|
| 1929 |  | 
|---|
| 1930 | if (&variable_defined ('html_TEXINFOS')) | 
|---|
| 1931 | { | 
|---|
| 1932 | &am_line_error ('html_TEXINFOS', | 
|---|
| 1933 | "HTML generation not yet supported"); | 
|---|
| 1934 | return; | 
|---|
| 1935 | } | 
|---|
| 1936 |  | 
|---|
| 1937 | local (@texis) = &variable_value_as_list ('info_TEXINFOS', 'all'); | 
|---|
| 1938 |  | 
|---|
| 1939 | local (@info_deps_list, @dvis_list, @texi_deps); | 
|---|
| 1940 | local ($infobase, $info_cursor); | 
|---|
| 1941 | local (%versions); | 
|---|
| 1942 | local ($done) = 0; | 
|---|
| 1943 | local ($vti); | 
|---|
| 1944 | local ($tc_cursor, @texi_cleans); | 
|---|
| 1945 | local ($canonical); | 
|---|
| 1946 |  | 
|---|
| 1947 | foreach $info_cursor (@texis) | 
|---|
| 1948 | { | 
|---|
| 1949 | # FIXME: This is mildly hacky, since it recognizes "txinfo". | 
|---|
| 1950 | # I don't feel like making it right. | 
|---|
| 1951 | ($infobase = $info_cursor) =~ s/\.te?xi(nfo)?$//; | 
|---|
| 1952 |  | 
|---|
| 1953 | # If 'version.texi' is referenced by input file, then include | 
|---|
| 1954 | # automatic versioning capability. | 
|---|
| 1955 | local ($out_file, $vtexi) = &scan_texinfo_file ($relative_dir | 
|---|
| 1956 | . "/" . $info_cursor); | 
|---|
| 1957 |  | 
|---|
| 1958 | if ($out_file eq '') | 
|---|
| 1959 | { | 
|---|
| 1960 | &am_error ("\`$info_cursor' missing \@setfilename"); | 
|---|
| 1961 | next; | 
|---|
| 1962 | } | 
|---|
| 1963 |  | 
|---|
| 1964 | if ($out_file =~ /\.(.+)$/ && $1 ne 'info') | 
|---|
| 1965 | { | 
|---|
| 1966 | # FIXME should report line number in input file. | 
|---|
| 1967 | &am_error ("output of \`$info_cursor', \`$out_file', has unrecognized extension"); | 
|---|
| 1968 | next; | 
|---|
| 1969 | } | 
|---|
| 1970 |  | 
|---|
| 1971 | if ($vtexi) | 
|---|
| 1972 | { | 
|---|
| 1973 | &am_error ("\`$vtexi', included in \`$info_cursor', also included in \`$versions{$vtexi}'") | 
|---|
| 1974 | if (defined $versions{$vtexi} && $vtexi ne "version.texi"); | 
|---|
| 1975 | $versions{$vtexi} = $info_cursor; | 
|---|
| 1976 |  | 
|---|
| 1977 | # We number the stamp-vti files.  This is doable since the | 
|---|
| 1978 | # actual names don't matter much.  We only number starting | 
|---|
| 1979 | # with the second one, so that the common case looks nice. | 
|---|
| 1980 | $vti = 'vti' . ($done ? ".$done" : ''); | 
|---|
| 1981 | &push_dist_common ($vtexi, 'stamp-' . $vti); | 
|---|
| 1982 | push (@clean, $vti); | 
|---|
| 1983 |  | 
|---|
| 1984 | # Only require once. | 
|---|
| 1985 | &require_conf_file_with_line ('info_TEXINFOS', $FOREIGN, | 
|---|
| 1986 | 'mdate-sh') | 
|---|
| 1987 | if ! $done; | 
|---|
| 1988 | ++$done; | 
|---|
| 1989 |  | 
|---|
| 1990 | local ($conf_pat, $conf_dir); | 
|---|
| 1991 | if ($config_aux_dir eq '.' || $config_aux_dir eq '') | 
|---|
| 1992 | { | 
|---|
| 1993 | $conf_dir = '$(srcdir)/'; | 
|---|
| 1994 | } | 
|---|
| 1995 | else | 
|---|
| 1996 | { | 
|---|
| 1997 | $conf_dir = $config_aux_dir; | 
|---|
| 1998 | $conf_dir .= '/' unless $conf_dir =~ /\/$/; | 
|---|
| 1999 | } | 
|---|
| 2000 | ($conf_pat = $conf_dir) =~ s/(\W)/\\$1/g; | 
|---|
| 2001 | $output_rules .= | 
|---|
| 2002 | &file_contents_with_transform | 
|---|
| 2003 | ('s/\@TEXI\@/' . $info_cursor . '/g; ' | 
|---|
| 2004 | . 's/\@VTI\@/' . $vti . '/g; ' | 
|---|
| 2005 | . 's/\@VTEXI\@/' . $vtexi . '/g;' | 
|---|
| 2006 | . 's,\@MDDIR\@,' . $conf_pat . ',g;' | 
|---|
| 2007 | . 's,\@CONFIGURE_AC\@,' . $configure_ac . ',g;', | 
|---|
| 2008 | 'texi-vers'); | 
|---|
| 2009 |  | 
|---|
| 2010 | &push_phony_cleaners ($vti); | 
|---|
| 2011 | } | 
|---|
| 2012 |  | 
|---|
| 2013 | # If user specified file_TEXINFOS, then use that as explicit | 
|---|
| 2014 | # dependency list. | 
|---|
| 2015 | @texi_deps = (); | 
|---|
| 2016 | push (@texi_deps, $info_cursor); | 
|---|
| 2017 | push (@texi_deps, $vtexi) if $vtexi; | 
|---|
| 2018 |  | 
|---|
| 2019 | # Canonicalize name first. | 
|---|
| 2020 | ($canonical = $infobase) =~ tr/A-Za-z0-9_/_/c; | 
|---|
| 2021 | if (&variable_defined ($canonical . "_TEXINFOS")) | 
|---|
| 2022 | { | 
|---|
| 2023 | push (@texi_deps, '$(' . $canonical . '_TEXINFOS)'); | 
|---|
| 2024 | &push_dist_common ('$(' . $canonical . '_TEXINFOS)'); | 
|---|
| 2025 | } | 
|---|
| 2026 |  | 
|---|
| 2027 | $output_rules .= ("\n" . $out_file . ": " | 
|---|
| 2028 | . join (' ', @texi_deps) | 
|---|
| 2029 | . "\n" . $infobase . ".dvi: " | 
|---|
| 2030 | . join (' ', @texi_deps) | 
|---|
| 2031 | . "\n\n"); | 
|---|
| 2032 |  | 
|---|
| 2033 | push (@info_deps_list, $out_file); | 
|---|
| 2034 | push (@dvis_list, $infobase . '.dvi'); | 
|---|
| 2035 |  | 
|---|
| 2036 | # Generate list of things to clean for this target.  We do | 
|---|
| 2037 | # this explicitly because otherwise too many things could be | 
|---|
| 2038 | # removed.  In particular the ".log" extension might | 
|---|
| 2039 | # reasonably be used in other contexts by the user. | 
|---|
| 2040 | foreach $tc_cursor ('aux', 'cp', 'cps', 'dvi', 'fn', 'fns', | 
|---|
| 2041 | 'ky', 'kys', 'ps', 'log', 'pg', 'toc', 'tp', 'tps', | 
|---|
| 2042 | 'vr', 'vrs', 'op', 'tr', 'cv', 'cn') | 
|---|
| 2043 | { | 
|---|
| 2044 | push (@texi_cleans, $infobase . '.' . $tc_cursor); | 
|---|
| 2045 | } | 
|---|
| 2046 | } | 
|---|
| 2047 |  | 
|---|
| 2048 | # Find these programs wherever they may lie.  Yes, this has | 
|---|
| 2049 | # intimate knowledge of the structure of the texinfo distribution. | 
|---|
| 2050 | &define_program_variable ('MAKEINFO', 'build', 'texinfo/makeinfo', | 
|---|
| 2051 | 'makeinfo', | 
|---|
| 2052 | # Circumlocution to avoid accidental | 
|---|
| 2053 | # configure substitution. | 
|---|
| 2054 | '@MAKE' . 'INFO@'); | 
|---|
| 2055 | &define_program_variable ('TEXI2DVI', 'src', 'texinfo/util', | 
|---|
| 2056 | 'texi2dvi'); | 
|---|
| 2057 |  | 
|---|
| 2058 | # Set transform for including texinfos.am.  First, handle --cygnus | 
|---|
| 2059 | # stuff. | 
|---|
| 2060 | local ($xform); | 
|---|
| 2061 | if ($cygnus_mode) | 
|---|
| 2062 | { | 
|---|
| 2063 | $xform = 's/^NOTCYGNUS.*$//; s/^CYGNUS//;'; | 
|---|
| 2064 | } | 
|---|
| 2065 | else | 
|---|
| 2066 | { | 
|---|
| 2067 | $xform = 's/^CYGNUS.*$//; s/^NOTCYGNUS//;'; | 
|---|
| 2068 | } | 
|---|
| 2069 |  | 
|---|
| 2070 | # Handle location of texinfo.tex. | 
|---|
| 2071 | local ($need_texi_file) = 0; | 
|---|
| 2072 | local ($texinfo_tex); | 
|---|
| 2073 | if ($cygnus_mode) | 
|---|
| 2074 | { | 
|---|
| 2075 | $texinfo_tex = '$(top_srcdir)/../texinfo/texinfo.tex'; | 
|---|
| 2076 | &define_variable ('TEXINFO_TEX', $texinfo_tex); | 
|---|
| 2077 |  | 
|---|
| 2078 | } | 
|---|
| 2079 | elsif ($config_aux_dir ne '.' && $config_aux_dir ne '') | 
|---|
| 2080 | { | 
|---|
| 2081 | $texinfo_tex = $config_aux_dir . '/texinfo.tex'; | 
|---|
| 2082 | &define_variable ('TEXINFO_TEX', $texinfo_tex); | 
|---|
| 2083 | } | 
|---|
| 2084 | elsif (&variable_defined ('TEXINFO_TEX')) | 
|---|
| 2085 | { | 
|---|
| 2086 | # The user defined TEXINFO_TEX so assume he knows what he is | 
|---|
| 2087 | # doing. | 
|---|
| 2088 | $texinfo_tex = ('$(srcdir)/' | 
|---|
| 2089 | . &dirname (&variable_value ('TEXINFO_TEX'))); | 
|---|
| 2090 | } | 
|---|
| 2091 | else | 
|---|
| 2092 | { | 
|---|
| 2093 | $texinfo_tex = '.'; | 
|---|
| 2094 | $need_texi_file = 1; | 
|---|
| 2095 | } | 
|---|
| 2096 | local ($xxform); | 
|---|
| 2097 | ($xxform = $texinfo_tex) =~ s/(\W)/\\$1/g; | 
|---|
| 2098 | $xform .= ' s/\@TEXINFODIR\@/' . $xxform . '/g;'; | 
|---|
| 2099 |  | 
|---|
| 2100 | $output_rules .= &file_contents_with_transform ($xform, 'texinfos'); | 
|---|
| 2101 | push (@phony, 'install-info-am', 'uninstall-info'); | 
|---|
| 2102 | push (@dist_targets, 'dist-info'); | 
|---|
| 2103 |  | 
|---|
| 2104 | # How to clean.  The funny name is due to --cygnus influence; in | 
|---|
| 2105 | # Cygnus mode, `clean-info' is a target that users can use. | 
|---|
| 2106 | $output_rules .= "\nmostlyclean-aminfo:\n"; | 
|---|
| 2107 | &pretty_print_rule ("\t-rm -f", "\t  ", @texi_cleans); | 
|---|
| 2108 | $output_rules .= ("\nclean-aminfo:\n\ndistclean-aminfo:\n\n" | 
|---|
| 2109 | . "maintainer-clean-aminfo:\n\t" | 
|---|
| 2110 | # Eww.  But how else can we find all the output | 
|---|
| 2111 | # files from makeinfo? | 
|---|
| 2112 | . ($cygnus_mode ? '' : 'cd $(srcdir) && ') | 
|---|
| 2113 | . 'for i in $(INFO_DEPS); do' . " \\\n" | 
|---|
| 2114 | . "\t" . '  rm -f $$i;' . " \\\n" | 
|---|
| 2115 | . "\t" . '  if test "`echo $$i-[0-9]*`" != "$$i-[0-9]*"; then' . " \\\n" | 
|---|
| 2116 | . "\t" . '    rm -f $$i-[0-9]*;' . " \\\n" | 
|---|
| 2117 | . "\t" . '  fi;' . " \\\n" | 
|---|
| 2118 | . "\tdone\n"); | 
|---|
| 2119 | &push_phony_cleaners ('aminfo'); | 
|---|
| 2120 | if ($cygnus_mode) | 
|---|
| 2121 | { | 
|---|
| 2122 | $output_rules .= "clean-info: mostlyclean-aminfo\n"; | 
|---|
| 2123 | } | 
|---|
| 2124 |  | 
|---|
| 2125 | push (@suffixes, '.texi', '.texinfo', '.txi', '.info', '.dvi', '.ps'); | 
|---|
| 2126 |  | 
|---|
| 2127 | if (! defined $options{'no-installinfo'}) | 
|---|
| 2128 | { | 
|---|
| 2129 | push (@uninstall, 'uninstall-info'); | 
|---|
| 2130 | push (@installdirs, '$(DESTDIR)$(infodir)'); | 
|---|
| 2131 | unshift (@install_data, 'install-info-am'); | 
|---|
| 2132 |  | 
|---|
| 2133 | # Make sure documentation is made and installed first.  Use | 
|---|
| 2134 | # $(INFO_DEPS), not 'info', because otherwise recursive makes | 
|---|
| 2135 | # get run twice during "make all". | 
|---|
| 2136 | unshift (@all, '$(INFO_DEPS)'); | 
|---|
| 2137 | } | 
|---|
| 2138 | push (@clean, 'aminfo'); | 
|---|
| 2139 | push (@info, '$(INFO_DEPS)'); | 
|---|
| 2140 | push (@dvi, '$(DVIS)'); | 
|---|
| 2141 |  | 
|---|
| 2142 | &define_variable ("INFO_DEPS", join (' ', @info_deps_list)); | 
|---|
| 2143 | &define_variable ("DVIS", join (' ', @dvis_list)); | 
|---|
| 2144 | # This next isn't strictly needed now -- the places that look here | 
|---|
| 2145 | # could easily be changed to look in info_TEXINFOS.  But this is | 
|---|
| 2146 | # probably better, in case noinst_TEXINFOS is ever supported. | 
|---|
| 2147 | &define_variable ("TEXINFOS", &variable_value ('info_TEXINFOS')); | 
|---|
| 2148 |  | 
|---|
| 2149 | # Do some error checking.  Note that this file is not required | 
|---|
| 2150 | # when in Cygnus mode; instead we defined TEXINFO_TEX explicitly | 
|---|
| 2151 | # up above. | 
|---|
| 2152 | &require_file_with_line ('info_TEXINFOS', $FOREIGN, 'texinfo.tex') | 
|---|
| 2153 | if $need_texi_file && ! defined $options{'no-texinfo.tex'}; | 
|---|
| 2154 | } | 
|---|
| 2155 |  | 
|---|
| 2156 | # Handle any man pages. | 
|---|
| 2157 | sub handle_man_pages | 
|---|
| 2158 | { | 
|---|
| 2159 | &am_line_error ('MANS', "\`MANS' is an anachronism; use \`man_MANS'") | 
|---|
| 2160 | if &variable_defined ('MANS'); | 
|---|
| 2161 | return if ! &variable_defined ('man_MANS'); | 
|---|
| 2162 |  | 
|---|
| 2163 | # Find all the sections in use.  We do this by first looking for | 
|---|
| 2164 | # "standard" sections, and then looking for any additional | 
|---|
| 2165 | # sections used in man_MANS. | 
|---|
| 2166 | local ($sect, %sections, %vlist); | 
|---|
| 2167 | # Add more sections as needed. | 
|---|
| 2168 | foreach $sect ('0'..'9', 'n', 'l') | 
|---|
| 2169 | { | 
|---|
| 2170 | if (&variable_defined ('man' . $sect . '_MANS')) | 
|---|
| 2171 | { | 
|---|
| 2172 | $sections{$sect} = 1; | 
|---|
| 2173 | $vlist{'$(man' . $sect . '_MANS)'} = 1; | 
|---|
| 2174 | } | 
|---|
| 2175 | } | 
|---|
| 2176 |  | 
|---|
| 2177 | if (&variable_defined ('man_MANS')) | 
|---|
| 2178 | { | 
|---|
| 2179 | $vlist{'$(man_MANS)'} = 1; | 
|---|
| 2180 | foreach (&variable_value_as_list ('man_MANS', 'all')) | 
|---|
| 2181 | { | 
|---|
| 2182 | # A page like `foo.1c' goes into man1dir. | 
|---|
| 2183 | if (/\.([0-9a-z])([a-z]*)$/) | 
|---|
| 2184 | { | 
|---|
| 2185 | $sections{$1} = 1; | 
|---|
| 2186 | } | 
|---|
| 2187 | } | 
|---|
| 2188 | } | 
|---|
| 2189 |  | 
|---|
| 2190 |  | 
|---|
| 2191 | # Now for each section, generate an install and unintall rule. | 
|---|
| 2192 | # Sort sections so output is deterministic. | 
|---|
| 2193 | local (@namelist); | 
|---|
| 2194 | foreach $sect (sort keys %sections) | 
|---|
| 2195 | { | 
|---|
| 2196 | &define_variable ('man' . $sect . 'dir', '$(mandir)/man' . $sect); | 
|---|
| 2197 | push (@installdirs, '$(DESTDIR)$(mandir)/man' . $sect) | 
|---|
| 2198 | unless defined $options{'no-installman'}; | 
|---|
| 2199 | $output_rules .= &file_contents_with_transform ('s/\@SECTION\@/' | 
|---|
| 2200 | . $sect . '/g;', | 
|---|
| 2201 | 'mans'); | 
|---|
| 2202 | push (@phony, 'install-man' . $sect, 'uninstall-man' . $sect); | 
|---|
| 2203 | push (@namelist, 'install-man' . $sect); | 
|---|
| 2204 | } | 
|---|
| 2205 |  | 
|---|
| 2206 | # We don't really need this, but we use it in case we ever want to | 
|---|
| 2207 | # support noinst_MANS. | 
|---|
| 2208 | &define_variable ("MANS", join (' ', sort keys %vlist)); | 
|---|
| 2209 |  | 
|---|
| 2210 | # Generate list of install dirs. | 
|---|
| 2211 | $output_rules .= ("install-man: \$(MANS)\n" | 
|---|
| 2212 | . "\t\@\$(NORMAL_INSTALL)\n"); | 
|---|
| 2213 | &pretty_print_rule ("\t\$(MAKE) \$(AM_MAKEFLAGS)", "\t ", @namelist); | 
|---|
| 2214 | push (@phony, 'install-man'); | 
|---|
| 2215 |  | 
|---|
| 2216 | $output_rules .= "uninstall-man:\n\t\@\$(NORMAL_UNINSTALL)\n"; | 
|---|
| 2217 | grep ($_ = 'un' . $_, @namelist); | 
|---|
| 2218 | &pretty_print_rule ("\t\$(MAKE) \$(AM_MAKEFLAGS)", "\t ", @namelist); | 
|---|
| 2219 | push (@phony, 'uninstall-man'); | 
|---|
| 2220 |  | 
|---|
| 2221 | $output_vars .= &file_contents ('mans-vars'); | 
|---|
| 2222 |  | 
|---|
| 2223 | if (! defined $options{'no-installman'}) | 
|---|
| 2224 | { | 
|---|
| 2225 | push (@install_data, 'install-man'); | 
|---|
| 2226 | push (@uninstall, 'uninstall-man'); | 
|---|
| 2227 | push (@all, '$(MANS)'); | 
|---|
| 2228 | } | 
|---|
| 2229 | } | 
|---|
| 2230 |  | 
|---|
| 2231 | # Handle DATA variables. | 
|---|
| 2232 | sub handle_data | 
|---|
| 2233 | { | 
|---|
| 2234 | &am_install_var ('-noextra', 'data', 'DATA', 'data', 'sysconf', | 
|---|
| 2235 | 'sharedstate', 'localstate', 'pkgdata', | 
|---|
| 2236 | 'noinst', 'check'); | 
|---|
| 2237 | } | 
|---|
| 2238 |  | 
|---|
| 2239 | # Handle TAGS. | 
|---|
| 2240 | sub handle_tags | 
|---|
| 2241 | { | 
|---|
| 2242 | push (@phony, 'tags'); | 
|---|
| 2243 | local (@tag_deps) = (); | 
|---|
| 2244 | if (&variable_defined ('SUBDIRS')) | 
|---|
| 2245 | { | 
|---|
| 2246 | $output_rules .= ("tags-recursive:\n" | 
|---|
| 2247 | . "\tlist=\'\$(SUBDIRS)\'; for subdir in \$\$list; do \\\n" | 
|---|
| 2248 | # Never fail here if a subdir fails; it | 
|---|
| 2249 | # isn't important. | 
|---|
| 2250 | . "\t  test \"\$\$subdir\" = . || (cd \$\$subdir" | 
|---|
| 2251 | . " && \$(MAKE) \$(AM_MAKEFLAGS) tags); \\\n" | 
|---|
| 2252 | . "\tdone\n"); | 
|---|
| 2253 | push (@tag_deps, 'tags-recursive'); | 
|---|
| 2254 | push (@phony, 'tags-recursive'); | 
|---|
| 2255 | } | 
|---|
| 2256 |  | 
|---|
| 2257 | if (&saw_sources_p (1) | 
|---|
| 2258 | || &variable_defined ('ETAGS_ARGS') | 
|---|
| 2259 | || @tag_deps) | 
|---|
| 2260 | { | 
|---|
| 2261 | local ($xform) = ''; | 
|---|
| 2262 | local ($one_hdr); | 
|---|
| 2263 | foreach $one_hdr (@config_headers) | 
|---|
| 2264 | { | 
|---|
| 2265 | if ($relative_dir eq &dirname ($one_hdr)) | 
|---|
| 2266 | { | 
|---|
| 2267 | # The config header is in this directory.  So require it. | 
|---|
| 2268 | local ($var); | 
|---|
| 2269 | ($var = &basename ($one_hdr)) =~ s/(\W)/\\$1/g; | 
|---|
| 2270 | $xform .= ' ' if $xform; | 
|---|
| 2271 | $xform .= $var; | 
|---|
| 2272 | } | 
|---|
| 2273 | } | 
|---|
| 2274 | $xform = ('s/\@CONFIG\@/' . $xform . '/;' | 
|---|
| 2275 | . 's/\@DIRS\@/' . join (' ', @tag_deps) . '/;'); | 
|---|
| 2276 |  | 
|---|
| 2277 | if (&variable_defined ('SUBDIRS')) | 
|---|
| 2278 | { | 
|---|
| 2279 | $xform .= 's/^SUBDIRS//;'; | 
|---|
| 2280 | } | 
|---|
| 2281 | else | 
|---|
| 2282 | { | 
|---|
| 2283 | $xform .= 's/^SUBDIRS.*$//;'; | 
|---|
| 2284 | } | 
|---|
| 2285 |  | 
|---|
| 2286 | $output_rules .= &file_contents_with_transform ($xform, 'tags'); | 
|---|
| 2287 | $output_rules .= &file_contents ('tags-clean'); | 
|---|
| 2288 | push (@clean, 'tags'); | 
|---|
| 2289 | &push_phony_cleaners ('tags'); | 
|---|
| 2290 | &examine_variable ('TAGS_DEPENDENCIES'); | 
|---|
| 2291 | } | 
|---|
| 2292 | elsif (&variable_defined ('TAGS_DEPENDENCIES')) | 
|---|
| 2293 | { | 
|---|
| 2294 | &am_line_error ('TAGS_DEPENDENCIES', | 
|---|
| 2295 | "doesn't make sense to define \`TAGS_DEPENDENCIES' without sources or \`ETAGS_ARGS'"); | 
|---|
| 2296 | } | 
|---|
| 2297 | else | 
|---|
| 2298 | { | 
|---|
| 2299 | # Every Makefile must define some sort of TAGS rule. | 
|---|
| 2300 | # Otherwise, it would be possible for a top-level "make TAGS" | 
|---|
| 2301 | # to fail because some subdirectory failed. | 
|---|
| 2302 | $output_rules .= "tags: TAGS\nTAGS:\n\n"; | 
|---|
| 2303 | } | 
|---|
| 2304 | } | 
|---|
| 2305 |  | 
|---|
| 2306 | # Handle multilib support. | 
|---|
| 2307 | sub handle_multilib | 
|---|
| 2308 | { | 
|---|
| 2309 | return unless $seen_multilib; | 
|---|
| 2310 |  | 
|---|
| 2311 | $output_rules .= &file_contents ('multilib.am'); | 
|---|
| 2312 | &push_phony_cleaners ('multi'); | 
|---|
| 2313 | push (@phony, 'all-multi', 'install-multi'); | 
|---|
| 2314 | } | 
|---|
| 2315 |  | 
|---|
| 2316 | # Worker for handle_dist. | 
|---|
| 2317 | sub handle_dist_worker | 
|---|
| 2318 | { | 
|---|
| 2319 | local ($makefile) = @_; | 
|---|
| 2320 |  | 
|---|
| 2321 | $output_rules .= 'distdir: $(DISTFILES)' . "\n"; | 
|---|
| 2322 |  | 
|---|
| 2323 | # Initialization; only at top level. | 
|---|
| 2324 | if ($relative_dir eq '.') | 
|---|
| 2325 | { | 
|---|
| 2326 | if (defined $options{'check-news'}) | 
|---|
| 2327 | { | 
|---|
| 2328 | # For Gnits users, this is pretty handy.  Look at 15 lines | 
|---|
| 2329 | # in case some explanatory text is desirable. | 
|---|
| 2330 | $output_rules .= '  @if sed 15q $(srcdir)/NEWS | fgrep -e "$(VERSION)" > /dev/null; then :; else \\ | 
|---|
| 2331 | echo "NEWS not updated; not releasing" 1>&2; \\ | 
|---|
| 2332 | exit 1; \\ | 
|---|
| 2333 | fi | 
|---|
| 2334 | '; | 
|---|
| 2335 | } | 
|---|
| 2336 |  | 
|---|
| 2337 |  | 
|---|
| 2338 | # Create dist directory. | 
|---|
| 2339 | $output_rules .= ("\t-rm -rf \$(distdir)\n" | 
|---|
| 2340 | . "\tmkdir \$(distdir)\n" | 
|---|
| 2341 | . "\t-chmod 777 \$(distdir)\n"); | 
|---|
| 2342 | } | 
|---|
| 2343 |  | 
|---|
| 2344 | # Only run automake in `dist' target if --include-deps and | 
|---|
| 2345 | # `no-dependencies' not specified.  That way the recipient of a | 
|---|
| 2346 | # distribution can run "make dist" and not need Automake.  You | 
|---|
| 2347 | # might be wondering why we run automake once for each directory | 
|---|
| 2348 | # we distribute, instead of running it once at the top level.  The | 
|---|
| 2349 | # answer is that we want to run automake after the dependencies | 
|---|
| 2350 | # have been generated.  This occurs when "make" is run in the | 
|---|
| 2351 | # subdir.  So automake must be run after make has updated the | 
|---|
| 2352 | # Makefile, which means that it must run once per directory. | 
|---|
| 2353 | if ($use_dependencies) | 
|---|
| 2354 | { | 
|---|
| 2355 | $output_rules .= | 
|---|
| 2356 | ( | 
|---|
| 2357 | # There are several directories we need to know about | 
|---|
| 2358 | # when rebuilding the Makefile.ins.  They are: | 
|---|
| 2359 | #   here - The absolute path to our topmost build directory. | 
|---|
| 2360 | #   top_distdir - The absolute path to the top of our dist | 
|---|
| 2361 | #                 hierarchy. | 
|---|
| 2362 | #   distdir - The path to our sub-part of the dist hierarchy. | 
|---|
| 2363 | # If this directory is the topmost directory, we set | 
|---|
| 2364 | # top_distdir from distdir; that lets us pass in distdir | 
|---|
| 2365 | # from an enclosing package. | 
|---|
| 2366 | "\t" . 'here=`cd $(top_builddir) && pwd`; ' . "\\\n" | 
|---|
| 2367 | . "\t" . 'top_distdir=`cd $(' | 
|---|
| 2368 | . (($relative_dir eq '.') ? 'distdir' : 'top_distdir') | 
|---|
| 2369 | . ') && pwd`; ' . "\\\n" | 
|---|
| 2370 | . "\t" . 'distdir=`cd $(distdir) && pwd`; ' . "\\\n" | 
|---|
| 2371 | . "\tcd \$(top_srcdir) \\\n" | 
|---|
| 2372 | . "\t  && \$(AUTOMAKE) --include-deps --build-dir=\$\$here --srcdir-name=\$(top_srcdir) --output-dir=\$\$top_distdir " | 
|---|
| 2373 | # Set strictness of output. | 
|---|
| 2374 | . ($cygnus_mode ? '--cygnus' : ('--' . $strictness_name)) | 
|---|
| 2375 | . ($cmdline_use_dependencies ? '' : ' --include-deps') | 
|---|
| 2376 | . " " . $makefile . "\n" | 
|---|
| 2377 | ); | 
|---|
| 2378 | } | 
|---|
| 2379 |  | 
|---|
| 2380 | # Scan EXTRA_DIST to see if we need to distribute anything from a | 
|---|
| 2381 | # subdir.  If so, add it to the list.  I didn't want to do this | 
|---|
| 2382 | # originally, but there were so many requests that I finally | 
|---|
| 2383 | # relented. | 
|---|
| 2384 | local (@dist_dirs); | 
|---|
| 2385 | if (&variable_defined ('EXTRA_DIST')) | 
|---|
| 2386 | { | 
|---|
| 2387 | # FIXME: This should be fixed to work with conditionals.  That | 
|---|
| 2388 | # will require only making the entries in @dist_dirs under the | 
|---|
| 2389 | # appropriate condition.  This is meaningful if the nature of | 
|---|
| 2390 | # the distribution should depend upon the configure options | 
|---|
| 2391 | # used. | 
|---|
| 2392 | foreach (&variable_value_as_list ('EXTRA_DIST', '')) | 
|---|
| 2393 | { | 
|---|
| 2394 | next if /^\@.*\@$/; | 
|---|
| 2395 | next unless s,/+[^/]+$,,; | 
|---|
| 2396 | push (@dist_dirs, $_) | 
|---|
| 2397 | unless $_ eq '.'; | 
|---|
| 2398 | } | 
|---|
| 2399 | } | 
|---|
| 2400 | if (@dist_dirs) | 
|---|
| 2401 | { | 
|---|
| 2402 | # Prepend $(distdir) to each directory given.  Doing it via a | 
|---|
| 2403 | # hash lets us ensure that each directory is used only once. | 
|---|
| 2404 | local (%dhash); | 
|---|
| 2405 | grep ($dhash{'$(distdir)/' . $_} = 1, @dist_dirs); | 
|---|
| 2406 | $output_rules .= "\t"; | 
|---|
| 2407 | &pretty_print_rule ('$(mkinstalldirs)', "\t   ", sort keys %dhash); | 
|---|
| 2408 | } | 
|---|
| 2409 |  | 
|---|
| 2410 | # In loop, test for file existence because sometimes a file gets | 
|---|
| 2411 | # included in DISTFILES twice.  For example this happens when a | 
|---|
| 2412 | # single source file is used in building more than one program. | 
|---|
| 2413 | # Also, there are situations in which "ln" can fail.  For instance | 
|---|
| 2414 | # a file to distribute could actually be a cross-filesystem | 
|---|
| 2415 | # symlink -- this can easily happen if "gettextize" was run on the | 
|---|
| 2416 | # distribution. | 
|---|
| 2417 | $output_rules .= "\t\@for file in \$(DISTFILES); do \\\n"; | 
|---|
| 2418 | if ($cygnus_mode) | 
|---|
| 2419 | { | 
|---|
| 2420 | $output_rules .= "\t  if test -f \$\$file; then d=.; else d=\$(srcdir); fi; \\\n"; | 
|---|
| 2421 | } | 
|---|
| 2422 | else | 
|---|
| 2423 | { | 
|---|
| 2424 | $output_rules .= "\t  d=\$(srcdir); \\\n"; | 
|---|
| 2425 | } | 
|---|
| 2426 | $output_rules .= ("\t  if test -d \$\$d/\$\$file; then \\\n" | 
|---|
| 2427 | . "\t    cp -pr \$\$d/\$\$file \$(distdir)/\$\$file; \\\n" | 
|---|
| 2428 | . "\t  else \\\n" | 
|---|
| 2429 | . "\t    test -f \$(distdir)/\$\$file \\\n" | 
|---|
| 2430 | . "\t    || ln \$\$d/\$\$file \$(distdir)/\$\$file 2> /dev/null \\\n" | 
|---|
| 2431 | . "\t    || cp -p \$\$d/\$\$file \$(distdir)/\$\$file || :; \\\n" | 
|---|
| 2432 | . "\t  fi; \\\n" | 
|---|
| 2433 | . "\tdone\n"); | 
|---|
| 2434 |  | 
|---|
| 2435 | # If we have SUBDIRS, create all dist subdirectories and do | 
|---|
| 2436 | # recursive build. | 
|---|
| 2437 | if (&variable_defined ('SUBDIRS')) | 
|---|
| 2438 | { | 
|---|
| 2439 | # If SUBDIRS is conditionally defined, then set DIST_SUBDIRS | 
|---|
| 2440 | # to all possible directories, and use it.  If DIST_SUBDIRS is | 
|---|
| 2441 | # defined, just use it. | 
|---|
| 2442 | local ($dist_subdir_name); | 
|---|
| 2443 | if (&variable_conditions ('SUBDIRS') | 
|---|
| 2444 | || &variable_defined ('DIST_SUBDIRS')) | 
|---|
| 2445 | { | 
|---|
| 2446 | $dist_subdir_name = 'DIST_SUBDIRS'; | 
|---|
| 2447 | if (! &variable_defined ('DIST_SUBDIRS')) | 
|---|
| 2448 | { | 
|---|
| 2449 | &define_pretty_variable ('DIST_SUBDIRS', '', | 
|---|
| 2450 | &variable_value_as_list ('SUBDIRS', | 
|---|
| 2451 | 'all')); | 
|---|
| 2452 | } | 
|---|
| 2453 | } | 
|---|
| 2454 | else | 
|---|
| 2455 | { | 
|---|
| 2456 | $dist_subdir_name = 'SUBDIRS'; | 
|---|
| 2457 | } | 
|---|
| 2458 |  | 
|---|
| 2459 | # Test for directory existence here because previous automake | 
|---|
| 2460 | # invocation might have created some directories.  Note that | 
|---|
| 2461 | # we explicitly set distdir for the subdir make; that lets us | 
|---|
| 2462 | # mix-n-match many automake-using packages into one large | 
|---|
| 2463 | # package, and have "dist" at the top level do the right | 
|---|
| 2464 | # thing.  If we're in the topmost directory, then we use | 
|---|
| 2465 | # `distdir' instead of `top_distdir'; this lets us work | 
|---|
| 2466 | # correctly with an enclosing package. | 
|---|
| 2467 | $output_rules .= | 
|---|
| 2468 | ("\t" . 'for subdir in $(' . $dist_subdir_name . '); do ' . "\\\n" | 
|---|
| 2469 | . "\t" . '  if test "$$subdir" = .; then :; else ' . "\\\n" | 
|---|
| 2470 | . "\t" . '    test -d $(distdir)/$$subdir ' . "\\\n" | 
|---|
| 2471 | . "\t" . '    || mkdir $(distdir)/$$subdir ' . "\\\n" | 
|---|
| 2472 | . "\t" . '    || exit 1; ' . "\\\n" | 
|---|
| 2473 | . "\t" . '    chmod 777 $(distdir)/$$subdir; ' . "\\\n" | 
|---|
| 2474 | . "\t" . '    (cd $$subdir' | 
|---|
| 2475 | . ' && $(MAKE) $(AM_MAKEFLAGS) top_distdir=../$(' | 
|---|
| 2476 | . (($relative_dir eq '.') ? 'distdir' : 'top_distdir') | 
|---|
| 2477 | . ') distdir=../$(distdir)/$$subdir distdir) ' . "\\\n" | 
|---|
| 2478 | . "\t" . '      || exit 1; ' . "\\\n" | 
|---|
| 2479 | . "\t" . '  fi; ' . "\\\n" | 
|---|
| 2480 | . "\tdone\n"); | 
|---|
| 2481 | } | 
|---|
| 2482 |  | 
|---|
| 2483 | # If the target `dist-hook' exists, make sure it is run.  This | 
|---|
| 2484 | # allows users to do random weird things to the distribution | 
|---|
| 2485 | # before it is packaged up. | 
|---|
| 2486 | push (@dist_targets, 'dist-hook') if &target_defined ('dist-hook'); | 
|---|
| 2487 |  | 
|---|
| 2488 | local ($targ); | 
|---|
| 2489 | foreach $targ (@dist_targets) | 
|---|
| 2490 | { | 
|---|
| 2491 | # We must explicitly set distdir and top_distdir for these | 
|---|
| 2492 | # sub-makes. | 
|---|
| 2493 | $output_rules .= ("\t\$(MAKE) \$(AM_MAKEFLAGS)" | 
|---|
| 2494 | . " top_distdir=\"\$(top_distdir)\"" | 
|---|
| 2495 | . " distdir=\"\$(distdir)\" $targ\n"); | 
|---|
| 2496 | } | 
|---|
| 2497 |  | 
|---|
| 2498 | push (@phony, 'distdir'); | 
|---|
| 2499 | } | 
|---|
| 2500 |  | 
|---|
| 2501 | # Handle 'dist' target. | 
|---|
| 2502 | sub handle_dist | 
|---|
| 2503 | { | 
|---|
| 2504 | local ($makefile) = @_; | 
|---|
| 2505 |  | 
|---|
| 2506 | # Set up maint_charset. | 
|---|
| 2507 | $local_maint_charset = &variable_value ('MAINT_CHARSET') | 
|---|
| 2508 | if &variable_defined ('MAINT_CHARSET'); | 
|---|
| 2509 | $maint_charset = $local_maint_charset | 
|---|
| 2510 | if $relative_dir eq '.'; | 
|---|
| 2511 |  | 
|---|
| 2512 | if (&variable_defined ('DIST_CHARSET')) | 
|---|
| 2513 | { | 
|---|
| 2514 | &am_line_error ('DIST_CHARSET', | 
|---|
| 2515 | "DIST_CHARSET defined but no MAINT_CHARSET defined") | 
|---|
| 2516 | if ! $local_maint_charset; | 
|---|
| 2517 | if ($relative_dir eq '.') | 
|---|
| 2518 | { | 
|---|
| 2519 | $dist_charset = &variable_value ('DIST_CHARSET') | 
|---|
| 2520 | } | 
|---|
| 2521 | else | 
|---|
| 2522 | { | 
|---|
| 2523 | &am_line_error ('DIST_CHARSET', | 
|---|
| 2524 | "DIST_CHARSET can only be defined at top level"); | 
|---|
| 2525 | } | 
|---|
| 2526 | } | 
|---|
| 2527 |  | 
|---|
| 2528 | # Look for common files that should be included in distribution. | 
|---|
| 2529 | local ($cfile); | 
|---|
| 2530 | foreach $cfile (@common_files) | 
|---|
| 2531 | { | 
|---|
| 2532 | if (-f ($relative_dir . "/" . $cfile)) | 
|---|
| 2533 | { | 
|---|
| 2534 | &push_dist_common ($cfile); | 
|---|
| 2535 | } | 
|---|
| 2536 | } | 
|---|
| 2537 |  | 
|---|
| 2538 | # Always require configure.ac and configure at top level, even if | 
|---|
| 2539 | # they don't exist.  This is especially important for configure, | 
|---|
| 2540 | # since it won't be created until autoconf is run -- which might | 
|---|
| 2541 | # be after automake is run. | 
|---|
| 2542 | &push_dist_common ($configure_ac, 'configure') | 
|---|
| 2543 | if $relative_dir eq '.'; | 
|---|
| 2544 |  | 
|---|
| 2545 | # Keys of %dist_common are names of files to distributed.  We put | 
|---|
| 2546 | # README first because it then becomes easier to make a | 
|---|
| 2547 | # Usenet-compliant shar file (in these, README must be first). | 
|---|
| 2548 | # FIXME: do more ordering of files here. | 
|---|
| 2549 | local (@coms); | 
|---|
| 2550 | if (defined $dist_common{'README'}) | 
|---|
| 2551 | { | 
|---|
| 2552 | push (@coms, 'README'); | 
|---|
| 2553 | delete $dist_common{'README'}; | 
|---|
| 2554 | } | 
|---|
| 2555 | push (@coms, sort keys %dist_common); | 
|---|
| 2556 |  | 
|---|
| 2557 | &define_pretty_variable ("DIST_COMMON", '', @coms); | 
|---|
| 2558 | $output_vars .= "\n"; | 
|---|
| 2559 |  | 
|---|
| 2560 | # Some boilerplate. | 
|---|
| 2561 | $output_vars .= &file_contents ('dist-vars') . "\n"; | 
|---|
| 2562 | &define_variable ('TAR', $TAR); | 
|---|
| 2563 | &define_variable ('GZIP_ENV', '--best'); | 
|---|
| 2564 |  | 
|---|
| 2565 | # Put these things in rules section so it is easier for whoever | 
|---|
| 2566 | # reads Makefile.in. | 
|---|
| 2567 | if (! &variable_defined ('distdir')) | 
|---|
| 2568 | { | 
|---|
| 2569 | if ($relative_dir eq '.') | 
|---|
| 2570 | { | 
|---|
| 2571 | $output_rules .= "\n" . 'distdir = $(PACKAGE)-$(VERSION)' . "\n"; | 
|---|
| 2572 | } | 
|---|
| 2573 | else | 
|---|
| 2574 | { | 
|---|
| 2575 | $output_rules .= ("\n" | 
|---|
| 2576 | . 'distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)' | 
|---|
| 2577 | . "\n"); | 
|---|
| 2578 | } | 
|---|
| 2579 | } | 
|---|
| 2580 | if ($relative_dir eq '.') | 
|---|
| 2581 | { | 
|---|
| 2582 | $output_rules .= "top_distdir = \$(distdir)\n\n"; | 
|---|
| 2583 | } | 
|---|
| 2584 | else | 
|---|
| 2585 | { | 
|---|
| 2586 | $output_rules .= "\nsubdir = " . $relative_dir . "\n\n"; | 
|---|
| 2587 | } | 
|---|
| 2588 |  | 
|---|
| 2589 | # Generate 'dist' target, and maybe dist-shar / dist-zip / dist-tarZ. | 
|---|
| 2590 | if ($relative_dir eq '.') | 
|---|
| 2591 | { | 
|---|
| 2592 | # Rule to check whether a distribution is viable. | 
|---|
| 2593 | $output_rules .= ('# This target untars the dist file and tries a VPATH configuration.  Then | 
|---|
| 2594 | # it guarantees that the distribution is self-contained by making another | 
|---|
| 2595 | # tarfile. | 
|---|
| 2596 | distcheck: dist | 
|---|
| 2597 | -rm -rf $(distdir) | 
|---|
| 2598 | GZIP=$(GZIP_ENV) $(TAR) zxf $(distdir).tar.gz | 
|---|
| 2599 | mkdir $(distdir)/=build | 
|---|
| 2600 | mkdir $(distdir)/=inst | 
|---|
| 2601 | dc_install_base=`cd $(distdir)/=inst && pwd`; \\' | 
|---|
| 2602 | . (&target_defined ('distcheck-hook') | 
|---|
| 2603 | ? ("\n\t\$(MAKE) \$(AM_MAKEFLAGS)" | 
|---|
| 2604 | . " distcheck-hook; \\") | 
|---|
| 2605 | : '') | 
|---|
| 2606 | . ' | 
|---|
| 2607 | cd $(distdir)/=build \\ | 
|---|
| 2608 | && ../configure ' | 
|---|
| 2609 |  | 
|---|
| 2610 | . ($seen_gettext ? '--with-included-gettext ' : '') | 
|---|
| 2611 | . '--srcdir=.. --prefix=$$dc_install_base \\ | 
|---|
| 2612 | && $(MAKE) $(AM_MAKEFLAGS) \\ | 
|---|
| 2613 | && $(MAKE) $(AM_MAKEFLAGS) dvi \\ | 
|---|
| 2614 | && $(MAKE) $(AM_MAKEFLAGS) check \\ | 
|---|
| 2615 | && $(MAKE) $(AM_MAKEFLAGS) install \\ | 
|---|
| 2616 | && $(MAKE) $(AM_MAKEFLAGS) installcheck \\ | 
|---|
| 2617 | && $(MAKE) $(AM_MAKEFLAGS) dist | 
|---|
| 2618 | -rm -rf $(distdir) | 
|---|
| 2619 | @banner="$(distdir).tar.gz is ready for distribution"; \\ | 
|---|
| 2620 | dashes=`echo "$$banner" | sed s/./=/g`; \\ | 
|---|
| 2621 | echo "$$dashes"; \\ | 
|---|
| 2622 | echo "$$banner"; \\ | 
|---|
| 2623 | echo "$$dashes" | 
|---|
| 2624 | '); | 
|---|
| 2625 |  | 
|---|
| 2626 | local ($dist_all) = ('dist-all: distdir' . "\n" | 
|---|
| 2627 | . $dist_header); | 
|---|
| 2628 | local ($curs); | 
|---|
| 2629 | foreach $curs ('dist', 'dist-shar', 'dist-zip', 'dist-tarZ') | 
|---|
| 2630 | { | 
|---|
| 2631 | if (defined $options{$curs} || $curs eq 'dist') | 
|---|
| 2632 | { | 
|---|
| 2633 | $output_rules .= ($curs . ': distdir' . "\n" | 
|---|
| 2634 | . $dist_header | 
|---|
| 2635 | . $dist{$curs} | 
|---|
| 2636 | . $dist_trailer); | 
|---|
| 2637 | $dist_all .= $dist{$curs}; | 
|---|
| 2638 | } | 
|---|
| 2639 | } | 
|---|
| 2640 | $output_rules .= $dist_all . $dist_trailer; | 
|---|
| 2641 | } | 
|---|
| 2642 |  | 
|---|
| 2643 | # Generate distdir target. | 
|---|
| 2644 | &handle_dist_worker ($makefile); | 
|---|
| 2645 | } | 
|---|
| 2646 |  | 
|---|
| 2647 | # Scan a single dependency file and rewrite the dependencies as | 
|---|
| 2648 | # appropriate.  Essentially this means: | 
|---|
| 2649 | # * Clean out absolute dependencies which are not desirable. | 
|---|
| 2650 | # * Rewrite other dependencies to be relative to $(top_srcdir). | 
|---|
| 2651 | sub scan_dependency_file | 
|---|
| 2652 | { | 
|---|
| 2653 | local ($depfile) = @_; | 
|---|
| 2654 |  | 
|---|
| 2655 | if (! open (DEP_FILE, $depfile)) | 
|---|
| 2656 | { | 
|---|
| 2657 | &am_error ("couldn't open \`$depfile': $!"); | 
|---|
| 2658 | return; | 
|---|
| 2659 | } | 
|---|
| 2660 | print "automake: reading $depfile\n" if $verbose; | 
|---|
| 2661 |  | 
|---|
| 2662 | # Sometimes it is necessary to omit some dependencies. | 
|---|
| 2663 | local (%omit) = %omit_dependencies; | 
|---|
| 2664 | if (&variable_defined ('OMIT_DEPENDENCIES')) | 
|---|
| 2665 | { | 
|---|
| 2666 | # FIXME: Doesn't work with conditionals.  I'm not sure if this | 
|---|
| 2667 | # matters. | 
|---|
| 2668 | grep ($omit{$_} = 1, | 
|---|
| 2669 | &variable_value_as_list ('OMIT_DEPENDENCIES', '')); | 
|---|
| 2670 | } | 
|---|
| 2671 |  | 
|---|
| 2672 | local ($first_line) = 1; | 
|---|
| 2673 | local ($last_line) = 0; | 
|---|
| 2674 | local ($target, @dependencies); | 
|---|
| 2675 | local ($one_dep, $xform); | 
|---|
| 2676 | local ($just_file); | 
|---|
| 2677 |  | 
|---|
| 2678 | local ($srcdir_rx, $fixup_rx); | 
|---|
| 2679 | ($fixup_rx = $srcdir_name . '/' . $relative_dir . '/') | 
|---|
| 2680 | =~ s/(\W)/\\$1/g; | 
|---|
| 2681 | ($srcdir_rx = $srcdir_name . '/') =~ s/(\W)/\\$1/g; | 
|---|
| 2682 |  | 
|---|
| 2683 | local ($rewrite_builddir) = (($top_builddir eq '.') | 
|---|
| 2684 | ? '' | 
|---|
| 2685 | : $top_builddir . '/'); | 
|---|
| 2686 |  | 
|---|
| 2687 | while (<DEP_FILE>) | 
|---|
| 2688 | { | 
|---|
| 2689 | last if $last_line; | 
|---|
| 2690 | next if (/$WHITE_PATTERN/o); | 
|---|
| 2691 | chop; | 
|---|
| 2692 | if (! s/\\$//) | 
|---|
| 2693 | { | 
|---|
| 2694 | # No trailing "\" means this should be the last line of | 
|---|
| 2695 | # the first target.  We can have multiple targets due to | 
|---|
| 2696 | # the "deleted header file" fix.  For the generated | 
|---|
| 2697 | # Makefile we simply skip these fake targets. | 
|---|
| 2698 | $last_line = 1; | 
|---|
| 2699 | } | 
|---|
| 2700 |  | 
|---|
| 2701 | if ($first_line) | 
|---|
| 2702 | { | 
|---|
| 2703 | if (! /^([^:]+:)(.+)$/) | 
|---|
| 2704 | { | 
|---|
| 2705 | bad_format: | 
|---|
| 2706 | &am_error ("\`$depfile' has incorrect format"); | 
|---|
| 2707 | close (DEP_FILE); | 
|---|
| 2708 | return; | 
|---|
| 2709 | } | 
|---|
| 2710 |  | 
|---|
| 2711 | $_ = $2; | 
|---|
| 2712 | # Make sure to strip the .P file from the target. | 
|---|
| 2713 | ($target = $1) =~ s, *\.deps/[^.]+\.P,,; | 
|---|
| 2714 |  | 
|---|
| 2715 | $first_line = 0; | 
|---|
| 2716 | } | 
|---|
| 2717 |  | 
|---|
| 2718 | foreach $one_dep (split (' ', $_)) | 
|---|
| 2719 | { | 
|---|
| 2720 | ($just_file = $one_dep) =~ s,^.*/,,; | 
|---|
| 2721 | next if defined $omit{$just_file}; | 
|---|
| 2722 |  | 
|---|
| 2723 | if ($one_dep =~ /^$fixup_rx/) | 
|---|
| 2724 | { | 
|---|
| 2725 | # The dependency points to the current directory in | 
|---|
| 2726 | # some way. | 
|---|
| 2727 | ($xform = $one_dep) =~ s/^$fixup_rx//; | 
|---|
| 2728 | push (@dependencies, $xform); | 
|---|
| 2729 | } | 
|---|
| 2730 | elsif ($one_dep =~ /^$srcdir_rx/) | 
|---|
| 2731 | { | 
|---|
| 2732 | # The dependency is in some other directory in the package. | 
|---|
| 2733 | ($xform = $one_dep) =~ s/^$srcdir_rx/$rewrite_builddir/; | 
|---|
| 2734 | push (@dependencies, $xform); | 
|---|
| 2735 | } | 
|---|
| 2736 | elsif ($one_dep =~ /^\// || $one_dep =~ /^[A-Za-z]:\\/) | 
|---|
| 2737 | { | 
|---|
| 2738 | # Absolute path; ignore. | 
|---|
| 2739 | } | 
|---|
| 2740 | else | 
|---|
| 2741 | { | 
|---|
| 2742 | # Anything else is assumed to be correct. | 
|---|
| 2743 | push (@dependencies, $one_dep); | 
|---|
| 2744 | } | 
|---|
| 2745 | } | 
|---|
| 2746 | } | 
|---|
| 2747 |  | 
|---|
| 2748 | &pretty_print_rule ($target, "\t", @dependencies); | 
|---|
| 2749 |  | 
|---|
| 2750 | close (DEP_FILE); | 
|---|
| 2751 | } | 
|---|
| 2752 |  | 
|---|
| 2753 | # Handle auto-dependency code. | 
|---|
| 2754 | sub handle_dependencies | 
|---|
| 2755 | { | 
|---|
| 2756 | # Make sure this variable is always marked as used. | 
|---|
| 2757 | &examine_variable ('OMIT_DEPENDENCIES'); | 
|---|
| 2758 |  | 
|---|
| 2759 | if ($use_dependencies) | 
|---|
| 2760 | { | 
|---|
| 2761 | # Include GNU-make-specific auto-dep code.  Don't include it | 
|---|
| 2762 | # if DEP_FILES would be empty. | 
|---|
| 2763 | if (&saw_sources_p (0) && keys %dep_files) | 
|---|
| 2764 | { | 
|---|
| 2765 | &define_pretty_variable ('DEP_FILES', '', sort keys %dep_files); | 
|---|
| 2766 | $output_rules .= &file_contents ('depend'); | 
|---|
| 2767 | push (@clean, 'depend'); | 
|---|
| 2768 | &push_phony_cleaners ('depend'); | 
|---|
| 2769 | # FIXME: this should use another property of the language | 
|---|
| 2770 | # instead of being hard-coded. | 
|---|
| 2771 | $output_rules .= | 
|---|
| 2772 | &file_contents_with_transform ('s/\@EXT\@/.c/g;' | 
|---|
| 2773 | . 's/\@PFX\@//g;', | 
|---|
| 2774 | 'depend2'); | 
|---|
| 2775 | local ($ext); | 
|---|
| 2776 | foreach $ext (&objc_extensions) | 
|---|
| 2777 | { | 
|---|
| 2778 | $output_rules .= | 
|---|
| 2779 | &file_contents_with_transform ('s/\@EXT\@/' . $ext . '/g;' | 
|---|
| 2780 | . 's/\@PFX\@/OBJC/g;', | 
|---|
| 2781 | 'depend2'); | 
|---|
| 2782 | } | 
|---|
| 2783 | foreach $ext (&cxx_extensions) | 
|---|
| 2784 | { | 
|---|
| 2785 | $output_rules .= | 
|---|
| 2786 | &file_contents_with_transform ('s/\@EXT\@/' . $ext .'/g;' | 
|---|
| 2787 | . 's/\@PFX\@/CXX/g;', | 
|---|
| 2788 | 'depend2'); | 
|---|
| 2789 | } | 
|---|
| 2790 | } | 
|---|
| 2791 | } | 
|---|
| 2792 | elsif ($build_directory ne '') | 
|---|
| 2793 | { | 
|---|
| 2794 | # Include any auto-generated deps that are present.  Note that | 
|---|
| 2795 | # $build_directory ends in a "/". | 
|---|
| 2796 | if (-d ($build_directory . $relative_dir . "/.deps")) | 
|---|
| 2797 | { | 
|---|
| 2798 | local ($depfile); | 
|---|
| 2799 |  | 
|---|
| 2800 | foreach $depfile (&my_glob ($build_directory | 
|---|
| 2801 | . $relative_dir . "/.deps/*.P")) | 
|---|
| 2802 | { | 
|---|
| 2803 | &scan_dependency_file ($depfile); | 
|---|
| 2804 | } | 
|---|
| 2805 |  | 
|---|
| 2806 | $output_rules .= "\n"; | 
|---|
| 2807 | } | 
|---|
| 2808 | } | 
|---|
| 2809 | } | 
|---|
| 2810 |  | 
|---|
| 2811 | # Handle subdirectories. | 
|---|
| 2812 | sub handle_subdirs | 
|---|
| 2813 | { | 
|---|
| 2814 | return if ! &variable_defined ('SUBDIRS'); | 
|---|
| 2815 |  | 
|---|
| 2816 | # Make sure each directory mentioned in SUBDIRS actually exists. | 
|---|
| 2817 | local ($dir); | 
|---|
| 2818 | foreach $dir (&variable_value_as_list ('SUBDIRS', 'all')) | 
|---|
| 2819 | { | 
|---|
| 2820 | # Skip directories substituted by configure. | 
|---|
| 2821 | next if $dir =~ /^\@.*\@$/; | 
|---|
| 2822 |  | 
|---|
| 2823 | if (! -d $am_relative_dir . '/' . $dir) | 
|---|
| 2824 | { | 
|---|
| 2825 | &am_line_error ('SUBDIRS', | 
|---|
| 2826 | "required directory $am_relative_dir/$dir does not exist"); | 
|---|
| 2827 | next; | 
|---|
| 2828 | } | 
|---|
| 2829 |  | 
|---|
| 2830 | &am_line_error ('SUBDIRS', "directory should not contain \`/'") | 
|---|
| 2831 | if $dir =~ /\//; | 
|---|
| 2832 | } | 
|---|
| 2833 |  | 
|---|
| 2834 | local ($xform) = ('s/\@INSTALLINFO\@/' . | 
|---|
| 2835 | (defined $options{'no-installinfo'} | 
|---|
| 2836 | ? 'install-info-recursive' | 
|---|
| 2837 | : '') | 
|---|
| 2838 | . '/;'); | 
|---|
| 2839 | $output_rules .= &file_contents_with_transform ($xform, 'subdirs'); | 
|---|
| 2840 |  | 
|---|
| 2841 | # Push a bunch of phony targets. | 
|---|
| 2842 | local ($phonies); | 
|---|
| 2843 | foreach $phonies ('-data', '-exec', 'dirs') | 
|---|
| 2844 | { | 
|---|
| 2845 | push (@phony, 'install' . $phonies . '-recursive'); | 
|---|
| 2846 | push (@phony, 'uninstall' . $phonies . '-recursive'); | 
|---|
| 2847 | } | 
|---|
| 2848 | foreach $phonies ('all', 'check', 'installcheck', 'info', 'dvi') | 
|---|
| 2849 | { | 
|---|
| 2850 | push (@phony, $phonies . '-recursive'); | 
|---|
| 2851 | } | 
|---|
| 2852 | &push_phony_cleaners ('recursive'); | 
|---|
| 2853 |  | 
|---|
| 2854 | $recursive_install = 1; | 
|---|
| 2855 | } | 
|---|
| 2856 |  | 
|---|
| 2857 | # Handle aclocal.m4. | 
|---|
| 2858 | sub handle_aclocal_m4 | 
|---|
| 2859 | { | 
|---|
| 2860 | local ($regen_aclocal) = 0; | 
|---|
| 2861 | if (-f 'aclocal.m4') | 
|---|
| 2862 | { | 
|---|
| 2863 | &define_variable ("ACLOCAL_M4", '$(top_srcdir)/aclocal.m4'); | 
|---|
| 2864 | &push_dist_common ('aclocal.m4'); | 
|---|
| 2865 |  | 
|---|
| 2866 | if (open (ACLOCAL, '< aclocal.m4')) | 
|---|
| 2867 | { | 
|---|
| 2868 | local ($line); | 
|---|
| 2869 | $line = <ACLOCAL>; | 
|---|
| 2870 | close (ACLOCAL); | 
|---|
| 2871 |  | 
|---|
| 2872 | if ($line =~ 'generated automatically by aclocal') | 
|---|
| 2873 | { | 
|---|
| 2874 | $regen_aclocal = 1; | 
|---|
| 2875 | } | 
|---|
| 2876 | } | 
|---|
| 2877 | } | 
|---|
| 2878 |  | 
|---|
| 2879 | local ($acinclude) = 0; | 
|---|
| 2880 | if (-f 'acinclude.m4') | 
|---|
| 2881 | { | 
|---|
| 2882 | $regen_aclocal = 1; | 
|---|
| 2883 | $acinclude = 1; | 
|---|
| 2884 | } | 
|---|
| 2885 |  | 
|---|
| 2886 | # Note that it might be possible that aclocal.m4 doesn't exist but | 
|---|
| 2887 | # should be auto-generated.  This case probably isn't very | 
|---|
| 2888 | # important. | 
|---|
| 2889 | if ($regen_aclocal) | 
|---|
| 2890 | { | 
|---|
| 2891 | local (@ac_deps) = ( | 
|---|
| 2892 | ($seen_maint_mode | 
|---|
| 2893 | ? "\@MAINTAINER_MODE_TRUE\@" | 
|---|
| 2894 | : "") , | 
|---|
| 2895 | $configure_ac, | 
|---|
| 2896 | ($acinclude ? ' acinclude.m4' : '') | 
|---|
| 2897 | ); | 
|---|
| 2898 |  | 
|---|
| 2899 | # Scan all -I directories for m4 files.  These are our | 
|---|
| 2900 | # dependencies. | 
|---|
| 2901 | if (&variable_defined ('ACLOCAL_AMFLAGS')) | 
|---|
| 2902 | { | 
|---|
| 2903 | local ($examine_next, $amdir) = 0; | 
|---|
| 2904 | foreach $amdir (&variable_value_as_list ('ACLOCAL_AMFLAGS', '')) | 
|---|
| 2905 | { | 
|---|
| 2906 | if ($examine_next) | 
|---|
| 2907 | { | 
|---|
| 2908 | $examine_next = 0; | 
|---|
| 2909 | if ($amdir !~ /^\// && -d $amdir) | 
|---|
| 2910 | { | 
|---|
| 2911 | push (@ac_deps, &my_glob ($amdir . '/*.m4')); | 
|---|
| 2912 | } | 
|---|
| 2913 | } | 
|---|
| 2914 | elsif ($amdir eq '-I') | 
|---|
| 2915 | { | 
|---|
| 2916 | $examine_next = 1; | 
|---|
| 2917 | } | 
|---|
| 2918 | } | 
|---|
| 2919 | } | 
|---|
| 2920 |  | 
|---|
| 2921 | &pretty_print_rule ("\$(ACLOCAL_M4):", "\t\t", @ac_deps); | 
|---|
| 2922 |  | 
|---|
| 2923 | $output_rules .=  ("\t" | 
|---|
| 2924 | . 'cd $(srcdir) && $(ACLOCAL)' | 
|---|
| 2925 | . (&variable_defined ('ACLOCAL_AMFLAGS') | 
|---|
| 2926 | ? ' $(ACLOCAL_AMFLAGS)' : '') | 
|---|
| 2927 | . "\n"); | 
|---|
| 2928 | } | 
|---|
| 2929 | } | 
|---|
| 2930 |  | 
|---|
| 2931 | # Rewrite a list of input files into a form suitable to put on a | 
|---|
| 2932 | # dependency list.  The idea is that if an input file has a directory | 
|---|
| 2933 | # part the same as the current directory, then the directory part is | 
|---|
| 2934 | # simply removed.  But if the directory part is different, then | 
|---|
| 2935 | # $(top_srcdir) is prepended.  Among other things, this is used to | 
|---|
| 2936 | # generate the dependency list for the output files generated by | 
|---|
| 2937 | # AC_OUTPUT.  Consider what the dependencies should look like in this | 
|---|
| 2938 | # case: | 
|---|
| 2939 | #   AC_OUTPUT(src/out:src/in1:lib/in2) | 
|---|
| 2940 | # The first argument, ADD_SRCDIR, is 1 if $(top_srcdir) should be added. | 
|---|
| 2941 | # If 0 then files that require this addition will simply be ignored. | 
|---|
| 2942 | sub rewrite_inputs_into_dependencies | 
|---|
| 2943 | { | 
|---|
| 2944 | local ($add_srcdir, @inputs) = @_; | 
|---|
| 2945 | local ($single, @newinputs); | 
|---|
| 2946 |  | 
|---|
| 2947 | foreach $single (@inputs) | 
|---|
| 2948 | { | 
|---|
| 2949 | if (&dirname ($single) eq $relative_dir) | 
|---|
| 2950 | { | 
|---|
| 2951 | push (@newinputs, &basename ($single)); | 
|---|
| 2952 | } | 
|---|
| 2953 | elsif ($add_srcdir) | 
|---|
| 2954 | { | 
|---|
| 2955 | push (@newinputs, '$(top_srcdir)/' . $single); | 
|---|
| 2956 | } | 
|---|
| 2957 | } | 
|---|
| 2958 |  | 
|---|
| 2959 | return @newinputs; | 
|---|
| 2960 | } | 
|---|
| 2961 |  | 
|---|
| 2962 | # Handle remaking and configure stuff. | 
|---|
| 2963 | # We need the name of the input file, to do proper remaking rules. | 
|---|
| 2964 | sub handle_configure | 
|---|
| 2965 | { | 
|---|
| 2966 | local ($local, $input, @secondary_inputs) = @_; | 
|---|
| 2967 |  | 
|---|
| 2968 | # If SUBDIRS defined, require AC_PROG_MAKE_SET. | 
|---|
| 2969 | &am_line_error ('SUBDIRS', "AC_PROG_MAKE_SET must be used in \`$configure_ac'") | 
|---|
| 2970 | if &variable_defined ('SUBDIRS') && ! $seen_make_set; | 
|---|
| 2971 |  | 
|---|
| 2972 | local ($top_reldir); | 
|---|
| 2973 |  | 
|---|
| 2974 | local ($input_base) = &basename ($input); | 
|---|
| 2975 | local ($local_base) = &basename ($local); | 
|---|
| 2976 |  | 
|---|
| 2977 | local ($amfile) = $input_base . '.am'; | 
|---|
| 2978 | # We know we can always add '.in' because it really should be an | 
|---|
| 2979 | # error if the .in was missing originally. | 
|---|
| 2980 | local ($infile) = '$(srcdir)/' . $input_base . '.in'; | 
|---|
| 2981 | local ($colon_infile); | 
|---|
| 2982 | if ($local ne $input || @secondary_inputs) | 
|---|
| 2983 | { | 
|---|
| 2984 | $colon_infile = ':' . $input . '.in'; | 
|---|
| 2985 | } | 
|---|
| 2986 | $colon_infile .= ':' . join (':', @secondary_inputs) | 
|---|
| 2987 | if @secondary_inputs; | 
|---|
| 2988 |  | 
|---|
| 2989 | local (@rewritten) = &rewrite_inputs_into_dependencies (1, | 
|---|
| 2990 | @secondary_inputs); | 
|---|
| 2991 |  | 
|---|
| 2992 | # This rule remakes the Makefile.in.  Note use of | 
|---|
| 2993 | # @MAINTAINER_MODE_TRUE@ forces us to abandon pretty-printing. | 
|---|
| 2994 | # Sigh. | 
|---|
| 2995 | $output_rules .= ($infile | 
|---|
| 2996 | # NOTE perl 5.003 (with -w) gives a | 
|---|
| 2997 | # uninitialized value error on the next line. | 
|---|
| 2998 | # Don't know why. | 
|---|
| 2999 | . ': ' | 
|---|
| 3000 | . ($seen_maint_mode ? "\@MAINTAINER_MODE_TRUE\@ " : '') | 
|---|
| 3001 | . $amfile . ' ' | 
|---|
| 3002 | . '$(top_srcdir)/' | 
|---|
| 3003 | . $configure_ac | 
|---|
| 3004 | . ' $(ACLOCAL_M4)' | 
|---|
| 3005 | . ' ' . join (' ', @include_stack) | 
|---|
| 3006 | . "\n" | 
|---|
| 3007 | . "\tcd \$(top_srcdir) && \$(AUTOMAKE) " | 
|---|
| 3008 | . ($cygnus_mode ? '--cygnus' : ('--' . $strictness_name)) | 
|---|
| 3009 | . ($cmdline_use_dependencies ? '' : ' --include-deps') | 
|---|
| 3010 | . ' ' . $input . $colon_infile . "\n\n"); | 
|---|
| 3011 |  | 
|---|
| 3012 | # This rule remakes the Makefile. | 
|---|
| 3013 | $output_rules .= ($local_base | 
|---|
| 3014 | # NOTE: bogus uninit value error on next line; | 
|---|
| 3015 | # see comment above. | 
|---|
| 3016 | . ': ' | 
|---|
| 3017 | . $infile . ' ' | 
|---|
| 3018 | . join (' ', @rewritten) | 
|---|
| 3019 | . ' $(top_builddir)/config.status' | 
|---|
| 3020 | # NOTE: Makefile only depends on BUILT_SOURCES | 
|---|
| 3021 | # when dependencies are being computed.  This is | 
|---|
| 3022 | # a workaround for an obscure bug with | 
|---|
| 3023 | # AC_LINK_FILES.  Anyway, when dependencies are | 
|---|
| 3024 | # turned off, this shouldn't matter. | 
|---|
| 3025 | . ($use_dependencies ? ' $(BUILT_SOURCES)' : '') | 
|---|
| 3026 | . "\n" | 
|---|
| 3027 | . "\tcd \$(top_builddir) \\\n" | 
|---|
| 3028 | . "\t  && CONFIG_FILES=" | 
|---|
| 3029 | . (($relative_dir eq '.') ? '$@' : '$(subdir)/$@') | 
|---|
| 3030 | . $colon_infile | 
|---|
| 3031 | . ' CONFIG_HEADERS= $(SHELL) ./config.status' | 
|---|
| 3032 | . "\n\n"); | 
|---|
| 3033 |  | 
|---|
| 3034 | if ($relative_dir ne '.') | 
|---|
| 3035 | { | 
|---|
| 3036 | # In subdirectory. | 
|---|
| 3037 | $top_reldir = '../'; | 
|---|
| 3038 | } | 
|---|
| 3039 | else | 
|---|
| 3040 | { | 
|---|
| 3041 | &handle_aclocal_m4; | 
|---|
| 3042 | $output_rules .= &file_contents_with_transform ('s,\@CONFIGURE_AC\@,' | 
|---|
| 3043 | . $configure_ac | 
|---|
| 3044 | . ',;', | 
|---|
| 3045 | 'remake'); | 
|---|
| 3046 | &examine_variable ('CONFIG_STATUS_DEPENDENCIES'); | 
|---|
| 3047 | &examine_variable ('CONFIGURE_DEPENDENCIES'); | 
|---|
| 3048 | $top_reldir = ''; | 
|---|
| 3049 | } | 
|---|
| 3050 |  | 
|---|
| 3051 | # Make it easy to see if there is a Makefile.am in a given | 
|---|
| 3052 | # directory. | 
|---|
| 3053 | local (%make_dirs, $iter); | 
|---|
| 3054 | foreach $iter (@input_files) | 
|---|
| 3055 | { | 
|---|
| 3056 | $make_dirs{&dirname ($iter)} = 1; | 
|---|
| 3057 | } | 
|---|
| 3058 | # We also want to notice Makefile.in's. | 
|---|
| 3059 | foreach $iter (@other_input_files) | 
|---|
| 3060 | { | 
|---|
| 3061 | if ($iter =~ /Makefile\.in$/) | 
|---|
| 3062 | { | 
|---|
| 3063 | $make_dirs{&dirname ($iter)} = 1; | 
|---|
| 3064 | } | 
|---|
| 3065 | } | 
|---|
| 3066 |  | 
|---|
| 3067 | # If we have a configure header, require it. | 
|---|
| 3068 | local ($one_hdr); | 
|---|
| 3069 | local (@local_fullnames) = @config_fullnames; | 
|---|
| 3070 | local (@local_names) = @config_names; | 
|---|
| 3071 | local ($hdr_index) = 0; | 
|---|
| 3072 | local ($distclean_config) = ''; | 
|---|
| 3073 | foreach $one_hdr (@config_headers) | 
|---|
| 3074 | { | 
|---|
| 3075 | local ($one_fullname) = shift (@local_fullnames); | 
|---|
| 3076 | local ($one_name) = shift (@local_names); | 
|---|
| 3077 | $hdr_index += 1; | 
|---|
| 3078 | local ($header_dir) = &dirname ($one_name); | 
|---|
| 3079 |  | 
|---|
| 3080 | # If the header is in the current directory we want to build | 
|---|
| 3081 | # the header here.  Otherwise, if we're at the topmost | 
|---|
| 3082 | # directory and the header's directory doesn't have a | 
|---|
| 3083 | # Makefile, then we also want to build the header. | 
|---|
| 3084 | if ($relative_dir eq $header_dir | 
|---|
| 3085 | || ($relative_dir eq '.' && ! defined $make_dirs{$header_dir})) | 
|---|
| 3086 | { | 
|---|
| 3087 | local ($ch_sans_dir, $cn_sans_dir, $stamp_dir); | 
|---|
| 3088 | if ($relative_dir eq $header_dir) | 
|---|
| 3089 | { | 
|---|
| 3090 | $cn_sans_dir = &basename ($one_name); | 
|---|
| 3091 | $stamp_dir = ''; | 
|---|
| 3092 | } | 
|---|
| 3093 | else | 
|---|
| 3094 | { | 
|---|
| 3095 | $cn_sans_dir = $one_name; | 
|---|
| 3096 | if ($header_dir eq '.') | 
|---|
| 3097 | { | 
|---|
| 3098 | $stamp_dir = ''; | 
|---|
| 3099 | } | 
|---|
| 3100 | else | 
|---|
| 3101 | { | 
|---|
| 3102 | $stamp_dir = $header_dir . '/'; | 
|---|
| 3103 | } | 
|---|
| 3104 | } | 
|---|
| 3105 |  | 
|---|
| 3106 | # Compute relative path from directory holding output | 
|---|
| 3107 | # header to directory holding input header.  FIXME: | 
|---|
| 3108 | # doesn't handle case where we have multiple inputs. | 
|---|
| 3109 | if (&dirname ($one_hdr) eq $relative_dir) | 
|---|
| 3110 | { | 
|---|
| 3111 | $ch_sans_dir = &basename ($one_hdr); | 
|---|
| 3112 | } | 
|---|
| 3113 | else | 
|---|
| 3114 | { | 
|---|
| 3115 | local (@rel_out_path, $rel_path); | 
|---|
| 3116 | # FIXME this chunk of code should be its own sub. | 
|---|
| 3117 | # It is used elsewhere. | 
|---|
| 3118 | foreach (split (/\//, $relative_dir)) | 
|---|
| 3119 | { | 
|---|
| 3120 | next if $_ eq '' || $_ eq '.'; | 
|---|
| 3121 | if ($_ eq '..') | 
|---|
| 3122 | { | 
|---|
| 3123 | # FIXME: actually this is an error. | 
|---|
| 3124 | pop @rel_out_path; | 
|---|
| 3125 | } | 
|---|
| 3126 | else | 
|---|
| 3127 | { | 
|---|
| 3128 | push (@rel_out_path, '..'); | 
|---|
| 3129 | } | 
|---|
| 3130 | } | 
|---|
| 3131 | if (@rel_out_path) | 
|---|
| 3132 | { | 
|---|
| 3133 | $ch_sans_dir = join ('/', @rel_out_path) . '/' . $one_hdr; | 
|---|
| 3134 | } | 
|---|
| 3135 | else | 
|---|
| 3136 | { | 
|---|
| 3137 | $ch_sans_dir = $one_hdr; | 
|---|
| 3138 | } | 
|---|
| 3139 | } | 
|---|
| 3140 |  | 
|---|
| 3141 | &require_file_with_conf_line ($config_header_line, | 
|---|
| 3142 | $FOREIGN, $ch_sans_dir); | 
|---|
| 3143 |  | 
|---|
| 3144 | # Header defined and in this directory. | 
|---|
| 3145 | local (@files); | 
|---|
| 3146 | if (-f $relative_dir . '/acconfig.h') | 
|---|
| 3147 | { | 
|---|
| 3148 | push (@files, 'acconfig.h'); | 
|---|
| 3149 | } | 
|---|
| 3150 | if (-f $one_name . '.top') | 
|---|
| 3151 | { | 
|---|
| 3152 | push (@files, "${cn_sans_dir}.top"); | 
|---|
| 3153 | } | 
|---|
| 3154 | if (-f $one_name . '.bot') | 
|---|
| 3155 | { | 
|---|
| 3156 | push (@files, "${cn_sans_dir}.bot"); | 
|---|
| 3157 | } | 
|---|
| 3158 |  | 
|---|
| 3159 | &push_dist_common (@files); | 
|---|
| 3160 |  | 
|---|
| 3161 | local ($stamp_name) = 'stamp-h'; | 
|---|
| 3162 | $stamp_name .= "${hdr_index}" if scalar (@config_headers) > 1; | 
|---|
| 3163 |  | 
|---|
| 3164 | local ($xform) = ''; | 
|---|
| 3165 |  | 
|---|
| 3166 | $xform = 's,\@FILES\@,' . join (' ', @files) . ',;'; | 
|---|
| 3167 | $xform .= 's,\@CONFIG_HEADER\@,' . "${cn_sans_dir}" . ',;'; | 
|---|
| 3168 | $xform .= 's,\@CONFIG_HEADER_IN\@,' . "${ch_sans_dir}" . ',;'; | 
|---|
| 3169 | $xform .= 's,\@CONFIG_HEADER_FULL\@,' . "${one_fullname}" . ',;'; | 
|---|
| 3170 | $xform .= 's,\@STAMP\@,' . "${stamp_dir}${stamp_name}" . ',;'; | 
|---|
| 3171 | $xform .= 's,\@CONFIGURE_AC\@,' . "${configure_ac}" . ',;'; | 
|---|
| 3172 |  | 
|---|
| 3173 | $output_rules .= &file_contents_with_transform ($xform, | 
|---|
| 3174 | 'remake-hdr'); | 
|---|
| 3175 |  | 
|---|
| 3176 | local ($out_dir) = &dirname ($ch_sans_dir); | 
|---|
| 3177 | &create ("${relative_dir}/${out_dir}/${stamp_name}.in"); | 
|---|
| 3178 | &require_file_with_conf_line ($config_header_line, $FOREIGN, | 
|---|
| 3179 | "${out_dir}/${stamp_name}.in"); | 
|---|
| 3180 |  | 
|---|
| 3181 | $distclean_config .= ' ' if $distclean_config; | 
|---|
| 3182 | $distclean_config .= $cn_sans_dir; | 
|---|
| 3183 | } | 
|---|
| 3184 | } | 
|---|
| 3185 |  | 
|---|
| 3186 | if ($distclean_config) | 
|---|
| 3187 | { | 
|---|
| 3188 | $output_rules .= &file_contents_with_transform ('s,\@FILES\@,' | 
|---|
| 3189 | . $distclean_config | 
|---|
| 3190 | . ',;', | 
|---|
| 3191 | 'clean-hdr'); | 
|---|
| 3192 | push (@clean, 'hdr'); | 
|---|
| 3193 | &push_phony_cleaners ('hdr'); | 
|---|
| 3194 | } | 
|---|
| 3195 |  | 
|---|
| 3196 | # Set location of mkinstalldirs. | 
|---|
| 3197 | if ($config_aux_dir ne '.' && $config_aux_dir ne '') | 
|---|
| 3198 | { | 
|---|
| 3199 | &define_variable ('mkinstalldirs', ('$(SHELL) ' . $config_aux_dir | 
|---|
| 3200 | . '/mkinstalldirs')); | 
|---|
| 3201 | } | 
|---|
| 3202 | else | 
|---|
| 3203 | { | 
|---|
| 3204 | &define_variable ('mkinstalldirs', | 
|---|
| 3205 | '$(SHELL) $(top_srcdir)/mkinstalldirs'); | 
|---|
| 3206 | } | 
|---|
| 3207 |  | 
|---|
| 3208 | &am_line_error ('CONFIG_HEADER', | 
|---|
| 3209 | "\`CONFIG_HEADER' is an anachronism; now determined from \`$configure_ac'") | 
|---|
| 3210 | if &variable_defined ('CONFIG_HEADER'); | 
|---|
| 3211 |  | 
|---|
| 3212 | local ($one_name); | 
|---|
| 3213 | local ($config_header) = ''; | 
|---|
| 3214 | foreach $one_name (@config_names) | 
|---|
| 3215 | { | 
|---|
| 3216 | # Generate CONFIG_HEADER define. | 
|---|
| 3217 | local ($one_hdr); | 
|---|
| 3218 | if ($relative_dir eq &dirname ($one_name)) | 
|---|
| 3219 | { | 
|---|
| 3220 | $one_hdr = &basename ($one_name); | 
|---|
| 3221 | } | 
|---|
| 3222 | else | 
|---|
| 3223 | { | 
|---|
| 3224 | $one_hdr = "${top_builddir}/${one_name}"; | 
|---|
| 3225 | } | 
|---|
| 3226 |  | 
|---|
| 3227 | $config_header .= ' ' if $config_header; | 
|---|
| 3228 | $config_header .= $one_hdr; | 
|---|
| 3229 | } | 
|---|
| 3230 | if ($config_header) | 
|---|
| 3231 | { | 
|---|
| 3232 | &define_variable ("CONFIG_HEADER", $config_header); | 
|---|
| 3233 | } | 
|---|
| 3234 |  | 
|---|
| 3235 | # Now look for other files in this directory which must be remade | 
|---|
| 3236 | # by config.status, and generate rules for them. | 
|---|
| 3237 | local (@actual_other_files) = (); | 
|---|
| 3238 | local ($lfile, $local); | 
|---|
| 3239 | local (@inputs, @rewritten_inputs, $single); | 
|---|
| 3240 | local ($need_rewritten); | 
|---|
| 3241 | foreach $lfile (@other_input_files) | 
|---|
| 3242 | { | 
|---|
| 3243 | local ($file); | 
|---|
| 3244 | if ($lfile =~ /^([^:]*):(.*)$/) | 
|---|
| 3245 | { | 
|---|
| 3246 | # This is the ":" syntax of AC_OUTPUT. | 
|---|
| 3247 | $file = $1; | 
|---|
| 3248 | $local = &basename ($file); | 
|---|
| 3249 | @inputs = split (':', $2); | 
|---|
| 3250 | @rewritten_inputs = &rewrite_inputs_into_dependencies (1, @inputs); | 
|---|
| 3251 | $need_rewritten = 1; | 
|---|
| 3252 | } | 
|---|
| 3253 | else | 
|---|
| 3254 | { | 
|---|
| 3255 | # Normal usage. | 
|---|
| 3256 | $file = $lfile; | 
|---|
| 3257 | $local = &basename ($file); | 
|---|
| 3258 | @inputs = ($local . '.in'); | 
|---|
| 3259 | @rewritten_inputs = | 
|---|
| 3260 | &rewrite_inputs_into_dependencies (1, $file . '.in'); | 
|---|
| 3261 | $need_rewritten = 0; | 
|---|
| 3262 | } | 
|---|
| 3263 |  | 
|---|
| 3264 | # Skip files not in this directory. | 
|---|
| 3265 | next unless &dirname ($file) eq $relative_dir; | 
|---|
| 3266 |  | 
|---|
| 3267 | # Skip any file that is an automake input. | 
|---|
| 3268 | next if -f $file . '.am'; | 
|---|
| 3269 |  | 
|---|
| 3270 | # Some users have been tempted to put `stamp-h' in the | 
|---|
| 3271 | # AC_OUTPUT line.  This won't do the right thing, so we | 
|---|
| 3272 | # explicitly fail here. | 
|---|
| 3273 | if ($local eq 'stamp-h') | 
|---|
| 3274 | { | 
|---|
| 3275 | # FIXME: allow real filename. | 
|---|
| 3276 | &am_conf_error ($configure_ac, $ac_output_line, | 
|---|
| 3277 | 'stamp-h should not appear in AC_OUTPUT'); | 
|---|
| 3278 | next; | 
|---|
| 3279 | } | 
|---|
| 3280 |  | 
|---|
| 3281 | $output_rules .= ($local . ': ' | 
|---|
| 3282 | . '$(top_builddir)/config.status ' | 
|---|
| 3283 | . join (' ', @rewritten_inputs) . "\n" | 
|---|
| 3284 | . "\t" | 
|---|
| 3285 | . 'cd $(top_builddir) && CONFIG_FILES=' | 
|---|
| 3286 | . ($relative_dir eq '.' ? '' : '$(subdir)/') | 
|---|
| 3287 | . '$@' . ($need_rewritten | 
|---|
| 3288 | ? (':' . join (':', @inputs)) | 
|---|
| 3289 | : '') | 
|---|
| 3290 | . ' CONFIG_HEADERS= $(SHELL) ./config.status' | 
|---|
| 3291 | . "\n"); | 
|---|
| 3292 | push_dist_common (@rewritten_inputs); | 
|---|
| 3293 | push (@actual_other_files, $local); | 
|---|
| 3294 |  | 
|---|
| 3295 | # Require all input files. | 
|---|
| 3296 | &require_file_with_conf_line ($ac_output_line, $FOREIGN, | 
|---|
| 3297 | &rewrite_inputs_into_dependencies (0, @inputs)); | 
|---|
| 3298 | } | 
|---|
| 3299 |  | 
|---|
| 3300 | # These files get removed by "make clean". | 
|---|
| 3301 | &define_pretty_variable ('CONFIG_CLEAN_FILES', '', @actual_other_files); | 
|---|
| 3302 | } | 
|---|
| 3303 |  | 
|---|
| 3304 | # Handle C headers. | 
|---|
| 3305 | sub handle_headers | 
|---|
| 3306 | { | 
|---|
| 3307 | local (@r); | 
|---|
| 3308 | @r = &am_install_var ('header', 'HEADERS', 'include', | 
|---|
| 3309 | 'oldinclude', 'pkginclude', | 
|---|
| 3310 | 'noinst', 'check'); | 
|---|
| 3311 | foreach (@r) | 
|---|
| 3312 | { | 
|---|
| 3313 | next unless /\.(.*)$/; | 
|---|
| 3314 | &saw_extension ($1); | 
|---|
| 3315 | } | 
|---|
| 3316 | } | 
|---|
| 3317 |  | 
|---|
| 3318 | sub handle_gettext | 
|---|
| 3319 | { | 
|---|
| 3320 | return if ! $seen_gettext || $relative_dir ne '.'; | 
|---|
| 3321 |  | 
|---|
| 3322 | if (! &variable_defined ('SUBDIRS')) | 
|---|
| 3323 | { | 
|---|
| 3324 | &am_conf_error | 
|---|
| 3325 | ("AM_GNU_GETTEXT in \`$configure_ac' but SUBDIRS not defined"); | 
|---|
| 3326 | return; | 
|---|
| 3327 | } | 
|---|
| 3328 |  | 
|---|
| 3329 | &require_file_with_conf_line ($ac_gettext_line, $GNU, 'ABOUT-NLS'); | 
|---|
| 3330 |  | 
|---|
| 3331 | if (&variable_defined ('SUBDIRS')) | 
|---|
| 3332 | { | 
|---|
| 3333 | &am_line_error | 
|---|
| 3334 | ('SUBDIRS', | 
|---|
| 3335 | "AM_GNU_GETTEXT in \`$configure_ac' but \`po' not in SUBDIRS") | 
|---|
| 3336 | if $contents{'SUBDIRS'} !~ /\bpo\b/; | 
|---|
| 3337 | &am_line_error | 
|---|
| 3338 | ('SUBDIRS', | 
|---|
| 3339 | "AM_GNU_GETTEXT in \`$configure_ac' but \`intl' not in SUBDIRS") | 
|---|
| 3340 | if $contents{'SUBDIRS'} !~ /\bintl\b/; | 
|---|
| 3341 | } | 
|---|
| 3342 |  | 
|---|
| 3343 | # Ensure that each language in ALL_LINGUAS has a .po file, and | 
|---|
| 3344 | # each po file is mentioned in ALL_LINGUAS. | 
|---|
| 3345 | if ($seen_linguas) | 
|---|
| 3346 | { | 
|---|
| 3347 | local (%linguas) = (); | 
|---|
| 3348 | grep ($linguas{$_} = 1, split (' ', $all_linguas)); | 
|---|
| 3349 |  | 
|---|
| 3350 | foreach (<po/*.po>) | 
|---|
| 3351 | { | 
|---|
| 3352 | s/^po\///; | 
|---|
| 3353 | s/\.po$//; | 
|---|
| 3354 |  | 
|---|
| 3355 | &am_line_error ($all_linguas_line, | 
|---|
| 3356 | ("po/$_.po exists but \`$_' not in \`ALL_LINGUAS'")) | 
|---|
| 3357 | if ! $linguas{$_}; | 
|---|
| 3358 | } | 
|---|
| 3359 |  | 
|---|
| 3360 | foreach (keys %linguas) | 
|---|
| 3361 | { | 
|---|
| 3362 | &am_line_error ($all_linguas_line, | 
|---|
| 3363 | "$_ in \`ALL_LINGUAS' but po/$_.po does not exist") | 
|---|
| 3364 | if ! -f "po/$_.po"; | 
|---|
| 3365 | } | 
|---|
| 3366 | } | 
|---|
| 3367 | else | 
|---|
| 3368 | { | 
|---|
| 3369 | &am_error ("AM_GNU_GETTEXT in \`$configure_ac' but \`ALL_LINGUAS' not defined"); | 
|---|
| 3370 | } | 
|---|
| 3371 | } | 
|---|
| 3372 |  | 
|---|
| 3373 | # Handle footer elements. | 
|---|
| 3374 | sub handle_footer | 
|---|
| 3375 | { | 
|---|
| 3376 | if ($contents{'SOURCES'}) | 
|---|
| 3377 | { | 
|---|
| 3378 | # NOTE don't use define_pretty_variable here, because | 
|---|
| 3379 | # $contents{...} is already defined. | 
|---|
| 3380 | $output_vars .= 'SOURCES = ' . $contents{'SOURCES'} . "\n"; | 
|---|
| 3381 | } | 
|---|
| 3382 | if ($contents{'OBJECTS'}) | 
|---|
| 3383 | { | 
|---|
| 3384 | # NOTE don't use define_pretty_variable here, because | 
|---|
| 3385 | # $contents{...} is already defined. | 
|---|
| 3386 | $output_vars .= 'OBJECTS = ' . $contents{'OBJECTS'} . "\n"; | 
|---|
| 3387 | } | 
|---|
| 3388 | if ($contents{'SOURCES'} || $contents{'OBJECTS'}) | 
|---|
| 3389 | { | 
|---|
| 3390 | $output_vars .= "\n"; | 
|---|
| 3391 | } | 
|---|
| 3392 |  | 
|---|
| 3393 | if (&variable_defined ('SUFFIXES')) | 
|---|
| 3394 | { | 
|---|
| 3395 | # Push actual suffixes, and not $(SUFFIXES).  Some versions of | 
|---|
| 3396 | # make do not like variable substitutions on the .SUFFIXES | 
|---|
| 3397 | # line. | 
|---|
| 3398 | push (@suffixes, &variable_value_as_list ('SUFFIXES', '')); | 
|---|
| 3399 | } | 
|---|
| 3400 | if (&target_defined ('.SUFFIXES')) | 
|---|
| 3401 | { | 
|---|
| 3402 | &am_line_error ('.SUFFIXES', | 
|---|
| 3403 | "use variable \`SUFFIXES', not target \`.SUFFIXES'"); | 
|---|
| 3404 | } | 
|---|
| 3405 |  | 
|---|
| 3406 | # Note: AIX 4.1 /bin/make will fail if any suffix rule appears | 
|---|
| 3407 | # before .SUFFIXES.  So we make sure that .SUFFIXES appears before | 
|---|
| 3408 | # anything else, by sticking it right after the default: target. | 
|---|
| 3409 | $output_header .= ".SUFFIXES:\n"; | 
|---|
| 3410 | if (@suffixes) | 
|---|
| 3411 | { | 
|---|
| 3412 |  | 
|---|
| 3413 | # Make sure suffixes has unique elements.  Sort them to ensure | 
|---|
| 3414 | # the output remains consistent. | 
|---|
| 3415 | local (%suffixes); | 
|---|
| 3416 |  | 
|---|
| 3417 | grep ($suffixes{$_} = 1, @suffixes); | 
|---|
| 3418 |  | 
|---|
| 3419 | $output_header .= (".SUFFIXES: " | 
|---|
| 3420 | . join (' ', sort keys %suffixes) | 
|---|
| 3421 | . "\n"); | 
|---|
| 3422 | } | 
|---|
| 3423 | $output_trailer .= &file_contents ('footer'); | 
|---|
| 3424 | } | 
|---|
| 3425 |  | 
|---|
| 3426 | # Deal with installdirs target. | 
|---|
| 3427 | sub handle_installdirs | 
|---|
| 3428 | { | 
|---|
| 3429 | # GNU Makefile standards recommend this. | 
|---|
| 3430 | if ($recursive_install) | 
|---|
| 3431 | { | 
|---|
| 3432 | # We create a separate `-am' target so that the -recursive | 
|---|
| 3433 | # rule will work correctly. | 
|---|
| 3434 | $output_rules .= ("installdirs: installdirs-recursive\n" | 
|---|
| 3435 | . "installdirs-am:\n"); | 
|---|
| 3436 | push (@phony, 'installdirs-am'); | 
|---|
| 3437 | } | 
|---|
| 3438 | else | 
|---|
| 3439 | { | 
|---|
| 3440 | $output_rules .= "installdirs:\n"; | 
|---|
| 3441 | } | 
|---|
| 3442 | push (@phony, 'installdirs'); | 
|---|
| 3443 | if (@installdirs) | 
|---|
| 3444 | { | 
|---|
| 3445 | &pretty_print_rule ("\t" . '$(mkinstalldirs) ', "\t\t", | 
|---|
| 3446 | @installdirs); | 
|---|
| 3447 | } | 
|---|
| 3448 | $output_rules .= "\n"; | 
|---|
| 3449 | } | 
|---|
| 3450 |  | 
|---|
| 3451 | # There are several targets which need to be merged.  This is because | 
|---|
| 3452 | # their complete definition is compiled from many parts.  Note that we | 
|---|
| 3453 | # avoid double colon rules, otherwise we'd use them instead. | 
|---|
| 3454 | sub handle_merge_targets | 
|---|
| 3455 | { | 
|---|
| 3456 | local ($makefile) = @_; | 
|---|
| 3457 |  | 
|---|
| 3458 | # There are a few install-related variables that you should not define. | 
|---|
| 3459 | local ($var); | 
|---|
| 3460 | foreach $var ('PRE_INSTALL', 'POST_INSTALL', 'NORMAL_INSTALL') | 
|---|
| 3461 | { | 
|---|
| 3462 | if (&variable_defined ($var)) | 
|---|
| 3463 | { | 
|---|
| 3464 | &am_line_error ($var, "\`$var' should not be defined"); | 
|---|
| 3465 | } | 
|---|
| 3466 | } | 
|---|
| 3467 |  | 
|---|
| 3468 | # Put this at the beginning for the sake of non-GNU makes.  This | 
|---|
| 3469 | # is still wrong if these makes can run parallel jobs.  But it is | 
|---|
| 3470 | # right enough. | 
|---|
| 3471 | unshift (@all, &basename ($makefile)); | 
|---|
| 3472 |  | 
|---|
| 3473 | local ($one_name); | 
|---|
| 3474 | foreach $one_name (@config_names) | 
|---|
| 3475 | { | 
|---|
| 3476 | push (@all, &basename ($one_name)) | 
|---|
| 3477 | if &dirname ($one_name) eq $relative_dir; | 
|---|
| 3478 | } | 
|---|
| 3479 |  | 
|---|
| 3480 | &do_one_merge_target ('info', @info); | 
|---|
| 3481 | &do_one_merge_target ('dvi', @dvi); | 
|---|
| 3482 | &do_check_merge_target; | 
|---|
| 3483 | &do_one_merge_target ('installcheck', @installcheck); | 
|---|
| 3484 |  | 
|---|
| 3485 | if (defined $options{'no-installinfo'}) | 
|---|
| 3486 | { | 
|---|
| 3487 | &do_one_merge_target ('install-info', ''); | 
|---|
| 3488 | } | 
|---|
| 3489 | elsif (&target_defined ('install-info-local')) | 
|---|
| 3490 | { | 
|---|
| 3491 | &am_line_error ('install-info-local', | 
|---|
| 3492 | "\`install-info-local' target defined but \`no-installinfo' option not in use"); | 
|---|
| 3493 | } | 
|---|
| 3494 |  | 
|---|
| 3495 | local ($utarg); | 
|---|
| 3496 | foreach $utarg ('uninstall-data-local', 'uninstall-data-hook', | 
|---|
| 3497 | 'uninstall-exec-local', 'uninstall-exec-hook') | 
|---|
| 3498 | { | 
|---|
| 3499 | if (&target_defined ($utarg)) | 
|---|
| 3500 | { | 
|---|
| 3501 | local ($x); | 
|---|
| 3502 | ($x = $utarg) =~ s/(data|exec)-//; | 
|---|
| 3503 | &am_line_error ($utarg, "use \`$x', not \`$utarg'"); | 
|---|
| 3504 | } | 
|---|
| 3505 | } | 
|---|
| 3506 |  | 
|---|
| 3507 | if (&target_defined ('install-local')) | 
|---|
| 3508 | { | 
|---|
| 3509 | &am_line_error ('install-local', | 
|---|
| 3510 | "use \`install-data-local' or \`install-exec-local', not \`install-local'"); | 
|---|
| 3511 | } | 
|---|
| 3512 |  | 
|---|
| 3513 | if (@all) | 
|---|
| 3514 | { | 
|---|
| 3515 | local ($one_name); | 
|---|
| 3516 | local ($local_headers) = ''; | 
|---|
| 3517 | foreach $one_name (@config_names) | 
|---|
| 3518 | { | 
|---|
| 3519 | if (&dirname ($one_name) eq $relative_dir) | 
|---|
| 3520 | { | 
|---|
| 3521 | $local_headers .= ' ' if $local_headers; | 
|---|
| 3522 | $local_headers .= &basename ($one_name); | 
|---|
| 3523 | } | 
|---|
| 3524 | } | 
|---|
| 3525 | if ($local_headers) | 
|---|
| 3526 | { | 
|---|
| 3527 | # This is kind of a hack, but I couldn't see a better way | 
|---|
| 3528 | # to handle it.  In this particular case, we need to make | 
|---|
| 3529 | # sure config.h is built before we recurse.  We can't do | 
|---|
| 3530 | # this by changing the order of dependencies to the "all" | 
|---|
| 3531 | # because that breaks when using parallel makes.  Instead | 
|---|
| 3532 | # we handle things explicitly. | 
|---|
| 3533 | $output_rules .= ("all-recursive-am: ${local_headers}" | 
|---|
| 3534 | . "\n\t" | 
|---|
| 3535 | . '$(MAKE) $(AM_MAKEFLAGS)' | 
|---|
| 3536 | . " all-recursive" | 
|---|
| 3537 | . "\n\n"); | 
|---|
| 3538 | $all_target = 'all-recursive-am'; | 
|---|
| 3539 | push (@phony, 'all-recursive-am'); | 
|---|
| 3540 | } | 
|---|
| 3541 | } | 
|---|
| 3542 |  | 
|---|
| 3543 | # Print definitions users can use. | 
|---|
| 3544 | &do_one_merge_target ('install-exec', @install_exec); | 
|---|
| 3545 | $output_rules .= "\n"; | 
|---|
| 3546 |  | 
|---|
| 3547 | &do_one_merge_target ('install-data', @install_data); | 
|---|
| 3548 | $output_rules .= "\n"; | 
|---|
| 3549 |  | 
|---|
| 3550 | &do_one_merge_target ('install', 'all-am'); | 
|---|
| 3551 | &do_one_merge_target ('uninstall', @uninstall); | 
|---|
| 3552 |  | 
|---|
| 3553 | &do_one_merge_target ('all', @all); | 
|---|
| 3554 |  | 
|---|
| 3555 | # Generate the new 'install-strip' target.  We can't just set | 
|---|
| 3556 | # INSTALL_PROGRAM because that might be a relative path. | 
|---|
| 3557 | $output_rules .= ("install-strip:\n\t" | 
|---|
| 3558 | . '$(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install' | 
|---|
| 3559 | . "\n"); | 
|---|
| 3560 | } | 
|---|
| 3561 |  | 
|---|
| 3562 | # Helper for handle_merge_targets.  Note that handle_merge_targets | 
|---|
| 3563 | # relies on the fact that this doesn't add an extra \n at the end. | 
|---|
| 3564 | sub do_one_merge_target | 
|---|
| 3565 | { | 
|---|
| 3566 | local ($name, @values) = @_; | 
|---|
| 3567 |  | 
|---|
| 3568 | if (&target_defined ($name . '-local')) | 
|---|
| 3569 | { | 
|---|
| 3570 | # User defined local form of target.  So include it. | 
|---|
| 3571 | push (@values, $name . '-local'); | 
|---|
| 3572 | push (@phony, $name . '-local'); | 
|---|
| 3573 | } | 
|---|
| 3574 |  | 
|---|
| 3575 | &pretty_print_rule ($name . "-am:", "\t\t", @values); | 
|---|
| 3576 | if ($name eq 'install') | 
|---|
| 3577 | { | 
|---|
| 3578 | # Special-case `install-am' to run install-exec-am and | 
|---|
| 3579 | # install-data-am after all-am is built. | 
|---|
| 3580 | &pretty_print_rule ("\t\@\$(MAKE) \$(AM_MAKEFLAGS)", "\t  ", | 
|---|
| 3581 | 'install-exec-am', 'install-data-am'); | 
|---|
| 3582 | } | 
|---|
| 3583 | elsif ($name eq 'install-exec' && &target_defined ('install-exec-hook')) | 
|---|
| 3584 | { | 
|---|
| 3585 | $output_rules .= ("\t\@\$(NORMAL_INSTALL)\n" | 
|---|
| 3586 | . "\t" . '$(MAKE) $(AM_MAKEFLAGS) install-exec-hook' | 
|---|
| 3587 | . "\n"); | 
|---|
| 3588 | } | 
|---|
| 3589 | elsif ($name eq 'install-data' && &target_defined ('install-data-hook')) | 
|---|
| 3590 | { | 
|---|
| 3591 | $output_rules .= ("\t\@\$(NORMAL_INSTALL)\n" | 
|---|
| 3592 | . "\t" . '$(MAKE) $(AM_MAKEFLAGS) install-data-hook' | 
|---|
| 3593 | . "\n"); | 
|---|
| 3594 | } | 
|---|
| 3595 |  | 
|---|
| 3596 | local ($lname) = $name . ($recursive_install ? '-recursive' : '-am'); | 
|---|
| 3597 | local ($tname) = $name; | 
|---|
| 3598 | # To understand this special case, see handle_merge_targets. | 
|---|
| 3599 | if ($name eq 'all') | 
|---|
| 3600 | { | 
|---|
| 3601 | $tname = 'all-redirect'; | 
|---|
| 3602 | $lname = $all_target if $recursive_install; | 
|---|
| 3603 | push (@phony, 'all-redirect'); | 
|---|
| 3604 | $output_all = "all: all-redirect\n"; | 
|---|
| 3605 | } | 
|---|
| 3606 | &pretty_print_rule ($tname . ":", "\t\t", $lname); | 
|---|
| 3607 | push (@phony, $name . '-am', $name); | 
|---|
| 3608 | } | 
|---|
| 3609 |  | 
|---|
| 3610 | # Handle check merge target specially. | 
|---|
| 3611 | sub do_check_merge_target | 
|---|
| 3612 | { | 
|---|
| 3613 | if (&target_defined ('check-local')) | 
|---|
| 3614 | { | 
|---|
| 3615 | # User defined local form of target.  So include it. | 
|---|
| 3616 | push (@check_tests, 'check-local'); | 
|---|
| 3617 | push (@phony, 'check-local'); | 
|---|
| 3618 | } | 
|---|
| 3619 |  | 
|---|
| 3620 | # In --cygnus mode, check doesn't depend on all. | 
|---|
| 3621 | if ($cygnus_mode) | 
|---|
| 3622 | { | 
|---|
| 3623 | # Just run the local check rules. | 
|---|
| 3624 | &pretty_print_rule ('check-am:', "\t\t", @check); | 
|---|
| 3625 | } | 
|---|
| 3626 | else | 
|---|
| 3627 | { | 
|---|
| 3628 | # The check target must depend on the local equivalent of | 
|---|
| 3629 | # `all', to ensure all the primary targets are built.  Then it | 
|---|
| 3630 | # must build the local check rules. | 
|---|
| 3631 | $output_rules .= "check-am: all-am\n"; | 
|---|
| 3632 | &pretty_print_rule ("\t\$(MAKE) \$(AM_MAKEFLAGS)", "\t  ", | 
|---|
| 3633 | @check) | 
|---|
| 3634 | if @check; | 
|---|
| 3635 | } | 
|---|
| 3636 | &pretty_print_rule ("\t\$(MAKE) \$(AM_MAKEFLAGS)", "\t  ", | 
|---|
| 3637 | @check_tests) | 
|---|
| 3638 | if @check_tests; | 
|---|
| 3639 |  | 
|---|
| 3640 | push (@phony, 'check', 'check-am'); | 
|---|
| 3641 | $output_rules .= ("check: " | 
|---|
| 3642 | . ($recursive_install ? 'check-recursive' : 'check-am') | 
|---|
| 3643 | . "\n"); | 
|---|
| 3644 | } | 
|---|
| 3645 |  | 
|---|
| 3646 | # Handle all 'clean' targets. | 
|---|
| 3647 | sub handle_clean | 
|---|
| 3648 | { | 
|---|
| 3649 | local ($xform) = ''; | 
|---|
| 3650 | local ($name); | 
|---|
| 3651 |  | 
|---|
| 3652 | # Don't include `MAINTAINER'; it is handled specially below. | 
|---|
| 3653 | foreach $name ('MOSTLY', '', 'DIST') | 
|---|
| 3654 | { | 
|---|
| 3655 | if (! &variable_defined ($name . 'CLEANFILES')) | 
|---|
| 3656 | { | 
|---|
| 3657 | $xform .= 's/^' . $name . 'CLEAN.*$//;'; | 
|---|
| 3658 | } | 
|---|
| 3659 | else | 
|---|
| 3660 | { | 
|---|
| 3661 | $xform .= 's/^' . $name . 'CLEAN//;'; | 
|---|
| 3662 | } | 
|---|
| 3663 | } | 
|---|
| 3664 |  | 
|---|
| 3665 | # Built sources are automatically removed by maintainer-clean. | 
|---|
| 3666 | push (@maintainer_clean_files, '\$(BUILT_SOURCES)') | 
|---|
| 3667 | if &variable_defined ('BUILT_SOURCES'); | 
|---|
| 3668 | push (@maintainer_clean_files, '\$(MAINTAINERCLEANFILES)') | 
|---|
| 3669 | if &variable_defined ('MAINTAINERCLEANFILES'); | 
|---|
| 3670 | if (! @maintainer_clean_files) | 
|---|
| 3671 | { | 
|---|
| 3672 | $xform .= 's/^MAINTAINERCLEAN.*$//;'; | 
|---|
| 3673 | } | 
|---|
| 3674 | else | 
|---|
| 3675 | { | 
|---|
| 3676 | $xform .= ('s/^MAINTAINERCLEAN//;' | 
|---|
| 3677 | # Join with no space to avoid spurious `test -z' | 
|---|
| 3678 | # success at runtime. | 
|---|
| 3679 | . 's,\@MCFILES\@,' . join ('', @maintainer_clean_files) | 
|---|
| 3680 | . ',;' | 
|---|
| 3681 | # A space is required in the join here. | 
|---|
| 3682 | . 's,\@MFILES\@,' . join (' ', @maintainer_clean_files) | 
|---|
| 3683 | . ',;'); | 
|---|
| 3684 | } | 
|---|
| 3685 |  | 
|---|
| 3686 | $output_rules .= &file_contents_with_transform ($xform, 'clean'); | 
|---|
| 3687 |  | 
|---|
| 3688 | push (@clean, 'generic'); | 
|---|
| 3689 | &push_phony_cleaners ('generic'); | 
|---|
| 3690 |  | 
|---|
| 3691 | &do_one_clean_target ('clean', 'mostly', '', @clean); | 
|---|
| 3692 | &do_one_clean_target ('clean', '', 'mostly', @clean); | 
|---|
| 3693 | &do_one_clean_target ('clean', 'dist', '', @clean); | 
|---|
| 3694 | &do_one_clean_target ('clean', 'maintainer-', 'dist', @clean); | 
|---|
| 3695 |  | 
|---|
| 3696 | push (@phony, 'clean', 'mostlyclean', 'distclean', 'maintainer-clean'); | 
|---|
| 3697 | } | 
|---|
| 3698 |  | 
|---|
| 3699 | # Helper for handle_clean. | 
|---|
| 3700 | sub do_one_clean_target | 
|---|
| 3701 | { | 
|---|
| 3702 | local ($target, $name, $last_name, @deps) = @_; | 
|---|
| 3703 |  | 
|---|
| 3704 | # Change each dependency `BLARG' into `clean-BLARG'. | 
|---|
| 3705 | grep (($_ = $name . 'clean-' . $_) && 0, @deps); | 
|---|
| 3706 |  | 
|---|
| 3707 | # Push the previous clean target.  There is no previous clean | 
|---|
| 3708 | # target if we're doing mostlyclean. | 
|---|
| 3709 | push (@deps, $last_name . $target . '-am') | 
|---|
| 3710 | unless $name eq 'mostly'; | 
|---|
| 3711 |  | 
|---|
| 3712 | # If a -local version of the rule is given, add it to the list. | 
|---|
| 3713 | if (&target_defined ($name . $target . '-local')) | 
|---|
| 3714 | { | 
|---|
| 3715 | push (@deps, $name . $target . '-local'); | 
|---|
| 3716 | } | 
|---|
| 3717 |  | 
|---|
| 3718 | # Print the target and the dependencies. | 
|---|
| 3719 | &pretty_print_rule ($name . $target . "-am: ", "\t\t", @deps); | 
|---|
| 3720 |  | 
|---|
| 3721 | # FIXME: shouldn't we really print these messages before running | 
|---|
| 3722 | # the dependencies? | 
|---|
| 3723 | if ($name . $target eq 'maintainer-clean') | 
|---|
| 3724 | { | 
|---|
| 3725 | # Print a special warning. | 
|---|
| 3726 | $output_rules .= | 
|---|
| 3727 | ("\t\@echo \"This command is intended for maintainers to use;\"\n" | 
|---|
| 3728 | . "\t\@echo \"it deletes files that may require special " | 
|---|
| 3729 | . "tools to rebuild.\"\n"); | 
|---|
| 3730 | } | 
|---|
| 3731 | elsif ($name . $target eq 'distclean') | 
|---|
| 3732 | { | 
|---|
| 3733 | $output_rules .= "\t-rm -f libtool\n" if $seen_libtool; | 
|---|
| 3734 | } | 
|---|
| 3735 | $output_rules .= "\n"; | 
|---|
| 3736 |  | 
|---|
| 3737 | # Now generate the actual clean target. | 
|---|
| 3738 | $output_rules .= ($name . $target . ": " . $name . $target | 
|---|
| 3739 | . ($recursive_install ? '-recursive' : '-am') | 
|---|
| 3740 | . "\n"); | 
|---|
| 3741 |  | 
|---|
| 3742 | # We special-case config.status here.  If we do it as part of the | 
|---|
| 3743 | # normal clean processing for this directory, then it might be | 
|---|
| 3744 | # removed before some subdir is cleaned.  However, that subdir's | 
|---|
| 3745 | # Makefile depends on config.status. | 
|---|
| 3746 | if (($name . $target eq 'maintainer-clean' | 
|---|
| 3747 | || $name . $target eq 'distclean') | 
|---|
| 3748 | && $relative_dir eq '.') | 
|---|
| 3749 | { | 
|---|
| 3750 | $output_rules .= "\t-rm -f config.status\n"; | 
|---|
| 3751 | } | 
|---|
| 3752 | $output_rules .= "\n"; | 
|---|
| 3753 | } | 
|---|
| 3754 |  | 
|---|
| 3755 | # Handle .PHONY target. | 
|---|
| 3756 | sub handle_phony | 
|---|
| 3757 | { | 
|---|
| 3758 | &pretty_print_rule ('.PHONY:', "", @phony); | 
|---|
| 3759 | $output_rules .= "\n"; | 
|---|
| 3760 | } | 
|---|
| 3761 |  | 
|---|
| 3762 | # Handle TESTS variable and other checks. | 
|---|
| 3763 | sub handle_tests | 
|---|
| 3764 | { | 
|---|
| 3765 | if (defined $options{'dejagnu'}) | 
|---|
| 3766 | { | 
|---|
| 3767 | push (@check_tests, 'check-DEJAGNU'); | 
|---|
| 3768 | push (@phony, 'check-DEJAGNU'); | 
|---|
| 3769 |  | 
|---|
| 3770 | local ($xform); | 
|---|
| 3771 | if ($cygnus_mode) | 
|---|
| 3772 | { | 
|---|
| 3773 | $xform = 's/^CYGNUS//;'; | 
|---|
| 3774 | } | 
|---|
| 3775 | else | 
|---|
| 3776 | { | 
|---|
| 3777 | $xform = 's/^CYGNUS.*$//;'; | 
|---|
| 3778 | } | 
|---|
| 3779 | $output_rules .= &file_contents_with_transform ($xform, 'dejagnu'); | 
|---|
| 3780 |  | 
|---|
| 3781 | # In Cygnus mode, these are found in the build tree. | 
|---|
| 3782 | # Otherwise they are looked for in $PATH. | 
|---|
| 3783 | &define_program_variable ('EXPECT', 'build', 'expect', 'expect'); | 
|---|
| 3784 | &define_program_variable ('RUNTEST', 'src', 'dejagnu', 'runtest'); | 
|---|
| 3785 |  | 
|---|
| 3786 | # Only create site.exp rule if user hasn't already written | 
|---|
| 3787 | # one. | 
|---|
| 3788 | if (! &target_defined ('site.exp')) | 
|---|
| 3789 | { | 
|---|
| 3790 | # Note that in the rule we don't directly generate | 
|---|
| 3791 | # site.exp to avoid the possibility of a corrupted | 
|---|
| 3792 | # site.exp if make is interrupted.  Jim Meyering has some | 
|---|
| 3793 | # useful text on this topic. | 
|---|
| 3794 | $output_rules .= ("site.exp: Makefile\n" | 
|---|
| 3795 | . "\t\@echo 'Making a new site.exp file...'\n" | 
|---|
| 3796 | . "\t\@test ! -f site.bak || rm -f site.bak\n" | 
|---|
| 3797 | . "\t\@echo '## these variables are automatically generated by make ##' > \$\@-t\n" | 
|---|
| 3798 | . "\t\@echo '# Do not edit here.  If you wish to override these values' >> \$\@-t\n" | 
|---|
| 3799 | . "\t\@echo '# edit the last section' >> \$\@-t\n" | 
|---|
| 3800 | . "\t\@echo 'set tool \$(DEJATOOL)' >> \$\@-t\n" | 
|---|
| 3801 | . "\t\@echo 'set srcdir \$(srcdir)' >> \$\@-t\n" | 
|---|
| 3802 | . "\t\@echo 'set objdir' \`pwd\` >> \$\@-t\n"); | 
|---|
| 3803 |  | 
|---|
| 3804 | # Extra stuff for AC_CANONICAL_* | 
|---|
| 3805 | local (@whatlist) = (); | 
|---|
| 3806 | if ($seen_canonical) | 
|---|
| 3807 | { | 
|---|
| 3808 | push (@whatlist, 'host'); | 
|---|
| 3809 | } | 
|---|
| 3810 |  | 
|---|
| 3811 | # Extra stuff only for AC_CANONICAL_SYSTEM. | 
|---|
| 3812 | if ($seen_canonical == $AC_CANONICAL_SYSTEM) | 
|---|
| 3813 | { | 
|---|
| 3814 | push (@whatlist, 'target', 'build'); | 
|---|
| 3815 | } | 
|---|
| 3816 |  | 
|---|
| 3817 | local ($c1, $c2); | 
|---|
| 3818 | foreach $c1 (@whatlist) | 
|---|
| 3819 | { | 
|---|
| 3820 | foreach $c2 ('alias', 'triplet') | 
|---|
| 3821 | { | 
|---|
| 3822 | $output_rules .= "\t\@echo 'set ${c1}_${c2} \$(${c1}_${c2})' >> \$\@-t\n"; | 
|---|
| 3823 | } | 
|---|
| 3824 | } | 
|---|
| 3825 |  | 
|---|
| 3826 | $output_rules .= ("\t\@echo '## All variables above are generated by configure. Do Not Edit ##' >> \$\@-t\n" | 
|---|
| 3827 | . "\t\@test ! -f site.exp || sed '1,/^## All variables above are.*##/ d' site.exp >> \$\@-t\n" | 
|---|
| 3828 | . "\t\@test ! -f site.exp || mv site.exp site.bak\n" | 
|---|
| 3829 | . "\t\@mv \$\@-t site.exp\n"); | 
|---|
| 3830 | } | 
|---|
| 3831 | } | 
|---|
| 3832 | else | 
|---|
| 3833 | { | 
|---|
| 3834 | local ($c); | 
|---|
| 3835 | foreach $c ('DEJATOOL', 'RUNTEST', 'RUNTESTFLAGS') | 
|---|
| 3836 | { | 
|---|
| 3837 | if (&variable_defined ($c)) | 
|---|
| 3838 | { | 
|---|
| 3839 | &am_line_error ($c, "\`$c' defined but \`dejagnu' not in \`AUTOMAKE_OPTIONS'"); | 
|---|
| 3840 | } | 
|---|
| 3841 | } | 
|---|
| 3842 | } | 
|---|
| 3843 |  | 
|---|
| 3844 | if (&variable_defined ('TESTS')) | 
|---|
| 3845 | { | 
|---|
| 3846 | push (@check_tests, 'check-TESTS'); | 
|---|
| 3847 | push (@phony, 'check-TESTS'); | 
|---|
| 3848 |  | 
|---|
| 3849 | $output_rules .= 'check-TESTS: $(TESTS) | 
|---|
| 3850 | @failed=0; all=0; \\ | 
|---|
| 3851 | srcdir=$(srcdir); export srcdir; \\ | 
|---|
| 3852 | for tst in $(TESTS); do \\ | 
|---|
| 3853 | if test -f $$tst; then dir=.; \\ | 
|---|
| 3854 | else dir="$(srcdir)"; fi; \\ | 
|---|
| 3855 | if $(TESTS_ENVIRONMENT) $$dir/$$tst; then \\ | 
|---|
| 3856 | all=`expr $$all + 1`; \\ | 
|---|
| 3857 | echo "PASS: $$tst"; \\ | 
|---|
| 3858 | elif test $$? -ne 77; then \\ | 
|---|
| 3859 | all=`expr $$all + 1`; \\ | 
|---|
| 3860 | failed=`expr $$failed + 1`; \\ | 
|---|
| 3861 | echo "FAIL: $$tst"; \\ | 
|---|
| 3862 | fi; \\ | 
|---|
| 3863 | done; \\ | 
|---|
| 3864 | if test "$$failed" -eq 0; then \\ | 
|---|
| 3865 | banner="All $$all tests passed"; \\ | 
|---|
| 3866 | else \\ | 
|---|
| 3867 | banner="$$failed of $$all tests failed"; \\ | 
|---|
| 3868 | fi; \\ | 
|---|
| 3869 | dashes=`echo "$$banner" | sed s/./=/g`; \\ | 
|---|
| 3870 | echo "$$dashes"; \\ | 
|---|
| 3871 | echo "$$banner"; \\ | 
|---|
| 3872 | echo "$$dashes"; \\ | 
|---|
| 3873 | test "$$failed" -eq 0 | 
|---|
| 3874 | '; | 
|---|
| 3875 | } | 
|---|
| 3876 | } | 
|---|
| 3877 |  | 
|---|
| 3878 | # Handle Emacs Lisp. | 
|---|
| 3879 | sub handle_emacs_lisp | 
|---|
| 3880 | { | 
|---|
| 3881 | local (@elfiles) = &am_install_var ('lisp', 'LISP', 'lisp', 'noinst'); | 
|---|
| 3882 |  | 
|---|
| 3883 | if (@elfiles) | 
|---|
| 3884 | { | 
|---|
| 3885 | # Found some lisp. | 
|---|
| 3886 | &define_configure_variable ('lispdir'); | 
|---|
| 3887 | &define_configure_variable ('EMACS'); | 
|---|
| 3888 | $output_rules .= (".el.elc:\n" | 
|---|
| 3889 | . "\t\@echo 'WARNING: Warnings can be ignored. :-)'\n" | 
|---|
| 3890 | . "\tif test \$(EMACS) != no; then \\\n" | 
|---|
| 3891 | . "\t  EMACS=\$(EMACS) \$(SHELL) \$(srcdir)/elisp-comp \$<; \\\n" | 
|---|
| 3892 | . "\tfi\n"); | 
|---|
| 3893 | push (@suffixes, '.el', '.elc'); | 
|---|
| 3894 |  | 
|---|
| 3895 | # Generate .elc files. | 
|---|
| 3896 | grep ($_ .= 'c', @elfiles); | 
|---|
| 3897 | &define_pretty_variable ('ELCFILES', '', @elfiles); | 
|---|
| 3898 |  | 
|---|
| 3899 | $output_rules .= &file_contents ('lisp-clean'); | 
|---|
| 3900 | push (@clean, 'lisp'); | 
|---|
| 3901 | &push_phony_cleaners ('lisp'); | 
|---|
| 3902 |  | 
|---|
| 3903 | push (@all, '$(ELCFILES)'); | 
|---|
| 3904 |  | 
|---|
| 3905 | local ($varname); | 
|---|
| 3906 | if (&variable_defined ('lisp_LISP')) | 
|---|
| 3907 | { | 
|---|
| 3908 | $varname = 'lisp_LISP'; | 
|---|
| 3909 | &am_error ("\`lisp_LISP' defined but \`AM_PATH_LISPDIR' not in \`$configure_ac'") | 
|---|
| 3910 | if ! $seen_lispdir; | 
|---|
| 3911 | } | 
|---|
| 3912 | else | 
|---|
| 3913 | { | 
|---|
| 3914 | $varname = 'noinst_LISP'; | 
|---|
| 3915 | } | 
|---|
| 3916 |  | 
|---|
| 3917 | &require_file_with_line ($varname, $FOREIGN, 'elisp-comp'); | 
|---|
| 3918 | } | 
|---|
| 3919 | } | 
|---|
| 3920 |  | 
|---|
| 3921 | # Handle Java. | 
|---|
| 3922 | sub handle_java | 
|---|
| 3923 | { | 
|---|
| 3924 | local (@sourcelist) = &am_install_var ('-clean', 'java', 'JAVA', | 
|---|
| 3925 | 'java', 'noinst', 'check'); | 
|---|
| 3926 | return if ! @sourcelist; | 
|---|
| 3927 |  | 
|---|
| 3928 | &define_variable ('JAVAC', 'javac'); | 
|---|
| 3929 | &define_variable ('JAVACFLAGS', ''); | 
|---|
| 3930 | &define_variable ('CLASSPATH_ENV', | 
|---|
| 3931 | 'CLASSPATH=$(JAVAROOT):$(srcdir)/$(JAVAROOT):$$CLASSPATH'); | 
|---|
| 3932 | &define_variable ('JAVAROOT', '$(top_builddir)'); | 
|---|
| 3933 |  | 
|---|
| 3934 | local (%valid) = &am_primary_prefixes ('JAVA', 'java', 'noinst', 'check'); | 
|---|
| 3935 |  | 
|---|
| 3936 | local ($dir, $curs); | 
|---|
| 3937 | foreach $curs (keys %valid) | 
|---|
| 3938 | { | 
|---|
| 3939 | if (! &variable_defined ($curs . '_JAVA') || $curs eq 'noinst' | 
|---|
| 3940 | || $curs eq 'EXTRA') | 
|---|
| 3941 | { | 
|---|
| 3942 | next; | 
|---|
| 3943 | } | 
|---|
| 3944 |  | 
|---|
| 3945 | if (defined $dir) | 
|---|
| 3946 | { | 
|---|
| 3947 | &am_line_error ($curs . '_JAVA', | 
|---|
| 3948 | "multiple _JAVA primaries in use"); | 
|---|
| 3949 | } | 
|---|
| 3950 | $dir = $curs; | 
|---|
| 3951 | } | 
|---|
| 3952 |  | 
|---|
| 3953 | $output_rules .= ('class' . $dir . '.stamp: $(' . $dir . '_JAVA)' . "\n" | 
|---|
| 3954 | . "\t" . '$(CLASSPATH_ENV) $(JAVAC) -d $(JAVAROOT) ' | 
|---|
| 3955 | . '$(JAVACFLAGS) $?' . "\n" | 
|---|
| 3956 | . "\t" . 'echo timestamp > class' . $dir . '.stamp' | 
|---|
| 3957 | . "\n"); | 
|---|
| 3958 | push (@all, 'class' . $dir . '.stamp'); | 
|---|
| 3959 | &push_dist_common ('$(' . $dir . '_JAVA)'); | 
|---|
| 3960 | } | 
|---|
| 3961 |  | 
|---|
| 3962 | # Handle some of the minor options. | 
|---|
| 3963 | sub handle_minor_options | 
|---|
| 3964 | { | 
|---|
| 3965 | if (defined $options{'readme-alpha'}) | 
|---|
| 3966 | { | 
|---|
| 3967 | if ($relative_dir eq '.') | 
|---|
| 3968 | { | 
|---|
| 3969 | if ($package_version !~ /^$GNITS_VERSION_PATTERN$/) | 
|---|
| 3970 | { | 
|---|
| 3971 | # FIXME: allow real filename. | 
|---|
| 3972 | &am_conf_line_error ($configure_ac, | 
|---|
| 3973 | $package_version_line, | 
|---|
| 3974 | "version \`$package_version' doesn't follow Gnits standards"); | 
|---|
| 3975 | } | 
|---|
| 3976 | elsif (defined $1 && -f 'README-alpha') | 
|---|
| 3977 | { | 
|---|
| 3978 | # This means we have an alpha release.  See | 
|---|
| 3979 | # GNITS_VERSION_PATTERN for details. | 
|---|
| 3980 | &require_file ($FOREIGN, 'README-alpha'); | 
|---|
| 3981 | } | 
|---|
| 3982 | } | 
|---|
| 3983 | } | 
|---|
| 3984 | } | 
|---|
| 3985 |  | 
|---|
| 3986 | ################################################################ | 
|---|
| 3987 |  | 
|---|
| 3988 | # Scan one file for interesting things.  Subroutine of scan_configure. | 
|---|
| 3989 | sub scan_one_configure_file | 
|---|
| 3990 | { | 
|---|
| 3991 | local ($filename) = @_; | 
|---|
| 3992 | local (*CONFIGURE); | 
|---|
| 3993 |  | 
|---|
| 3994 | open (CONFIGURE, $filename) | 
|---|
| 3995 | || die "automake: couldn't open \`$filename': $!\n"; | 
|---|
| 3996 | print "automake: reading $filename\n" if $verbose; | 
|---|
| 3997 |  | 
|---|
| 3998 | while (<CONFIGURE>) | 
|---|
| 3999 | { | 
|---|
| 4000 | # Remove comments from current line. | 
|---|
| 4001 | s/\bdnl\b.*$//; | 
|---|
| 4002 | s/\#.*$//; | 
|---|
| 4003 |  | 
|---|
| 4004 | # Skip macro definitions.  Otherwise we might be confused into | 
|---|
| 4005 | # thinking that a macro that was only defined was actually | 
|---|
| 4006 | # used. | 
|---|
| 4007 | next if /AC_DEFUN/; | 
|---|
| 4008 |  | 
|---|
| 4009 | # Follow includes.  This is a weirdness commonly in use at | 
|---|
| 4010 | # Cygnus and hopefully nowhere else. | 
|---|
| 4011 | if (/sinclude\((.*)\)/ && -f $1) | 
|---|
| 4012 | { | 
|---|
| 4013 | &scan_one_configure_file ($1); | 
|---|
| 4014 | } | 
|---|
| 4015 |  | 
|---|
| 4016 | # Populate libobjs array. | 
|---|
| 4017 | if (/AC_FUNC_ALLOCA/) | 
|---|
| 4018 | { | 
|---|
| 4019 | $libsources{'alloca.c'} = 1; | 
|---|
| 4020 | } | 
|---|
| 4021 | elsif (/AC_FUNC_GETLOADAVG/) | 
|---|
| 4022 | { | 
|---|
| 4023 | $libsources{'getloadavg.c'} = 1; | 
|---|
| 4024 | } | 
|---|
| 4025 | elsif (/AC_FUNC_MEMCMP/) | 
|---|
| 4026 | { | 
|---|
| 4027 | $libsources{'memcmp.c'} = 1; | 
|---|
| 4028 | } | 
|---|
| 4029 | elsif (/AC_STRUCT_ST_BLOCKS/) | 
|---|
| 4030 | { | 
|---|
| 4031 | $libsources{'fileblocks.c'} = 1; | 
|---|
| 4032 | } | 
|---|
| 4033 | elsif (/A[CM]_REPLACE_GNU_GETOPT/) | 
|---|
| 4034 | { | 
|---|
| 4035 | $libsources{'getopt.c'} = 1; | 
|---|
| 4036 | $libsources{'getopt1.c'} = 1; | 
|---|
| 4037 | } | 
|---|
| 4038 | elsif (/AM_FUNC_STRTOD/) | 
|---|
| 4039 | { | 
|---|
| 4040 | $libsources{'strtod.c'} = 1; | 
|---|
| 4041 | } | 
|---|
| 4042 | elsif (/AM_WITH_REGEX/) | 
|---|
| 4043 | { | 
|---|
| 4044 | $libsources{'rx.c'} = 1; | 
|---|
| 4045 | $libsources{'rx.h'} = 1; | 
|---|
| 4046 | $libsources{'regex.c'} = 1; | 
|---|
| 4047 | $libsources{'regex.h'} = 1; | 
|---|
| 4048 | $omit_dependencies{'rx.h'} = 1; | 
|---|
| 4049 | $omit_dependencies{'regex.h'} = 1; | 
|---|
| 4050 | } | 
|---|
| 4051 | elsif (/AM_FUNC_MKTIME/) | 
|---|
| 4052 | { | 
|---|
| 4053 | $libsources{'mktime.c'} = 1; | 
|---|
| 4054 | } | 
|---|
| 4055 | elsif (/AM_FUNC_ERROR_AT_LINE/) | 
|---|
| 4056 | { | 
|---|
| 4057 | $libsources{'error.c'} = 1; | 
|---|
| 4058 | $libsources{'error.h'} = 1; | 
|---|
| 4059 | } | 
|---|
| 4060 | elsif (/AM_FUNC_OBSTACK/) | 
|---|
| 4061 | { | 
|---|
| 4062 | $libsources{'obstack.c'} = 1; | 
|---|
| 4063 | $libsources{'obstack.h'} = 1; | 
|---|
| 4064 | } | 
|---|
| 4065 | elsif (/LIBOBJS="(.*)\s+\$LIBOBJS"/ | 
|---|
| 4066 | || /LIBOBJS="\$LIBOBJS\s+(.*)"/) | 
|---|
| 4067 | { | 
|---|
| 4068 | foreach $libobj_iter (split (' ', $1)) | 
|---|
| 4069 | { | 
|---|
| 4070 | if ($libobj_iter =~ /^(.*)\.o(bj)?$/) | 
|---|
| 4071 | { | 
|---|
| 4072 | $libsources{$1 . '.c'} = 1; | 
|---|
| 4073 | } | 
|---|
| 4074 | } | 
|---|
| 4075 | } | 
|---|
| 4076 |  | 
|---|
| 4077 | if (! $in_ac_replace && s/AC_REPLACE_FUNCS\s*\(\[?//) | 
|---|
| 4078 | { | 
|---|
| 4079 | $in_ac_replace = 1; | 
|---|
| 4080 | } | 
|---|
| 4081 | if ($in_ac_replace) | 
|---|
| 4082 | { | 
|---|
| 4083 | $in_ac_replace = 0 if s/[\]\)].*$//; | 
|---|
| 4084 | # Remove trailing backslash. | 
|---|
| 4085 | s/\\$//; | 
|---|
| 4086 | foreach (split) | 
|---|
| 4087 | { | 
|---|
| 4088 | # Need to skip empty elements for Perl 4. | 
|---|
| 4089 | next if $_ eq ''; | 
|---|
| 4090 | $libsources{$_ . '.c'} = 1; | 
|---|
| 4091 | } | 
|---|
| 4092 | } | 
|---|
| 4093 |  | 
|---|
| 4094 | if (/$obsolete_rx/o) | 
|---|
| 4095 | { | 
|---|
| 4096 | local ($hint) = ''; | 
|---|
| 4097 | if ($obsolete_macros{$1}) | 
|---|
| 4098 | { | 
|---|
| 4099 | $hint = '; ' . $obsolete_macros{$1}; | 
|---|
| 4100 | } | 
|---|
| 4101 | &am_conf_line_error ($filename, $., "\`$1' is obsolete$hint"); | 
|---|
| 4102 | } | 
|---|
| 4103 |  | 
|---|
| 4104 | # Process the AC_OUTPUT macro. | 
|---|
| 4105 | if (! $in_ac_output && s/AC_OUTPUT\s*\(\[?//) | 
|---|
| 4106 | { | 
|---|
| 4107 | $in_ac_output = 1; | 
|---|
| 4108 | $ac_output_line = $.; | 
|---|
| 4109 | } | 
|---|
| 4110 | if (! $in_ac_output && s/AC_CONFIG_FILES\s*\(\[?//) | 
|---|
| 4111 | { | 
|---|
| 4112 | $in_ac_output = 1; | 
|---|
| 4113 | $ac_output_line = $.; | 
|---|
| 4114 | } | 
|---|
| 4115 | if ($in_ac_output) | 
|---|
| 4116 | { | 
|---|
| 4117 | local ($closing) = 0; | 
|---|
| 4118 | if (s/[\]\),].*$//) | 
|---|
| 4119 | { | 
|---|
| 4120 | $in_ac_output = 0; | 
|---|
| 4121 | $closing = 1; | 
|---|
| 4122 | } | 
|---|
| 4123 |  | 
|---|
| 4124 | # Look at potential Makefile.am's. | 
|---|
| 4125 | foreach (split) | 
|---|
| 4126 | { | 
|---|
| 4127 | # Must skip empty string for Perl 4. | 
|---|
| 4128 | next if $_ eq "\\" || $_ eq ''; | 
|---|
| 4129 |  | 
|---|
| 4130 | # Handle $local:$input syntax.  Note that we ignore | 
|---|
| 4131 | # every input file past the first, though we keep | 
|---|
| 4132 | # those around for later. | 
|---|
| 4133 | local ($local, $input, @rest) = split (/:/); | 
|---|
| 4134 | if (! $input) | 
|---|
| 4135 | { | 
|---|
| 4136 | $input = $local; | 
|---|
| 4137 | } | 
|---|
| 4138 | else | 
|---|
| 4139 | { | 
|---|
| 4140 | # FIXME: should be error if .in is missing. | 
|---|
| 4141 | $input =~ s/\.in$//; | 
|---|
| 4142 | } | 
|---|
| 4143 |  | 
|---|
| 4144 | if (-f $input . '.am') | 
|---|
| 4145 | { | 
|---|
| 4146 | # We have a file that automake should generate. | 
|---|
| 4147 | push (@make_input_list, $input); | 
|---|
| 4148 | $make_list{$input} = join (':', ($local, @rest)); | 
|---|
| 4149 | } | 
|---|
| 4150 | else | 
|---|
| 4151 | { | 
|---|
| 4152 | # We have a file that automake should cause to be | 
|---|
| 4153 | # rebuilt, but shouldn't generate itself. | 
|---|
| 4154 | push (@other_input_files, $_); | 
|---|
| 4155 | } | 
|---|
| 4156 | } | 
|---|
| 4157 |  | 
|---|
| 4158 | if ($closing && @make_input_list == 0 && @other_input_files == 0) | 
|---|
| 4159 | { | 
|---|
| 4160 | &am_conf_line_error ($filename, $ac_output_line, | 
|---|
| 4161 | "No files mentioned in \`AC_OUTPUT'"); | 
|---|
| 4162 | exit 1; | 
|---|
| 4163 | } | 
|---|
| 4164 | } | 
|---|
| 4165 |  | 
|---|
| 4166 | if (/$AC_CONFIG_AUX_DIR_PATTERN/o) | 
|---|
| 4167 | { | 
|---|
| 4168 | @config_aux_path = $1; | 
|---|
| 4169 | } | 
|---|
| 4170 |  | 
|---|
| 4171 | # Check for ansi2knr. | 
|---|
| 4172 | $am_c_prototypes = 1 if /AM_C_PROTOTYPES/; | 
|---|
| 4173 |  | 
|---|
| 4174 | # Check for exe extension stuff. | 
|---|
| 4175 | if (/AC_EXEEXT/) | 
|---|
| 4176 | { | 
|---|
| 4177 | $seen_exeext = 1; | 
|---|
| 4178 | $configure_vars{'EXEEXT'} = $filename . ':' . $.; | 
|---|
| 4179 | } | 
|---|
| 4180 |  | 
|---|
| 4181 | if (/AC_OBJEXT/) | 
|---|
| 4182 | { | 
|---|
| 4183 | $seen_objext = 1; | 
|---|
| 4184 | $configure_vars{'OBJEXT'} = $filename . ':' . $.; | 
|---|
| 4185 | } | 
|---|
| 4186 |  | 
|---|
| 4187 | # Check for NLS support. | 
|---|
| 4188 | if (/AM_GNU_GETTEXT/) | 
|---|
| 4189 | { | 
|---|
| 4190 | $seen_gettext = 1; | 
|---|
| 4191 | $ac_gettext_line = $.; | 
|---|
| 4192 | $omit_dependencies{'libintl.h'} = 1; | 
|---|
| 4193 | } | 
|---|
| 4194 |  | 
|---|
| 4195 | # Look for ALL_LINGUAS. | 
|---|
| 4196 | if (/ALL_LINGUAS="(.*)"$/ || /ALL_LINGUAS=(.*)$/) | 
|---|
| 4197 | { | 
|---|
| 4198 | $seen_linguas = 1; | 
|---|
| 4199 | $all_linguas = $1; | 
|---|
| 4200 | $all_linguas_line = $.; | 
|---|
| 4201 | } | 
|---|
| 4202 |  | 
|---|
| 4203 | # Handle configuration headers.  A config header of `[$1]' | 
|---|
| 4204 | # means we are actually scanning AM_CONFIG_HEADER from | 
|---|
| 4205 | # aclocal.m4. | 
|---|
| 4206 | if (/A([CM])_CONFIG_HEADERS?\s*\((.*)\)/ | 
|---|
| 4207 | && $2 ne '[$1]') | 
|---|
| 4208 | { | 
|---|
| 4209 | &am_conf_line_error | 
|---|
| 4210 | ($filename, $., "\`automake requires \`AM_CONFIG_HEADER', not \`AC_CONFIG_HEADER'") | 
|---|
| 4211 | if $1 eq 'C'; | 
|---|
| 4212 |  | 
|---|
| 4213 | $config_header_line = $.; | 
|---|
| 4214 | local ($one_hdr); | 
|---|
| 4215 | foreach $one_hdr (split (' ', $2)) | 
|---|
| 4216 | { | 
|---|
| 4217 | push (@config_fullnames, $one_hdr); | 
|---|
| 4218 | if ($one_hdr =~ /^([^:]+):(.+)$/) | 
|---|
| 4219 | { | 
|---|
| 4220 | push (@config_names, $1); | 
|---|
| 4221 | push (@config_headers, $2); | 
|---|
| 4222 | } | 
|---|
| 4223 | else | 
|---|
| 4224 | { | 
|---|
| 4225 | push (@config_names, $one_hdr); | 
|---|
| 4226 | push (@config_headers, $one_hdr . '.in'); | 
|---|
| 4227 | } | 
|---|
| 4228 | } | 
|---|
| 4229 | } | 
|---|
| 4230 |  | 
|---|
| 4231 | # Handle AC_CANONICAL_*.  Always allow upgrading to | 
|---|
| 4232 | # AC_CANONICAL_SYSTEM, but never downgrading. | 
|---|
| 4233 | $seen_canonical = $AC_CANONICAL_HOST | 
|---|
| 4234 | if ! $seen_canonical | 
|---|
| 4235 | && (/AC_CANONICAL_HOST/ || /AC_CHECK_TOOL/); | 
|---|
| 4236 | $seen_canonical = $AC_CANONICAL_SYSTEM if /AC_CANONICAL_SYSTEM/; | 
|---|
| 4237 |  | 
|---|
| 4238 | $seen_path_xtra = 1 if /AC_PATH_XTRA/; | 
|---|
| 4239 |  | 
|---|
| 4240 | # This macro handles several different things. | 
|---|
| 4241 | if (/$AM_INIT_AUTOMAKE_PATTERN/o) | 
|---|
| 4242 | { | 
|---|
| 4243 | $seen_make_set = 1; | 
|---|
| 4244 | $seen_package = 1; | 
|---|
| 4245 | $seen_version = 1; | 
|---|
| 4246 | $seen_arg_prog = 1; | 
|---|
| 4247 | $seen_prog_install = 1; | 
|---|
| 4248 | ($package_version = $1) =~ s/$AM_PACKAGE_VERSION_PATTERN/$1/o; | 
|---|
| 4249 | $package_version_line = $.; | 
|---|
| 4250 | } | 
|---|
| 4251 |  | 
|---|
| 4252 | # This is like AM_INIT_AUTOMAKE, but doesn't actually set the | 
|---|
| 4253 | # package and version number.  (This might change in the | 
|---|
| 4254 | # future).  Yes, I'm not above hacking Automake so it works | 
|---|
| 4255 | # well with other GNU tools -- that is actually the point. | 
|---|
| 4256 | if (/AM_INIT_GUILE_MODULE/) | 
|---|
| 4257 | { | 
|---|
| 4258 | $seen_make_set = 1; | 
|---|
| 4259 | $seen_package = 1; | 
|---|
| 4260 | $seen_version = 1; | 
|---|
| 4261 | $seen_arg_prog = 1; | 
|---|
| 4262 | $seen_prog_install = 1; | 
|---|
| 4263 | @config_aux_path = ('..'); | 
|---|
| 4264 | } | 
|---|
| 4265 |  | 
|---|
| 4266 | # Some things required by Automake. | 
|---|
| 4267 | $seen_make_set = 1 if /AC_PROG_MAKE_SET/; | 
|---|
| 4268 | $seen_arg_prog = 1 if /AC_ARG_PROGRAM/; | 
|---|
| 4269 |  | 
|---|
| 4270 | if (/AM_PROG_LEX/) | 
|---|
| 4271 | { | 
|---|
| 4272 | $configure_vars{'LEX'} = $filename . ':' . $.; | 
|---|
| 4273 | $seen_decl_yytext = 1; | 
|---|
| 4274 | } | 
|---|
| 4275 | if (/AC_DECL_YYTEXT/ && $filename =~ /configure\.(ac|in)$/) | 
|---|
| 4276 | { | 
|---|
| 4277 | &am_conf_line_warning ($filename, $., "\`AC_DECL_YYTEXT' is covered by \`AM_PROG_LEX'"); | 
|---|
| 4278 | } | 
|---|
| 4279 | if (/AC_PROG_LEX/ && $filename =~ /configure\.(ac|in)$/) | 
|---|
| 4280 | { | 
|---|
| 4281 | &am_conf_line_warning ($filename, $., "automake requires \`AM_PROG_LEX', not \`AC_PROG_LEX'"); | 
|---|
| 4282 | } | 
|---|
| 4283 |  | 
|---|
| 4284 | if (/AC_PROG_(F77|YACC|RANLIB|CC|CXXCPP|CXX|LEX|AWK|CPP|LN_S)/) | 
|---|
| 4285 | { | 
|---|
| 4286 | $configure_vars{$1} = $filename . ':' . $.; | 
|---|
| 4287 | } | 
|---|
| 4288 | if (/$AC_CHECK_PATTERN/o) | 
|---|
| 4289 | { | 
|---|
| 4290 | $configure_vars{$3} = $filename . ':' . $.; | 
|---|
| 4291 | } | 
|---|
| 4292 | if (/$AM_MISSING_PATTERN/o | 
|---|
| 4293 | && $1 ne 'ACLOCAL' | 
|---|
| 4294 | && $1 ne 'AUTOCONF' | 
|---|
| 4295 | && $1 ne 'AUTOMAKE' | 
|---|
| 4296 | && $1 ne 'AUTOHEADER') | 
|---|
| 4297 | { | 
|---|
| 4298 | $configure_vars{$1} = $filename . ':' . $.; | 
|---|
| 4299 | } | 
|---|
| 4300 |  | 
|---|
| 4301 | # Explicitly avoid ANSI2KNR -- we AC_SUBST that in protos.m4, | 
|---|
| 4302 | # but later define it elsewhere.  This is pretty hacky.  We | 
|---|
| 4303 | # also explicitly avoid INSTALL_SCRIPT and some other | 
|---|
| 4304 | # variables because they are defined in header-vars.am. | 
|---|
| 4305 | # FIXME. | 
|---|
| 4306 | if (/$AC_SUBST_PATTERN/o | 
|---|
| 4307 | && $1 ne 'ANSI2KNR' | 
|---|
| 4308 | && $1 ne 'INSTALL_SCRIPT' | 
|---|
| 4309 | && $1 ne 'INSTALL_DATA') | 
|---|
| 4310 | { | 
|---|
| 4311 | $configure_vars{$1} = $filename . ':' . $.; | 
|---|
| 4312 | } | 
|---|
| 4313 |  | 
|---|
| 4314 | $seen_decl_yytext = 1 if /AC_DECL_YYTEXT/; | 
|---|
| 4315 | if (/AM_MAINTAINER_MODE/) | 
|---|
| 4316 | { | 
|---|
| 4317 | $seen_maint_mode = 1; | 
|---|
| 4318 | $configure_cond{'MAINTAINER_MODE'} = 1; | 
|---|
| 4319 | } | 
|---|
| 4320 | $seen_package = 1 if /PACKAGE=/; | 
|---|
| 4321 |  | 
|---|
| 4322 | # Skip VERSION of [$2]; that is from AM_INIT_AUTOMAKE. | 
|---|
| 4323 | if (/\bVERSION=(\S+)/ && $1 ne '$2' && $1 ne '[$2]') | 
|---|
| 4324 | { | 
|---|
| 4325 | $seen_version = 1; | 
|---|
| 4326 | $package_version = $1; | 
|---|
| 4327 | $package_version_line = $.; | 
|---|
| 4328 | } | 
|---|
| 4329 | elsif (/VERSION=/) | 
|---|
| 4330 | { | 
|---|
| 4331 | $seen_version = 1; | 
|---|
| 4332 | } | 
|---|
| 4333 |  | 
|---|
| 4334 | $seen_prog_install = 1 if /AC_PROG_INSTALL/; | 
|---|
| 4335 | $seen_lispdir = 1 if /AM_PATH_LISPDIR/; | 
|---|
| 4336 |  | 
|---|
| 4337 | if (/A(C|M)_PROG_LIBTOOL/) | 
|---|
| 4338 | { | 
|---|
| 4339 | # We're not ready for this yet.  People still use a | 
|---|
| 4340 | # libtool with no AC_PROG_LIBTOOL.  Once that is the | 
|---|
| 4341 | # dominant version we can reenable this code -- but next | 
|---|
| 4342 | # time by mentioning the macro in %obsolete_macros, both | 
|---|
| 4343 | # here and in aclocal.in. | 
|---|
| 4344 |  | 
|---|
| 4345 | # if (/AM_PROG_LIBTOOL/) | 
|---|
| 4346 | # { | 
|---|
| 4347 | # &am_conf_line_warning ($filename, $., "`AM_PROG_LIBTOOL' is obsolete, use `AC_PROG_LIBTOOL' instead"); | 
|---|
| 4348 | # } | 
|---|
| 4349 | $seen_libtool = 1; | 
|---|
| 4350 | $libtool_line = $.; | 
|---|
| 4351 | $configure_vars{'LIBTOOL'} = $filename . ':' . $.; | 
|---|
| 4352 | $configure_vars{'RANLIB'} = $filename . ':' . $.; | 
|---|
| 4353 | $configure_vars{'CC'} = $filename . ':' . $.; | 
|---|
| 4354 | # AM_PROG_LIBTOOL runs AC_CANONICAL_HOST.  Make sure we | 
|---|
| 4355 | # never downgrade (if we've seen AC_CANONICAL_SYSTEM). | 
|---|
| 4356 | $seen_canonical = $AC_CANONICAL_HOST if ! $seen_canonical; | 
|---|
| 4357 | } | 
|---|
| 4358 |  | 
|---|
| 4359 | $seen_multilib = 1 if (/AM_ENABLE_MULTILIB/); | 
|---|
| 4360 |  | 
|---|
| 4361 | if (/$AM_CONDITIONAL_PATTERN/o) | 
|---|
| 4362 | { | 
|---|
| 4363 | $configure_cond{$1} = 1; | 
|---|
| 4364 | } | 
|---|
| 4365 |  | 
|---|
| 4366 | # Check for Fortran 77 intrinsic and run-time libraries. | 
|---|
| 4367 | if (/AC_F77_LIBRARY_LDFLAGS/) | 
|---|
| 4368 | { | 
|---|
| 4369 | $configure_vars{'FLIBS'} = $filename . ':' . $.; | 
|---|
| 4370 | } | 
|---|
| 4371 | } | 
|---|
| 4372 |  | 
|---|
| 4373 | close (CONFIGURE); | 
|---|
| 4374 | } | 
|---|
| 4375 |  | 
|---|
| 4376 | # Scan configure.ac and aclocal.m4 for interesting things.  We must | 
|---|
| 4377 | # scan aclocal.m4 because there might be AC_SUBSTs and such there. | 
|---|
| 4378 | sub scan_configure | 
|---|
| 4379 | { | 
|---|
| 4380 | # Reinitialize libsources here.  This isn't really necessary, | 
|---|
| 4381 | # since we currently assume there is only one configure.ac.  But | 
|---|
| 4382 | # that won't always be the case. | 
|---|
| 4383 | %libsources = (); | 
|---|
| 4384 |  | 
|---|
| 4385 | warn "automake: both `configure.ac' and `configure.in' present:" | 
|---|
| 4386 | . " ignoring `configure.in'\n" | 
|---|
| 4387 | if -f 'configure.ac' && -f 'configure.in'; | 
|---|
| 4388 | $configure_ac = 'configure.in' | 
|---|
| 4389 | if -f 'configure.in'; | 
|---|
| 4390 | $configure_ac = 'configure.ac' | 
|---|
| 4391 | if -f 'configure.ac'; | 
|---|
| 4392 | die "automake: `configure.ac' or `configure.in' is required\n" | 
|---|
| 4393 | if !$configure_ac; | 
|---|
| 4394 |  | 
|---|
| 4395 | local ($in_ac_output, $in_ac_replace) = (0, 0); | 
|---|
| 4396 | local (%make_list, @make_input_list); | 
|---|
| 4397 | local ($libobj_iter); | 
|---|
| 4398 |  | 
|---|
| 4399 | &scan_one_configure_file ($configure_ac); | 
|---|
| 4400 | &scan_one_configure_file ('aclocal.m4') | 
|---|
| 4401 | if -f 'aclocal.m4'; | 
|---|
| 4402 |  | 
|---|
| 4403 | # Set input and output files if not specified by user. | 
|---|
| 4404 | if (! @input_files) | 
|---|
| 4405 | { | 
|---|
| 4406 | @input_files = @make_input_list; | 
|---|
| 4407 | %output_files = %make_list; | 
|---|
| 4408 | } | 
|---|
| 4409 |  | 
|---|
| 4410 | &am_conf_error ("\`PACKAGE' not defined in \`$configure_ac'") | 
|---|
| 4411 | if ! $seen_package; | 
|---|
| 4412 | &am_conf_error ("\`VERSION' not defined in \`$configure_ac'") | 
|---|
| 4413 | if ! $seen_version; | 
|---|
| 4414 |  | 
|---|
| 4415 | # Look for some files we need.  Always check for these.  This | 
|---|
| 4416 | # check must be done for every run, even those where we are only | 
|---|
| 4417 | # looking at a subdir Makefile.  We must set relative_dir so that | 
|---|
| 4418 | # the file-finding machinery works. | 
|---|
| 4419 | local ($relative_dir) = '.'; | 
|---|
| 4420 | &require_config_file ($FOREIGN, 'install-sh', 'mkinstalldirs', 'missing'); | 
|---|
| 4421 | &am_error ("\`install.sh' is an anachronism; use \`install-sh' instead") | 
|---|
| 4422 | if -f $config_aux_path[0] . '/install.sh'; | 
|---|
| 4423 | } | 
|---|
| 4424 |  | 
|---|
| 4425 | ################################################################ | 
|---|
| 4426 |  | 
|---|
| 4427 | # Set up for Cygnus mode. | 
|---|
| 4428 | sub check_cygnus | 
|---|
| 4429 | { | 
|---|
| 4430 | return unless $cygnus_mode; | 
|---|
| 4431 |  | 
|---|
| 4432 | &set_strictness ('foreign'); | 
|---|
| 4433 | $options{'no-installinfo'} = 1; | 
|---|
| 4434 | $options{'no-dependencies'} = 1; | 
|---|
| 4435 | $use_dependencies = 0; | 
|---|
| 4436 |  | 
|---|
| 4437 | if (! $seen_maint_mode) | 
|---|
| 4438 | { | 
|---|
| 4439 | &am_conf_error ("\`AM_MAINTAINER_MODE' required when --cygnus specified"); | 
|---|
| 4440 | } | 
|---|
| 4441 |  | 
|---|
| 4442 | if (! $seen_exeext) | 
|---|
| 4443 | { | 
|---|
| 4444 | &am_conf_error ("\`AC_EXEEXT' required when --cygnus specified"); | 
|---|
| 4445 | } | 
|---|
| 4446 | } | 
|---|
| 4447 |  | 
|---|
| 4448 | # Do any extra checking for GNU standards. | 
|---|
| 4449 | sub check_gnu_standards | 
|---|
| 4450 | { | 
|---|
| 4451 | if ($relative_dir eq '.') | 
|---|
| 4452 | { | 
|---|
| 4453 | # In top level (or only) directory. | 
|---|
| 4454 | &require_file ($GNU, 'INSTALL', 'NEWS', 'README', 'COPYING', | 
|---|
| 4455 | 'AUTHORS', 'ChangeLog'); | 
|---|
| 4456 | } | 
|---|
| 4457 |  | 
|---|
| 4458 | if ($strictness >= $GNU) | 
|---|
| 4459 | { | 
|---|
| 4460 | if (defined $options{'no-installman'}) | 
|---|
| 4461 | { | 
|---|
| 4462 | &am_line_error ('AUTOMAKE_OPTIONS', | 
|---|
| 4463 | "option \`no-installman' disallowed by GNU standards"); | 
|---|
| 4464 | } | 
|---|
| 4465 |  | 
|---|
| 4466 | if (defined $options{'no-installinfo'}) | 
|---|
| 4467 | { | 
|---|
| 4468 | &am_line_error ('AUTOMAKE_OPTIONS', | 
|---|
| 4469 | "option \`no-installinfo' disallowed by GNU standards"); | 
|---|
| 4470 | } | 
|---|
| 4471 | } | 
|---|
| 4472 | } | 
|---|
| 4473 |  | 
|---|
| 4474 | # Do any extra checking for GNITS standards. | 
|---|
| 4475 | sub check_gnits_standards | 
|---|
| 4476 | { | 
|---|
| 4477 | if ($strictness >= $GNITS) | 
|---|
| 4478 | { | 
|---|
| 4479 | if (-f $relative_dir . '/COPYING.LIB') | 
|---|
| 4480 | { | 
|---|
| 4481 | &am_error ("\`${relative_dir}/COPYING.LIB' disallowed by Gnits standards"); | 
|---|
| 4482 | } | 
|---|
| 4483 | } | 
|---|
| 4484 |  | 
|---|
| 4485 | if ($relative_dir eq '.') | 
|---|
| 4486 | { | 
|---|
| 4487 | # In top level (or only) directory. | 
|---|
| 4488 | &require_file ($GNITS, 'THANKS'); | 
|---|
| 4489 | } | 
|---|
| 4490 | } | 
|---|
| 4491 |  | 
|---|
| 4492 | ################################################################ | 
|---|
| 4493 | # | 
|---|
| 4494 | # Functions to handle files of each language. | 
|---|
| 4495 |  | 
|---|
| 4496 | # Each `lang_X_rewrite' function follows a simple formula: | 
|---|
| 4497 | # * Args are the base name and extension of the file. | 
|---|
| 4498 | # * Return value is 1 if file is to be dealt with, 0 otherwise. | 
|---|
| 4499 | # Much of the actual processing is handled in handle_single_transform_list. | 
|---|
| 4500 | # These functions exist so that auxiliary information can be recorded | 
|---|
| 4501 | # for a later cleanup pass.  Note that the calls to these functions | 
|---|
| 4502 | # are computed, so don't bother searching for their precise names | 
|---|
| 4503 | # in the source. | 
|---|
| 4504 |  | 
|---|
| 4505 | # Rewrite a single C source file. | 
|---|
| 4506 | sub lang_c_rewrite | 
|---|
| 4507 | { | 
|---|
| 4508 | local ($base, $ext) = @_; | 
|---|
| 4509 |  | 
|---|
| 4510 | if (defined $options{'ansi2knr'} && $base =~ /_$/) | 
|---|
| 4511 | { | 
|---|
| 4512 | # FIXME: include line number in error. | 
|---|
| 4513 | &am_error ("C source file \`$base.c' would be deleted by ansi2knr rules"); | 
|---|
| 4514 | } | 
|---|
| 4515 |  | 
|---|
| 4516 | $de_ansi_files{$base} = 1; | 
|---|
| 4517 | return 1; | 
|---|
| 4518 | } | 
|---|
| 4519 |  | 
|---|
| 4520 | # Rewrite a single C++ source file. | 
|---|
| 4521 | sub lang_cxx_rewrite | 
|---|
| 4522 | { | 
|---|
| 4523 | return 1; | 
|---|
| 4524 | } | 
|---|
| 4525 |  | 
|---|
| 4526 | # Rewrite a single header file. | 
|---|
| 4527 | sub lang_header_rewrite | 
|---|
| 4528 | { | 
|---|
| 4529 | # Header files are simply ignored. | 
|---|
| 4530 | return 0; | 
|---|
| 4531 | } | 
|---|
| 4532 |  | 
|---|
| 4533 | # Rewrite a single yacc file. | 
|---|
| 4534 | sub lang_yacc_rewrite | 
|---|
| 4535 | { | 
|---|
| 4536 | local ($base, $ext) = @_; | 
|---|
| 4537 |  | 
|---|
| 4538 | &lang_c_rewrite ($base, $ext); | 
|---|
| 4539 | $yacc_sources{$base . '.' . $ext} = 1; | 
|---|
| 4540 | $ext =~ tr/y/c/; | 
|---|
| 4541 | &saw_extension ('c'); | 
|---|
| 4542 | &push_dist_common ($base . '.' . $ext); | 
|---|
| 4543 | return 1; | 
|---|
| 4544 | } | 
|---|
| 4545 |  | 
|---|
| 4546 | # Rewrite a single yacc++ file. | 
|---|
| 4547 | sub lang_yaccxx_rewrite | 
|---|
| 4548 | { | 
|---|
| 4549 | local ($base, $ext) = @_; | 
|---|
| 4550 |  | 
|---|
| 4551 | $yacc_sources{$base . '.' . $ext} = 1; | 
|---|
| 4552 | $ext =~ tr/y/c/; | 
|---|
| 4553 | &saw_extension ($ext); | 
|---|
| 4554 | &push_dist_common ($base . '.' . $ext); | 
|---|
| 4555 | return 1; | 
|---|
| 4556 | } | 
|---|
| 4557 |  | 
|---|
| 4558 | # Rewrite a single lex file. | 
|---|
| 4559 | sub lang_lex_rewrite | 
|---|
| 4560 | { | 
|---|
| 4561 | local ($base, $ext) = @_; | 
|---|
| 4562 |  | 
|---|
| 4563 | &lang_c_rewrite ($base, $ext); | 
|---|
| 4564 | $lex_sources{$base . '.' . $ext} = 1; | 
|---|
| 4565 | $ext =~ tr/l/c/; | 
|---|
| 4566 | &saw_extension ('c'); | 
|---|
| 4567 | &push_dist_common ($base . '.' . $ext); | 
|---|
| 4568 | return 1; | 
|---|
| 4569 | } | 
|---|
| 4570 |  | 
|---|
| 4571 | # Rewrite a single lex++ file. | 
|---|
| 4572 | sub lang_lexxx_rewrite | 
|---|
| 4573 | { | 
|---|
| 4574 | local ($base, $ext) = @_; | 
|---|
| 4575 |  | 
|---|
| 4576 | $lex_sources{$base . '.' . $ext} = 1; | 
|---|
| 4577 | $ext =~ tr/l/c/; | 
|---|
| 4578 | &saw_extension ($ext); | 
|---|
| 4579 | &push_dist_common ($base . '.' . $ext); | 
|---|
| 4580 | return 1; | 
|---|
| 4581 | } | 
|---|
| 4582 |  | 
|---|
| 4583 | # Rewrite a single assembly file. | 
|---|
| 4584 | sub lang_asm_rewrite | 
|---|
| 4585 | { | 
|---|
| 4586 | return 1; | 
|---|
| 4587 | } | 
|---|
| 4588 |  | 
|---|
| 4589 | # Rewrite a single Fortran 77 file. | 
|---|
| 4590 | sub lang_f77_rewrite | 
|---|
| 4591 | { | 
|---|
| 4592 | return 1; | 
|---|
| 4593 | } | 
|---|
| 4594 |  | 
|---|
| 4595 | # Rewrite a single Fortran 77 preprocessed file. | 
|---|
| 4596 | sub lang_ppf77_rewrite | 
|---|
| 4597 | { | 
|---|
| 4598 | return 1; | 
|---|
| 4599 | } | 
|---|
| 4600 |  | 
|---|
| 4601 | # Rewrite a single Objective C file. | 
|---|
| 4602 | sub lang_objc_rewrite | 
|---|
| 4603 | { | 
|---|
| 4604 | return 1; | 
|---|
| 4605 | } | 
|---|
| 4606 |  | 
|---|
| 4607 | # The lang_X_finish functions are called after all source file | 
|---|
| 4608 | # processing is done.  Each should handle defining rules for the | 
|---|
| 4609 | # language, etc.  A finish function is only called if a source file of | 
|---|
| 4610 | # the appropriate type has been seen. | 
|---|
| 4611 |  | 
|---|
| 4612 | sub lang_c_finish | 
|---|
| 4613 | { | 
|---|
| 4614 | # Push all libobjs files onto de_ansi_files.  We actually only | 
|---|
| 4615 | # push files which exist in the current directory, and which are | 
|---|
| 4616 | # genuine source files. | 
|---|
| 4617 | local ($file); | 
|---|
| 4618 | foreach $file (keys %libsources) | 
|---|
| 4619 | { | 
|---|
| 4620 | if ($file =~ /^(.*)\.[cly]$/ && -f "$relative_dir/$file") | 
|---|
| 4621 | { | 
|---|
| 4622 | $de_ansi_files{$1} = 1; | 
|---|
| 4623 | } | 
|---|
| 4624 | } | 
|---|
| 4625 |  | 
|---|
| 4626 | if (defined $options{'ansi2knr'} && keys %de_ansi_files) | 
|---|
| 4627 | { | 
|---|
| 4628 | # Make all _.c files depend on their corresponding .c files. | 
|---|
| 4629 | local ($base, @objects); | 
|---|
| 4630 | foreach $base (sort keys %de_ansi_files) | 
|---|
| 4631 | { | 
|---|
| 4632 | # Each _.c file must depend on ansi2knr; otherwise it | 
|---|
| 4633 | # might be used in a parallel build before it is built. | 
|---|
| 4634 | # We need to support files in the srcdir and in the build | 
|---|
| 4635 | # dir (because these files might be auto-generated.  But | 
|---|
| 4636 | # we can't use $< -- some makes only define $< during a | 
|---|
| 4637 | # suffix rule. | 
|---|
| 4638 | $output_rules .= ($base . "_.c: $base.c \$(ANSI2KNR)\n\t" | 
|---|
| 4639 | . '$(CPP) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) ' | 
|---|
| 4640 | . '`if test -f $(srcdir)/' . $base . '.c' | 
|---|
| 4641 | . '; then echo $(srcdir)/' . $base . '.c' | 
|---|
| 4642 | . '; else echo ' . $base . '.c; fi` ' | 
|---|
| 4643 | . "| sed 's/^# \\([0-9]\\)/#line \\1/' " | 
|---|
| 4644 | . '| $(ANSI2KNR) > ' . $base . "_.c\n"); | 
|---|
| 4645 | push (@objects, $base . '_' | 
|---|
| 4646 | . ($seen_objext ? '.$(OBJEXT)' : '.o')); | 
|---|
| 4647 | push (@objects, $base . '_.lo') if $seen_libtool; | 
|---|
| 4648 | } | 
|---|
| 4649 |  | 
|---|
| 4650 | # Make all _.o (and _.lo) files depend on ansi2knr. | 
|---|
| 4651 | # Use a sneaky little hack to make it print nicely. | 
|---|
| 4652 | &pretty_print_rule ('', '', @objects, ':', '$(ANSI2KNR)'); | 
|---|
| 4653 | } | 
|---|
| 4654 |  | 
|---|
| 4655 | if (! defined $configure_vars{'CC'}) | 
|---|
| 4656 | { | 
|---|
| 4657 | # FIXME: line number. | 
|---|
| 4658 | &am_error ("C source seen but \`CC' not defined in \`$configure_ac'"); | 
|---|
| 4659 | } | 
|---|
| 4660 | } | 
|---|
| 4661 |  | 
|---|
| 4662 | # A helper which computes a sorted list of all C++ extensions which | 
|---|
| 4663 | # were seen. | 
|---|
| 4664 | sub cxx_extensions | 
|---|
| 4665 | { | 
|---|
| 4666 | local ($key, @r); | 
|---|
| 4667 | foreach $key (sort keys %extension_seen) | 
|---|
| 4668 | { | 
|---|
| 4669 | push (@r, '.' . $key) if $extension_map{$key} eq 'cxx'; | 
|---|
| 4670 | } | 
|---|
| 4671 | return @r; | 
|---|
| 4672 | } | 
|---|
| 4673 |  | 
|---|
| 4674 | sub lang_cxx_finish | 
|---|
| 4675 | { | 
|---|
| 4676 | local (@cxx_list) = &cxx_extensions; | 
|---|
| 4677 | local ($cxx_count) = scalar @cxx_list; | 
|---|
| 4678 | if ($cxx_count) | 
|---|
| 4679 | { | 
|---|
| 4680 | push (@suffixes, @cxx_list); | 
|---|
| 4681 |  | 
|---|
| 4682 | local ($ltcompile, $ltlink) = &libtool_compiler; | 
|---|
| 4683 |  | 
|---|
| 4684 | &define_configure_variable ("CXXFLAGS"); | 
|---|
| 4685 | &define_variable ('CXXCOMPILE', '$(CXX) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS)'); | 
|---|
| 4686 | &define_variable ('LTCXXCOMPILE', | 
|---|
| 4687 | $ltcompile . '$(CXX) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS)') | 
|---|
| 4688 | if ($seen_libtool); | 
|---|
| 4689 |  | 
|---|
| 4690 | &define_variable ('CXXLD', '$(CXX)'); | 
|---|
| 4691 | &define_variable ('CXXLINK', $ltlink . '$(CXXLD) $(AM_CXXFLAGS) $(CXXFLAGS) $(LDFLAGS) -o $@'); | 
|---|
| 4692 |  | 
|---|
| 4693 | local ($ext); | 
|---|
| 4694 | foreach $ext (@cxx_list) | 
|---|
| 4695 | { | 
|---|
| 4696 | $output_rules .= ("$ext.o:\n" | 
|---|
| 4697 | . "\t\$(CXXCOMPILE) -c \$<\n"); | 
|---|
| 4698 | # FIXME: Using cygpath should be somehow conditional. | 
|---|
| 4699 | $output_rules .= ("$ext.obj:\n" | 
|---|
| 4700 | . "\t\$(CXXCOMPILE) -c `cygpath -w \$<`\n") | 
|---|
| 4701 | if ($seen_objext); | 
|---|
| 4702 | $output_rules .= ("$ext.lo:\n" | 
|---|
| 4703 | . "\t\$(LTCXXCOMPILE) -c \$<\n") | 
|---|
| 4704 | if ($seen_libtool); | 
|---|
| 4705 | } | 
|---|
| 4706 |  | 
|---|
| 4707 | if (! defined $configure_vars{'CXX'}) | 
|---|
| 4708 | { | 
|---|
| 4709 | &am_error ("C++ source seen but \`CXX' not defined in \`$configure_ac'"); | 
|---|
| 4710 | } | 
|---|
| 4711 | } | 
|---|
| 4712 | } | 
|---|
| 4713 |  | 
|---|
| 4714 | sub lang_header_finish | 
|---|
| 4715 | { | 
|---|
| 4716 | # Nothing to do. | 
|---|
| 4717 | } | 
|---|
| 4718 |  | 
|---|
| 4719 | # This is a helper for both lex and yacc. | 
|---|
| 4720 | sub yacc_lex_finish_helper | 
|---|
| 4721 | { | 
|---|
| 4722 | return if defined $language_scratch{'lex-yacc-done'}; | 
|---|
| 4723 | $language_scratch{'lex-yacc-done'} = 1; | 
|---|
| 4724 |  | 
|---|
| 4725 | # If there is more than one distinct yacc (resp lex) source file | 
|---|
| 4726 | # in a given directory, then the `ylwrap' program is required to | 
|---|
| 4727 | # allow parallel builds to work correctly.  FIXME: for now, no | 
|---|
| 4728 | # line number. | 
|---|
| 4729 | &require_config_file ($FOREIGN, 'ylwrap'); | 
|---|
| 4730 | if ($config_aux_dir ne '.' && $config_aux_dir ne '') | 
|---|
| 4731 | { | 
|---|
| 4732 | &define_variable ('YLWRAP', $config_aux_dir . "/ylwrap"); | 
|---|
| 4733 | } | 
|---|
| 4734 | else | 
|---|
| 4735 | { | 
|---|
| 4736 | &define_variable ('YLWRAP', '$(srcdir)/ylwrap'); | 
|---|
| 4737 | } | 
|---|
| 4738 | } | 
|---|
| 4739 |  | 
|---|
| 4740 | sub lang_yacc_finish | 
|---|
| 4741 | { | 
|---|
| 4742 | return if defined $language_scratch{'yacc-done'}; | 
|---|
| 4743 | $language_scratch{'yacc-done'} = 1; | 
|---|
| 4744 |  | 
|---|
| 4745 | local ($file, $base, $hname, $cname); | 
|---|
| 4746 | local (%seen_suffix) = (); | 
|---|
| 4747 | local (@yacc_files) = sort keys %yacc_sources; | 
|---|
| 4748 | local ($yacc_count) = scalar (@yacc_files); | 
|---|
| 4749 | foreach $file (@yacc_files) | 
|---|
| 4750 | { | 
|---|
| 4751 | $file =~ /(\..*)$/; | 
|---|
| 4752 | &output_yacc_build_rule ($1, $yacc_count > 1) | 
|---|
| 4753 | if ! defined $seen_suffix{$1}; | 
|---|
| 4754 | $seen_suffix{$1} = 1; | 
|---|
| 4755 |  | 
|---|
| 4756 | # Now generate rule to make the header file.  This should only | 
|---|
| 4757 | # be generated if `yacc -d' specified.  But right now there is | 
|---|
| 4758 | # no way to determine that.  FIXME: examine AM_YFLAGS? | 
|---|
| 4759 | $file =~ /^(.*)\.(y|yy|y\+\+|yxx)$/; | 
|---|
| 4760 | $base = $1; | 
|---|
| 4761 | ($hname = $2) =~ tr/y/h/; | 
|---|
| 4762 | ($cname = $2) =~ tr/y/c/; | 
|---|
| 4763 | $output_rules .= "${base}.${hname}: ${base}.${cname}\n"; | 
|---|
| 4764 |  | 
|---|
| 4765 | # If the files are built in the build directory, then we want | 
|---|
| 4766 | # to remove them with `make clean'.  If they are in srcdir | 
|---|
| 4767 | # they shouldn't be touched.  However, we can't determine this | 
|---|
| 4768 | # statically, and the GNU rules say that yacc/lex output files | 
|---|
| 4769 | # should be removed by maintainer-clean.  So that's what we | 
|---|
| 4770 | # do. | 
|---|
| 4771 | push (@maintainer_clean_files, $base . $hname, $base . $cname); | 
|---|
| 4772 | } | 
|---|
| 4773 | $output_rules .= "\n"; | 
|---|
| 4774 |  | 
|---|
| 4775 | if (! defined $configure_vars{'YACC'}) | 
|---|
| 4776 | { | 
|---|
| 4777 | &am_error ("yacc source seen but \`YACC' not defined in \`$configure_ac'"); | 
|---|
| 4778 | } | 
|---|
| 4779 | if (&variable_defined ('YACCFLAGS')) | 
|---|
| 4780 | { | 
|---|
| 4781 | &am_line_error ('YACCFLAGS', | 
|---|
| 4782 | "\`YACCFLAGS' obsolete; use \`YFLAGS' instead"); | 
|---|
| 4783 | } | 
|---|
| 4784 |  | 
|---|
| 4785 | if ($yacc_count > 1) | 
|---|
| 4786 | { | 
|---|
| 4787 | &yacc_lex_finish_helper; | 
|---|
| 4788 | } | 
|---|
| 4789 | } | 
|---|
| 4790 |  | 
|---|
| 4791 | sub lang_yaccxx_finish | 
|---|
| 4792 | { | 
|---|
| 4793 | &lang_yacc_finish; | 
|---|
| 4794 | } | 
|---|
| 4795 |  | 
|---|
| 4796 | sub lang_lex_finish | 
|---|
| 4797 | { | 
|---|
| 4798 | return if defined $language_scratch{'lex-done'}; | 
|---|
| 4799 | $language_scratch{'lex-done'} = 1; | 
|---|
| 4800 |  | 
|---|
| 4801 | local (%seen_suffix) = (); | 
|---|
| 4802 | local ($file, $cname); | 
|---|
| 4803 | local ($lex_count) = scalar (keys %lex_sources); | 
|---|
| 4804 | foreach $file (sort keys %lex_sources) | 
|---|
| 4805 | { | 
|---|
| 4806 | $file =~ /(\..*)$/; | 
|---|
| 4807 | &output_lex_build_rule ($1, $lex_count > 1) | 
|---|
| 4808 | if (! defined $seen_suffix{$1}); | 
|---|
| 4809 | $seen_suffix{$1} = 1; | 
|---|
| 4810 |  | 
|---|
| 4811 | # If the files are built in the build directory, then we want | 
|---|
| 4812 | # to remove them with `make clean'.  If they are in srcdir | 
|---|
| 4813 | # they shouldn't be touched.  However, we can't determine this | 
|---|
| 4814 | # statically, and the GNU rules say that yacc/lex output files | 
|---|
| 4815 | # should be removed by maintainer-clean.  So that's what we | 
|---|
| 4816 | # do. | 
|---|
| 4817 | $file =~ /^(.*)\.(l|ll|l\+\+|lxx)$/; | 
|---|
| 4818 | ($cname = $2) =~ tr/l/c/; | 
|---|
| 4819 | push (@maintainer_clean_files, $1 . $cname); | 
|---|
| 4820 | } | 
|---|
| 4821 |  | 
|---|
| 4822 | if (! defined $configure_vars{'LEX'}) | 
|---|
| 4823 | { | 
|---|
| 4824 | &am_error ("lex source seen but \`LEX' not defined in \`$configure_ac'"); | 
|---|
| 4825 | } | 
|---|
| 4826 | if (! $seen_decl_yytext) | 
|---|
| 4827 | { | 
|---|
| 4828 | &am_error ("lex source seen but \`AC_DECL_YYTEXT' not in \`$configure_ac'"); | 
|---|
| 4829 | } | 
|---|
| 4830 |  | 
|---|
| 4831 | if ($lex_count > 1) | 
|---|
| 4832 | { | 
|---|
| 4833 | &yacc_lex_finish_helper; | 
|---|
| 4834 | } | 
|---|
| 4835 | } | 
|---|
| 4836 |  | 
|---|
| 4837 | sub lang_lexxx_finish | 
|---|
| 4838 | { | 
|---|
| 4839 | &lang_lex_finish; | 
|---|
| 4840 | } | 
|---|
| 4841 |  | 
|---|
| 4842 | sub lang_asm_finish | 
|---|
| 4843 | { | 
|---|
| 4844 | # Pretend we're C. | 
|---|
| 4845 | &lang_c_finish; | 
|---|
| 4846 | } | 
|---|
| 4847 |  | 
|---|
| 4848 | # A helper which computes a sorted list of all Fortran 77 extensions | 
|---|
| 4849 | # which were seen. | 
|---|
| 4850 | sub f77_extensions | 
|---|
| 4851 | { | 
|---|
| 4852 | local ($key, @r); | 
|---|
| 4853 | foreach $key (sort keys %extension_seen) | 
|---|
| 4854 | { | 
|---|
| 4855 | push (@r, '.' . $key) if $extension_map{$key} eq 'f77'; | 
|---|
| 4856 | } | 
|---|
| 4857 | return @r; | 
|---|
| 4858 | } | 
|---|
| 4859 |  | 
|---|
| 4860 | sub lang_f77_finish | 
|---|
| 4861 | { | 
|---|
| 4862 | local (@f77_list) = &f77_extensions; | 
|---|
| 4863 | local ($f77_count) = scalar @f77_list; | 
|---|
| 4864 | if ($f77_count) | 
|---|
| 4865 | { | 
|---|
| 4866 | push (@suffixes, @f77_list); | 
|---|
| 4867 |  | 
|---|
| 4868 | local ($ltcompile, $ltlink) = &libtool_compiler; | 
|---|
| 4869 |  | 
|---|
| 4870 | &define_configure_variable ('FFLAGS'); | 
|---|
| 4871 | &define_variable ('F77COMPILE', '$(F77) $(AM_FFLAGS) $(FFLAGS)'); | 
|---|
| 4872 | &define_variable ('LTF77COMPILE', | 
|---|
| 4873 | $ltcompile . '$(F77) $(AM_FFLAGS) $(FFLAGS)') | 
|---|
| 4874 | if ($seen_libtool); | 
|---|
| 4875 |  | 
|---|
| 4876 | &define_variable ('F77LD', '$(F77)'); | 
|---|
| 4877 | &define_variable ('F77LINK', $ltlink . '$(F77LD) $(AM_FFLAGS) $(FFLAGS) $(LDFLAGS) -o $@'); | 
|---|
| 4878 |  | 
|---|
| 4879 | local ($ext); | 
|---|
| 4880 | foreach $ext (@f77_list) | 
|---|
| 4881 | { | 
|---|
| 4882 | $output_rules .= ("$ext.o:\n" | 
|---|
| 4883 | . "\t\$(F77COMPILE) -c \$<\n"); | 
|---|
| 4884 | # FIXME: Using cygpath should be somehow conditional. | 
|---|
| 4885 | $output_rules .= ("$ext.obj:\n" | 
|---|
| 4886 | . "\t\$(F77COMPILE) -c `cygpath -w \$<`\n") | 
|---|
| 4887 | if ($seen_objext); | 
|---|
| 4888 | $output_rules .= ("$ext.lo:\n" | 
|---|
| 4889 | . "\t\$(LTF77COMPILE) -c \$<\n") | 
|---|
| 4890 | if ($seen_libtool); | 
|---|
| 4891 | } | 
|---|
| 4892 |  | 
|---|
| 4893 | if (! defined $configure_vars{'F77'}) | 
|---|
| 4894 | { | 
|---|
| 4895 | &am_error ("Fortran 77 source seen but \`F77' not defined in \`$configure_ac'"); | 
|---|
| 4896 | } | 
|---|
| 4897 | } | 
|---|
| 4898 | } | 
|---|
| 4899 |  | 
|---|
| 4900 | # Preprocessed Fortran 77 | 
|---|
| 4901 | # | 
|---|
| 4902 | # The current support for preprocessing Fortran 77 just involves passing | 
|---|
| 4903 | # `$(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS)' as additional flags | 
|---|
| 4904 | # to the Fortran 77 compiler, since this is how GNU Make does it; see | 
|---|
| 4905 | # the `GNU Make Manual, Edition 0.51 for `make' Version 3.76 Beta' | 
|---|
| 4906 | # (specifically, from info file `(make)Catalogue of Rules'). | 
|---|
| 4907 | # | 
|---|
| 4908 | # A better approach would be to write an Autoconf test | 
|---|
| 4909 | # (i.e. AC_PROG_FPP) for a Fortran 77 preprocessor, because not all | 
|---|
| 4910 | # Fortran 77 compilers know how to do preprocessing.  The Autoconf macro | 
|---|
| 4911 | # AC_PROG_FPP should test the Fortran 77 compiler first for | 
|---|
| 4912 | # preprocessing capabilities, and then fall back on cpp (if cpp were | 
|---|
| 4913 | # available). | 
|---|
| 4914 | sub lang_ppf77_finish | 
|---|
| 4915 | { | 
|---|
| 4916 | local ($ext) = 'F'; | 
|---|
| 4917 | last unless $extension_seen{$ext}; | 
|---|
| 4918 | push (@suffixes, '.' . $ext); | 
|---|
| 4919 |  | 
|---|
| 4920 | local ($ltcompile, $ltlink) = &libtool_compiler; | 
|---|
| 4921 |  | 
|---|
| 4922 | &define_configure_variable ('FFLAGS'); | 
|---|
| 4923 | &define_variable ('F77COMPILE', '$(F77) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_FFLAGS) $(FFLAGS)'); | 
|---|
| 4924 | &define_variable ('LTF77COMPILE', | 
|---|
| 4925 | $ltcompile . '$(F77) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_FFLAGS) $(FFLAGS)') | 
|---|
| 4926 | if ($seen_libtool); | 
|---|
| 4927 |  | 
|---|
| 4928 | &define_variable ('F77LD', '$(F77)'); | 
|---|
| 4929 | &define_variable ('F77LINK', $ltlink . '$(F77LD) $(AM_FFLAGS) $(FFLAGS) $(LDFLAGS) -o $@'); | 
|---|
| 4930 |  | 
|---|
| 4931 | $output_rules .= (".$ext.o:\n" | 
|---|
| 4932 | . "\t\$(F77COMPILE) -c \$<\n"); | 
|---|
| 4933 | # FIXME: Using cygpath should be somehow conditional. | 
|---|
| 4934 | $output_rules .= (".$ext.obj:\n" | 
|---|
| 4935 | . "\t\$(F77COMPILE) -c `cygpath -w \$<`\n") | 
|---|
| 4936 | if ($seen_objext); | 
|---|
| 4937 | $output_rules .= (".$ext.lo:\n" | 
|---|
| 4938 | . "\t\$(LTF77COMPILE) -c \$<\n") | 
|---|
| 4939 | if ($seen_libtool); | 
|---|
| 4940 |  | 
|---|
| 4941 | # We also handle the case of preprocessing `.F' files into `.f' | 
|---|
| 4942 | # files. | 
|---|
| 4943 | $output_rules .= (".$ext.f:\n" | 
|---|
| 4944 | . "\t\$(F77COMPILE) -F \$<\n"); | 
|---|
| 4945 |  | 
|---|
| 4946 | if (! defined $configure_vars{'F77'}) | 
|---|
| 4947 | { | 
|---|
| 4948 | &am_error ("Fortran 77 source seen but \`F77' not defined in \`$configure_ac'"); | 
|---|
| 4949 | } | 
|---|
| 4950 | } | 
|---|
| 4951 |  | 
|---|
| 4952 | sub lang_ratfor_finish | 
|---|
| 4953 | { | 
|---|
| 4954 | local ($ext) = 'r'; | 
|---|
| 4955 | last unless $extension_seen{$ext}; | 
|---|
| 4956 | push (@suffixes, '.' . $ext); | 
|---|
| 4957 |  | 
|---|
| 4958 | local ($ltcompile, $ltlink) = &libtool_compiler; | 
|---|
| 4959 |  | 
|---|
| 4960 | &define_configure_variable ('FFLAGS'); | 
|---|
| 4961 | &define_configure_variable ('RFLAGS'); | 
|---|
| 4962 | &define_variable ('RCOMPILE', '$(F77) $(AM_FFLAGS) $(FFLAGS) $(AM_RFLAGS) $(RFLAGS)'); | 
|---|
| 4963 | &define_variable ('LTRCOMPILE', | 
|---|
| 4964 | $ltcompile . '$(F77) $(AM_FFLAGS) $(FFLAGS) $(AM_RFLAGS) $(RFLAGS)') | 
|---|
| 4965 | if ($seen_libtool); | 
|---|
| 4966 |  | 
|---|
| 4967 | &define_variable ('F77LD', '$(F77)'); | 
|---|
| 4968 | &define_variable ('F77LINK', $ltlink . '$(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_RFLAGS) $(RFLAGS) $(LDFLAGS) -o $@'); | 
|---|
| 4969 |  | 
|---|
| 4970 | $output_rules .= ("$ext.o:\n" | 
|---|
| 4971 | . "\t\$(RCOMPILE) -c \$<\n"); | 
|---|
| 4972 | # FIXME: Using cygpath should be somehow conditional. | 
|---|
| 4973 | $output_rules .= ("$ext.obj:\n" | 
|---|
| 4974 | . "\t\$(RCOMPILE) -c `cygpath -w \$<`\n") | 
|---|
| 4975 | if ($seen_objext); | 
|---|
| 4976 | $output_rules .= ("$ext.lo:\n" | 
|---|
| 4977 | . "\t\$(LTRCOMPILE) -c \$<\n") | 
|---|
| 4978 | if ($seen_libtool); | 
|---|
| 4979 |  | 
|---|
| 4980 | # We also handle the case of preprocessing `.r' files into `.f' | 
|---|
| 4981 | # files. | 
|---|
| 4982 | $output_rules .= ("$ext.f:\n" | 
|---|
| 4983 | . "\t\$(RCOMPILE) -F \$<\n"); | 
|---|
| 4984 |  | 
|---|
| 4985 | if (! defined $configure_vars{'F77'}) | 
|---|
| 4986 | { | 
|---|
| 4987 | &am_error ("Ratfor source seen but \`F77' not defined in \`$configure_ac'"); | 
|---|
| 4988 | } | 
|---|
| 4989 | } | 
|---|
| 4990 |  | 
|---|
| 4991 | sub lang_objc_finish | 
|---|
| 4992 | { | 
|---|
| 4993 | push (@suffixes, '.m'); | 
|---|
| 4994 |  | 
|---|
| 4995 | local ($ltcompile, $ltlink) = &libtool_compiler; | 
|---|
| 4996 |  | 
|---|
| 4997 | &define_configure_variable ("OBJCFLAGS"); | 
|---|
| 4998 | &define_variable ('OBJCCOMPILE', '$(OBJC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_OBJCFLAGS) $(OBJCFLAGS)'); | 
|---|
| 4999 | &define_variable ('LTOBJCCOMPILE', | 
|---|
| 5000 | $ltcompile . '$(OBJC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_OBJCFLAGS) $(OBJCFLAGS)') | 
|---|
| 5001 | if ($seen_libtool); | 
|---|
| 5002 |  | 
|---|
| 5003 | &define_variable ('OBJCLD', '$(OBJC)'); | 
|---|
| 5004 | &define_variable ('OBJCLINK', $ltlink . '$(OBJCLD) $(AM_OBJCFLAGS) $(OBJCFLAGS) $(LDFLAGS) -o $@'); | 
|---|
| 5005 |  | 
|---|
| 5006 | $output_rules .= (".m.o:\n" | 
|---|
| 5007 | . "\t\$(OBJCCOMPILE) -c \$<\n"); | 
|---|
| 5008 | # FIXME: Using cygpath should be somehow conditional. | 
|---|
| 5009 | $output_rules .= (".m.obj:\n" | 
|---|
| 5010 | . "\t\$(OBJCCOMPILE) -c `cygpath -w \$<`\n") | 
|---|
| 5011 | if ($seen_objext); | 
|---|
| 5012 | $output_rules .= (".m.lo:\n" | 
|---|
| 5013 | . "\t\$(LTOBJCCOMPILE) -c \$<\n") | 
|---|
| 5014 | if ($seen_libtool); | 
|---|
| 5015 |  | 
|---|
| 5016 | if (! defined $configure_vars{'OBJC'}) | 
|---|
| 5017 | { | 
|---|
| 5018 | &am_error ("Objective C source seen but \`OBJC' not defined in \`$configure_ac'"); | 
|---|
| 5019 | } | 
|---|
| 5020 | } | 
|---|
| 5021 |  | 
|---|
| 5022 | # A helper which computes a sorted list of all ObjC extensions which | 
|---|
| 5023 | # were seen. | 
|---|
| 5024 | sub objc_extensions | 
|---|
| 5025 | { | 
|---|
| 5026 | local ($key, @r); | 
|---|
| 5027 | foreach $key (sort keys %extension_seen) | 
|---|
| 5028 | { | 
|---|
| 5029 | push (@r, '.' . $key) if $extension_map{$key} eq 'objc'; | 
|---|
| 5030 | } | 
|---|
| 5031 | return @r; | 
|---|
| 5032 | } | 
|---|
| 5033 |  | 
|---|
| 5034 | # A helper which decides whether libtool is needed.  Returns prefix | 
|---|
| 5035 | # for compiler and linker. | 
|---|
| 5036 | sub libtool_compiler | 
|---|
| 5037 | { | 
|---|
| 5038 | local ($ltcompile, $ltlink) = ('', ''); | 
|---|
| 5039 | if ($seen_libtool) | 
|---|
| 5040 | { | 
|---|
| 5041 | &define_configure_variable ("LIBTOOL"); | 
|---|
| 5042 | $ltcompile = '$(LIBTOOL) --mode=compile '; | 
|---|
| 5043 | $ltlink = '$(LIBTOOL) --mode=link '; | 
|---|
| 5044 | } | 
|---|
| 5045 | return ($ltcompile, $ltlink); | 
|---|
| 5046 | } | 
|---|
| 5047 |  | 
|---|
| 5048 | # Given a hash table of linker names, pick the name that has the most | 
|---|
| 5049 | # precedence.  This is lame, but something has to have global | 
|---|
| 5050 | # knowledge in order to eliminate the conflict.  Add more linkers as | 
|---|
| 5051 | # required. | 
|---|
| 5052 | sub resolve_linker | 
|---|
| 5053 | { | 
|---|
| 5054 | local (%linkers) = @_; | 
|---|
| 5055 |  | 
|---|
| 5056 | return 'CXXLINK' | 
|---|
| 5057 | if defined $linkers{'CXXLINK'}; | 
|---|
| 5058 | return 'F77LINK' | 
|---|
| 5059 | if defined $linkers{'F77LINK'}; | 
|---|
| 5060 | return 'OBJCLINK' | 
|---|
| 5061 | if defined $linkers{'OBJCLINK'}; | 
|---|
| 5062 | return 'LINK'; | 
|---|
| 5063 | } | 
|---|
| 5064 |  | 
|---|
| 5065 | # Called to indicate that an extension was used. | 
|---|
| 5066 | sub saw_extension | 
|---|
| 5067 | { | 
|---|
| 5068 | local ($ext) = @_; | 
|---|
| 5069 | $extension_seen{$ext} = 1; | 
|---|
| 5070 | } | 
|---|
| 5071 |  | 
|---|
| 5072 | # Called to ask whether source files have been seen . If HEADERS is 1, | 
|---|
| 5073 | # headers can be included. | 
|---|
| 5074 | sub saw_sources_p | 
|---|
| 5075 | { | 
|---|
| 5076 | local ($headers) = @_; | 
|---|
| 5077 |  | 
|---|
| 5078 | if ($headers) | 
|---|
| 5079 | { | 
|---|
| 5080 | $headers = 0; | 
|---|
| 5081 | } | 
|---|
| 5082 | else | 
|---|
| 5083 | { | 
|---|
| 5084 | $headers = defined $extension_seen{'header'}; | 
|---|
| 5085 | } | 
|---|
| 5086 |  | 
|---|
| 5087 | return scalar keys %extension_seen > $headers; | 
|---|
| 5088 | } | 
|---|
| 5089 |  | 
|---|
| 5090 | # Register a single language.  If LINKER is the empty string, it means | 
|---|
| 5091 | # to use the C linker.  DEANSI_P should only be 1 for languages where | 
|---|
| 5092 | # de-ansi-fication makes sense (i.e., C).  EXTENSIONS is a list of | 
|---|
| 5093 | # file extensions to match (no `.' included). | 
|---|
| 5094 | sub register_language | 
|---|
| 5095 | { | 
|---|
| 5096 | local ($language, $linker, $deansi_p, @extensions) = @_; | 
|---|
| 5097 |  | 
|---|
| 5098 | local ($iter); | 
|---|
| 5099 | foreach $iter (@extensions) | 
|---|
| 5100 | { | 
|---|
| 5101 | if (defined $extension_map{$iter}) | 
|---|
| 5102 | { | 
|---|
| 5103 | print STDERR | 
|---|
| 5104 | "automake: programming error: duplicate extension $iter\n"; | 
|---|
| 5105 | exit 1; | 
|---|
| 5106 | } | 
|---|
| 5107 | $extension_map{$iter} = $language; | 
|---|
| 5108 | } | 
|---|
| 5109 |  | 
|---|
| 5110 | $language_map{$language . '-ansi-p'} = $deansi_p; | 
|---|
| 5111 | $language_map{$language . '-linker'} = $linker; | 
|---|
| 5112 | } | 
|---|
| 5113 |  | 
|---|
| 5114 |  | 
|---|
| 5115 | ################################################################ | 
|---|
| 5116 |  | 
|---|
| 5117 | # Pretty-print something.  HEAD is what should be printed at the | 
|---|
| 5118 | # beginning of the first line, FILL is what should be printed at the | 
|---|
| 5119 | # beginning of every subsequent line. | 
|---|
| 5120 | sub pretty_print_internal | 
|---|
| 5121 | { | 
|---|
| 5122 | local ($head, $fill, @values) = @_; | 
|---|
| 5123 |  | 
|---|
| 5124 | local ($column) = length ($head); | 
|---|
| 5125 | local ($result) = $head; | 
|---|
| 5126 |  | 
|---|
| 5127 | # Fill length is number of characters.  However, each Tab | 
|---|
| 5128 | # character counts for eight.  So we count the number of Tabs and | 
|---|
| 5129 | # multiply by 7. | 
|---|
| 5130 | local ($fill_length) = length ($fill); | 
|---|
| 5131 | $fill_length += 7 * ($fill =~ tr/\t/\t/d); | 
|---|
| 5132 |  | 
|---|
| 5133 | local ($bol) = ($head eq ''); | 
|---|
| 5134 | foreach (@values) | 
|---|
| 5135 | { | 
|---|
| 5136 | # "71" because we also print a space. | 
|---|
| 5137 | if ($column + length ($_) > 71) | 
|---|
| 5138 | { | 
|---|
| 5139 | $result .= " \\\n" . $fill; | 
|---|
| 5140 | $column = $fill_length; | 
|---|
| 5141 | $bol = 1; | 
|---|
| 5142 | } | 
|---|
| 5143 |  | 
|---|
| 5144 | $result .= ' ' unless ($bol); | 
|---|
| 5145 | $result .= $_; | 
|---|
| 5146 | $column += length ($_) + 1; | 
|---|
| 5147 | $bol = 0; | 
|---|
| 5148 | } | 
|---|
| 5149 |  | 
|---|
| 5150 | $result .= "\n"; | 
|---|
| 5151 | return $result; | 
|---|
| 5152 | } | 
|---|
| 5153 |  | 
|---|
| 5154 | # Pretty-print something and append to output_vars. | 
|---|
| 5155 | sub pretty_print | 
|---|
| 5156 | { | 
|---|
| 5157 | $output_vars .= &pretty_print_internal (@_); | 
|---|
| 5158 | } | 
|---|
| 5159 |  | 
|---|
| 5160 | # Pretty-print something and append to output_rules. | 
|---|
| 5161 | sub pretty_print_rule | 
|---|
| 5162 | { | 
|---|
| 5163 | $output_rules .= &pretty_print_internal (@_); | 
|---|
| 5164 | } | 
|---|
| 5165 |  | 
|---|
| 5166 |  | 
|---|
| 5167 | ################################################################ | 
|---|
| 5168 |  | 
|---|
| 5169 | # See if a target exists. | 
|---|
| 5170 | sub target_defined | 
|---|
| 5171 | { | 
|---|
| 5172 | local ($target) = @_; | 
|---|
| 5173 | return defined $targets{$target}; | 
|---|
| 5174 | } | 
|---|
| 5175 |  | 
|---|
| 5176 | # See if two conditionals are the same. | 
|---|
| 5177 | sub conditional_same | 
|---|
| 5178 | { | 
|---|
| 5179 | local ($cond1, $cond2) = @_; | 
|---|
| 5180 |  | 
|---|
| 5181 | return (&conditional_true_when ($cond1, $cond2) | 
|---|
| 5182 | && &conditional_true_when ($cond2, $cond1)); | 
|---|
| 5183 | } | 
|---|
| 5184 |  | 
|---|
| 5185 | # See if a conditional is true.  Both arguments are conditional | 
|---|
| 5186 | # strings.  This returns true if the first conditional is true when | 
|---|
| 5187 | # the second conditional is true. | 
|---|
| 5188 | sub conditional_true_when | 
|---|
| 5189 | { | 
|---|
| 5190 | local ($cond, $when) = @_; | 
|---|
| 5191 |  | 
|---|
| 5192 | # Check the easy case first. | 
|---|
| 5193 | if ($cond eq $when) | 
|---|
| 5194 | { | 
|---|
| 5195 | return 1; | 
|---|
| 5196 | } | 
|---|
| 5197 |  | 
|---|
| 5198 | # Check each component of $cond, which looks @COND1@@COND2@. | 
|---|
| 5199 | foreach $comp (split ('@', $cond)) | 
|---|
| 5200 | { | 
|---|
| 5201 | # The way we split will give null strings between each | 
|---|
| 5202 | # condition. | 
|---|
| 5203 | next if ! $comp; | 
|---|
| 5204 |  | 
|---|
| 5205 | if (index ($when, '@' . $comp . '@') == -1) | 
|---|
| 5206 | { | 
|---|
| 5207 | return 0; | 
|---|
| 5208 | } | 
|---|
| 5209 | } | 
|---|
| 5210 |  | 
|---|
| 5211 | return 1; | 
|---|
| 5212 | } | 
|---|
| 5213 |  | 
|---|
| 5214 | # Check for an ambiguous conditional.  This is called when a variable | 
|---|
| 5215 | # or target is being defined conditionally.  If we already know about | 
|---|
| 5216 | # a definition that is true under the same conditions, then we have an | 
|---|
| 5217 | # ambiguity. | 
|---|
| 5218 | sub check_ambiguous_conditional | 
|---|
| 5219 | { | 
|---|
| 5220 | local ($var_name, $cond) = @_; | 
|---|
| 5221 | local (@cond_vals) = split (' ', $conditional{$var_name}); | 
|---|
| 5222 | while (@cond_vals) | 
|---|
| 5223 | { | 
|---|
| 5224 | local ($vcond) = shift (@cond_vals); | 
|---|
| 5225 | shift (@cond_vals); | 
|---|
| 5226 | if (&conditional_true_when ($vcond, $cond) | 
|---|
| 5227 | || &conditional_true_when ($cond, $vcond)) | 
|---|
| 5228 | { | 
|---|
| 5229 | &am_line_error ($var_name, | 
|---|
| 5230 | "$var_name multiply defined in condition"); | 
|---|
| 5231 | } | 
|---|
| 5232 | } | 
|---|
| 5233 | } | 
|---|
| 5234 |  | 
|---|
| 5235 | # See if a variable exists.  The first argument is the variable name, | 
|---|
| 5236 | # and the optional second argument is the condition which we should | 
|---|
| 5237 | # check.  If no condition is given, we currently return true if the | 
|---|
| 5238 | # variable is defined under any condition. | 
|---|
| 5239 | sub variable_defined | 
|---|
| 5240 | { | 
|---|
| 5241 | local ($var, $cond) = @_; | 
|---|
| 5242 | if (defined $targets{$var}) | 
|---|
| 5243 | { | 
|---|
| 5244 | &am_line_error ($var, "\`$var' is target; expected variable"); | 
|---|
| 5245 | return 0; | 
|---|
| 5246 | } | 
|---|
| 5247 | elsif (defined $contents{$var}) | 
|---|
| 5248 | { | 
|---|
| 5249 | if ($cond && $conditional{$var}) | 
|---|
| 5250 | { | 
|---|
| 5251 | # We have been asked to check for a particular condition, | 
|---|
| 5252 | # and the variable is defined conditionally.  We need to | 
|---|
| 5253 | # look through the conditions under which the variable is | 
|---|
| 5254 | # defined, and see if any of them match the conditional we | 
|---|
| 5255 | # have been asked to check. | 
|---|
| 5256 | local (@cond_vars) = split (' ', $conditional{$var}); | 
|---|
| 5257 | while (@cond_vars) | 
|---|
| 5258 | { | 
|---|
| 5259 | if (&conditional_same ($cond, shift (@cond_vars))) | 
|---|
| 5260 | { | 
|---|
| 5261 | # Even a conditional examination is good enough | 
|---|
| 5262 | # for us.  FIXME: really should maintain examined | 
|---|
| 5263 | # status on a per-condition basis. | 
|---|
| 5264 | $content_seen{$var} = 1; | 
|---|
| 5265 | return 1; | 
|---|
| 5266 | } | 
|---|
| 5267 | shift (@cond_vars); | 
|---|
| 5268 | } | 
|---|
| 5269 |  | 
|---|
| 5270 | # The variable is not defined for the given condition. | 
|---|
| 5271 | return 0; | 
|---|
| 5272 | } | 
|---|
| 5273 |  | 
|---|
| 5274 | $content_seen{$var} = 1; | 
|---|
| 5275 | return 1; | 
|---|
| 5276 | } | 
|---|
| 5277 | return 0; | 
|---|
| 5278 | } | 
|---|
| 5279 |  | 
|---|
| 5280 | # Mark a variable as examined. | 
|---|
| 5281 | sub examine_variable | 
|---|
| 5282 | { | 
|---|
| 5283 | local ($var) = @_; | 
|---|
| 5284 | &variable_defined ($var); | 
|---|
| 5285 | } | 
|---|
| 5286 |  | 
|---|
| 5287 | # Quote a value in order to put it in $conditional.  We need to quote | 
|---|
| 5288 | # spaces, and we need to handle null strings, so that we can later | 
|---|
| 5289 | # retrieve values by splitting on space. | 
|---|
| 5290 | sub quote_cond_val | 
|---|
| 5291 | { | 
|---|
| 5292 | local ($val) = @_; | 
|---|
| 5293 | $val =~ s/ /\001/g; | 
|---|
| 5294 | $val =~ s/\t/\003/g; | 
|---|
| 5295 | $val = "\002" if $val eq ''; | 
|---|
| 5296 | return $val; | 
|---|
| 5297 | } | 
|---|
| 5298 |  | 
|---|
| 5299 | # Unquote a value in $conditional. | 
|---|
| 5300 | sub unquote_cond_val | 
|---|
| 5301 | { | 
|---|
| 5302 | local ($val) = @_; | 
|---|
| 5303 | $val =~ s/\001/ /g; | 
|---|
| 5304 | $val =~ s/\003/\t/g; | 
|---|
| 5305 | $val =~ s/\002//g; | 
|---|
| 5306 | return $val; | 
|---|
| 5307 | } | 
|---|
| 5308 |  | 
|---|
| 5309 | # Return the set of conditions for which a variable is defined. | 
|---|
| 5310 |  | 
|---|
| 5311 | # If the variable is not defined conditionally, and is not defined in | 
|---|
| 5312 | # terms of any variables which are defined conditionally, then this | 
|---|
| 5313 | # returns the empty list. | 
|---|
| 5314 |  | 
|---|
| 5315 | # If the variable is defined conditionally, but is not defined in | 
|---|
| 5316 | # terms of any variables which are defined conditionally, then this | 
|---|
| 5317 | # returns the list of conditions for which the variable is defined. | 
|---|
| 5318 |  | 
|---|
| 5319 | # If the variable is defined in terms of any variables which are | 
|---|
| 5320 | # defined conditionally, then this returns a full set of permutations | 
|---|
| 5321 | # of the subvariable conditions.  For example, if the variable is | 
|---|
| 5322 | # defined in terms of a variable which is defined for @COND_TRUE@, | 
|---|
| 5323 | # then this returns both @COND_TRUE@ and @COND_FALSE@.  This is | 
|---|
| 5324 | # because we will need to define the variable under both conditions. | 
|---|
| 5325 |  | 
|---|
| 5326 | sub variable_conditions | 
|---|
| 5327 | { | 
|---|
| 5328 | local ($var) = @_; | 
|---|
| 5329 | local (%uniqify); | 
|---|
| 5330 | local ($cond); | 
|---|
| 5331 |  | 
|---|
| 5332 | %vars_scanned = (); | 
|---|
| 5333 | foreach $cond (&variable_conditions_sub ($var, '', ())) | 
|---|
| 5334 | { | 
|---|
| 5335 | $uniqify{$cond} = 1; | 
|---|
| 5336 | } | 
|---|
| 5337 |  | 
|---|
| 5338 | return keys %uniqify; | 
|---|
| 5339 | } | 
|---|
| 5340 |  | 
|---|
| 5341 | # A subroutine of variable_conditions.  We only return conditions | 
|---|
| 5342 | # which are true for all the conditions in @PARENT_CONDS. | 
|---|
| 5343 | sub variable_conditions_sub | 
|---|
| 5344 | { | 
|---|
| 5345 | local ($var, $parent, @parent_conds) = @_; | 
|---|
| 5346 | local (@new_conds) = (); | 
|---|
| 5347 |  | 
|---|
| 5348 | if (defined $vars_scanned{$var}) | 
|---|
| 5349 | { | 
|---|
| 5350 | &am_line_error ($parent, "variable \`$var' recursively defined"); | 
|---|
| 5351 | return (); | 
|---|
| 5352 | } | 
|---|
| 5353 | $vars_scanned{$var} = 1; | 
|---|
| 5354 |  | 
|---|
| 5355 | if (! $conditional{$var}) | 
|---|
| 5356 | { | 
|---|
| 5357 | foreach (split (' ', $contents{$var})) | 
|---|
| 5358 | { | 
|---|
| 5359 | # If a comment seen, just leave. | 
|---|
| 5360 | last if /^#/; | 
|---|
| 5361 |  | 
|---|
| 5362 | # Handle variable substitutions. | 
|---|
| 5363 | if (/^\$\{(.*)\}$/ || /^\$\((.*)\)$/) | 
|---|
| 5364 | { | 
|---|
| 5365 | push (@new_conds, | 
|---|
| 5366 | &variable_conditions_sub ($1, $var, @parent_conds)); | 
|---|
| 5367 | } | 
|---|
| 5368 | } | 
|---|
| 5369 |  | 
|---|
| 5370 | # Now we want to return all permutations of the subvariable | 
|---|
| 5371 | # conditions. | 
|---|
| 5372 | local (%allconds, $item); | 
|---|
| 5373 | foreach $item (@new_conds) | 
|---|
| 5374 | { | 
|---|
| 5375 | foreach (split ('@', $item)) | 
|---|
| 5376 | { | 
|---|
| 5377 | next if ! $_; | 
|---|
| 5378 | s/_(TRUE|FALSE)$//; | 
|---|
| 5379 | $allconds{$_ . '_TRUE'} = 1; | 
|---|
| 5380 | } | 
|---|
| 5381 | } | 
|---|
| 5382 |  | 
|---|
| 5383 | # Unset our entry in vars_scanned.  We only care about recursive | 
|---|
| 5384 | # definitions. | 
|---|
| 5385 | delete $vars_scanned{$var}; | 
|---|
| 5386 |  | 
|---|
| 5387 | return &variable_conditions_permutations (keys %allconds); | 
|---|
| 5388 | } | 
|---|
| 5389 |  | 
|---|
| 5390 | local (@this_conds) = (); | 
|---|
| 5391 | local (@condvals) = split (' ', $conditional{$var}); | 
|---|
| 5392 | while (@condvals) | 
|---|
| 5393 | { | 
|---|
| 5394 | local ($cond) = shift (@condvals); | 
|---|
| 5395 | local ($val) = &unquote_cond_val (shift (@condvals)); | 
|---|
| 5396 |  | 
|---|
| 5397 | if (@parent_conds) | 
|---|
| 5398 | { | 
|---|
| 5399 | local ($ok) = 1; | 
|---|
| 5400 | local ($parent_cond); | 
|---|
| 5401 | foreach $parent_cond (@parent_conds) | 
|---|
| 5402 | { | 
|---|
| 5403 | if (! &conditional_true_when ($parent_cond, $cond)) | 
|---|
| 5404 | { | 
|---|
| 5405 | $ok = 0; | 
|---|
| 5406 | last; | 
|---|
| 5407 | } | 
|---|
| 5408 | } | 
|---|
| 5409 |  | 
|---|
| 5410 | next if ! $ok; | 
|---|
| 5411 | } | 
|---|
| 5412 |  | 
|---|
| 5413 | push (@this_conds, $cond); | 
|---|
| 5414 |  | 
|---|
| 5415 | push (@parent_conds, $cond); | 
|---|
| 5416 | local (@subvar_conds) = (); | 
|---|
| 5417 | foreach (split (' ', $val)) | 
|---|
| 5418 | { | 
|---|
| 5419 | # If a comment seen, just leave. | 
|---|
| 5420 | last if /^#/; | 
|---|
| 5421 |  | 
|---|
| 5422 | # Handle variable substitutions. | 
|---|
| 5423 | if (/^\$\{(.*)\}$/ || /^\$\((.*)\)$/) | 
|---|
| 5424 | { | 
|---|
| 5425 | push (@subvar_conds, | 
|---|
| 5426 | &variable_conditions_sub ($1, $var, @parent_conds)); | 
|---|
| 5427 | } | 
|---|
| 5428 | } | 
|---|
| 5429 | pop (@parent_conds); | 
|---|
| 5430 |  | 
|---|
| 5431 | # If there are no conditional subvariables, then we want to | 
|---|
| 5432 | # return this condition.  Otherwise, we want to return the | 
|---|
| 5433 | # permutations of the subvariables. | 
|---|
| 5434 | if (! @subvar_conds) | 
|---|
| 5435 | { | 
|---|
| 5436 | push (@new_conds, $cond); | 
|---|
| 5437 | } | 
|---|
| 5438 | else | 
|---|
| 5439 | { | 
|---|
| 5440 | push (@new_conds, &variable_conditions_reduce (@subvar_conds)); | 
|---|
| 5441 | } | 
|---|
| 5442 | } | 
|---|
| 5443 |  | 
|---|
| 5444 | # Unset our entry in vars_scanned.  We only care about recursive | 
|---|
| 5445 | # definitions. | 
|---|
| 5446 | delete $vars_scanned{$var}; | 
|---|
| 5447 |  | 
|---|
| 5448 | return @new_conds | 
|---|
| 5449 | if ! $parent; | 
|---|
| 5450 |  | 
|---|
| 5451 | # If we are being called on behalf of another variable, we need to | 
|---|
| 5452 | # return all possible permutations of the conditions.  We have | 
|---|
| 5453 | # already handled everything in @this_conds along with their | 
|---|
| 5454 | # subvariables.  We now need to add any permutations that are not | 
|---|
| 5455 | # in @this_conds. | 
|---|
| 5456 | local ($this_cond); | 
|---|
| 5457 | foreach $this_cond (@this_conds) | 
|---|
| 5458 | { | 
|---|
| 5459 | local (@perms) = | 
|---|
| 5460 | &variable_conditions_permutations (split('@', $this_cond)); | 
|---|
| 5461 | local ($perm); | 
|---|
| 5462 | foreach $perm (@perms) | 
|---|
| 5463 | { | 
|---|
| 5464 | local ($scan); | 
|---|
| 5465 | local ($ok) = 1; | 
|---|
| 5466 | foreach $scan (@this_conds) | 
|---|
| 5467 | { | 
|---|
| 5468 | if (&conditional_true_when ($perm, $scan) | 
|---|
| 5469 | || &conditional_true_when ($scan, $perm)) | 
|---|
| 5470 | { | 
|---|
| 5471 | $ok = 0; | 
|---|
| 5472 | last; | 
|---|
| 5473 | } | 
|---|
| 5474 | } | 
|---|
| 5475 | next if ! $ok; | 
|---|
| 5476 |  | 
|---|
| 5477 | if (@parent_conds) | 
|---|
| 5478 | { | 
|---|
| 5479 | local ($ok) = 1; | 
|---|
| 5480 | local ($parent_cond); | 
|---|
| 5481 | foreach $parent_cond (@parent_conds) | 
|---|
| 5482 | { | 
|---|
| 5483 | if (! &conditional_true_when ($parent_cond, $perm)) | 
|---|
| 5484 | { | 
|---|
| 5485 | $ok = 0; | 
|---|
| 5486 | last; | 
|---|
| 5487 | } | 
|---|
| 5488 | } | 
|---|
| 5489 |  | 
|---|
| 5490 | next if ! $ok; | 
|---|
| 5491 | } | 
|---|
| 5492 |  | 
|---|
| 5493 | # This permutation was not already handled, and is valid | 
|---|
| 5494 | # for the parents. | 
|---|
| 5495 | push (@new_conds, $perm); | 
|---|
| 5496 | } | 
|---|
| 5497 | } | 
|---|
| 5498 |  | 
|---|
| 5499 | return @new_conds; | 
|---|
| 5500 | } | 
|---|
| 5501 |  | 
|---|
| 5502 | # Subroutine for variable_conditions_sort | 
|---|
| 5503 | sub variable_conditions_cmp | 
|---|
| 5504 | { | 
|---|
| 5505 | local ($as) = $a; | 
|---|
| 5506 | $as =~ s/[^@]//g; | 
|---|
| 5507 | local ($bs) = $b; | 
|---|
| 5508 | $bs =~ s/[^@]//g; | 
|---|
| 5509 | return (length ($as) <=> length ($bs) | 
|---|
| 5510 | || $a cmp $b); | 
|---|
| 5511 | } | 
|---|
| 5512 |  | 
|---|
| 5513 | # Sort a list of conditionals so that only the exclusive ones are | 
|---|
| 5514 | # retained.  For example, if both @COND1_TRUE@@COND2_TRUE@ and | 
|---|
| 5515 | # @COND1_TRUE@ are in the list, discard the latter. | 
|---|
| 5516 | sub variable_conditions_reduce | 
|---|
| 5517 | { | 
|---|
| 5518 | local (@conds) = @_; | 
|---|
| 5519 | local (@ret) = (); | 
|---|
| 5520 | local ($cond); | 
|---|
| 5521 | foreach $cond (sort variable_conditions_cmp @conds) | 
|---|
| 5522 | { | 
|---|
| 5523 | local ($ok) = 1; | 
|---|
| 5524 | local ($scan); | 
|---|
| 5525 | foreach $scan (@ret) | 
|---|
| 5526 | { | 
|---|
| 5527 | if (&conditional_true_when ($cond, $scan)) | 
|---|
| 5528 | { | 
|---|
| 5529 | $ok = 0; | 
|---|
| 5530 | last; | 
|---|
| 5531 | } | 
|---|
| 5532 | } | 
|---|
| 5533 | next if ! $ok; | 
|---|
| 5534 | push (@ret, $cond); | 
|---|
| 5535 | } | 
|---|
| 5536 |  | 
|---|
| 5537 | return @ret; | 
|---|
| 5538 | } | 
|---|
| 5539 |  | 
|---|
| 5540 | # Return a list of permutations of a conditional string. | 
|---|
| 5541 | sub variable_conditions_permutations | 
|---|
| 5542 | { | 
|---|
| 5543 | local (@comps) = @_; | 
|---|
| 5544 | return () | 
|---|
| 5545 | if ! @comps; | 
|---|
| 5546 | local ($comp) = shift (@comps); | 
|---|
| 5547 | return &variable_conditions_permutations (@comps) | 
|---|
| 5548 | if $comp eq ''; | 
|---|
| 5549 | local ($neg) = $comp; | 
|---|
| 5550 | $neg =~ s/TRUE$/TRUEO/; | 
|---|
| 5551 | $neg =~ s/FALSE$/TRUE/; | 
|---|
| 5552 | $neg =~ s/TRUEO$/FALSE/; | 
|---|
| 5553 | local (@ret); | 
|---|
| 5554 | local ($sub); | 
|---|
| 5555 | foreach $sub (&variable_conditions_permutations (@comps)) | 
|---|
| 5556 | { | 
|---|
| 5557 | push (@ret, '@' . $comp . '@' . $sub); | 
|---|
| 5558 | push (@ret, '@' . $neg . '@' . $sub); | 
|---|
| 5559 | } | 
|---|
| 5560 | if (! @ret) | 
|---|
| 5561 | { | 
|---|
| 5562 | push (@ret, '@' . $comp . '@'); | 
|---|
| 5563 | push (@ret, '@' . $neg . '@'); | 
|---|
| 5564 | } | 
|---|
| 5565 | return @ret; | 
|---|
| 5566 | } | 
|---|
| 5567 |  | 
|---|
| 5568 | # Warn if a variable is conditionally defined.  This is called if we | 
|---|
| 5569 | # are using the value of a variable. | 
|---|
| 5570 | sub variable_conditionally_defined | 
|---|
| 5571 | { | 
|---|
| 5572 | local ($var, $parent) = @_; | 
|---|
| 5573 | if ($conditional{$var}) | 
|---|
| 5574 | { | 
|---|
| 5575 | if ($parent) | 
|---|
| 5576 | { | 
|---|
| 5577 | &am_line_error ($parent, | 
|---|
| 5578 | "warning: automake does not support conditional definition of $var in $parent"); | 
|---|
| 5579 | } | 
|---|
| 5580 | else | 
|---|
| 5581 | { | 
|---|
| 5582 | &am_line_error ($parent, | 
|---|
| 5583 | "warning: automake does not support $var being defined conditionally") | 
|---|
| 5584 | } | 
|---|
| 5585 | } | 
|---|
| 5586 | } | 
|---|
| 5587 |  | 
|---|
| 5588 | # Get the value of a variable.  This just returns $contents, but warns | 
|---|
| 5589 | # if the variable is conditionally defined. | 
|---|
| 5590 | sub variable_value | 
|---|
| 5591 | { | 
|---|
| 5592 | local ($var) = @_; | 
|---|
| 5593 | &variable_conditionally_defined ($var); | 
|---|
| 5594 | return $contents{$var}; | 
|---|
| 5595 | } | 
|---|
| 5596 |  | 
|---|
| 5597 | # Convert a variable value to a list, split as whitespace.  This will | 
|---|
| 5598 | # recursively follow $(...) and ${...} inclusions.  It preserves @...@ | 
|---|
| 5599 | # substitutions.  If COND is 'all', then all values under all | 
|---|
| 5600 | # conditions should be returned; if COND is a particular condition | 
|---|
| 5601 | # (all conditions are surrounded by @...@) then only the value for | 
|---|
| 5602 | # that condition should be returned; otherwise, warn if VAR is | 
|---|
| 5603 | # conditionally defined.  SCANNED is a global hash listing whose keys | 
|---|
| 5604 | # are all the variables already scanned; it is an error to rescan a | 
|---|
| 5605 | # variable. | 
|---|
| 5606 | sub value_to_list | 
|---|
| 5607 | { | 
|---|
| 5608 | local ($var, $val, $cond) = @_; | 
|---|
| 5609 | local (@result); | 
|---|
| 5610 |  | 
|---|
| 5611 | foreach (split (' ', $val)) | 
|---|
| 5612 | { | 
|---|
| 5613 | # If a comment seen, just leave. | 
|---|
| 5614 | last if /^#/; | 
|---|
| 5615 |  | 
|---|
| 5616 | # Handle variable substitutions. | 
|---|
| 5617 | if (/^\$\{([^}]*)\}$/ || /^\$\(([^)]*)\)$/) | 
|---|
| 5618 | { | 
|---|
| 5619 | local ($varname) = $1; | 
|---|
| 5620 |  | 
|---|
| 5621 | # If the user uses a losing variable name, just ignore it. | 
|---|
| 5622 | # This isn't ideal, but people have requested it. | 
|---|
| 5623 | next if ($varname =~ /\@.*\@/); | 
|---|
| 5624 |  | 
|---|
| 5625 | local ($from, $to); | 
|---|
| 5626 | local (@temp_list); | 
|---|
| 5627 | if ($varname =~ /^([^:]*):([^=]*)=(.*)$/) | 
|---|
| 5628 | { | 
|---|
| 5629 | $varname = $1; | 
|---|
| 5630 | $to = $3; | 
|---|
| 5631 | ($from = $2) =~ s/(\W)/\\$1/g; | 
|---|
| 5632 | } | 
|---|
| 5633 |  | 
|---|
| 5634 | # Find the value. | 
|---|
| 5635 | @temp_list = &variable_value_as_list_worker ($1, $cond, $var); | 
|---|
| 5636 |  | 
|---|
| 5637 | # Now rewrite the value if appropriate. | 
|---|
| 5638 | if ($from) | 
|---|
| 5639 | { | 
|---|
| 5640 | grep (s/$from$/$to/, @temp_list); | 
|---|
| 5641 | } | 
|---|
| 5642 |  | 
|---|
| 5643 | push (@result, @temp_list); | 
|---|
| 5644 | } | 
|---|
| 5645 | else | 
|---|
| 5646 | { | 
|---|
| 5647 | push (@result, $_); | 
|---|
| 5648 | } | 
|---|
| 5649 | } | 
|---|
| 5650 |  | 
|---|
| 5651 | return @result; | 
|---|
| 5652 | } | 
|---|
| 5653 |  | 
|---|
| 5654 | # Return contents of variable as list, split as whitespace.  This will | 
|---|
| 5655 | # recursively follow $(...) and ${...} inclusions.  It preserves @...@ | 
|---|
| 5656 | # substitutions.  If COND is 'all', then all values under all | 
|---|
| 5657 | # conditions should be returned; if COND is a particular condition | 
|---|
| 5658 | # (all conditions are surrounded by @...@) then only the value for | 
|---|
| 5659 | # that condition should be returned; otherwise, warn if VAR is | 
|---|
| 5660 | # conditionally defined.  If PARENT is specified, it is the name of | 
|---|
| 5661 | # the including variable; this is only used for error reports. | 
|---|
| 5662 | sub variable_value_as_list_worker | 
|---|
| 5663 | { | 
|---|
| 5664 | local ($var, $cond, $parent) = @_; | 
|---|
| 5665 | local (@result); | 
|---|
| 5666 |  | 
|---|
| 5667 | if (defined $targets{$var}) | 
|---|
| 5668 | { | 
|---|
| 5669 | &am_line_error ($var, "\`$var' is target; expected variable"); | 
|---|
| 5670 | } | 
|---|
| 5671 | elsif (! defined $contents{$var}) | 
|---|
| 5672 | { | 
|---|
| 5673 | &am_line_error ($parent, "variable \`$var' not defined"); | 
|---|
| 5674 | } | 
|---|
| 5675 | elsif (defined $vars_scanned{$var}) | 
|---|
| 5676 | { | 
|---|
| 5677 | # `vars_scanned' is a global we use to keep track of which | 
|---|
| 5678 | # variables we've already examined. | 
|---|
| 5679 | &am_line_error ($parent, "variable \`$var' recursively defined"); | 
|---|
| 5680 | } | 
|---|
| 5681 | elsif ($cond eq 'all' && $conditional{$var}) | 
|---|
| 5682 | { | 
|---|
| 5683 | $vars_scanned{$var} = 1; | 
|---|
| 5684 | local (@condvals) = split (' ', $conditional{$var}); | 
|---|
| 5685 | while (@condvals) | 
|---|
| 5686 | { | 
|---|
| 5687 | shift (@condvals); | 
|---|
| 5688 | local ($val) = &unquote_cond_val (shift (@condvals)); | 
|---|
| 5689 | push (@result, &value_to_list ($var, $val, $cond)); | 
|---|
| 5690 | } | 
|---|
| 5691 | } | 
|---|
| 5692 | elsif ($cond && $conditional{$var}) | 
|---|
| 5693 | { | 
|---|
| 5694 | $vars_scanned{$var} = 1; | 
|---|
| 5695 | local (@condvals) = split (' ', $conditional{$var}); | 
|---|
| 5696 | local ($onceflag); | 
|---|
| 5697 | while (@condvals) | 
|---|
| 5698 | { | 
|---|
| 5699 | local ($vcond) = shift (@condvals); | 
|---|
| 5700 | local ($val) = &unquote_cond_val (shift (@condvals)); | 
|---|
| 5701 | if (&conditional_true_when ($vcond, $cond)) | 
|---|
| 5702 | { | 
|---|
| 5703 | # Warn if we have an ambiguity.  It's hard to know how | 
|---|
| 5704 | # to handle this case correctly. | 
|---|
| 5705 | &variable_conditionally_defined ($var, $parent) | 
|---|
| 5706 | if $onceflag; | 
|---|
| 5707 | $onceflag = 1; | 
|---|
| 5708 | push (@result, &value_to_list ($var, $val, $cond)); | 
|---|
| 5709 | } | 
|---|
| 5710 | } | 
|---|
| 5711 | } | 
|---|
| 5712 | else | 
|---|
| 5713 | { | 
|---|
| 5714 | $vars_scanned{$var} = 1; | 
|---|
| 5715 | &variable_conditionally_defined ($var, $parent); | 
|---|
| 5716 | $content_seen{$var} = 1; | 
|---|
| 5717 | push (@result, &value_to_list ($var, $contents{$var}, $cond)); | 
|---|
| 5718 | } | 
|---|
| 5719 |  | 
|---|
| 5720 | # Unset our entry in vars_scanned.  We only care about recursive | 
|---|
| 5721 | # definitions. | 
|---|
| 5722 | delete $vars_scanned{$var}; | 
|---|
| 5723 |  | 
|---|
| 5724 | return @result; | 
|---|
| 5725 | } | 
|---|
| 5726 |  | 
|---|
| 5727 | # This is just a wrapper for variable_value_as_list_worker that | 
|---|
| 5728 | # initializes the global hash `vars_scanned'.  This hash is used to | 
|---|
| 5729 | # avoid infinite recursion. | 
|---|
| 5730 | sub variable_value_as_list | 
|---|
| 5731 | { | 
|---|
| 5732 | local ($var, $cond, $parent) = @_; | 
|---|
| 5733 | %vars_scanned = (); | 
|---|
| 5734 | return &variable_value_as_list_worker ($var, $cond, $parent); | 
|---|
| 5735 | } | 
|---|
| 5736 |  | 
|---|
| 5737 | # Define a new variable, but only if not already defined. | 
|---|
| 5738 | sub define_variable | 
|---|
| 5739 | { | 
|---|
| 5740 | local ($var, $value) = @_; | 
|---|
| 5741 |  | 
|---|
| 5742 | if (! defined $contents{$var}) | 
|---|
| 5743 | { | 
|---|
| 5744 | $output_vars .= $var . ' = ' . $value . "\n"; | 
|---|
| 5745 | $contents{$var} = $value; | 
|---|
| 5746 | $content_seen{$var} = 1; | 
|---|
| 5747 | } | 
|---|
| 5748 | } | 
|---|
| 5749 |  | 
|---|
| 5750 | # Like define_variable, but the value is a list, and the variable may | 
|---|
| 5751 | # be defined conditionally.  The second argument is the conditional | 
|---|
| 5752 | # under which the value should be defined; this should be the empty | 
|---|
| 5753 | # string to define the variable unconditionally.  The third argument | 
|---|
| 5754 | # is a list holding the values to use for the variable.  The value is | 
|---|
| 5755 | # pretty printed in the output file. | 
|---|
| 5756 | sub define_pretty_variable | 
|---|
| 5757 | { | 
|---|
| 5758 | local ($var, $cond, @value) = @_; | 
|---|
| 5759 | if (! defined $contents{$var} | 
|---|
| 5760 | || ($cond && ! &variable_defined ($var, $cond))) | 
|---|
| 5761 | { | 
|---|
| 5762 | $contents{$var} = join (' ', @value); | 
|---|
| 5763 | if ($cond) | 
|---|
| 5764 | { | 
|---|
| 5765 | if ($conditional{$var}) | 
|---|
| 5766 | { | 
|---|
| 5767 | $conditional{$var} .= ' '; | 
|---|
| 5768 | } | 
|---|
| 5769 | else | 
|---|
| 5770 | { | 
|---|
| 5771 | $conditional{$var} = ''; | 
|---|
| 5772 | } | 
|---|
| 5773 | $conditional{$var} .= ($cond | 
|---|
| 5774 | . ' ' | 
|---|
| 5775 | . "e_cond_val ($contents{$var})); | 
|---|
| 5776 | } | 
|---|
| 5777 | &pretty_print ($cond . $var . ' = ', $cond, @value); | 
|---|
| 5778 | $content_seen{$var} = 1; | 
|---|
| 5779 | } | 
|---|
| 5780 | } | 
|---|
| 5781 |  | 
|---|
| 5782 | # Like define_variable, but define a variable to be the configure | 
|---|
| 5783 | # substitution by the same name. | 
|---|
| 5784 | sub define_configure_variable | 
|---|
| 5785 | { | 
|---|
| 5786 | local ($var) = @_; | 
|---|
| 5787 | local ($value) = '@' . $var . '@'; | 
|---|
| 5788 | &define_variable ($var, $value); | 
|---|
| 5789 | } | 
|---|
| 5790 |  | 
|---|
| 5791 | # Define a variable that represents a program to run.  If in Cygnus | 
|---|
| 5792 | # mode, the program is searched for in the build (or source) tree. | 
|---|
| 5793 | # Otherwise no searching is done at all.  Arguments are: | 
|---|
| 5794 | # * VAR      Name of variable to define | 
|---|
| 5795 | # * WHATDIR  Either `src' or `build', depending on where program should | 
|---|
| 5796 | #            be found.  (runtest is in srcdir!) | 
|---|
| 5797 | # * SUBDIR   Subdir of top-level dir | 
|---|
| 5798 | # * PROGRAM  Name of program | 
|---|
| 5799 | # * OVERRIDE If specified, the name of the program to use when not in | 
|---|
| 5800 | #            Cygnus mode.  Defaults to PROGRAM. | 
|---|
| 5801 | sub define_program_variable | 
|---|
| 5802 | { | 
|---|
| 5803 | local ($var, $whatdir, $subdir, $program, $override) = @_; | 
|---|
| 5804 |  | 
|---|
| 5805 | if (! $override) | 
|---|
| 5806 | { | 
|---|
| 5807 | $override = $program; | 
|---|
| 5808 | } | 
|---|
| 5809 |  | 
|---|
| 5810 | if ($cygnus_mode) | 
|---|
| 5811 | { | 
|---|
| 5812 | local ($full) = ('$(top_' . $whatdir . 'dir)/../' | 
|---|
| 5813 | . $subdir . '/' . $program); | 
|---|
| 5814 | &define_variable ($var, ('`if test -f ' . $full | 
|---|
| 5815 | . '; then echo ' . $full . '; else echo ' | 
|---|
| 5816 | . $program . '; fi`')); | 
|---|
| 5817 | } | 
|---|
| 5818 | else | 
|---|
| 5819 | { | 
|---|
| 5820 | &define_variable ($var, $override); | 
|---|
| 5821 | } | 
|---|
| 5822 | } | 
|---|
| 5823 |  | 
|---|
| 5824 |  | 
|---|
| 5825 | ################################################################ | 
|---|
| 5826 |  | 
|---|
| 5827 | # Read Makefile.am and set up %contents.  Simultaneously copy lines | 
|---|
| 5828 | # from Makefile.am into $output_trailer or $output_vars as | 
|---|
| 5829 | # appropriate.  NOTE we put rules in the trailer section.  We want | 
|---|
| 5830 | # user rules to come after our generated stuff. | 
|---|
| 5831 | sub read_am_file | 
|---|
| 5832 | { | 
|---|
| 5833 | local ($amfile) = @_; | 
|---|
| 5834 | local (*AM_FILE); | 
|---|
| 5835 |  | 
|---|
| 5836 | open (AM_FILE, $amfile) || die "automake: couldn't open \`$amfile': $!\n"; | 
|---|
| 5837 | print "automake: reading $amfile\n" if $verbose; | 
|---|
| 5838 |  | 
|---|
| 5839 | local ($saw_bk) = 0; | 
|---|
| 5840 | local ($was_rule) = 0; | 
|---|
| 5841 | local ($spacing) = ''; | 
|---|
| 5842 | local ($comment) = ''; | 
|---|
| 5843 | local ($last_var_name) = ''; | 
|---|
| 5844 | local ($blank) = 0; | 
|---|
| 5845 |  | 
|---|
| 5846 | while (<AM_FILE>) | 
|---|
| 5847 | { | 
|---|
| 5848 | if (/$IGNORE_PATTERN/o) | 
|---|
| 5849 | { | 
|---|
| 5850 | # Merely delete comments beginning with two hashes. | 
|---|
| 5851 | } | 
|---|
| 5852 | elsif (/$WHITE_PATTERN/o) | 
|---|
| 5853 | { | 
|---|
| 5854 | # Stick a single white line before the incoming macro or rule. | 
|---|
| 5855 | $spacing = "\n"; | 
|---|
| 5856 | $blank = 1; | 
|---|
| 5857 | } | 
|---|
| 5858 | elsif (/$COMMENT_PATTERN/o) | 
|---|
| 5859 | { | 
|---|
| 5860 | # Stick comments before the incoming macro or rule.  Make | 
|---|
| 5861 | # sure a blank line preceeds first block of comments. | 
|---|
| 5862 | $spacing = "\n" unless $blank; | 
|---|
| 5863 | $blank = 1; | 
|---|
| 5864 | $comment .= $spacing . $_; | 
|---|
| 5865 | $spacing = ''; | 
|---|
| 5866 | } | 
|---|
| 5867 | else | 
|---|
| 5868 | { | 
|---|
| 5869 | last; | 
|---|
| 5870 | } | 
|---|
| 5871 | } | 
|---|
| 5872 |  | 
|---|
| 5873 | $output_vars .= $comment . "\n"; | 
|---|
| 5874 | $comment = ''; | 
|---|
| 5875 | $spacing = "\n"; | 
|---|
| 5876 |  | 
|---|
| 5877 | local ($is_ok_macro); | 
|---|
| 5878 | while ($_) | 
|---|
| 5879 | { | 
|---|
| 5880 | $_ .= "\n" | 
|---|
| 5881 | unless substr ($_, -1, 1) eq "\n"; | 
|---|
| 5882 |  | 
|---|
| 5883 | # Don't look at MAINTAINER_MODE_TRUE here.  That shouldn't be | 
|---|
| 5884 | # used by users.  @MAINT@ is an anachronism now. | 
|---|
| 5885 | $_ =~ s/\@MAINT\@//g | 
|---|
| 5886 | unless $seen_maint_mode; | 
|---|
| 5887 |  | 
|---|
| 5888 | if (/$IGNORE_PATTERN/o) | 
|---|
| 5889 | { | 
|---|
| 5890 | # Merely delete comments beginning with two hashes. | 
|---|
| 5891 | } | 
|---|
| 5892 | elsif (/$WHITE_PATTERN/o) | 
|---|
| 5893 | { | 
|---|
| 5894 | # Stick a single white line before the incoming macro or rule. | 
|---|
| 5895 | $spacing = "\n"; | 
|---|
| 5896 | &am_line_error ($., "blank line following trailing backslash") | 
|---|
| 5897 | if $saw_bk; | 
|---|
| 5898 | } | 
|---|
| 5899 | elsif (/$COMMENT_PATTERN/o) | 
|---|
| 5900 | { | 
|---|
| 5901 | # Stick comments before the incoming macro or rule. | 
|---|
| 5902 | $comment .= $spacing . $_; | 
|---|
| 5903 | $spacing = ''; | 
|---|
| 5904 | &am_line_error ($., "comment following trailing backslash") | 
|---|
| 5905 | if $saw_bk; | 
|---|
| 5906 | } | 
|---|
| 5907 | elsif ($saw_bk) | 
|---|
| 5908 | { | 
|---|
| 5909 | if ($was_rule) | 
|---|
| 5910 | { | 
|---|
| 5911 | $output_trailer .= join ('', @conditional_stack) . $_; | 
|---|
| 5912 | $saw_bk = /\\$/; | 
|---|
| 5913 | } | 
|---|
| 5914 | else | 
|---|
| 5915 | { | 
|---|
| 5916 | $saw_bk = /\\$/; | 
|---|
| 5917 | # Chop newline and backslash if this line is | 
|---|
| 5918 | # continued.  ensure trailing whitespace exists. | 
|---|
| 5919 | chop if $saw_bk; | 
|---|
| 5920 | chop if $saw_bk; | 
|---|
| 5921 | $contents{$last_var_name} .= ' ' | 
|---|
| 5922 | unless $contents{$last_var_name} =~ /\s$/; | 
|---|
| 5923 | $contents{$last_var_name} .= $_; | 
|---|
| 5924 | if (@conditional_stack) | 
|---|
| 5925 | { | 
|---|
| 5926 | $conditional{$last_var_name} .= "e_cond_val ($_); | 
|---|
| 5927 | } | 
|---|
| 5928 | } | 
|---|
| 5929 | } | 
|---|
| 5930 | elsif (/$IF_PATTERN/o) | 
|---|
| 5931 | { | 
|---|
| 5932 | &am_line_error ($., "$1 does not appear in AM_CONDITIONAL") | 
|---|
| 5933 | if (! $configure_cond{$1}); | 
|---|
| 5934 | push (@conditional_stack, "\@" . $1 . "_TRUE\@"); | 
|---|
| 5935 | } | 
|---|
| 5936 | elsif (/$ELSE_PATTERN/o) | 
|---|
| 5937 | { | 
|---|
| 5938 | if (! @conditional_stack) | 
|---|
| 5939 | { | 
|---|
| 5940 | &am_line_error ($., "else without if"); | 
|---|
| 5941 | } | 
|---|
| 5942 | elsif ($conditional_stack[$#conditional_stack] =~ /_FALSE\@$/) | 
|---|
| 5943 | { | 
|---|
| 5944 | &am_line_error ($., "else after else"); | 
|---|
| 5945 | } | 
|---|
| 5946 | else | 
|---|
| 5947 | { | 
|---|
| 5948 | $conditional_stack[$#conditional_stack] | 
|---|
| 5949 | =~ s/_TRUE\@$/_FALSE\@/; | 
|---|
| 5950 | } | 
|---|
| 5951 | } | 
|---|
| 5952 | elsif (/$ENDIF_PATTERN/o) | 
|---|
| 5953 | { | 
|---|
| 5954 | if (! @conditional_stack) | 
|---|
| 5955 | { | 
|---|
| 5956 | &am_line_error ($., "endif without if"); | 
|---|
| 5957 | } | 
|---|
| 5958 | else | 
|---|
| 5959 | { | 
|---|
| 5960 | pop @conditional_stack; | 
|---|
| 5961 | } | 
|---|
| 5962 | } | 
|---|
| 5963 | elsif (/$RULE_PATTERN/o) | 
|---|
| 5964 | { | 
|---|
| 5965 | # Found a rule. | 
|---|
| 5966 | $was_rule = 1; | 
|---|
| 5967 | if (defined $contents{$1} | 
|---|
| 5968 | && (@conditional_stack | 
|---|
| 5969 | ? ! defined $conditional{$1} | 
|---|
| 5970 | : defined $conditional{$1})) | 
|---|
| 5971 | { | 
|---|
| 5972 | &am_line_error ($1, | 
|---|
| 5973 | "$1 defined both conditionally and unconditionally"); | 
|---|
| 5974 | } | 
|---|
| 5975 | # Value here doesn't matter; for targets we only note | 
|---|
| 5976 | # existence. | 
|---|
| 5977 | $contents{$1} = 1; | 
|---|
| 5978 | $targets{$1} = 1; | 
|---|
| 5979 | local ($cond_string) = join ('', @conditional_stack); | 
|---|
| 5980 | if (@conditional_stack) | 
|---|
| 5981 | { | 
|---|
| 5982 | if ($conditional{$1}) | 
|---|
| 5983 | { | 
|---|
| 5984 | &check_ambiguous_conditional ($1, $cond_string); | 
|---|
| 5985 | $conditional{$1} .= ' '; | 
|---|
| 5986 | } | 
|---|
| 5987 | else | 
|---|
| 5988 | { | 
|---|
| 5989 | $conditional{$1} = ''; | 
|---|
| 5990 | } | 
|---|
| 5991 | $conditional{$1} .= $cond_string . ' 1'; | 
|---|
| 5992 | } | 
|---|
| 5993 | $content_lines{$1} = $.; | 
|---|
| 5994 | $output_trailer .= $comment . $spacing . $cond_string . $_; | 
|---|
| 5995 | $comment = $spacing = ''; | 
|---|
| 5996 | $saw_bk = /\\$/; | 
|---|
| 5997 |  | 
|---|
| 5998 | # Check the rule for being a suffix rule. If so, store in | 
|---|
| 5999 | # a hash. | 
|---|
| 6000 |  | 
|---|
| 6001 | local ($source_suffix); | 
|---|
| 6002 | local ($object_suffix); | 
|---|
| 6003 |  | 
|---|
| 6004 | if (($source_suffix, $object_suffix) = ($1 =~ $SUFFIX_RULE_PATTERN)) | 
|---|
| 6005 | { | 
|---|
| 6006 | $suffix_rules{$source_suffix} = $object_suffix; | 
|---|
| 6007 | print "Sources ending in .$source_suffix become .$object_suffix\n" if $verbose; | 
|---|
| 6008 | $source_suffix_pattern = "(" . join('|', keys %suffix_rules) . ")"; | 
|---|
| 6009 | } | 
|---|
| 6010 |  | 
|---|
| 6011 | # FIXME: make sure both suffixes are in SUFFIXES? Or set | 
|---|
| 6012 | # SUFFIXES from suffix_rules? | 
|---|
| 6013 | } | 
|---|
| 6014 | elsif (($is_ok_macro = /$MACRO_PATTERN/o) | 
|---|
| 6015 | || /$BOGUS_MACRO_PATTERN/o) | 
|---|
| 6016 | { | 
|---|
| 6017 | # Found a macro definition. | 
|---|
| 6018 | $was_rule = 0; | 
|---|
| 6019 | $last_var_name = $1; | 
|---|
| 6020 | if (defined $contents{$1} | 
|---|
| 6021 | && (@conditional_stack | 
|---|
| 6022 | ? ! defined $conditional{$1} | 
|---|
| 6023 | : defined $conditional{$1})) | 
|---|
| 6024 | { | 
|---|
| 6025 | &am_line_error ($1, | 
|---|
| 6026 | "$1 defined both conditionally and unconditionally"); | 
|---|
| 6027 | } | 
|---|
| 6028 | local ($value); | 
|---|
| 6029 | if ($3 ne '' && substr ($3, -1) eq "\\") | 
|---|
| 6030 | { | 
|---|
| 6031 | $value = substr ($3, 0, length ($3) - 1); | 
|---|
| 6032 | } | 
|---|
| 6033 | else | 
|---|
| 6034 | { | 
|---|
| 6035 | $value = $3; | 
|---|
| 6036 | } | 
|---|
| 6037 | local ($type) = $2; | 
|---|
| 6038 | if ($type eq '+') | 
|---|
| 6039 | { | 
|---|
| 6040 | if (! defined $contents{$last_var_name} | 
|---|
| 6041 | && defined $configure_vars{$last_var_name}) | 
|---|
| 6042 | { | 
|---|
| 6043 | $contents{$last_var_name} = '@' . $last_var_name . '@'; | 
|---|
| 6044 | } | 
|---|
| 6045 | $contents{$last_var_name} .= ' ' . $value; | 
|---|
| 6046 | } | 
|---|
| 6047 | else | 
|---|
| 6048 | { | 
|---|
| 6049 | $contents{$last_var_name} = $value; | 
|---|
| 6050 | # The first assignment to a macro sets the line | 
|---|
| 6051 | # number.  Ideally I suppose we would associate line | 
|---|
| 6052 | # numbers with random bits of text. | 
|---|
| 6053 | $content_lines{$last_var_name} = $.; | 
|---|
| 6054 | } | 
|---|
| 6055 | local ($cond_string) = join ('', @conditional_stack); | 
|---|
| 6056 | if (@conditional_stack) | 
|---|
| 6057 | { | 
|---|
| 6058 | local ($found) = 0; | 
|---|
| 6059 | local ($val); | 
|---|
| 6060 | if ($conditional{$last_var_name}) | 
|---|
| 6061 | { | 
|---|
| 6062 | if ($type eq '+') | 
|---|
| 6063 | { | 
|---|
| 6064 | # If we're adding to the conditional, and it | 
|---|
| 6065 | # exists, then we might want to simply replace | 
|---|
| 6066 | # the old value with the new one. | 
|---|
| 6067 | local (@new_vals, @cond_vals); | 
|---|
| 6068 | @cond_vals = split (' ', $conditional{$last_var_name}); | 
|---|
| 6069 | while (@cond_vals) | 
|---|
| 6070 | { | 
|---|
| 6071 | local ($vcond) = shift (@cond_vals); | 
|---|
| 6072 | push (@new_vals, $vcond); | 
|---|
| 6073 | if (&conditional_same ($vcond, $cond_string)) | 
|---|
| 6074 | { | 
|---|
| 6075 | $found = 1; | 
|---|
| 6076 | $val = (&unquote_cond_val (shift (@cond_vals)) | 
|---|
| 6077 | . ' ' . $value); | 
|---|
| 6078 | push (@new_vals, "e_cond_val ($val)); | 
|---|
| 6079 | } | 
|---|
| 6080 | else | 
|---|
| 6081 | { | 
|---|
| 6082 | push (@new_vals, shift (@cond_vals)); | 
|---|
| 6083 | } | 
|---|
| 6084 | } | 
|---|
| 6085 | if ($found) | 
|---|
| 6086 | { | 
|---|
| 6087 | $conditional{$last_var_name} | 
|---|
| 6088 | = join (' ', @new_vals); | 
|---|
| 6089 | } | 
|---|
| 6090 | } | 
|---|
| 6091 |  | 
|---|
| 6092 | if (! $found) | 
|---|
| 6093 | { | 
|---|
| 6094 | &check_ambiguous_conditional ($last_var_name, | 
|---|
| 6095 | $cond_string); | 
|---|
| 6096 | $conditional{$last_var_name} .= ' '; | 
|---|
| 6097 | $val = $value; | 
|---|
| 6098 | } | 
|---|
| 6099 | } | 
|---|
| 6100 | else | 
|---|
| 6101 | { | 
|---|
| 6102 | $conditional{$last_var_name} = ''; | 
|---|
| 6103 | $val = $contents{$last_var_name}; | 
|---|
| 6104 | } | 
|---|
| 6105 | if (! $found) | 
|---|
| 6106 | { | 
|---|
| 6107 | $conditional{$last_var_name} .= ($cond_string | 
|---|
| 6108 | . ' ' | 
|---|
| 6109 | . "e_cond_val ($val)); | 
|---|
| 6110 | } | 
|---|
| 6111 | } | 
|---|
| 6112 |  | 
|---|
| 6113 | # FIXME: this doesn't always work correctly; it will group | 
|---|
| 6114 | # all comments for a given variable, no matter where | 
|---|
| 6115 | # defined. | 
|---|
| 6116 | $am_vars{$last_var_name} = $comment . $spacing; | 
|---|
| 6117 | $def_type{$last_var_name} = ($type eq ':') ? ':' : ''; | 
|---|
| 6118 | push (@var_list, $last_var_name); | 
|---|
| 6119 | $comment = $spacing = ''; | 
|---|
| 6120 | $saw_bk = /\\$/; | 
|---|
| 6121 |  | 
|---|
| 6122 | # Error if bogus. | 
|---|
| 6123 | &am_line_error ($., "bad macro name \`$last_var_name'") | 
|---|
| 6124 | if ! $is_ok_macro; | 
|---|
| 6125 | } | 
|---|
| 6126 | elsif (/$INCLUDE_PATTERN/o) | 
|---|
| 6127 | { | 
|---|
| 6128 | local ($path) = $1; | 
|---|
| 6129 |  | 
|---|
| 6130 | if ($path =~ s/^\$\(top_srcdir\)\///) | 
|---|
| 6131 | { | 
|---|
| 6132 | push (@include_stack, "\$\(top_srcdir\)/$path"); | 
|---|
| 6133 | } | 
|---|
| 6134 | else | 
|---|
| 6135 | { | 
|---|
| 6136 | $path =~ s/\$\(srcdir\)\///; | 
|---|
| 6137 | push (@include_stack, "\$\(srcdir\)/$path"); | 
|---|
| 6138 | $path = $relative_dir . "/" . $path; | 
|---|
| 6139 | } | 
|---|
| 6140 | &read_am_file ($path); | 
|---|
| 6141 | } | 
|---|
| 6142 | else | 
|---|
| 6143 | { | 
|---|
| 6144 | # This isn't an error; it is probably a continued rule. | 
|---|
| 6145 | # In fact, this is what we assume. | 
|---|
| 6146 | $was_rule = 1; | 
|---|
| 6147 | $output_trailer .= ($comment . $spacing | 
|---|
| 6148 | . join ('', @conditional_stack) . $_); | 
|---|
| 6149 | $comment = $spacing = ''; | 
|---|
| 6150 | $saw_bk = /\\$/; | 
|---|
| 6151 | } | 
|---|
| 6152 |  | 
|---|
| 6153 | $_ = <AM_FILE>; | 
|---|
| 6154 | } | 
|---|
| 6155 |  | 
|---|
| 6156 | $output_trailer .= $comment; | 
|---|
| 6157 |  | 
|---|
| 6158 | &am_error ("unterminated conditionals: " . join (' ', @conditional_stack)) | 
|---|
| 6159 | if (@conditional_stack); | 
|---|
| 6160 | } | 
|---|
| 6161 |  | 
|---|
| 6162 | # Read main am file. | 
|---|
| 6163 | sub read_main_am_file | 
|---|
| 6164 | { | 
|---|
| 6165 | local ($amfile) = @_; | 
|---|
| 6166 |  | 
|---|
| 6167 | $output_vars = ("# $in_file_name generated automatically by automake " | 
|---|
| 6168 | . $VERSION . " from $am_file_name\n"); | 
|---|
| 6169 |  | 
|---|
| 6170 | # Generate copyright for generated Makefile.in. | 
|---|
| 6171 | $output_vars .= $gen_copyright; | 
|---|
| 6172 |  | 
|---|
| 6173 | # The keys here are variables we want to dump at the end of this | 
|---|
| 6174 | # function.  The values are corresponding comments. | 
|---|
| 6175 | local (%am_vars) = (); | 
|---|
| 6176 | local (@var_list) = (); | 
|---|
| 6177 | local (%def_type) = (); | 
|---|
| 6178 |  | 
|---|
| 6179 | &read_am_file ($amfile); | 
|---|
| 6180 |  | 
|---|
| 6181 | # Compute relative location of the top object directory. | 
|---|
| 6182 | local (@topdir) = (); | 
|---|
| 6183 | foreach (split (/\//, $relative_dir)) | 
|---|
| 6184 | { | 
|---|
| 6185 | next if $_ eq '.' || $_ eq ''; | 
|---|
| 6186 | if ($_ eq '..') | 
|---|
| 6187 | { | 
|---|
| 6188 | pop @topdir; | 
|---|
| 6189 | } | 
|---|
| 6190 | else | 
|---|
| 6191 | { | 
|---|
| 6192 | push (@topdir, '..'); | 
|---|
| 6193 | } | 
|---|
| 6194 | } | 
|---|
| 6195 | @topdir = ('.') if ! @topdir; | 
|---|
| 6196 |  | 
|---|
| 6197 | $top_builddir = join ('/', @topdir); | 
|---|
| 6198 | local ($build_rx); | 
|---|
| 6199 | ($build_rx = $top_builddir) =~ s/(\W)/\\$1/g; | 
|---|
| 6200 | $output_vars .= &file_contents_with_transform | 
|---|
| 6201 | ('s/\@top_builddir\@/' . $build_rx . '/g;', | 
|---|
| 6202 | 'header-vars'); | 
|---|
| 6203 |  | 
|---|
| 6204 | # Generate some useful variables when AC_CANONICAL_* used.  FIXME: | 
|---|
| 6205 | # this should use generic %configure_vars method. | 
|---|
| 6206 | if ($seen_canonical) | 
|---|
| 6207 | { | 
|---|
| 6208 | local ($curs, %vars); | 
|---|
| 6209 | $vars{'host_alias'} = 'host_alias'; | 
|---|
| 6210 | $vars{'host_triplet'} = 'host'; | 
|---|
| 6211 | if ($seen_canonical == $AC_CANONICAL_SYSTEM) | 
|---|
| 6212 | { | 
|---|
| 6213 | $vars{'build_alias'} = 'build_alias'; | 
|---|
| 6214 | $vars{'build_triplet'} = 'build'; | 
|---|
| 6215 | $vars{'target_alias'} = 'target_alias'; | 
|---|
| 6216 | $vars{'target_triplet'} = 'target'; | 
|---|
| 6217 | } | 
|---|
| 6218 | foreach $curs (sort keys %vars) | 
|---|
| 6219 | { | 
|---|
| 6220 | $output_vars .= "$curs = \@$vars{$curs}\@\n"; | 
|---|
| 6221 | $contents{$curs} = "\@$vars{$curs}\@"; | 
|---|
| 6222 | } | 
|---|
| 6223 | } | 
|---|
| 6224 |  | 
|---|
| 6225 | local ($curs); | 
|---|
| 6226 | foreach $curs (sort keys %configure_vars) | 
|---|
| 6227 | { | 
|---|
| 6228 | &define_configure_variable ($curs); | 
|---|
| 6229 | } | 
|---|
| 6230 |  | 
|---|
| 6231 | # Now dump the variables that were defined.  We do it in the same | 
|---|
| 6232 | # order in which they were defined (skipping duplicates). | 
|---|
| 6233 | local (%done); | 
|---|
| 6234 | foreach $curs (@var_list) | 
|---|
| 6235 | { | 
|---|
| 6236 | next if $done{$curs}; | 
|---|
| 6237 | $done{$curs} = 1; | 
|---|
| 6238 |  | 
|---|
| 6239 | $output_vars .= $am_vars{$curs}; | 
|---|
| 6240 | if ($conditional{$curs}) | 
|---|
| 6241 | { | 
|---|
| 6242 | local (@cond_vals) = split (' ', $conditional{$curs}); | 
|---|
| 6243 | while (@cond_vals) | 
|---|
| 6244 | { | 
|---|
| 6245 | local ($vcond) = shift (@cond_vals); | 
|---|
| 6246 | local ($val) = &unquote_cond_val (shift (@cond_vals)); | 
|---|
| 6247 | $output_vars .= ($vcond . $curs | 
|---|
| 6248 | . ' ' . $def_type{$curs} . '= ' | 
|---|
| 6249 | . $val . "\n"); | 
|---|
| 6250 | } | 
|---|
| 6251 | } | 
|---|
| 6252 | else | 
|---|
| 6253 | { | 
|---|
| 6254 | $output_vars .= ($curs . ' ' . $def_type{$curs} . '= ' | 
|---|
| 6255 | . $contents{$curs} . "\n"); | 
|---|
| 6256 | } | 
|---|
| 6257 | } | 
|---|
| 6258 | } | 
|---|
| 6259 |  | 
|---|
| 6260 | ################################################################ | 
|---|
| 6261 |  | 
|---|
| 6262 | sub initialize_global_constants | 
|---|
| 6263 | { | 
|---|
| 6264 | # Values for AC_CANONICAL_* | 
|---|
| 6265 | $AC_CANONICAL_HOST = 1; | 
|---|
| 6266 | $AC_CANONICAL_SYSTEM = 2; | 
|---|
| 6267 |  | 
|---|
| 6268 | # Associative array of standard directory names.  Entry is TRUE if | 
|---|
| 6269 | # corresponding directory should be installed during | 
|---|
| 6270 | # 'install-exec' phase. | 
|---|
| 6271 | %exec_dir_p = | 
|---|
| 6272 | ('bin', 1, | 
|---|
| 6273 | 'sbin', 1, | 
|---|
| 6274 | 'libexec', 1, | 
|---|
| 6275 | 'data', 0, | 
|---|
| 6276 | 'sysconf', 1, | 
|---|
| 6277 | 'localstate', 1, | 
|---|
| 6278 | 'lib', 1, | 
|---|
| 6279 | 'info', 0, | 
|---|
| 6280 | 'man', 0, | 
|---|
| 6281 | 'include', 0, | 
|---|
| 6282 | 'oldinclude', 0, | 
|---|
| 6283 | 'pkgdata', 0, | 
|---|
| 6284 | 'pkglib', 1, | 
|---|
| 6285 | 'pkginclude', 0 | 
|---|
| 6286 | ); | 
|---|
| 6287 |  | 
|---|
| 6288 | # Commonly found files we look for and automatically include in | 
|---|
| 6289 | # DISTFILES. | 
|---|
| 6290 | @common_files = | 
|---|
| 6291 | ( | 
|---|
| 6292 | "README", "THANKS", "TODO", "NEWS", "COPYING", "COPYING.LIB", | 
|---|
| 6293 | "INSTALL", "ABOUT-NLS", "ChangeLog", "configure.ac", | 
|---|
| 6294 | "configure.in", "configure", "config.guess", "config.sub", | 
|---|
| 6295 | "AUTHORS", "BACKLOG", "ABOUT-GNU", "libversion.in", | 
|---|
| 6296 | "mdate-sh", "mkinstalldirs", "install-sh", 'texinfo.tex', | 
|---|
| 6297 | "ansi2knr.c", "ansi2knr.1", 'elisp-comp', | 
|---|
| 6298 | 'ylwrap', 'acinclude.m4', @libtoolize_files, @libtoolize_sometimes, | 
|---|
| 6299 | 'missing' | 
|---|
| 6300 | ); | 
|---|
| 6301 |  | 
|---|
| 6302 | # Commonly used files we auto-include, but only sometimes. | 
|---|
| 6303 | @common_sometimes = | 
|---|
| 6304 | ( | 
|---|
| 6305 | "aclocal.m4", "acconfig.h", "config.h.top", | 
|---|
| 6306 | "config.h.bot", "stamp-h.in", 'stamp-vti' | 
|---|
| 6307 | ); | 
|---|
| 6308 |  | 
|---|
| 6309 | $USAGE = "\ | 
|---|
| 6310 | -a, --add-missing     add missing standard files to package | 
|---|
| 6311 | --amdir=DIR           directory storing config files | 
|---|
| 6312 | --build-dir=DIR       directory where build being done (for dependencies) | 
|---|
| 6313 | -c, --copy            with -a, copy missing files (default is symlink) | 
|---|
| 6314 | --cygnus              assume program is part of Cygnus-style tree | 
|---|
| 6315 | --foreign             set strictness to foreign | 
|---|
| 6316 | --gnits               set strictness to gnits | 
|---|
| 6317 | --gnu                 set strictness to gnu | 
|---|
| 6318 | --help                print this help, then exit | 
|---|
| 6319 | -i, --include-deps    include generated dependencies in Makefile.in | 
|---|
| 6320 | --no-force            only update Makefile.in's that are out of date | 
|---|
| 6321 | -o DIR, --output-dir=DIR | 
|---|
| 6322 | put generated Makefile.in's into DIR | 
|---|
| 6323 | --srcdir-name=DIR     name used for srcdir (for dependencies) | 
|---|
| 6324 | -v, --verbose         verbosely list files processed | 
|---|
| 6325 | --version             print version number, then exit\n"; | 
|---|
| 6326 |  | 
|---|
| 6327 | # Copyright on generated Makefile.ins. | 
|---|
| 6328 | $gen_copyright = "\ | 
|---|
| 6329 | # Copyright (C) 1994, 1995-8, 1999, 2001 Free Software Foundation, Inc. | 
|---|
| 6330 | # This Makefile.in is free software; the Free Software Foundation | 
|---|
| 6331 | # gives unlimited permission to copy and/or distribute it, | 
|---|
| 6332 | # with or without modifications, as long as this notice is preserved. | 
|---|
| 6333 |  | 
|---|
| 6334 | # This program is distributed in the hope that it will be useful, | 
|---|
| 6335 | # but WITHOUT ANY WARRANTY, to the extent permitted by law; without | 
|---|
| 6336 | # even the implied warranty of MERCHANTABILITY or FITNESS FOR A | 
|---|
| 6337 | # PARTICULAR PURPOSE. | 
|---|
| 6338 | "; | 
|---|
| 6339 |  | 
|---|
| 6340 | # Ignore return result from chmod, because it might give an error | 
|---|
| 6341 | # if we chmod a symlink. | 
|---|
| 6342 | $dist_header = "\t" . '-chmod -R a+r $(distdir)' . "\n"; | 
|---|
| 6343 | $dist{'dist-tarZ'} = ("\t" | 
|---|
| 6344 | . '$(TAR) chf - $(distdir) | compress -c > $(distdir).tar.Z' | 
|---|
| 6345 | . "\n"); | 
|---|
| 6346 | $dist{'dist-shar'} = ("\t" | 
|---|
| 6347 | . 'shar $(distdir) | gzip > $(distdir).shar.gz' | 
|---|
| 6348 | . "\n"); | 
|---|
| 6349 | $dist{'dist-zip'} = "\t" . 'zip -rq $(distdir).zip $(distdir)' . "\n"; | 
|---|
| 6350 | $dist{'dist'} = "\t" .  'GZIP=$(GZIP_ENV) $(TAR) chozf $(distdir).tar.gz $(distdir)' . "\n"; | 
|---|
| 6351 | $dist_trailer = "\t" . '-rm -rf $(distdir)' . "\n"; | 
|---|
| 6352 | } | 
|---|
| 6353 |  | 
|---|
| 6354 | # (Re)-Initialize per-Makefile.am variables. | 
|---|
| 6355 | sub initialize_per_input | 
|---|
| 6356 | { | 
|---|
| 6357 | # These two variables are used when generating each Makefile.in. | 
|---|
| 6358 | # They hold the Makefile.in until it is ready to be printed. | 
|---|
| 6359 | $output_rules = ''; | 
|---|
| 6360 | $output_vars = ''; | 
|---|
| 6361 | $output_trailer = ''; | 
|---|
| 6362 | $output_all = ''; | 
|---|
| 6363 | $output_header = ''; | 
|---|
| 6364 |  | 
|---|
| 6365 | # Suffixes found during a run. | 
|---|
| 6366 | @suffixes = (); | 
|---|
| 6367 |  | 
|---|
| 6368 | # This holds the contents of a Makefile.am, as parsed by | 
|---|
| 6369 | # read_am_file. | 
|---|
| 6370 | %contents = (); | 
|---|
| 6371 |  | 
|---|
| 6372 | # This holds the names which are targets.  These also appear in | 
|---|
| 6373 | # %contents. | 
|---|
| 6374 | %targets = (); | 
|---|
| 6375 |  | 
|---|
| 6376 | # For a variable or target which is defined conditionally, this | 
|---|
| 6377 | # holds an array of the conditional values.  The array is composed | 
|---|
| 6378 | # of pairs of condition strings (the variables which configure | 
|---|
| 6379 | # will substitute) and values (the value of a target is | 
|---|
| 6380 | # meaningless).  For an unconditional variable, this is empty. | 
|---|
| 6381 | %conditional = (); | 
|---|
| 6382 |  | 
|---|
| 6383 | # This holds the line numbers at which various elements of | 
|---|
| 6384 | # %contents are defined. | 
|---|
| 6385 | %content_lines = (); | 
|---|
| 6386 |  | 
|---|
| 6387 | # This holds a 1 if a particular variable was examined. | 
|---|
| 6388 | %content_seen = (); | 
|---|
| 6389 |  | 
|---|
| 6390 | # This is the conditional stack. | 
|---|
| 6391 | @conditional_stack = (); | 
|---|
| 6392 |  | 
|---|
| 6393 | # This holds the set of included files. | 
|---|
| 6394 | @include_stack = (); | 
|---|
| 6395 |  | 
|---|
| 6396 | # This holds the "relative directory" of the current Makefile.in. | 
|---|
| 6397 | # Eg for src/Makefile.in, this is "src". | 
|---|
| 6398 | $relative_dir = ''; | 
|---|
| 6399 |  | 
|---|
| 6400 | # This holds a list of files that are included in the | 
|---|
| 6401 | # distribution. | 
|---|
| 6402 | %dist_common = (); | 
|---|
| 6403 |  | 
|---|
| 6404 | # List of dependencies for the obvious targets. | 
|---|
| 6405 | @install_data = (); | 
|---|
| 6406 | @install_exec = (); | 
|---|
| 6407 | @uninstall = (); | 
|---|
| 6408 | @installdirs = (); | 
|---|
| 6409 |  | 
|---|
| 6410 | @info = (); | 
|---|
| 6411 | @dvi = (); | 
|---|
| 6412 | @all = (); | 
|---|
| 6413 | @check = (); | 
|---|
| 6414 | @check_tests = (); | 
|---|
| 6415 | @installcheck = (); | 
|---|
| 6416 | @clean = (); | 
|---|
| 6417 |  | 
|---|
| 6418 | @phony = (); | 
|---|
| 6419 |  | 
|---|
| 6420 | # A list of files deleted by `maintainer-clean'. | 
|---|
| 6421 | @maintainer_clean_files = (); | 
|---|
| 6422 |  | 
|---|
| 6423 | # These are pretty obvious, too.  They are used to define the | 
|---|
| 6424 | # SOURCES and OBJECTS variables. | 
|---|
| 6425 | @sources = (); | 
|---|
| 6426 | @objects = (); | 
|---|
| 6427 |  | 
|---|
| 6428 | # These variables track inclusion of various compile-related .am | 
|---|
| 6429 | # files.  $included_generic_compile is TRUE if the basic code has | 
|---|
| 6430 | # been included.  $included_knr_compile is TRUE if the ansi2knr | 
|---|
| 6431 | # code has been included.  $included_libtool_compile is TRUE if | 
|---|
| 6432 | # libtool support has been included. | 
|---|
| 6433 | $included_generic_compile = 0; | 
|---|
| 6434 | $included_knr_compile = 0; | 
|---|
| 6435 | $included_libtool_compile = 0; | 
|---|
| 6436 |  | 
|---|
| 6437 | # TRUE if install targets should work recursively. | 
|---|
| 6438 | $recursive_install = 0; | 
|---|
| 6439 |  | 
|---|
| 6440 | # All .P files. | 
|---|
| 6441 | %dep_files = (); | 
|---|
| 6442 |  | 
|---|
| 6443 | # Strictness levels. | 
|---|
| 6444 | $strictness = $default_strictness; | 
|---|
| 6445 | $strictness_name = $default_strictness_name; | 
|---|
| 6446 |  | 
|---|
| 6447 | # Options from AUTOMAKE_OPTIONS. | 
|---|
| 6448 | %options = (); | 
|---|
| 6449 |  | 
|---|
| 6450 | # Whether or not dependencies are handled.  Can be further changed | 
|---|
| 6451 | # in handle_options. | 
|---|
| 6452 | $use_dependencies = $cmdline_use_dependencies; | 
|---|
| 6453 |  | 
|---|
| 6454 | # Per Makefile.am. | 
|---|
| 6455 | $local_maint_charset = $maint_charset; | 
|---|
| 6456 |  | 
|---|
| 6457 | # All yacc and lex source filenames for this directory.  Use | 
|---|
| 6458 | # filenames instead of raw count so that multiple instances are | 
|---|
| 6459 | # counted correctly (eg one yacc file can appear in multiple | 
|---|
| 6460 | # programs without harm). | 
|---|
| 6461 | %yacc_sources = (); | 
|---|
| 6462 | %lex_sources = (); | 
|---|
| 6463 |  | 
|---|
| 6464 | # This is a list of all targets to run during "make dist". | 
|---|
| 6465 | @dist_targets = (); | 
|---|
| 6466 |  | 
|---|
| 6467 | # Keys in this hash are the basenames of files which must depend | 
|---|
| 6468 | # on ansi2knr. | 
|---|
| 6469 | %de_ansi_files = (); | 
|---|
| 6470 |  | 
|---|
| 6471 | # This maps the source extension of a suffix rule to its | 
|---|
| 6472 | # corresponding output extension. | 
|---|
| 6473 | %suffix_rules = (); | 
|---|
| 6474 |  | 
|---|
| 6475 | # This is the name of the recursive `all' target to use. | 
|---|
| 6476 | $all_target = 'all-recursive'; | 
|---|
| 6477 |  | 
|---|
| 6478 | # This keeps track of which extensions we've seen (that we care | 
|---|
| 6479 | # about). | 
|---|
| 6480 | %extension_seen = (); | 
|---|
| 6481 |  | 
|---|
| 6482 | # This is random scratch space for the language finish functions. | 
|---|
| 6483 | # Don't randomly overwrite it; examine other uses of keys first. | 
|---|
| 6484 | %language_scratch = (); | 
|---|
| 6485 | } | 
|---|
| 6486 |  | 
|---|
| 6487 |  | 
|---|
| 6488 | ################################################################ | 
|---|
| 6489 |  | 
|---|
| 6490 | # Return contents of a file from $am_dir, automatically skipping | 
|---|
| 6491 | # macros or rules which are already known.  Runs command on each line | 
|---|
| 6492 | # as it is read; this command can modify $_. | 
|---|
| 6493 | sub file_contents_with_transform | 
|---|
| 6494 | { | 
|---|
| 6495 | local ($command, $basename) = @_; | 
|---|
| 6496 | local ($file) = $am_dir . '/' . $basename . '.am'; | 
|---|
| 6497 |  | 
|---|
| 6498 | if ($command ne '' && substr ($command, -1) ne ';') | 
|---|
| 6499 | { | 
|---|
| 6500 | die "automake: programming error in file_contents_with_transform: $command\n"; | 
|---|
| 6501 | } | 
|---|
| 6502 |  | 
|---|
| 6503 | open (FC_FILE, $file) | 
|---|
| 6504 | || die "automake: installation error: cannot open \`$file'\n"; | 
|---|
| 6505 | # Looks stupid? | 
|---|
| 6506 | # print "automake: reading $file\n" if $verbose; | 
|---|
| 6507 |  | 
|---|
| 6508 | local ($was_rule) = 0; | 
|---|
| 6509 | local ($result_vars) = ''; | 
|---|
| 6510 | local ($result_rules) = ''; | 
|---|
| 6511 | local ($comment) = ''; | 
|---|
| 6512 | local ($spacing) = "\n"; | 
|---|
| 6513 | local ($skipping) = 0; | 
|---|
| 6514 | local ($had_chars); | 
|---|
| 6515 |  | 
|---|
| 6516 | while (<FC_FILE>) | 
|---|
| 6517 | { | 
|---|
| 6518 | $_ =~ s/\@MAINTAINER_MODE_TRUE\@//g | 
|---|
| 6519 | unless $seen_maint_mode; | 
|---|
| 6520 |  | 
|---|
| 6521 | $had_chars = length ($_) && $_ ne "\n"; | 
|---|
| 6522 | eval $command; | 
|---|
| 6523 | # If the transform caused all the characters to go away, then | 
|---|
| 6524 | # ignore the line.  Why do this?  Because in Perl 4, a "next" | 
|---|
| 6525 | # inside of an eval doesn't affect a loop outside the eval. | 
|---|
| 6526 | # So we can't pass in a "transform" that uses next.  We used | 
|---|
| 6527 | # to do this.  "Empty" also means consisting of a single | 
|---|
| 6528 | # newline. | 
|---|
| 6529 | next if $had_chars && ($_ eq '' || $_ eq "\n"); | 
|---|
| 6530 |  | 
|---|
| 6531 | if (/$IGNORE_PATTERN/o) | 
|---|
| 6532 | { | 
|---|
| 6533 | # Merely delete comments beginning with two hashes. | 
|---|
| 6534 | } | 
|---|
| 6535 | elsif (/$WHITE_PATTERN/o) | 
|---|
| 6536 | { | 
|---|
| 6537 | # Stick a single white line before the incoming macro or rule. | 
|---|
| 6538 | $spacing = "\n"; | 
|---|
| 6539 | &am_line_error ($., "blank line following trailing backslash") | 
|---|
| 6540 | if $saw_bk; | 
|---|
| 6541 | } | 
|---|
| 6542 | elsif (/$COMMENT_PATTERN/o) | 
|---|
| 6543 | { | 
|---|
| 6544 | # Stick comments before the incoming macro or rule. | 
|---|
| 6545 | $comment .= $spacing . $_; | 
|---|
| 6546 | $spacing = ''; | 
|---|
| 6547 | &am_line_error ($., "comment following trailing backslash") | 
|---|
| 6548 | if $saw_bk; | 
|---|
| 6549 | } | 
|---|
| 6550 | elsif ($saw_bk) | 
|---|
| 6551 | { | 
|---|
| 6552 | if ($was_rule) | 
|---|
| 6553 | { | 
|---|
| 6554 | $result_rules .= $_ if ! $skipping; | 
|---|
| 6555 | } | 
|---|
| 6556 | else | 
|---|
| 6557 | { | 
|---|
| 6558 | $result_vars .= $_ if ! $skipping; | 
|---|
| 6559 | } | 
|---|
| 6560 | $saw_bk = /\\$/; | 
|---|
| 6561 | } | 
|---|
| 6562 | elsif (/$RULE_PATTERN/o) | 
|---|
| 6563 | { | 
|---|
| 6564 | # Found a rule. | 
|---|
| 6565 | $was_rule = 1; | 
|---|
| 6566 | $skipping = defined $contents{$1}; | 
|---|
| 6567 | $result_rules .= $comment . $spacing . $_ if ! $skipping; | 
|---|
| 6568 | $comment = $spacing = ''; | 
|---|
| 6569 | $saw_bk = /\\$/; | 
|---|
| 6570 | } | 
|---|
| 6571 | elsif (/$MACRO_PATTERN/o) | 
|---|
| 6572 | { | 
|---|
| 6573 | # Found a variable reference. | 
|---|
| 6574 | $was_rule = 0; | 
|---|
| 6575 | $skipping = defined $contents{$1}; | 
|---|
| 6576 | $result_vars .= $comment . $spacing . $_ if ! $skipping; | 
|---|
| 6577 | $comment = $spacing = ''; | 
|---|
| 6578 | $saw_bk = /\\$/; | 
|---|
| 6579 | } | 
|---|
| 6580 | else | 
|---|
| 6581 | { | 
|---|
| 6582 | # This isn't an error; it is probably a continued rule. | 
|---|
| 6583 | # In fact, this is what we assume. | 
|---|
| 6584 | $was_rule = 1; | 
|---|
| 6585 | $result_rules .= $comment . $spacing . $_ if ! $skipping; | 
|---|
| 6586 | $comment = $spacing = ''; | 
|---|
| 6587 | $saw_bk = /\\$/; | 
|---|
| 6588 | } | 
|---|
| 6589 | } | 
|---|
| 6590 |  | 
|---|
| 6591 | close (FC_FILE); | 
|---|
| 6592 | return $result_vars . $result_rules . $comment; | 
|---|
| 6593 | } | 
|---|
| 6594 |  | 
|---|
| 6595 | # Like file_contents_with_transform, but no transform. | 
|---|
| 6596 | sub file_contents | 
|---|
| 6597 | { | 
|---|
| 6598 | return &file_contents_with_transform ('', @_); | 
|---|
| 6599 | } | 
|---|
| 6600 |  | 
|---|
| 6601 | # Find all variable prefixes that are used for install directories.  A | 
|---|
| 6602 | # prefix `zar' qualifies iff: | 
|---|
| 6603 | # * `zardir' is a variable. | 
|---|
| 6604 | # * `zar_PRIMARY' is a variable. | 
|---|
| 6605 | sub am_primary_prefixes | 
|---|
| 6606 | { | 
|---|
| 6607 | local ($primary, @prefixes) = @_; | 
|---|
| 6608 |  | 
|---|
| 6609 | local (%valid, $varname); | 
|---|
| 6610 | grep ($valid{$_} = 0, @prefixes); | 
|---|
| 6611 | $valid{'EXTRA'} = 0; | 
|---|
| 6612 | foreach $varname (keys %contents) | 
|---|
| 6613 | { | 
|---|
| 6614 | if ($varname =~ /^(.*)_$primary$/) | 
|---|
| 6615 | { | 
|---|
| 6616 | if (! defined $valid{$1} | 
|---|
| 6617 | && ! &variable_defined ($1 . 'dir') | 
|---|
| 6618 | # Note that a configure variable is always legitimate. | 
|---|
| 6619 | # It is natural to name such variables after the | 
|---|
| 6620 | # primary, so we explicitly allow it. | 
|---|
| 6621 | && ! defined $configure_vars{$varname}) | 
|---|
| 6622 | { | 
|---|
| 6623 | &am_line_error ($varname, "invalid variable \`$varname'"); | 
|---|
| 6624 | } | 
|---|
| 6625 | else | 
|---|
| 6626 | { | 
|---|
| 6627 | # Ensure all extended prefixes are actually used. | 
|---|
| 6628 | $valid{$1} = 1; | 
|---|
| 6629 | } | 
|---|
| 6630 | } | 
|---|
| 6631 | } | 
|---|
| 6632 |  | 
|---|
| 6633 | return %valid; | 
|---|
| 6634 | } | 
|---|
| 6635 |  | 
|---|
| 6636 | # Handle `where_HOW' variable magic.  Does all lookups, generates | 
|---|
| 6637 | # install code, and possibly generates code to define the primary | 
|---|
| 6638 | # variable.  The first argument is the name of the .am file to munge, | 
|---|
| 6639 | # the second argument is the primary variable (eg HEADERS), and all | 
|---|
| 6640 | # subsequent arguments are possible installation locations.  Returns | 
|---|
| 6641 | # list of all values of all _HOW targets. | 
|---|
| 6642 | # | 
|---|
| 6643 | # FIXME: this should be rewritten to be cleaner.  It should be broken | 
|---|
| 6644 | # up into multiple functions. | 
|---|
| 6645 | # | 
|---|
| 6646 | # Usage is: am_install_var (OPTION..., file, HOW, where...) | 
|---|
| 6647 | sub am_install_var | 
|---|
| 6648 | { | 
|---|
| 6649 | local (@args) = @_; | 
|---|
| 6650 |  | 
|---|
| 6651 | local ($do_clean) = 0; | 
|---|
| 6652 | local ($do_require) = 1; | 
|---|
| 6653 |  | 
|---|
| 6654 | local ($ltxform); | 
|---|
| 6655 | if (defined $configure_vars{'LIBTOOL'}) | 
|---|
| 6656 | { | 
|---|
| 6657 | # Transform '@LIBTOOL ...@' to '$(LIBTOOL) ...' | 
|---|
| 6658 | $ltxform = 's/\@LIBTOOL([^\@]*)\@/\$(LIBTOOL) $1/;'; | 
|---|
| 6659 | } | 
|---|
| 6660 | else | 
|---|
| 6661 | { | 
|---|
| 6662 | # Delete '@LIBTOOL ...@' | 
|---|
| 6663 | $ltxform = 's/\@LIBTOOL([^\@]*)\@//;'; | 
|---|
| 6664 | } | 
|---|
| 6665 |  | 
|---|
| 6666 | local ($cygxform); | 
|---|
| 6667 | if (! $seen_exeext) | 
|---|
| 6668 | { | 
|---|
| 6669 | $cygxform = 's/\@EXEEXT\@//g;'; | 
|---|
| 6670 | } | 
|---|
| 6671 | else | 
|---|
| 6672 | { | 
|---|
| 6673 | $cygxform = 's/\@EXEEXT\@/\$(EXEEXT)/g;'; | 
|---|
| 6674 | } | 
|---|
| 6675 |  | 
|---|
| 6676 | while (@args) | 
|---|
| 6677 | { | 
|---|
| 6678 | if ($args[0] eq '-clean') | 
|---|
| 6679 | { | 
|---|
| 6680 | $do_clean = 1; | 
|---|
| 6681 | } | 
|---|
| 6682 | elsif ($args[0] eq '-noextra') | 
|---|
| 6683 | { | 
|---|
| 6684 | $do_require = 0; | 
|---|
| 6685 | } | 
|---|
| 6686 | elsif ($args[0] !~ /^-/) | 
|---|
| 6687 | { | 
|---|
| 6688 | last; | 
|---|
| 6689 | } | 
|---|
| 6690 | shift (@args); | 
|---|
| 6691 | } | 
|---|
| 6692 | local ($file, $primary, @prefixes) = @args; | 
|---|
| 6693 |  | 
|---|
| 6694 | local (@used) = (); | 
|---|
| 6695 | local (@result) = (); | 
|---|
| 6696 |  | 
|---|
| 6697 | # Now that configure substitutions are allowed in where_HOW | 
|---|
| 6698 | # variables, it is an error to actually define the primary.  We | 
|---|
| 6699 | # allow `JAVA', as it is customarily used to mean the Java | 
|---|
| 6700 | # interpreter.  This is but one of several Java hacks. | 
|---|
| 6701 | &am_line_error ($primary, "\`$primary' is an anachronism") | 
|---|
| 6702 | if &variable_defined ($primary) && $primary ne 'JAVA'; | 
|---|
| 6703 |  | 
|---|
| 6704 |  | 
|---|
| 6705 | # Look for misspellings.  It is an error to have a variable ending | 
|---|
| 6706 | # in a "reserved" suffix whose prefix is unknown, eg | 
|---|
| 6707 | # "bni_PROGRAMS".  However, unusual prefixes are allowed if a | 
|---|
| 6708 | # variable of the same name (with "dir" appended) exists.  For | 
|---|
| 6709 | # instance, if the variable "zardir" is defined, then | 
|---|
| 6710 | # "zar_PROGRAMS" becomes valid.  This is to provide a little extra | 
|---|
| 6711 | # flexibility in those cases which need it.  Perhaps it should be | 
|---|
| 6712 | # disallowed in the Gnits case?  The problem is, sometimes it is | 
|---|
| 6713 | # useful to put things in a subdir of eg pkgdatadir, perhaps even | 
|---|
| 6714 | # for Gnitsoids. | 
|---|
| 6715 | local (%valid) = &am_primary_prefixes ($primary, @prefixes); | 
|---|
| 6716 |  | 
|---|
| 6717 | # If a primary includes a configure substitution, then the EXTRA_ | 
|---|
| 6718 | # form is required.  Otherwise we can't properly do our job. | 
|---|
| 6719 | local ($require_extra); | 
|---|
| 6720 | local ($warned_about_extra) = 0; | 
|---|
| 6721 |  | 
|---|
| 6722 | local ($clean_file) = $file . '-clean'; | 
|---|
| 6723 | local ($one_name); | 
|---|
| 6724 | local ($X); | 
|---|
| 6725 | foreach $X (sort keys %valid) | 
|---|
| 6726 | { | 
|---|
| 6727 | $one_name = $X . '_' . $primary; | 
|---|
| 6728 | if (&variable_defined ($one_name)) | 
|---|
| 6729 | { | 
|---|
| 6730 | # Append actual contents of where_PRIMARY variable to | 
|---|
| 6731 | # result. | 
|---|
| 6732 | local ($rcurs); | 
|---|
| 6733 | foreach $rcurs (&variable_value_as_list ($one_name, 'all')) | 
|---|
| 6734 | { | 
|---|
| 6735 | # Skip configure substitutions.  Possibly bogus. | 
|---|
| 6736 | if ($rcurs =~ /^\@.*\@$/) | 
|---|
| 6737 | { | 
|---|
| 6738 | if ($X eq 'EXTRA') | 
|---|
| 6739 | { | 
|---|
| 6740 | if (! $warned_about_extra) | 
|---|
| 6741 | { | 
|---|
| 6742 | $warned_about_extra = 1; | 
|---|
| 6743 | { | 
|---|
| 6744 | &am_line_error ($one_name, | 
|---|
| 6745 | "\`$one_name' contains configure substitution, but shouldn't"); | 
|---|
| 6746 | } | 
|---|
| 6747 | } | 
|---|
| 6748 | } | 
|---|
| 6749 | # Check here to make sure variables defined in | 
|---|
| 6750 | # configure.ac do not imply that EXTRA_PRIMARY | 
|---|
| 6751 | # must be defined. | 
|---|
| 6752 | elsif (! defined $configure_vars{$one_name}) | 
|---|
| 6753 | { | 
|---|
| 6754 | $require_extra = $one_name | 
|---|
| 6755 | if $do_require; | 
|---|
| 6756 | } | 
|---|
| 6757 |  | 
|---|
| 6758 | next; | 
|---|
| 6759 | } | 
|---|
| 6760 |  | 
|---|
| 6761 | push (@result, $rcurs); | 
|---|
| 6762 | } | 
|---|
| 6763 |  | 
|---|
| 6764 | # "EXTRA" shouldn't be used when generating clean targets, | 
|---|
| 6765 | # all, or install targets. | 
|---|
| 6766 | if ($X eq 'EXTRA') | 
|---|
| 6767 | { | 
|---|
| 6768 | if (! $warned_about_extra && ! $do_require) | 
|---|
| 6769 | { | 
|---|
| 6770 | $warned_about_extra = 1; | 
|---|
| 6771 | &am_line_error ($one_name, | 
|---|
| 6772 | "\`$one_name' should not be defined"); | 
|---|
| 6773 | } | 
|---|
| 6774 | next; | 
|---|
| 6775 | } | 
|---|
| 6776 |  | 
|---|
| 6777 | # A blatant hack: we rewrite each _PROGRAMS primary to | 
|---|
| 6778 | # include EXEEXT when in Cygwin32 mode. | 
|---|
| 6779 | if ($seen_exeext && $primary eq 'PROGRAMS') | 
|---|
| 6780 | { | 
|---|
| 6781 | local (@conds) = &variable_conditions ($one_name); | 
|---|
| 6782 | local (@one_binlist); | 
|---|
| 6783 |  | 
|---|
| 6784 | # FIXME: this definitely loses aesthetically; it | 
|---|
| 6785 | # redefines $ONE_NAME.  Instead we should arrange for | 
|---|
| 6786 | # variable definitions to be output later, instead of | 
|---|
| 6787 | # at scan time. | 
|---|
| 6788 |  | 
|---|
| 6789 | if (! @conds) | 
|---|
| 6790 | { | 
|---|
| 6791 | @one_binlist = (); | 
|---|
| 6792 | foreach $rcurs (&variable_value_as_list ($one_name, '')) | 
|---|
| 6793 | { | 
|---|
| 6794 | if ($rcurs =~ /\./ || $rcurs =~ /^\@.*\@$/) | 
|---|
| 6795 | { | 
|---|
| 6796 | push (@one_binlist, $rcurs); | 
|---|
| 6797 | } | 
|---|
| 6798 | else | 
|---|
| 6799 | { | 
|---|
| 6800 | push (@one_binlist, $rcurs . '$(EXEEXT)'); | 
|---|
| 6801 | } | 
|---|
| 6802 | } | 
|---|
| 6803 |  | 
|---|
| 6804 | delete $contents{$one_name}; | 
|---|
| 6805 | &define_pretty_variable ($one_name, '', @one_binlist); | 
|---|
| 6806 | } | 
|---|
| 6807 | else | 
|---|
| 6808 | { | 
|---|
| 6809 | local ($cond); | 
|---|
| 6810 | local ($condvals) = ''; | 
|---|
| 6811 | foreach $cond (@conds) | 
|---|
| 6812 | { | 
|---|
| 6813 | @one_binlist = (); | 
|---|
| 6814 | local (@condval) = &variable_value_as_list ($one_name, | 
|---|
| 6815 | $cond); | 
|---|
| 6816 | foreach $rcurs (@condval) | 
|---|
| 6817 | { | 
|---|
| 6818 | if ($rcurs =~ /\./ || $rcurs =~ /^\@.*\@$/) | 
|---|
| 6819 | { | 
|---|
| 6820 | push (@one_binlist, $rcurs); | 
|---|
| 6821 | } | 
|---|
| 6822 | else | 
|---|
| 6823 | { | 
|---|
| 6824 | push (@one_binlist, $rcurs . '$(EXEEXT)'); | 
|---|
| 6825 | } | 
|---|
| 6826 | } | 
|---|
| 6827 |  | 
|---|
| 6828 | push (@condvals, $cond); | 
|---|
| 6829 | push (@condvals, join (' ', @one_binlist)); | 
|---|
| 6830 | } | 
|---|
| 6831 |  | 
|---|
| 6832 | delete $contents{$one_name}; | 
|---|
| 6833 |  | 
|---|
| 6834 | while (@condvals) | 
|---|
| 6835 | { | 
|---|
| 6836 | $cond = shift (@condvals); | 
|---|
| 6837 | local (@val) = split (' ', shift (@condvals)); | 
|---|
| 6838 | &define_pretty_variable ($one_name, $cond, @val); | 
|---|
| 6839 | } | 
|---|
| 6840 | } | 
|---|
| 6841 | } | 
|---|
| 6842 |  | 
|---|
| 6843 | if ($do_clean) | 
|---|
| 6844 | { | 
|---|
| 6845 | $output_rules .= | 
|---|
| 6846 | &file_contents_with_transform ('s/\@DIR\@/' . $X . '/go;' | 
|---|
| 6847 | . $cygxform, | 
|---|
| 6848 | $clean_file); | 
|---|
| 6849 |  | 
|---|
| 6850 | push (@clean, $X . $primary); | 
|---|
| 6851 | &push_phony_cleaners ($X . $primary); | 
|---|
| 6852 | } | 
|---|
| 6853 |  | 
|---|
| 6854 | if ($X eq 'check') | 
|---|
| 6855 | { | 
|---|
| 6856 | push (@check, '$(' . $one_name . ')'); | 
|---|
| 6857 | } | 
|---|
| 6858 | else | 
|---|
| 6859 | { | 
|---|
| 6860 | push (@used, '$(' . $one_name . ')'); | 
|---|
| 6861 | } | 
|---|
| 6862 | if ($X eq 'noinst' || $X eq 'check') | 
|---|
| 6863 | { | 
|---|
| 6864 | # Objects which don't get installed by default. | 
|---|
| 6865 | next; | 
|---|
| 6866 | } | 
|---|
| 6867 |  | 
|---|
| 6868 | $output_rules .= | 
|---|
| 6869 | &file_contents_with_transform ('s/\@DIR\@/' . $X . '/g;' | 
|---|
| 6870 | . $ltxform . $cygxform, | 
|---|
| 6871 | $file); | 
|---|
| 6872 |  | 
|---|
| 6873 | push (@uninstall, 'uninstall-' . $X . $primary); | 
|---|
| 6874 | push (@phony, 'uninstall-' . $X . $primary); | 
|---|
| 6875 | push (@installdirs, '$(DESTDIR)$(' . $X . 'dir)'); | 
|---|
| 6876 | if (defined $exec_dir_p{$X} ? $exec_dir_p{$X} : ($X =~ /exec/)) | 
|---|
| 6877 | { | 
|---|
| 6878 | push (@install_exec, 'install-' . $X . $primary); | 
|---|
| 6879 | push (@phony, 'install-' . $X . $primary); | 
|---|
| 6880 | } | 
|---|
| 6881 | else | 
|---|
| 6882 | { | 
|---|
| 6883 | push (@install_data, 'install-' . $X . $primary); | 
|---|
| 6884 | push (@phony, 'install-' . $X . $primary); | 
|---|
| 6885 | } | 
|---|
| 6886 | } | 
|---|
| 6887 | } | 
|---|
| 6888 |  | 
|---|
| 6889 | # The JAVA variable is used as the name of the Java interpreter. | 
|---|
| 6890 | if (@used && $primary ne 'JAVA') | 
|---|
| 6891 | { | 
|---|
| 6892 | # Define it. | 
|---|
| 6893 | &define_pretty_variable ($primary, '', @used); | 
|---|
| 6894 | $output_vars .= "\n"; | 
|---|
| 6895 | } | 
|---|
| 6896 |  | 
|---|
| 6897 | if ($require_extra && ! &variable_defined ('EXTRA_' . $primary)) | 
|---|
| 6898 | { | 
|---|
| 6899 | &am_line_error ($require_extra, | 
|---|
| 6900 | "\`$require_extra' contains configure substitution, but \`EXTRA_$primary' not defined"); | 
|---|
| 6901 | } | 
|---|
| 6902 |  | 
|---|
| 6903 | # Push here because PRIMARY might be configure time determined. | 
|---|
| 6904 | push (@all, '$(' . $primary . ')') | 
|---|
| 6905 | if @used && $primary ne 'JAVA'; | 
|---|
| 6906 |  | 
|---|
| 6907 | return (@result); | 
|---|
| 6908 | } | 
|---|
| 6909 |  | 
|---|
| 6910 |  | 
|---|
| 6911 | ################################################################ | 
|---|
| 6912 |  | 
|---|
| 6913 | # This variable is local to the "require file" set of functions. | 
|---|
| 6914 | @require_file_paths = (); | 
|---|
| 6915 |  | 
|---|
| 6916 | # Verify that the file must exist in the current directory.  Usage: | 
|---|
| 6917 | # require_file (isconfigure, line_number, strictness, file) strictness | 
|---|
| 6918 | # is the strictness level at which this file becomes required.  Must | 
|---|
| 6919 | # set require_file_paths before calling this function. | 
|---|
| 6920 | # require_file_paths is set to hold a single directory (the one in | 
|---|
| 6921 | # which the first file was found) before return. | 
|---|
| 6922 | sub require_file_internal | 
|---|
| 6923 | { | 
|---|
| 6924 | local ($is_configure, $line, $mystrict, @files) = @_; | 
|---|
| 6925 | local ($file, $fullfile); | 
|---|
| 6926 | local ($found_it, $errfile, $errdir); | 
|---|
| 6927 | local ($save_dir); | 
|---|
| 6928 |  | 
|---|
| 6929 | foreach $file (@files) | 
|---|
| 6930 | { | 
|---|
| 6931 | $found_it = 0; | 
|---|
| 6932 | foreach $dir (@require_file_paths) | 
|---|
| 6933 | { | 
|---|
| 6934 | if ($dir eq '.') | 
|---|
| 6935 | { | 
|---|
| 6936 | $fullfile = $relative_dir . "/" . $file; | 
|---|
| 6937 | $errdir = $relative_dir unless $errdir; | 
|---|
| 6938 | } | 
|---|
| 6939 | else | 
|---|
| 6940 | { | 
|---|
| 6941 | $fullfile = $dir . "/" . $file; | 
|---|
| 6942 | $errdir = $dir unless $errdir; | 
|---|
| 6943 | } | 
|---|
| 6944 |  | 
|---|
| 6945 | # Use different name for "error filename".  Otherwise on | 
|---|
| 6946 | # an error the bad file will be reported as eg | 
|---|
| 6947 | # `../../install-sh' when using the default | 
|---|
| 6948 | # config_aux_path. | 
|---|
| 6949 | $errfile = $errdir . '/' . $file; | 
|---|
| 6950 |  | 
|---|
| 6951 | if (-f $fullfile) | 
|---|
| 6952 | { | 
|---|
| 6953 | $found_it = 1; | 
|---|
| 6954 | # FIXME: Once again, special-case `.'. | 
|---|
| 6955 | &push_dist_common ($file) | 
|---|
| 6956 | if $dir eq $relative_dir || $dir eq '.'; | 
|---|
| 6957 | $save_dir = $dir; | 
|---|
| 6958 | last; | 
|---|
| 6959 | } | 
|---|
| 6960 | } | 
|---|
| 6961 |  | 
|---|
| 6962 | if ($found_it) | 
|---|
| 6963 | { | 
|---|
| 6964 | # Prune the path list. | 
|---|
| 6965 | @require_file_paths = $save_dir; | 
|---|
| 6966 | } | 
|---|
| 6967 | else | 
|---|
| 6968 | { | 
|---|
| 6969 | if ($strictness >= $mystrict) | 
|---|
| 6970 | { | 
|---|
| 6971 | local ($trailer) = ''; | 
|---|
| 6972 | local ($suppress) = 0; | 
|---|
| 6973 |  | 
|---|
| 6974 | # Only install missing files according to our desired | 
|---|
| 6975 | # strictness level. | 
|---|
| 6976 | local ($message) = "required file \`$errfile' not found"; | 
|---|
| 6977 | if ($add_missing) | 
|---|
| 6978 | { | 
|---|
| 6979 | $suppress = 1; | 
|---|
| 6980 |  | 
|---|
| 6981 | # Maybe run libtoolize. | 
|---|
| 6982 | @libtoolize_args = ('--automake'); | 
|---|
| 6983 | push @libtoolize_args, '-c'  if $copy_missing; | 
|---|
| 6984 | if ($seen_libtool | 
|---|
| 6985 | && grep ($_ eq $file, @libtoolize_files) | 
|---|
| 6986 | && system ('libtoolize', @libtoolize_args)) | 
|---|
| 6987 | { | 
|---|
| 6988 | $message = "installing \`$errfile'"; | 
|---|
| 6989 | $suppress = 0; | 
|---|
| 6990 | $trailer = "; cannot run \`libtoolize': $!"; | 
|---|
| 6991 | } | 
|---|
| 6992 | elsif (-f ($am_dir . '/' . $file)) | 
|---|
| 6993 | { | 
|---|
| 6994 | # Install the missing file.  Symlink if we | 
|---|
| 6995 | # can, copy if we must.  Note: delete the file | 
|---|
| 6996 | # first, in case it is a dangling symlink. | 
|---|
| 6997 | $message = "installing \`$errfile'"; | 
|---|
| 6998 | # Windows Perl will hang if we try to delete a | 
|---|
| 6999 | # file that doesn't exist. | 
|---|
| 7000 | unlink ($errfile) if -f $errfile; | 
|---|
| 7001 | if ($symlink_exists && ! $copy_missing) | 
|---|
| 7002 | { | 
|---|
| 7003 | if (! symlink ($am_dir . '/' . $file, $errfile)) | 
|---|
| 7004 | { | 
|---|
| 7005 | $suppress = 0; | 
|---|
| 7006 | $trailer = "; error while making link: $!\n"; | 
|---|
| 7007 | } | 
|---|
| 7008 | } | 
|---|
| 7009 | elsif (system ('cp', $am_dir . '/' . $file, $errfile)) | 
|---|
| 7010 | { | 
|---|
| 7011 | $suppress = 0; | 
|---|
| 7012 | $trailer = "\n    error while copying\n"; | 
|---|
| 7013 | } | 
|---|
| 7014 | } | 
|---|
| 7015 | } | 
|---|
| 7016 |  | 
|---|
| 7017 | local ($save) = $exit_status; | 
|---|
| 7018 | if ($is_configure) | 
|---|
| 7019 | { | 
|---|
| 7020 | # FIXME: allow actual file to be specified. | 
|---|
| 7021 | &am_conf_line_error ($configure_ac, $line, | 
|---|
| 7022 | "$message$trailer"); | 
|---|
| 7023 | } | 
|---|
| 7024 | else | 
|---|
| 7025 | { | 
|---|
| 7026 | &am_line_error ($line, "$message$trailer"); | 
|---|
| 7027 | } | 
|---|
| 7028 | $exit_status = $save if $suppress; | 
|---|
| 7029 | } | 
|---|
| 7030 | } | 
|---|
| 7031 | } | 
|---|
| 7032 | } | 
|---|
| 7033 |  | 
|---|
| 7034 | # Like require_file_with_line, but error messages refer to | 
|---|
| 7035 | # configure.ac, not the current Makefile.am. | 
|---|
| 7036 | sub require_file_with_conf_line | 
|---|
| 7037 | { | 
|---|
| 7038 | @require_file_paths = '.'; | 
|---|
| 7039 | &require_file_internal (1, @_); | 
|---|
| 7040 | } | 
|---|
| 7041 |  | 
|---|
| 7042 | sub require_file_with_line | 
|---|
| 7043 | { | 
|---|
| 7044 | @require_file_paths = '.'; | 
|---|
| 7045 | &require_file_internal (0, @_); | 
|---|
| 7046 | } | 
|---|
| 7047 |  | 
|---|
| 7048 | sub require_file | 
|---|
| 7049 | { | 
|---|
| 7050 | @require_file_paths = '.'; | 
|---|
| 7051 | &require_file_internal (0, '', @_); | 
|---|
| 7052 | } | 
|---|
| 7053 |  | 
|---|
| 7054 | # Require a file that is also required by Autoconf.  Looks in | 
|---|
| 7055 | # configuration path, as specified by AC_CONFIG_AUX_DIR. | 
|---|
| 7056 | sub require_config_file | 
|---|
| 7057 | { | 
|---|
| 7058 | @require_file_paths = @config_aux_path; | 
|---|
| 7059 | &require_file_internal (1, '', @_); | 
|---|
| 7060 | local ($dir) = $require_file_paths[0]; | 
|---|
| 7061 | @config_aux_path = @require_file_paths; | 
|---|
| 7062 | if ($dir eq '.') | 
|---|
| 7063 | { | 
|---|
| 7064 | $config_aux_dir = '.'; | 
|---|
| 7065 | } | 
|---|
| 7066 | else | 
|---|
| 7067 | { | 
|---|
| 7068 | $config_aux_dir = '$(top_srcdir)/' . $dir; | 
|---|
| 7069 | } | 
|---|
| 7070 | } | 
|---|
| 7071 |  | 
|---|
| 7072 | # Assumes that the line number is in Makefile.am. | 
|---|
| 7073 | sub require_conf_file_with_line | 
|---|
| 7074 | { | 
|---|
| 7075 | @require_file_paths = @config_aux_path; | 
|---|
| 7076 | &require_file_internal (0, @_); | 
|---|
| 7077 | local ($dir) = $require_file_paths[0]; | 
|---|
| 7078 | @config_aux_path = @require_file_paths; | 
|---|
| 7079 | if ($dir eq '.') | 
|---|
| 7080 | { | 
|---|
| 7081 | $config_aux_dir = '.'; | 
|---|
| 7082 | } | 
|---|
| 7083 | else | 
|---|
| 7084 | { | 
|---|
| 7085 | $config_aux_dir = '$(top_srcdir)/' . $dir; | 
|---|
| 7086 | } | 
|---|
| 7087 | } | 
|---|
| 7088 |  | 
|---|
| 7089 | # Assumes that the line number is in Makefile.am. | 
|---|
| 7090 | sub require_conf_file_with_conf_line | 
|---|
| 7091 | { | 
|---|
| 7092 | @require_file_paths = @config_aux_path; | 
|---|
| 7093 | &require_file_internal (1, @_); | 
|---|
| 7094 | local ($dir) = $require_file_paths[0]; | 
|---|
| 7095 | @config_aux_path = @require_file_paths; | 
|---|
| 7096 | if ($dir eq '.') | 
|---|
| 7097 | { | 
|---|
| 7098 | $config_aux_dir = '.'; | 
|---|
| 7099 | } | 
|---|
| 7100 | else | 
|---|
| 7101 | { | 
|---|
| 7102 | $config_aux_dir = '$(top_srcdir)/' . $dir; | 
|---|
| 7103 | } | 
|---|
| 7104 | } | 
|---|
| 7105 |  | 
|---|
| 7106 | ################################################################ | 
|---|
| 7107 |  | 
|---|
| 7108 | # Push a list of files onto dist_common. | 
|---|
| 7109 | sub push_dist_common | 
|---|
| 7110 | { | 
|---|
| 7111 | local (@files) = @_; | 
|---|
| 7112 | local ($file); | 
|---|
| 7113 |  | 
|---|
| 7114 | foreach $file (@files) | 
|---|
| 7115 | { | 
|---|
| 7116 | $dist_common{$file} = 1; | 
|---|
| 7117 | } | 
|---|
| 7118 | } | 
|---|
| 7119 |  | 
|---|
| 7120 | # Push a list of clean targets onto phony. | 
|---|
| 7121 | sub push_phony_cleaners | 
|---|
| 7122 | { | 
|---|
| 7123 | local ($base) = @_; | 
|---|
| 7124 | local ($target); | 
|---|
| 7125 | foreach $target ('mostly', 'dist', '', 'maintainer-') | 
|---|
| 7126 | { | 
|---|
| 7127 | push (@phony, $target . 'clean-' . $base); | 
|---|
| 7128 | } | 
|---|
| 7129 | } | 
|---|
| 7130 |  | 
|---|
| 7131 | # Set strictness. | 
|---|
| 7132 | sub set_strictness | 
|---|
| 7133 | { | 
|---|
| 7134 | $strictness_name = $_[0]; | 
|---|
| 7135 | if ($strictness_name eq 'gnu') | 
|---|
| 7136 | { | 
|---|
| 7137 | $strictness = $GNU; | 
|---|
| 7138 | } | 
|---|
| 7139 | elsif ($strictness_name eq 'gnits') | 
|---|
| 7140 | { | 
|---|
| 7141 | $strictness = $GNITS; | 
|---|
| 7142 | } | 
|---|
| 7143 | elsif ($strictness_name eq 'foreign') | 
|---|
| 7144 | { | 
|---|
| 7145 | $strictness = $FOREIGN; | 
|---|
| 7146 | } | 
|---|
| 7147 | else | 
|---|
| 7148 | { | 
|---|
| 7149 | die "automake: level \`$strictness_name' not recognized\n"; | 
|---|
| 7150 | } | 
|---|
| 7151 | } | 
|---|
| 7152 |  | 
|---|
| 7153 |  | 
|---|
| 7154 | ################################################################ | 
|---|
| 7155 |  | 
|---|
| 7156 | # Return directory name of file. | 
|---|
| 7157 | sub dirname | 
|---|
| 7158 | { | 
|---|
| 7159 | local ($file) = @_; | 
|---|
| 7160 | local ($sub); | 
|---|
| 7161 |  | 
|---|
| 7162 | ($sub = $file) =~ s,/+[^/]+$,,g; | 
|---|
| 7163 | $sub = '.' if $sub eq $file; | 
|---|
| 7164 | return $sub; | 
|---|
| 7165 | } | 
|---|
| 7166 |  | 
|---|
| 7167 | # Return file name of a file. | 
|---|
| 7168 | sub basename | 
|---|
| 7169 | { | 
|---|
| 7170 | local ($file) = @_; | 
|---|
| 7171 | local ($sub); | 
|---|
| 7172 |  | 
|---|
| 7173 | ($sub = $file) =~s,^.*/+,,g; | 
|---|
| 7174 | return $sub; | 
|---|
| 7175 | } | 
|---|
| 7176 |  | 
|---|
| 7177 | # Ensure a file exists. | 
|---|
| 7178 | sub create | 
|---|
| 7179 | { | 
|---|
| 7180 | local ($file) = @_; | 
|---|
| 7181 |  | 
|---|
| 7182 | open (TOUCH, ">> $file"); | 
|---|
| 7183 | close (TOUCH); | 
|---|
| 7184 | } | 
|---|
| 7185 |  | 
|---|
| 7186 | # Glob something.  Do this to avoid indentation screwups everywhere we | 
|---|
| 7187 | # want to glob.  Gross! | 
|---|
| 7188 | sub my_glob | 
|---|
| 7189 | { | 
|---|
| 7190 | local ($pat) = @_; | 
|---|
| 7191 | return <${pat}>; | 
|---|
| 7192 | } | 
|---|
| 7193 |  | 
|---|
| 7194 | ################################################################ | 
|---|
| 7195 |  | 
|---|
| 7196 | # Print an error message and set exit status. | 
|---|
| 7197 | sub am_error | 
|---|
| 7198 | { | 
|---|
| 7199 | warn "automake: ${am_file}.am: ", join (' ', @_), "\n"; | 
|---|
| 7200 | $exit_status = 1; | 
|---|
| 7201 | } | 
|---|
| 7202 |  | 
|---|
| 7203 | sub am_line_error | 
|---|
| 7204 | { | 
|---|
| 7205 | local ($symbol, @args) = @_; | 
|---|
| 7206 |  | 
|---|
| 7207 | if ($symbol && "$symbol" ne '-1') | 
|---|
| 7208 | { | 
|---|
| 7209 | local ($file) = "${am_file}.am"; | 
|---|
| 7210 |  | 
|---|
| 7211 | if ($symbol =~ /^\d+$/) | 
|---|
| 7212 | { | 
|---|
| 7213 | # SYMBOL is a line number, so just add the colon. | 
|---|
| 7214 | $file .= ':' . $symbol; | 
|---|
| 7215 | } | 
|---|
| 7216 | elsif (defined $content_lines{$symbol}) | 
|---|
| 7217 | { | 
|---|
| 7218 | # SYMBOL is a variable defined in Makefile.am, so add the | 
|---|
| 7219 | # line number we saved from there. | 
|---|
| 7220 | $file .= ':' . $content_lines{$symbol}; | 
|---|
| 7221 | } | 
|---|
| 7222 | elsif (defined $configure_vars{$symbol}) | 
|---|
| 7223 | { | 
|---|
| 7224 | # SYMBOL is a variable defined in configure.ac, so add the | 
|---|
| 7225 | # appropriate line number. | 
|---|
| 7226 | $file = $configure_vars{$symbol}; | 
|---|
| 7227 | } | 
|---|
| 7228 | else | 
|---|
| 7229 | { | 
|---|
| 7230 | # Couldn't find the line number. | 
|---|
| 7231 | } | 
|---|
| 7232 | warn $file, ": ", join (' ', @args), "\n"; | 
|---|
| 7233 | $exit_status = 1; | 
|---|
| 7234 | } | 
|---|
| 7235 | else | 
|---|
| 7236 | { | 
|---|
| 7237 | &am_error (@args); | 
|---|
| 7238 | } | 
|---|
| 7239 | } | 
|---|
| 7240 |  | 
|---|
| 7241 | # Like am_error, but while scanning configure.ac. | 
|---|
| 7242 | sub am_conf_error | 
|---|
| 7243 | { | 
|---|
| 7244 | # FIXME: can run in subdirs. | 
|---|
| 7245 | warn "automake: $configure_ac: ", join (' ', @_), "\n"; | 
|---|
| 7246 | $exit_status = 1; | 
|---|
| 7247 | } | 
|---|
| 7248 |  | 
|---|
| 7249 | # Error message with line number referring to configure.ac. | 
|---|
| 7250 | sub am_conf_line_error | 
|---|
| 7251 | { | 
|---|
| 7252 | local ($file, $line, @args) = @_; | 
|---|
| 7253 |  | 
|---|
| 7254 | if ($line) | 
|---|
| 7255 | { | 
|---|
| 7256 | warn "$file: $line: ", join (' ', @args), "\n"; | 
|---|
| 7257 | $exit_status = 1; | 
|---|
| 7258 | } | 
|---|
| 7259 | else | 
|---|
| 7260 | { | 
|---|
| 7261 | &am_conf_error (@args); | 
|---|
| 7262 | } | 
|---|
| 7263 | } | 
|---|
| 7264 |  | 
|---|
| 7265 | # Warning message with line number referring to configure.ac. | 
|---|
| 7266 | # Does not affect exit_status | 
|---|
| 7267 | sub am_conf_line_warning | 
|---|
| 7268 | { | 
|---|
| 7269 | local ($saved_exit_status) = $exit_status; | 
|---|
| 7270 | &am_conf_line_error (@_); | 
|---|
| 7271 | $exit_status = $saved_exit_status; | 
|---|
| 7272 | } | 
|---|
| 7273 |  | 
|---|
| 7274 | # Tell user where our aclocal.m4 is, but only once. | 
|---|
| 7275 | sub keyed_aclocal_warning | 
|---|
| 7276 | { | 
|---|
| 7277 | local ($key) = @_; | 
|---|
| 7278 | warn "automake: macro \`$key' can be generated by \`aclocal'\n"; | 
|---|
| 7279 | } | 
|---|
| 7280 |  | 
|---|
| 7281 | # Print usage information. | 
|---|
| 7282 | sub usage | 
|---|
| 7283 | { | 
|---|
| 7284 | print "Usage: automake [OPTION] ... [Makefile]...\n\n"; | 
|---|
| 7285 | print "Generate Makefile.in for autoconf from Makefile.am\n"; | 
|---|
| 7286 | print $USAGE; | 
|---|
| 7287 | print "\nFiles which are automatically distributed, if found:\n"; | 
|---|
| 7288 | $~ = "USAGE_FORMAT"; | 
|---|
| 7289 | local ($last, $iter, @lcomm); | 
|---|
| 7290 | $last = ''; | 
|---|
| 7291 | foreach $iter (sort ((@common_files, @common_sometimes))) | 
|---|
| 7292 | { | 
|---|
| 7293 | push (@lcomm, $iter) unless $iter eq $last; | 
|---|
| 7294 | $last = $iter; | 
|---|
| 7295 | } | 
|---|
| 7296 |  | 
|---|
| 7297 | local ($cols, $rows, $rest); | 
|---|
| 7298 | $cols = 4; | 
|---|
| 7299 | $rows = int(@lcomm / $cols); | 
|---|
| 7300 | $rest = @lcomm % $cols; | 
|---|
| 7301 |  | 
|---|
| 7302 | if ($rest) | 
|---|
| 7303 | { | 
|---|
| 7304 | $rows++; | 
|---|
| 7305 | } | 
|---|
| 7306 | else | 
|---|
| 7307 | { | 
|---|
| 7308 | $rest = $cols | 
|---|
| 7309 | } | 
|---|
| 7310 |  | 
|---|
| 7311 | local ($x, $y, $idx, @four); | 
|---|
| 7312 | for ($y = 0; $y < $rows; $y++) | 
|---|
| 7313 | { | 
|---|
| 7314 | @four = ("", "", "", ""); | 
|---|
| 7315 | for ($x = 0; $x < $cols; $x++) | 
|---|
| 7316 | { | 
|---|
| 7317 | last if $y + 1 == $rows && $x == $rest; | 
|---|
| 7318 |  | 
|---|
| 7319 | $idx = (($x > $rest) | 
|---|
| 7320 | ? ($rows * $rest + ($rows - 1) * ($x - $rest)) | 
|---|
| 7321 | : ($rows * $x)); | 
|---|
| 7322 | $idx += $y; | 
|---|
| 7323 | $four[$x] = $lcomm[$idx]; | 
|---|
| 7324 | } | 
|---|
| 7325 | write; | 
|---|
| 7326 | } | 
|---|
| 7327 |  | 
|---|
| 7328 | print "\nReport bugs to <bug-automake\@gnu.org>.\n"; | 
|---|
| 7329 |  | 
|---|
| 7330 | exit 0; | 
|---|
| 7331 | } | 
|---|
| 7332 |  | 
|---|
| 7333 | format USAGE_FORMAT = | 
|---|
| 7334 | @<<<<<<<<<<<<<<<<   @<<<<<<<<<<<<<<<<   @<<<<<<<<<<<<<<<<   @<<<<<<<<<<<<<<<< | 
|---|
| 7335 | $four[0],           $four[1],           $four[2],           $four[3] | 
|---|
| 7336 | . | 
|---|