main.c revision 1.258 1 1.258 sjg /* $NetBSD: main.c,v 1.258 2017/03/11 23:59:02 sjg Exp $ */
2 1.19 christos
3 1.1 cgd /*
4 1.31 christos * Copyright (c) 1988, 1989, 1990, 1993
5 1.31 christos * The Regents of the University of California. All rights reserved.
6 1.91 agc *
7 1.91 agc * This code is derived from software contributed to Berkeley by
8 1.91 agc * Adam de Boor.
9 1.91 agc *
10 1.91 agc * Redistribution and use in source and binary forms, with or without
11 1.91 agc * modification, are permitted provided that the following conditions
12 1.91 agc * are met:
13 1.91 agc * 1. Redistributions of source code must retain the above copyright
14 1.91 agc * notice, this list of conditions and the following disclaimer.
15 1.91 agc * 2. Redistributions in binary form must reproduce the above copyright
16 1.91 agc * notice, this list of conditions and the following disclaimer in the
17 1.91 agc * documentation and/or other materials provided with the distribution.
18 1.91 agc * 3. Neither the name of the University nor the names of its contributors
19 1.91 agc * may be used to endorse or promote products derived from this software
20 1.91 agc * without specific prior written permission.
21 1.91 agc *
22 1.91 agc * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23 1.91 agc * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 1.91 agc * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 1.91 agc * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26 1.91 agc * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 1.91 agc * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 1.91 agc * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 1.91 agc * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 1.91 agc * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 1.91 agc * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 1.91 agc * SUCH DAMAGE.
33 1.91 agc */
34 1.91 agc
35 1.91 agc /*
36 1.1 cgd * Copyright (c) 1989 by Berkeley Softworks
37 1.1 cgd * All rights reserved.
38 1.1 cgd *
39 1.1 cgd * This code is derived from software contributed to Berkeley by
40 1.1 cgd * Adam de Boor.
41 1.1 cgd *
42 1.1 cgd * Redistribution and use in source and binary forms, with or without
43 1.1 cgd * modification, are permitted provided that the following conditions
44 1.1 cgd * are met:
45 1.1 cgd * 1. Redistributions of source code must retain the above copyright
46 1.1 cgd * notice, this list of conditions and the following disclaimer.
47 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
48 1.1 cgd * notice, this list of conditions and the following disclaimer in the
49 1.1 cgd * documentation and/or other materials provided with the distribution.
50 1.1 cgd * 3. All advertising materials mentioning features or use of this software
51 1.1 cgd * must display the following acknowledgement:
52 1.1 cgd * This product includes software developed by the University of
53 1.1 cgd * California, Berkeley and its contributors.
54 1.1 cgd * 4. Neither the name of the University nor the names of its contributors
55 1.1 cgd * may be used to endorse or promote products derived from this software
56 1.1 cgd * without specific prior written permission.
57 1.1 cgd *
58 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
59 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
60 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
61 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
62 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
63 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
64 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
65 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
66 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
67 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
68 1.1 cgd * SUCH DAMAGE.
69 1.1 cgd */
70 1.1 cgd
71 1.102 ross #ifndef MAKE_NATIVE
72 1.258 sjg static char rcsid[] = "$NetBSD: main.c,v 1.258 2017/03/11 23:59:02 sjg Exp $";
73 1.38 lukem #else
74 1.37 christos #include <sys/cdefs.h>
75 1.1 cgd #ifndef lint
76 1.150 lukem __COPYRIGHT("@(#) Copyright (c) 1988, 1989, 1990, 1993\
77 1.150 lukem The Regents of the University of California. All rights reserved.");
78 1.1 cgd #endif /* not lint */
79 1.1 cgd
80 1.1 cgd #ifndef lint
81 1.19 christos #if 0
82 1.31 christos static char sccsid[] = "@(#)main.c 8.3 (Berkeley) 3/19/94";
83 1.19 christos #else
84 1.258 sjg __RCSID("$NetBSD: main.c,v 1.258 2017/03/11 23:59:02 sjg Exp $");
85 1.19 christos #endif
86 1.1 cgd #endif /* not lint */
87 1.38 lukem #endif
88 1.1 cgd
89 1.1 cgd /*-
90 1.1 cgd * main.c --
91 1.1 cgd * The main file for this entire program. Exit routines etc
92 1.1 cgd * reside here.
93 1.1 cgd *
94 1.1 cgd * Utility functions defined in this file:
95 1.1 cgd * Main_ParseArgLine Takes a line of arguments, breaks them and
96 1.1 cgd * treats them as if they were given when first
97 1.1 cgd * invoked. Used by the parse module to implement
98 1.1 cgd * the .MFLAGS target.
99 1.1 cgd *
100 1.1 cgd * Error Print a tagged error message. The global
101 1.1 cgd * MAKE variable must have been defined. This
102 1.227 gson * takes a format string and optional arguments
103 1.227 gson * for it.
104 1.1 cgd *
105 1.1 cgd * Fatal Print an error message and exit. Also takes
106 1.227 gson * a format string and arguments for it.
107 1.1 cgd *
108 1.1 cgd * Punt Aborts all jobs and exits with a message. Also
109 1.227 gson * takes a format string and arguments for it.
110 1.1 cgd *
111 1.1 cgd * Finish Finish things up by printing the number of
112 1.72 wiz * errors which occurred, as passed to it, and
113 1.1 cgd * exiting.
114 1.1 cgd */
115 1.1 cgd
116 1.13 cgd #include <sys/types.h>
117 1.13 cgd #include <sys/time.h>
118 1.1 cgd #include <sys/param.h>
119 1.13 cgd #include <sys/resource.h>
120 1.1 cgd #include <sys/stat.h>
121 1.225 matt #ifdef MAKE_NATIVE
122 1.225 matt #include <sys/sysctl.h>
123 1.225 matt #endif
124 1.17 gwr #include <sys/utsname.h>
125 1.29 christos #include <sys/wait.h>
126 1.85 wiz
127 1.1 cgd #include <errno.h>
128 1.215 christos #include <signal.h>
129 1.85 wiz #include <stdarg.h>
130 1.1 cgd #include <stdio.h>
131 1.32 christos #include <stdlib.h>
132 1.42 kleink #include <time.h>
133 1.220 christos #include <ctype.h>
134 1.85 wiz
135 1.1 cgd #include "make.h"
136 1.13 cgd #include "hash.h"
137 1.13 cgd #include "dir.h"
138 1.13 cgd #include "job.h"
139 1.1 cgd #include "pathnames.h"
140 1.58 sommerfe #include "trace.h"
141 1.1 cgd
142 1.66 christos #ifdef USE_IOVEC
143 1.66 christos #include <sys/uio.h>
144 1.66 christos #endif
145 1.66 christos
146 1.1 cgd #ifndef DEFMAXLOCAL
147 1.1 cgd #define DEFMAXLOCAL DEFMAXJOBS
148 1.24 christos #endif /* DEFMAXLOCAL */
149 1.1 cgd
150 1.1 cgd Lst create; /* Targets to be made */
151 1.1 cgd time_t now; /* Time at start of make */
152 1.1 cgd GNode *DEFAULT; /* .DEFAULT node */
153 1.1 cgd Boolean allPrecious; /* .PRECIOUS given on line by itself */
154 1.251 dholland Boolean deleteOnError; /* .DELETE_ON_ERROR: set */
155 1.1 cgd
156 1.1 cgd static Boolean noBuiltins; /* -r flag */
157 1.1 cgd static Lst makefiles; /* ordered list of makefiles to read */
158 1.31 christos static Boolean printVars; /* print value of one or more vars */
159 1.31 christos static Lst variables; /* list of variables to print */
160 1.21 christos int maxJobs; /* -j argument */
161 1.132 dsl static int maxJobTokens; /* -j argument */
162 1.13 cgd Boolean compatMake; /* -B argument */
163 1.113 christos int debug; /* -d argument */
164 1.201 sjg Boolean debugVflag; /* -dV */
165 1.1 cgd Boolean noExecute; /* -n flag */
166 1.61 sommerfe Boolean noRecursiveExecute; /* -N flag */
167 1.1 cgd Boolean keepgoing; /* -k flag */
168 1.1 cgd Boolean queryFlag; /* -q flag */
169 1.1 cgd Boolean touchFlag; /* -t flag */
170 1.220 christos Boolean enterFlag; /* -w flag */
171 1.233 sjg Boolean enterFlagObj; /* -w and objdir != srcdir */
172 1.1 cgd Boolean ignoreErrors; /* -i flag */
173 1.1 cgd Boolean beSilent; /* -s flag */
174 1.1 cgd Boolean oldVars; /* variable substitution style */
175 1.1 cgd Boolean checkEnvFirst; /* -e flag */
176 1.63 christos Boolean parseWarnFatal; /* -W flag */
177 1.58 sommerfe Boolean jobServer; /* -J flag */
178 1.132 dsl static int jp_0 = -1, jp_1 = -1; /* ends of parent job pipe */
179 1.87 thorpej Boolean varNoExportEnv; /* -X flag */
180 1.145 dsl Boolean doing_depend; /* Set while reading .depend */
181 1.1 cgd static Boolean jobsRunning; /* TRUE if the jobs might be running */
182 1.58 sommerfe static const char * tracefile;
183 1.149 christos static void MainParseArgs(int, char **);
184 1.165 dsl static int ReadMakefile(const void *, const void *);
185 1.200 joerg static void usage(void) MAKE_ATTR_DEAD;
186 1.1 cgd
187 1.174 sjg static Boolean ignorePWD; /* if we use -C, PWD is meaningless */
188 1.74 tv static char objdir[MAXPATHLEN + 1]; /* where we chdir'ed to */
189 1.196 joerg char curdir[MAXPATHLEN + 1]; /* Startup directory */
190 1.63 christos char *progname; /* the program name */
191 1.176 sjg char *makeDependfile;
192 1.183 sjg pid_t myPid;
193 1.220 christos int makelevel;
194 1.1 cgd
195 1.58 sommerfe Boolean forceJobs = FALSE;
196 1.58 sommerfe
197 1.63 christos extern Lst parseIncPath;
198 1.63 christos
199 1.220 christos /*
200 1.220 christos * For compatibility with the POSIX version of MAKEFLAGS that includes
201 1.220 christos * all the options with out -, convert flags to -f -l -a -g -s.
202 1.220 christos */
203 1.220 christos static char *
204 1.220 christos explode(const char *flags)
205 1.220 christos {
206 1.220 christos size_t len;
207 1.220 christos char *nf, *st;
208 1.220 christos const char *f;
209 1.220 christos
210 1.220 christos if (flags == NULL)
211 1.220 christos return NULL;
212 1.220 christos
213 1.220 christos for (f = flags; *f; f++)
214 1.220 christos if (!isalpha((unsigned char)*f))
215 1.220 christos break;
216 1.220 christos
217 1.220 christos if (*f)
218 1.221 christos return bmake_strdup(flags);
219 1.220 christos
220 1.220 christos len = strlen(flags);
221 1.221 christos st = nf = bmake_malloc(len * 3 + 1);
222 1.220 christos while (*flags) {
223 1.220 christos *nf++ = '-';
224 1.220 christos *nf++ = *flags++;
225 1.220 christos *nf++ = ' ';
226 1.220 christos }
227 1.220 christos *nf = '\0';
228 1.220 christos return st;
229 1.220 christos }
230 1.220 christos
231 1.133 dsl static void
232 1.133 dsl parse_debug_options(const char *argvalue)
233 1.133 dsl {
234 1.133 dsl const char *modules;
235 1.136 dsl const char *mode;
236 1.136 dsl char *fname;
237 1.149 christos int len;
238 1.133 dsl
239 1.133 dsl for (modules = argvalue; *modules; ++modules) {
240 1.133 dsl switch (*modules) {
241 1.133 dsl case 'A':
242 1.133 dsl debug = ~0;
243 1.133 dsl break;
244 1.133 dsl case 'a':
245 1.133 dsl debug |= DEBUG_ARCH;
246 1.133 dsl break;
247 1.155 christos case 'C':
248 1.155 christos debug |= DEBUG_CWD;
249 1.155 christos break;
250 1.133 dsl case 'c':
251 1.133 dsl debug |= DEBUG_COND;
252 1.133 dsl break;
253 1.133 dsl case 'd':
254 1.133 dsl debug |= DEBUG_DIR;
255 1.133 dsl break;
256 1.133 dsl case 'e':
257 1.133 dsl debug |= DEBUG_ERROR;
258 1.133 dsl break;
259 1.133 dsl case 'f':
260 1.133 dsl debug |= DEBUG_FOR;
261 1.133 dsl break;
262 1.133 dsl case 'g':
263 1.133 dsl if (modules[1] == '1') {
264 1.133 dsl debug |= DEBUG_GRAPH1;
265 1.133 dsl ++modules;
266 1.133 dsl }
267 1.133 dsl else if (modules[1] == '2') {
268 1.133 dsl debug |= DEBUG_GRAPH2;
269 1.133 dsl ++modules;
270 1.133 dsl }
271 1.133 dsl else if (modules[1] == '3') {
272 1.133 dsl debug |= DEBUG_GRAPH3;
273 1.133 dsl ++modules;
274 1.133 dsl }
275 1.133 dsl break;
276 1.133 dsl case 'j':
277 1.133 dsl debug |= DEBUG_JOB;
278 1.133 dsl break;
279 1.146 sjg case 'l':
280 1.146 sjg debug |= DEBUG_LOUD;
281 1.146 sjg break;
282 1.190 sjg case 'M':
283 1.190 sjg debug |= DEBUG_META;
284 1.190 sjg break;
285 1.133 dsl case 'm':
286 1.133 dsl debug |= DEBUG_MAKE;
287 1.133 dsl break;
288 1.133 dsl case 'n':
289 1.133 dsl debug |= DEBUG_SCRIPT;
290 1.133 dsl break;
291 1.133 dsl case 'p':
292 1.133 dsl debug |= DEBUG_PARSE;
293 1.133 dsl break;
294 1.133 dsl case 's':
295 1.133 dsl debug |= DEBUG_SUFF;
296 1.133 dsl break;
297 1.133 dsl case 't':
298 1.133 dsl debug |= DEBUG_TARG;
299 1.133 dsl break;
300 1.201 sjg case 'V':
301 1.201 sjg debugVflag = TRUE;
302 1.201 sjg break;
303 1.133 dsl case 'v':
304 1.133 dsl debug |= DEBUG_VAR;
305 1.133 dsl break;
306 1.133 dsl case 'x':
307 1.133 dsl debug |= DEBUG_SHELL;
308 1.133 dsl break;
309 1.133 dsl case 'F':
310 1.133 dsl if (debug_file != stdout && debug_file != stderr)
311 1.133 dsl fclose(debug_file);
312 1.199 sjg if (*++modules == '+') {
313 1.199 sjg modules++;
314 1.136 dsl mode = "a";
315 1.199 sjg } else
316 1.136 dsl mode = "w";
317 1.153 apb if (strcmp(modules, "stdout") == 0) {
318 1.152 apb debug_file = stdout;
319 1.153 apb goto debug_setbuf;
320 1.152 apb }
321 1.153 apb if (strcmp(modules, "stderr") == 0) {
322 1.152 apb debug_file = stderr;
323 1.153 apb goto debug_setbuf;
324 1.152 apb }
325 1.136 dsl len = strlen(modules);
326 1.136 dsl fname = malloc(len + 20);
327 1.136 dsl memcpy(fname, modules, len + 1);
328 1.136 dsl /* Let the filename be modified by the pid */
329 1.136 dsl if (strcmp(fname + len - 3, ".%d") == 0)
330 1.149 christos snprintf(fname + len - 2, 20, "%d", getpid());
331 1.136 dsl debug_file = fopen(fname, mode);
332 1.133 dsl if (!debug_file) {
333 1.139 dsl fprintf(stderr, "Cannot open debug file %s\n",
334 1.136 dsl fname);
335 1.133 dsl usage();
336 1.133 dsl }
337 1.136 dsl free(fname);
338 1.153 apb goto debug_setbuf;
339 1.133 dsl default:
340 1.133 dsl (void)fprintf(stderr,
341 1.133 dsl "%s: illegal argument to d option -- %c\n",
342 1.133 dsl progname, *modules);
343 1.133 dsl usage();
344 1.133 dsl }
345 1.133 dsl }
346 1.153 apb debug_setbuf:
347 1.153 apb /*
348 1.153 apb * Make the debug_file unbuffered, and make
349 1.153 apb * stdout line buffered (unless debugfile == stdout).
350 1.153 apb */
351 1.153 apb setvbuf(debug_file, NULL, _IONBF, 0);
352 1.153 apb if (debug_file != stdout) {
353 1.153 apb setvbuf(stdout, NULL, _IOLBF, 0);
354 1.153 apb }
355 1.133 dsl }
356 1.133 dsl
357 1.1 cgd /*-
358 1.1 cgd * MainParseArgs --
359 1.1 cgd * Parse a given argument vector. Called from main() and from
360 1.1 cgd * Main_ParseArgLine() when the .MAKEFLAGS target is used.
361 1.1 cgd *
362 1.1 cgd * XXX: Deal with command line overriding .MAKEFLAGS in makefile
363 1.1 cgd *
364 1.1 cgd * Results:
365 1.1 cgd * None
366 1.1 cgd *
367 1.1 cgd * Side Effects:
368 1.1 cgd * Various global and local flags will be set depending on the flags
369 1.1 cgd * given
370 1.1 cgd */
371 1.1 cgd static void
372 1.149 christos MainParseArgs(int argc, char **argv)
373 1.1 cgd {
374 1.47 hubertf char *p;
375 1.122 christos int c = '?';
376 1.98 ross int arginc;
377 1.133 dsl char *argvalue;
378 1.98 ross const char *getopt_def;
379 1.256 christos struct stat sa, sb;
380 1.98 ross char *optscan;
381 1.101 ross Boolean inOption, dashDash = FALSE;
382 1.97 chuck char found_path[MAXPATHLEN + 1]; /* for searching for sys.mk */
383 1.1 cgd
384 1.220 christos #define OPTFLAGS "BC:D:I:J:NST:V:WXd:ef:ij:km:nqrstw"
385 1.98 ross /* Can't actually use getopt(3) because rescanning is not portable */
386 1.98 ross
387 1.98 ross getopt_def = OPTFLAGS;
388 1.98 ross rearg:
389 1.98 ross inOption = FALSE;
390 1.108 lukem optscan = NULL;
391 1.98 ross while(argc > 1) {
392 1.98 ross char *getopt_spec;
393 1.98 ross if(!inOption)
394 1.98 ross optscan = argv[1];
395 1.98 ross c = *optscan++;
396 1.98 ross arginc = 0;
397 1.98 ross if(inOption) {
398 1.98 ross if(c == '\0') {
399 1.98 ross ++argv;
400 1.98 ross --argc;
401 1.98 ross inOption = FALSE;
402 1.98 ross continue;
403 1.98 ross }
404 1.98 ross } else {
405 1.101 ross if (c != '-' || dashDash)
406 1.98 ross break;
407 1.98 ross inOption = TRUE;
408 1.98 ross c = *optscan++;
409 1.98 ross }
410 1.98 ross /* '-' found at some earlier point */
411 1.98 ross getopt_spec = strchr(getopt_def, c);
412 1.98 ross if(c != '\0' && getopt_spec != NULL && getopt_spec[1] == ':') {
413 1.98 ross /* -<something> found, and <something> should have an arg */
414 1.98 ross inOption = FALSE;
415 1.98 ross arginc = 1;
416 1.98 ross argvalue = optscan;
417 1.98 ross if(*argvalue == '\0') {
418 1.122 christos if (argc < 3)
419 1.122 christos goto noarg;
420 1.98 ross argvalue = argv[2];
421 1.98 ross arginc = 2;
422 1.98 ross }
423 1.108 lukem } else {
424 1.108 lukem argvalue = NULL;
425 1.98 ross }
426 1.1 cgd switch(c) {
427 1.98 ross case '\0':
428 1.98 ross arginc = 1;
429 1.98 ross inOption = FALSE;
430 1.98 ross break;
431 1.92 sjg case 'B':
432 1.92 sjg compatMake = TRUE;
433 1.92 sjg Var_Append(MAKEFLAGS, "-B", VAR_GLOBAL);
434 1.180 sjg Var_Set(MAKE_MODE, "compat", VAR_GLOBAL, 0);
435 1.92 sjg break;
436 1.171 sjg case 'C':
437 1.171 sjg if (chdir(argvalue) == -1) {
438 1.171 sjg (void)fprintf(stderr,
439 1.171 sjg "%s: chdir %s: %s\n",
440 1.171 sjg progname, argvalue,
441 1.171 sjg strerror(errno));
442 1.171 sjg exit(1);
443 1.171 sjg }
444 1.175 sjg if (getcwd(curdir, MAXPATHLEN) == NULL) {
445 1.175 sjg (void)fprintf(stderr, "%s: %s.\n", progname, strerror(errno));
446 1.175 sjg exit(2);
447 1.175 sjg }
448 1.258 sjg if (argvalue[0] == '/' &&
449 1.258 sjg stat(argvalue, &sa) != -1 &&
450 1.256 christos stat(curdir, &sb) != -1 &&
451 1.256 christos sa.st_ino == sb.st_ino &&
452 1.256 christos sa.st_dev == sb.st_dev)
453 1.257 christos strncpy(curdir, argvalue, MAXPATHLEN);
454 1.174 sjg ignorePWD = TRUE;
455 1.171 sjg break;
456 1.1 cgd case 'D':
457 1.156 dsl if (argvalue == NULL || argvalue[0] == 0) goto noarg;
458 1.122 christos Var_Set(argvalue, "1", VAR_GLOBAL, 0);
459 1.1 cgd Var_Append(MAKEFLAGS, "-D", VAR_GLOBAL);
460 1.122 christos Var_Append(MAKEFLAGS, argvalue, VAR_GLOBAL);
461 1.1 cgd break;
462 1.1 cgd case 'I':
463 1.122 christos if (argvalue == NULL) goto noarg;
464 1.122 christos Parse_AddIncludeDir(argvalue);
465 1.1 cgd Var_Append(MAKEFLAGS, "-I", VAR_GLOBAL);
466 1.122 christos Var_Append(MAKEFLAGS, argvalue, VAR_GLOBAL);
467 1.1 cgd break;
468 1.58 sommerfe case 'J':
469 1.122 christos if (argvalue == NULL) goto noarg;
470 1.132 dsl if (sscanf(argvalue, "%d,%d", &jp_0, &jp_1) != 2) {
471 1.63 christos (void)fprintf(stderr,
472 1.132 dsl "%s: internal error -- J option malformed (%s)\n",
473 1.122 christos progname, argvalue);
474 1.58 sommerfe usage();
475 1.58 sommerfe }
476 1.132 dsl if ((fcntl(jp_0, F_GETFD, 0) < 0) ||
477 1.132 dsl (fcntl(jp_1, F_GETFD, 0) < 0)) {
478 1.61 sommerfe #if 0
479 1.58 sommerfe (void)fprintf(stderr,
480 1.121 dsl "%s: ###### warning -- J descriptors were closed!\n",
481 1.63 christos progname);
482 1.118 dsl exit(2);
483 1.61 sommerfe #endif
484 1.132 dsl jp_0 = -1;
485 1.132 dsl jp_1 = -1;
486 1.61 sommerfe compatMake = TRUE;
487 1.58 sommerfe } else {
488 1.58 sommerfe Var_Append(MAKEFLAGS, "-J", VAR_GLOBAL);
489 1.122 christos Var_Append(MAKEFLAGS, argvalue, VAR_GLOBAL);
490 1.58 sommerfe jobServer = TRUE;
491 1.58 sommerfe }
492 1.58 sommerfe break;
493 1.61 sommerfe case 'N':
494 1.61 sommerfe noExecute = TRUE;
495 1.61 sommerfe noRecursiveExecute = TRUE;
496 1.61 sommerfe Var_Append(MAKEFLAGS, "-N", VAR_GLOBAL);
497 1.61 sommerfe break;
498 1.1 cgd case 'S':
499 1.1 cgd keepgoing = FALSE;
500 1.1 cgd Var_Append(MAKEFLAGS, "-S", VAR_GLOBAL);
501 1.1 cgd break;
502 1.58 sommerfe case 'T':
503 1.122 christos if (argvalue == NULL) goto noarg;
504 1.151 joerg tracefile = bmake_strdup(argvalue);
505 1.58 sommerfe Var_Append(MAKEFLAGS, "-T", VAR_GLOBAL);
506 1.122 christos Var_Append(MAKEFLAGS, argvalue, VAR_GLOBAL);
507 1.58 sommerfe break;
508 1.92 sjg case 'V':
509 1.122 christos if (argvalue == NULL) goto noarg;
510 1.92 sjg printVars = TRUE;
511 1.134 dsl (void)Lst_AtEnd(variables, argvalue);
512 1.92 sjg Var_Append(MAKEFLAGS, "-V", VAR_GLOBAL);
513 1.122 christos Var_Append(MAKEFLAGS, argvalue, VAR_GLOBAL);
514 1.92 sjg break;
515 1.63 christos case 'W':
516 1.63 christos parseWarnFatal = TRUE;
517 1.87 thorpej break;
518 1.87 thorpej case 'X':
519 1.87 thorpej varNoExportEnv = TRUE;
520 1.87 thorpej Var_Append(MAKEFLAGS, "-X", VAR_GLOBAL);
521 1.63 christos break;
522 1.133 dsl case 'd':
523 1.122 christos if (argvalue == NULL) goto noarg;
524 1.133 dsl /* If '-d-opts' don't pass to children */
525 1.133 dsl if (argvalue[0] == '-')
526 1.133 dsl argvalue++;
527 1.133 dsl else {
528 1.133 dsl Var_Append(MAKEFLAGS, "-d", VAR_GLOBAL);
529 1.133 dsl Var_Append(MAKEFLAGS, argvalue, VAR_GLOBAL);
530 1.133 dsl }
531 1.133 dsl parse_debug_options(argvalue);
532 1.1 cgd break;
533 1.1 cgd case 'e':
534 1.1 cgd checkEnvFirst = TRUE;
535 1.1 cgd Var_Append(MAKEFLAGS, "-e", VAR_GLOBAL);
536 1.1 cgd break;
537 1.1 cgd case 'f':
538 1.122 christos if (argvalue == NULL) goto noarg;
539 1.134 dsl (void)Lst_AtEnd(makefiles, argvalue);
540 1.1 cgd break;
541 1.1 cgd case 'i':
542 1.1 cgd ignoreErrors = TRUE;
543 1.1 cgd Var_Append(MAKEFLAGS, "-i", VAR_GLOBAL);
544 1.1 cgd break;
545 1.1 cgd case 'j':
546 1.122 christos if (argvalue == NULL) goto noarg;
547 1.22 christos forceJobs = TRUE;
548 1.122 christos maxJobs = strtol(argvalue, &p, 0);
549 1.47 hubertf if (*p != '\0' || maxJobs < 1) {
550 1.112 christos (void)fprintf(stderr, "%s: illegal argument to -j -- must be positive integer!\n",
551 1.63 christos progname);
552 1.46 hubertf exit(1);
553 1.46 hubertf }
554 1.9 jtc Var_Append(MAKEFLAGS, "-j", VAR_GLOBAL);
555 1.122 christos Var_Append(MAKEFLAGS, argvalue, VAR_GLOBAL);
556 1.180 sjg Var_Set(".MAKE.JOBS", argvalue, VAR_GLOBAL, 0);
557 1.123 dsl maxJobTokens = maxJobs;
558 1.1 cgd break;
559 1.1 cgd case 'k':
560 1.1 cgd keepgoing = TRUE;
561 1.1 cgd Var_Append(MAKEFLAGS, "-k", VAR_GLOBAL);
562 1.1 cgd break;
563 1.25 christos case 'm':
564 1.122 christos if (argvalue == NULL) goto noarg;
565 1.97 chuck /* look for magic parent directory search string */
566 1.122 christos if (strncmp(".../", argvalue, 4) == 0) {
567 1.122 christos if (!Dir_FindHereOrAbove(curdir, argvalue+4,
568 1.97 chuck found_path, sizeof(found_path)))
569 1.97 chuck break; /* nothing doing */
570 1.112 christos (void)Dir_AddDir(sysIncPath, found_path);
571 1.97 chuck } else {
572 1.122 christos (void)Dir_AddDir(sysIncPath, argvalue);
573 1.97 chuck }
574 1.25 christos Var_Append(MAKEFLAGS, "-m", VAR_GLOBAL);
575 1.122 christos Var_Append(MAKEFLAGS, argvalue, VAR_GLOBAL);
576 1.25 christos break;
577 1.1 cgd case 'n':
578 1.1 cgd noExecute = TRUE;
579 1.1 cgd Var_Append(MAKEFLAGS, "-n", VAR_GLOBAL);
580 1.1 cgd break;
581 1.1 cgd case 'q':
582 1.1 cgd queryFlag = TRUE;
583 1.1 cgd /* Kind of nonsensical, wot? */
584 1.1 cgd Var_Append(MAKEFLAGS, "-q", VAR_GLOBAL);
585 1.1 cgd break;
586 1.1 cgd case 'r':
587 1.1 cgd noBuiltins = TRUE;
588 1.1 cgd Var_Append(MAKEFLAGS, "-r", VAR_GLOBAL);
589 1.1 cgd break;
590 1.1 cgd case 's':
591 1.1 cgd beSilent = TRUE;
592 1.1 cgd Var_Append(MAKEFLAGS, "-s", VAR_GLOBAL);
593 1.1 cgd break;
594 1.1 cgd case 't':
595 1.1 cgd touchFlag = TRUE;
596 1.1 cgd Var_Append(MAKEFLAGS, "-t", VAR_GLOBAL);
597 1.1 cgd break;
598 1.220 christos case 'w':
599 1.220 christos enterFlag = TRUE;
600 1.220 christos Var_Append(MAKEFLAGS, "-w", VAR_GLOBAL);
601 1.220 christos break;
602 1.101 ross case '-':
603 1.101 ross dashDash = TRUE;
604 1.101 ross break;
605 1.1 cgd default:
606 1.1 cgd case '?':
607 1.1 cgd usage();
608 1.1 cgd }
609 1.98 ross argv += arginc;
610 1.98 ross argc -= arginc;
611 1.1 cgd }
612 1.1 cgd
613 1.1 cgd oldVars = TRUE;
614 1.1 cgd
615 1.1 cgd /*
616 1.1 cgd * See if the rest of the arguments are variable assignments and
617 1.1 cgd * perform them if so. Else take them to be targets and stuff them
618 1.1 cgd * on the end of the "create" list.
619 1.1 cgd */
620 1.98 ross for (; argc > 1; ++argv, --argc)
621 1.98 ross if (Parse_IsVar(argv[1])) {
622 1.98 ross Parse_DoVar(argv[1], VAR_CMD);
623 1.67 sjg } else {
624 1.98 ross if (!*argv[1])
625 1.1 cgd Punt("illegal (null) argument.");
626 1.101 ross if (*argv[1] == '-' && !dashDash)
627 1.1 cgd goto rearg;
628 1.151 joerg (void)Lst_AtEnd(create, bmake_strdup(argv[1]));
629 1.1 cgd }
630 1.122 christos
631 1.122 christos return;
632 1.122 christos noarg:
633 1.122 christos (void)fprintf(stderr, "%s: option requires an argument -- %c\n",
634 1.122 christos progname, c);
635 1.122 christos usage();
636 1.1 cgd }
637 1.1 cgd
638 1.1 cgd /*-
639 1.1 cgd * Main_ParseArgLine --
640 1.1 cgd * Used by the parse module when a .MFLAGS or .MAKEFLAGS target
641 1.1 cgd * is encountered and by main() when reading the .MAKEFLAGS envariable.
642 1.1 cgd * Takes a line of arguments and breaks it into its
643 1.1 cgd * component words and passes those words and the number of them to the
644 1.1 cgd * MainParseArgs function.
645 1.1 cgd * The line should have all its leading whitespace removed.
646 1.1 cgd *
647 1.85 wiz * Input:
648 1.85 wiz * line Line to fracture
649 1.85 wiz *
650 1.1 cgd * Results:
651 1.1 cgd * None
652 1.1 cgd *
653 1.1 cgd * Side Effects:
654 1.1 cgd * Only those that come from the various arguments.
655 1.1 cgd */
656 1.1 cgd void
657 1.161 dsl Main_ParseArgLine(const char *line)
658 1.1 cgd {
659 1.1 cgd char **argv; /* Manufactured argument vector */
660 1.149 christos int argc; /* Number of arguments in argv */
661 1.40 christos char *args; /* Space used by the args */
662 1.40 christos char *buf, *p1;
663 1.40 christos char *argv0 = Var_Value(".MAKE", VAR_GLOBAL, &p1);
664 1.48 christos size_t len;
665 1.1 cgd
666 1.1 cgd if (line == NULL)
667 1.1 cgd return;
668 1.13 cgd for (; *line == ' '; ++line)
669 1.13 cgd continue;
670 1.1 cgd if (!*line)
671 1.1 cgd return;
672 1.1 cgd
673 1.151 joerg buf = bmake_malloc(len = strlen(line) + strlen(argv0) + 2);
674 1.48 christos (void)snprintf(buf, len, "%s %s", argv0, line);
675 1.238 christos free(p1);
676 1.40 christos
677 1.41 christos argv = brk_string(buf, &argc, TRUE, &args);
678 1.159 christos if (argv == NULL) {
679 1.159 christos Error("Unterminated quoted string [%s]", buf);
680 1.159 christos free(buf);
681 1.159 christos return;
682 1.159 christos }
683 1.45 itohy free(buf);
684 1.1 cgd MainParseArgs(argc, argv);
685 1.40 christos
686 1.40 christos free(args);
687 1.40 christos free(argv);
688 1.1 cgd }
689 1.1 cgd
690 1.74 tv Boolean
691 1.252 christos Main_SetObjdir(const char *fmt, ...)
692 1.31 christos {
693 1.31 christos struct stat sb;
694 1.252 christos char *p, *path;
695 1.252 christos char buf[MAXPATHLEN + 1], pbuf[MAXPATHLEN + 1];
696 1.76 tv Boolean rc = FALSE;
697 1.252 christos va_list ap;
698 1.252 christos
699 1.252 christos va_start(ap, fmt);
700 1.252 christos vsnprintf(path = pbuf, MAXPATHLEN, fmt, ap);
701 1.252 christos va_end(ap);
702 1.31 christos
703 1.74 tv /* expand variable substitutions */
704 1.51 sjg if (strchr(path, '$') != 0) {
705 1.74 tv snprintf(buf, MAXPATHLEN, "%s", path);
706 1.239 christos path = p = Var_Subst(NULL, buf, VAR_GLOBAL, VARF_WANTRES);
707 1.252 christos } else
708 1.252 christos p = NULL;
709 1.74 tv
710 1.74 tv if (path[0] != '/') {
711 1.74 tv snprintf(buf, MAXPATHLEN, "%s/%s", curdir, path);
712 1.74 tv path = buf;
713 1.74 tv }
714 1.74 tv
715 1.74 tv /* look for the directory and try to chdir there */
716 1.31 christos if (stat(path, &sb) == 0 && S_ISDIR(sb.st_mode)) {
717 1.31 christos if (chdir(path)) {
718 1.31 christos (void)fprintf(stderr, "make warning: %s: %s.\n",
719 1.31 christos path, strerror(errno));
720 1.74 tv } else {
721 1.74 tv strncpy(objdir, path, MAXPATHLEN);
722 1.74 tv Var_Set(".OBJDIR", objdir, VAR_GLOBAL, 0);
723 1.74 tv setenv("PWD", objdir, 1);
724 1.79 tv Dir_InitDot();
725 1.74 tv rc = TRUE;
726 1.233 sjg if (enterFlag && strcmp(objdir, curdir) != 0)
727 1.233 sjg enterFlagObj = TRUE;
728 1.31 christos }
729 1.31 christos }
730 1.31 christos
731 1.238 christos free(p);
732 1.74 tv return rc;
733 1.31 christos }
734 1.31 christos
735 1.252 christos static Boolean
736 1.253 christos Main_SetVarObjdir(const char *var, const char *suffix)
737 1.252 christos {
738 1.252 christos char *p1, *path;
739 1.252 christos if ((path = Var_Value(var, VAR_CMD, &p1)) == NULL)
740 1.252 christos return FALSE;
741 1.252 christos
742 1.253 christos (void)Main_SetObjdir("%s%s", path, suffix);
743 1.252 christos free(p1);
744 1.252 christos return TRUE;
745 1.252 christos }
746 1.252 christos
747 1.124 sjg /*-
748 1.124 sjg * ReadAllMakefiles --
749 1.124 sjg * wrapper around ReadMakefile() to read all.
750 1.124 sjg *
751 1.124 sjg * Results:
752 1.124 sjg * TRUE if ok, FALSE on error
753 1.124 sjg */
754 1.124 sjg static int
755 1.165 dsl ReadAllMakefiles(const void *p, const void *q)
756 1.124 sjg {
757 1.124 sjg return (ReadMakefile(p, q) == 0);
758 1.124 sjg }
759 1.31 christos
760 1.197 sjg int
761 1.176 sjg str2Lst_Append(Lst lp, char *str, const char *sep)
762 1.176 sjg {
763 1.176 sjg char *cp;
764 1.176 sjg int n;
765 1.176 sjg
766 1.176 sjg if (!sep)
767 1.176 sjg sep = " \t";
768 1.176 sjg
769 1.176 sjg for (n = 0, cp = strtok(str, sep); cp; cp = strtok(NULL, sep)) {
770 1.176 sjg (void)Lst_AtEnd(lp, cp);
771 1.176 sjg n++;
772 1.176 sjg }
773 1.176 sjg return (n);
774 1.176 sjg }
775 1.176 sjg
776 1.167 christos #ifdef SIGINFO
777 1.167 christos /*ARGSUSED*/
778 1.167 christos static void
779 1.200 joerg siginfo(int signo MAKE_ATTR_UNUSED)
780 1.167 christos {
781 1.167 christos char dir[MAXPATHLEN];
782 1.167 christos char str[2 * MAXPATHLEN];
783 1.167 christos int len;
784 1.167 christos if (getcwd(dir, sizeof(dir)) == NULL)
785 1.167 christos return;
786 1.168 christos len = snprintf(str, sizeof(str), "%s: Working in: %s\n", progname, dir);
787 1.167 christos if (len > 0)
788 1.167 christos (void)write(STDERR_FILENO, str, (size_t)len);
789 1.167 christos }
790 1.167 christos #endif
791 1.167 christos
792 1.176 sjg /*
793 1.176 sjg * Allow makefiles some control over the mode we run in.
794 1.176 sjg */
795 1.176 sjg void
796 1.176 sjg MakeMode(const char *mode)
797 1.176 sjg {
798 1.176 sjg char *mp = NULL;
799 1.176 sjg
800 1.176 sjg if (!mode)
801 1.234 sjg mode = mp = Var_Subst(NULL, "${" MAKE_MODE ":tl}",
802 1.239 christos VAR_GLOBAL, VARF_WANTRES);
803 1.176 sjg
804 1.176 sjg if (mode && *mode) {
805 1.176 sjg if (strstr(mode, "compat")) {
806 1.176 sjg compatMake = TRUE;
807 1.176 sjg forceJobs = FALSE;
808 1.176 sjg }
809 1.190 sjg #if USE_META
810 1.190 sjg if (strstr(mode, "meta"))
811 1.210 sjg meta_mode_init(mode);
812 1.190 sjg #endif
813 1.176 sjg }
814 1.238 christos
815 1.238 christos free(mp);
816 1.176 sjg }
817 1.176 sjg
818 1.1 cgd /*-
819 1.1 cgd * main --
820 1.1 cgd * The main function, for obvious reasons. Initializes variables
821 1.1 cgd * and a few modules, then parses the arguments give it in the
822 1.1 cgd * environment and on the command line. Reads the system makefile
823 1.1 cgd * followed by either Makefile, makefile or the file given by the
824 1.1 cgd * -f argument. Sets the .MAKEFLAGS PMake variable based on all the
825 1.1 cgd * flags it has received by then uses either the Make or the Compat
826 1.1 cgd * module to create the initial list of targets.
827 1.1 cgd *
828 1.1 cgd * Results:
829 1.1 cgd * If -q was given, exits -1 if anything was out-of-date. Else it exits
830 1.1 cgd * 0.
831 1.1 cgd *
832 1.1 cgd * Side Effects:
833 1.1 cgd * The program exits when done. Targets are created. etc. etc. etc.
834 1.1 cgd */
835 1.13 cgd int
836 1.85 wiz main(int argc, char **argv)
837 1.1 cgd {
838 1.1 cgd Lst targs; /* target nodes to create -- passed to Make_Init */
839 1.137 dsl Boolean outOfDate = FALSE; /* FALSE if all targets up to date */
840 1.77 tv struct stat sb, sa;
841 1.222 sjg char *p1, *path;
842 1.74 tv char mdpath[MAXPATHLEN];
843 1.192 dholland const char *machine = getenv("MACHINE");
844 1.89 christos const char *machine_arch = getenv("MACHINE_ARCH");
845 1.55 sjg char *syspath = getenv("MAKESYSPATH");
846 1.25 christos Lst sysMkPath; /* Path of sys.mk */
847 1.25 christos char *cp = NULL, *start;
848 1.25 christos /* avoid faults on read-only strings */
849 1.55 sjg static char defsyspath[] = _PATH_DEFSYSPATH;
850 1.97 chuck char found_path[MAXPATHLEN + 1]; /* for searching for sys.mk */
851 1.107 sjg struct timeval rightnow; /* to initialize random seed */
852 1.119 tsutsui struct utsname utsname;
853 1.107 sjg
854 1.154 apb /* default to writing debug to stderr */
855 1.154 apb debug_file = stderr;
856 1.133 dsl
857 1.167 christos #ifdef SIGINFO
858 1.188 sjg (void)bmake_signal(SIGINFO, siginfo);
859 1.167 christos #endif
860 1.107 sjg /*
861 1.158 dholland * Set the seed to produce a different random sequence
862 1.107 sjg * on each program execution.
863 1.107 sjg */
864 1.107 sjg gettimeofday(&rightnow, NULL);
865 1.149 christos srandom(rightnow.tv_sec + rightnow.tv_usec);
866 1.55 sjg
867 1.53 christos if ((progname = strrchr(argv[0], '/')) != NULL)
868 1.53 christos progname++;
869 1.53 christos else
870 1.53 christos progname = argv[0];
871 1.209 christos #if defined(MAKE_NATIVE) || (defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE))
872 1.21 christos /*
873 1.21 christos * get rid of resource limit on file descriptors
874 1.21 christos */
875 1.21 christos {
876 1.21 christos struct rlimit rl;
877 1.21 christos if (getrlimit(RLIMIT_NOFILE, &rl) != -1 &&
878 1.21 christos rl.rlim_cur != rl.rlim_max) {
879 1.21 christos rl.rlim_cur = rl.rlim_max;
880 1.112 christos (void)setrlimit(RLIMIT_NOFILE, &rl);
881 1.21 christos }
882 1.21 christos }
883 1.21 christos #endif
884 1.13 cgd
885 1.206 christos if (uname(&utsname) == -1) {
886 1.206 christos (void)fprintf(stderr, "%s: uname failed (%s).\n", progname,
887 1.206 christos strerror(errno));
888 1.206 christos exit(2);
889 1.206 christos }
890 1.206 christos
891 1.17 gwr /*
892 1.17 gwr * Get the name of this type of MACHINE from utsname
893 1.17 gwr * so we can share an executable for similar machines.
894 1.17 gwr * (i.e. m68k: amiga hp300, mac68k, sun3, ...)
895 1.17 gwr *
896 1.33 christos * Note that both MACHINE and MACHINE_ARCH are decided at
897 1.33 christos * run-time.
898 1.17 gwr */
899 1.34 gwr if (!machine) {
900 1.102 ross #ifdef MAKE_NATIVE
901 1.18 christos machine = utsname.machine;
902 1.26 christos #else
903 1.81 tv #ifdef MAKE_MACHINE
904 1.80 thorpej machine = MAKE_MACHINE;
905 1.81 tv #else
906 1.81 tv machine = "unknown";
907 1.81 tv #endif
908 1.26 christos #endif
909 1.17 gwr }
910 1.1 cgd
911 1.33 christos if (!machine_arch) {
912 1.225 matt #ifdef MAKE_NATIVE
913 1.225 matt static char machine_arch_buf[sizeof(utsname.machine)];
914 1.225 matt const int mib[2] = { CTL_HW, HW_MACHINE_ARCH };
915 1.225 matt size_t len = sizeof(machine_arch_buf);
916 1.225 matt
917 1.225 matt if (sysctl(mib, __arraycount(mib), machine_arch_buf,
918 1.225 matt &len, NULL, 0) < 0) {
919 1.225 matt (void)fprintf(stderr, "%s: sysctl failed (%s).\n", progname,
920 1.225 matt strerror(errno));
921 1.225 matt exit(2);
922 1.225 matt }
923 1.225 matt
924 1.225 matt machine_arch = machine_arch_buf;
925 1.225 matt #else
926 1.33 christos #ifndef MACHINE_ARCH
927 1.80 thorpej #ifdef MAKE_MACHINE_ARCH
928 1.80 thorpej machine_arch = MAKE_MACHINE_ARCH;
929 1.43 wsanchez #else
930 1.81 tv machine_arch = "unknown";
931 1.43 wsanchez #endif
932 1.33 christos #else
933 1.33 christos machine_arch = MACHINE_ARCH;
934 1.33 christos #endif
935 1.225 matt #endif
936 1.33 christos }
937 1.33 christos
938 1.183 sjg myPid = getpid(); /* remember this for vFork() */
939 1.183 sjg
940 1.1 cgd /*
941 1.51 sjg * Just in case MAKEOBJDIR wants us to do something tricky.
942 1.51 sjg */
943 1.51 sjg Var_Init(); /* Initialize the lists of variables for
944 1.51 sjg * parsing arguments */
945 1.206 christos Var_Set(".MAKE.OS", utsname.sysname, VAR_GLOBAL, 0);
946 1.71 sjg Var_Set("MACHINE", machine, VAR_GLOBAL, 0);
947 1.71 sjg Var_Set("MACHINE_ARCH", machine_arch, VAR_GLOBAL, 0);
948 1.170 perry #ifdef MAKE_VERSION
949 1.170 perry Var_Set("MAKE_VERSION", MAKE_VERSION, VAR_GLOBAL, 0);
950 1.170 perry #endif
951 1.71 sjg Var_Set(".newline", "\n", VAR_GLOBAL, 0); /* handy for :@ loops */
952 1.176 sjg /*
953 1.176 sjg * This is the traditional preference for makefiles.
954 1.176 sjg */
955 1.176 sjg #ifndef MAKEFILE_PREFERENCE_LIST
956 1.176 sjg # define MAKEFILE_PREFERENCE_LIST "makefile Makefile"
957 1.176 sjg #endif
958 1.176 sjg Var_Set(MAKEFILE_PREFERENCE, MAKEFILE_PREFERENCE_LIST,
959 1.176 sjg VAR_GLOBAL, 0);
960 1.176 sjg Var_Set(MAKE_DEPENDFILE, ".depend", VAR_GLOBAL, 0);
961 1.51 sjg
962 1.1 cgd create = Lst_Init(FALSE);
963 1.1 cgd makefiles = Lst_Init(FALSE);
964 1.31 christos printVars = FALSE;
965 1.201 sjg debugVflag = FALSE;
966 1.31 christos variables = Lst_Init(FALSE);
967 1.1 cgd beSilent = FALSE; /* Print commands as executed */
968 1.1 cgd ignoreErrors = FALSE; /* Pay attention to non-zero returns */
969 1.1 cgd noExecute = FALSE; /* Execute all commands */
970 1.61 sommerfe noRecursiveExecute = FALSE; /* Execute all .MAKE targets */
971 1.1 cgd keepgoing = FALSE; /* Stop on error */
972 1.1 cgd allPrecious = FALSE; /* Remove targets when interrupted */
973 1.251 dholland deleteOnError = FALSE; /* Historical default behavior */
974 1.1 cgd queryFlag = FALSE; /* This is not just a check-run */
975 1.1 cgd noBuiltins = FALSE; /* Read the built-in rules */
976 1.1 cgd touchFlag = FALSE; /* Actually update targets */
977 1.1 cgd debug = 0; /* No debug verbosity, please. */
978 1.1 cgd jobsRunning = FALSE;
979 1.1 cgd
980 1.121 dsl maxJobs = DEFMAXLOCAL; /* Set default local max concurrency */
981 1.123 dsl maxJobTokens = maxJobs;
982 1.21 christos compatMake = FALSE; /* No compat mode */
983 1.174 sjg ignorePWD = FALSE;
984 1.13 cgd
985 1.1 cgd /*
986 1.1 cgd * Initialize the parsing, directory and variable modules to prepare
987 1.1 cgd * for the reading of inclusion paths and variable settings on the
988 1.1 cgd * command line
989 1.1 cgd */
990 1.36 gwr
991 1.36 gwr /*
992 1.1 cgd * Initialize various variables.
993 1.1 cgd * MAKE also gets this name, for compatibility
994 1.1 cgd * .MAKEFLAGS gets set to the empty string just in case.
995 1.1 cgd * MFLAGS also gets initialized empty, for compatibility.
996 1.1 cgd */
997 1.79 tv Parse_Init();
998 1.187 christos if (argv[0][0] == '/' || strchr(argv[0], '/') == NULL) {
999 1.187 christos /*
1000 1.187 christos * Leave alone if it is an absolute path, or if it does
1001 1.187 christos * not contain a '/' in which case we need to find it in
1002 1.187 christos * the path, like execvp(3) and the shells do.
1003 1.187 christos */
1004 1.187 christos p1 = argv[0];
1005 1.187 christos } else {
1006 1.187 christos /*
1007 1.187 christos * A relative path, canonicalize it.
1008 1.187 christos */
1009 1.245 sjg p1 = cached_realpath(argv[0], mdpath);
1010 1.187 christos if (!p1 || *p1 != '/' || stat(p1, &sb) < 0) {
1011 1.187 christos p1 = argv[0]; /* realpath failed */
1012 1.187 christos }
1013 1.187 christos }
1014 1.178 sjg Var_Set("MAKE", p1, VAR_GLOBAL, 0);
1015 1.178 sjg Var_Set(".MAKE", p1, VAR_GLOBAL, 0);
1016 1.71 sjg Var_Set(MAKEFLAGS, "", VAR_GLOBAL, 0);
1017 1.71 sjg Var_Set(MAKEOVERRIDES, "", VAR_GLOBAL, 0);
1018 1.71 sjg Var_Set("MFLAGS", "", VAR_GLOBAL, 0);
1019 1.78 tv Var_Set(".ALLTARGETS", "", VAR_GLOBAL, 0);
1020 1.217 sjg /* some makefiles need to know this */
1021 1.218 sjg Var_Set(MAKE_LEVEL ".ENV", MAKE_LEVEL_ENV, VAR_CMD, 0);
1022 1.1 cgd
1023 1.1 cgd /*
1024 1.142 sjg * Set some other useful macros
1025 1.142 sjg */
1026 1.142 sjg {
1027 1.213 christos char tmp[64], *ep;
1028 1.142 sjg
1029 1.220 christos makelevel = ((ep = getenv(MAKE_LEVEL_ENV)) && *ep) ? atoi(ep) : 0;
1030 1.220 christos if (makelevel < 0)
1031 1.220 christos makelevel = 0;
1032 1.220 christos snprintf(tmp, sizeof(tmp), "%d", makelevel);
1033 1.213 christos Var_Set(MAKE_LEVEL, tmp, VAR_GLOBAL, 0);
1034 1.183 sjg snprintf(tmp, sizeof(tmp), "%u", myPid);
1035 1.142 sjg Var_Set(".MAKE.PID", tmp, VAR_GLOBAL, 0);
1036 1.149 christos snprintf(tmp, sizeof(tmp), "%u", getppid());
1037 1.142 sjg Var_Set(".MAKE.PPID", tmp, VAR_GLOBAL, 0);
1038 1.142 sjg }
1039 1.220 christos if (makelevel > 0) {
1040 1.220 christos char pn[1024];
1041 1.220 christos snprintf(pn, sizeof(pn), "%s[%d]", progname, makelevel);
1042 1.221 christos progname = bmake_strdup(pn);
1043 1.220 christos }
1044 1.142 sjg
1045 1.210 sjg #ifdef USE_META
1046 1.210 sjg meta_init();
1047 1.210 sjg #endif
1048 1.255 sjg Dir_Init(NULL); /* Dir_* safe to call from MainParseArgs */
1049 1.255 sjg
1050 1.142 sjg /*
1051 1.1 cgd * First snag any flags out of the MAKE environment variable.
1052 1.1 cgd * (Note this is *not* MAKEFLAGS since /bin/make uses that and it's
1053 1.1 cgd * in a different format).
1054 1.1 cgd */
1055 1.1 cgd #ifdef POSIX
1056 1.220 christos p1 = explode(getenv("MAKEFLAGS"));
1057 1.220 christos Main_ParseArgLine(p1);
1058 1.220 christos free(p1);
1059 1.1 cgd #else
1060 1.1 cgd Main_ParseArgLine(getenv("MAKE"));
1061 1.1 cgd #endif
1062 1.31 christos
1063 1.1 cgd /*
1064 1.175 sjg * Find where we are (now).
1065 1.175 sjg * We take care of PWD for the automounter below...
1066 1.174 sjg */
1067 1.174 sjg if (getcwd(curdir, MAXPATHLEN) == NULL) {
1068 1.194 dholland (void)fprintf(stderr, "%s: getcwd: %s.\n",
1069 1.194 dholland progname, strerror(errno));
1070 1.174 sjg exit(2);
1071 1.174 sjg }
1072 1.174 sjg
1073 1.175 sjg MainParseArgs(argc, argv);
1074 1.175 sjg
1075 1.220 christos if (enterFlag)
1076 1.220 christos printf("%s: Entering directory `%s'\n", progname, curdir);
1077 1.220 christos
1078 1.175 sjg /*
1079 1.175 sjg * Verify that cwd is sane.
1080 1.175 sjg */
1081 1.174 sjg if (stat(curdir, &sa) == -1) {
1082 1.174 sjg (void)fprintf(stderr, "%s: %s: %s.\n",
1083 1.174 sjg progname, curdir, strerror(errno));
1084 1.174 sjg exit(2);
1085 1.174 sjg }
1086 1.174 sjg
1087 1.174 sjg /*
1088 1.175 sjg * All this code is so that we know where we are when we start up
1089 1.175 sjg * on a different machine with pmake.
1090 1.174 sjg * Overriding getcwd() with $PWD totally breaks MAKEOBJDIRPREFIX
1091 1.174 sjg * since the value of curdir can vary depending on how we got
1092 1.174 sjg * here. Ie sitting at a shell prompt (shell that provides $PWD)
1093 1.174 sjg * or via subdir.mk in which case its likely a shell which does
1094 1.174 sjg * not provide it.
1095 1.174 sjg * So, to stop it breaking this case only, we ignore PWD if
1096 1.174 sjg * MAKEOBJDIRPREFIX is set or MAKEOBJDIR contains a transform.
1097 1.174 sjg */
1098 1.222 sjg #ifndef NO_PWD_OVERRIDE
1099 1.222 sjg if (!ignorePWD) {
1100 1.226 pooka char *pwd, *ptmp1 = NULL, *ptmp2 = NULL;
1101 1.222 sjg
1102 1.222 sjg if ((pwd = getenv("PWD")) != NULL &&
1103 1.226 pooka Var_Value("MAKEOBJDIRPREFIX", VAR_CMD, &ptmp1) == NULL) {
1104 1.226 pooka const char *makeobjdir = Var_Value("MAKEOBJDIR",
1105 1.226 pooka VAR_CMD, &ptmp2);
1106 1.222 sjg
1107 1.222 sjg if (makeobjdir == NULL || !strchr(makeobjdir, '$')) {
1108 1.222 sjg if (stat(pwd, &sb) == 0 &&
1109 1.222 sjg sa.st_ino == sb.st_ino &&
1110 1.222 sjg sa.st_dev == sb.st_dev)
1111 1.222 sjg (void)strncpy(curdir, pwd, MAXPATHLEN);
1112 1.222 sjg }
1113 1.174 sjg }
1114 1.226 pooka free(ptmp1);
1115 1.226 pooka free(ptmp2);
1116 1.174 sjg }
1117 1.222 sjg #endif
1118 1.174 sjg Var_Set(".CURDIR", curdir, VAR_GLOBAL, 0);
1119 1.174 sjg
1120 1.174 sjg /*
1121 1.174 sjg * Find the .OBJDIR. If MAKEOBJDIRPREFIX, or failing that,
1122 1.174 sjg * MAKEOBJDIR is set in the environment, try only that value
1123 1.174 sjg * and fall back to .CURDIR if it does not exist.
1124 1.174 sjg *
1125 1.252 christos * Otherwise, try _PATH_OBJDIR.MACHINE-MACHINE_ARCH, _PATH_OBJDIR.MACHINE,
1126 1.252 christos * and * finally _PATH_OBJDIRPREFIX`pwd`, in that order. If none
1127 1.174 sjg * of these paths exist, just use .CURDIR.
1128 1.174 sjg */
1129 1.174 sjg Dir_Init(curdir);
1130 1.252 christos (void)Main_SetObjdir("%s", curdir);
1131 1.174 sjg
1132 1.253 christos if (!Main_SetVarObjdir("MAKEOBJDIRPREFIX", curdir) &&
1133 1.253 christos !Main_SetVarObjdir("MAKEOBJDIR", "") &&
1134 1.254 christos !Main_SetObjdir("%s.%s-%s", _PATH_OBJDIR, machine, machine_arch) &&
1135 1.252 christos !Main_SetObjdir("%s.%s", _PATH_OBJDIR, machine) &&
1136 1.252 christos !Main_SetObjdir("%s", _PATH_OBJDIR))
1137 1.252 christos (void)Main_SetObjdir("%s%s", _PATH_OBJDIRPREFIX, curdir);
1138 1.174 sjg
1139 1.174 sjg /*
1140 1.1 cgd * Initialize archive, target and suffix modules in preparation for
1141 1.1 cgd * parsing the makefile(s)
1142 1.1 cgd */
1143 1.1 cgd Arch_Init();
1144 1.1 cgd Targ_Init();
1145 1.1 cgd Suff_Init();
1146 1.58 sommerfe Trace_Init(tracefile);
1147 1.1 cgd
1148 1.157 dsl DEFAULT = NULL;
1149 1.1 cgd (void)time(&now);
1150 1.1 cgd
1151 1.58 sommerfe Trace_Log(MAKESTART, NULL);
1152 1.58 sommerfe
1153 1.1 cgd /*
1154 1.1 cgd * Set up the .TARGETS variable to contain the list of targets to be
1155 1.1 cgd * created. If none specified, make the variable empty -- the parser
1156 1.1 cgd * will fill the thing in with the default or .MAIN target.
1157 1.1 cgd */
1158 1.1 cgd if (!Lst_IsEmpty(create)) {
1159 1.1 cgd LstNode ln;
1160 1.1 cgd
1161 1.157 dsl for (ln = Lst_First(create); ln != NULL;
1162 1.1 cgd ln = Lst_Succ(ln)) {
1163 1.1 cgd char *name = (char *)Lst_Datum(ln);
1164 1.1 cgd
1165 1.1 cgd Var_Append(".TARGETS", name, VAR_GLOBAL);
1166 1.1 cgd }
1167 1.1 cgd } else
1168 1.71 sjg Var_Set(".TARGETS", "", VAR_GLOBAL, 0);
1169 1.1 cgd
1170 1.25 christos
1171 1.1 cgd /*
1172 1.25 christos * If no user-supplied system path was given (through the -m option)
1173 1.25 christos * add the directories from the DEFSYSPATH (more than one may be given
1174 1.25 christos * as dir1:...:dirn) to the system include path.
1175 1.1 cgd */
1176 1.73 tv if (syspath == NULL || *syspath == '\0')
1177 1.73 tv syspath = defsyspath;
1178 1.73 tv else
1179 1.151 joerg syspath = bmake_strdup(syspath);
1180 1.73 tv
1181 1.73 tv for (start = syspath; *start != '\0'; start = cp) {
1182 1.73 tv for (cp = start; *cp != '\0' && *cp != ':'; cp++)
1183 1.73 tv continue;
1184 1.97 chuck if (*cp == ':') {
1185 1.97 chuck *cp++ = '\0';
1186 1.97 chuck }
1187 1.97 chuck /* look for magic parent directory search string */
1188 1.97 chuck if (strncmp(".../", start, 4) != 0) {
1189 1.112 christos (void)Dir_AddDir(defIncPath, start);
1190 1.73 tv } else {
1191 1.97 chuck if (Dir_FindHereOrAbove(curdir, start+4,
1192 1.97 chuck found_path, sizeof(found_path))) {
1193 1.112 christos (void)Dir_AddDir(defIncPath, found_path);
1194 1.97 chuck }
1195 1.25 christos }
1196 1.25 christos }
1197 1.73 tv if (syspath != defsyspath)
1198 1.73 tv free(syspath);
1199 1.25 christos
1200 1.25 christos /*
1201 1.25 christos * Read in the built-in rules first, followed by the specified
1202 1.115 christos * makefile, if it was (makefile != NULL), or the default
1203 1.99 fair * makefile and Makefile, in that order, if it wasn't.
1204 1.25 christos */
1205 1.25 christos if (!noBuiltins) {
1206 1.25 christos LstNode ln;
1207 1.25 christos
1208 1.106 christos sysMkPath = Lst_Init(FALSE);
1209 1.73 tv Dir_Expand(_PATH_DEFSYSMK,
1210 1.73 tv Lst_IsEmpty(sysIncPath) ? defIncPath : sysIncPath,
1211 1.73 tv sysMkPath);
1212 1.25 christos if (Lst_IsEmpty(sysMkPath))
1213 1.63 christos Fatal("%s: no system rules (%s).", progname,
1214 1.63 christos _PATH_DEFSYSMK);
1215 1.134 dsl ln = Lst_Find(sysMkPath, NULL, ReadMakefile);
1216 1.157 dsl if (ln == NULL)
1217 1.63 christos Fatal("%s: cannot open %s.", progname,
1218 1.63 christos (char *)Lst_Datum(ln));
1219 1.25 christos }
1220 1.1 cgd
1221 1.1 cgd if (!Lst_IsEmpty(makefiles)) {
1222 1.1 cgd LstNode ln;
1223 1.1 cgd
1224 1.134 dsl ln = Lst_Find(makefiles, NULL, ReadAllMakefiles);
1225 1.157 dsl if (ln != NULL)
1226 1.63 christos Fatal("%s: cannot open %s.", progname,
1227 1.63 christos (char *)Lst_Datum(ln));
1228 1.176 sjg } else {
1229 1.176 sjg p1 = Var_Subst(NULL, "${" MAKEFILE_PREFERENCE "}",
1230 1.239 christos VAR_CMD, VARF_WANTRES);
1231 1.176 sjg if (p1) {
1232 1.176 sjg (void)str2Lst_Append(makefiles, p1, NULL);
1233 1.176 sjg (void)Lst_Find(makefiles, NULL, ReadMakefile);
1234 1.176 sjg free(p1);
1235 1.176 sjg }
1236 1.176 sjg }
1237 1.1 cgd
1238 1.138 dsl /* In particular suppress .depend for '-r -V .OBJDIR -f /dev/null' */
1239 1.145 dsl if (!noBuiltins || !printVars) {
1240 1.176 sjg makeDependfile = Var_Subst(NULL, "${.MAKE.DEPENDFILE:T}",
1241 1.239 christos VAR_CMD, VARF_WANTRES);
1242 1.176 sjg doing_depend = TRUE;
1243 1.176 sjg (void)ReadMakefile(makeDependfile, NULL);
1244 1.176 sjg doing_depend = FALSE;
1245 1.145 dsl }
1246 1.1 cgd
1247 1.233 sjg if (enterFlagObj)
1248 1.233 sjg printf("%s: Entering directory `%s'\n", progname, objdir);
1249 1.233 sjg
1250 1.176 sjg MakeMode(NULL);
1251 1.176 sjg
1252 1.14 jtc Var_Append("MFLAGS", Var_Value(MAKEFLAGS, VAR_GLOBAL, &p1), VAR_GLOBAL);
1253 1.238 christos free(p1);
1254 1.1 cgd
1255 1.244 sjg if (!forceJobs && !compatMake &&
1256 1.244 sjg Var_Exists(".MAKE.JOBS", VAR_GLOBAL)) {
1257 1.243 matthias char *value;
1258 1.243 matthias int n;
1259 1.243 matthias
1260 1.243 matthias value = Var_Subst(NULL, "${.MAKE.JOBS}", VAR_GLOBAL, VARF_WANTRES);
1261 1.243 matthias n = strtol(value, NULL, 0);
1262 1.243 matthias if (n < 1) {
1263 1.243 matthias (void)fprintf(stderr, "%s: illegal value for .MAKE.JOBS -- must be positive integer!\n",
1264 1.243 matthias progname);
1265 1.243 matthias exit(1);
1266 1.243 matthias }
1267 1.243 matthias if (n != maxJobs) {
1268 1.243 matthias Var_Append(MAKEFLAGS, "-j", VAR_GLOBAL);
1269 1.243 matthias Var_Append(MAKEFLAGS, value, VAR_GLOBAL);
1270 1.243 matthias }
1271 1.243 matthias maxJobs = n;
1272 1.243 matthias maxJobTokens = maxJobs;
1273 1.243 matthias forceJobs = TRUE;
1274 1.243 matthias free(value);
1275 1.243 matthias }
1276 1.243 matthias
1277 1.243 matthias /*
1278 1.243 matthias * Be compatible if user did not specify -j and did not explicitly
1279 1.243 matthias * turned compatibility on
1280 1.243 matthias */
1281 1.243 matthias if (!compatMake && !forceJobs) {
1282 1.243 matthias compatMake = TRUE;
1283 1.243 matthias }
1284 1.243 matthias
1285 1.132 dsl if (!compatMake)
1286 1.132 dsl Job_ServerStart(maxJobTokens, jp_0, jp_1);
1287 1.58 sommerfe if (DEBUG(JOB))
1288 1.133 dsl fprintf(debug_file, "job_pipe %d %d, maxjobs %d, tokens %d, compat %d\n",
1289 1.132 dsl jp_0, jp_1, maxJobs, maxJobTokens, compatMake);
1290 1.58 sommerfe
1291 1.255 sjg if (!printVars)
1292 1.255 sjg Main_ExportMAKEFLAGS(TRUE); /* initial export */
1293 1.54 sjg
1294 1.54 sjg
1295 1.1 cgd /*
1296 1.1 cgd * For compatibility, look at the directories in the VPATH variable
1297 1.1 cgd * and add them to the search path, if the variable is defined. The
1298 1.1 cgd * variable's value is in the same format as the PATH envariable, i.e.
1299 1.1 cgd * <directory>:<directory>:<directory>...
1300 1.1 cgd */
1301 1.1 cgd if (Var_Exists("VPATH", VAR_CMD)) {
1302 1.82 reinoud char *vpath, savec;
1303 1.1 cgd /*
1304 1.1 cgd * GCC stores string constants in read-only memory, but
1305 1.1 cgd * Var_Subst will want to write this thing, so store it
1306 1.1 cgd * in an array
1307 1.1 cgd */
1308 1.1 cgd static char VPATH[] = "${VPATH}";
1309 1.1 cgd
1310 1.239 christos vpath = Var_Subst(NULL, VPATH, VAR_CMD, VARF_WANTRES);
1311 1.1 cgd path = vpath;
1312 1.1 cgd do {
1313 1.1 cgd /* skip to end of directory */
1314 1.13 cgd for (cp = path; *cp != ':' && *cp != '\0'; cp++)
1315 1.13 cgd continue;
1316 1.1 cgd /* Save terminator character so know when to stop */
1317 1.1 cgd savec = *cp;
1318 1.1 cgd *cp = '\0';
1319 1.1 cgd /* Add directory to search path */
1320 1.112 christos (void)Dir_AddDir(dirSearchPath, path);
1321 1.1 cgd *cp = savec;
1322 1.1 cgd path = cp + 1;
1323 1.1 cgd } while (savec == ':');
1324 1.114 christos free(vpath);
1325 1.1 cgd }
1326 1.1 cgd
1327 1.1 cgd /*
1328 1.1 cgd * Now that all search paths have been read for suffixes et al, it's
1329 1.1 cgd * time to add the default search path to their lists...
1330 1.1 cgd */
1331 1.1 cgd Suff_DoPaths();
1332 1.50 mycroft
1333 1.50 mycroft /*
1334 1.50 mycroft * Propagate attributes through :: dependency lists.
1335 1.50 mycroft */
1336 1.50 mycroft Targ_Propagate();
1337 1.1 cgd
1338 1.1 cgd /* print the initial graph, if the user requested it */
1339 1.1 cgd if (DEBUG(GRAPH1))
1340 1.1 cgd Targ_PrintGraph(1);
1341 1.1 cgd
1342 1.31 christos /* print the values of any variables requested by the user */
1343 1.31 christos if (printVars) {
1344 1.31 christos LstNode ln;
1345 1.201 sjg Boolean expandVars;
1346 1.31 christos
1347 1.201 sjg if (debugVflag)
1348 1.201 sjg expandVars = FALSE;
1349 1.201 sjg else
1350 1.201 sjg expandVars = getBoolean(".MAKE.EXPAND_VARIABLES", FALSE);
1351 1.157 dsl for (ln = Lst_First(variables); ln != NULL;
1352 1.31 christos ln = Lst_Succ(ln)) {
1353 1.92 sjg char *var = (char *)Lst_Datum(ln);
1354 1.92 sjg char *value;
1355 1.92 sjg
1356 1.92 sjg if (strchr(var, '$')) {
1357 1.234 sjg value = p1 = Var_Subst(NULL, var, VAR_GLOBAL,
1358 1.239 christos VARF_WANTRES);
1359 1.201 sjg } else if (expandVars) {
1360 1.201 sjg char tmp[128];
1361 1.201 sjg
1362 1.203 sjg if (snprintf(tmp, sizeof(tmp), "${%s}", var) >= (int)(sizeof(tmp)))
1363 1.201 sjg Fatal("%s: variable name too big: %s",
1364 1.201 sjg progname, var);
1365 1.234 sjg value = p1 = Var_Subst(NULL, tmp, VAR_GLOBAL,
1366 1.239 christos VARF_WANTRES);
1367 1.92 sjg } else {
1368 1.92 sjg value = Var_Value(var, VAR_GLOBAL, &p1);
1369 1.92 sjg }
1370 1.31 christos printf("%s\n", value ? value : "");
1371 1.238 christos free(p1);
1372 1.31 christos }
1373 1.138 dsl } else {
1374 1.1 cgd /*
1375 1.138 dsl * Have now read the entire graph and need to make a list of
1376 1.138 dsl * targets to create. If none was given on the command line,
1377 1.138 dsl * we consult the parsing module to find the main target(s)
1378 1.138 dsl * to create.
1379 1.1 cgd */
1380 1.138 dsl if (Lst_IsEmpty(create))
1381 1.138 dsl targs = Parse_MainName();
1382 1.138 dsl else
1383 1.138 dsl targs = Targ_FindList(create, TARG_CREATE);
1384 1.138 dsl
1385 1.138 dsl if (!compatMake) {
1386 1.138 dsl /*
1387 1.138 dsl * Initialize job module before traversing the graph
1388 1.138 dsl * now that any .BEGIN and .END targets have been read.
1389 1.138 dsl * This is done only if the -q flag wasn't given
1390 1.138 dsl * (to prevent the .BEGIN from being executed should
1391 1.138 dsl * it exist).
1392 1.138 dsl */
1393 1.138 dsl if (!queryFlag) {
1394 1.138 dsl Job_Init();
1395 1.138 dsl jobsRunning = TRUE;
1396 1.138 dsl }
1397 1.138 dsl
1398 1.138 dsl /* Traverse the graph, checking on all the targets */
1399 1.138 dsl outOfDate = Make_Run(targs);
1400 1.138 dsl } else {
1401 1.138 dsl /*
1402 1.138 dsl * Compat_Init will take care of creating all the
1403 1.138 dsl * targets as well as initializing the module.
1404 1.138 dsl */
1405 1.138 dsl Compat_Run(targs);
1406 1.1 cgd }
1407 1.31 christos }
1408 1.31 christos
1409 1.49 mycroft #ifdef CLEANUP
1410 1.157 dsl Lst_Destroy(targs, NULL);
1411 1.157 dsl Lst_Destroy(variables, NULL);
1412 1.157 dsl Lst_Destroy(makefiles, NULL);
1413 1.116 christos Lst_Destroy(create, (FreeProc *)free);
1414 1.49 mycroft #endif
1415 1.14 jtc
1416 1.1 cgd /* print the graph now it's been processed if the user requested it */
1417 1.1 cgd if (DEBUG(GRAPH2))
1418 1.1 cgd Targ_PrintGraph(2);
1419 1.1 cgd
1420 1.58 sommerfe Trace_Log(MAKEEND, 0);
1421 1.58 sommerfe
1422 1.233 sjg if (enterFlagObj)
1423 1.233 sjg printf("%s: Leaving directory `%s'\n", progname, objdir);
1424 1.220 christos if (enterFlag)
1425 1.220 christos printf("%s: Leaving directory `%s'\n", progname, curdir);
1426 1.220 christos
1427 1.242 christos #ifdef USE_META
1428 1.242 christos meta_finish();
1429 1.242 christos #endif
1430 1.230 joerg Suff_End();
1431 1.14 jtc Targ_End();
1432 1.14 jtc Arch_End();
1433 1.14 jtc Var_End();
1434 1.14 jtc Parse_End();
1435 1.14 jtc Dir_End();
1436 1.40 christos Job_End();
1437 1.58 sommerfe Trace_End();
1438 1.14 jtc
1439 1.137 dsl return outOfDate ? 1 : 0;
1440 1.1 cgd }
1441 1.1 cgd
1442 1.1 cgd /*-
1443 1.1 cgd * ReadMakefile --
1444 1.1 cgd * Open and parse the given makefile.
1445 1.1 cgd *
1446 1.1 cgd * Results:
1447 1.124 sjg * 0 if ok. -1 if couldn't open file.
1448 1.1 cgd *
1449 1.1 cgd * Side Effects:
1450 1.1 cgd * lots
1451 1.1 cgd */
1452 1.124 sjg static int
1453 1.200 joerg ReadMakefile(const void *p, const void *q MAKE_ATTR_UNUSED)
1454 1.1 cgd {
1455 1.165 dsl const char *fname = p; /* makefile to read */
1456 1.140 dsl int fd;
1457 1.48 christos size_t len = MAXPATHLEN;
1458 1.151 joerg char *name, *path = bmake_malloc(len);
1459 1.1 cgd
1460 1.1 cgd if (!strcmp(fname, "-")) {
1461 1.193 dholland Parse_File(NULL /*stdin*/, -1);
1462 1.224 sjg Var_Set("MAKEFILE", "", VAR_INTERNAL, 0);
1463 1.1 cgd } else {
1464 1.1 cgd /* if we've chdir'd, rebuild the path name */
1465 1.74 tv if (strcmp(curdir, objdir) && *fname != '/') {
1466 1.48 christos size_t plen = strlen(curdir) + strlen(fname) + 2;
1467 1.48 christos if (len < plen)
1468 1.151 joerg path = bmake_realloc(path, len = 2 * plen);
1469 1.48 christos
1470 1.48 christos (void)snprintf(path, len, "%s/%s", curdir, fname);
1471 1.140 dsl fd = open(path, O_RDONLY);
1472 1.140 dsl if (fd != -1) {
1473 1.1 cgd fname = path;
1474 1.1 cgd goto found;
1475 1.1 cgd }
1476 1.95 jmc
1477 1.95 jmc /* If curdir failed, try objdir (ala .depend) */
1478 1.95 jmc plen = strlen(objdir) + strlen(fname) + 2;
1479 1.95 jmc if (len < plen)
1480 1.151 joerg path = bmake_realloc(path, len = 2 * plen);
1481 1.95 jmc (void)snprintf(path, len, "%s/%s", objdir, fname);
1482 1.140 dsl fd = open(path, O_RDONLY);
1483 1.140 dsl if (fd != -1) {
1484 1.95 jmc fname = path;
1485 1.95 jmc goto found;
1486 1.95 jmc }
1487 1.140 dsl } else {
1488 1.140 dsl fd = open(fname, O_RDONLY);
1489 1.140 dsl if (fd != -1)
1490 1.140 dsl goto found;
1491 1.140 dsl }
1492 1.1 cgd /* look in -I and system include directories. */
1493 1.1 cgd name = Dir_FindFile(fname, parseIncPath);
1494 1.1 cgd if (!name)
1495 1.73 tv name = Dir_FindFile(fname,
1496 1.73 tv Lst_IsEmpty(sysIncPath) ? defIncPath : sysIncPath);
1497 1.140 dsl if (!name || (fd = open(name, O_RDONLY)) == -1) {
1498 1.238 christos free(name);
1499 1.48 christos free(path);
1500 1.124 sjg return(-1);
1501 1.48 christos }
1502 1.1 cgd fname = name;
1503 1.1 cgd /*
1504 1.1 cgd * set the MAKEFILE variable desired by System V fans -- the
1505 1.1 cgd * placement of the setting here means it gets set to the last
1506 1.1 cgd * makefile specified, as it is set by SysV make.
1507 1.1 cgd */
1508 1.67 sjg found:
1509 1.176 sjg if (!doing_depend)
1510 1.224 sjg Var_Set("MAKEFILE", fname, VAR_INTERNAL, 0);
1511 1.140 dsl Parse_File(fname, fd);
1512 1.1 cgd }
1513 1.48 christos free(path);
1514 1.124 sjg return(0);
1515 1.54 sjg }
1516 1.54 sjg
1517 1.54 sjg
1518 1.29 christos
1519 1.29 christos /*-
1520 1.29 christos * Cmd_Exec --
1521 1.29 christos * Execute the command in cmd, and return the output of that command
1522 1.29 christos * in a string.
1523 1.29 christos *
1524 1.29 christos * Results:
1525 1.29 christos * A string containing the output of the command, or the empty string
1526 1.129 christos * If errnum is not NULL, it contains the reason for the command failure
1527 1.29 christos *
1528 1.29 christos * Side Effects:
1529 1.29 christos * The string must be freed by the caller.
1530 1.29 christos */
1531 1.29 christos char *
1532 1.129 christos Cmd_Exec(const char *cmd, const char **errnum)
1533 1.29 christos {
1534 1.89 christos const char *args[4]; /* Args for invoking the shell */
1535 1.29 christos int fds[2]; /* Pipe streams */
1536 1.149 christos int cpid; /* Child PID */
1537 1.149 christos int pid; /* PID from wait() */
1538 1.29 christos char *res; /* result */
1539 1.29 christos int status; /* command exit status */
1540 1.29 christos Buffer buf; /* buffer to store the result */
1541 1.29 christos char *cp;
1542 1.231 dholland int cc; /* bytes read, or -1 */
1543 1.231 dholland int savederr; /* saved errno */
1544 1.29 christos
1545 1.29 christos
1546 1.129 christos *errnum = NULL;
1547 1.29 christos
1548 1.90 sjg if (!shellName)
1549 1.90 sjg Shell_Init();
1550 1.29 christos /*
1551 1.29 christos * Set up arguments for shell
1552 1.29 christos */
1553 1.90 sjg args[0] = shellName;
1554 1.29 christos args[1] = "-c";
1555 1.29 christos args[2] = cmd;
1556 1.29 christos args[3] = NULL;
1557 1.29 christos
1558 1.29 christos /*
1559 1.29 christos * Open a pipe for fetching its output
1560 1.29 christos */
1561 1.29 christos if (pipe(fds) == -1) {
1562 1.129 christos *errnum = "Couldn't create pipe for \"%s\"";
1563 1.29 christos goto bad;
1564 1.29 christos }
1565 1.29 christos
1566 1.29 christos /*
1567 1.29 christos * Fork
1568 1.29 christos */
1569 1.183 sjg switch (cpid = vFork()) {
1570 1.29 christos case 0:
1571 1.29 christos /*
1572 1.29 christos * Close input side of pipe
1573 1.29 christos */
1574 1.112 christos (void)close(fds[0]);
1575 1.29 christos
1576 1.29 christos /*
1577 1.29 christos * Duplicate the output stream to the shell's output, then
1578 1.29 christos * shut the extra thing down. Note we don't fetch the error
1579 1.29 christos * stream...why not? Why?
1580 1.29 christos */
1581 1.112 christos (void)dup2(fds[1], 1);
1582 1.112 christos (void)close(fds[1]);
1583 1.31 christos
1584 1.143 sjg Var_ExportVars();
1585 1.143 sjg
1586 1.112 christos (void)execv(shellPath, UNCONST(args));
1587 1.29 christos _exit(1);
1588 1.29 christos /*NOTREACHED*/
1589 1.29 christos
1590 1.29 christos case -1:
1591 1.129 christos *errnum = "Couldn't exec \"%s\"";
1592 1.29 christos goto bad;
1593 1.29 christos
1594 1.29 christos default:
1595 1.29 christos /*
1596 1.29 christos * No need for the writing half
1597 1.29 christos */
1598 1.112 christos (void)close(fds[1]);
1599 1.31 christos
1600 1.232 sjg savederr = 0;
1601 1.163 dsl Buf_Init(&buf, 0);
1602 1.29 christos
1603 1.29 christos do {
1604 1.29 christos char result[BUFSIZ];
1605 1.29 christos cc = read(fds[0], result, sizeof(result));
1606 1.31 christos if (cc > 0)
1607 1.163 dsl Buf_AddBytes(&buf, cc, result);
1608 1.29 christos }
1609 1.29 christos while (cc > 0 || (cc == -1 && errno == EINTR));
1610 1.231 dholland if (cc == -1)
1611 1.231 dholland savederr = errno;
1612 1.29 christos
1613 1.29 christos /*
1614 1.29 christos * Close the input side of the pipe.
1615 1.29 christos */
1616 1.112 christos (void)close(fds[0]);
1617 1.29 christos
1618 1.29 christos /*
1619 1.29 christos * Wait for the process to exit.
1620 1.29 christos */
1621 1.189 sjg while(((pid = waitpid(cpid, &status, 0)) != cpid) && (pid >= 0)) {
1622 1.189 sjg JobReapChild(pid, status, FALSE);
1623 1.29 christos continue;
1624 1.189 sjg }
1625 1.163 dsl cc = Buf_Size(&buf);
1626 1.163 dsl res = Buf_Destroy(&buf, FALSE);
1627 1.29 christos
1628 1.231 dholland if (savederr != 0)
1629 1.129 christos *errnum = "Couldn't read shell's output for \"%s\"";
1630 1.29 christos
1631 1.172 dholland if (WIFSIGNALED(status))
1632 1.172 dholland *errnum = "\"%s\" exited on a signal";
1633 1.172 dholland else if (WEXITSTATUS(status) != 0)
1634 1.129 christos *errnum = "\"%s\" returned non-zero status";
1635 1.29 christos
1636 1.29 christos /*
1637 1.29 christos * Null-terminate the result, convert newlines to spaces and
1638 1.29 christos * install it in the variable.
1639 1.29 christos */
1640 1.149 christos res[cc] = '\0';
1641 1.149 christos cp = &res[cc];
1642 1.29 christos
1643 1.149 christos if (cc > 0 && *--cp == '\n') {
1644 1.29 christos /*
1645 1.29 christos * A final newline is just stripped
1646 1.29 christos */
1647 1.29 christos *cp-- = '\0';
1648 1.29 christos }
1649 1.29 christos while (cp >= res) {
1650 1.29 christos if (*cp == '\n') {
1651 1.29 christos *cp = ' ';
1652 1.29 christos }
1653 1.29 christos cp--;
1654 1.29 christos }
1655 1.29 christos break;
1656 1.29 christos }
1657 1.29 christos return res;
1658 1.29 christos bad:
1659 1.151 joerg res = bmake_malloc(1);
1660 1.29 christos *res = '\0';
1661 1.29 christos return res;
1662 1.1 cgd }
1663 1.1 cgd
1664 1.1 cgd /*-
1665 1.1 cgd * Error --
1666 1.1 cgd * Print an error message given its format.
1667 1.1 cgd *
1668 1.1 cgd * Results:
1669 1.1 cgd * None.
1670 1.1 cgd *
1671 1.1 cgd * Side Effects:
1672 1.1 cgd * The message is printed.
1673 1.1 cgd */
1674 1.1 cgd /* VARARGS */
1675 1.1 cgd void
1676 1.89 christos Error(const char *fmt, ...)
1677 1.1 cgd {
1678 1.1 cgd va_list ap;
1679 1.162 dsl FILE *err_file;
1680 1.85 wiz
1681 1.162 dsl err_file = debug_file;
1682 1.162 dsl if (err_file == stdout)
1683 1.162 dsl err_file = stderr;
1684 1.184 sjg (void)fflush(stdout);
1685 1.162 dsl for (;;) {
1686 1.162 dsl va_start(ap, fmt);
1687 1.162 dsl fprintf(err_file, "%s: ", progname);
1688 1.162 dsl (void)vfprintf(err_file, fmt, ap);
1689 1.162 dsl va_end(ap);
1690 1.162 dsl (void)fprintf(err_file, "\n");
1691 1.162 dsl (void)fflush(err_file);
1692 1.162 dsl if (err_file == stderr)
1693 1.162 dsl break;
1694 1.162 dsl err_file = stderr;
1695 1.162 dsl }
1696 1.1 cgd }
1697 1.1 cgd
1698 1.1 cgd /*-
1699 1.1 cgd * Fatal --
1700 1.1 cgd * Produce a Fatal error message. If jobs are running, waits for them
1701 1.1 cgd * to finish.
1702 1.1 cgd *
1703 1.1 cgd * Results:
1704 1.1 cgd * None
1705 1.1 cgd *
1706 1.1 cgd * Side Effects:
1707 1.1 cgd * The program exits
1708 1.1 cgd */
1709 1.1 cgd /* VARARGS */
1710 1.1 cgd void
1711 1.89 christos Fatal(const char *fmt, ...)
1712 1.1 cgd {
1713 1.1 cgd va_list ap;
1714 1.85 wiz
1715 1.13 cgd va_start(ap, fmt);
1716 1.1 cgd if (jobsRunning)
1717 1.1 cgd Job_Wait();
1718 1.1 cgd
1719 1.184 sjg (void)fflush(stdout);
1720 1.1 cgd (void)vfprintf(stderr, fmt, ap);
1721 1.1 cgd va_end(ap);
1722 1.1 cgd (void)fprintf(stderr, "\n");
1723 1.1 cgd (void)fflush(stderr);
1724 1.1 cgd
1725 1.176 sjg PrintOnError(NULL, NULL);
1726 1.67 sjg
1727 1.94 dsl if (DEBUG(GRAPH2) || DEBUG(GRAPH3))
1728 1.1 cgd Targ_PrintGraph(2);
1729 1.58 sommerfe Trace_Log(MAKEERROR, 0);
1730 1.1 cgd exit(2); /* Not 1 so -q can distinguish error */
1731 1.1 cgd }
1732 1.1 cgd
1733 1.1 cgd /*
1734 1.1 cgd * Punt --
1735 1.1 cgd * Major exception once jobs are being created. Kills all jobs, prints
1736 1.1 cgd * a message and exits.
1737 1.1 cgd *
1738 1.1 cgd * Results:
1739 1.31 christos * None
1740 1.1 cgd *
1741 1.1 cgd * Side Effects:
1742 1.1 cgd * All children are killed indiscriminately and the program Lib_Exits
1743 1.1 cgd */
1744 1.1 cgd /* VARARGS */
1745 1.1 cgd void
1746 1.89 christos Punt(const char *fmt, ...)
1747 1.1 cgd {
1748 1.1 cgd va_list ap;
1749 1.85 wiz
1750 1.13 cgd va_start(ap, fmt);
1751 1.184 sjg (void)fflush(stdout);
1752 1.63 christos (void)fprintf(stderr, "%s: ", progname);
1753 1.1 cgd (void)vfprintf(stderr, fmt, ap);
1754 1.1 cgd va_end(ap);
1755 1.1 cgd (void)fprintf(stderr, "\n");
1756 1.1 cgd (void)fflush(stderr);
1757 1.1 cgd
1758 1.176 sjg PrintOnError(NULL, NULL);
1759 1.67 sjg
1760 1.1 cgd DieHorribly();
1761 1.1 cgd }
1762 1.1 cgd
1763 1.1 cgd /*-
1764 1.1 cgd * DieHorribly --
1765 1.1 cgd * Exit without giving a message.
1766 1.1 cgd *
1767 1.1 cgd * Results:
1768 1.1 cgd * None
1769 1.1 cgd *
1770 1.1 cgd * Side Effects:
1771 1.1 cgd * A big one...
1772 1.1 cgd */
1773 1.1 cgd void
1774 1.85 wiz DieHorribly(void)
1775 1.1 cgd {
1776 1.1 cgd if (jobsRunning)
1777 1.1 cgd Job_AbortAll();
1778 1.1 cgd if (DEBUG(GRAPH2))
1779 1.1 cgd Targ_PrintGraph(2);
1780 1.58 sommerfe Trace_Log(MAKEERROR, 0);
1781 1.1 cgd exit(2); /* Not 1, so -q can distinguish error */
1782 1.1 cgd }
1783 1.1 cgd
1784 1.1 cgd /*
1785 1.1 cgd * Finish --
1786 1.1 cgd * Called when aborting due to errors in child shell to signal
1787 1.31 christos * abnormal exit.
1788 1.1 cgd *
1789 1.1 cgd * Results:
1790 1.31 christos * None
1791 1.1 cgd *
1792 1.1 cgd * Side Effects:
1793 1.1 cgd * The program exits
1794 1.1 cgd */
1795 1.1 cgd void
1796 1.85 wiz Finish(int errors)
1797 1.85 wiz /* number of errors encountered in Make_Make */
1798 1.1 cgd {
1799 1.1 cgd Fatal("%d error%s", errors, errors == 1 ? "" : "s");
1800 1.1 cgd }
1801 1.1 cgd
1802 1.21 christos /*
1803 1.208 dholland * eunlink --
1804 1.21 christos * Remove a file carefully, avoiding directories.
1805 1.21 christos */
1806 1.21 christos int
1807 1.85 wiz eunlink(const char *file)
1808 1.21 christos {
1809 1.21 christos struct stat st;
1810 1.21 christos
1811 1.21 christos if (lstat(file, &st) == -1)
1812 1.21 christos return -1;
1813 1.21 christos
1814 1.21 christos if (S_ISDIR(st.st_mode)) {
1815 1.21 christos errno = EISDIR;
1816 1.21 christos return -1;
1817 1.21 christos }
1818 1.21 christos return unlink(file);
1819 1.1 cgd }
1820 1.1 cgd
1821 1.1 cgd /*
1822 1.66 christos * execError --
1823 1.66 christos * Print why exec failed, avoiding stdio.
1824 1.66 christos */
1825 1.66 christos void
1826 1.85 wiz execError(const char *af, const char *av)
1827 1.66 christos {
1828 1.66 christos #ifdef USE_IOVEC
1829 1.66 christos int i = 0;
1830 1.83 pk struct iovec iov[8];
1831 1.66 christos #define IOADD(s) \
1832 1.89 christos (void)(iov[i].iov_base = UNCONST(s), \
1833 1.66 christos iov[i].iov_len = strlen(iov[i].iov_base), \
1834 1.66 christos i++)
1835 1.66 christos #else
1836 1.112 christos #define IOADD(void)write(2, s, strlen(s))
1837 1.66 christos #endif
1838 1.66 christos
1839 1.66 christos IOADD(progname);
1840 1.83 pk IOADD(": ");
1841 1.89 christos IOADD(af);
1842 1.83 pk IOADD("(");
1843 1.89 christos IOADD(av);
1844 1.83 pk IOADD(") failed (");
1845 1.66 christos IOADD(strerror(errno));
1846 1.66 christos IOADD(")\n");
1847 1.66 christos
1848 1.66 christos #ifdef USE_IOVEC
1849 1.205 christos while (writev(2, iov, 8) == -1 && errno == EAGAIN)
1850 1.205 christos continue;
1851 1.66 christos #endif
1852 1.66 christos }
1853 1.66 christos
1854 1.66 christos /*
1855 1.1 cgd * usage --
1856 1.1 cgd * exit with usage message
1857 1.1 cgd */
1858 1.13 cgd static void
1859 1.85 wiz usage(void)
1860 1.1 cgd {
1861 1.220 christos char *p;
1862 1.220 christos if ((p = strchr(progname, '[')) != NULL)
1863 1.220 christos *p = '\0';
1864 1.220 christos
1865 1.1 cgd (void)fprintf(stderr,
1866 1.220 christos "usage: %s [-BeikNnqrstWwX] \n\
1867 1.171 sjg [-C directory] [-D variable] [-d flags] [-f makefile]\n\
1868 1.105 wiz [-I directory] [-J private] [-j max_jobs] [-m directory] [-T file]\n\
1869 1.105 wiz [-V variable] [variable=value] [target ...]\n", progname);
1870 1.1 cgd exit(2);
1871 1.14 jtc }
1872 1.14 jtc
1873 1.14 jtc
1874 1.245 sjg /*
1875 1.245 sjg * realpath(3) can get expensive, cache results...
1876 1.245 sjg */
1877 1.245 sjg char *
1878 1.245 sjg cached_realpath(const char *pathname, char *resolved)
1879 1.245 sjg {
1880 1.245 sjg static GNode *cache;
1881 1.245 sjg char *rp, *cp;
1882 1.245 sjg
1883 1.245 sjg if (!pathname || !pathname[0])
1884 1.245 sjg return NULL;
1885 1.245 sjg
1886 1.245 sjg if (!cache) {
1887 1.245 sjg cache = Targ_NewGN("Realpath");
1888 1.245 sjg #ifndef DEBUG_REALPATH_CACHE
1889 1.245 sjg cache->flags = INTERNAL;
1890 1.245 sjg #endif
1891 1.245 sjg }
1892 1.245 sjg
1893 1.248 christos if ((rp = Var_Value(pathname, cache, &cp)) != NULL) {
1894 1.245 sjg /* a hit */
1895 1.248 christos strncpy(resolved, rp, MAXPATHLEN);
1896 1.248 christos resolved[MAXPATHLEN - 1] = '\0';
1897 1.248 christos } else if ((rp = realpath(pathname, resolved)) != NULL) {
1898 1.248 christos Var_Set(pathname, rp, cache, 0);
1899 1.248 christos } /* else should we negative-cache? */
1900 1.248 christos
1901 1.248 christos free(cp);
1902 1.245 sjg return rp ? resolved : NULL;
1903 1.245 sjg }
1904 1.245 sjg
1905 1.14 jtc int
1906 1.164 dsl PrintAddr(void *a, void *b)
1907 1.14 jtc {
1908 1.14 jtc printf("%lx ", (unsigned long) a);
1909 1.14 jtc return b ? 0 : 0;
1910 1.67 sjg }
1911 1.149 christos
1912 1.67 sjg
1913 1.249 sjg static int
1914 1.249 sjg addErrorCMD(void *cmdp, void *gnp)
1915 1.249 sjg {
1916 1.250 sjg if (cmdp == NULL)
1917 1.250 sjg return 1; /* stop */
1918 1.249 sjg Var_Append(".ERROR_CMD", cmdp, VAR_GLOBAL);
1919 1.249 sjg return 0;
1920 1.249 sjg }
1921 1.67 sjg
1922 1.67 sjg void
1923 1.176 sjg PrintOnError(GNode *gn, const char *s)
1924 1.67 sjg {
1925 1.177 sjg static GNode *en = NULL;
1926 1.67 sjg char tmp[64];
1927 1.128 sjg char *cp;
1928 1.128 sjg
1929 1.67 sjg if (s)
1930 1.176 sjg printf("%s", s);
1931 1.67 sjg
1932 1.67 sjg printf("\n%s: stopped in %s\n", progname, curdir);
1933 1.176 sjg
1934 1.177 sjg if (en)
1935 1.177 sjg return; /* we've been here! */
1936 1.176 sjg if (gn) {
1937 1.176 sjg /*
1938 1.176 sjg * We can print this even if there is no .ERROR target.
1939 1.176 sjg */
1940 1.176 sjg Var_Set(".ERROR_TARGET", gn->name, VAR_GLOBAL, 0);
1941 1.249 sjg Var_Delete(".ERROR_CMD", VAR_GLOBAL);
1942 1.249 sjg Lst_ForEach(gn->commands, addErrorCMD, gn);
1943 1.176 sjg }
1944 1.186 sjg strncpy(tmp, "${MAKE_PRINT_VAR_ON_ERROR:@v@$v='${$v}'\n@}",
1945 1.186 sjg sizeof(tmp) - 1);
1946 1.239 christos cp = Var_Subst(NULL, tmp, VAR_GLOBAL, VARF_WANTRES);
1947 1.186 sjg if (cp) {
1948 1.186 sjg if (*cp)
1949 1.186 sjg printf("%s", cp);
1950 1.186 sjg free(cp);
1951 1.186 sjg }
1952 1.235 sjg fflush(stdout);
1953 1.235 sjg
1954 1.176 sjg /*
1955 1.186 sjg * Finally, see if there is a .ERROR target, and run it if so.
1956 1.176 sjg */
1957 1.176 sjg en = Targ_FindNode(".ERROR", TARG_NOCREATE);
1958 1.176 sjg if (en) {
1959 1.176 sjg en->type |= OP_SPECIAL;
1960 1.176 sjg Compat_Make(en, en);
1961 1.176 sjg }
1962 1.68 sjg }
1963 1.68 sjg
1964 1.68 sjg void
1965 1.85 wiz Main_ExportMAKEFLAGS(Boolean first)
1966 1.68 sjg {
1967 1.68 sjg static int once = 1;
1968 1.68 sjg char tmp[64];
1969 1.68 sjg char *s;
1970 1.68 sjg
1971 1.68 sjg if (once != first)
1972 1.68 sjg return;
1973 1.68 sjg once = 0;
1974 1.68 sjg
1975 1.70 sjg strncpy(tmp, "${.MAKEFLAGS} ${.MAKEOVERRIDES:O:u:@v@$v=${$v:Q}@}",
1976 1.70 sjg sizeof(tmp));
1977 1.239 christos s = Var_Subst(NULL, tmp, VAR_CMD, VARF_WANTRES);
1978 1.68 sjg if (s && *s) {
1979 1.68 sjg #ifdef POSIX
1980 1.68 sjg setenv("MAKEFLAGS", s, 1);
1981 1.68 sjg #else
1982 1.68 sjg setenv("MAKE", s, 1);
1983 1.68 sjg #endif
1984 1.68 sjg }
1985 1.1 cgd }
1986 1.180 sjg
1987 1.191 sjg char *
1988 1.191 sjg getTmpdir(void)
1989 1.180 sjg {
1990 1.180 sjg static char *tmpdir = NULL;
1991 1.180 sjg
1992 1.180 sjg if (!tmpdir) {
1993 1.180 sjg struct stat st;
1994 1.180 sjg
1995 1.180 sjg /*
1996 1.180 sjg * Honor $TMPDIR but only if it is valid.
1997 1.180 sjg * Ensure it ends with /.
1998 1.180 sjg */
1999 1.234 sjg tmpdir = Var_Subst(NULL, "${TMPDIR:tA:U" _PATH_TMP "}/", VAR_GLOBAL,
2000 1.239 christos VARF_WANTRES);
2001 1.180 sjg if (stat(tmpdir, &st) < 0 || !S_ISDIR(st.st_mode)) {
2002 1.180 sjg free(tmpdir);
2003 1.180 sjg tmpdir = bmake_strdup(_PATH_TMP);
2004 1.180 sjg }
2005 1.180 sjg }
2006 1.191 sjg return tmpdir;
2007 1.191 sjg }
2008 1.191 sjg
2009 1.191 sjg /*
2010 1.191 sjg * Create and open a temp file using "pattern".
2011 1.191 sjg * If "fnamep" is provided set it to a copy of the filename created.
2012 1.191 sjg * Otherwise unlink the file once open.
2013 1.191 sjg */
2014 1.191 sjg int
2015 1.191 sjg mkTempFile(const char *pattern, char **fnamep)
2016 1.191 sjg {
2017 1.191 sjg static char *tmpdir = NULL;
2018 1.191 sjg char tfile[MAXPATHLEN];
2019 1.191 sjg int fd;
2020 1.191 sjg
2021 1.191 sjg if (!pattern)
2022 1.191 sjg pattern = TMPPAT;
2023 1.191 sjg if (!tmpdir)
2024 1.191 sjg tmpdir = getTmpdir();
2025 1.180 sjg if (pattern[0] == '/') {
2026 1.181 dholland snprintf(tfile, sizeof(tfile), "%s", pattern);
2027 1.180 sjg } else {
2028 1.180 sjg snprintf(tfile, sizeof(tfile), "%s%s", tmpdir, pattern);
2029 1.180 sjg }
2030 1.180 sjg if ((fd = mkstemp(tfile)) < 0)
2031 1.180 sjg Punt("Could not create temporary file %s: %s", tfile, strerror(errno));
2032 1.180 sjg if (fnamep) {
2033 1.180 sjg *fnamep = bmake_strdup(tfile);
2034 1.180 sjg } else {
2035 1.180 sjg unlink(tfile); /* we just want the descriptor */
2036 1.180 sjg }
2037 1.180 sjg return fd;
2038 1.180 sjg }
2039 1.201 sjg
2040 1.240 sjg /*
2041 1.240 sjg * Convert a string representation of a boolean.
2042 1.240 sjg * Anything that looks like "No", "False", "Off", "0" etc,
2043 1.240 sjg * is FALSE, otherwise TRUE.
2044 1.240 sjg */
2045 1.240 sjg Boolean
2046 1.240 sjg s2Boolean(const char *s, Boolean bf)
2047 1.240 sjg {
2048 1.240 sjg if (s) {
2049 1.240 sjg switch(*s) {
2050 1.240 sjg case '\0': /* not set - the default wins */
2051 1.240 sjg break;
2052 1.240 sjg case '0':
2053 1.240 sjg case 'F':
2054 1.240 sjg case 'f':
2055 1.240 sjg case 'N':
2056 1.240 sjg case 'n':
2057 1.240 sjg bf = FALSE;
2058 1.240 sjg break;
2059 1.240 sjg case 'O':
2060 1.240 sjg case 'o':
2061 1.240 sjg switch (s[1]) {
2062 1.240 sjg case 'F':
2063 1.240 sjg case 'f':
2064 1.240 sjg bf = FALSE;
2065 1.240 sjg break;
2066 1.240 sjg default:
2067 1.240 sjg bf = TRUE;
2068 1.240 sjg break;
2069 1.240 sjg }
2070 1.240 sjg break;
2071 1.240 sjg default:
2072 1.240 sjg bf = TRUE;
2073 1.240 sjg break;
2074 1.240 sjg }
2075 1.240 sjg }
2076 1.240 sjg return (bf);
2077 1.240 sjg }
2078 1.201 sjg
2079 1.201 sjg /*
2080 1.201 sjg * Return a Boolean based on setting of a knob.
2081 1.201 sjg *
2082 1.201 sjg * If the knob is not set, the supplied default is the return value.
2083 1.201 sjg * If set, anything that looks or smells like "No", "False", "Off", "0" etc,
2084 1.201 sjg * is FALSE, otherwise TRUE.
2085 1.201 sjg */
2086 1.201 sjg Boolean
2087 1.201 sjg getBoolean(const char *name, Boolean bf)
2088 1.201 sjg {
2089 1.201 sjg char tmp[64];
2090 1.201 sjg char *cp;
2091 1.201 sjg
2092 1.241 sjg if (snprintf(tmp, sizeof(tmp), "${%s:U:tl}", name) < (int)(sizeof(tmp))) {
2093 1.239 christos cp = Var_Subst(NULL, tmp, VAR_GLOBAL, VARF_WANTRES);
2094 1.201 sjg
2095 1.201 sjg if (cp) {
2096 1.240 sjg bf = s2Boolean(cp, bf);
2097 1.201 sjg free(cp);
2098 1.201 sjg }
2099 1.201 sjg }
2100 1.201 sjg return (bf);
2101 1.201 sjg }
2102