main.c revision 1.29 1 1.29 christos /* $NetBSD: main.c,v 1.29 1996/05/28 23:34:41 christos Exp $ */
2 1.19 christos
3 1.1 cgd /*
4 1.1 cgd * Copyright (c) 1988, 1989, 1990 The Regents of the University of California.
5 1.1 cgd * Copyright (c) 1988, 1989 by Adam de Boor
6 1.1 cgd * Copyright (c) 1989 by Berkeley Softworks
7 1.1 cgd * All rights reserved.
8 1.1 cgd *
9 1.1 cgd * This code is derived from software contributed to Berkeley by
10 1.1 cgd * Adam de Boor.
11 1.1 cgd *
12 1.1 cgd * Redistribution and use in source and binary forms, with or without
13 1.1 cgd * modification, are permitted provided that the following conditions
14 1.1 cgd * are met:
15 1.1 cgd * 1. Redistributions of source code must retain the above copyright
16 1.1 cgd * notice, this list of conditions and the following disclaimer.
17 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
18 1.1 cgd * notice, this list of conditions and the following disclaimer in the
19 1.1 cgd * documentation and/or other materials provided with the distribution.
20 1.1 cgd * 3. All advertising materials mentioning features or use of this software
21 1.1 cgd * must display the following acknowledgement:
22 1.1 cgd * This product includes software developed by the University of
23 1.1 cgd * California, Berkeley and its contributors.
24 1.1 cgd * 4. Neither the name of the University nor the names of its contributors
25 1.1 cgd * may be used to endorse or promote products derived from this software
26 1.1 cgd * without specific prior written permission.
27 1.1 cgd *
28 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
29 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
30 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
31 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
32 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
33 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
34 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
35 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
36 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
37 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
38 1.1 cgd * SUCH DAMAGE.
39 1.1 cgd */
40 1.1 cgd
41 1.1 cgd #ifndef lint
42 1.1 cgd char copyright[] =
43 1.1 cgd "@(#) Copyright (c) 1989 The Regents of the University of California.\n\
44 1.1 cgd All rights reserved.\n";
45 1.1 cgd #endif /* not lint */
46 1.1 cgd
47 1.1 cgd #ifndef lint
48 1.19 christos #if 0
49 1.19 christos static char sccsid[] = "@(#)main.c 5.25 (Berkeley) 4/1/91";
50 1.19 christos #else
51 1.29 christos static char rcsid[] = "$NetBSD: main.c,v 1.29 1996/05/28 23:34:41 christos Exp $";
52 1.19 christos #endif
53 1.1 cgd #endif /* not lint */
54 1.1 cgd
55 1.1 cgd /*-
56 1.1 cgd * main.c --
57 1.1 cgd * The main file for this entire program. Exit routines etc
58 1.1 cgd * reside here.
59 1.1 cgd *
60 1.1 cgd * Utility functions defined in this file:
61 1.1 cgd * Main_ParseArgLine Takes a line of arguments, breaks them and
62 1.1 cgd * treats them as if they were given when first
63 1.1 cgd * invoked. Used by the parse module to implement
64 1.1 cgd * the .MFLAGS target.
65 1.1 cgd *
66 1.1 cgd * Error Print a tagged error message. The global
67 1.1 cgd * MAKE variable must have been defined. This
68 1.1 cgd * takes a format string and two optional
69 1.1 cgd * arguments for it.
70 1.1 cgd *
71 1.1 cgd * Fatal Print an error message and exit. Also takes
72 1.1 cgd * a format string and two arguments.
73 1.1 cgd *
74 1.1 cgd * Punt Aborts all jobs and exits with a message. Also
75 1.1 cgd * takes a format string and two arguments.
76 1.1 cgd *
77 1.1 cgd * Finish Finish things up by printing the number of
78 1.1 cgd * errors which occured, as passed to it, and
79 1.1 cgd * exiting.
80 1.1 cgd */
81 1.1 cgd
82 1.13 cgd #include <sys/types.h>
83 1.13 cgd #include <sys/time.h>
84 1.1 cgd #include <sys/param.h>
85 1.13 cgd #include <sys/resource.h>
86 1.21 christos #include <sys/signal.h>
87 1.1 cgd #include <sys/stat.h>
88 1.17 gwr #include <sys/utsname.h>
89 1.29 christos #include <sys/wait.h>
90 1.1 cgd #include <errno.h>
91 1.1 cgd #include <fcntl.h>
92 1.1 cgd #include <stdio.h>
93 1.13 cgd #if __STDC__
94 1.13 cgd #include <stdarg.h>
95 1.13 cgd #else
96 1.1 cgd #include <varargs.h>
97 1.13 cgd #endif
98 1.1 cgd #include "make.h"
99 1.13 cgd #include "hash.h"
100 1.13 cgd #include "dir.h"
101 1.13 cgd #include "job.h"
102 1.1 cgd #include "pathnames.h"
103 1.1 cgd
104 1.1 cgd #ifndef DEFMAXLOCAL
105 1.1 cgd #define DEFMAXLOCAL DEFMAXJOBS
106 1.24 christos #endif /* DEFMAXLOCAL */
107 1.1 cgd
108 1.1 cgd #define MAKEFLAGS ".MAKEFLAGS"
109 1.1 cgd
110 1.1 cgd Lst create; /* Targets to be made */
111 1.1 cgd time_t now; /* Time at start of make */
112 1.1 cgd GNode *DEFAULT; /* .DEFAULT node */
113 1.1 cgd Boolean allPrecious; /* .PRECIOUS given on line by itself */
114 1.1 cgd
115 1.1 cgd static Boolean noBuiltins; /* -r flag */
116 1.1 cgd static Lst makefiles; /* ordered list of makefiles to read */
117 1.21 christos int maxJobs; /* -j argument */
118 1.1 cgd static int maxLocal; /* -L argument */
119 1.13 cgd Boolean compatMake; /* -B argument */
120 1.1 cgd Boolean debug; /* -d flag */
121 1.1 cgd Boolean noExecute; /* -n flag */
122 1.1 cgd Boolean keepgoing; /* -k flag */
123 1.1 cgd Boolean queryFlag; /* -q flag */
124 1.1 cgd Boolean touchFlag; /* -t flag */
125 1.1 cgd Boolean usePipes; /* !-P flag */
126 1.1 cgd Boolean ignoreErrors; /* -i flag */
127 1.1 cgd Boolean beSilent; /* -s flag */
128 1.1 cgd Boolean oldVars; /* variable substitution style */
129 1.1 cgd Boolean checkEnvFirst; /* -e flag */
130 1.1 cgd static Boolean jobsRunning; /* TRUE if the jobs might be running */
131 1.1 cgd
132 1.1 cgd static Boolean ReadMakefile();
133 1.13 cgd static void usage();
134 1.1 cgd
135 1.13 cgd static char *curdir; /* startup directory */
136 1.13 cgd static char *objdir; /* where we chdir'ed to */
137 1.1 cgd
138 1.1 cgd /*-
139 1.1 cgd * MainParseArgs --
140 1.1 cgd * Parse a given argument vector. Called from main() and from
141 1.1 cgd * Main_ParseArgLine() when the .MAKEFLAGS target is used.
142 1.1 cgd *
143 1.1 cgd * XXX: Deal with command line overriding .MAKEFLAGS in makefile
144 1.1 cgd *
145 1.1 cgd * Results:
146 1.1 cgd * None
147 1.1 cgd *
148 1.1 cgd * Side Effects:
149 1.1 cgd * Various global and local flags will be set depending on the flags
150 1.1 cgd * given
151 1.1 cgd */
152 1.1 cgd static void
153 1.1 cgd MainParseArgs(argc, argv)
154 1.1 cgd int argc;
155 1.1 cgd char **argv;
156 1.1 cgd {
157 1.1 cgd extern int optind;
158 1.1 cgd extern char *optarg;
159 1.18 christos int c;
160 1.22 christos int forceJobs = 0;
161 1.1 cgd
162 1.1 cgd optind = 1; /* since we're called more than once */
163 1.21 christos #ifdef REMOTE
164 1.25 christos # define OPTFLAGS "BD:I:L:PSd:ef:ij:km:nqrst"
165 1.13 cgd #else
166 1.25 christos # define OPTFLAGS "BD:I:PSd:ef:ij:km:nqrst"
167 1.13 cgd #endif
168 1.13 cgd rearg: while((c = getopt(argc, argv, OPTFLAGS)) != EOF) {
169 1.1 cgd switch(c) {
170 1.1 cgd case 'D':
171 1.1 cgd Var_Set(optarg, "1", VAR_GLOBAL);
172 1.1 cgd Var_Append(MAKEFLAGS, "-D", VAR_GLOBAL);
173 1.1 cgd Var_Append(MAKEFLAGS, optarg, VAR_GLOBAL);
174 1.1 cgd break;
175 1.1 cgd case 'I':
176 1.1 cgd Parse_AddIncludeDir(optarg);
177 1.1 cgd Var_Append(MAKEFLAGS, "-I", VAR_GLOBAL);
178 1.1 cgd Var_Append(MAKEFLAGS, optarg, VAR_GLOBAL);
179 1.1 cgd break;
180 1.13 cgd case 'B':
181 1.13 cgd compatMake = TRUE;
182 1.13 cgd break;
183 1.21 christos #ifdef REMOTE
184 1.1 cgd case 'L':
185 1.1 cgd maxLocal = atoi(optarg);
186 1.1 cgd Var_Append(MAKEFLAGS, "-L", VAR_GLOBAL);
187 1.1 cgd Var_Append(MAKEFLAGS, optarg, VAR_GLOBAL);
188 1.1 cgd break;
189 1.21 christos #endif
190 1.1 cgd case 'P':
191 1.1 cgd usePipes = FALSE;
192 1.1 cgd Var_Append(MAKEFLAGS, "-P", VAR_GLOBAL);
193 1.1 cgd break;
194 1.1 cgd case 'S':
195 1.1 cgd keepgoing = FALSE;
196 1.1 cgd Var_Append(MAKEFLAGS, "-S", VAR_GLOBAL);
197 1.1 cgd break;
198 1.1 cgd case 'd': {
199 1.1 cgd char *modules = optarg;
200 1.1 cgd
201 1.1 cgd for (; *modules; ++modules)
202 1.1 cgd switch (*modules) {
203 1.1 cgd case 'A':
204 1.1 cgd debug = ~0;
205 1.1 cgd break;
206 1.1 cgd case 'a':
207 1.1 cgd debug |= DEBUG_ARCH;
208 1.1 cgd break;
209 1.1 cgd case 'c':
210 1.1 cgd debug |= DEBUG_COND;
211 1.1 cgd break;
212 1.1 cgd case 'd':
213 1.1 cgd debug |= DEBUG_DIR;
214 1.1 cgd break;
215 1.13 cgd case 'f':
216 1.13 cgd debug |= DEBUG_FOR;
217 1.13 cgd break;
218 1.1 cgd case 'g':
219 1.1 cgd if (modules[1] == '1') {
220 1.1 cgd debug |= DEBUG_GRAPH1;
221 1.1 cgd ++modules;
222 1.1 cgd }
223 1.1 cgd else if (modules[1] == '2') {
224 1.1 cgd debug |= DEBUG_GRAPH2;
225 1.1 cgd ++modules;
226 1.1 cgd }
227 1.1 cgd break;
228 1.1 cgd case 'j':
229 1.1 cgd debug |= DEBUG_JOB;
230 1.1 cgd break;
231 1.1 cgd case 'm':
232 1.1 cgd debug |= DEBUG_MAKE;
233 1.1 cgd break;
234 1.1 cgd case 's':
235 1.1 cgd debug |= DEBUG_SUFF;
236 1.1 cgd break;
237 1.1 cgd case 't':
238 1.1 cgd debug |= DEBUG_TARG;
239 1.1 cgd break;
240 1.1 cgd case 'v':
241 1.1 cgd debug |= DEBUG_VAR;
242 1.1 cgd break;
243 1.1 cgd default:
244 1.1 cgd (void)fprintf(stderr,
245 1.1 cgd "make: illegal argument to d option -- %c\n",
246 1.1 cgd *modules);
247 1.1 cgd usage();
248 1.1 cgd }
249 1.1 cgd Var_Append(MAKEFLAGS, "-d", VAR_GLOBAL);
250 1.1 cgd Var_Append(MAKEFLAGS, optarg, VAR_GLOBAL);
251 1.1 cgd break;
252 1.1 cgd }
253 1.1 cgd case 'e':
254 1.1 cgd checkEnvFirst = TRUE;
255 1.1 cgd Var_Append(MAKEFLAGS, "-e", VAR_GLOBAL);
256 1.1 cgd break;
257 1.1 cgd case 'f':
258 1.1 cgd (void)Lst_AtEnd(makefiles, (ClientData)optarg);
259 1.1 cgd break;
260 1.1 cgd case 'i':
261 1.1 cgd ignoreErrors = TRUE;
262 1.1 cgd Var_Append(MAKEFLAGS, "-i", VAR_GLOBAL);
263 1.1 cgd break;
264 1.1 cgd case 'j':
265 1.22 christos forceJobs = TRUE;
266 1.1 cgd maxJobs = atoi(optarg);
267 1.21 christos #ifndef REMOTE
268 1.21 christos maxLocal = maxJobs;
269 1.21 christos #endif
270 1.9 jtc Var_Append(MAKEFLAGS, "-j", VAR_GLOBAL);
271 1.1 cgd Var_Append(MAKEFLAGS, optarg, VAR_GLOBAL);
272 1.1 cgd break;
273 1.1 cgd case 'k':
274 1.1 cgd keepgoing = TRUE;
275 1.1 cgd Var_Append(MAKEFLAGS, "-k", VAR_GLOBAL);
276 1.1 cgd break;
277 1.25 christos case 'm':
278 1.25 christos Dir_AddDir(sysIncPath, optarg);
279 1.25 christos Var_Append(MAKEFLAGS, "-m", VAR_GLOBAL);
280 1.25 christos Var_Append(MAKEFLAGS, optarg, VAR_GLOBAL);
281 1.25 christos break;
282 1.1 cgd case 'n':
283 1.1 cgd noExecute = TRUE;
284 1.1 cgd Var_Append(MAKEFLAGS, "-n", VAR_GLOBAL);
285 1.1 cgd break;
286 1.1 cgd case 'q':
287 1.1 cgd queryFlag = TRUE;
288 1.1 cgd /* Kind of nonsensical, wot? */
289 1.1 cgd Var_Append(MAKEFLAGS, "-q", VAR_GLOBAL);
290 1.1 cgd break;
291 1.1 cgd case 'r':
292 1.1 cgd noBuiltins = TRUE;
293 1.1 cgd Var_Append(MAKEFLAGS, "-r", VAR_GLOBAL);
294 1.1 cgd break;
295 1.1 cgd case 's':
296 1.1 cgd beSilent = TRUE;
297 1.1 cgd Var_Append(MAKEFLAGS, "-s", VAR_GLOBAL);
298 1.1 cgd break;
299 1.1 cgd case 't':
300 1.1 cgd touchFlag = TRUE;
301 1.1 cgd Var_Append(MAKEFLAGS, "-t", VAR_GLOBAL);
302 1.1 cgd break;
303 1.1 cgd default:
304 1.1 cgd case '?':
305 1.1 cgd usage();
306 1.1 cgd }
307 1.1 cgd }
308 1.1 cgd
309 1.22 christos /*
310 1.22 christos * Be compatible if user did not specify -j and did not explicitly
311 1.22 christos * turned compatibility on
312 1.22 christos */
313 1.22 christos if (!compatMake && !forceJobs)
314 1.22 christos compatMake = TRUE;
315 1.22 christos
316 1.1 cgd oldVars = TRUE;
317 1.1 cgd
318 1.1 cgd /*
319 1.1 cgd * See if the rest of the arguments are variable assignments and
320 1.1 cgd * perform them if so. Else take them to be targets and stuff them
321 1.1 cgd * on the end of the "create" list.
322 1.1 cgd */
323 1.1 cgd for (argv += optind, argc -= optind; *argv; ++argv, --argc)
324 1.1 cgd if (Parse_IsVar(*argv))
325 1.1 cgd Parse_DoVar(*argv, VAR_CMD);
326 1.1 cgd else {
327 1.1 cgd if (!**argv)
328 1.1 cgd Punt("illegal (null) argument.");
329 1.1 cgd if (**argv == '-') {
330 1.13 cgd if ((*argv)[1])
331 1.13 cgd optind = 0; /* -flag... */
332 1.13 cgd else
333 1.13 cgd optind = 1; /* - */
334 1.1 cgd goto rearg;
335 1.1 cgd }
336 1.14 jtc (void)Lst_AtEnd(create, (ClientData)strdup(*argv));
337 1.1 cgd }
338 1.1 cgd }
339 1.1 cgd
340 1.1 cgd /*-
341 1.1 cgd * Main_ParseArgLine --
342 1.1 cgd * Used by the parse module when a .MFLAGS or .MAKEFLAGS target
343 1.1 cgd * is encountered and by main() when reading the .MAKEFLAGS envariable.
344 1.1 cgd * Takes a line of arguments and breaks it into its
345 1.1 cgd * component words and passes those words and the number of them to the
346 1.1 cgd * MainParseArgs function.
347 1.1 cgd * The line should have all its leading whitespace removed.
348 1.1 cgd *
349 1.1 cgd * Results:
350 1.1 cgd * None
351 1.1 cgd *
352 1.1 cgd * Side Effects:
353 1.1 cgd * Only those that come from the various arguments.
354 1.1 cgd */
355 1.1 cgd void
356 1.1 cgd Main_ParseArgLine(line)
357 1.1 cgd char *line; /* Line to fracture */
358 1.1 cgd {
359 1.1 cgd char **argv; /* Manufactured argument vector */
360 1.1 cgd int argc; /* Number of arguments in argv */
361 1.1 cgd
362 1.1 cgd if (line == NULL)
363 1.1 cgd return;
364 1.13 cgd for (; *line == ' '; ++line)
365 1.13 cgd continue;
366 1.1 cgd if (!*line)
367 1.1 cgd return;
368 1.1 cgd
369 1.15 jtc argv = brk_string(line, &argc, TRUE);
370 1.1 cgd MainParseArgs(argc, argv);
371 1.1 cgd }
372 1.1 cgd
373 1.1 cgd /*-
374 1.1 cgd * main --
375 1.1 cgd * The main function, for obvious reasons. Initializes variables
376 1.1 cgd * and a few modules, then parses the arguments give it in the
377 1.1 cgd * environment and on the command line. Reads the system makefile
378 1.1 cgd * followed by either Makefile, makefile or the file given by the
379 1.1 cgd * -f argument. Sets the .MAKEFLAGS PMake variable based on all the
380 1.1 cgd * flags it has received by then uses either the Make or the Compat
381 1.1 cgd * module to create the initial list of targets.
382 1.1 cgd *
383 1.1 cgd * Results:
384 1.1 cgd * If -q was given, exits -1 if anything was out-of-date. Else it exits
385 1.1 cgd * 0.
386 1.1 cgd *
387 1.1 cgd * Side Effects:
388 1.1 cgd * The program exits when done. Targets are created. etc. etc. etc.
389 1.1 cgd */
390 1.13 cgd int
391 1.1 cgd main(argc, argv)
392 1.1 cgd int argc;
393 1.1 cgd char **argv;
394 1.1 cgd {
395 1.1 cgd Lst targs; /* target nodes to create -- passed to Make_Init */
396 1.13 cgd Boolean outOfDate = TRUE; /* FALSE if all targets up to date */
397 1.13 cgd struct stat sb, sa;
398 1.14 jtc char *p, *p1, *path, *pwd, *getenv(), *getwd();
399 1.13 cgd char mdpath[MAXPATHLEN + 1];
400 1.13 cgd char obpath[MAXPATHLEN + 1];
401 1.13 cgd char cdpath[MAXPATHLEN + 1];
402 1.17 gwr struct utsname utsname;
403 1.18 christos char *machine = getenv("MACHINE");
404 1.25 christos Lst sysMkPath; /* Path of sys.mk */
405 1.25 christos char *cp = NULL, *start;
406 1.25 christos /* avoid faults on read-only strings */
407 1.25 christos static char syspath[] = _PATH_DEFSYSPATH;
408 1.13 cgd
409 1.21 christos #ifdef RLIMIT_NOFILE
410 1.21 christos /*
411 1.21 christos * get rid of resource limit on file descriptors
412 1.21 christos */
413 1.21 christos {
414 1.21 christos struct rlimit rl;
415 1.21 christos if (getrlimit(RLIMIT_NOFILE, &rl) != -1 &&
416 1.21 christos rl.rlim_cur != rl.rlim_max) {
417 1.21 christos rl.rlim_cur = rl.rlim_max;
418 1.21 christos (void) setrlimit(RLIMIT_NOFILE, &rl);
419 1.21 christos }
420 1.21 christos }
421 1.21 christos #endif
422 1.13 cgd /*
423 1.13 cgd * Find where we are and take care of PWD for the automounter...
424 1.13 cgd * All this code is so that we know where we are when we start up
425 1.13 cgd * on a different machine with pmake.
426 1.13 cgd */
427 1.13 cgd curdir = cdpath;
428 1.16 mycroft if (getcwd(curdir, MAXPATHLEN) == NULL) {
429 1.16 mycroft (void)fprintf(stderr, "make: %s.\n", strerror(errno));
430 1.13 cgd exit(2);
431 1.13 cgd }
432 1.13 cgd
433 1.13 cgd if (stat(curdir, &sa) == -1) {
434 1.13 cgd (void)fprintf(stderr, "make: %s: %s.\n",
435 1.13 cgd curdir, strerror(errno));
436 1.13 cgd exit(2);
437 1.13 cgd }
438 1.13 cgd
439 1.13 cgd if ((pwd = getenv("PWD")) != NULL) {
440 1.13 cgd if (stat(pwd, &sb) == 0 && sa.st_ino == sb.st_ino &&
441 1.13 cgd sa.st_dev == sb.st_dev)
442 1.13 cgd (void) strcpy(curdir, pwd);
443 1.13 cgd }
444 1.13 cgd
445 1.17 gwr /*
446 1.17 gwr * Get the name of this type of MACHINE from utsname
447 1.17 gwr * so we can share an executable for similar machines.
448 1.17 gwr * (i.e. m68k: amiga hp300, mac68k, sun3, ...)
449 1.17 gwr *
450 1.17 gwr * Note that while MACHINE is decided at run-time,
451 1.17 gwr * MACHINE_ARCH is always known at compile time.
452 1.17 gwr */
453 1.18 christos if (!machine) {
454 1.26 christos #ifndef MACHINE
455 1.23 christos if (uname(&utsname) == -1) {
456 1.18 christos perror("make: uname");
457 1.18 christos exit(2);
458 1.18 christos }
459 1.18 christos machine = utsname.machine;
460 1.26 christos #else
461 1.26 christos machine = MACHINE;
462 1.26 christos #endif
463 1.17 gwr }
464 1.1 cgd
465 1.1 cgd /*
466 1.1 cgd * if the MAKEOBJDIR (or by default, the _PATH_OBJDIR) directory
467 1.1 cgd * exists, change into it and build there. Once things are
468 1.1 cgd * initted, have to add the original directory to the search path,
469 1.1 cgd * and modify the paths for the Makefiles apropriately. The
470 1.1 cgd * current directory is also placed as a variable for make scripts.
471 1.1 cgd */
472 1.7 cgd if (!(path = getenv("MAKEOBJDIR"))) {
473 1.1 cgd path = _PATH_OBJDIR;
474 1.18 christos (void) sprintf(mdpath, "%s.%s", path, machine);
475 1.7 cgd }
476 1.13 cgd else
477 1.13 cgd (void) strncpy(mdpath, path, MAXPATHLEN + 1);
478 1.13 cgd
479 1.13 cgd if (stat(mdpath, &sb) == 0 && S_ISDIR(sb.st_mode)) {
480 1.7 cgd
481 1.13 cgd if (chdir(mdpath)) {
482 1.13 cgd (void)fprintf(stderr, "make warning: %s: %s.\n",
483 1.13 cgd mdpath, strerror(errno));
484 1.13 cgd objdir = curdir;
485 1.13 cgd }
486 1.13 cgd else {
487 1.13 cgd if (mdpath[0] != '/') {
488 1.13 cgd (void) sprintf(obpath, "%s/%s", curdir, mdpath);
489 1.13 cgd objdir = obpath;
490 1.13 cgd }
491 1.13 cgd else
492 1.13 cgd objdir = mdpath;
493 1.13 cgd }
494 1.4 cgd }
495 1.13 cgd else {
496 1.13 cgd if (stat(path, &sb) == 0 && S_ISDIR(sb.st_mode)) {
497 1.13 cgd
498 1.13 cgd if (chdir(path)) {
499 1.7 cgd (void)fprintf(stderr, "make warning: %s: %s.\n",
500 1.13 cgd path, strerror(errno));
501 1.13 cgd objdir = curdir;
502 1.13 cgd }
503 1.13 cgd else {
504 1.13 cgd if (path[0] != '/') {
505 1.13 cgd (void) sprintf(obpath, "%s/%s", curdir,
506 1.13 cgd path);
507 1.13 cgd objdir = obpath;
508 1.13 cgd }
509 1.13 cgd else
510 1.13 cgd objdir = obpath;
511 1.13 cgd }
512 1.7 cgd }
513 1.13 cgd else
514 1.13 cgd objdir = curdir;
515 1.1 cgd }
516 1.1 cgd
517 1.13 cgd setenv("PWD", objdir, 1);
518 1.13 cgd
519 1.1 cgd create = Lst_Init(FALSE);
520 1.1 cgd makefiles = Lst_Init(FALSE);
521 1.1 cgd beSilent = FALSE; /* Print commands as executed */
522 1.1 cgd ignoreErrors = FALSE; /* Pay attention to non-zero returns */
523 1.1 cgd noExecute = FALSE; /* Execute all commands */
524 1.1 cgd keepgoing = FALSE; /* Stop on error */
525 1.1 cgd allPrecious = FALSE; /* Remove targets when interrupted */
526 1.1 cgd queryFlag = FALSE; /* This is not just a check-run */
527 1.1 cgd noBuiltins = FALSE; /* Read the built-in rules */
528 1.1 cgd touchFlag = FALSE; /* Actually update targets */
529 1.1 cgd usePipes = TRUE; /* Catch child output in pipes */
530 1.1 cgd debug = 0; /* No debug verbosity, please. */
531 1.1 cgd jobsRunning = FALSE;
532 1.1 cgd
533 1.21 christos maxLocal = DEFMAXLOCAL; /* Set default local max concurrency */
534 1.21 christos #ifdef REMOTE
535 1.1 cgd maxJobs = DEFMAXJOBS; /* Set default max concurrency */
536 1.13 cgd #else
537 1.21 christos maxJobs = maxLocal;
538 1.13 cgd #endif
539 1.21 christos compatMake = FALSE; /* No compat mode */
540 1.1 cgd
541 1.13 cgd
542 1.1 cgd /*
543 1.1 cgd * Initialize the parsing, directory and variable modules to prepare
544 1.1 cgd * for the reading of inclusion paths and variable settings on the
545 1.1 cgd * command line
546 1.1 cgd */
547 1.1 cgd Dir_Init(); /* Initialize directory structures so -I flags
548 1.1 cgd * can be processed correctly */
549 1.1 cgd Parse_Init(); /* Need to initialize the paths of #include
550 1.1 cgd * directories */
551 1.1 cgd Var_Init(); /* As well as the lists of variables for
552 1.1 cgd * parsing arguments */
553 1.14 jtc str_init();
554 1.13 cgd if (objdir != curdir)
555 1.1 cgd Dir_AddDir(dirSearchPath, curdir);
556 1.4 cgd Var_Set(".CURDIR", curdir, VAR_GLOBAL);
557 1.13 cgd Var_Set(".OBJDIR", objdir, VAR_GLOBAL);
558 1.1 cgd
559 1.1 cgd /*
560 1.1 cgd * Initialize various variables.
561 1.1 cgd * MAKE also gets this name, for compatibility
562 1.1 cgd * .MAKEFLAGS gets set to the empty string just in case.
563 1.1 cgd * MFLAGS also gets initialized empty, for compatibility.
564 1.1 cgd */
565 1.1 cgd Var_Set("MAKE", argv[0], VAR_GLOBAL);
566 1.1 cgd Var_Set(MAKEFLAGS, "", VAR_GLOBAL);
567 1.1 cgd Var_Set("MFLAGS", "", VAR_GLOBAL);
568 1.18 christos Var_Set("MACHINE", machine, VAR_GLOBAL);
569 1.13 cgd #ifdef MACHINE_ARCH
570 1.8 cgd Var_Set("MACHINE_ARCH", MACHINE_ARCH, VAR_GLOBAL);
571 1.13 cgd #endif
572 1.1 cgd
573 1.1 cgd /*
574 1.1 cgd * First snag any flags out of the MAKE environment variable.
575 1.1 cgd * (Note this is *not* MAKEFLAGS since /bin/make uses that and it's
576 1.1 cgd * in a different format).
577 1.1 cgd */
578 1.1 cgd #ifdef POSIX
579 1.1 cgd Main_ParseArgLine(getenv("MAKEFLAGS"));
580 1.1 cgd #else
581 1.1 cgd Main_ParseArgLine(getenv("MAKE"));
582 1.1 cgd #endif
583 1.1 cgd
584 1.1 cgd MainParseArgs(argc, argv);
585 1.1 cgd
586 1.1 cgd /*
587 1.1 cgd * Initialize archive, target and suffix modules in preparation for
588 1.1 cgd * parsing the makefile(s)
589 1.1 cgd */
590 1.1 cgd Arch_Init();
591 1.1 cgd Targ_Init();
592 1.1 cgd Suff_Init();
593 1.1 cgd
594 1.1 cgd DEFAULT = NILGNODE;
595 1.1 cgd (void)time(&now);
596 1.1 cgd
597 1.1 cgd /*
598 1.1 cgd * Set up the .TARGETS variable to contain the list of targets to be
599 1.1 cgd * created. If none specified, make the variable empty -- the parser
600 1.1 cgd * will fill the thing in with the default or .MAIN target.
601 1.1 cgd */
602 1.1 cgd if (!Lst_IsEmpty(create)) {
603 1.1 cgd LstNode ln;
604 1.1 cgd
605 1.1 cgd for (ln = Lst_First(create); ln != NILLNODE;
606 1.1 cgd ln = Lst_Succ(ln)) {
607 1.1 cgd char *name = (char *)Lst_Datum(ln);
608 1.1 cgd
609 1.1 cgd Var_Append(".TARGETS", name, VAR_GLOBAL);
610 1.1 cgd }
611 1.1 cgd } else
612 1.1 cgd Var_Set(".TARGETS", "", VAR_GLOBAL);
613 1.1 cgd
614 1.25 christos
615 1.1 cgd /*
616 1.25 christos * If no user-supplied system path was given (through the -m option)
617 1.25 christos * add the directories from the DEFSYSPATH (more than one may be given
618 1.25 christos * as dir1:...:dirn) to the system include path.
619 1.1 cgd */
620 1.25 christos if (Lst_IsEmpty(sysIncPath)) {
621 1.25 christos for (start = syspath; *start != '\0'; start = cp) {
622 1.25 christos for (cp = start; *cp != '\0' && *cp != ':'; cp++)
623 1.25 christos continue;
624 1.25 christos if (*cp == '\0') {
625 1.25 christos Dir_AddDir(sysIncPath, start);
626 1.25 christos } else {
627 1.25 christos *cp++ = '\0';
628 1.25 christos Dir_AddDir(sysIncPath, start);
629 1.25 christos }
630 1.25 christos }
631 1.25 christos }
632 1.25 christos
633 1.25 christos /*
634 1.25 christos * Read in the built-in rules first, followed by the specified
635 1.25 christos * makefile, if it was (makefile != (char *) NULL), or the default
636 1.25 christos * Makefile and makefile, in that order, if it wasn't.
637 1.25 christos */
638 1.25 christos if (!noBuiltins) {
639 1.25 christos LstNode ln;
640 1.25 christos
641 1.25 christos sysMkPath = Lst_Init (FALSE);
642 1.25 christos Dir_Expand (_PATH_DEFSYSMK, sysIncPath, sysMkPath);
643 1.25 christos if (Lst_IsEmpty(sysMkPath))
644 1.25 christos Fatal("make: no system rules (%s).", _PATH_DEFSYSMK);
645 1.25 christos ln = Lst_Find(sysMkPath, (ClientData)NULL, ReadMakefile);
646 1.25 christos if (ln != NILLNODE)
647 1.25 christos Fatal("make: cannot open %s.", (char *)Lst_Datum(ln));
648 1.25 christos }
649 1.1 cgd
650 1.1 cgd if (!Lst_IsEmpty(makefiles)) {
651 1.1 cgd LstNode ln;
652 1.1 cgd
653 1.1 cgd ln = Lst_Find(makefiles, (ClientData)NULL, ReadMakefile);
654 1.1 cgd if (ln != NILLNODE)
655 1.1 cgd Fatal("make: cannot open %s.", (char *)Lst_Datum(ln));
656 1.1 cgd } else if (!ReadMakefile("makefile"))
657 1.1 cgd (void)ReadMakefile("Makefile");
658 1.1 cgd
659 1.1 cgd (void)ReadMakefile(".depend");
660 1.1 cgd
661 1.14 jtc Var_Append("MFLAGS", Var_Value(MAKEFLAGS, VAR_GLOBAL, &p1), VAR_GLOBAL);
662 1.14 jtc if (p1)
663 1.14 jtc free(p1);
664 1.1 cgd
665 1.1 cgd /* Install all the flags into the MAKE envariable. */
666 1.14 jtc if (((p = Var_Value(MAKEFLAGS, VAR_GLOBAL, &p1)) != NULL) && *p)
667 1.1 cgd #ifdef POSIX
668 1.1 cgd setenv("MAKEFLAGS", p, 1);
669 1.1 cgd #else
670 1.1 cgd setenv("MAKE", p, 1);
671 1.1 cgd #endif
672 1.14 jtc if (p1)
673 1.14 jtc free(p1);
674 1.1 cgd
675 1.1 cgd /*
676 1.1 cgd * For compatibility, look at the directories in the VPATH variable
677 1.1 cgd * and add them to the search path, if the variable is defined. The
678 1.1 cgd * variable's value is in the same format as the PATH envariable, i.e.
679 1.1 cgd * <directory>:<directory>:<directory>...
680 1.1 cgd */
681 1.1 cgd if (Var_Exists("VPATH", VAR_CMD)) {
682 1.1 cgd char *vpath, *path, *cp, savec;
683 1.1 cgd /*
684 1.1 cgd * GCC stores string constants in read-only memory, but
685 1.1 cgd * Var_Subst will want to write this thing, so store it
686 1.1 cgd * in an array
687 1.1 cgd */
688 1.1 cgd static char VPATH[] = "${VPATH}";
689 1.1 cgd
690 1.13 cgd vpath = Var_Subst(NULL, VPATH, VAR_CMD, FALSE);
691 1.1 cgd path = vpath;
692 1.1 cgd do {
693 1.1 cgd /* skip to end of directory */
694 1.13 cgd for (cp = path; *cp != ':' && *cp != '\0'; cp++)
695 1.13 cgd continue;
696 1.1 cgd /* Save terminator character so know when to stop */
697 1.1 cgd savec = *cp;
698 1.1 cgd *cp = '\0';
699 1.1 cgd /* Add directory to search path */
700 1.1 cgd Dir_AddDir(dirSearchPath, path);
701 1.1 cgd *cp = savec;
702 1.1 cgd path = cp + 1;
703 1.1 cgd } while (savec == ':');
704 1.1 cgd (void)free((Address)vpath);
705 1.1 cgd }
706 1.1 cgd
707 1.1 cgd /*
708 1.1 cgd * Now that all search paths have been read for suffixes et al, it's
709 1.1 cgd * time to add the default search path to their lists...
710 1.1 cgd */
711 1.1 cgd Suff_DoPaths();
712 1.1 cgd
713 1.1 cgd /* print the initial graph, if the user requested it */
714 1.1 cgd if (DEBUG(GRAPH1))
715 1.1 cgd Targ_PrintGraph(1);
716 1.1 cgd
717 1.1 cgd /*
718 1.1 cgd * Have now read the entire graph and need to make a list of targets
719 1.1 cgd * to create. If none was given on the command line, we consult the
720 1.1 cgd * parsing module to find the main target(s) to create.
721 1.1 cgd */
722 1.1 cgd if (Lst_IsEmpty(create))
723 1.1 cgd targs = Parse_MainName();
724 1.1 cgd else
725 1.1 cgd targs = Targ_FindList(create, TARG_CREATE);
726 1.1 cgd
727 1.13 cgd if (!compatMake) {
728 1.1 cgd /*
729 1.1 cgd * Initialize job module before traversing the graph, now that
730 1.1 cgd * any .BEGIN and .END targets have been read. This is done
731 1.1 cgd * only if the -q flag wasn't given (to prevent the .BEGIN from
732 1.1 cgd * being executed should it exist).
733 1.1 cgd */
734 1.1 cgd if (!queryFlag) {
735 1.1 cgd if (maxLocal == -1)
736 1.1 cgd maxLocal = maxJobs;
737 1.1 cgd Job_Init(maxJobs, maxLocal);
738 1.1 cgd jobsRunning = TRUE;
739 1.1 cgd }
740 1.1 cgd
741 1.1 cgd /* Traverse the graph, checking on all the targets */
742 1.1 cgd outOfDate = Make_Run(targs);
743 1.1 cgd } else
744 1.1 cgd /*
745 1.1 cgd * Compat_Init will take care of creating all the targets as
746 1.1 cgd * well as initializing the module.
747 1.1 cgd */
748 1.1 cgd Compat_Run(targs);
749 1.1 cgd
750 1.14 jtc Lst_Destroy(targs, NOFREE);
751 1.14 jtc Lst_Destroy(makefiles, NOFREE);
752 1.14 jtc Lst_Destroy(create, (void (*) __P((ClientData))) free);
753 1.14 jtc
754 1.1 cgd /* print the graph now it's been processed if the user requested it */
755 1.1 cgd if (DEBUG(GRAPH2))
756 1.1 cgd Targ_PrintGraph(2);
757 1.1 cgd
758 1.14 jtc Suff_End();
759 1.14 jtc Targ_End();
760 1.14 jtc Arch_End();
761 1.14 jtc str_end();
762 1.14 jtc Var_End();
763 1.14 jtc Parse_End();
764 1.14 jtc Dir_End();
765 1.14 jtc
766 1.1 cgd if (queryFlag && outOfDate)
767 1.13 cgd return(1);
768 1.1 cgd else
769 1.13 cgd return(0);
770 1.1 cgd }
771 1.1 cgd
772 1.1 cgd /*-
773 1.1 cgd * ReadMakefile --
774 1.1 cgd * Open and parse the given makefile.
775 1.1 cgd *
776 1.1 cgd * Results:
777 1.1 cgd * TRUE if ok. FALSE if couldn't open file.
778 1.1 cgd *
779 1.1 cgd * Side Effects:
780 1.1 cgd * lots
781 1.1 cgd */
782 1.1 cgd static Boolean
783 1.1 cgd ReadMakefile(fname)
784 1.1 cgd char *fname; /* makefile to read */
785 1.1 cgd {
786 1.25 christos extern Lst parseIncPath;
787 1.1 cgd FILE *stream;
788 1.1 cgd char *name, path[MAXPATHLEN + 1];
789 1.1 cgd
790 1.1 cgd if (!strcmp(fname, "-")) {
791 1.1 cgd Parse_File("(stdin)", stdin);
792 1.1 cgd Var_Set("MAKEFILE", "", VAR_GLOBAL);
793 1.1 cgd } else {
794 1.13 cgd if ((stream = fopen(fname, "r")) != NULL)
795 1.1 cgd goto found;
796 1.1 cgd /* if we've chdir'd, rebuild the path name */
797 1.13 cgd if (curdir != objdir && *fname != '/') {
798 1.1 cgd (void)sprintf(path, "%s/%s", curdir, fname);
799 1.13 cgd if ((stream = fopen(path, "r")) != NULL) {
800 1.1 cgd fname = path;
801 1.1 cgd goto found;
802 1.1 cgd }
803 1.1 cgd }
804 1.1 cgd /* look in -I and system include directories. */
805 1.1 cgd name = Dir_FindFile(fname, parseIncPath);
806 1.1 cgd if (!name)
807 1.1 cgd name = Dir_FindFile(fname, sysIncPath);
808 1.1 cgd if (!name || !(stream = fopen(name, "r")))
809 1.1 cgd return(FALSE);
810 1.1 cgd fname = name;
811 1.1 cgd /*
812 1.1 cgd * set the MAKEFILE variable desired by System V fans -- the
813 1.1 cgd * placement of the setting here means it gets set to the last
814 1.1 cgd * makefile specified, as it is set by SysV make.
815 1.1 cgd */
816 1.1 cgd found: Var_Set("MAKEFILE", fname, VAR_GLOBAL);
817 1.1 cgd Parse_File(fname, stream);
818 1.1 cgd (void)fclose(stream);
819 1.1 cgd }
820 1.1 cgd return(TRUE);
821 1.29 christos }
822 1.29 christos
823 1.29 christos /*-
824 1.29 christos * Cmd_Exec --
825 1.29 christos * Execute the command in cmd, and return the output of that command
826 1.29 christos * in a string.
827 1.29 christos *
828 1.29 christos * Results:
829 1.29 christos * A string containing the output of the command, or the empty string
830 1.29 christos * If err is not NULL, it contains the reason for the command failure
831 1.29 christos *
832 1.29 christos * Side Effects:
833 1.29 christos * The string must be freed by the caller.
834 1.29 christos */
835 1.29 christos char *
836 1.29 christos Cmd_Exec(cmd, err)
837 1.29 christos char *cmd;
838 1.29 christos char **err;
839 1.29 christos {
840 1.29 christos char *args[4]; /* Args for invoking the shell */
841 1.29 christos int fds[2]; /* Pipe streams */
842 1.29 christos int cpid; /* Child PID */
843 1.29 christos int pid; /* PID from wait() */
844 1.29 christos char *res; /* result */
845 1.29 christos int status; /* command exit status */
846 1.29 christos Buffer buf; /* buffer to store the result */
847 1.29 christos char *cp;
848 1.29 christos int cc;
849 1.29 christos
850 1.29 christos
851 1.29 christos *err = NULL;
852 1.29 christos
853 1.29 christos /*
854 1.29 christos * Set up arguments for shell
855 1.29 christos */
856 1.29 christos args[0] = "sh";
857 1.29 christos args[1] = "-c";
858 1.29 christos args[2] = cmd;
859 1.29 christos args[3] = NULL;
860 1.29 christos
861 1.29 christos /*
862 1.29 christos * Open a pipe for fetching its output
863 1.29 christos */
864 1.29 christos if (pipe(fds) == -1) {
865 1.29 christos *err = "Couldn't create pipe for \"%s\"";
866 1.29 christos goto bad;
867 1.29 christos }
868 1.29 christos
869 1.29 christos /*
870 1.29 christos * Fork
871 1.29 christos */
872 1.29 christos switch (cpid = vfork()) {
873 1.29 christos case 0:
874 1.29 christos /*
875 1.29 christos * Close input side of pipe
876 1.29 christos */
877 1.29 christos (void) close(fds[0]);
878 1.29 christos
879 1.29 christos /*
880 1.29 christos * Duplicate the output stream to the shell's output, then
881 1.29 christos * shut the extra thing down. Note we don't fetch the error
882 1.29 christos * stream...why not? Why?
883 1.29 christos */
884 1.29 christos (void) dup2(fds[1], 1);
885 1.29 christos (void) close(fds[1]);
886 1.29 christos
887 1.29 christos (void) execv("/bin/sh", args);
888 1.29 christos _exit(1);
889 1.29 christos /*NOTREACHED*/
890 1.29 christos
891 1.29 christos case -1:
892 1.29 christos *err = "Couldn't exec \"%s\"";
893 1.29 christos goto bad;
894 1.29 christos
895 1.29 christos default:
896 1.29 christos /*
897 1.29 christos * No need for the writing half
898 1.29 christos */
899 1.29 christos (void) close(fds[1]);
900 1.29 christos
901 1.29 christos buf = Buf_Init (MAKE_BSIZE);
902 1.29 christos
903 1.29 christos do {
904 1.29 christos char result[BUFSIZ];
905 1.29 christos cc = read(fds[0], result, sizeof(result));
906 1.29 christos if (cc > 0)
907 1.29 christos Buf_AddBytes(buf, cc, (Byte *) result);
908 1.29 christos }
909 1.29 christos while (cc > 0 || (cc == -1 && errno == EINTR));
910 1.29 christos
911 1.29 christos /*
912 1.29 christos * Close the input side of the pipe.
913 1.29 christos */
914 1.29 christos (void) close(fds[0]);
915 1.29 christos
916 1.29 christos /*
917 1.29 christos * Wait for the process to exit.
918 1.29 christos */
919 1.29 christos while(((pid = wait(&status)) != cpid) && (pid >= 0))
920 1.29 christos continue;
921 1.29 christos
922 1.29 christos res = (char *)Buf_GetAll (buf, &cc);
923 1.29 christos Buf_Destroy (buf, FALSE);
924 1.29 christos
925 1.29 christos if (cc == 0)
926 1.29 christos *err = "Couldn't read shell's output for \"%s\"";
927 1.29 christos
928 1.29 christos if (status)
929 1.29 christos *err = "\"%s\" returned non-zero status";
930 1.29 christos
931 1.29 christos /*
932 1.29 christos * Null-terminate the result, convert newlines to spaces and
933 1.29 christos * install it in the variable.
934 1.29 christos */
935 1.29 christos res[cc] = '\0';
936 1.29 christos cp = &res[cc] - 1;
937 1.29 christos
938 1.29 christos if (*cp == '\n') {
939 1.29 christos /*
940 1.29 christos * A final newline is just stripped
941 1.29 christos */
942 1.29 christos *cp-- = '\0';
943 1.29 christos }
944 1.29 christos while (cp >= res) {
945 1.29 christos if (*cp == '\n') {
946 1.29 christos *cp = ' ';
947 1.29 christos }
948 1.29 christos cp--;
949 1.29 christos }
950 1.29 christos break;
951 1.29 christos }
952 1.29 christos return res;
953 1.29 christos bad:
954 1.29 christos res = emalloc(1);
955 1.29 christos *res = '\0';
956 1.29 christos return res;
957 1.1 cgd }
958 1.1 cgd
959 1.1 cgd /*-
960 1.1 cgd * Error --
961 1.1 cgd * Print an error message given its format.
962 1.1 cgd *
963 1.1 cgd * Results:
964 1.1 cgd * None.
965 1.1 cgd *
966 1.1 cgd * Side Effects:
967 1.1 cgd * The message is printed.
968 1.1 cgd */
969 1.1 cgd /* VARARGS */
970 1.1 cgd void
971 1.13 cgd #if __STDC__
972 1.13 cgd Error(char *fmt, ...)
973 1.13 cgd #else
974 1.1 cgd Error(va_alist)
975 1.1 cgd va_dcl
976 1.13 cgd #endif
977 1.1 cgd {
978 1.1 cgd va_list ap;
979 1.13 cgd #if __STDC__
980 1.13 cgd va_start(ap, fmt);
981 1.13 cgd #else
982 1.1 cgd char *fmt;
983 1.1 cgd
984 1.1 cgd va_start(ap);
985 1.1 cgd fmt = va_arg(ap, char *);
986 1.13 cgd #endif
987 1.1 cgd (void)vfprintf(stderr, fmt, ap);
988 1.1 cgd va_end(ap);
989 1.1 cgd (void)fprintf(stderr, "\n");
990 1.1 cgd (void)fflush(stderr);
991 1.1 cgd }
992 1.1 cgd
993 1.1 cgd /*-
994 1.1 cgd * Fatal --
995 1.1 cgd * Produce a Fatal error message. If jobs are running, waits for them
996 1.1 cgd * to finish.
997 1.1 cgd *
998 1.1 cgd * Results:
999 1.1 cgd * None
1000 1.1 cgd *
1001 1.1 cgd * Side Effects:
1002 1.1 cgd * The program exits
1003 1.1 cgd */
1004 1.1 cgd /* VARARGS */
1005 1.1 cgd void
1006 1.13 cgd #if __STDC__
1007 1.13 cgd Fatal(char *fmt, ...)
1008 1.13 cgd #else
1009 1.1 cgd Fatal(va_alist)
1010 1.1 cgd va_dcl
1011 1.13 cgd #endif
1012 1.1 cgd {
1013 1.1 cgd va_list ap;
1014 1.13 cgd #if __STDC__
1015 1.13 cgd va_start(ap, fmt);
1016 1.13 cgd #else
1017 1.1 cgd char *fmt;
1018 1.1 cgd
1019 1.13 cgd va_start(ap);
1020 1.13 cgd fmt = va_arg(ap, char *);
1021 1.13 cgd #endif
1022 1.1 cgd if (jobsRunning)
1023 1.1 cgd Job_Wait();
1024 1.1 cgd
1025 1.1 cgd (void)vfprintf(stderr, fmt, ap);
1026 1.1 cgd va_end(ap);
1027 1.1 cgd (void)fprintf(stderr, "\n");
1028 1.1 cgd (void)fflush(stderr);
1029 1.1 cgd
1030 1.1 cgd if (DEBUG(GRAPH2))
1031 1.1 cgd Targ_PrintGraph(2);
1032 1.1 cgd exit(2); /* Not 1 so -q can distinguish error */
1033 1.1 cgd }
1034 1.1 cgd
1035 1.1 cgd /*
1036 1.1 cgd * Punt --
1037 1.1 cgd * Major exception once jobs are being created. Kills all jobs, prints
1038 1.1 cgd * a message and exits.
1039 1.1 cgd *
1040 1.1 cgd * Results:
1041 1.1 cgd * None
1042 1.1 cgd *
1043 1.1 cgd * Side Effects:
1044 1.1 cgd * All children are killed indiscriminately and the program Lib_Exits
1045 1.1 cgd */
1046 1.1 cgd /* VARARGS */
1047 1.1 cgd void
1048 1.13 cgd #if __STDC__
1049 1.13 cgd Punt(char *fmt, ...)
1050 1.13 cgd #else
1051 1.1 cgd Punt(va_alist)
1052 1.1 cgd va_dcl
1053 1.13 cgd #endif
1054 1.1 cgd {
1055 1.1 cgd va_list ap;
1056 1.13 cgd #if __STDC__
1057 1.13 cgd va_start(ap, fmt);
1058 1.13 cgd #else
1059 1.1 cgd char *fmt;
1060 1.1 cgd
1061 1.1 cgd va_start(ap);
1062 1.1 cgd fmt = va_arg(ap, char *);
1063 1.13 cgd #endif
1064 1.13 cgd
1065 1.13 cgd (void)fprintf(stderr, "make: ");
1066 1.1 cgd (void)vfprintf(stderr, fmt, ap);
1067 1.1 cgd va_end(ap);
1068 1.1 cgd (void)fprintf(stderr, "\n");
1069 1.1 cgd (void)fflush(stderr);
1070 1.1 cgd
1071 1.1 cgd DieHorribly();
1072 1.1 cgd }
1073 1.1 cgd
1074 1.1 cgd /*-
1075 1.1 cgd * DieHorribly --
1076 1.1 cgd * Exit without giving a message.
1077 1.1 cgd *
1078 1.1 cgd * Results:
1079 1.1 cgd * None
1080 1.1 cgd *
1081 1.1 cgd * Side Effects:
1082 1.1 cgd * A big one...
1083 1.1 cgd */
1084 1.1 cgd void
1085 1.1 cgd DieHorribly()
1086 1.1 cgd {
1087 1.1 cgd if (jobsRunning)
1088 1.1 cgd Job_AbortAll();
1089 1.1 cgd if (DEBUG(GRAPH2))
1090 1.1 cgd Targ_PrintGraph(2);
1091 1.1 cgd exit(2); /* Not 1, so -q can distinguish error */
1092 1.1 cgd }
1093 1.1 cgd
1094 1.1 cgd /*
1095 1.1 cgd * Finish --
1096 1.1 cgd * Called when aborting due to errors in child shell to signal
1097 1.1 cgd * abnormal exit.
1098 1.1 cgd *
1099 1.1 cgd * Results:
1100 1.1 cgd * None
1101 1.1 cgd *
1102 1.1 cgd * Side Effects:
1103 1.1 cgd * The program exits
1104 1.1 cgd */
1105 1.1 cgd void
1106 1.1 cgd Finish(errors)
1107 1.1 cgd int errors; /* number of errors encountered in Make_Make */
1108 1.1 cgd {
1109 1.1 cgd Fatal("%d error%s", errors, errors == 1 ? "" : "s");
1110 1.1 cgd }
1111 1.1 cgd
1112 1.1 cgd /*
1113 1.1 cgd * emalloc --
1114 1.1 cgd * malloc, but die on error.
1115 1.1 cgd */
1116 1.28 christos void *
1117 1.1 cgd emalloc(len)
1118 1.14 jtc size_t len;
1119 1.1 cgd {
1120 1.28 christos void *p;
1121 1.1 cgd
1122 1.28 christos if ((p = malloc(len)) == NULL)
1123 1.27 jtc enomem();
1124 1.27 jtc return(p);
1125 1.27 jtc }
1126 1.27 jtc
1127 1.27 jtc /*
1128 1.27 jtc * erealloc --
1129 1.27 jtc * realloc, but die on error.
1130 1.27 jtc */
1131 1.28 christos void *
1132 1.27 jtc erealloc(ptr, size)
1133 1.28 christos void *ptr;
1134 1.27 jtc size_t size;
1135 1.27 jtc {
1136 1.28 christos if ((ptr = realloc(ptr, size)) == NULL)
1137 1.1 cgd enomem();
1138 1.28 christos return(ptr);
1139 1.1 cgd }
1140 1.1 cgd
1141 1.1 cgd /*
1142 1.1 cgd * enomem --
1143 1.1 cgd * die when out of memory.
1144 1.1 cgd */
1145 1.13 cgd void
1146 1.1 cgd enomem()
1147 1.1 cgd {
1148 1.1 cgd (void)fprintf(stderr, "make: %s.\n", strerror(errno));
1149 1.1 cgd exit(2);
1150 1.21 christos }
1151 1.21 christos
1152 1.21 christos /*
1153 1.21 christos * enunlink --
1154 1.21 christos * Remove a file carefully, avoiding directories.
1155 1.21 christos */
1156 1.21 christos int
1157 1.21 christos eunlink(file)
1158 1.21 christos const char *file;
1159 1.21 christos {
1160 1.21 christos struct stat st;
1161 1.21 christos
1162 1.21 christos if (lstat(file, &st) == -1)
1163 1.21 christos return -1;
1164 1.21 christos
1165 1.21 christos if (S_ISDIR(st.st_mode)) {
1166 1.21 christos errno = EISDIR;
1167 1.21 christos return -1;
1168 1.21 christos }
1169 1.21 christos return unlink(file);
1170 1.1 cgd }
1171 1.1 cgd
1172 1.1 cgd /*
1173 1.1 cgd * usage --
1174 1.1 cgd * exit with usage message
1175 1.1 cgd */
1176 1.13 cgd static void
1177 1.1 cgd usage()
1178 1.1 cgd {
1179 1.1 cgd (void)fprintf(stderr,
1180 1.1 cgd "usage: make [-eiknqrst] [-D variable] [-d flags] [-f makefile ]\n\
1181 1.25 christos [-I directory] [-j max_jobs] [-m directory] [variable=value]\n");
1182 1.1 cgd exit(2);
1183 1.14 jtc }
1184 1.14 jtc
1185 1.14 jtc
1186 1.14 jtc int
1187 1.14 jtc PrintAddr(a, b)
1188 1.14 jtc ClientData a;
1189 1.14 jtc ClientData b;
1190 1.14 jtc {
1191 1.14 jtc printf("%lx ", (unsigned long) a);
1192 1.14 jtc return b ? 0 : 0;
1193 1.1 cgd }
1194