1 /* Command processing for GNU Make.
2 Copyright (C) 1988,89,91,92,93,94,95,96,97 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
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2, or (at your option)
10 GNU Make is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with GNU Make; see the file COPYING. If not, write to
17 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA. */
27 extern int remote_kill
PARAMS ((int id
, int sig
));
33 /* Set FILE's automatic variables up. */
36 set_file_variables (file
)
37 register struct file
*file
;
40 char *at
, *percent
, *star
, *less
;
43 /* If the target is an archive member `lib(member)',
44 then $@ is `lib' and $% is `member'. */
46 if (ar_name (file
->name
))
49 p
= index (file
->name
, '(');
50 at
= (char *) alloca (p
- file
->name
+ 1);
51 bcopy (file
->name
, at
, p
- file
->name
);
52 at
[p
- file
->name
] = '\0';
54 percent
= (char *) alloca (len
);
55 bcopy (p
+ 1, percent
, len
- 1);
56 percent
[len
- 1] = '\0';
59 #endif /* NO_ARCHIVES. */
65 /* $* is the stem from an implicit or static pattern rule. */
68 /* In Unix make, $* is set to the target name with
69 any suffix in the .SUFFIXES list stripped off for
70 explicit rules. We store this in the `stem' member. */
71 register struct dep
*d
;
76 if (ar_name (file
->name
))
78 name
= index (file
->name
, '(') + 1;
79 len
= strlen (name
) - 1;
88 for (d
= enter_file (".SUFFIXES")->deps
; d
!= 0; d
= d
->next
)
90 unsigned int slen
= strlen (dep_name (d
));
91 if (len
> slen
&& strneq (dep_name (d
), name
+ (len
- slen
), slen
))
93 file
->stem
= savestring (name
, len
- slen
);
102 /* $< is the first dependency. */
103 less
= file
->deps
!= 0 ? dep_name (file
->deps
) : "";
105 if (file
->cmds
== default_file
->cmds
)
106 /* This file got its commands from .DEFAULT.
107 In this case $< is the same as $@. */
110 #define DEFINE_VARIABLE(name, len, value) \
111 (void) define_variable_for_file (name, len, value, o_automatic, 0, file)
113 /* Define the variables. */
115 DEFINE_VARIABLE ("<", 1, less
);
116 DEFINE_VARIABLE ("*", 1, star
);
117 DEFINE_VARIABLE ("@", 1, at
);
118 DEFINE_VARIABLE ("%", 1, percent
);
120 /* Compute the values for $^, $+, and $?. */
123 register unsigned int qmark_len
, plus_len
;
124 char *caret_value
, *plus_value
;
128 register struct dep
*d
;
131 /* Compute first the value for $+, which is supposed to contain
132 duplicate dependencies as they were listed in the makefile. */
135 for (d
= file
->deps
; d
!= 0; d
= d
->next
)
136 plus_len
+= strlen (dep_name (d
)) + 1;
138 len
= plus_len
== 0 ? 1 : plus_len
;
139 cp
= plus_value
= (char *) alloca (len
);
141 qmark_len
= plus_len
; /* Will be this or less. */
142 for (d
= file
->deps
; d
!= 0; d
= d
->next
)
144 char *c
= dep_name (d
);
149 c
= index (c
, '(') + 1;
150 len
= strlen (c
) - 1;
164 qmark_len
-= len
+ 1; /* Don't space in $? for this one. */
167 /* Kill the last space and define the variable. */
169 cp
[cp
> plus_value
? -1 : 0] = '\0';
170 DEFINE_VARIABLE ("+", 1, plus_value
);
172 /* Make sure that no dependencies are repeated. This does not
173 really matter for the purpose of updating targets, but it
174 might make some names be listed twice for $^ and $?. */
176 uniquize_deps (file
->deps
);
178 /* Compute the values for $^ and $?. */
180 cp
= caret_value
= plus_value
; /* Reuse the buffer; it's big enough. */
181 len
= qmark_len
== 0 ? 1 : qmark_len
;
182 qp
= qmark_value
= (char *) alloca (len
);
184 for (d
= file
->deps
; d
!= 0; d
= d
->next
)
186 char *c
= dep_name (d
);
191 c
= index (c
, '(') + 1;
192 len
= strlen (c
) - 1;
217 /* Kill the last spaces and define the variables. */
219 cp
[cp
> caret_value
? -1 : 0] = '\0';
220 DEFINE_VARIABLE ("^", 1, caret_value
);
222 qp
[qp
> qmark_value
? -1 : 0] = '\0';
223 DEFINE_VARIABLE ("?", 1, qmark_value
);
226 #undef DEFINE_VARIABLE
229 /* Chop CMDS up into individual command lines if necessary.
230 Also set the `lines_flag' and `any_recurse' members. */
234 register struct commands
*cmds
;
236 if (cmds
!= 0 && cmds
->command_lines
== 0)
238 /* Chop CMDS->commands up into lines in CMDS->command_lines.
239 Also set the corresponding CMDS->lines_flags elements,
240 and the CMDS->any_recurse flag. */
242 unsigned int nlines
, idx
;
246 lines
= (char **) xmalloc (5 * sizeof (char *));
253 end
= index (end
, '\n');
255 end
= p
+ strlen (p
);
256 else if (end
> p
&& end
[-1] == '\\')
260 for (b
= end
- 2; b
>= p
&& *b
== '\\'; --b
)
261 backslash
= !backslash
;
272 lines
= (char **) xrealloc ((char *) lines
,
273 nlines
* sizeof (char *));
275 lines
[idx
++] = savestring (p
, end
- p
);
284 lines
= (char **) xrealloc ((char *) lines
,
285 nlines
* sizeof (char *));
288 cmds
->ncommand_lines
= nlines
;
289 cmds
->command_lines
= lines
;
291 cmds
->any_recurse
= 0;
292 cmds
->lines_flags
= (char *) xmalloc (nlines
);
293 for (idx
= 0; idx
< nlines
; ++idx
)
298 isblank (*p
) || *p
== '-' || *p
== '@' || *p
== '+';
303 flags
|= COMMANDS_RECURSE
;
306 flags
|= COMMANDS_SILENT
;
309 flags
|= COMMANDS_NOERROR
;
312 if (!(flags
& COMMANDS_RECURSE
))
314 unsigned int len
= strlen (p
);
315 if (sindex (p
, len
, "$(MAKE)", 7) != 0
316 || sindex (p
, len
, "${MAKE}", 7) != 0)
317 flags
|= COMMANDS_RECURSE
;
320 cmds
->lines_flags
[idx
] = flags
;
321 cmds
->any_recurse
|= flags
& COMMANDS_RECURSE
;
326 /* Execute the commands to remake FILE. If they are currently executing,
327 return or have already finished executing, just return. Otherwise,
328 fork off a child process to run the first command line in the sequence. */
331 execute_file_commands (file
)
336 /* Don't go through all the preparations if
337 the commands are nothing but whitespace. */
339 for (p
= file
->cmds
->commands
; *p
!= '\0'; ++p
)
340 if (!isspace (*p
) && *p
!= '-' && *p
!= '@')
344 /* We are all out of commands.
345 If we have gotten this far, all the previous commands
346 have run successfully, so we have winning update status. */
347 set_command_state (file
, cs_running
);
348 file
->update_status
= 0;
349 notice_finished_file (file
);
353 /* First set the automatic variables according to this file. */
355 initialize_file_variables (file
);
357 set_file_variables (file
);
359 /* Start the commands running. */
363 /* This is set while we are inside fatal_error_signal,
364 so things can avoid nonreentrant operations. */
366 int handling_fatal_signal
= 0;
368 /* Handle fatal signals. */
371 fatal_error_signal (sig
)
375 extern int dos_status
, dos_command_running
;
377 if (dos_command_running
)
379 /* That was the child who got the signal, not us. */
380 dos_status
|= (sig
<< 8);
383 remove_intermediates (1);
385 #else /* not __MSDOS__ */
387 remove_intermediates (1);
389 fputs ("*** Break.\n", stderr
);
392 #else /* not Amiga */
393 handling_fatal_signal
= 1;
395 /* Set the handling for this signal to the default.
396 It is blocked now while we run this handler. */
397 signal (sig
, SIG_DFL
);
399 /* A termination signal won't be sent to the entire
400 process group, but it means we want to kill the children. */
404 register struct child
*c
;
405 for (c
= children
; c
!= 0; c
= c
->next
)
407 (void) kill (c
->pid
, SIGTERM
);
410 /* If we got a signal that means the user
411 wanted to kill make, remove pending targets. */
413 if (sig
== SIGTERM
|| sig
== SIGINT
422 register struct child
*c
;
424 /* Remote children won't automatically get signals sent
425 to the process group, so we must send them. */
426 for (c
= children
; c
!= 0; c
= c
->next
)
428 (void) remote_kill (c
->pid
, sig
);
430 for (c
= children
; c
!= 0; c
= c
->next
)
431 delete_child_targets (c
);
433 /* Clean up the children. We don't just use the call below because
434 we don't want to print the "Waiting for children" message. */
435 while (job_slots_used
> 0)
436 reap_children (1, 0);
439 /* Wait for our children to die. */
440 while (job_slots_used
> 0)
441 reap_children (1, 1);
443 /* Delete any non-precious intermediate files that were made. */
445 remove_intermediates (1);
449 /* We don't want to send ourselves SIGQUIT, because it will
450 cause a core dump. Just exit instead. */
454 /* Signal the same code; this time it will really be fatal. The signal
455 will be unblocked when we return and arrive then to kill us. */
456 if (kill (getpid (), sig
) < 0)
457 pfatal_with_name ("kill");
458 #endif /* not Amiga */
459 #endif /* not __MSDOS__ */
462 /* Delete FILE unless it's precious or not actually a file (phony),
463 and it has changed on disk since we last stat'd it. */
466 delete_target (file
, on_behalf_of
)
472 if (file
->precious
|| file
->phony
)
476 if (ar_name (file
->name
))
478 if (ar_member_date (file
->name
) != FILE_TIMESTAMP_S (file
->last_mtime
))
481 error (NILF
, "*** [%s] Archive member `%s' may be bogus; not deleted",
482 on_behalf_of
, file
->name
);
484 error (NILF
, "*** Archive member `%s' may be bogus; not deleted",
491 if (stat (file
->name
, &st
) == 0
492 && S_ISREG (st
.st_mode
)
493 && FILE_TIMESTAMP_STAT_MODTIME (st
) != file
->last_mtime
)
496 error (NILF
, "*** [%s] Deleting file `%s'", on_behalf_of
, file
->name
);
498 error (NILF
, "*** Deleting file `%s'", file
->name
);
499 if (unlink (file
->name
) < 0
500 && errno
!= ENOENT
) /* It disappeared; so what. */
501 perror_with_name ("unlink: ", file
->name
);
506 /* Delete all non-precious targets of CHILD unless they were already deleted.
507 Set the flag in CHILD to say they've been deleted. */
510 delete_child_targets (child
)
518 /* Delete the target file if it changed. */
519 delete_target (child
->file
, (char *) 0);
521 /* Also remove any non-precious targets listed in the `also_make' member. */
522 for (d
= child
->file
->also_make
; d
!= 0; d
= d
->next
)
523 delete_target (d
->file
, child
->file
->name
);
528 /* Print out the commands in CMDS. */
531 print_commands (cmds
)
532 register struct commands
*cmds
;
536 fputs ("# commands to execute", stdout
);
538 if (cmds
->fileinfo
.filenm
== 0)
539 puts (" (built-in):");
541 printf (" (from `%s', line %lu):\n",
542 cmds
->fileinfo
.filenm
, cmds
->fileinfo
.lineno
);
552 end
= index (s
, '\n');
554 end
= s
+ strlen (s
);
556 printf ("\t%.*s\n", (int) (end
- s
), s
);