1 /* Argument parsing and main program of GNU Make.
2 Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
3 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011,
4 2012 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
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/>. */
32 # include <proto/dos.h>
37 # include "pathstuff.h"
38 # include "sub_proc.h"
42 # include <sys/types.h>
43 # include <sys/wait.h>
50 int __stack
= 20000; /* Make sure we have 20K of stack space */
54 void remote_setup (void);
55 void remote_cleanup (void);
56 RETSIGTYPE
fatal_error_signal (int sig
);
58 void print_variable_data_base (void);
59 void print_dir_data_base (void);
60 void print_rule_data_base (void);
61 void print_vpath_data_base (void);
63 void verify_file_data_base (void);
65 #if defined HAVE_WAITPID || defined HAVE_WAIT3
66 # define HAVE_WAIT_NOHANG
73 # ifndef sun /* Sun has an incorrect decl in a header. */
74 void exit (int) __attribute__ ((noreturn
));
79 static void clean_jobserver (int status
);
80 static void print_data_base (void);
81 static void print_version (void);
82 static void decode_switches (int argc
, char **argv
, int env
);
83 static void decode_env_switches (char *envar
, unsigned int len
);
84 static const char *define_makeflags (int all
, int makefile
);
85 static char *quote_for_env (char *out
, const char *in
);
86 static void initialize_global_hash_tables (void);
89 /* The structure that describes an accepted command switch. */
93 int c
; /* The switch character. */
95 enum /* Type of the value. */
97 flag
, /* Turn int flag on. */
98 flag_off
, /* Turn int flag off. */
99 string
, /* One string per switch. */
100 filename
, /* A string containing a file name. */
101 positive_int
, /* A positive integer. */
102 floating
, /* A floating-point number (double). */
103 ignore
/* Ignored. */
106 void *value_ptr
; /* Pointer to the value-holding variable. */
108 unsigned int env
:1; /* Can come from MAKEFLAGS. */
109 unsigned int toenv
:1; /* Should be put in MAKEFLAGS. */
110 unsigned int no_makefile
:1; /* Don't propagate when remaking makefiles. */
112 const void *noarg_value
; /* Pointer to value used if no arg given. */
113 const void *default_value
; /* Pointer to default value. */
115 char *long_name
; /* Long option name. */
118 /* True if C is a switch value that corresponds to a short option. */
120 #define short_option(c) ((c) <= CHAR_MAX)
122 /* The structure used to hold the list of strings given
123 in command switches of a type that takes string arguments. */
127 const char **list
; /* Nil-terminated list of strings. */
128 unsigned int idx
; /* Index into above. */
129 unsigned int max
; /* Number of pointers allocated. */
133 /* The recognized command switches. */
135 /* Nonzero means do not print commands to be executed (-s). */
139 /* Nonzero means just touch the files
140 that would appear to need remaking (-t) */
144 /* Nonzero means just print what commands would need to be executed,
145 don't actually execute them (-n). */
149 /* Print debugging info (--debug). */
151 static struct stringlist
*db_flags
;
152 static int debug_flag
= 0;
156 /* Tracing (--trace). */
161 /* Suspend make in main for a short time to allow debugger to attach */
163 int suspend_flag
= 0;
166 /* Environment variables override makefile definitions. */
168 int env_overrides
= 0;
170 /* Nonzero means ignore status codes returned by commands
171 executed to remake files. Just treat them all as successful (-i). */
173 int ignore_errors_flag
= 0;
175 /* Nonzero means don't remake anything, just print the data base
176 that results from reading the makefile (-p). */
178 int print_data_base_flag
= 0;
180 /* Nonzero means don't remake anything; just return a nonzero status
181 if the specified targets are not up to date (-q). */
183 int question_flag
= 0;
185 /* Nonzero means do not use any of the builtin rules (-r) / variables (-R). */
187 int no_builtin_rules_flag
= 0;
188 int no_builtin_variables_flag
= 0;
190 /* Nonzero means keep going even if remaking some file fails (-k). */
193 int default_keep_going_flag
= 0;
195 /* Nonzero means check symlink mtimes. */
197 int check_symlink_flag
= 0;
199 /* Nonzero means print directory before starting and when done (-w). */
201 int print_directory_flag
= 0;
203 /* Nonzero means ignore print_directory_flag and never print the directory.
204 This is necessary because print_directory_flag is set implicitly. */
206 int inhibit_print_directory_flag
= 0;
208 /* Nonzero means print version information. */
210 int print_version_flag
= 0;
212 /* List of makefiles given with -f switches. */
214 static struct stringlist
*makefiles
= 0;
216 /* Size of the stack when we started. */
218 #ifdef SET_STACK_SIZE
219 struct rlimit stack_limit
;
223 /* Number of job slots (commands that can be run at once). */
225 unsigned int job_slots
= 1;
226 unsigned int default_job_slots
= 1;
227 static unsigned int master_job_slots
= 0;
229 /* Value of job_slots that means no limit. */
231 static unsigned int inf_jobs
= 0;
233 /* File descriptors for the jobs pipe. */
235 static struct stringlist
*jobserver_fds
= 0;
237 int job_fds
[2] = { -1, -1 };
240 /* Maximum load average at which multiple jobs will be run.
241 Negative values mean unlimited, while zero means limit to
242 zero load (which could be useful to start infinite jobs remotely
243 but one at a time locally). */
245 double max_load_average
= -1.0;
246 double default_load_average
= -1.0;
248 int max_load_average
= -1;
249 int default_load_average
= -1;
252 /* List of directories given with -C switches. */
254 static struct stringlist
*directories
= 0;
256 /* List of include directories given with -I switches. */
258 static struct stringlist
*include_directories
= 0;
260 /* List of files given with -o switches. */
262 static struct stringlist
*old_files
= 0;
264 /* List of files given with -W switches. */
266 static struct stringlist
*new_files
= 0;
268 /* List of strings to be eval'd. */
269 static struct stringlist
*eval_strings
= 0;
271 /* If nonzero, we should just print usage and exit. */
273 static int print_usage_flag
= 0;
275 /* If nonzero, we should print a warning message
276 for each reference to an undefined variable. */
278 int warn_undefined_variables_flag
;
280 /* If nonzero, always build all targets, regardless of whether
281 they appear out of date or not. */
283 static int always_make_set
= 0;
284 int always_make_flag
= 0;
286 /* If nonzero, we're in the "try to rebuild makefiles" phase. */
288 int rebuilding_makefiles
= 0;
290 /* Remember the original value of the SHELL variable, from the environment. */
292 struct variable shell_var
;
294 /* This character introduces a command: it's the first char on the line. */
296 char cmd_prefix
= '\t';
299 /* The usage output. We write it this way to make life easier for the
300 translators, especially those trying to translate to right-to-left
301 languages like Hebrew. */
303 static const char *const usage
[] =
307 -b, -m Ignored for compatibility.\n"),
309 -B, --always-make Unconditionally make all targets.\n"),
311 -C DIRECTORY, --directory=DIRECTORY\n\
312 Change to DIRECTORY before doing anything.\n"),
314 -d Print lots of debugging information.\n"),
316 --debug[=FLAGS] Print various types of debugging information.\n"),
318 -e, --environment-overrides\n\
319 Environment variables override makefiles.\n"),
321 --eval=STRING Evaluate STRING as a makefile statement.\n"),
323 -f FILE, --file=FILE, --makefile=FILE\n\
324 Read FILE as a makefile.\n"),
326 -h, --help Print this message and exit.\n"),
328 -i, --ignore-errors Ignore errors from recipes.\n"),
330 -I DIRECTORY, --include-dir=DIRECTORY\n\
331 Search DIRECTORY for included makefiles.\n"),
333 -j [N], --jobs[=N] Allow N jobs at once; infinite jobs with no arg.\n"),
335 -k, --keep-going Keep going when some targets can't be made.\n"),
337 -l [N], --load-average[=N], --max-load[=N]\n\
338 Don't start multiple jobs unless load is below N.\n"),
340 -L, --check-symlink-times Use the latest mtime between symlinks and target.\n"),
342 -n, --just-print, --dry-run, --recon\n\
343 Don't actually run any recipe; just print them.\n"),
345 -o FILE, --old-file=FILE, --assume-old=FILE\n\
346 Consider FILE to be very old and don't remake it.\n"),
348 -p, --print-data-base Print make's internal database.\n"),
350 -q, --question Run no recipe; exit status says if up to date.\n"),
352 -r, --no-builtin-rules Disable the built-in implicit rules.\n"),
354 -R, --no-builtin-variables Disable the built-in variable settings.\n"),
356 -s, --silent, --quiet Don't echo recipes.\n"),
358 -S, --no-keep-going, --stop\n\
361 -t, --touch Touch targets instead of remaking them.\n"),
363 --trace Print tracing information.\n"),
365 -v, --version Print the version number of make and exit.\n"),
367 -w, --print-directory Print the current directory.\n"),
369 --no-print-directory Turn off -w, even if it was turned on implicitly.\n"),
371 -W FILE, --what-if=FILE, --new-file=FILE, --assume-new=FILE\n\
372 Consider FILE to be infinitely new.\n"),
374 --warn-undefined-variables Warn when an undefined variable is referenced.\n"),
378 /* The table of command switches. */
380 static const struct command_switch switches
[] =
382 { 'b', ignore
, 0, 0, 0, 0, 0, 0, 0 },
383 { 'B', flag
, &always_make_set
, 1, 1, 0, 0, 0, "always-make" },
384 { 'C', filename
, &directories
, 0, 0, 0, 0, 0, "directory" },
385 { 'd', flag
, &debug_flag
, 1, 1, 0, 0, 0, 0 },
386 { CHAR_MAX
+1, string
, &db_flags
, 1, 1, 0, "basic", 0, "debug" },
388 { 'D', flag
, &suspend_flag
, 1, 1, 0, 0, 0, "suspend-for-debug" },
390 { 'e', flag
, &env_overrides
, 1, 1, 0, 0, 0, "environment-overrides", },
391 { 'f', filename
, &makefiles
, 0, 0, 0, 0, 0, "file" },
392 { 'h', flag
, &print_usage_flag
, 0, 0, 0, 0, 0, "help" },
393 { 'i', flag
, &ignore_errors_flag
, 1, 1, 0, 0, 0, "ignore-errors" },
394 { 'I', filename
, &include_directories
, 1, 1, 0, 0, 0,
396 { 'j', positive_int
, &job_slots
, 1, 1, 0, &inf_jobs
, &default_job_slots
,
398 { CHAR_MAX
+2, string
, &jobserver_fds
, 1, 1, 0, 0, 0, "jobserver-fds" },
399 { 'k', flag
, &keep_going_flag
, 1, 1, 0, 0, &default_keep_going_flag
,
402 { 'l', floating
, &max_load_average
, 1, 1, 0, &default_load_average
,
403 &default_load_average
, "load-average" },
405 { 'l', positive_int
, &max_load_average
, 1, 1, 0, &default_load_average
,
406 &default_load_average
, "load-average" },
408 { 'L', flag
, &check_symlink_flag
, 1, 1, 0, 0, 0, "check-symlink-times" },
409 { 'm', ignore
, 0, 0, 0, 0, 0, 0, 0 },
410 { 'n', flag
, &just_print_flag
, 1, 1, 1, 0, 0, "just-print" },
411 { 'o', filename
, &old_files
, 0, 0, 0, 0, 0, "old-file" },
412 { 'p', flag
, &print_data_base_flag
, 1, 1, 0, 0, 0, "print-data-base" },
413 { 'q', flag
, &question_flag
, 1, 1, 1, 0, 0, "question" },
414 { 'r', flag
, &no_builtin_rules_flag
, 1, 1, 0, 0, 0, "no-builtin-rules" },
415 { 'R', flag
, &no_builtin_variables_flag
, 1, 1, 0, 0, 0,
416 "no-builtin-variables" },
417 { 's', flag
, &silent_flag
, 1, 1, 0, 0, 0, "silent" },
418 { 'S', flag_off
, &keep_going_flag
, 1, 1, 0, 0, &default_keep_going_flag
,
420 { 't', flag
, &touch_flag
, 1, 1, 1, 0, 0, "touch" },
421 { CHAR_MAX
+3, flag
, &trace_flag
, 1, 1, 0, 0, 0, "trace" },
422 { 'v', flag
, &print_version_flag
, 1, 1, 0, 0, 0, "version" },
423 { 'w', flag
, &print_directory_flag
, 1, 1, 0, 0, 0, "print-directory" },
424 { CHAR_MAX
+4, flag
, &inhibit_print_directory_flag
, 1, 1, 0, 0, 0,
425 "no-print-directory" },
426 { 'W', filename
, &new_files
, 0, 0, 0, 0, 0, "what-if" },
427 { CHAR_MAX
+5, flag
, &warn_undefined_variables_flag
, 1, 1, 0, 0, 0,
428 "warn-undefined-variables" },
429 { CHAR_MAX
+6, string
, &eval_strings
, 1, 0, 0, 0, 0, "eval" },
430 { 0, 0, 0, 0, 0, 0, 0, 0, 0 }
433 /* Secondary long names for options. */
435 static struct option long_option_aliases
[] =
437 { "quiet", no_argument
, 0, 's' },
438 { "stop", no_argument
, 0, 'S' },
439 { "new-file", required_argument
, 0, 'W' },
440 { "assume-new", required_argument
, 0, 'W' },
441 { "assume-old", required_argument
, 0, 'o' },
442 { "max-load", optional_argument
, 0, 'l' },
443 { "dry-run", no_argument
, 0, 'n' },
444 { "recon", no_argument
, 0, 'n' },
445 { "makefile", required_argument
, 0, 'f' },
448 /* List of goal targets. */
450 static struct dep
*goals
, *lastgoal
;
452 /* List of variables which were defined on the command line
453 (or, equivalently, in MAKEFLAGS). */
455 struct command_variable
457 struct command_variable
*next
;
458 struct variable
*variable
;
460 static struct command_variable
*command_variables
;
462 /* The name we were invoked with. */
466 /* Our current directory before processing any -C options. */
468 char *directory_before_chdir
;
470 /* Our current directory after processing all -C options. */
472 char *starting_directory
;
474 /* Value of the MAKELEVEL variable at startup (or 0). */
476 unsigned int makelevel
;
478 /* Pointer to the value of the .DEFAULT_GOAL special variable.
479 The value will be the name of the goal to remake if the command line
480 does not override it. It can be set by the makefile, or else it's
481 the first target defined in the makefile whose name does not start
484 struct variable
* default_goal_var
;
486 /* Pointer to structure for the file .DEFAULT
487 whose commands are used for any file that has none of its own.
488 This is zero if the makefiles do not define .DEFAULT. */
490 struct file
*default_file
;
492 /* Nonzero if we have seen the magic `.POSIX' target.
493 This turns on pedantic compliance with POSIX.2. */
497 /* Nonzero if we have seen the '.SECONDEXPANSION' target.
498 This turns on secondary expansion of prerequisites. */
500 int second_expansion
;
502 /* Nonzero if we have seen the '.ONESHELL' target.
503 This causes the entire recipe to be handed to SHELL
504 as a single string, potentially containing newlines. */
508 /* Nonzero if we have seen the `.NOTPARALLEL' target.
509 This turns off parallel builds for this invocation of make. */
513 /* Nonzero if some rule detected clock skew; we keep track so (a) we only
514 print one warning about it during the run, and (b) we can print a final
515 warning at the end of the run. */
517 int clock_skew_detected
;
519 /* Mask of signals that are being caught with fatal_error_signal. */
522 sigset_t fatal_signal_set
;
524 # ifdef HAVE_SIGSETMASK
525 int fatal_signal_mask
;
529 #if !HAVE_DECL_BSD_SIGNAL && !defined bsd_signal
530 # if !defined HAVE_SIGACTION
531 # define bsd_signal signal
533 typedef RETSIGTYPE (*bsd_signal_ret_t
) (int);
535 static bsd_signal_ret_t
536 bsd_signal (int sig
, bsd_signal_ret_t func
)
538 struct sigaction act
, oact
;
539 act
.sa_handler
= func
;
540 act
.sa_flags
= SA_RESTART
;
541 sigemptyset (&act
.sa_mask
);
542 sigaddset (&act
.sa_mask
, sig
);
543 if (sigaction (sig
, &act
, &oact
) != 0)
545 return oact
.sa_handler
;
551 initialize_global_hash_tables (void)
553 init_hash_global_variable_set ();
556 hash_init_directories ();
557 hash_init_function_table ();
561 expand_command_line_file (char *name
)
567 fatal (NILF
, _("empty string invalid as file name"));
571 expanded
= tilde_expand (name
);
576 /* This is also done in parse_file_seq, so this is redundant
577 for names read from makefiles. It is here for names passed
578 on the command line. */
579 while (name
[0] == '.' && name
[1] == '/' && name
[2] != '\0')
583 /* Skip following slashes: ".//foo" is "foo", not "/foo". */
589 /* It was all slashes! Move back to the dot and truncate
590 it after the first slash, so it becomes just "./". */
593 while (name
[0] != '.');
597 cp
= strcache_add (name
);
605 /* Toggle -d on receipt of SIGUSR1. */
609 debug_signal_handler (int sig UNUSED
)
611 db_level
= db_level
? DB_NONE
: DB_BASIC
;
616 decode_debug_flags (void)
626 for (pp
=db_flags
->list
; *pp
; ++pp
)
632 switch (tolower (p
[0]))
638 db_level
|= DB_BASIC
;
641 db_level
|= DB_BASIC
| DB_IMPLICIT
;
647 db_level
|= DB_BASIC
| DB_MAKEFILES
;
650 db_level
|= DB_BASIC
| DB_VERBOSE
;
653 fatal (NILF
, _("unknown debug level specification `%s'"), p
);
656 while (*(++p
) != '\0')
657 if (*p
== ',' || *p
== ' ')
670 * HANDLE runtime exceptions by avoiding a requestor on the GUI. Capture
671 * exception and print it to stderr instead.
673 * If ! DB_VERBOSE, just print a simple message and exit.
674 * If DB_VERBOSE, print a more verbose message.
675 * If compiled for DEBUG, let exception pass through to GUI so that
676 * debuggers can attach.
679 handle_runtime_exceptions( struct _EXCEPTION_POINTERS
*exinfo
)
681 PEXCEPTION_RECORD exrec
= exinfo
->ExceptionRecord
;
682 LPSTR cmdline
= GetCommandLine();
683 LPSTR prg
= strtok(cmdline
, " ");
687 LPTSTR lpszStrings
[1];
690 if (! ISDB (DB_VERBOSE
))
693 _("%s: Interrupt/Exception caught (code = 0x%lx, addr = 0x%p)\n"),
694 prg
, exrec
->ExceptionCode
, exrec
->ExceptionAddress
);
695 fprintf(stderr
, errmsg
);
700 _("\nUnhandled exception filter called from program %s\nExceptionCode = %lx\nExceptionFlags = %lx\nExceptionAddress = 0x%p\n"),
701 prg
, exrec
->ExceptionCode
, exrec
->ExceptionFlags
,
702 exrec
->ExceptionAddress
);
704 if (exrec
->ExceptionCode
== EXCEPTION_ACCESS_VIOLATION
705 && exrec
->NumberParameters
>= 2)
706 sprintf(&errmsg
[strlen(errmsg
)],
707 (exrec
->ExceptionInformation
[0]
708 ? _("Access violation: write operation at address 0x%p\n")
709 : _("Access violation: read operation at address 0x%p\n")),
710 (PVOID
)exrec
->ExceptionInformation
[1]);
712 /* turn this on if we want to put stuff in the event log too */
714 hEventSource
= RegisterEventSource(NULL
, "GNU Make");
715 lpszStrings
[0] = errmsg
;
717 if (hEventSource
!= NULL
)
719 ReportEvent(hEventSource
, /* handle of event source */
720 EVENTLOG_ERROR_TYPE
, /* event type */
721 0, /* event category */
723 NULL
, /* current user's SID */
724 1, /* strings in lpszStrings */
725 0, /* no bytes of raw data */
726 lpszStrings
, /* array of error strings */
727 NULL
); /* no raw data */
729 (VOID
) DeregisterEventSource(hEventSource
);
733 /* Write the error to stderr too */
734 fprintf(stderr
, errmsg
);
737 return EXCEPTION_CONTINUE_SEARCH
;
740 return (255); /* not reached */
745 * On WIN32 systems we don't have the luxury of a /bin directory that
746 * is mapped globally to every drive mounted to the system. Since make could
747 * be invoked from any drive, and we don't want to propogate /bin/sh
748 * to every single drive. Allow ourselves a chance to search for
749 * a value for default shell here (if the default path does not exist).
753 find_and_set_default_shell (const char *token
)
760 extern char *default_shell
;
763 search_token
= default_shell
;
765 atoken
= search_token
= xstrdup (token
);
767 /* If the user explicitly requests the DOS cmd shell, obey that request.
768 However, make sure that's what they really want by requiring the value
769 of SHELL either equal, or have a final path element of, "cmd" or
770 "cmd.exe" case-insensitive. */
771 tokend
= search_token
+ strlen (search_token
) - 3;
772 if (((tokend
== search_token
773 || (tokend
> search_token
774 && (tokend
[-1] == '/' || tokend
[-1] == '\\')))
775 && !strcasecmp (tokend
, "cmd"))
776 || ((tokend
- 4 == search_token
777 || (tokend
- 4 > search_token
778 && (tokend
[-5] == '/' || tokend
[-5] == '\\')))
779 && !strcasecmp (tokend
- 4, "cmd.exe"))) {
780 batch_mode_shell
= 1;
782 sprintf (sh_path
, "%s", search_token
);
783 default_shell
= xstrdup (w32ify (sh_path
, 0));
784 DB (DB_VERBOSE
, (_("find_and_set_shell() setting default_shell = %s\n"),
787 } else if (!no_default_sh_exe
&&
788 (token
== NULL
|| !strcmp (search_token
, default_shell
))) {
789 /* no new information, path already set or known */
791 } else if (file_exists_p (search_token
)) {
792 /* search token path was found */
793 sprintf (sh_path
, "%s", search_token
);
794 default_shell
= xstrdup (w32ify (sh_path
, 0));
795 DB (DB_VERBOSE
, (_("find_and_set_shell() setting default_shell = %s\n"),
800 struct variable
*v
= lookup_variable (STRING_SIZE_TUPLE ("PATH"));
802 /* Search Path for shell */
807 ep
= strchr (p
, PATH_SEPARATOR_CHAR
);
812 if (dir_file_exists_p (p
, search_token
)) {
813 sprintf (sh_path
, "%s/%s", p
, search_token
);
814 default_shell
= xstrdup (w32ify (sh_path
, 0));
816 *ep
= PATH_SEPARATOR_CHAR
;
821 *ep
= PATH_SEPARATOR_CHAR
;
825 ep
= strchr (p
, PATH_SEPARATOR_CHAR
);
828 /* be sure to check last element of Path */
829 if (p
&& *p
&& dir_file_exists_p (p
, search_token
)) {
830 sprintf (sh_path
, "%s/%s", p
, search_token
);
831 default_shell
= xstrdup (w32ify (sh_path
, 0));
837 (_("find_and_set_shell() path search set default_shell = %s\n"),
843 if (!unixy_shell
&& sh_found
&&
844 (strstr (default_shell
, "sh") || strstr (default_shell
, "SH"))) {
846 batch_mode_shell
= 0;
849 #ifdef BATCH_MODE_ONLY_SHELL
850 batch_mode_shell
= 1;
858 #endif /* WINDOWS32 */
862 msdos_return_to_initial_directory (void)
864 if (directory_before_chdir
)
865 chdir (directory_before_chdir
);
867 #endif /* __MSDOS__ */
869 char *mktemp (char *template);
870 int mkstemp (char *template);
873 open_tmpfile(char **name
, const char *template)
879 #if defined HAVE_MKSTEMP || defined HAVE_MKTEMP
880 # define TEMPLATE_LEN strlen (template)
882 # define TEMPLATE_LEN L_tmpnam
884 *name
= xmalloc (TEMPLATE_LEN
+ 1);
885 strcpy (*name
, template);
887 #if defined HAVE_MKSTEMP && defined HAVE_FDOPEN
888 /* It's safest to use mkstemp(), if we can. */
889 fd
= mkstemp (*name
);
892 return fdopen (fd
, "w");
895 (void) mktemp (*name
);
897 (void) tmpnam (*name
);
901 /* Can't use mkstemp(), but guard against a race condition. */
902 fd
= open (*name
, O_CREAT
|O_EXCL
|O_WRONLY
, 0600);
905 return fdopen (fd
, "w");
907 /* Not secure, but what can we do? */
908 return fopen (*name
, "w");
915 main (int argc
, char **argv
)
918 main (int argc
, char **argv
, char **envp
)
921 static char *stdin_nm
= 0;
922 int makefile_status
= MAKE_SUCCESS
;
923 struct dep
*read_makefiles
;
924 PATH_VAR (current_directory
);
925 unsigned int restarts
= 0;
927 char *unix_path
= NULL
;
928 char *windows32_path
= NULL
;
930 SetUnhandledExceptionFilter(handle_runtime_exceptions
);
932 /* start off assuming we have no shell */
934 no_default_sh_exe
= 1;
937 #ifdef SET_STACK_SIZE
938 /* Get rid of any avoidable limit on stack size. */
942 /* Set the stack limit huge so that alloca does not fail. */
943 if (getrlimit (RLIMIT_STACK
, &rlim
) == 0
944 && rlim
.rlim_cur
> 0 && rlim
.rlim_cur
< rlim
.rlim_max
)
947 rlim
.rlim_cur
= rlim
.rlim_max
;
948 setrlimit (RLIMIT_STACK
, &rlim
);
951 stack_limit
.rlim_cur
= 0;
956 atexit (close_stdout
);
959 /* Needed for OS/2 */
960 initialize_main (&argc
, &argv
);
964 #if defined (__MSDOS__) && !defined (_POSIX_SOURCE)
965 /* Request the most powerful version of `system', to
966 make up for the dumb default shell. */
967 __system_flags
= (__system_redirect
969 | __system_allow_multiple_cmds
970 | __system_allow_long_cmds
971 | __system_handle_null_commands
972 | __system_emulate_chdir
);
976 /* Set up gettext/internationalization support. */
977 setlocale (LC_ALL
, "");
978 /* The cast to void shuts up compiler warnings on systems that
980 (void)bindtextdomain (PACKAGE
, LOCALEDIR
);
981 (void)textdomain (PACKAGE
);
984 sigemptyset (&fatal_signal_set
);
985 #define ADD_SIG(sig) sigaddset (&fatal_signal_set, sig)
987 #ifdef HAVE_SIGSETMASK
988 fatal_signal_mask
= 0;
989 #define ADD_SIG(sig) fatal_signal_mask |= sigmask (sig)
991 #define ADD_SIG(sig) (void)sig
995 #define FATAL_SIG(sig) \
996 if (bsd_signal (sig, fatal_error_signal) == SIG_IGN) \
997 bsd_signal (sig, SIG_IGN); \
1005 FATAL_SIG (SIGQUIT
);
1008 FATAL_SIG (SIGTERM
);
1011 /* Windows 9X delivers FP exceptions in child programs to their
1012 parent! We don't want Make to die when a child divides by zero,
1013 so we work around that lossage by catching SIGFPE. */
1018 FATAL_SIG (SIGDANGER
);
1021 FATAL_SIG (SIGXCPU
);
1024 FATAL_SIG (SIGXFSZ
);
1029 /* Do not ignore the child-death signal. This must be done before
1030 any children could possibly be created; otherwise, the wait
1031 functions won't work on systems with the SVR4 ECHILD brain
1032 damage, if our invoker is ignoring this signal. */
1034 #ifdef HAVE_WAIT_NOHANG
1035 # if defined SIGCHLD
1036 (void) bsd_signal (SIGCHLD
, SIG_DFL
);
1038 # if defined SIGCLD && SIGCLD != SIGCHLD
1039 (void) bsd_signal (SIGCLD
, SIG_DFL
);
1043 /* Make sure stdout is line-buffered. */
1046 # ifdef SETVBUF_REVERSED
1047 setvbuf (stdout
, _IOLBF
, xmalloc (BUFSIZ
), BUFSIZ
);
1048 # else /* setvbuf not reversed. */
1049 /* Some buggy systems lose if we pass 0 instead of allocating ourselves. */
1050 setvbuf (stdout
, 0, _IOLBF
, BUFSIZ
);
1051 # endif /* setvbuf reversed. */
1052 #elif HAVE_SETLINEBUF
1053 setlinebuf (stdout
);
1054 #endif /* setlinebuf missing. */
1056 /* Figure out where this program lives. */
1060 if (argv
[0][0] == '\0')
1065 program
= strrchr (argv
[0], ']');
1067 program
= strrchr (argv
[0], '/');
1069 #if defined(__MSDOS__) || defined(__EMX__)
1071 program
= strrchr (argv
[0], '\\');
1074 /* Some weird environments might pass us argv[0] with
1075 both kinds of slashes; we must find the rightmost. */
1076 char *p
= strrchr (argv
[0], '\\');
1077 if (p
&& p
> program
)
1080 if (program
== 0 && argv
[0][1] == ':')
1081 program
= argv
[0] + 1;
1086 /* Extract program from full path */
1088 program
= strrchr (argv
[0], '\\');
1091 argv0_len
= strlen (program
);
1092 if (argv0_len
> 4 && streq (&program
[argv0_len
- 4], ".exe"))
1093 /* Remove .exe extension */
1094 program
[argv0_len
- 4] = '\0';
1104 /* Set up to access user data (files). */
1107 initialize_global_hash_tables ();
1109 /* Figure out where we are. */
1112 if (getcwd_fs (current_directory
, GET_PATH_MAX
) == 0)
1114 if (getcwd (current_directory
, GET_PATH_MAX
) == 0)
1118 perror_with_name ("getcwd", "");
1120 error (NILF
, "getwd: %s", current_directory
);
1122 current_directory
[0] = '\0';
1123 directory_before_chdir
= 0;
1126 directory_before_chdir
= xstrdup (current_directory
);
1129 /* Make sure we will return to the initial directory, come what may. */
1130 atexit (msdos_return_to_initial_directory
);
1133 /* Initialize the special variables. */
1134 define_variable_cname (".VARIABLES", "", o_default
, 0)->special
= 1;
1135 /* define_variable_cname (".TARGETS", "", o_default, 0)->special = 1; */
1136 define_variable_cname (".RECIPEPREFIX", "", o_default
, 0)->special
= 1;
1137 define_variable_cname (".SHELLFLAGS", "-c", o_default
, 0);
1140 Use a separate variable because define_variable_cname() is a macro and
1141 some compilers (MSVC) don't like conditionals in macros. */
1143 const char *features
= "target-specific order-only second-expansion"
1144 " else-if shortest-stem undefine oneshell"
1148 #ifdef MAKE_JOBSERVER
1151 #ifdef MAKE_SYMLINKS
1156 define_variable_cname (".FEATURES", features
, o_default
, 0);
1160 /* Configure GNU Guile support */
1164 /* Read in variables from the environment. It is important that this be
1165 done before $(MAKE) is figured out so its definitions will not be
1166 from the environment. */
1172 for (i
= 0; envp
[i
] != 0; ++i
)
1174 int do_not_define
= 0;
1177 while (*ep
!= '\0' && *ep
!= '=')
1180 if (!unix_path
&& strneq (envp
[i
], "PATH=", 5))
1182 else if (!strnicmp (envp
[i
], "Path=", 5)) {
1183 do_not_define
= 1; /* it gets defined after loop exits */
1184 if (!windows32_path
)
1185 windows32_path
= ep
+1;
1188 /* The result of pointer arithmetic is cast to unsigned int for
1189 machines where ptrdiff_t is a different size that doesn't widen
1195 v
= define_variable (envp
[i
], (unsigned int) (ep
- envp
[i
]),
1197 /* Force exportation of every variable culled from the
1198 environment. We used to rely on target_environment's
1199 v_default code to do this. But that does not work for the
1200 case where an environment variable is redefined in a makefile
1201 with `override'; it should then still be exported, because it
1202 was originally in the environment. */
1203 v
->export
= v_export
;
1205 /* Another wrinkle is that POSIX says the value of SHELL set in
1206 the makefile won't change the value of SHELL given to
1208 if (streq (v
->name
, "SHELL"))
1211 v
->export
= v_noexport
;
1213 shell_var
.name
= "SHELL";
1214 shell_var
.length
= 5;
1215 shell_var
.value
= xstrdup (ep
+ 1);
1218 /* If MAKE_RESTARTS is set, remember it but don't export it. */
1219 if (streq (v
->name
, "MAKE_RESTARTS"))
1221 v
->export
= v_noexport
;
1222 restarts
= (unsigned int) atoi (ep
+ 1);
1228 /* If we didn't find a correctly spelled PATH we define PATH as
1229 * either the first mispelled value or an empty string
1232 define_variable_cname ("PATH", windows32_path
? windows32_path
: "",
1233 o_env
, 1)->export
= v_export
;
1235 #else /* For Amiga, read the ENV: device, ignoring all dirs */
1237 BPTR env
, file
, old
;
1240 __aligned
struct FileInfoBlock fib
;
1242 env
= Lock ("ENV:", ACCESS_READ
);
1245 old
= CurrentDir (DupLock(env
));
1246 Examine (env
, &fib
);
1248 while (ExNext (env
, &fib
))
1250 if (fib
.fib_DirEntryType
< 0) /* File */
1252 /* Define an empty variable. It will be filled in
1253 variable_lookup(). Makes startup quite a bit
1255 define_variable (fib
.fib_FileName
,
1256 strlen (fib
.fib_FileName
),
1257 "", o_env
, 1)->export
= v_export
;
1261 UnLock(CurrentDir(old
));
1266 /* Decode the switches. */
1268 decode_env_switches (STRING_SIZE_TUPLE ("MAKEFLAGS"));
1270 /* People write things like:
1271 MFLAGS="CC=gcc -pipe" "CFLAGS=-g"
1272 and we set the -p, -i and -e switches. Doesn't seem quite right. */
1273 decode_env_switches (STRING_SIZE_TUPLE ("MFLAGS"));
1276 decode_switches (argc
, argv
, 0);
1280 fprintf(stderr
, "%s (pid = %ld)\n", argv
[0], GetCurrentProcessId());
1281 fprintf(stderr
, _("%s is suspending for 30 seconds..."), argv
[0]);
1283 fprintf(stderr
, _("done sleep(30). Continuing.\n"));
1287 decode_debug_flags ();
1289 /* Set always_make_flag if -B was given and we've not restarted already. */
1290 always_make_flag
= always_make_set
&& (restarts
== 0);
1292 /* Print version information. */
1293 if (print_version_flag
|| print_data_base_flag
|| ISDB (DB_BASIC
))
1297 /* `make --version' is supposed to just print the version and exit. */
1298 if (print_version_flag
)
1303 /* Set the "MAKE_COMMAND" variable to the name we were invoked with.
1304 (If it is a relative pathname with a slash, prepend our directory name
1305 so the result will run the same program regardless of the current dir.
1306 If it is a name with no slash, we can only hope that PATH did not
1307 find it in the current directory.) */
1310 * Convert from backslashes to forward slashes for
1311 * programs like sh which don't like them. Shouldn't
1312 * matter if the path is one way or the other for
1315 if (strpbrk(argv
[0], "/:\\") ||
1316 strstr(argv
[0], "..") ||
1317 strneq(argv
[0], "//", 2))
1318 argv
[0] = xstrdup(w32ify(argv
[0],1));
1319 #else /* WINDOWS32 */
1320 #if defined (__MSDOS__) || defined (__EMX__)
1321 if (strchr (argv
[0], '\\'))
1325 argv
[0] = xstrdup (argv
[0]);
1326 for (p
= argv
[0]; *p
; p
++)
1330 /* If argv[0] is not in absolute form, prepend the current
1331 directory. This can happen when Make is invoked by another DJGPP
1332 program that uses a non-absolute name. */
1333 if (current_directory
[0] != '\0'
1335 && (argv
[0][0] != '/' && (argv
[0][0] == '\0' || argv
[0][1] != ':'))
1337 /* do not prepend cwd if argv[0] contains no '/', e.g. "make" */
1338 && (strchr (argv
[0], '/') != 0 || strchr (argv
[0], '\\') != 0)
1341 argv
[0] = xstrdup (concat (3, current_directory
, "/", argv
[0]));
1342 #else /* !__MSDOS__ */
1343 if (current_directory
[0] != '\0'
1344 && argv
[0] != 0 && argv
[0][0] != '/' && strchr (argv
[0], '/') != 0
1345 #ifdef HAVE_DOS_PATHS
1346 && (argv
[0][0] != '\\' && (!argv
[0][0] || argv
[0][1] != ':'))
1347 && strchr (argv
[0], '\\') != 0
1350 argv
[0] = xstrdup (concat (3, current_directory
, "/", argv
[0]));
1351 #endif /* !__MSDOS__ */
1352 #endif /* WINDOWS32 */
1355 /* The extra indirection through $(MAKE_COMMAND) is done
1356 for hysterical raisins. */
1357 define_variable_cname ("MAKE_COMMAND", argv
[0], o_default
, 0);
1358 define_variable_cname ("MAKE", "$(MAKE_COMMAND)", o_default
, 1);
1360 if (command_variables
!= 0)
1362 struct command_variable
*cv
;
1364 unsigned int len
= 0;
1367 /* Figure out how much space will be taken up by the command-line
1368 variable definitions. */
1369 for (cv
= command_variables
; cv
!= 0; cv
= cv
->next
)
1372 len
+= 2 * strlen (v
->name
);
1376 len
+= 2 * strlen (v
->value
);
1380 /* Now allocate a buffer big enough and fill it. */
1381 p
= value
= alloca (len
);
1382 for (cv
= command_variables
; cv
!= 0; cv
= cv
->next
)
1385 p
= quote_for_env (p
, v
->name
);
1389 p
= quote_for_env (p
, v
->value
);
1392 p
[-1] = '\0'; /* Kill the final space and terminate. */
1394 /* Define an unchangeable variable with a name that no POSIX.2
1395 makefile could validly use for its own variable. */
1396 define_variable_cname ("-*-command-variables-*-", value
, o_automatic
, 0);
1398 /* Define the variable; this will not override any user definition.
1399 Normally a reference to this variable is written into the value of
1400 MAKEFLAGS, allowing the user to override this value to affect the
1401 exported value of MAKEFLAGS. In POSIX-pedantic mode, we cannot
1402 allow the user's setting of MAKEOVERRIDES to affect MAKEFLAGS, so
1403 a reference to this hidden variable is written instead. */
1404 define_variable_cname ("MAKEOVERRIDES", "${-*-command-variables-*-}",
1408 /* If there were -C flags, move ourselves about. */
1409 if (directories
!= 0)
1412 for (i
= 0; directories
->list
[i
] != 0; ++i
)
1414 const char *dir
= directories
->list
[i
];
1416 /* WINDOWS32 chdir() doesn't work if the directory has a trailing '/'
1417 But allow -C/ just in case someone wants that. */
1419 char *p
= (char *)dir
+ strlen (dir
) - 1;
1420 while (p
> dir
&& (p
[0] == '/' || p
[0] == '\\'))
1425 if (chdir (dir
) < 0)
1426 pfatal_with_name (dir
);
1432 * THIS BLOCK OF CODE MUST COME AFTER chdir() CALL ABOVE IN ORDER
1433 * TO NOT CONFUSE THE DEPENDENCY CHECKING CODE IN implicit.c.
1435 * The functions in dir.c can incorrectly cache information for "."
1436 * before we have changed directory and this can cause file
1437 * lookups to fail because the current directory (.) was pointing
1438 * at the wrong place when it was first evaluated.
1440 no_default_sh_exe
= !find_and_set_default_shell(NULL
);
1442 #endif /* WINDOWS32 */
1443 /* Figure out the level of recursion. */
1445 struct variable
*v
= lookup_variable (STRING_SIZE_TUPLE (MAKELEVEL_NAME
));
1446 if (v
!= 0 && v
->value
[0] != '\0' && v
->value
[0] != '-')
1447 makelevel
= (unsigned int) atoi (v
->value
);
1452 /* Except under -s, always do -w in sub-makes and under -C. */
1453 if (!silent_flag
&& (directories
!= 0 || makelevel
> 0))
1454 print_directory_flag
= 1;
1456 /* Let the user disable that with --no-print-directory. */
1457 if (inhibit_print_directory_flag
)
1458 print_directory_flag
= 0;
1460 /* If -R was given, set -r too (doesn't make sense otherwise!) */
1461 if (no_builtin_variables_flag
)
1462 no_builtin_rules_flag
= 1;
1464 /* Construct the list of include directories to search. */
1466 construct_include_path (include_directories
== 0
1467 ? 0 : include_directories
->list
);
1469 /* Figure out where we are now, after chdir'ing. */
1470 if (directories
== 0)
1471 /* We didn't move, so we're still in the same place. */
1472 starting_directory
= current_directory
;
1476 if (getcwd_fs (current_directory
, GET_PATH_MAX
) == 0)
1478 if (getcwd (current_directory
, GET_PATH_MAX
) == 0)
1482 perror_with_name ("getcwd", "");
1484 error (NILF
, "getwd: %s", current_directory
);
1486 starting_directory
= 0;
1489 starting_directory
= current_directory
;
1492 define_variable_cname ("CURDIR", current_directory
, o_file
, 0);
1494 /* Read any stdin makefiles into temporary files. */
1499 for (i
= 0; i
< makefiles
->idx
; ++i
)
1500 if (makefiles
->list
[i
][0] == '-' && makefiles
->list
[i
][1] == '\0')
1502 /* This makefile is standard input. Since we may re-exec
1503 and thus re-read the makefiles, we read standard input
1504 into a temporary file and read from that. */
1506 char *template, *tmpdir
;
1509 fatal (NILF
, _("Makefile from standard input specified twice."));
1512 # define DEFAULT_TMPDIR "sys$scratch:"
1515 # define DEFAULT_TMPDIR P_tmpdir
1517 # define DEFAULT_TMPDIR "/tmp"
1520 #define DEFAULT_TMPFILE "GmXXXXXX"
1522 if (((tmpdir
= getenv ("TMPDIR")) == NULL
|| *tmpdir
== '\0')
1523 #if defined (__MSDOS__) || defined (WINDOWS32) || defined (__EMX__)
1524 /* These are also used commonly on these platforms. */
1525 && ((tmpdir
= getenv ("TEMP")) == NULL
|| *tmpdir
== '\0')
1526 && ((tmpdir
= getenv ("TMP")) == NULL
|| *tmpdir
== '\0')
1529 tmpdir
= DEFAULT_TMPDIR
;
1531 template = alloca (strlen (tmpdir
) + sizeof (DEFAULT_TMPFILE
) + 1);
1532 strcpy (template, tmpdir
);
1534 #ifdef HAVE_DOS_PATHS
1535 if (strchr ("/\\", template[strlen (template) - 1]) == NULL
)
1536 strcat (template, "/");
1539 if (template[strlen (template) - 1] != '/')
1540 strcat (template, "/");
1542 #endif /* !HAVE_DOS_PATHS */
1544 strcat (template, DEFAULT_TMPFILE
);
1545 outfile
= open_tmpfile (&stdin_nm
, template);
1547 pfatal_with_name (_("fopen (temporary file)"));
1548 while (!feof (stdin
) && ! ferror (stdin
))
1551 unsigned int n
= fread (buf
, 1, sizeof (buf
), stdin
);
1552 if (n
> 0 && fwrite (buf
, 1, n
, outfile
) != n
)
1553 pfatal_with_name (_("fwrite (temporary file)"));
1557 /* Replace the name that read_all_makefiles will
1558 see with the name of the temporary file. */
1559 makefiles
->list
[i
] = strcache_add (stdin_nm
);
1561 /* Make sure the temporary file will not be remade. */
1563 struct file
*f
= enter_file (strcache_add (stdin_nm
));
1565 f
->update_status
= 0;
1566 f
->command_state
= cs_finished
;
1567 /* Can't be intermediate, or it'll be removed too early for
1569 f
->intermediate
= 0;
1575 #ifndef __EMX__ /* Don't use a SIGCHLD handler for OS/2 */
1576 #if defined(MAKE_JOBSERVER) || !defined(HAVE_WAIT_NOHANG)
1577 /* Set up to handle children dying. This must be done before
1578 reading in the makefiles so that `shell' function calls will work.
1580 If we don't have a hanging wait we have to fall back to old, broken
1581 functionality here and rely on the signal handler and counting
1584 If we're using the jobs pipe we need a signal handler so that
1585 SIGCHLD is not ignored; we need it to interrupt the read(2) of the
1586 jobserver pipe in job.c if we're waiting for a token.
1588 If none of these are true, we don't need a signal handler at all. */
1590 RETSIGTYPE
child_handler (int sig
);
1591 # if defined SIGCHLD
1592 bsd_signal (SIGCHLD
, child_handler
);
1594 # if defined SIGCLD && SIGCLD != SIGCHLD
1595 bsd_signal (SIGCLD
, child_handler
);
1601 /* Let the user send us SIGUSR1 to toggle the -d flag during the run. */
1603 bsd_signal (SIGUSR1
, debug_signal_handler
);
1606 /* Define the initial list of suffixes for old-style rules. */
1608 set_default_suffixes ();
1610 /* Define the file rules for the built-in suffix rules. These will later
1611 be converted into pattern rules. We used to do this in
1612 install_default_implicit_rules, but since that happens after reading
1613 makefiles, it results in the built-in pattern rules taking precedence
1614 over makefile-specified suffix rules, which is wrong. */
1616 install_default_suffix_rules ();
1618 /* Define some internal and special variables. */
1620 define_automatic_variables ();
1622 /* Set up the MAKEFLAGS and MFLAGS variables
1623 so makefiles can look at them. */
1625 define_makeflags (0, 0);
1627 /* Define the default variables. */
1628 define_default_variables ();
1630 default_file
= enter_file (strcache_add (".DEFAULT"));
1632 default_goal_var
= define_variable_cname (".DEFAULT_GOAL", "", o_file
, 0);
1634 /* Evaluate all strings provided with --eval.
1635 Also set up the $(-*-eval-flags-*-) variable. */
1641 unsigned int len
= sizeof ("--eval=") * eval_strings
->idx
;
1643 for (i
= 0; i
< eval_strings
->idx
; ++i
)
1645 p
= xstrdup (eval_strings
->list
[i
]);
1646 len
+= 2 * strlen (p
);
1651 p
= value
= alloca (len
);
1652 for (i
= 0; i
< eval_strings
->idx
; ++i
)
1654 strcpy (p
, "--eval=");
1656 p
= quote_for_env (p
, eval_strings
->list
[i
]);
1661 define_variable_cname ("-*-eval-flags-*-", value
, o_automatic
, 0);
1664 /* Read all the makefiles. */
1667 = read_all_makefiles (makefiles
== 0 ? 0 : makefiles
->list
);
1670 /* look one last time after reading all Makefiles */
1671 if (no_default_sh_exe
)
1672 no_default_sh_exe
= !find_and_set_default_shell(NULL
);
1673 #endif /* WINDOWS32 */
1675 #if defined (__MSDOS__) || defined (__EMX__)
1676 /* We need to know what kind of shell we will be using. */
1678 extern int _is_unixy_shell (const char *_path
);
1679 struct variable
*shv
= lookup_variable (STRING_SIZE_TUPLE ("SHELL"));
1680 extern int unixy_shell
;
1681 extern char *default_shell
;
1683 if (shv
&& *shv
->value
)
1685 char *shell_path
= recursively_expand(shv
);
1687 if (shell_path
&& _is_unixy_shell (shell_path
))
1692 default_shell
= shell_path
;
1695 #endif /* __MSDOS__ || __EMX__ */
1697 /* Decode switches again, in case the variables were set by the makefile. */
1698 decode_env_switches (STRING_SIZE_TUPLE ("MAKEFLAGS"));
1700 decode_env_switches (STRING_SIZE_TUPLE ("MFLAGS"));
1703 #if defined (__MSDOS__) || defined (__EMX__)
1706 && _osmode
!= OS2_MODE
/* turn off -j if we are in DOS mode */
1711 _("Parallel jobs (-j) are not supported on this platform."));
1712 error (NILF
, _("Resetting to single job (-j1) mode."));
1717 #ifdef MAKE_JOBSERVER
1718 /* If the jobserver-fds option is seen, make sure that -j is reasonable. */
1725 for (ui
=1; ui
< jobserver_fds
->idx
; ++ui
)
1726 if (!streq (jobserver_fds
->list
[0], jobserver_fds
->list
[ui
]))
1727 fatal (NILF
, _("internal error: multiple --jobserver-fds options"));
1729 /* Now parse the fds string and make sure it has the proper format. */
1731 cp
= jobserver_fds
->list
[0];
1734 if (! open_jobserver_semaphore(cp
))
1736 DWORD err
= GetLastError();
1737 fatal (NILF
, _("internal error: unable to open jobserver semaphore `%s': (Error %ld: %s)"),
1738 cp
, err
, map_windows32_error_to_string(err
));
1740 DB (DB_JOBS
, (_("Jobserver client (semaphore %s)\n"), cp
));
1742 if (sscanf (cp
, "%d,%d", &job_fds
[0], &job_fds
[1]) != 2)
1744 _("internal error: invalid --jobserver-fds string `%s'"), cp
);
1747 (_("Jobserver client (fds %d,%d)\n"), job_fds
[0], job_fds
[1]));
1750 /* The combination of a pipe + !job_slots means we're using the
1751 jobserver. If !job_slots and we don't have a pipe, we can start
1752 infinite jobs. If we see both a pipe and job_slots >0 that means the
1753 user set -j explicitly. This is broken; in this case obey the user
1754 (ignore the jobserver pipe for this make) but print a message. */
1758 _("warning: -jN forced in submake: disabling jobserver mode."));
1761 /* Create a duplicate pipe, that will be closed in the SIGCHLD
1762 handler. If this fails with EBADF, the parent has closed the pipe
1763 on us because it didn't think we were a submake. If so, print a
1764 warning then default to -j1. */
1765 else if ((job_rfd
= dup (job_fds
[0])) < 0)
1768 pfatal_with_name (_("dup jobserver"));
1771 _("warning: jobserver unavailable: using -j1. Add `+' to parent make rule."));
1779 free_jobserver_semaphore ();
1784 job_fds
[0] = job_fds
[1] = -1;
1785 free (jobserver_fds
->list
);
1786 free (jobserver_fds
);
1791 /* If we have >1 slot but no jobserver-fds, then we're a top-level make.
1792 Set up the pipe and install the fds option for our children. */
1799 /* sub_proc.c cannot wait for more than MAXIMUM_WAIT_OBJECTS objects
1800 * and one of them is the job-server semaphore object. Limit the
1801 * number of available job slots to (MAXIMUM_WAIT_OBJECTS - 1). */
1803 if (job_slots
>= MAXIMUM_WAIT_OBJECTS
)
1805 job_slots
= MAXIMUM_WAIT_OBJECTS
- 1;
1806 DB (DB_JOBS
, (_("Jobserver slots limited to %d\n"), job_slots
));
1809 if (! create_jobserver_semaphore(job_slots
- 1))
1811 DWORD err
= GetLastError();
1812 fatal (NILF
, _("creating jobserver semaphore: (Error %ld: %s)"),
1813 err
, map_windows32_error_to_string(err
));
1818 if (pipe (job_fds
) < 0 || (job_rfd
= dup (job_fds
[0])) < 0)
1819 pfatal_with_name (_("creating jobs pipe"));
1822 /* Every make assumes that it always has one job it can run. For the
1823 submakes it's the token they were given by their parent. For the
1824 top make, we just subtract one from the number the user wants. We
1825 want job_slots to be 0 to indicate we're using the jobserver. */
1827 master_job_slots
= job_slots
;
1830 /* We're using the jobserver so set job_slots to 0. */
1837 EINTRLOOP (r
, write (job_fds
[1], &c
, 1));
1839 pfatal_with_name (_("init jobserver pipe"));
1843 /* Fill in the jobserver_fds struct for our children. */
1846 cp
= xmalloc (MAX_PATH
+ 1);
1847 strcpy (cp
, get_jobserver_semaphore_name());
1849 cp
= xmalloc ((sizeof ("1024")*2)+1);
1850 sprintf (cp
, "%d,%d", job_fds
[0], job_fds
[1]);
1853 jobserver_fds
= (struct stringlist
*)
1854 xmalloc (sizeof (struct stringlist
));
1855 jobserver_fds
->list
= xmalloc (sizeof (char *));
1856 jobserver_fds
->list
[0] = cp
;
1857 jobserver_fds
->idx
= 1;
1858 jobserver_fds
->max
= 1;
1862 #ifndef MAKE_SYMLINKS
1863 if (check_symlink_flag
)
1865 error (NILF
, _("Symbolic links not supported: disabling -L."));
1866 check_symlink_flag
= 0;
1870 /* Set up MAKEFLAGS and MFLAGS again, so they will be right. */
1872 define_makeflags (1, 0);
1874 /* Make each `struct dep' point at the `struct file' for the file
1875 depended on. Also do magic for special targets. */
1879 /* Convert old-style suffix rules to pattern rules. It is important to
1880 do this before installing the built-in pattern rules below, so that
1881 makefile-specified suffix rules take precedence over built-in pattern
1884 convert_to_pattern ();
1886 /* Install the default implicit pattern rules.
1887 This used to be done before reading the makefiles.
1888 But in that case, built-in pattern rules were in the chain
1889 before user-defined ones, so they matched first. */
1891 install_default_implicit_rules ();
1893 /* Compute implicit rule limits. */
1895 count_implicit_rule_limits ();
1897 /* Construct the listings of directories in VPATH lists. */
1899 build_vpath_lists ();
1901 /* Mark files given with -o flags as very old and as having been updated
1902 already, and files given with -W flags as brand new (time-stamp as far
1903 as possible into the future). If restarts is set we'll do -W later. */
1908 for (p
= old_files
->list
; *p
!= 0; ++p
)
1910 struct file
*f
= enter_file (*p
);
1911 f
->last_mtime
= f
->mtime_before_update
= OLD_MTIME
;
1913 f
->update_status
= 0;
1914 f
->command_state
= cs_finished
;
1918 if (!restarts
&& new_files
!= 0)
1921 for (p
= new_files
->list
; *p
!= 0; ++p
)
1923 struct file
*f
= enter_file (*p
);
1924 f
->last_mtime
= f
->mtime_before_update
= NEW_MTIME
;
1928 /* Initialize the remote job module. */
1931 if (read_makefiles
!= 0)
1933 /* Update any makefiles if necessary. */
1935 FILE_TIMESTAMP
*makefile_mtimes
= 0;
1936 unsigned int mm_idx
= 0;
1939 int orig_db_level
= db_level
;
1942 if (! ISDB (DB_MAKEFILES
))
1945 DB (DB_BASIC
, (_("Updating makefiles....\n")));
1947 /* Remove any makefiles we don't want to try to update.
1948 Also record the current modtimes so we can compare them later. */
1950 register struct dep
*d
, *last
;
1955 struct file
*f
= d
->file
;
1956 if (f
->double_colon
)
1957 for (f
= f
->double_colon
; f
!= NULL
; f
= f
->prev
)
1959 if (f
->deps
== 0 && f
->cmds
!= 0)
1961 /* This makefile is a :: target with commands, but
1962 no dependencies. So, it will always be remade.
1963 This might well cause an infinite loop, so don't
1964 try to remake it. (This will only happen if
1965 your makefiles are written exceptionally
1966 stupidly; but if you work for Athena, that's how
1967 you write your makefiles.) */
1970 (_("Makefile `%s' might loop; not remaking it.\n"),
1974 read_makefiles
= d
->next
;
1976 last
->next
= d
->next
;
1978 /* Free the storage. */
1981 d
= last
== 0 ? read_makefiles
: last
->next
;
1986 if (f
== NULL
|| !f
->double_colon
)
1988 makefile_mtimes
= xrealloc (makefile_mtimes
,
1990 * sizeof (FILE_TIMESTAMP
));
1991 makefile_mtimes
[mm_idx
++] = file_mtime_no_search (d
->file
);
1998 /* Set up `MAKEFLAGS' specially while remaking makefiles. */
1999 define_makeflags (1, 1);
2001 rebuilding_makefiles
= 1;
2002 status
= update_goal_chain (read_makefiles
);
2003 rebuilding_makefiles
= 0;
2008 /* The only way this can happen is if the user specified -q and asked
2009 * for one of the makefiles to be remade as a target on the command
2010 * line. Since we're not actually updating anything with -q we can
2011 * treat this as "did nothing".
2019 /* Failed to update. Figure out if we care. */
2021 /* Nonzero if any makefile was successfully remade. */
2023 /* Nonzero if any makefile we care about failed
2024 in updating or could not be found at all. */
2029 for (i
= 0, d
= read_makefiles
; d
!= 0; ++i
, d
= d
->next
)
2031 /* Reset the considered flag; we may need to look at the file
2032 again to print an error. */
2033 d
->file
->considered
= 0;
2035 if (d
->file
->updated
)
2037 /* This makefile was updated. */
2038 if (d
->file
->update_status
== 0)
2040 /* It was successfully updated. */
2041 any_remade
|= (file_mtime_no_search (d
->file
)
2042 != makefile_mtimes
[i
]);
2044 else if (! (d
->changed
& RM_DONTCARE
))
2046 FILE_TIMESTAMP mtime
;
2047 /* The update failed and this makefile was not
2048 from the MAKEFILES variable, so we care. */
2049 error (NILF
, _("Failed to remake makefile `%s'."),
2051 mtime
= file_mtime_no_search (d
->file
);
2052 any_remade
|= (mtime
!= NONEXISTENT_MTIME
2053 && mtime
!= makefile_mtimes
[i
]);
2054 makefile_status
= MAKE_FAILURE
;
2058 /* This makefile was not found at all. */
2059 if (! (d
->changed
& RM_DONTCARE
))
2061 /* This is a makefile we care about. See how much. */
2062 if (d
->changed
& RM_INCLUDED
)
2063 /* An included makefile. We don't need
2064 to die, but we do want to complain. */
2066 _("Included makefile `%s' was not found."),
2070 /* A normal makefile. We must die later. */
2071 error (NILF
, _("Makefile `%s' was not found"),
2077 /* Reset this to empty so we get the right error message below. */
2089 /* Updated successfully. Re-exec ourselves. */
2091 remove_intermediates (0);
2093 if (print_data_base_flag
)
2096 log_working_directory (0);
2098 clean_jobserver (0);
2102 /* These names might have changed. */
2104 for (i
= 1; i
< argc
; ++i
)
2105 if (strneq (argv
[i
], "-f", 2)) /* XXX */
2107 if (argv
[i
][2] == '\0')
2108 /* This cast is OK since we never modify argv. */
2109 argv
[++i
] = (char *) makefiles
->list
[j
];
2111 argv
[i
] = xstrdup (concat (2, "-f", makefiles
->list
[j
]));
2116 /* Add -o option for the stdin temporary file, if necessary. */
2120 nargv
= xmalloc ((nargc
+ 2) * sizeof (char *));
2121 memcpy (nargv
, argv
, argc
* sizeof (char *));
2122 nargv
[nargc
++] = xstrdup (concat (2, "-o", stdin_nm
));
2128 if (directories
!= 0 && directories
->idx
> 0)
2131 if (directory_before_chdir
!= 0)
2133 if (chdir (directory_before_chdir
) < 0)
2134 perror_with_name ("chdir", "");
2139 fatal (NILF
, _("Couldn't change back to original directory."));
2144 /* If we're re-exec'ing the first make, put back the number of
2145 job slots so define_makefiles() will get it right. */
2146 if (master_job_slots
)
2147 job_slots
= master_job_slots
;
2149 /* Reset makeflags in case they were changed. */
2151 const char *pv
= define_makeflags (1, 1);
2152 char *p
= alloca (sizeof ("MAKEFLAGS=") + strlen (pv
) + 1);
2153 sprintf (p
, "MAKEFLAGS=%s", pv
);
2154 putenv (allocated_variable_expand (p
));
2157 if (ISDB (DB_BASIC
))
2160 printf (_("Re-executing[%u]:"), restarts
);
2161 for (p
= nargv
; *p
!= 0; ++p
)
2169 for (p
= environ
; *p
!= 0; ++p
)
2171 if (strneq (*p
, MAKELEVEL_NAME
, MAKELEVEL_LENGTH
)
2172 && (*p
)[MAKELEVEL_LENGTH
] == '=')
2175 sprintf (*p
, "%s=%u", MAKELEVEL_NAME
, makelevel
);
2177 if (strneq (*p
, "MAKE_RESTARTS=", 14))
2180 sprintf (*p
, "MAKE_RESTARTS=%u", restarts
);
2189 sprintf (buffer
, "%u", makelevel
);
2190 SetVar (MAKELEVEL_NAME
, buffer
, -1, GVF_GLOBAL_ONLY
);
2192 sprintf (buffer
, "%u", restarts
);
2193 SetVar ("MAKE_RESTARTS", buffer
, -1, GVF_GLOBAL_ONLY
);
2198 /* If we didn't set the restarts variable yet, add it. */
2201 char *b
= alloca (40);
2202 sprintf (b
, "MAKE_RESTARTS=%u", restarts
);
2209 /* Close the dup'd jobserver pipe if we opened one. */
2214 exec_command (nargv
);
2216 #elif defined (__EMX__)
2218 /* It is not possible to use execve() here because this
2219 would cause the parent process to be terminated with
2220 exit code 0 before the child process has been terminated.
2221 Therefore it may be the best solution simply to spawn the
2222 child process including all file handles and to wait for its
2226 pid
= child_execute_job (0, 1, nargv
, environ
);
2228 /* is this loop really necessary? */
2230 pid
= wait (&status
);
2232 /* use the exit code of the child process */
2233 exit (WIFEXITED(status
) ? WEXITSTATUS(status
) : EXIT_FAILURE
);
2236 exec_command (nargv
, environ
);
2241 #define BOGUS_UPDATE_STATUS 0
2242 assert (BOGUS_UPDATE_STATUS
);
2246 db_level
= orig_db_level
;
2248 /* Free the makefile mtimes (if we allocated any). */
2249 if (makefile_mtimes
)
2250 free (makefile_mtimes
);
2253 /* Set up `MAKEFLAGS' again for the normal targets. */
2254 define_makeflags (1, 0);
2256 /* Set always_make_flag if -B was given. */
2257 always_make_flag
= always_make_set
;
2259 /* If restarts is set we haven't set up -W files yet, so do that now. */
2260 if (restarts
&& new_files
!= 0)
2263 for (p
= new_files
->list
; *p
!= 0; ++p
)
2265 struct file
*f
= enter_file (*p
);
2266 f
->last_mtime
= f
->mtime_before_update
= NEW_MTIME
;
2270 /* If there is a temp file from reading a makefile from stdin, get rid of
2272 if (stdin_nm
&& unlink (stdin_nm
) < 0 && errno
!= ENOENT
)
2273 perror_with_name (_("unlink (temporary file): "), stdin_nm
);
2275 /* If there were no command-line goals, use the default. */
2280 if (default_goal_var
->recursive
)
2281 p
= variable_expand (default_goal_var
->value
);
2284 p
= variable_buffer_output (variable_buffer
, default_goal_var
->value
,
2285 strlen (default_goal_var
->value
));
2287 p
= variable_buffer
;
2292 struct file
*f
= lookup_file (p
);
2294 /* If .DEFAULT_GOAL is a non-existent target, enter it into the
2295 table and let the standard logic sort it out. */
2300 ns
= PARSE_FILE_SEQ (&p
, struct nameseq
, '\0', NULL
, 0);
2303 /* .DEFAULT_GOAL should contain one target. */
2305 fatal (NILF
, _(".DEFAULT_GOAL contains more than one target"));
2307 f
= enter_file (strcache_add (ns
->name
));
2309 ns
->name
= 0; /* It was reused by enter_file(). */
2316 goals
= alloc_dep ();
2327 if (read_makefiles
== 0)
2328 fatal (NILF
, _("No targets specified and no makefile found"));
2330 fatal (NILF
, _("No targets"));
2333 /* Update the goals. */
2335 DB (DB_BASIC
, (_("Updating goal targets....\n")));
2340 switch (update_goal_chain (goals
))
2343 /* Nothing happened. */
2345 /* Updated successfully. */
2346 status
= makefile_status
;
2349 /* We are under -q and would run some commands. */
2350 status
= MAKE_TROUBLE
;
2353 /* Updating failed. POSIX.2 specifies exit status >1 for this;
2354 but in VMS, there is only success and failure. */
2355 status
= MAKE_FAILURE
;
2361 /* If we detected some clock skew, generate one last warning */
2362 if (clock_skew_detected
)
2364 _("warning: Clock skew detected. Your build may be incomplete."));
2374 /* Parsing of arguments, decoding of switches. */
2376 static char options
[1 + sizeof (switches
) / sizeof (switches
[0]) * 3];
2377 static struct option long_options
[(sizeof (switches
) / sizeof (switches
[0])) +
2378 (sizeof (long_option_aliases
) /
2379 sizeof (long_option_aliases
[0]))];
2381 /* Fill in the string and vector for getopt. */
2383 init_switches (void)
2389 if (options
[0] != '\0')
2395 /* Return switch and non-switch args in order, regardless of
2396 POSIXLY_CORRECT. Non-switch args are returned as option 1. */
2399 for (i
= 0; switches
[i
].c
!= '\0'; ++i
)
2401 long_options
[i
].name
= (switches
[i
].long_name
== 0 ? "" :
2402 switches
[i
].long_name
);
2403 long_options
[i
].flag
= 0;
2404 long_options
[i
].val
= switches
[i
].c
;
2405 if (short_option (switches
[i
].c
))
2406 *p
++ = switches
[i
].c
;
2407 switch (switches
[i
].type
)
2412 long_options
[i
].has_arg
= no_argument
;
2419 if (short_option (switches
[i
].c
))
2421 if (switches
[i
].noarg_value
!= 0)
2423 if (short_option (switches
[i
].c
))
2425 long_options
[i
].has_arg
= optional_argument
;
2428 long_options
[i
].has_arg
= required_argument
;
2433 for (c
= 0; c
< (sizeof (long_option_aliases
) /
2434 sizeof (long_option_aliases
[0]));
2436 long_options
[i
++] = long_option_aliases
[c
];
2437 long_options
[i
].name
= 0;
2441 handle_non_switch_argument (char *arg
, int env
)
2443 /* Non-option argument. It might be a variable definition. */
2445 if (arg
[0] == '-' && arg
[1] == '\0')
2446 /* Ignore plain `-' for compatibility. */
2448 v
= try_variable_definition (0, arg
, o_command
, 0);
2451 /* It is indeed a variable definition. If we don't already have this
2452 one, record a pointer to the variable for later use in
2453 define_makeflags. */
2454 struct command_variable
*cv
;
2456 for (cv
= command_variables
; cv
!= 0; cv
= cv
->next
)
2457 if (cv
->variable
== v
)
2461 cv
= xmalloc (sizeof (*cv
));
2463 cv
->next
= command_variables
;
2464 command_variables
= cv
;
2469 /* Not an option or variable definition; it must be a goal
2470 target! Enter it as a file and add it to the dep chain of
2472 struct file
*f
= enter_file (strcache_add (expand_command_line_file (arg
)));
2477 goals
= alloc_dep ();
2482 lastgoal
->next
= alloc_dep ();
2483 lastgoal
= lastgoal
->next
;
2489 /* Add this target name to the MAKECMDGOALS variable. */
2490 struct variable
*gv
;
2493 gv
= lookup_variable (STRING_SIZE_TUPLE ("MAKECMDGOALS"));
2498 /* Paste the old and new values together */
2499 unsigned int oldlen
, newlen
;
2502 oldlen
= strlen (gv
->value
);
2503 newlen
= strlen (f
->name
);
2504 vp
= alloca (oldlen
+ 1 + newlen
+ 1);
2505 memcpy (vp
, gv
->value
, oldlen
);
2507 memcpy (&vp
[oldlen
+ 1], f
->name
, newlen
+ 1);
2510 define_variable_cname ("MAKECMDGOALS", value
, o_default
, 0);
2515 /* Print a nice usage method. */
2518 print_usage (int bad
)
2520 const char *const *cpp
;
2523 if (print_version_flag
)
2526 usageto
= bad
? stderr
: stdout
;
2528 fprintf (usageto
, _("Usage: %s [options] [target] ...\n"), program
);
2530 for (cpp
= usage
; *cpp
; ++cpp
)
2531 fputs (_(*cpp
), usageto
);
2533 if (!remote_description
|| *remote_description
== '\0')
2534 fprintf (usageto
, _("\nThis program built for %s\n"), make_host
);
2536 fprintf (usageto
, _("\nThis program built for %s (%s)\n"),
2537 make_host
, remote_description
);
2539 fprintf (usageto
, _("Report bugs to <bug-make@gnu.org>\n"));
2542 /* Decode switches from ARGC and ARGV.
2543 They came from the environment if ENV is nonzero. */
2546 decode_switches (int argc
, char **argv
, int env
)
2549 register const struct command_switch
*cs
;
2550 register struct stringlist
*sl
;
2553 /* getopt does most of the parsing for us.
2554 First, get its vectors set up. */
2558 /* Let getopt produce error messages for the command line,
2559 but not for options from the environment. */
2561 /* Reset getopt's state. */
2564 while (optind
< argc
)
2566 /* Parse the next argument. */
2567 c
= getopt_long (argc
, argv
, options
, long_options
, (int *) 0);
2569 /* End of arguments, or "--" marker seen. */
2572 /* An argument not starting with a dash. */
2573 handle_non_switch_argument (optarg
, env
);
2575 /* Bad option. We will print a usage message and die later.
2576 But continue to parse the other options so the user can
2577 see all he did wrong. */
2580 for (cs
= switches
; cs
->c
!= '\0'; ++cs
)
2583 /* Whether or not we will actually do anything with
2584 this switch. We test this individually inside the
2585 switch below rather than just once outside it, so that
2586 options which are to be ignored still consume args. */
2587 int doit
= !env
|| cs
->env
;
2600 *(int *) cs
->value_ptr
= cs
->type
== flag
;
2609 optarg
= xstrdup (cs
->noarg_value
);
2610 else if (*optarg
== '\0')
2613 const char *op
= opt
;
2615 if (short_option (cs
->c
))
2620 error (NILF
, _("the `%s%s' option requires a non-empty string argument"),
2621 short_option (cs
->c
) ? "-" : "--", op
);
2625 sl
= *(struct stringlist
**) cs
->value_ptr
;
2628 sl
= (struct stringlist
*)
2629 xmalloc (sizeof (struct stringlist
));
2632 sl
->list
= xmalloc (5 * sizeof (char *));
2633 *(struct stringlist
**) cs
->value_ptr
= sl
;
2635 else if (sl
->idx
== sl
->max
- 1)
2638 /* MSVC erroneously warns without a cast here. */
2639 sl
->list
= xrealloc ((void *)sl
->list
,
2640 sl
->max
* sizeof (char *));
2642 if (cs
->type
== filename
)
2643 sl
->list
[sl
->idx
++] = expand_command_line_file (optarg
);
2645 sl
->list
[sl
->idx
++] = optarg
;
2646 sl
->list
[sl
->idx
] = 0;
2650 /* See if we have an option argument; if we do require that
2651 it's all digits, not something like "10foo". */
2652 if (optarg
== 0 && argc
> optind
)
2655 for (cp
=argv
[optind
]; ISDIGIT (cp
[0]); ++cp
)
2658 optarg
= argv
[optind
++];
2666 int i
= atoi (optarg
);
2669 /* Yes, I realize we're repeating this in some cases. */
2670 for (cp
= optarg
; ISDIGIT (cp
[0]); ++cp
)
2673 if (i
< 1 || cp
[0] != '\0')
2675 error (NILF
, _("the `-%c' option requires a positive integral argument"),
2680 *(unsigned int *) cs
->value_ptr
= i
;
2683 *(unsigned int *) cs
->value_ptr
2684 = *(unsigned int *) cs
->noarg_value
;
2689 if (optarg
== 0 && optind
< argc
2690 && (ISDIGIT (argv
[optind
][0]) || argv
[optind
][0] == '.'))
2691 optarg
= argv
[optind
++];
2694 *(double *) cs
->value_ptr
2695 = (optarg
!= 0 ? atof (optarg
)
2696 : *(double *) cs
->noarg_value
);
2702 /* We've found the switch. Stop looking. */
2707 /* There are no more options according to getting getopt, but there may
2708 be some arguments left. Since we have asked for non-option arguments
2709 to be returned in order, this only happens when there is a "--"
2710 argument to prevent later arguments from being options. */
2711 while (optind
< argc
)
2712 handle_non_switch_argument (argv
[optind
++], env
);
2715 if (!env
&& (bad
|| print_usage_flag
))
2722 /* Decode switches from environment variable ENVAR (which is LEN chars long).
2723 We do this by chopping the value into a vector of words, prepending a
2724 dash to the first word if it lacks one, and passing the vector to
2728 decode_env_switches (char *envar
, unsigned int len
)
2730 char *varref
= alloca (2 + len
+ 2);
2735 /* Get the variable's value. */
2738 memcpy (&varref
[2], envar
, len
);
2739 varref
[2 + len
] = ')';
2740 varref
[2 + len
+ 1] = '\0';
2741 value
= variable_expand (varref
);
2743 /* Skip whitespace, and check for an empty value. */
2744 value
= next_token (value
);
2745 len
= strlen (value
);
2749 /* Allocate a vector that is definitely big enough. */
2750 argv
= alloca ((1 + len
+ 1) * sizeof (char *));
2752 /* Allocate a buffer to copy the value into while we split it into words
2753 and unquote it. We must use permanent storage for this because
2754 decode_switches may store pointers into the passed argument words. */
2755 p
= xmalloc (2 * len
);
2757 /* getopt will look at the arguments starting at ARGV[1].
2758 Prepend a spacer word. */
2762 while (*value
!= '\0')
2764 if (*value
== '\\' && value
[1] != '\0')
2765 ++value
; /* Skip the backslash. */
2766 else if (isblank ((unsigned char)*value
))
2768 /* End of the word. */
2773 while (isblank ((unsigned char)*value
));
2781 if (argv
[1][0] != '-' && strchr (argv
[1], '=') == 0)
2782 /* The first word doesn't start with a dash and isn't a variable
2783 definition. Add a dash and pass it along to decode_switches. We
2784 need permanent storage for this in case decode_switches saves
2785 pointers into the value. */
2786 argv
[1] = xstrdup (concat (2, "-", argv
[1]));
2788 /* Parse those words. */
2789 decode_switches (argc
, argv
, 1);
2792 /* Quote the string IN so that it will be interpreted as a single word with
2793 no magic by decode_env_switches; also double dollar signs to avoid
2794 variable expansion in make itself. Write the result into OUT, returning
2795 the address of the next character to be written.
2796 Allocating space for OUT twice the length of IN is always sufficient. */
2799 quote_for_env (char *out
, const char *in
)
2805 else if (isblank ((unsigned char)*in
) || *in
== '\\')
2813 /* Define the MAKEFLAGS and MFLAGS variables to reflect the settings of the
2814 command switches. Include options with args if ALL is nonzero.
2815 Don't include options with the `no_makefile' flag set if MAKEFILE. */
2818 define_makeflags (int all
, int makefile
)
2820 const char ref
[] = "$(MAKEOVERRIDES)";
2821 const char posixref
[] = "$(-*-command-variables-*-)";
2822 const char evalref
[] = "$(-*-eval-flags-*-)";
2823 const struct command_switch
*cs
;
2829 /* We will construct a linked list of `struct flag's describing
2830 all the flags which need to go in MAKEFLAGS. Then, once we
2831 know how many there are and their lengths, we can put them all
2832 together in a string. */
2837 const struct command_switch
*cs
;
2840 struct flag
*flags
= 0;
2841 unsigned int flagslen
= 0;
2842 #define ADD_FLAG(ARG, LEN) \
2844 struct flag *new = alloca (sizeof (struct flag)); \
2847 new->next = flags; \
2849 if (new->arg == 0) \
2850 ++flagslen; /* Just a single flag letter. */ \
2852 /* " -x foo", plus space to expand "foo". */ \
2853 flagslen += 1 + 1 + 1 + 1 + (3 * (LEN)); \
2854 if (!short_option (cs->c)) \
2855 /* This switch has no single-letter version, so we use the long. */ \
2856 flagslen += 2 + strlen (cs->long_name); \
2859 for (cs
= switches
; cs
->c
!= '\0'; ++cs
)
2860 if (cs
->toenv
&& (!makefile
|| !cs
->no_makefile
))
2868 if (!*(int *) cs
->value_ptr
== (cs
->type
== flag_off
)
2869 && (cs
->default_value
== 0
2870 || *(int *) cs
->value_ptr
!= *(int *) cs
->default_value
))
2877 if ((cs
->default_value
!= 0
2878 && (*(unsigned int *) cs
->value_ptr
2879 == *(unsigned int *) cs
->default_value
)))
2881 else if (cs
->noarg_value
!= 0
2882 && (*(unsigned int *) cs
->value_ptr
==
2883 *(unsigned int *) cs
->noarg_value
))
2884 ADD_FLAG ("", 0); /* Optional value omitted; see below. */
2887 char *buf
= alloca (30);
2888 sprintf (buf
, "%u", *(unsigned int *) cs
->value_ptr
);
2889 ADD_FLAG (buf
, strlen (buf
));
2898 if (cs
->default_value
!= 0
2899 && (*(double *) cs
->value_ptr
2900 == *(double *) cs
->default_value
))
2902 else if (cs
->noarg_value
!= 0
2903 && (*(double *) cs
->value_ptr
2904 == *(double *) cs
->noarg_value
))
2905 ADD_FLAG ("", 0); /* Optional value omitted; see below. */
2908 char *buf
= alloca (100);
2909 sprintf (buf
, "%g", *(double *) cs
->value_ptr
);
2910 ADD_FLAG (buf
, strlen (buf
));
2920 struct stringlist
*sl
= *(struct stringlist
**) cs
->value_ptr
;
2923 /* Add the elements in reverse order, because all the flags
2924 get reversed below; and the order matters for some
2925 switches (like -I). */
2926 unsigned int i
= sl
->idx
;
2928 ADD_FLAG (sl
->list
[i
], strlen (sl
->list
[i
]));
2937 /* Four more for the possible " -- ". */
2938 flagslen
+= 4 + sizeof (posixref
) + sizeof (evalref
);
2942 /* Construct the value in FLAGSTRING.
2943 We allocate enough space for a preceding dash and trailing null. */
2944 flagstring
= alloca (1 + flagslen
+ 1);
2945 memset (flagstring
, '\0', 1 + flagslen
+ 1);
2951 /* Add the flag letter or name to the string. */
2952 if (short_option (flags
->cs
->c
))
2953 *p
++ = flags
->cs
->c
;
2962 strcpy (p
, flags
->cs
->long_name
);
2965 if (flags
->arg
!= 0)
2967 /* A flag that takes an optional argument which in this case is
2968 omitted is specified by ARG being "". We must distinguish
2969 because a following flag appended without an intervening " -"
2970 is considered the arg for the first. */
2971 if (flags
->arg
[0] != '\0')
2973 /* Add its argument too. */
2974 *p
++ = !short_option (flags
->cs
->c
) ? '=' : ' ';
2975 p
= quote_for_env (p
, flags
->arg
);
2978 /* Write a following space and dash, for the next flag. */
2982 else if (!short_option (flags
->cs
->c
))
2985 /* Long options must each go in their own word,
2986 so we write the following space and dash. */
2990 flags
= flags
->next
;
2993 /* Define MFLAGS before appending variable definitions. */
2995 if (p
== &flagstring
[1])
2997 flagstring
[0] = '\0';
2998 else if (p
[-1] == '-')
3000 /* Kill the final space and dash. */
3005 /* Terminate the string. */
3008 /* Since MFLAGS is not parsed for flags, there is no reason to
3009 override any makefile redefinition. */
3010 define_variable_cname ("MFLAGS", flagstring
, o_env
, 1);
3012 /* Write a reference to -*-eval-flags-*-, which contains all the --eval
3016 if (p
== &flagstring
[1])
3017 /* No flags written, so elide the leading dash already written. */
3021 memcpy (p
, evalref
, sizeof (evalref
) - 1);
3022 p
+= sizeof (evalref
) - 1;
3025 if (all
&& command_variables
!= 0)
3027 /* Now write a reference to $(MAKEOVERRIDES), which contains all the
3028 command-line variable definitions. */
3030 if (p
== &flagstring
[1])
3031 /* No flags written, so elide the leading dash already written. */
3035 /* Separate the variables from the switches with a "--" arg. */
3038 /* We did not already write a trailing " -". */
3042 /* There is a trailing " -"; fill it out to " -- ". */
3047 /* Copy in the string. */
3050 memcpy (p
, posixref
, sizeof (posixref
) - 1);
3051 p
+= sizeof (posixref
) - 1;
3055 memcpy (p
, ref
, sizeof (ref
) - 1);
3056 p
+= sizeof (ref
) - 1;
3059 else if (p
== &flagstring
[1])
3064 else if (p
[-1] == '-')
3065 /* Kill the final space and dash. */
3067 /* Terminate the string. */
3070 /* If there are switches, omit the leading dash unless it is a single long
3071 option with two leading dashes. */
3072 if (flagstring
[0] == '-' && flagstring
[1] != '-')
3075 v
= define_variable_cname ("MAKEFLAGS", flagstring
,
3076 /* This used to use o_env, but that lost when a
3077 makefile defined MAKEFLAGS. Makefiles set
3078 MAKEFLAGS to add switches, but we still want
3079 to redefine its value with the full set of
3080 switches. Of course, an override or command
3081 definition will still take precedence. */
3085 /* The first time we are called, set MAKEFLAGS to always be exported.
3086 We should not do this again on the second call, because that is
3087 after reading makefiles which might have done `unexport MAKEFLAGS'. */
3088 v
->export
= v_export
;
3093 /* Print version information. */
3096 print_version (void)
3098 static int printed_version
= 0;
3100 char *precede
= print_data_base_flag
? "# " : "";
3102 if (printed_version
)
3103 /* Do it only once. */
3106 printf ("%sGNU Make %s\n", precede
, version_string
);
3108 if (!remote_description
|| *remote_description
== '\0')
3109 printf (_("%sBuilt for %s\n"), precede
, make_host
);
3111 printf (_("%sBuilt for %s (%s)\n"),
3112 precede
, make_host
, remote_description
);
3114 /* Print this untranslated. The coding standards recommend translating the
3115 (C) to the copyright symbol, but this string is going to change every
3116 year, and none of the rest of it should be translated (including the
3117 word "Copyright", so it hardly seems worth it. */
3119 printf ("%sCopyright (C) 2012 Free Software Foundation, Inc.\n", precede
);
3121 printf (_("%sLicense GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>\n\
3122 %sThis is free software: you are free to change and redistribute it.\n\
3123 %sThere is NO WARRANTY, to the extent permitted by law.\n"),
3124 precede
, precede
, precede
);
3126 printed_version
= 1;
3128 /* Flush stdout so the user doesn't have to wait to see the
3129 version information while things are thought about. */
3133 /* Print a bunch of information about this and that. */
3140 when
= time ((time_t *) 0);
3141 printf (_("\n# Make data base, printed on %s"), ctime (&when
));
3143 print_variable_data_base ();
3144 print_dir_data_base ();
3145 print_rule_data_base ();
3146 print_file_data_base ();
3147 print_vpath_data_base ();
3148 strcache_print_stats ("#");
3150 when
= time ((time_t *) 0);
3151 printf (_("\n# Finished Make data base on %s\n"), ctime (&when
));
3155 clean_jobserver (int status
)
3157 /* Sanity: have we written all our jobserver tokens back? If our
3158 exit status is 2 that means some kind of syntax error; we might not
3159 have written all our tokens so do that now. If tokens are left
3160 after any other error code, that's bad. */
3163 if (has_jobserver_semaphore() && jobserver_tokens
)
3167 if (job_fds
[0] != -1 && jobserver_tokens
)
3172 "INTERNAL: Exiting with %u jobserver tokens (should be 0)!",
3175 /* Don't write back the "free" token */
3176 while (--jobserver_tokens
)
3179 if (! release_jobserver_semaphore())
3180 perror_with_name ("release_jobserver_semaphore", "");
3184 EINTRLOOP (r
, write (job_fds
[1], &token
, 1));
3186 perror_with_name ("write", "");
3192 /* Sanity: If we're the master, were all the tokens written back? */
3194 if (master_job_slots
)
3196 /* We didn't write one for ourself, so start at 1. */
3197 unsigned int tcnt
= 1;
3200 while (acquire_jobserver_semaphore())
3203 /* Close the write side, so the read() won't hang. */
3206 while (read (job_fds
[0], &token
, 1) == 1)
3210 if (tcnt
!= master_job_slots
)
3212 "INTERNAL: Exiting with %u jobserver tokens available; should be %u!",
3213 tcnt
, master_job_slots
);
3216 free_jobserver_semaphore();
3221 /* Clean out jobserver_fds so we don't pass this information to any
3222 sub-makes. Also reset job_slots since it will be put on the command
3223 line, not in MAKEFLAGS. */
3224 job_slots
= default_job_slots
;
3227 /* MSVC erroneously warns without a cast here. */
3228 free ((void *)jobserver_fds
->list
);
3229 free (jobserver_fds
);
3235 /* Exit with STATUS, cleaning up as necessary. */
3240 static char dying
= 0;
3248 if (print_version_flag
)
3251 /* Wait for children to die. */
3252 err
= (status
!= 0);
3253 while (job_slots_used
> 0)
3254 reap_children (1, err
);
3256 /* Let the remote job module clean up its state. */
3259 /* Remove the intermediate files. */
3260 remove_intermediates (0);
3262 if (print_data_base_flag
)
3265 verify_file_data_base ();
3267 clean_jobserver (status
);
3269 /* Try to move back to the original directory. This is essential on
3270 MS-DOS (where there is really only one process), and on Unix it
3271 puts core files in the original directory instead of the -C
3272 directory. Must wait until after remove_intermediates(), or unlinks
3273 of relative pathnames fail. */
3274 if (directory_before_chdir
!= 0)
3276 /* If it fails we don't care: shut up GCC. */
3278 _x
= chdir (directory_before_chdir
);
3281 log_working_directory (0);
3287 /* Write a message indicating that we've just entered or
3288 left (according to ENTERING) the current directory. */
3291 log_working_directory (int entering
)
3293 static int entered
= 0;
3295 /* Print nothing without the flag. Don't print the entering message
3296 again if we already have. Don't print the leaving message if we
3297 haven't printed the entering message. */
3298 if (! print_directory_flag
|| entering
== entered
)
3303 if (print_data_base_flag
)
3304 fputs ("# ", stdout
);
3306 /* Use entire sentences to give the translators a fighting chance. */
3309 if (starting_directory
== 0)
3311 printf (_("%s: Entering an unknown directory\n"), program
);
3313 printf (_("%s: Leaving an unknown directory\n"), program
);
3316 printf (_("%s: Entering directory `%s'\n"),
3317 program
, starting_directory
);
3319 printf (_("%s: Leaving directory `%s'\n"),
3320 program
, starting_directory
);
3322 if (starting_directory
== 0)
3324 printf (_("%s[%u]: Entering an unknown directory\n"),
3325 program
, makelevel
);
3327 printf (_("%s[%u]: Leaving an unknown directory\n"),
3328 program
, makelevel
);
3331 printf (_("%s[%u]: Entering directory `%s'\n"),
3332 program
, makelevel
, starting_directory
);
3334 printf (_("%s[%u]: Leaving directory `%s'\n"),
3335 program
, makelevel
, starting_directory
);
3337 /* Flush stdout to be sure this comes before any stderr output. */