* Fixups to the make man page
[make.git] / main.c
blob51764dddd12f42f7fa4cef977f4ebbaf67878437
1 /* Argument parsing and main program of GNU Make.
2 Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997,
3 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
4 2010 Free Software Foundation, Inc.
5 This file is part of GNU Make.
7 GNU Make is free software; you can redistribute it and/or modify it under the
8 terms of the GNU General Public License as published by the Free Software
9 Foundation; either version 3 of the License, or (at your option) any later
10 version.
12 GNU Make is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License along with
17 this program. If not, see <http://www.gnu.org/licenses/>. */
19 #include "make.h"
20 #include "dep.h"
21 #include "filedef.h"
22 #include "variable.h"
23 #include "job.h"
24 #include "commands.h"
25 #include "rule.h"
26 #include "debug.h"
27 #include "getopt.h"
29 #include <assert.h>
30 #ifdef _AMIGA
31 # include <dos/dos.h>
32 # include <proto/dos.h>
33 #endif
34 #ifdef WINDOWS32
35 #include <windows.h>
36 #include <io.h>
37 #include "pathstuff.h"
38 #endif
39 #ifdef __EMX__
40 # include <sys/types.h>
41 # include <sys/wait.h>
42 #endif
43 #ifdef HAVE_FCNTL_H
44 # include <fcntl.h>
45 #endif
47 #ifdef _AMIGA
48 int __stack = 20000; /* Make sure we have 20K of stack space */
49 #endif
51 void init_dir (void);
52 void remote_setup (void);
53 void remote_cleanup (void);
54 RETSIGTYPE fatal_error_signal (int sig);
56 void print_variable_data_base (void);
57 void print_dir_data_base (void);
58 void print_rule_data_base (void);
59 void print_vpath_data_base (void);
61 void verify_file_data_base (void);
63 #if defined HAVE_WAITPID || defined HAVE_WAIT3
64 # define HAVE_WAIT_NOHANG
65 #endif
67 #ifndef HAVE_UNISTD_H
68 int chdir ();
69 #endif
70 #ifndef STDC_HEADERS
71 # ifndef sun /* Sun has an incorrect decl in a header. */
72 void exit (int) __attribute__ ((noreturn));
73 # endif
74 double atof ();
75 #endif
77 static void clean_jobserver (int status);
78 static void print_data_base (void);
79 static void print_version (void);
80 static void decode_switches (int argc, char **argv, int env);
81 static void decode_env_switches (char *envar, unsigned int len);
82 static const char *define_makeflags (int all, int makefile);
83 static char *quote_for_env (char *out, const char *in);
84 static void initialize_global_hash_tables (void);
87 /* The structure that describes an accepted command switch. */
89 struct command_switch
91 int c; /* The switch character. */
93 enum /* Type of the value. */
95 flag, /* Turn int flag on. */
96 flag_off, /* Turn int flag off. */
97 string, /* One string per switch. */
98 filename, /* A string containing a file name. */
99 positive_int, /* A positive integer. */
100 floating, /* A floating-point number (double). */
101 ignore /* Ignored. */
102 } type;
104 void *value_ptr; /* Pointer to the value-holding variable. */
106 unsigned int env:1; /* Can come from MAKEFLAGS. */
107 unsigned int toenv:1; /* Should be put in MAKEFLAGS. */
108 unsigned int no_makefile:1; /* Don't propagate when remaking makefiles. */
110 const void *noarg_value; /* Pointer to value used if no arg given. */
111 const void *default_value; /* Pointer to default value. */
113 char *long_name; /* Long option name. */
116 /* True if C is a switch value that corresponds to a short option. */
118 #define short_option(c) ((c) <= CHAR_MAX)
120 /* The structure used to hold the list of strings given
121 in command switches of a type that takes string arguments. */
123 struct stringlist
125 const char **list; /* Nil-terminated list of strings. */
126 unsigned int idx; /* Index into above. */
127 unsigned int max; /* Number of pointers allocated. */
131 /* The recognized command switches. */
133 /* Nonzero means do not print commands to be executed (-s). */
135 int silent_flag;
137 /* Nonzero means just touch the files
138 that would appear to need remaking (-t) */
140 int touch_flag;
142 /* Nonzero means just print what commands would need to be executed,
143 don't actually execute them (-n). */
145 int just_print_flag;
147 /* Print debugging info (--debug). */
149 static struct stringlist *db_flags;
150 static int debug_flag = 0;
152 int db_level = 0;
154 /* Tracing (--trace). */
156 int trace_flag = 0;
158 #ifdef WINDOWS32
159 /* Suspend make in main for a short time to allow debugger to attach */
161 int suspend_flag = 0;
162 #endif
164 /* Environment variables override makefile definitions. */
166 int env_overrides = 0;
168 /* Nonzero means ignore status codes returned by commands
169 executed to remake files. Just treat them all as successful (-i). */
171 int ignore_errors_flag = 0;
173 /* Nonzero means don't remake anything, just print the data base
174 that results from reading the makefile (-p). */
176 int print_data_base_flag = 0;
178 /* Nonzero means don't remake anything; just return a nonzero status
179 if the specified targets are not up to date (-q). */
181 int question_flag = 0;
183 /* Nonzero means do not use any of the builtin rules (-r) / variables (-R). */
185 int no_builtin_rules_flag = 0;
186 int no_builtin_variables_flag = 0;
188 /* Nonzero means keep going even if remaking some file fails (-k). */
190 int keep_going_flag;
191 int default_keep_going_flag = 0;
193 /* Nonzero means check symlink mtimes. */
195 int check_symlink_flag = 0;
197 /* Nonzero means print directory before starting and when done (-w). */
199 int print_directory_flag = 0;
201 /* Nonzero means ignore print_directory_flag and never print the directory.
202 This is necessary because print_directory_flag is set implicitly. */
204 int inhibit_print_directory_flag = 0;
206 /* Nonzero means print version information. */
208 int print_version_flag = 0;
210 /* List of makefiles given with -f switches. */
212 static struct stringlist *makefiles = 0;
214 /* Size of the stack when we started. */
216 #ifdef SET_STACK_SIZE
217 struct rlimit stack_limit;
218 #endif
221 /* Number of job slots (commands that can be run at once). */
223 unsigned int job_slots = 1;
224 unsigned int default_job_slots = 1;
225 static unsigned int master_job_slots = 0;
227 /* Value of job_slots that means no limit. */
229 static unsigned int inf_jobs = 0;
231 /* File descriptors for the jobs pipe. */
233 static struct stringlist *jobserver_fds = 0;
235 int job_fds[2] = { -1, -1 };
236 int job_rfd = -1;
238 /* Maximum load average at which multiple jobs will be run.
239 Negative values mean unlimited, while zero means limit to
240 zero load (which could be useful to start infinite jobs remotely
241 but one at a time locally). */
242 #ifndef NO_FLOAT
243 double max_load_average = -1.0;
244 double default_load_average = -1.0;
245 #else
246 int max_load_average = -1;
247 int default_load_average = -1;
248 #endif
250 /* List of directories given with -C switches. */
252 static struct stringlist *directories = 0;
254 /* List of include directories given with -I switches. */
256 static struct stringlist *include_directories = 0;
258 /* List of files given with -o switches. */
260 static struct stringlist *old_files = 0;
262 /* List of files given with -W switches. */
264 static struct stringlist *new_files = 0;
266 /* List of strings to be eval'd. */
267 static struct stringlist *eval_strings = 0;
269 /* If nonzero, we should just print usage and exit. */
271 static int print_usage_flag = 0;
273 /* If nonzero, we should print a warning message
274 for each reference to an undefined variable. */
276 int warn_undefined_variables_flag;
278 /* If nonzero, always build all targets, regardless of whether
279 they appear out of date or not. */
281 static int always_make_set = 0;
282 int always_make_flag = 0;
284 /* If nonzero, we're in the "try to rebuild makefiles" phase. */
286 int rebuilding_makefiles = 0;
288 /* Remember the original value of the SHELL variable, from the environment. */
290 struct variable shell_var;
292 /* This character introduces a command: it's the first char on the line. */
294 char cmd_prefix = '\t';
297 /* The usage output. We write it this way to make life easier for the
298 translators, especially those trying to translate to right-to-left
299 languages like Hebrew. */
301 static const char *const usage[] =
303 N_("Options:\n"),
304 N_("\
305 -b, -m Ignored for compatibility.\n"),
306 N_("\
307 -B, --always-make Unconditionally make all targets.\n"),
308 N_("\
309 -C DIRECTORY, --directory=DIRECTORY\n\
310 Change to DIRECTORY before doing anything.\n"),
311 N_("\
312 -d Print lots of debugging information.\n"),
313 N_("\
314 --debug[=FLAGS] Print various types of debugging information.\n"),
315 N_("\
316 -e, --environment-overrides\n\
317 Environment variables override makefiles.\n"),
318 N_("\
319 --eval=STRING Evaluate STRING as a makefile statement.\n"),
320 N_("\
321 -f FILE, --file=FILE, --makefile=FILE\n\
322 Read FILE as a makefile.\n"),
323 N_("\
324 -h, --help Print this message and exit.\n"),
325 N_("\
326 -i, --ignore-errors Ignore errors from recipes.\n"),
327 N_("\
328 -I DIRECTORY, --include-dir=DIRECTORY\n\
329 Search DIRECTORY for included makefiles.\n"),
330 N_("\
331 -j [N], --jobs[=N] Allow N jobs at once; infinite jobs with no arg.\n"),
332 N_("\
333 -k, --keep-going Keep going when some targets can't be made.\n"),
334 N_("\
335 -l [N], --load-average[=N], --max-load[=N]\n\
336 Don't start multiple jobs unless load is below N.\n"),
337 N_("\
338 -L, --check-symlink-times Use the latest mtime between symlinks and target.\n"),
339 N_("\
340 -n, --just-print, --dry-run, --recon\n\
341 Don't actually run any recipe; just print them.\n"),
342 N_("\
343 -o FILE, --old-file=FILE, --assume-old=FILE\n\
344 Consider FILE to be very old and don't remake it.\n"),
345 N_("\
346 -p, --print-data-base Print make's internal database.\n"),
347 N_("\
348 -q, --question Run no recipe; exit status says if up to date.\n"),
349 N_("\
350 -r, --no-builtin-rules Disable the built-in implicit rules.\n"),
351 N_("\
352 -R, --no-builtin-variables Disable the built-in variable settings.\n"),
353 N_("\
354 -s, --silent, --quiet Don't echo recipes.\n"),
355 N_("\
356 -S, --no-keep-going, --stop\n\
357 Turns off -k.\n"),
358 N_("\
359 -t, --touch Touch targets instead of remaking them.\n"),
360 N_("\
361 --trace Print tracing information.\n"),
362 N_("\
363 -v, --version Print the version number of make and exit.\n"),
364 N_("\
365 -w, --print-directory Print the current directory.\n"),
366 N_("\
367 --no-print-directory Turn off -w, even if it was turned on implicitly.\n"),
368 N_("\
369 -W FILE, --what-if=FILE, --new-file=FILE, --assume-new=FILE\n\
370 Consider FILE to be infinitely new.\n"),
371 N_("\
372 --warn-undefined-variables Warn when an undefined variable is referenced.\n"),
373 NULL
376 /* The table of command switches. */
378 static const struct command_switch switches[] =
380 { 'b', ignore, 0, 0, 0, 0, 0, 0, 0 },
381 { 'B', flag, &always_make_set, 1, 1, 0, 0, 0, "always-make" },
382 { 'C', filename, &directories, 0, 0, 0, 0, 0, "directory" },
383 { 'd', flag, &debug_flag, 1, 1, 0, 0, 0, 0 },
384 { CHAR_MAX+1, string, &db_flags, 1, 1, 0, "basic", 0, "debug" },
385 #ifdef WINDOWS32
386 { 'D', flag, &suspend_flag, 1, 1, 0, 0, 0, "suspend-for-debug" },
387 #endif
388 { 'e', flag, &env_overrides, 1, 1, 0, 0, 0, "environment-overrides", },
389 { 'f', filename, &makefiles, 0, 0, 0, 0, 0, "file" },
390 { 'h', flag, &print_usage_flag, 0, 0, 0, 0, 0, "help" },
391 { 'i', flag, &ignore_errors_flag, 1, 1, 0, 0, 0, "ignore-errors" },
392 { 'I', filename, &include_directories, 1, 1, 0, 0, 0,
393 "include-dir" },
394 { 'j', positive_int, &job_slots, 1, 1, 0, &inf_jobs, &default_job_slots,
395 "jobs" },
396 { CHAR_MAX+2, string, &jobserver_fds, 1, 1, 0, 0, 0, "jobserver-fds" },
397 { 'k', flag, &keep_going_flag, 1, 1, 0, 0, &default_keep_going_flag,
398 "keep-going" },
399 #ifndef NO_FLOAT
400 { 'l', floating, &max_load_average, 1, 1, 0, &default_load_average,
401 &default_load_average, "load-average" },
402 #else
403 { 'l', positive_int, &max_load_average, 1, 1, 0, &default_load_average,
404 &default_load_average, "load-average" },
405 #endif
406 { 'L', flag, &check_symlink_flag, 1, 1, 0, 0, 0, "check-symlink-times" },
407 { 'm', ignore, 0, 0, 0, 0, 0, 0, 0 },
408 { 'n', flag, &just_print_flag, 1, 1, 1, 0, 0, "just-print" },
409 { 'o', filename, &old_files, 0, 0, 0, 0, 0, "old-file" },
410 { 'p', flag, &print_data_base_flag, 1, 1, 0, 0, 0, "print-data-base" },
411 { 'q', flag, &question_flag, 1, 1, 1, 0, 0, "question" },
412 { 'r', flag, &no_builtin_rules_flag, 1, 1, 0, 0, 0, "no-builtin-rules" },
413 { 'R', flag, &no_builtin_variables_flag, 1, 1, 0, 0, 0,
414 "no-builtin-variables" },
415 { 's', flag, &silent_flag, 1, 1, 0, 0, 0, "silent" },
416 { 'S', flag_off, &keep_going_flag, 1, 1, 0, 0, &default_keep_going_flag,
417 "no-keep-going" },
418 { 't', flag, &touch_flag, 1, 1, 1, 0, 0, "touch" },
419 { CHAR_MAX+3, flag, &trace_flag, 1, 1, 0, 0, 0, "trace" },
420 { 'v', flag, &print_version_flag, 1, 1, 0, 0, 0, "version" },
421 { 'w', flag, &print_directory_flag, 1, 1, 0, 0, 0, "print-directory" },
422 { CHAR_MAX+4, flag, &inhibit_print_directory_flag, 1, 1, 0, 0, 0,
423 "no-print-directory" },
424 { 'W', filename, &new_files, 0, 0, 0, 0, 0, "what-if" },
425 { CHAR_MAX+5, flag, &warn_undefined_variables_flag, 1, 1, 0, 0, 0,
426 "warn-undefined-variables" },
427 { CHAR_MAX+6, string, &eval_strings, 1, 0, 0, 0, 0, "eval" },
428 { 0, 0, 0, 0, 0, 0, 0, 0, 0 }
431 /* Secondary long names for options. */
433 static struct option long_option_aliases[] =
435 { "quiet", no_argument, 0, 's' },
436 { "stop", no_argument, 0, 'S' },
437 { "new-file", required_argument, 0, 'W' },
438 { "assume-new", required_argument, 0, 'W' },
439 { "assume-old", required_argument, 0, 'o' },
440 { "max-load", optional_argument, 0, 'l' },
441 { "dry-run", no_argument, 0, 'n' },
442 { "recon", no_argument, 0, 'n' },
443 { "makefile", required_argument, 0, 'f' },
446 /* List of goal targets. */
448 static struct dep *goals, *lastgoal;
450 /* List of variables which were defined on the command line
451 (or, equivalently, in MAKEFLAGS). */
453 struct command_variable
455 struct command_variable *next;
456 struct variable *variable;
458 static struct command_variable *command_variables;
460 /* The name we were invoked with. */
462 char *program;
464 /* Our current directory before processing any -C options. */
466 char *directory_before_chdir;
468 /* Our current directory after processing all -C options. */
470 char *starting_directory;
472 /* Value of the MAKELEVEL variable at startup (or 0). */
474 unsigned int makelevel;
476 /* Pointer to the value of the .DEFAULT_GOAL special variable.
477 The value will be the name of the goal to remake if the command line
478 does not override it. It can be set by the makefile, or else it's
479 the first target defined in the makefile whose name does not start
480 with '.'. */
482 struct variable * default_goal_var;
484 /* Pointer to structure for the file .DEFAULT
485 whose commands are used for any file that has none of its own.
486 This is zero if the makefiles do not define .DEFAULT. */
488 struct file *default_file;
490 /* Nonzero if we have seen the magic `.POSIX' target.
491 This turns on pedantic compliance with POSIX.2. */
493 int posix_pedantic;
495 /* Nonzero if we have seen the '.SECONDEXPANSION' target.
496 This turns on secondary expansion of prerequisites. */
498 int second_expansion;
500 /* Nonzero if we have seen the '.ONESHELL' target.
501 This causes the entire recipe to be handed to SHELL
502 as a single string, potentially containing newlines. */
504 int one_shell;
506 /* Nonzero if we have seen the `.NOTPARALLEL' target.
507 This turns off parallel builds for this invocation of make. */
509 int not_parallel;
511 /* Nonzero if some rule detected clock skew; we keep track so (a) we only
512 print one warning about it during the run, and (b) we can print a final
513 warning at the end of the run. */
515 int clock_skew_detected;
517 /* Mask of signals that are being caught with fatal_error_signal. */
519 #ifdef POSIX
520 sigset_t fatal_signal_set;
521 #else
522 # ifdef HAVE_SIGSETMASK
523 int fatal_signal_mask;
524 # endif
525 #endif
527 #if !HAVE_DECL_BSD_SIGNAL && !defined bsd_signal
528 # if !defined HAVE_SIGACTION
529 # define bsd_signal signal
530 # else
531 typedef RETSIGTYPE (*bsd_signal_ret_t) (int);
533 static bsd_signal_ret_t
534 bsd_signal (int sig, bsd_signal_ret_t func)
536 struct sigaction act, oact;
537 act.sa_handler = func;
538 act.sa_flags = SA_RESTART;
539 sigemptyset (&act.sa_mask);
540 sigaddset (&act.sa_mask, sig);
541 if (sigaction (sig, &act, &oact) != 0)
542 return SIG_ERR;
543 return oact.sa_handler;
545 # endif
546 #endif
548 static void
549 initialize_global_hash_tables (void)
551 init_hash_global_variable_set ();
552 strcache_init ();
553 init_hash_files ();
554 hash_init_directories ();
555 hash_init_function_table ();
558 static const char *
559 expand_command_line_file (char *name)
561 const char *cp;
562 char *expanded = 0;
564 if (name[0] == '\0')
565 fatal (NILF, _("empty string invalid as file name"));
567 if (name[0] == '~')
569 expanded = tilde_expand (name);
570 if (expanded != 0)
571 name = expanded;
574 /* This is also done in parse_file_seq, so this is redundant
575 for names read from makefiles. It is here for names passed
576 on the command line. */
577 while (name[0] == '.' && name[1] == '/' && name[2] != '\0')
579 name += 2;
580 while (*name == '/')
581 /* Skip following slashes: ".//foo" is "foo", not "/foo". */
582 ++name;
585 if (*name == '\0')
587 /* It was all slashes! Move back to the dot and truncate
588 it after the first slash, so it becomes just "./". */
590 --name;
591 while (name[0] != '.');
592 name[2] = '\0';
595 cp = strcache_add (name);
597 if (expanded)
598 free (expanded);
600 return cp;
603 /* Toggle -d on receipt of SIGUSR1. */
605 #ifdef SIGUSR1
606 static RETSIGTYPE
607 debug_signal_handler (int sig UNUSED)
609 db_level = db_level ? DB_NONE : DB_BASIC;
611 #endif
613 static void
614 decode_debug_flags (void)
616 const char **pp;
618 if (debug_flag)
619 db_level = DB_ALL;
621 if (!db_flags)
622 return;
624 for (pp=db_flags->list; *pp; ++pp)
626 const char *p = *pp;
628 while (1)
630 switch (tolower (p[0]))
632 case 'a':
633 db_level |= DB_ALL;
634 break;
635 case 'b':
636 db_level |= DB_BASIC;
637 break;
638 case 'i':
639 db_level |= DB_BASIC | DB_IMPLICIT;
640 break;
641 case 'j':
642 db_level |= DB_JOBS;
643 break;
644 case 'm':
645 db_level |= DB_BASIC | DB_MAKEFILES;
646 break;
647 case 'v':
648 db_level |= DB_BASIC | DB_VERBOSE;
649 break;
650 default:
651 fatal (NILF, _("unknown debug level specification `%s'"), p);
654 while (*(++p) != '\0')
655 if (*p == ',' || *p == ' ')
656 break;
658 if (*p == '\0')
659 break;
661 ++p;
666 #ifdef WINDOWS32
668 * HANDLE runtime exceptions by avoiding a requestor on the GUI. Capture
669 * exception and print it to stderr instead.
671 * If ! DB_VERBOSE, just print a simple message and exit.
672 * If DB_VERBOSE, print a more verbose message.
673 * If compiled for DEBUG, let exception pass through to GUI so that
674 * debuggers can attach.
676 LONG WINAPI
677 handle_runtime_exceptions( struct _EXCEPTION_POINTERS *exinfo )
679 PEXCEPTION_RECORD exrec = exinfo->ExceptionRecord;
680 LPSTR cmdline = GetCommandLine();
681 LPSTR prg = strtok(cmdline, " ");
682 CHAR errmsg[1024];
683 #ifdef USE_EVENT_LOG
684 HANDLE hEventSource;
685 LPTSTR lpszStrings[1];
686 #endif
688 if (! ISDB (DB_VERBOSE))
690 sprintf(errmsg,
691 _("%s: Interrupt/Exception caught (code = 0x%lx, addr = 0x%p)\n"),
692 prg, exrec->ExceptionCode, exrec->ExceptionAddress);
693 fprintf(stderr, errmsg);
694 exit(255);
697 sprintf(errmsg,
698 _("\nUnhandled exception filter called from program %s\nExceptionCode = %lx\nExceptionFlags = %lx\nExceptionAddress = 0x%p\n"),
699 prg, exrec->ExceptionCode, exrec->ExceptionFlags,
700 exrec->ExceptionAddress);
702 if (exrec->ExceptionCode == EXCEPTION_ACCESS_VIOLATION
703 && exrec->NumberParameters >= 2)
704 sprintf(&errmsg[strlen(errmsg)],
705 (exrec->ExceptionInformation[0]
706 ? _("Access violation: write operation at address 0x%p\n")
707 : _("Access violation: read operation at address 0x%p\n")),
708 (PVOID)exrec->ExceptionInformation[1]);
710 /* turn this on if we want to put stuff in the event log too */
711 #ifdef USE_EVENT_LOG
712 hEventSource = RegisterEventSource(NULL, "GNU Make");
713 lpszStrings[0] = errmsg;
715 if (hEventSource != NULL)
717 ReportEvent(hEventSource, /* handle of event source */
718 EVENTLOG_ERROR_TYPE, /* event type */
719 0, /* event category */
720 0, /* event ID */
721 NULL, /* current user's SID */
722 1, /* strings in lpszStrings */
723 0, /* no bytes of raw data */
724 lpszStrings, /* array of error strings */
725 NULL); /* no raw data */
727 (VOID) DeregisterEventSource(hEventSource);
729 #endif
731 /* Write the error to stderr too */
732 fprintf(stderr, errmsg);
734 #ifdef DEBUG
735 return EXCEPTION_CONTINUE_SEARCH;
736 #else
737 exit(255);
738 return (255); /* not reached */
739 #endif
743 * On WIN32 systems we don't have the luxury of a /bin directory that
744 * is mapped globally to every drive mounted to the system. Since make could
745 * be invoked from any drive, and we don't want to propogate /bin/sh
746 * to every single drive. Allow ourselves a chance to search for
747 * a value for default shell here (if the default path does not exist).
751 find_and_set_default_shell (const char *token)
753 int sh_found = 0;
754 char *atoken = 0;
755 char *search_token;
756 char *tokend;
757 PATH_VAR(sh_path);
758 extern char *default_shell;
760 if (!token)
761 search_token = default_shell;
762 else
763 atoken = search_token = xstrdup (token);
765 /* If the user explicitly requests the DOS cmd shell, obey that request.
766 However, make sure that's what they really want by requiring the value
767 of SHELL either equal, or have a final path element of, "cmd" or
768 "cmd.exe" case-insensitive. */
769 tokend = search_token + strlen (search_token) - 3;
770 if (((tokend == search_token
771 || (tokend > search_token
772 && (tokend[-1] == '/' || tokend[-1] == '\\')))
773 && !strcasecmp (tokend, "cmd"))
774 || ((tokend - 4 == search_token
775 || (tokend - 4 > search_token
776 && (tokend[-5] == '/' || tokend[-5] == '\\')))
777 && !strcasecmp (tokend - 4, "cmd.exe"))) {
778 batch_mode_shell = 1;
779 unixy_shell = 0;
780 sprintf (sh_path, "%s", search_token);
781 default_shell = xstrdup (w32ify (sh_path, 0));
782 DB (DB_VERBOSE, (_("find_and_set_shell() setting default_shell = %s\n"),
783 default_shell));
784 sh_found = 1;
785 } else if (!no_default_sh_exe &&
786 (token == NULL || !strcmp (search_token, default_shell))) {
787 /* no new information, path already set or known */
788 sh_found = 1;
789 } else if (file_exists_p (search_token)) {
790 /* search token path was found */
791 sprintf (sh_path, "%s", search_token);
792 default_shell = xstrdup (w32ify (sh_path, 0));
793 DB (DB_VERBOSE, (_("find_and_set_shell() setting default_shell = %s\n"),
794 default_shell));
795 sh_found = 1;
796 } else {
797 char *p;
798 struct variable *v = lookup_variable (STRING_SIZE_TUPLE ("PATH"));
800 /* Search Path for shell */
801 if (v && v->value) {
802 char *ep;
804 p = v->value;
805 ep = strchr (p, PATH_SEPARATOR_CHAR);
807 while (ep && *ep) {
808 *ep = '\0';
810 if (dir_file_exists_p (p, search_token)) {
811 sprintf (sh_path, "%s/%s", p, search_token);
812 default_shell = xstrdup (w32ify (sh_path, 0));
813 sh_found = 1;
814 *ep = PATH_SEPARATOR_CHAR;
816 /* terminate loop */
817 p += strlen (p);
818 } else {
819 *ep = PATH_SEPARATOR_CHAR;
820 p = ++ep;
823 ep = strchr (p, PATH_SEPARATOR_CHAR);
826 /* be sure to check last element of Path */
827 if (p && *p && dir_file_exists_p (p, search_token)) {
828 sprintf (sh_path, "%s/%s", p, search_token);
829 default_shell = xstrdup (w32ify (sh_path, 0));
830 sh_found = 1;
833 if (sh_found)
834 DB (DB_VERBOSE,
835 (_("find_and_set_shell() path search set default_shell = %s\n"),
836 default_shell));
840 /* naive test */
841 if (!unixy_shell && sh_found &&
842 (strstr (default_shell, "sh") || strstr (default_shell, "SH"))) {
843 unixy_shell = 1;
844 batch_mode_shell = 0;
847 #ifdef BATCH_MODE_ONLY_SHELL
848 batch_mode_shell = 1;
849 #endif
851 if (atoken)
852 free (atoken);
854 return (sh_found);
856 #endif /* WINDOWS32 */
858 #ifdef __MSDOS__
859 static void
860 msdos_return_to_initial_directory (void)
862 if (directory_before_chdir)
863 chdir (directory_before_chdir);
865 #endif /* __MSDOS__ */
867 char *mktemp (char *template);
868 int mkstemp (char *template);
870 FILE *
871 open_tmpfile(char **name, const char *template)
873 #ifdef HAVE_FDOPEN
874 int fd;
875 #endif
877 #if defined HAVE_MKSTEMP || defined HAVE_MKTEMP
878 # define TEMPLATE_LEN strlen (template)
879 #else
880 # define TEMPLATE_LEN L_tmpnam
881 #endif
882 *name = xmalloc (TEMPLATE_LEN + 1);
883 strcpy (*name, template);
885 #if defined HAVE_MKSTEMP && defined HAVE_FDOPEN
886 /* It's safest to use mkstemp(), if we can. */
887 fd = mkstemp (*name);
888 if (fd == -1)
889 return 0;
890 return fdopen (fd, "w");
891 #else
892 # ifdef HAVE_MKTEMP
893 (void) mktemp (*name);
894 # else
895 (void) tmpnam (*name);
896 # endif
898 # ifdef HAVE_FDOPEN
899 /* Can't use mkstemp(), but guard against a race condition. */
900 fd = open (*name, O_CREAT|O_EXCL|O_WRONLY, 0600);
901 if (fd == -1)
902 return 0;
903 return fdopen (fd, "w");
904 # else
905 /* Not secure, but what can we do? */
906 return fopen (*name, "w");
907 # endif
908 #endif
912 #ifdef _AMIGA
914 main (int argc, char **argv)
915 #else
917 main (int argc, char **argv, char **envp)
918 #endif
920 static char *stdin_nm = 0;
921 int makefile_status = MAKE_SUCCESS;
922 struct dep *read_makefiles;
923 PATH_VAR (current_directory);
924 unsigned int restarts = 0;
925 #ifdef WINDOWS32
926 char *unix_path = NULL;
927 char *windows32_path = NULL;
929 SetUnhandledExceptionFilter(handle_runtime_exceptions);
931 /* start off assuming we have no shell */
932 unixy_shell = 0;
933 no_default_sh_exe = 1;
934 #endif
936 #ifdef SET_STACK_SIZE
937 /* Get rid of any avoidable limit on stack size. */
939 struct rlimit rlim;
941 /* Set the stack limit huge so that alloca does not fail. */
942 if (getrlimit (RLIMIT_STACK, &rlim) == 0
943 && rlim.rlim_cur > 0 && rlim.rlim_cur < rlim.rlim_max)
945 stack_limit = rlim;
946 rlim.rlim_cur = rlim.rlim_max;
947 setrlimit (RLIMIT_STACK, &rlim);
949 else
950 stack_limit.rlim_cur = 0;
952 #endif
954 #ifdef HAVE_ATEXIT
955 atexit (close_stdout);
956 #endif
958 /* Needed for OS/2 */
959 initialize_main(&argc, &argv);
961 reading_file = 0;
963 #if defined (__MSDOS__) && !defined (_POSIX_SOURCE)
964 /* Request the most powerful version of `system', to
965 make up for the dumb default shell. */
966 __system_flags = (__system_redirect
967 | __system_use_shell
968 | __system_allow_multiple_cmds
969 | __system_allow_long_cmds
970 | __system_handle_null_commands
971 | __system_emulate_chdir);
973 #endif
975 /* Set up gettext/internationalization support. */
976 setlocale (LC_ALL, "");
977 /* The cast to void shuts up compiler warnings on systems that
978 disable NLS. */
979 (void)bindtextdomain (PACKAGE, LOCALEDIR);
980 (void)textdomain (PACKAGE);
982 #ifdef POSIX
983 sigemptyset (&fatal_signal_set);
984 #define ADD_SIG(sig) sigaddset (&fatal_signal_set, sig)
985 #else
986 #ifdef HAVE_SIGSETMASK
987 fatal_signal_mask = 0;
988 #define ADD_SIG(sig) fatal_signal_mask |= sigmask (sig)
989 #else
990 #define ADD_SIG(sig) (void)sig /* Needed to avoid warnings in MSVC. */
991 #endif
992 #endif
994 #define FATAL_SIG(sig) \
995 if (bsd_signal (sig, fatal_error_signal) == SIG_IGN) \
996 bsd_signal (sig, SIG_IGN); \
997 else \
998 ADD_SIG (sig);
1000 #ifdef SIGHUP
1001 FATAL_SIG (SIGHUP);
1002 #endif
1003 #ifdef SIGQUIT
1004 FATAL_SIG (SIGQUIT);
1005 #endif
1006 FATAL_SIG (SIGINT);
1007 FATAL_SIG (SIGTERM);
1009 #ifdef __MSDOS__
1010 /* Windows 9X delivers FP exceptions in child programs to their
1011 parent! We don't want Make to die when a child divides by zero,
1012 so we work around that lossage by catching SIGFPE. */
1013 FATAL_SIG (SIGFPE);
1014 #endif
1016 #ifdef SIGDANGER
1017 FATAL_SIG (SIGDANGER);
1018 #endif
1019 #ifdef SIGXCPU
1020 FATAL_SIG (SIGXCPU);
1021 #endif
1022 #ifdef SIGXFSZ
1023 FATAL_SIG (SIGXFSZ);
1024 #endif
1026 #undef FATAL_SIG
1028 /* Do not ignore the child-death signal. This must be done before
1029 any children could possibly be created; otherwise, the wait
1030 functions won't work on systems with the SVR4 ECHILD brain
1031 damage, if our invoker is ignoring this signal. */
1033 #ifdef HAVE_WAIT_NOHANG
1034 # if defined SIGCHLD
1035 (void) bsd_signal (SIGCHLD, SIG_DFL);
1036 # endif
1037 # if defined SIGCLD && SIGCLD != SIGCHLD
1038 (void) bsd_signal (SIGCLD, SIG_DFL);
1039 # endif
1040 #endif
1042 /* Make sure stdout is line-buffered. */
1044 #ifdef HAVE_SETVBUF
1045 # ifdef SETVBUF_REVERSED
1046 setvbuf (stdout, _IOLBF, xmalloc (BUFSIZ), BUFSIZ);
1047 # else /* setvbuf not reversed. */
1048 /* Some buggy systems lose if we pass 0 instead of allocating ourselves. */
1049 setvbuf (stdout, 0, _IOLBF, BUFSIZ);
1050 # endif /* setvbuf reversed. */
1051 #elif HAVE_SETLINEBUF
1052 setlinebuf (stdout);
1053 #endif /* setlinebuf missing. */
1055 /* Figure out where this program lives. */
1057 if (argv[0] == 0)
1058 argv[0] = "";
1059 if (argv[0][0] == '\0')
1060 program = "make";
1061 else
1063 #ifdef VMS
1064 program = strrchr (argv[0], ']');
1065 #else
1066 program = strrchr (argv[0], '/');
1067 #endif
1068 #if defined(__MSDOS__) || defined(__EMX__)
1069 if (program == 0)
1070 program = strrchr (argv[0], '\\');
1071 else
1073 /* Some weird environments might pass us argv[0] with
1074 both kinds of slashes; we must find the rightmost. */
1075 char *p = strrchr (argv[0], '\\');
1076 if (p && p > program)
1077 program = p;
1079 if (program == 0 && argv[0][1] == ':')
1080 program = argv[0] + 1;
1081 #endif
1082 #ifdef WINDOWS32
1083 if (program == 0)
1085 /* Extract program from full path */
1086 int argv0_len;
1087 program = strrchr (argv[0], '\\');
1088 if (program)
1090 argv0_len = strlen(program);
1091 if (argv0_len > 4 && streq (&program[argv0_len - 4], ".exe"))
1092 /* Remove .exe extension */
1093 program[argv0_len - 4] = '\0';
1096 #endif
1097 if (program == 0)
1098 program = argv[0];
1099 else
1100 ++program;
1103 /* Set up to access user data (files). */
1104 user_access ();
1106 initialize_global_hash_tables ();
1108 /* Figure out where we are. */
1110 #ifdef WINDOWS32
1111 if (getcwd_fs (current_directory, GET_PATH_MAX) == 0)
1112 #else
1113 if (getcwd (current_directory, GET_PATH_MAX) == 0)
1114 #endif
1116 #ifdef HAVE_GETCWD
1117 perror_with_name ("getcwd", "");
1118 #else
1119 error (NILF, "getwd: %s", current_directory);
1120 #endif
1121 current_directory[0] = '\0';
1122 directory_before_chdir = 0;
1124 else
1125 directory_before_chdir = xstrdup (current_directory);
1126 #ifdef __MSDOS__
1127 /* Make sure we will return to the initial directory, come what may. */
1128 atexit (msdos_return_to_initial_directory);
1129 #endif
1131 /* Initialize the special variables. */
1132 define_variable_cname (".VARIABLES", "", o_default, 0)->special = 1;
1133 /* define_variable_cname (".TARGETS", "", o_default, 0)->special = 1; */
1134 define_variable_cname (".RECIPEPREFIX", "", o_default, 0)->special = 1;
1135 define_variable_cname (".SHELLFLAGS", "-c", o_default, 0);
1137 /* Set up .FEATURES
1138 We must do this in multiple calls because define_variable_cname() is
1139 a macro and some compilers (MSVC) don't like conditionals in macros. */
1141 const char *features = "target-specific order-only second-expansion"
1142 " else-if shortest-stem undefine oneshell"
1143 #ifndef NO_ARCHIVES
1144 " archives"
1145 #endif
1146 #ifdef MAKE_JOBSERVER
1147 " jobserver"
1148 #endif
1149 #ifdef MAKE_SYMLINKS
1150 " check-symlink"
1151 #endif
1154 define_variable_cname (".FEATURES", features, o_default, 0);
1157 /* Read in variables from the environment. It is important that this be
1158 done before $(MAKE) is figured out so its definitions will not be
1159 from the environment. */
1161 #ifndef _AMIGA
1163 unsigned int i;
1165 for (i = 0; envp[i] != 0; ++i)
1167 int do_not_define = 0;
1168 char *ep = envp[i];
1170 while (*ep != '\0' && *ep != '=')
1171 ++ep;
1172 #ifdef WINDOWS32
1173 if (!unix_path && strneq(envp[i], "PATH=", 5))
1174 unix_path = ep+1;
1175 else if (!strnicmp(envp[i], "Path=", 5)) {
1176 do_not_define = 1; /* it gets defined after loop exits */
1177 if (!windows32_path)
1178 windows32_path = ep+1;
1180 #endif
1181 /* The result of pointer arithmetic is cast to unsigned int for
1182 machines where ptrdiff_t is a different size that doesn't widen
1183 the same. */
1184 if (!do_not_define)
1186 struct variable *v;
1188 v = define_variable (envp[i], (unsigned int) (ep - envp[i]),
1189 ep + 1, o_env, 1);
1190 /* Force exportation of every variable culled from the
1191 environment. We used to rely on target_environment's
1192 v_default code to do this. But that does not work for the
1193 case where an environment variable is redefined in a makefile
1194 with `override'; it should then still be exported, because it
1195 was originally in the environment. */
1196 v->export = v_export;
1198 /* Another wrinkle is that POSIX says the value of SHELL set in
1199 the makefile won't change the value of SHELL given to
1200 subprocesses. */
1201 if (streq (v->name, "SHELL"))
1203 #ifndef __MSDOS__
1204 v->export = v_noexport;
1205 #endif
1206 shell_var.name = "SHELL";
1207 shell_var.length = 5;
1208 shell_var.value = xstrdup (ep + 1);
1211 /* If MAKE_RESTARTS is set, remember it but don't export it. */
1212 if (streq (v->name, "MAKE_RESTARTS"))
1214 v->export = v_noexport;
1215 restarts = (unsigned int) atoi (ep + 1);
1220 #ifdef WINDOWS32
1221 /* If we didn't find a correctly spelled PATH we define PATH as
1222 * either the first mispelled value or an empty string
1224 if (!unix_path)
1225 define_variable_cname ("PATH", windows32_path ? windows32_path : "",
1226 o_env, 1)->export = v_export;
1227 #endif
1228 #else /* For Amiga, read the ENV: device, ignoring all dirs */
1230 BPTR env, file, old;
1231 char buffer[1024];
1232 int len;
1233 __aligned struct FileInfoBlock fib;
1235 env = Lock ("ENV:", ACCESS_READ);
1236 if (env)
1238 old = CurrentDir (DupLock(env));
1239 Examine (env, &fib);
1241 while (ExNext (env, &fib))
1243 if (fib.fib_DirEntryType < 0) /* File */
1245 /* Define an empty variable. It will be filled in
1246 variable_lookup(). Makes startup quite a bit
1247 faster. */
1248 define_variable (fib.fib_FileName,
1249 strlen (fib.fib_FileName),
1250 "", o_env, 1)->export = v_export;
1253 UnLock (env);
1254 UnLock(CurrentDir(old));
1257 #endif
1259 /* Decode the switches. */
1261 decode_env_switches (STRING_SIZE_TUPLE ("MAKEFLAGS"));
1262 #if 0
1263 /* People write things like:
1264 MFLAGS="CC=gcc -pipe" "CFLAGS=-g"
1265 and we set the -p, -i and -e switches. Doesn't seem quite right. */
1266 decode_env_switches (STRING_SIZE_TUPLE ("MFLAGS"));
1267 #endif
1269 decode_switches (argc, argv, 0);
1271 #ifdef WINDOWS32
1272 if (suspend_flag) {
1273 fprintf(stderr, "%s (pid = %ld)\n", argv[0], GetCurrentProcessId());
1274 fprintf(stderr, _("%s is suspending for 30 seconds..."), argv[0]);
1275 Sleep(30 * 1000);
1276 fprintf(stderr, _("done sleep(30). Continuing.\n"));
1278 #endif
1280 decode_debug_flags ();
1282 /* Set always_make_flag if -B was given and we've not restarted already. */
1283 always_make_flag = always_make_set && (restarts == 0);
1285 /* Print version information. */
1286 if (print_version_flag || print_data_base_flag || ISDB (DB_BASIC))
1288 print_version ();
1290 /* `make --version' is supposed to just print the version and exit. */
1291 if (print_version_flag)
1292 die (0);
1295 #ifndef VMS
1296 /* Set the "MAKE_COMMAND" variable to the name we were invoked with.
1297 (If it is a relative pathname with a slash, prepend our directory name
1298 so the result will run the same program regardless of the current dir.
1299 If it is a name with no slash, we can only hope that PATH did not
1300 find it in the current directory.) */
1301 #ifdef WINDOWS32
1303 * Convert from backslashes to forward slashes for
1304 * programs like sh which don't like them. Shouldn't
1305 * matter if the path is one way or the other for
1306 * CreateProcess().
1308 if (strpbrk(argv[0], "/:\\") ||
1309 strstr(argv[0], "..") ||
1310 strneq(argv[0], "//", 2))
1311 argv[0] = xstrdup(w32ify(argv[0],1));
1312 #else /* WINDOWS32 */
1313 #if defined (__MSDOS__) || defined (__EMX__)
1314 if (strchr (argv[0], '\\'))
1316 char *p;
1318 argv[0] = xstrdup (argv[0]);
1319 for (p = argv[0]; *p; p++)
1320 if (*p == '\\')
1321 *p = '/';
1323 /* If argv[0] is not in absolute form, prepend the current
1324 directory. This can happen when Make is invoked by another DJGPP
1325 program that uses a non-absolute name. */
1326 if (current_directory[0] != '\0'
1327 && argv[0] != 0
1328 && (argv[0][0] != '/' && (argv[0][0] == '\0' || argv[0][1] != ':'))
1329 # ifdef __EMX__
1330 /* do not prepend cwd if argv[0] contains no '/', e.g. "make" */
1331 && (strchr (argv[0], '/') != 0 || strchr (argv[0], '\\') != 0)
1332 # endif
1334 argv[0] = xstrdup (concat (3, current_directory, "/", argv[0]));
1335 #else /* !__MSDOS__ */
1336 if (current_directory[0] != '\0'
1337 && argv[0] != 0 && argv[0][0] != '/' && strchr (argv[0], '/') != 0
1338 #ifdef HAVE_DOS_PATHS
1339 && (argv[0][0] != '\\' && (!argv[0][0] || argv[0][1] != ':'))
1340 && strchr (argv[0], '\\') != 0
1341 #endif
1343 argv[0] = xstrdup (concat (3, current_directory, "/", argv[0]));
1344 #endif /* !__MSDOS__ */
1345 #endif /* WINDOWS32 */
1346 #endif
1348 /* The extra indirection through $(MAKE_COMMAND) is done
1349 for hysterical raisins. */
1350 define_variable_cname ("MAKE_COMMAND", argv[0], o_default, 0);
1351 define_variable_cname ("MAKE", "$(MAKE_COMMAND)", o_default, 1);
1353 if (command_variables != 0)
1355 struct command_variable *cv;
1356 struct variable *v;
1357 unsigned int len = 0;
1358 char *value, *p;
1360 /* Figure out how much space will be taken up by the command-line
1361 variable definitions. */
1362 for (cv = command_variables; cv != 0; cv = cv->next)
1364 v = cv->variable;
1365 len += 2 * strlen (v->name);
1366 if (! v->recursive)
1367 ++len;
1368 ++len;
1369 len += 2 * strlen (v->value);
1370 ++len;
1373 /* Now allocate a buffer big enough and fill it. */
1374 p = value = alloca (len);
1375 for (cv = command_variables; cv != 0; cv = cv->next)
1377 v = cv->variable;
1378 p = quote_for_env (p, v->name);
1379 if (! v->recursive)
1380 *p++ = ':';
1381 *p++ = '=';
1382 p = quote_for_env (p, v->value);
1383 *p++ = ' ';
1385 p[-1] = '\0'; /* Kill the final space and terminate. */
1387 /* Define an unchangeable variable with a name that no POSIX.2
1388 makefile could validly use for its own variable. */
1389 define_variable_cname ("-*-command-variables-*-", value, o_automatic, 0);
1391 /* Define the variable; this will not override any user definition.
1392 Normally a reference to this variable is written into the value of
1393 MAKEFLAGS, allowing the user to override this value to affect the
1394 exported value of MAKEFLAGS. In POSIX-pedantic mode, we cannot
1395 allow the user's setting of MAKEOVERRIDES to affect MAKEFLAGS, so
1396 a reference to this hidden variable is written instead. */
1397 define_variable_cname ("MAKEOVERRIDES", "${-*-command-variables-*-}",
1398 o_env, 1);
1401 /* If there were -C flags, move ourselves about. */
1402 if (directories != 0)
1404 unsigned int i;
1405 for (i = 0; directories->list[i] != 0; ++i)
1407 const char *dir = directories->list[i];
1408 #ifdef WINDOWS32
1409 /* WINDOWS32 chdir() doesn't work if the directory has a trailing '/'
1410 But allow -C/ just in case someone wants that. */
1412 char *p = (char *)dir + strlen (dir) - 1;
1413 while (p > dir && (p[0] == '/' || p[0] == '\\'))
1414 --p;
1415 p[1] = '\0';
1417 #endif
1418 if (chdir (dir) < 0)
1419 pfatal_with_name (dir);
1423 #ifdef WINDOWS32
1425 * THIS BLOCK OF CODE MUST COME AFTER chdir() CALL ABOVE IN ORDER
1426 * TO NOT CONFUSE THE DEPENDENCY CHECKING CODE IN implicit.c.
1428 * The functions in dir.c can incorrectly cache information for "."
1429 * before we have changed directory and this can cause file
1430 * lookups to fail because the current directory (.) was pointing
1431 * at the wrong place when it was first evaluated.
1433 no_default_sh_exe = !find_and_set_default_shell(NULL);
1435 #endif /* WINDOWS32 */
1436 /* Figure out the level of recursion. */
1438 struct variable *v = lookup_variable (STRING_SIZE_TUPLE (MAKELEVEL_NAME));
1439 if (v != 0 && v->value[0] != '\0' && v->value[0] != '-')
1440 makelevel = (unsigned int) atoi (v->value);
1441 else
1442 makelevel = 0;
1445 /* Except under -s, always do -w in sub-makes and under -C. */
1446 if (!silent_flag && (directories != 0 || makelevel > 0))
1447 print_directory_flag = 1;
1449 /* Let the user disable that with --no-print-directory. */
1450 if (inhibit_print_directory_flag)
1451 print_directory_flag = 0;
1453 /* If -R was given, set -r too (doesn't make sense otherwise!) */
1454 if (no_builtin_variables_flag)
1455 no_builtin_rules_flag = 1;
1457 /* Construct the list of include directories to search. */
1459 construct_include_path (include_directories == 0
1460 ? 0 : include_directories->list);
1462 /* Figure out where we are now, after chdir'ing. */
1463 if (directories == 0)
1464 /* We didn't move, so we're still in the same place. */
1465 starting_directory = current_directory;
1466 else
1468 #ifdef WINDOWS32
1469 if (getcwd_fs (current_directory, GET_PATH_MAX) == 0)
1470 #else
1471 if (getcwd (current_directory, GET_PATH_MAX) == 0)
1472 #endif
1474 #ifdef HAVE_GETCWD
1475 perror_with_name ("getcwd", "");
1476 #else
1477 error (NILF, "getwd: %s", current_directory);
1478 #endif
1479 starting_directory = 0;
1481 else
1482 starting_directory = current_directory;
1485 define_variable_cname ("CURDIR", current_directory, o_file, 0);
1487 /* Read any stdin makefiles into temporary files. */
1489 if (makefiles != 0)
1491 unsigned int i;
1492 for (i = 0; i < makefiles->idx; ++i)
1493 if (makefiles->list[i][0] == '-' && makefiles->list[i][1] == '\0')
1495 /* This makefile is standard input. Since we may re-exec
1496 and thus re-read the makefiles, we read standard input
1497 into a temporary file and read from that. */
1498 FILE *outfile;
1499 char *template, *tmpdir;
1501 if (stdin_nm)
1502 fatal (NILF, _("Makefile from standard input specified twice."));
1504 #ifdef VMS
1505 # define DEFAULT_TMPDIR "sys$scratch:"
1506 #else
1507 # ifdef P_tmpdir
1508 # define DEFAULT_TMPDIR P_tmpdir
1509 # else
1510 # define DEFAULT_TMPDIR "/tmp"
1511 # endif
1512 #endif
1513 #define DEFAULT_TMPFILE "GmXXXXXX"
1515 if (((tmpdir = getenv ("TMPDIR")) == NULL || *tmpdir == '\0')
1516 #if defined (__MSDOS__) || defined (WINDOWS32) || defined (__EMX__)
1517 /* These are also used commonly on these platforms. */
1518 && ((tmpdir = getenv ("TEMP")) == NULL || *tmpdir == '\0')
1519 && ((tmpdir = getenv ("TMP")) == NULL || *tmpdir == '\0')
1520 #endif
1522 tmpdir = DEFAULT_TMPDIR;
1524 template = alloca (strlen (tmpdir) + sizeof (DEFAULT_TMPFILE) + 1);
1525 strcpy (template, tmpdir);
1527 #ifdef HAVE_DOS_PATHS
1528 if (strchr ("/\\", template[strlen (template) - 1]) == NULL)
1529 strcat (template, "/");
1530 #else
1531 # ifndef VMS
1532 if (template[strlen (template) - 1] != '/')
1533 strcat (template, "/");
1534 # endif /* !VMS */
1535 #endif /* !HAVE_DOS_PATHS */
1537 strcat (template, DEFAULT_TMPFILE);
1538 outfile = open_tmpfile (&stdin_nm, template);
1539 if (outfile == 0)
1540 pfatal_with_name (_("fopen (temporary file)"));
1541 while (!feof (stdin) && ! ferror (stdin))
1543 char buf[2048];
1544 unsigned int n = fread (buf, 1, sizeof (buf), stdin);
1545 if (n > 0 && fwrite (buf, 1, n, outfile) != n)
1546 pfatal_with_name (_("fwrite (temporary file)"));
1548 fclose (outfile);
1550 /* Replace the name that read_all_makefiles will
1551 see with the name of the temporary file. */
1552 makefiles->list[i] = strcache_add (stdin_nm);
1554 /* Make sure the temporary file will not be remade. */
1556 struct file *f = enter_file (strcache_add (stdin_nm));
1557 f->updated = 1;
1558 f->update_status = 0;
1559 f->command_state = cs_finished;
1560 /* Can't be intermediate, or it'll be removed too early for
1561 make re-exec. */
1562 f->intermediate = 0;
1563 f->dontcare = 0;
1568 #ifndef __EMX__ /* Don't use a SIGCHLD handler for OS/2 */
1569 #if defined(MAKE_JOBSERVER) || !defined(HAVE_WAIT_NOHANG)
1570 /* Set up to handle children dying. This must be done before
1571 reading in the makefiles so that `shell' function calls will work.
1573 If we don't have a hanging wait we have to fall back to old, broken
1574 functionality here and rely on the signal handler and counting
1575 children.
1577 If we're using the jobs pipe we need a signal handler so that
1578 SIGCHLD is not ignored; we need it to interrupt the read(2) of the
1579 jobserver pipe in job.c if we're waiting for a token.
1581 If none of these are true, we don't need a signal handler at all. */
1583 RETSIGTYPE child_handler (int sig);
1584 # if defined SIGCHLD
1585 bsd_signal (SIGCHLD, child_handler);
1586 # endif
1587 # if defined SIGCLD && SIGCLD != SIGCHLD
1588 bsd_signal (SIGCLD, child_handler);
1589 # endif
1591 #endif
1592 #endif
1594 /* Let the user send us SIGUSR1 to toggle the -d flag during the run. */
1595 #ifdef SIGUSR1
1596 bsd_signal (SIGUSR1, debug_signal_handler);
1597 #endif
1599 /* Define the initial list of suffixes for old-style rules. */
1601 set_default_suffixes ();
1603 /* Define the file rules for the built-in suffix rules. These will later
1604 be converted into pattern rules. We used to do this in
1605 install_default_implicit_rules, but since that happens after reading
1606 makefiles, it results in the built-in pattern rules taking precedence
1607 over makefile-specified suffix rules, which is wrong. */
1609 install_default_suffix_rules ();
1611 /* Define some internal and special variables. */
1613 define_automatic_variables ();
1615 /* Set up the MAKEFLAGS and MFLAGS variables
1616 so makefiles can look at them. */
1618 define_makeflags (0, 0);
1620 /* Define the default variables. */
1621 define_default_variables ();
1623 default_file = enter_file (strcache_add (".DEFAULT"));
1625 default_goal_var = define_variable_cname (".DEFAULT_GOAL", "", o_file, 0);
1627 /* Evaluate all strings provided with --eval.
1628 Also set up the $(-*-eval-flags-*-) variable. */
1630 if (eval_strings)
1632 char *p, *value;
1633 unsigned int i;
1634 unsigned int len = sizeof ("--eval=") * eval_strings->idx;
1636 for (i = 0; i < eval_strings->idx; ++i)
1638 p = xstrdup (eval_strings->list[i]);
1639 len += 2 * strlen (p);
1640 eval_buffer (p);
1641 free (p);
1644 p = value = alloca (len);
1645 for (i = 0; i < eval_strings->idx; ++i)
1647 strcpy (p, "--eval=");
1648 p += strlen (p);
1649 p = quote_for_env (p, eval_strings->list[i]);
1650 *(p++) = ' ';
1652 p[-1] = '\0';
1654 define_variable_cname ("-*-eval-flags-*-", value, o_automatic, 0);
1657 /* Read all the makefiles. */
1659 read_makefiles
1660 = read_all_makefiles (makefiles == 0 ? 0 : makefiles->list);
1662 #ifdef WINDOWS32
1663 /* look one last time after reading all Makefiles */
1664 if (no_default_sh_exe)
1665 no_default_sh_exe = !find_and_set_default_shell(NULL);
1666 #endif /* WINDOWS32 */
1668 #if defined (__MSDOS__) || defined (__EMX__)
1669 /* We need to know what kind of shell we will be using. */
1671 extern int _is_unixy_shell (const char *_path);
1672 struct variable *shv = lookup_variable (STRING_SIZE_TUPLE ("SHELL"));
1673 extern int unixy_shell;
1674 extern char *default_shell;
1676 if (shv && *shv->value)
1678 char *shell_path = recursively_expand(shv);
1680 if (shell_path && _is_unixy_shell (shell_path))
1681 unixy_shell = 1;
1682 else
1683 unixy_shell = 0;
1684 if (shell_path)
1685 default_shell = shell_path;
1688 #endif /* __MSDOS__ || __EMX__ */
1690 /* Decode switches again, in case the variables were set by the makefile. */
1691 decode_env_switches (STRING_SIZE_TUPLE ("MAKEFLAGS"));
1692 #if 0
1693 decode_env_switches (STRING_SIZE_TUPLE ("MFLAGS"));
1694 #endif
1696 #if defined (__MSDOS__) || defined (__EMX__)
1697 if (job_slots != 1
1698 # ifdef __EMX__
1699 && _osmode != OS2_MODE /* turn off -j if we are in DOS mode */
1700 # endif
1703 error (NILF,
1704 _("Parallel jobs (-j) are not supported on this platform."));
1705 error (NILF, _("Resetting to single job (-j1) mode."));
1706 job_slots = 1;
1708 #endif
1710 #ifdef MAKE_JOBSERVER
1711 /* If the jobserver-fds option is seen, make sure that -j is reasonable. */
1713 if (jobserver_fds)
1715 const char *cp;
1716 unsigned int ui;
1718 for (ui=1; ui < jobserver_fds->idx; ++ui)
1719 if (!streq (jobserver_fds->list[0], jobserver_fds->list[ui]))
1720 fatal (NILF, _("internal error: multiple --jobserver-fds options"));
1722 /* Now parse the fds string and make sure it has the proper format. */
1724 cp = jobserver_fds->list[0];
1726 if (sscanf (cp, "%d,%d", &job_fds[0], &job_fds[1]) != 2)
1727 fatal (NILF,
1728 _("internal error: invalid --jobserver-fds string `%s'"), cp);
1730 DB (DB_JOBS,
1731 (_("Jobserver client (fds %d,%d)\n"), job_fds[0], job_fds[1]));
1733 /* The combination of a pipe + !job_slots means we're using the
1734 jobserver. If !job_slots and we don't have a pipe, we can start
1735 infinite jobs. If we see both a pipe and job_slots >0 that means the
1736 user set -j explicitly. This is broken; in this case obey the user
1737 (ignore the jobserver pipe for this make) but print a message. */
1739 if (job_slots > 0)
1740 error (NILF,
1741 _("warning: -jN forced in submake: disabling jobserver mode."));
1743 /* Create a duplicate pipe, that will be closed in the SIGCHLD
1744 handler. If this fails with EBADF, the parent has closed the pipe
1745 on us because it didn't think we were a submake. If so, print a
1746 warning then default to -j1. */
1748 else if ((job_rfd = dup (job_fds[0])) < 0)
1750 if (errno != EBADF)
1751 pfatal_with_name (_("dup jobserver"));
1753 error (NILF,
1754 _("warning: jobserver unavailable: using -j1. Add `+' to parent make rule."));
1755 job_slots = 1;
1758 if (job_slots > 0)
1760 close (job_fds[0]);
1761 close (job_fds[1]);
1762 job_fds[0] = job_fds[1] = -1;
1763 free (jobserver_fds->list);
1764 free (jobserver_fds);
1765 jobserver_fds = 0;
1769 /* If we have >1 slot but no jobserver-fds, then we're a top-level make.
1770 Set up the pipe and install the fds option for our children. */
1772 if (job_slots > 1)
1774 char *cp;
1775 char c = '+';
1777 if (pipe (job_fds) < 0 || (job_rfd = dup (job_fds[0])) < 0)
1778 pfatal_with_name (_("creating jobs pipe"));
1780 /* Every make assumes that it always has one job it can run. For the
1781 submakes it's the token they were given by their parent. For the
1782 top make, we just subtract one from the number the user wants. We
1783 want job_slots to be 0 to indicate we're using the jobserver. */
1785 master_job_slots = job_slots;
1787 while (--job_slots)
1789 int r;
1791 EINTRLOOP (r, write (job_fds[1], &c, 1));
1792 if (r != 1)
1793 pfatal_with_name (_("init jobserver pipe"));
1796 /* Fill in the jobserver_fds struct for our children. */
1798 cp = xmalloc ((sizeof ("1024")*2)+1);
1799 sprintf (cp, "%d,%d", job_fds[0], job_fds[1]);
1801 jobserver_fds = (struct stringlist *)
1802 xmalloc (sizeof (struct stringlist));
1803 jobserver_fds->list = xmalloc (sizeof (char *));
1804 jobserver_fds->list[0] = cp;
1805 jobserver_fds->idx = 1;
1806 jobserver_fds->max = 1;
1808 #endif
1810 #ifndef MAKE_SYMLINKS
1811 if (check_symlink_flag)
1813 error (NILF, _("Symbolic links not supported: disabling -L."));
1814 check_symlink_flag = 0;
1816 #endif
1818 /* Set up MAKEFLAGS and MFLAGS again, so they will be right. */
1820 define_makeflags (1, 0);
1822 /* Make each `struct dep' point at the `struct file' for the file
1823 depended on. Also do magic for special targets. */
1825 snap_deps ();
1827 /* Convert old-style suffix rules to pattern rules. It is important to
1828 do this before installing the built-in pattern rules below, so that
1829 makefile-specified suffix rules take precedence over built-in pattern
1830 rules. */
1832 convert_to_pattern ();
1834 /* Install the default implicit pattern rules.
1835 This used to be done before reading the makefiles.
1836 But in that case, built-in pattern rules were in the chain
1837 before user-defined ones, so they matched first. */
1839 install_default_implicit_rules ();
1841 /* Compute implicit rule limits. */
1843 count_implicit_rule_limits ();
1845 /* Construct the listings of directories in VPATH lists. */
1847 build_vpath_lists ();
1849 /* Mark files given with -o flags as very old and as having been updated
1850 already, and files given with -W flags as brand new (time-stamp as far
1851 as possible into the future). If restarts is set we'll do -W later. */
1853 if (old_files != 0)
1855 const char **p;
1856 for (p = old_files->list; *p != 0; ++p)
1858 struct file *f = enter_file (*p);
1859 f->last_mtime = f->mtime_before_update = OLD_MTIME;
1860 f->updated = 1;
1861 f->update_status = 0;
1862 f->command_state = cs_finished;
1866 if (!restarts && new_files != 0)
1868 const char **p;
1869 for (p = new_files->list; *p != 0; ++p)
1871 struct file *f = enter_file (*p);
1872 f->last_mtime = f->mtime_before_update = NEW_MTIME;
1876 /* Initialize the remote job module. */
1877 remote_setup ();
1879 if (read_makefiles != 0)
1881 /* Update any makefiles if necessary. */
1883 FILE_TIMESTAMP *makefile_mtimes = 0;
1884 unsigned int mm_idx = 0;
1885 char **nargv;
1886 int nargc;
1887 int orig_db_level = db_level;
1888 int status;
1890 if (! ISDB (DB_MAKEFILES))
1891 db_level = DB_NONE;
1893 DB (DB_BASIC, (_("Updating makefiles....\n")));
1895 /* Remove any makefiles we don't want to try to update.
1896 Also record the current modtimes so we can compare them later. */
1898 register struct dep *d, *last;
1899 last = 0;
1900 d = read_makefiles;
1901 while (d != 0)
1903 struct file *f = d->file;
1904 if (f->double_colon)
1905 for (f = f->double_colon; f != NULL; f = f->prev)
1907 if (f->deps == 0 && f->cmds != 0)
1909 /* This makefile is a :: target with commands, but
1910 no dependencies. So, it will always be remade.
1911 This might well cause an infinite loop, so don't
1912 try to remake it. (This will only happen if
1913 your makefiles are written exceptionally
1914 stupidly; but if you work for Athena, that's how
1915 you write your makefiles.) */
1917 DB (DB_VERBOSE,
1918 (_("Makefile `%s' might loop; not remaking it.\n"),
1919 f->name));
1921 if (last == 0)
1922 read_makefiles = d->next;
1923 else
1924 last->next = d->next;
1926 /* Free the storage. */
1927 free_dep (d);
1929 d = last == 0 ? read_makefiles : last->next;
1931 break;
1934 if (f == NULL || !f->double_colon)
1936 makefile_mtimes = xrealloc (makefile_mtimes,
1937 (mm_idx+1)
1938 * sizeof (FILE_TIMESTAMP));
1939 makefile_mtimes[mm_idx++] = file_mtime_no_search (d->file);
1940 last = d;
1941 d = d->next;
1946 /* Set up `MAKEFLAGS' specially while remaking makefiles. */
1947 define_makeflags (1, 1);
1949 rebuilding_makefiles = 1;
1950 status = update_goal_chain (read_makefiles);
1951 rebuilding_makefiles = 0;
1953 switch (status)
1955 case 1:
1956 /* The only way this can happen is if the user specified -q and asked
1957 * for one of the makefiles to be remade as a target on the command
1958 * line. Since we're not actually updating anything with -q we can
1959 * treat this as "did nothing".
1962 case -1:
1963 /* Did nothing. */
1964 break;
1966 case 2:
1967 /* Failed to update. Figure out if we care. */
1969 /* Nonzero if any makefile was successfully remade. */
1970 int any_remade = 0;
1971 /* Nonzero if any makefile we care about failed
1972 in updating or could not be found at all. */
1973 int any_failed = 0;
1974 unsigned int i;
1975 struct dep *d;
1977 for (i = 0, d = read_makefiles; d != 0; ++i, d = d->next)
1979 /* Reset the considered flag; we may need to look at the file
1980 again to print an error. */
1981 d->file->considered = 0;
1983 if (d->file->updated)
1985 /* This makefile was updated. */
1986 if (d->file->update_status == 0)
1988 /* It was successfully updated. */
1989 any_remade |= (file_mtime_no_search (d->file)
1990 != makefile_mtimes[i]);
1992 else if (! (d->changed & RM_DONTCARE))
1994 FILE_TIMESTAMP mtime;
1995 /* The update failed and this makefile was not
1996 from the MAKEFILES variable, so we care. */
1997 error (NILF, _("Failed to remake makefile `%s'."),
1998 d->file->name);
1999 mtime = file_mtime_no_search (d->file);
2000 any_remade |= (mtime != NONEXISTENT_MTIME
2001 && mtime != makefile_mtimes[i]);
2002 makefile_status = MAKE_FAILURE;
2005 else
2006 /* This makefile was not found at all. */
2007 if (! (d->changed & RM_DONTCARE))
2009 /* This is a makefile we care about. See how much. */
2010 if (d->changed & RM_INCLUDED)
2011 /* An included makefile. We don't need
2012 to die, but we do want to complain. */
2013 error (NILF,
2014 _("Included makefile `%s' was not found."),
2015 dep_name (d));
2016 else
2018 /* A normal makefile. We must die later. */
2019 error (NILF, _("Makefile `%s' was not found"),
2020 dep_name (d));
2021 any_failed = 1;
2025 /* Reset this to empty so we get the right error message below. */
2026 read_makefiles = 0;
2028 if (any_remade)
2029 goto re_exec;
2030 if (any_failed)
2031 die (2);
2032 break;
2035 case 0:
2036 re_exec:
2037 /* Updated successfully. Re-exec ourselves. */
2039 remove_intermediates (0);
2041 if (print_data_base_flag)
2042 print_data_base ();
2044 log_working_directory (0);
2046 clean_jobserver (0);
2048 if (makefiles != 0)
2050 /* These names might have changed. */
2051 int i, j = 0;
2052 for (i = 1; i < argc; ++i)
2053 if (strneq (argv[i], "-f", 2)) /* XXX */
2055 if (argv[i][2] == '\0')
2056 /* This cast is OK since we never modify argv. */
2057 argv[++i] = (char *) makefiles->list[j];
2058 else
2059 argv[i] = xstrdup (concat (2, "-f", makefiles->list[j]));
2060 ++j;
2064 /* Add -o option for the stdin temporary file, if necessary. */
2065 nargc = argc;
2066 if (stdin_nm)
2068 nargv = xmalloc ((nargc + 2) * sizeof (char *));
2069 memcpy (nargv, argv, argc * sizeof (char *));
2070 nargv[nargc++] = xstrdup (concat (2, "-o", stdin_nm));
2071 nargv[nargc] = 0;
2073 else
2074 nargv = argv;
2076 if (directories != 0 && directories->idx > 0)
2078 int bad = 1;
2079 if (directory_before_chdir != 0)
2081 if (chdir (directory_before_chdir) < 0)
2082 perror_with_name ("chdir", "");
2083 else
2084 bad = 0;
2086 if (bad)
2087 fatal (NILF, _("Couldn't change back to original directory."));
2090 ++restarts;
2092 /* Reset makeflags in case they were changed. */
2094 const char *pv = define_makeflags (1, 1);
2095 char *p = alloca (sizeof ("MAKEFLAGS=") + strlen (pv) + 1);
2096 sprintf (p, "MAKEFLAGS=%s", pv);
2097 putenv (allocated_variable_expand (p));
2100 if (ISDB (DB_BASIC))
2102 char **p;
2103 printf (_("Re-executing[%u]:"), restarts);
2104 for (p = nargv; *p != 0; ++p)
2105 printf (" %s", *p);
2106 putchar ('\n');
2109 #ifndef _AMIGA
2111 char **p;
2112 for (p = environ; *p != 0; ++p)
2114 if (strneq (*p, MAKELEVEL_NAME, MAKELEVEL_LENGTH)
2115 && (*p)[MAKELEVEL_LENGTH] == '=')
2117 *p = alloca (40);
2118 sprintf (*p, "%s=%u", MAKELEVEL_NAME, makelevel);
2120 if (strneq (*p, "MAKE_RESTARTS=", 14))
2122 *p = alloca (40);
2123 sprintf (*p, "MAKE_RESTARTS=%u", restarts);
2124 restarts = 0;
2128 #else /* AMIGA */
2130 char buffer[256];
2132 sprintf (buffer, "%u", makelevel);
2133 SetVar (MAKELEVEL_NAME, buffer, -1, GVF_GLOBAL_ONLY);
2135 sprintf (buffer, "%u", restarts);
2136 SetVar ("MAKE_RESTARTS", buffer, -1, GVF_GLOBAL_ONLY);
2137 restarts = 0;
2139 #endif
2141 /* If we didn't set the restarts variable yet, add it. */
2142 if (restarts)
2144 char *b = alloca (40);
2145 sprintf (b, "MAKE_RESTARTS=%u", restarts);
2146 putenv (b);
2149 fflush (stdout);
2150 fflush (stderr);
2152 /* Close the dup'd jobserver pipe if we opened one. */
2153 if (job_rfd >= 0)
2154 close (job_rfd);
2156 #ifdef _AMIGA
2157 exec_command (nargv);
2158 exit (0);
2159 #elif defined (__EMX__)
2161 /* It is not possible to use execve() here because this
2162 would cause the parent process to be terminated with
2163 exit code 0 before the child process has been terminated.
2164 Therefore it may be the best solution simply to spawn the
2165 child process including all file handles and to wait for its
2166 termination. */
2167 int pid;
2168 int status;
2169 pid = child_execute_job (0, 1, nargv, environ);
2171 /* is this loop really necessary? */
2172 do {
2173 pid = wait (&status);
2174 } while (pid <= 0);
2175 /* use the exit code of the child process */
2176 exit (WIFEXITED(status) ? WEXITSTATUS(status) : EXIT_FAILURE);
2178 #else
2179 exec_command (nargv, environ);
2180 #endif
2181 /* NOTREACHED */
2183 default:
2184 #define BOGUS_UPDATE_STATUS 0
2185 assert (BOGUS_UPDATE_STATUS);
2186 break;
2189 db_level = orig_db_level;
2191 /* Free the makefile mtimes (if we allocated any). */
2192 if (makefile_mtimes)
2193 free (makefile_mtimes);
2196 /* Set up `MAKEFLAGS' again for the normal targets. */
2197 define_makeflags (1, 0);
2199 /* Set always_make_flag if -B was given. */
2200 always_make_flag = always_make_set;
2202 /* If restarts is set we haven't set up -W files yet, so do that now. */
2203 if (restarts && new_files != 0)
2205 const char **p;
2206 for (p = new_files->list; *p != 0; ++p)
2208 struct file *f = enter_file (*p);
2209 f->last_mtime = f->mtime_before_update = NEW_MTIME;
2213 /* If there is a temp file from reading a makefile from stdin, get rid of
2214 it now. */
2215 if (stdin_nm && unlink (stdin_nm) < 0 && errno != ENOENT)
2216 perror_with_name (_("unlink (temporary file): "), stdin_nm);
2218 /* If there were no command-line goals, use the default. */
2219 if (goals == 0)
2221 char *p;
2223 if (default_goal_var->recursive)
2224 p = variable_expand (default_goal_var->value);
2225 else
2227 p = variable_buffer_output (variable_buffer, default_goal_var->value,
2228 strlen (default_goal_var->value));
2229 *p = '\0';
2230 p = variable_buffer;
2233 if (*p != '\0')
2235 struct file *f = lookup_file (p);
2237 /* If .DEFAULT_GOAL is a non-existent target, enter it into the
2238 table and let the standard logic sort it out. */
2239 if (f == 0)
2241 struct nameseq *ns;
2243 ns = PARSE_FILE_SEQ (&p, struct nameseq, '\0', NULL, 0);
2244 if (ns)
2246 /* .DEFAULT_GOAL should contain one target. */
2247 if (ns->next != 0)
2248 fatal (NILF, _(".DEFAULT_GOAL contains more than one target"));
2250 f = enter_file (strcache_add (ns->name));
2252 ns->name = 0; /* It was reused by enter_file(). */
2253 free_ns_chain (ns);
2257 if (f)
2259 goals = alloc_dep ();
2260 goals->file = f;
2264 else
2265 lastgoal->next = 0;
2268 if (!goals)
2270 if (read_makefiles == 0)
2271 fatal (NILF, _("No targets specified and no makefile found"));
2273 fatal (NILF, _("No targets"));
2276 /* Update the goals. */
2278 DB (DB_BASIC, (_("Updating goal targets....\n")));
2281 int status;
2283 switch (update_goal_chain (goals))
2285 case -1:
2286 /* Nothing happened. */
2287 case 0:
2288 /* Updated successfully. */
2289 status = makefile_status;
2290 break;
2291 case 1:
2292 /* We are under -q and would run some commands. */
2293 status = MAKE_TROUBLE;
2294 break;
2295 case 2:
2296 /* Updating failed. POSIX.2 specifies exit status >1 for this;
2297 but in VMS, there is only success and failure. */
2298 status = MAKE_FAILURE;
2299 break;
2300 default:
2301 abort ();
2304 /* If we detected some clock skew, generate one last warning */
2305 if (clock_skew_detected)
2306 error (NILF,
2307 _("warning: Clock skew detected. Your build may be incomplete."));
2309 /* Exit. */
2310 die (status);
2313 /* NOTREACHED */
2314 return 0;
2317 /* Parsing of arguments, decoding of switches. */
2319 static char options[1 + sizeof (switches) / sizeof (switches[0]) * 3];
2320 static struct option long_options[(sizeof (switches) / sizeof (switches[0])) +
2321 (sizeof (long_option_aliases) /
2322 sizeof (long_option_aliases[0]))];
2324 /* Fill in the string and vector for getopt. */
2325 static void
2326 init_switches (void)
2328 char *p;
2329 unsigned int c;
2330 unsigned int i;
2332 if (options[0] != '\0')
2333 /* Already done. */
2334 return;
2336 p = options;
2338 /* Return switch and non-switch args in order, regardless of
2339 POSIXLY_CORRECT. Non-switch args are returned as option 1. */
2340 *p++ = '-';
2342 for (i = 0; switches[i].c != '\0'; ++i)
2344 long_options[i].name = (switches[i].long_name == 0 ? "" :
2345 switches[i].long_name);
2346 long_options[i].flag = 0;
2347 long_options[i].val = switches[i].c;
2348 if (short_option (switches[i].c))
2349 *p++ = switches[i].c;
2350 switch (switches[i].type)
2352 case flag:
2353 case flag_off:
2354 case ignore:
2355 long_options[i].has_arg = no_argument;
2356 break;
2358 case string:
2359 case filename:
2360 case positive_int:
2361 case floating:
2362 if (short_option (switches[i].c))
2363 *p++ = ':';
2364 if (switches[i].noarg_value != 0)
2366 if (short_option (switches[i].c))
2367 *p++ = ':';
2368 long_options[i].has_arg = optional_argument;
2370 else
2371 long_options[i].has_arg = required_argument;
2372 break;
2375 *p = '\0';
2376 for (c = 0; c < (sizeof (long_option_aliases) /
2377 sizeof (long_option_aliases[0]));
2378 ++c)
2379 long_options[i++] = long_option_aliases[c];
2380 long_options[i].name = 0;
2383 static void
2384 handle_non_switch_argument (char *arg, int env)
2386 /* Non-option argument. It might be a variable definition. */
2387 struct variable *v;
2388 if (arg[0] == '-' && arg[1] == '\0')
2389 /* Ignore plain `-' for compatibility. */
2390 return;
2391 v = try_variable_definition (0, arg, o_command, 0);
2392 if (v != 0)
2394 /* It is indeed a variable definition. If we don't already have this
2395 one, record a pointer to the variable for later use in
2396 define_makeflags. */
2397 struct command_variable *cv;
2399 for (cv = command_variables; cv != 0; cv = cv->next)
2400 if (cv->variable == v)
2401 break;
2403 if (! cv) {
2404 cv = xmalloc (sizeof (*cv));
2405 cv->variable = v;
2406 cv->next = command_variables;
2407 command_variables = cv;
2410 else if (! env)
2412 /* Not an option or variable definition; it must be a goal
2413 target! Enter it as a file and add it to the dep chain of
2414 goals. */
2415 struct file *f = enter_file (strcache_add (expand_command_line_file (arg)));
2416 f->cmd_target = 1;
2418 if (goals == 0)
2420 goals = alloc_dep ();
2421 lastgoal = goals;
2423 else
2425 lastgoal->next = alloc_dep ();
2426 lastgoal = lastgoal->next;
2429 lastgoal->file = f;
2432 /* Add this target name to the MAKECMDGOALS variable. */
2433 struct variable *gv;
2434 const char *value;
2436 gv = lookup_variable (STRING_SIZE_TUPLE ("MAKECMDGOALS"));
2437 if (gv == 0)
2438 value = f->name;
2439 else
2441 /* Paste the old and new values together */
2442 unsigned int oldlen, newlen;
2443 char *vp;
2445 oldlen = strlen (gv->value);
2446 newlen = strlen (f->name);
2447 vp = alloca (oldlen + 1 + newlen + 1);
2448 memcpy (vp, gv->value, oldlen);
2449 vp[oldlen] = ' ';
2450 memcpy (&vp[oldlen + 1], f->name, newlen + 1);
2451 value = vp;
2453 define_variable_cname ("MAKECMDGOALS", value, o_default, 0);
2458 /* Print a nice usage method. */
2460 static void
2461 print_usage (int bad)
2463 const char *const *cpp;
2464 FILE *usageto;
2466 if (print_version_flag)
2467 print_version ();
2469 usageto = bad ? stderr : stdout;
2471 fprintf (usageto, _("Usage: %s [options] [target] ...\n"), program);
2473 for (cpp = usage; *cpp; ++cpp)
2474 fputs (_(*cpp), usageto);
2476 if (!remote_description || *remote_description == '\0')
2477 fprintf (usageto, _("\nThis program built for %s\n"), make_host);
2478 else
2479 fprintf (usageto, _("\nThis program built for %s (%s)\n"),
2480 make_host, remote_description);
2482 fprintf (usageto, _("Report bugs to <bug-make@gnu.org>\n"));
2485 /* Decode switches from ARGC and ARGV.
2486 They came from the environment if ENV is nonzero. */
2488 static void
2489 decode_switches (int argc, char **argv, int env)
2491 int bad = 0;
2492 register const struct command_switch *cs;
2493 register struct stringlist *sl;
2494 register int c;
2496 /* getopt does most of the parsing for us.
2497 First, get its vectors set up. */
2499 init_switches ();
2501 /* Let getopt produce error messages for the command line,
2502 but not for options from the environment. */
2503 opterr = !env;
2504 /* Reset getopt's state. */
2505 optind = 0;
2507 while (optind < argc)
2509 /* Parse the next argument. */
2510 c = getopt_long (argc, argv, options, long_options, (int *) 0);
2511 if (c == EOF)
2512 /* End of arguments, or "--" marker seen. */
2513 break;
2514 else if (c == 1)
2515 /* An argument not starting with a dash. */
2516 handle_non_switch_argument (optarg, env);
2517 else if (c == '?')
2518 /* Bad option. We will print a usage message and die later.
2519 But continue to parse the other options so the user can
2520 see all he did wrong. */
2521 bad = 1;
2522 else
2523 for (cs = switches; cs->c != '\0'; ++cs)
2524 if (cs->c == c)
2526 /* Whether or not we will actually do anything with
2527 this switch. We test this individually inside the
2528 switch below rather than just once outside it, so that
2529 options which are to be ignored still consume args. */
2530 int doit = !env || cs->env;
2532 switch (cs->type)
2534 default:
2535 abort ();
2537 case ignore:
2538 break;
2540 case flag:
2541 case flag_off:
2542 if (doit)
2543 *(int *) cs->value_ptr = cs->type == flag;
2544 break;
2546 case string:
2547 case filename:
2548 if (!doit)
2549 break;
2551 if (optarg == 0)
2552 optarg = xstrdup (cs->noarg_value);
2553 else if (*optarg == '\0')
2555 char opt[2] = "c";
2556 const char *op = opt;
2558 if (short_option (cs->c))
2559 opt[0] = cs->c;
2560 else
2561 op = cs->long_name;
2563 error (NILF, _("the `%s%s' option requires a non-empty string argument"),
2564 short_option (cs->c) ? "-" : "--", op);
2565 bad = 1;
2568 sl = *(struct stringlist **) cs->value_ptr;
2569 if (sl == 0)
2571 sl = (struct stringlist *)
2572 xmalloc (sizeof (struct stringlist));
2573 sl->max = 5;
2574 sl->idx = 0;
2575 sl->list = xmalloc (5 * sizeof (char *));
2576 *(struct stringlist **) cs->value_ptr = sl;
2578 else if (sl->idx == sl->max - 1)
2580 sl->max += 5;
2581 /* MSVC erroneously warns without a cast here. */
2582 sl->list = xrealloc ((void *)sl->list,
2583 sl->max * sizeof (char *));
2585 if (cs->type == filename)
2586 sl->list[sl->idx++] = expand_command_line_file (optarg);
2587 else
2588 sl->list[sl->idx++] = optarg;
2589 sl->list[sl->idx] = 0;
2590 break;
2592 case positive_int:
2593 /* See if we have an option argument; if we do require that
2594 it's all digits, not something like "10foo". */
2595 if (optarg == 0 && argc > optind)
2597 const char *cp;
2598 for (cp=argv[optind]; ISDIGIT (cp[0]); ++cp)
2600 if (cp[0] == '\0')
2601 optarg = argv[optind++];
2604 if (!doit)
2605 break;
2607 if (optarg != 0)
2609 int i = atoi (optarg);
2610 const char *cp;
2612 /* Yes, I realize we're repeating this in some cases. */
2613 for (cp = optarg; ISDIGIT (cp[0]); ++cp)
2616 if (i < 1 || cp[0] != '\0')
2618 error (NILF, _("the `-%c' option requires a positive integral argument"),
2619 cs->c);
2620 bad = 1;
2622 else
2623 *(unsigned int *) cs->value_ptr = i;
2625 else
2626 *(unsigned int *) cs->value_ptr
2627 = *(unsigned int *) cs->noarg_value;
2628 break;
2630 #ifndef NO_FLOAT
2631 case floating:
2632 if (optarg == 0 && optind < argc
2633 && (ISDIGIT (argv[optind][0]) || argv[optind][0] == '.'))
2634 optarg = argv[optind++];
2636 if (doit)
2637 *(double *) cs->value_ptr
2638 = (optarg != 0 ? atof (optarg)
2639 : *(double *) cs->noarg_value);
2641 break;
2642 #endif
2645 /* We've found the switch. Stop looking. */
2646 break;
2650 /* There are no more options according to getting getopt, but there may
2651 be some arguments left. Since we have asked for non-option arguments
2652 to be returned in order, this only happens when there is a "--"
2653 argument to prevent later arguments from being options. */
2654 while (optind < argc)
2655 handle_non_switch_argument (argv[optind++], env);
2658 if (!env && (bad || print_usage_flag))
2660 print_usage (bad);
2661 die (bad ? 2 : 0);
2665 /* Decode switches from environment variable ENVAR (which is LEN chars long).
2666 We do this by chopping the value into a vector of words, prepending a
2667 dash to the first word if it lacks one, and passing the vector to
2668 decode_switches. */
2670 static void
2671 decode_env_switches (char *envar, unsigned int len)
2673 char *varref = alloca (2 + len + 2);
2674 char *value, *p;
2675 int argc;
2676 char **argv;
2678 /* Get the variable's value. */
2679 varref[0] = '$';
2680 varref[1] = '(';
2681 memcpy (&varref[2], envar, len);
2682 varref[2 + len] = ')';
2683 varref[2 + len + 1] = '\0';
2684 value = variable_expand (varref);
2686 /* Skip whitespace, and check for an empty value. */
2687 value = next_token (value);
2688 len = strlen (value);
2689 if (len == 0)
2690 return;
2692 /* Allocate a vector that is definitely big enough. */
2693 argv = alloca ((1 + len + 1) * sizeof (char *));
2695 /* Allocate a buffer to copy the value into while we split it into words
2696 and unquote it. We must use permanent storage for this because
2697 decode_switches may store pointers into the passed argument words. */
2698 p = xmalloc (2 * len);
2700 /* getopt will look at the arguments starting at ARGV[1].
2701 Prepend a spacer word. */
2702 argv[0] = 0;
2703 argc = 1;
2704 argv[argc] = p;
2705 while (*value != '\0')
2707 if (*value == '\\' && value[1] != '\0')
2708 ++value; /* Skip the backslash. */
2709 else if (isblank ((unsigned char)*value))
2711 /* End of the word. */
2712 *p++ = '\0';
2713 argv[++argc] = p;
2715 ++value;
2716 while (isblank ((unsigned char)*value));
2717 continue;
2719 *p++ = *value++;
2721 *p = '\0';
2722 argv[++argc] = 0;
2724 if (argv[1][0] != '-' && strchr (argv[1], '=') == 0)
2725 /* The first word doesn't start with a dash and isn't a variable
2726 definition. Add a dash and pass it along to decode_switches. We
2727 need permanent storage for this in case decode_switches saves
2728 pointers into the value. */
2729 argv[1] = xstrdup (concat (2, "-", argv[1]));
2731 /* Parse those words. */
2732 decode_switches (argc, argv, 1);
2735 /* Quote the string IN so that it will be interpreted as a single word with
2736 no magic by decode_env_switches; also double dollar signs to avoid
2737 variable expansion in make itself. Write the result into OUT, returning
2738 the address of the next character to be written.
2739 Allocating space for OUT twice the length of IN is always sufficient. */
2741 static char *
2742 quote_for_env (char *out, const char *in)
2744 while (*in != '\0')
2746 if (*in == '$')
2747 *out++ = '$';
2748 else if (isblank ((unsigned char)*in) || *in == '\\')
2749 *out++ = '\\';
2750 *out++ = *in++;
2753 return out;
2756 /* Define the MAKEFLAGS and MFLAGS variables to reflect the settings of the
2757 command switches. Include options with args if ALL is nonzero.
2758 Don't include options with the `no_makefile' flag set if MAKEFILE. */
2760 static const char *
2761 define_makeflags (int all, int makefile)
2763 const char ref[] = "$(MAKEOVERRIDES)";
2764 const char posixref[] = "$(-*-command-variables-*-)";
2765 const char evalref[] = "$(-*-eval-flags-*-)";
2766 const struct command_switch *cs;
2767 char *flagstring;
2768 register char *p;
2769 unsigned int words;
2770 struct variable *v;
2772 /* We will construct a linked list of `struct flag's describing
2773 all the flags which need to go in MAKEFLAGS. Then, once we
2774 know how many there are and their lengths, we can put them all
2775 together in a string. */
2777 struct flag
2779 struct flag *next;
2780 const struct command_switch *cs;
2781 const char *arg;
2783 struct flag *flags = 0;
2784 unsigned int flagslen = 0;
2785 #define ADD_FLAG(ARG, LEN) \
2786 do { \
2787 struct flag *new = alloca (sizeof (struct flag)); \
2788 new->cs = cs; \
2789 new->arg = (ARG); \
2790 new->next = flags; \
2791 flags = new; \
2792 if (new->arg == 0) \
2793 ++flagslen; /* Just a single flag letter. */ \
2794 else \
2795 /* " -x foo", plus space to expand "foo". */ \
2796 flagslen += 1 + 1 + 1 + 1 + (3 * (LEN)); \
2797 if (!short_option (cs->c)) \
2798 /* This switch has no single-letter version, so we use the long. */ \
2799 flagslen += 2 + strlen (cs->long_name); \
2800 } while (0)
2802 for (cs = switches; cs->c != '\0'; ++cs)
2803 if (cs->toenv && (!makefile || !cs->no_makefile))
2804 switch (cs->type)
2806 case ignore:
2807 break;
2809 case flag:
2810 case flag_off:
2811 if (!*(int *) cs->value_ptr == (cs->type == flag_off)
2812 && (cs->default_value == 0
2813 || *(int *) cs->value_ptr != *(int *) cs->default_value))
2814 ADD_FLAG (0, 0);
2815 break;
2817 case positive_int:
2818 if (all)
2820 if ((cs->default_value != 0
2821 && (*(unsigned int *) cs->value_ptr
2822 == *(unsigned int *) cs->default_value)))
2823 break;
2824 else if (cs->noarg_value != 0
2825 && (*(unsigned int *) cs->value_ptr ==
2826 *(unsigned int *) cs->noarg_value))
2827 ADD_FLAG ("", 0); /* Optional value omitted; see below. */
2828 else if (cs->c == 'j')
2829 /* Special case for `-j'. */
2830 ADD_FLAG ("1", 1);
2831 else
2833 char *buf = alloca (30);
2834 sprintf (buf, "%u", *(unsigned int *) cs->value_ptr);
2835 ADD_FLAG (buf, strlen (buf));
2838 break;
2840 #ifndef NO_FLOAT
2841 case floating:
2842 if (all)
2844 if (cs->default_value != 0
2845 && (*(double *) cs->value_ptr
2846 == *(double *) cs->default_value))
2847 break;
2848 else if (cs->noarg_value != 0
2849 && (*(double *) cs->value_ptr
2850 == *(double *) cs->noarg_value))
2851 ADD_FLAG ("", 0); /* Optional value omitted; see below. */
2852 else
2854 char *buf = alloca (100);
2855 sprintf (buf, "%g", *(double *) cs->value_ptr);
2856 ADD_FLAG (buf, strlen (buf));
2859 break;
2860 #endif
2862 case filename:
2863 case string:
2864 if (all)
2866 struct stringlist *sl = *(struct stringlist **) cs->value_ptr;
2867 if (sl != 0)
2869 /* Add the elements in reverse order, because all the flags
2870 get reversed below; and the order matters for some
2871 switches (like -I). */
2872 unsigned int i = sl->idx;
2873 while (i-- > 0)
2874 ADD_FLAG (sl->list[i], strlen (sl->list[i]));
2877 break;
2879 default:
2880 abort ();
2883 /* Four more for the possible " -- ". */
2884 flagslen += 4 + sizeof (posixref) + sizeof (evalref);
2886 #undef ADD_FLAG
2888 /* Construct the value in FLAGSTRING.
2889 We allocate enough space for a preceding dash and trailing null. */
2890 flagstring = alloca (1 + flagslen + 1);
2891 memset (flagstring, '\0', 1 + flagslen + 1);
2892 p = flagstring;
2893 words = 1;
2894 *p++ = '-';
2895 while (flags != 0)
2897 /* Add the flag letter or name to the string. */
2898 if (short_option (flags->cs->c))
2899 *p++ = flags->cs->c;
2900 else
2902 if (*p != '-')
2904 *p++ = ' ';
2905 *p++ = '-';
2907 *p++ = '-';
2908 strcpy (p, flags->cs->long_name);
2909 p += strlen (p);
2911 if (flags->arg != 0)
2913 /* A flag that takes an optional argument which in this case is
2914 omitted is specified by ARG being "". We must distinguish
2915 because a following flag appended without an intervening " -"
2916 is considered the arg for the first. */
2917 if (flags->arg[0] != '\0')
2919 /* Add its argument too. */
2920 *p++ = !short_option (flags->cs->c) ? '=' : ' ';
2921 p = quote_for_env (p, flags->arg);
2923 ++words;
2924 /* Write a following space and dash, for the next flag. */
2925 *p++ = ' ';
2926 *p++ = '-';
2928 else if (!short_option (flags->cs->c))
2930 ++words;
2931 /* Long options must each go in their own word,
2932 so we write the following space and dash. */
2933 *p++ = ' ';
2934 *p++ = '-';
2936 flags = flags->next;
2939 /* Define MFLAGS before appending variable definitions. */
2941 if (p == &flagstring[1])
2942 /* No flags. */
2943 flagstring[0] = '\0';
2944 else if (p[-1] == '-')
2946 /* Kill the final space and dash. */
2947 p -= 2;
2948 *p = '\0';
2950 else
2951 /* Terminate the string. */
2952 *p = '\0';
2954 /* Since MFLAGS is not parsed for flags, there is no reason to
2955 override any makefile redefinition. */
2956 define_variable_cname ("MFLAGS", flagstring, o_env, 1);
2958 /* Write a reference to -*-eval-flags-*-, which contains all the --eval
2959 flag options. */
2960 if (eval_strings)
2962 if (p == &flagstring[1])
2963 /* No flags written, so elide the leading dash already written. */
2964 p = flagstring;
2965 else
2966 *p++ = ' ';
2967 memcpy (p, evalref, sizeof (evalref) - 1);
2968 p += sizeof (evalref) - 1;
2971 if (all && command_variables != 0)
2973 /* Now write a reference to $(MAKEOVERRIDES), which contains all the
2974 command-line variable definitions. */
2976 if (p == &flagstring[1])
2977 /* No flags written, so elide the leading dash already written. */
2978 p = flagstring;
2979 else
2981 /* Separate the variables from the switches with a "--" arg. */
2982 if (p[-1] != '-')
2984 /* We did not already write a trailing " -". */
2985 *p++ = ' ';
2986 *p++ = '-';
2988 /* There is a trailing " -"; fill it out to " -- ". */
2989 *p++ = '-';
2990 *p++ = ' ';
2993 /* Copy in the string. */
2994 if (posix_pedantic)
2996 memcpy (p, posixref, sizeof (posixref) - 1);
2997 p += sizeof (posixref) - 1;
2999 else
3001 memcpy (p, ref, sizeof (ref) - 1);
3002 p += sizeof (ref) - 1;
3005 else if (p == &flagstring[1])
3007 words = 0;
3008 --p;
3010 else if (p[-1] == '-')
3011 /* Kill the final space and dash. */
3012 p -= 2;
3013 /* Terminate the string. */
3014 *p = '\0';
3016 /* If there are switches, omit the leading dash unless it is a single long
3017 option with two leading dashes. */
3018 if (flagstring[0] == '-' && flagstring[1] != '-')
3019 ++flagstring;
3021 v = define_variable_cname ("MAKEFLAGS", flagstring,
3022 /* This used to use o_env, but that lost when a
3023 makefile defined MAKEFLAGS. Makefiles set
3024 MAKEFLAGS to add switches, but we still want
3025 to redefine its value with the full set of
3026 switches. Of course, an override or command
3027 definition will still take precedence. */
3028 o_file, 1);
3030 if (! all)
3031 /* The first time we are called, set MAKEFLAGS to always be exported.
3032 We should not do this again on the second call, because that is
3033 after reading makefiles which might have done `unexport MAKEFLAGS'. */
3034 v->export = v_export;
3036 return v->value;
3039 /* Print version information. */
3041 static void
3042 print_version (void)
3044 static int printed_version = 0;
3046 char *precede = print_data_base_flag ? "# " : "";
3048 if (printed_version)
3049 /* Do it only once. */
3050 return;
3052 printf ("%sGNU Make %s\n", precede, version_string);
3054 if (!remote_description || *remote_description == '\0')
3055 printf (_("%sBuilt for %s\n"), precede, make_host);
3056 else
3057 printf (_("%sBuilt for %s (%s)\n"),
3058 precede, make_host, remote_description);
3060 /* Print this untranslated. The coding standards recommend translating the
3061 (C) to the copyright symbol, but this string is going to change every
3062 year, and none of the rest of it should be translated (including the
3063 word "Copyright", so it hardly seems worth it. */
3065 printf ("%sCopyright (C) 2010 Free Software Foundation, Inc.\n", precede);
3067 printf (_("%sLicense GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>\n\
3068 %sThis is free software: you are free to change and redistribute it.\n\
3069 %sThere is NO WARRANTY, to the extent permitted by law.\n"),
3070 precede, precede, precede);
3072 printed_version = 1;
3074 /* Flush stdout so the user doesn't have to wait to see the
3075 version information while things are thought about. */
3076 fflush (stdout);
3079 /* Print a bunch of information about this and that. */
3081 static void
3082 print_data_base ()
3084 time_t when;
3086 when = time ((time_t *) 0);
3087 printf (_("\n# Make data base, printed on %s"), ctime (&when));
3089 print_variable_data_base ();
3090 print_dir_data_base ();
3091 print_rule_data_base ();
3092 print_file_data_base ();
3093 print_vpath_data_base ();
3094 strcache_print_stats ("#");
3096 when = time ((time_t *) 0);
3097 printf (_("\n# Finished Make data base on %s\n"), ctime (&when));
3100 static void
3101 clean_jobserver (int status)
3103 char token = '+';
3105 /* Sanity: have we written all our jobserver tokens back? If our
3106 exit status is 2 that means some kind of syntax error; we might not
3107 have written all our tokens so do that now. If tokens are left
3108 after any other error code, that's bad. */
3110 if (job_fds[0] != -1 && jobserver_tokens)
3112 if (status != 2)
3113 error (NILF,
3114 "INTERNAL: Exiting with %u jobserver tokens (should be 0)!",
3115 jobserver_tokens);
3116 else
3117 while (jobserver_tokens--)
3119 int r;
3121 EINTRLOOP (r, write (job_fds[1], &token, 1));
3122 if (r != 1)
3123 perror_with_name ("write", "");
3128 /* Sanity: If we're the master, were all the tokens written back? */
3130 if (master_job_slots)
3132 /* We didn't write one for ourself, so start at 1. */
3133 unsigned int tcnt = 1;
3135 /* Close the write side, so the read() won't hang. */
3136 close (job_fds[1]);
3138 while (read (job_fds[0], &token, 1) == 1)
3139 ++tcnt;
3141 if (tcnt != master_job_slots)
3142 error (NILF,
3143 "INTERNAL: Exiting with %u jobserver tokens available; should be %u!",
3144 tcnt, master_job_slots);
3146 close (job_fds[0]);
3148 /* Clean out jobserver_fds so we don't pass this information to any
3149 sub-makes. Also reset job_slots since it will be put on the command
3150 line, not in MAKEFLAGS. */
3151 job_slots = default_job_slots;
3152 if (jobserver_fds)
3154 /* MSVC erroneously warns without a cast here. */
3155 free ((void *)jobserver_fds->list);
3156 free (jobserver_fds);
3157 jobserver_fds = 0;
3162 /* Exit with STATUS, cleaning up as necessary. */
3164 void
3165 die (int status)
3167 static char dying = 0;
3169 if (!dying)
3171 int err;
3173 dying = 1;
3175 if (print_version_flag)
3176 print_version ();
3178 /* Wait for children to die. */
3179 err = (status != 0);
3180 while (job_slots_used > 0)
3181 reap_children (1, err);
3183 /* Let the remote job module clean up its state. */
3184 remote_cleanup ();
3186 /* Remove the intermediate files. */
3187 remove_intermediates (0);
3189 if (print_data_base_flag)
3190 print_data_base ();
3192 verify_file_data_base ();
3194 clean_jobserver (status);
3196 /* Try to move back to the original directory. This is essential on
3197 MS-DOS (where there is really only one process), and on Unix it
3198 puts core files in the original directory instead of the -C
3199 directory. Must wait until after remove_intermediates(), or unlinks
3200 of relative pathnames fail. */
3201 if (directory_before_chdir != 0)
3203 /* If it fails we don't care: shut up GCC. */
3204 int _x;
3205 _x = chdir (directory_before_chdir);
3208 log_working_directory (0);
3211 exit (status);
3214 /* Write a message indicating that we've just entered or
3215 left (according to ENTERING) the current directory. */
3217 void
3218 log_working_directory (int entering)
3220 static int entered = 0;
3222 /* Print nothing without the flag. Don't print the entering message
3223 again if we already have. Don't print the leaving message if we
3224 haven't printed the entering message. */
3225 if (! print_directory_flag || entering == entered)
3226 return;
3228 entered = entering;
3230 if (print_data_base_flag)
3231 fputs ("# ", stdout);
3233 /* Use entire sentences to give the translators a fighting chance. */
3235 if (makelevel == 0)
3236 if (starting_directory == 0)
3237 if (entering)
3238 printf (_("%s: Entering an unknown directory\n"), program);
3239 else
3240 printf (_("%s: Leaving an unknown directory\n"), program);
3241 else
3242 if (entering)
3243 printf (_("%s: Entering directory `%s'\n"),
3244 program, starting_directory);
3245 else
3246 printf (_("%s: Leaving directory `%s'\n"),
3247 program, starting_directory);
3248 else
3249 if (starting_directory == 0)
3250 if (entering)
3251 printf (_("%s[%u]: Entering an unknown directory\n"),
3252 program, makelevel);
3253 else
3254 printf (_("%s[%u]: Leaving an unknown directory\n"),
3255 program, makelevel);
3256 else
3257 if (entering)
3258 printf (_("%s[%u]: Entering directory `%s'\n"),
3259 program, makelevel, starting_directory);
3260 else
3261 printf (_("%s[%u]: Leaving directory `%s'\n"),
3262 program, makelevel, starting_directory);
3264 /* Flush stdout to be sure this comes before any stderr output. */
3265 fflush (stdout);