1 /* Command processing for GNU Make.
2 Copyright (C) 1988-2012 Free Software Foundation, Inc.
3 This file is part of GNU Make.
5 GNU Make is free software; you can redistribute it and/or modify it under the
6 terms of the GNU General Public License as published by the Free Software
7 Foundation; either version 3 of the License, or (at your option) any later
10 GNU Make is distributed in the hope that it will be useful, but WITHOUT ANY
11 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License along with
15 this program. If not, see <http://www.gnu.org/licenses/>. */
29 # define FILE_LIST_SEPARATOR ','
31 # define FILE_LIST_SEPARATOR ' '
34 int remote_kill (int id
, int sig
);
42 dep_hash_1 (const void *key
)
44 const struct dep
*d
= key
;
45 return_STRING_HASH_1 (dep_name (d
));
49 dep_hash_2 (const void *key
)
51 const struct dep
*d
= key
;
52 return_STRING_HASH_2 (dep_name (d
));
56 dep_hash_cmp (const void *x
, const void *y
)
58 const struct dep
*dx
= x
;
59 const struct dep
*dy
= y
;
60 return strcmp (dep_name (dx
), dep_name (dy
));
63 /* Set FILE's automatic variables up. */
66 set_file_variables (struct file
*file
)
69 const char *at
, *percent
, *star
, *less
;
72 /* If the target is an archive member 'lib(member)',
73 then $@ is 'lib' and $% is 'member'. */
75 if (ar_name (file
->name
))
81 cp
= strchr (file
->name
, '(');
82 p
= alloca (cp
- file
->name
+ 1);
83 memcpy (p
, file
->name
, cp
- file
->name
);
84 p
[cp
- file
->name
] = '\0';
86 len
= strlen (cp
+ 1);
88 memcpy (p
, cp
+ 1, len
- 1);
93 #endif /* NO_ARCHIVES. */
99 /* $* is the stem from an implicit or static pattern rule. */
102 /* In Unix make, $* is set to the target name with
103 any suffix in the .SUFFIXES list stripped off for
104 explicit rules. We store this in the 'stem' member. */
109 if (ar_name (file
->name
))
111 name
= strchr (file
->name
, '(') + 1;
112 len
= strlen (name
) - 1;
121 for (d
= enter_file (strcache_add (".SUFFIXES"))->deps
; d
; d
= d
->next
)
123 unsigned int slen
= strlen (dep_name (d
));
124 if (len
> slen
&& strneq (dep_name (d
), name
+ (len
- slen
), slen
))
126 file
->stem
= strcache_add_len (name
, len
- slen
);
135 /* $< is the first not order-only dependency. */
137 for (d
= file
->deps
; d
!= 0; d
= d
->next
)
138 if (!d
->ignore_mtime
)
140 if (!d
->need_2nd_expansion
)
145 if (file
->cmds
== default_file
->cmds
)
146 /* This file got its commands from .DEFAULT.
147 In this case $< is the same as $@. */
150 #define DEFINE_VARIABLE(name, len, value) \
151 (void) define_variable_for_file (name,len,value,o_automatic,0,file)
153 /* Define the variables. */
155 DEFINE_VARIABLE ("<", 1, less
);
156 DEFINE_VARIABLE ("*", 1, star
);
157 DEFINE_VARIABLE ("@", 1, at
);
158 DEFINE_VARIABLE ("%", 1, percent
);
160 /* Compute the values for $^, $+, $?, and $|. */
163 static char *plus_value
=0, *bar_value
=0, *qmark_value
=0;
164 static unsigned int plus_max
=0, bar_max
=0, qmark_max
=0;
166 unsigned int qmark_len
, plus_len
, bar_len
;
173 struct hash_table dep_hash
;
176 /* Compute first the value for $+, which is supposed to contain
177 duplicate dependencies as they were listed in the makefile. */
181 for (d
= file
->deps
; d
!= 0; d
= d
->next
)
183 if (!d
->need_2nd_expansion
)
186 bar_len
+= strlen (dep_name (d
)) + 1;
188 plus_len
+= strlen (dep_name (d
)) + 1;
198 if (plus_len
> plus_max
)
199 plus_value
= xrealloc (plus_value
, plus_max
= plus_len
);
203 qmark_len
= plus_len
+ 1; /* Will be this or less. */
204 for (d
= file
->deps
; d
!= 0; d
= d
->next
)
205 if (! d
->ignore_mtime
&& ! d
->need_2nd_expansion
)
207 const char *c
= dep_name (d
);
212 c
= strchr (c
, '(') + 1;
213 len
= strlen (c
) - 1;
221 *cp
++ = FILE_LIST_SEPARATOR
;
222 if (! (d
->changed
|| always_make_flag
))
223 qmark_len
-= len
+ 1; /* Don't space in $? for this one. */
226 /* Kill the last space and define the variable. */
228 cp
[cp
> plus_value
? -1 : 0] = '\0';
229 DEFINE_VARIABLE ("+", 1, plus_value
);
231 /* Compute the values for $^, $?, and $|. */
233 cp
= caret_value
= plus_value
; /* Reuse the buffer; it's big enough. */
235 if (qmark_len
> qmark_max
)
236 qmark_value
= xrealloc (qmark_value
, qmark_max
= qmark_len
);
239 if (bar_len
> bar_max
)
240 bar_value
= xrealloc (bar_value
, bar_max
= bar_len
);
243 /* Make sure that no dependencies are repeated in $^, $?, and $|. It
244 would be natural to combine the next two loops but we can't do it
245 because of a situation where we have two dep entries, the first
246 is order-only and the second is normal (see below). */
248 hash_init (&dep_hash
, 500, dep_hash_1
, dep_hash_2
, dep_hash_cmp
);
250 for (d
= file
->deps
; d
!= 0; d
= d
->next
)
252 if (d
->need_2nd_expansion
)
255 slot
= hash_find_slot (&dep_hash
, d
);
256 if (HASH_VACANT (*slot
))
257 hash_insert_at (&dep_hash
, d
, slot
);
260 /* Check if the two prerequisites have different ignore_mtime.
261 If so then we need to "upgrade" one that is order-only. */
263 struct dep
* hd
= (struct dep
*) *slot
;
265 if (d
->ignore_mtime
!= hd
->ignore_mtime
)
266 d
->ignore_mtime
= hd
->ignore_mtime
= 0;
270 for (d
= file
->deps
; d
!= 0; d
= d
->next
)
274 if (d
->need_2nd_expansion
|| hash_find_item (&dep_hash
, d
) != d
)
281 c
= strchr (c
, '(') + 1;
282 len
= strlen (c
) - 1;
292 *bp
++ = FILE_LIST_SEPARATOR
;
298 *cp
++ = FILE_LIST_SEPARATOR
;
299 if (d
->changed
|| always_make_flag
)
303 *qp
++ = FILE_LIST_SEPARATOR
;
308 hash_free (&dep_hash
, 0);
310 /* Kill the last spaces and define the variables. */
312 cp
[cp
> caret_value
? -1 : 0] = '\0';
313 DEFINE_VARIABLE ("^", 1, caret_value
);
315 qp
[qp
> qmark_value
? -1 : 0] = '\0';
316 DEFINE_VARIABLE ("?", 1, qmark_value
);
318 bp
[bp
> bar_value
? -1 : 0] = '\0';
319 DEFINE_VARIABLE ("|", 1, bar_value
);
322 #undef DEFINE_VARIABLE
325 /* Chop CMDS up into individual command lines if necessary.
326 Also set the 'lines_flags' and 'any_recurse' members. */
329 chop_commands (struct commands
*cmds
)
331 unsigned int nlines
, idx
;
334 /* If we don't have any commands,
335 or we already parsed them, never mind. */
337 if (!cmds
|| cmds
->command_lines
!= 0)
340 /* Chop CMDS->commands up into lines in CMDS->command_lines. */
344 int l
= strlen (cmds
->commands
);
347 lines
= xmalloc (nlines
* sizeof (char *));
348 lines
[0] = xstrdup (cmds
->commands
);
350 /* Strip the trailing newline. */
351 if (l
> 0 && lines
[0][l
-1] == '\n')
352 lines
[0][l
-1] = '\0';
359 lines
= xmalloc (nlines
* sizeof (char *));
366 end
= strchr (end
, '\n');
368 end
= p
+ strlen (p
);
369 else if (end
> p
&& end
[-1] == '\\')
373 for (b
= end
- 2; b
>= p
&& *b
== '\\'; --b
)
374 backslash
= !backslash
;
385 lines
= xrealloc (lines
, nlines
* sizeof (char *));
387 lines
[idx
++] = xstrndup (p
, end
- p
);
396 lines
= xrealloc (lines
, nlines
* sizeof (char *));
400 /* Finally, set the corresponding CMDS->lines_flags elements and the
401 CMDS->any_recurse flag. */
403 if (nlines
> USHRT_MAX
)
404 fatal (&cmds
->fileinfo
, _("Recipe has too many lines (%ud)"), nlines
);
406 cmds
->ncommand_lines
= nlines
;
407 cmds
->command_lines
= lines
;
409 cmds
->any_recurse
= 0;
410 cmds
->lines_flags
= xmalloc (nlines
);
412 for (idx
= 0; idx
< nlines
; ++idx
)
415 const char *p
= lines
[idx
];
417 while (isblank (*p
) || *p
== '-' || *p
== '@' || *p
== '+')
421 flags
|= COMMANDS_RECURSE
;
424 flags
|= COMMANDS_SILENT
;
427 flags
|= COMMANDS_NOERROR
;
431 /* If no explicit '+' was given, look for MAKE variable references. */
432 if (!(flags
& COMMANDS_RECURSE
)
433 && (strstr (p
, "$(MAKE)") != 0 || strstr (p
, "${MAKE}") != 0))
434 flags
|= COMMANDS_RECURSE
;
436 cmds
->lines_flags
[idx
] = flags
;
437 cmds
->any_recurse
|= flags
& COMMANDS_RECURSE
? 1 : 0;
441 /* Execute the commands to remake FILE. If they are currently executing,
442 return or have already finished executing, just return. Otherwise,
443 fork off a child process to run the first command line in the sequence. */
446 execute_file_commands (struct file
*file
)
450 /* Don't go through all the preparations if
451 the commands are nothing but whitespace. */
453 for (p
= file
->cmds
->commands
; *p
!= '\0'; ++p
)
454 if (!isspace ((unsigned char)*p
) && *p
!= '-' && *p
!= '@')
458 /* If there are no commands, assume everything worked. */
459 set_command_state (file
, cs_running
);
460 file
->update_status
= 0;
461 notice_finished_file (file
);
465 /* First set the automatic variables according to this file. */
467 initialize_file_variables (file
, 0);
469 set_file_variables (file
);
471 /* Start the commands running. */
475 /* This is set while we are inside fatal_error_signal,
476 so things can avoid nonreentrant operations. */
478 int handling_fatal_signal
= 0;
480 /* Handle fatal signals. */
483 fatal_error_signal (int sig
)
486 extern int dos_status
, dos_command_running
;
488 if (dos_command_running
)
490 /* That was the child who got the signal, not us. */
491 dos_status
|= (sig
<< 8);
494 remove_intermediates (1);
496 #else /* not __MSDOS__ */
498 remove_intermediates (1);
500 fputs (_("*** Break.\n"), stderr
);
503 #else /* not Amiga */
505 extern HANDLE main_thread
;
507 /* Windows creates a sperate thread for handling Ctrl+C, so we need
508 to suspend the main thread, or else we will have race conditions
509 when both threads call reap_children. */
512 DWORD susp_count
= SuspendThread (main_thread
);
515 fprintf (stderr
, "SuspendThread: suspend count = %ld\n", susp_count
);
516 else if (susp_count
== (DWORD
)-1)
518 DWORD ierr
= GetLastError ();
520 fprintf (stderr
, "SuspendThread: error %ld: %s\n",
521 ierr
, map_windows32_error_to_string (ierr
));
525 handling_fatal_signal
= 1;
527 /* Set the handling for this signal to the default.
528 It is blocked now while we run this handler. */
529 signal (sig
, SIG_DFL
);
531 /* A termination signal won't be sent to the entire
532 process group, but it means we want to kill the children. */
537 for (c
= children
; c
!= 0; c
= c
->next
)
539 (void) kill (c
->pid
, SIGTERM
);
542 /* If we got a signal that means the user
543 wanted to kill make, remove pending targets. */
545 if (sig
== SIGTERM
|| sig
== SIGINT
556 /* Remote children won't automatically get signals sent
557 to the process group, so we must send them. */
558 for (c
= children
; c
!= 0; c
= c
->next
)
560 (void) remote_kill (c
->pid
, sig
);
562 for (c
= children
; c
!= 0; c
= c
->next
)
563 delete_child_targets (c
);
565 /* Clean up the children. We don't just use the call below because
566 we don't want to print the "Waiting for children" message. */
567 while (job_slots_used
> 0)
568 reap_children (1, 0);
571 /* Wait for our children to die. */
572 while (job_slots_used
> 0)
573 reap_children (1, 1);
575 /* Delete any non-precious intermediate files that were made. */
577 remove_intermediates (1);
581 /* We don't want to send ourselves SIGQUIT, because it will
582 cause a core dump. Just exit instead. */
588 CloseHandle (main_thread
);
589 /* Cannot call W32_kill with a pid (it needs a handle). The exit
590 status of 130 emulates what happens in Bash. */
593 /* Signal the same code; this time it will really be fatal. The signal
594 will be unblocked when we return and arrive then to kill us. */
595 if (kill (getpid (), sig
) < 0)
596 pfatal_with_name ("kill");
597 #endif /* not WINDOWS32 */
598 #endif /* not Amiga */
599 #endif /* not __MSDOS__ */
602 /* Delete FILE unless it's precious or not actually a file (phony),
603 and it has changed on disk since we last stat'd it. */
606 delete_target (struct file
*file
, const char *on_behalf_of
)
611 if (file
->precious
|| file
->phony
)
615 if (ar_name (file
->name
))
617 time_t file_date
= (file
->last_mtime
== NONEXISTENT_MTIME
619 : (time_t) FILE_TIMESTAMP_S (file
->last_mtime
));
620 if (ar_member_date (file
->name
) != file_date
)
623 error (NILF
, _("*** [%s] Archive member '%s' may be bogus; not deleted"),
624 on_behalf_of
, file
->name
);
626 error (NILF
, _("*** Archive member '%s' may be bogus; not deleted"),
633 EINTRLOOP (e
, stat (file
->name
, &st
));
635 && S_ISREG (st
.st_mode
)
636 && FILE_TIMESTAMP_STAT_MODTIME (file
->name
, st
) != file
->last_mtime
)
639 error (NILF
, _("*** [%s] Deleting file '%s'"), on_behalf_of
, file
->name
);
641 error (NILF
, _("*** Deleting file '%s'"), file
->name
);
642 if (unlink (file
->name
) < 0
643 && errno
!= ENOENT
) /* It disappeared; so what. */
644 perror_with_name ("unlink: ", file
->name
);
649 /* Delete all non-precious targets of CHILD unless they were already deleted.
650 Set the flag in CHILD to say they've been deleted. */
653 delete_child_targets (struct child
*child
)
660 /* Delete the target file if it changed. */
661 delete_target (child
->file
, NULL
);
663 /* Also remove any non-precious targets listed in the 'also_make' member. */
664 for (d
= child
->file
->also_make
; d
!= 0; d
= d
->next
)
665 delete_target (d
->file
, child
->file
->name
);
670 /* Print out the commands in CMDS. */
673 print_commands (const struct commands
*cmds
)
677 fputs (_("# recipe to execute"), stdout
);
679 if (cmds
->fileinfo
.filenm
== 0)
680 puts (_(" (built-in):"));
682 printf (_(" (from '%s', line %lu):\n"),
683 cmds
->fileinfo
.filenm
, cmds
->fileinfo
.lineno
);
691 /* Print one full logical recipe line: find a non-escaped newline. */
692 for (end
= s
, bs
= 0; *end
!= '\0'; ++end
)
694 if (*end
== '\n' && !bs
)
697 bs
= *end
== '\\' ? !bs
: 0;
700 printf ("%c%.*s\n", cmd_prefix
, (int) (end
- s
), s
);
702 s
= end
+ (end
[0] == '\n');