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