1 /* Job execution and handling for GNU Make.
2 Copyright (C) 1988,89,90,91,92,93,94,95,96,97,99 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. */
32 /* Default shell to use. */
34 char *default_shell
= "sh.exe";
35 int no_default_sh_exe
= 1;
36 int batch_mode_shell
= 1;
39 char default_shell
[] = "";
40 extern int MyExecute (char **);
43 /* The default shell is a pointer so we can change it if Makefile
44 says so. It is without an explicit path so we get a chance
45 to search the $PATH for it (since MSDOS doesn't have standard
46 directories we could trust). */
47 char *default_shell
= "command.com";
48 # else /* __MSDOS__ */
51 char default_shell
[] = "";
53 char default_shell
[] = "/bin/sh";
55 # endif /* __MSDOS__ */
56 int batch_mode_shell
= 0;
58 #endif /* WINDOWS32 */
62 static int execute_by_shell
;
63 static int dos_pid
= 123;
65 int dos_command_running
;
66 #endif /* __MSDOS__ */
69 # include <proto/dos.h>
70 static int amiga_pid
= 123;
71 static int amiga_status
;
72 static char amiga_bname
[32];
73 static int amiga_batch_file
;
79 # include <processes.h>
82 # include <lib$routines.h>
89 # include "sub_proc.h"
91 # include "pathstuff.h"
92 #endif /* WINDOWS32 */
97 # include <sys/file.h>
100 #if defined (HAVE_SYS_WAIT_H) || defined (HAVE_UNION_WAIT)
101 # include <sys/wait.h>
105 # define WAIT_NOHANG(status) waitpid (-1, (status), WNOHANG)
106 #else /* Don't have waitpid. */
111 # define WAIT_NOHANG(status) wait3 ((status), WNOHANG, (struct rusage *) 0)
112 # endif /* Have wait3. */
113 #endif /* Have waitpid. */
115 #if !defined (wait) && !defined (POSIX)
119 #ifndef HAVE_UNION_WAIT
124 # define WTERMSIG(x) ((x) & 0x7f)
127 # define WCOREDUMP(x) ((x) & 0x80)
130 # define WEXITSTATUS(x) (((x) >> 8) & 0xff)
133 # define WIFSIGNALED(x) (WTERMSIG (x) != 0)
136 # define WIFEXITED(x) (WTERMSIG (x) == 0)
139 #else /* Have `union wait'. */
141 # define WAIT_T union wait
143 # define WTERMSIG(x) ((x).w_termsig)
146 # define WCOREDUMP(x) ((x).w_coredump)
149 # define WEXITSTATUS(x) ((x).w_retcode)
152 # define WIFSIGNALED(x) (WTERMSIG(x) != 0)
155 # define WIFEXITED(x) (WTERMSIG(x) == 0)
158 #endif /* Don't have `union wait'. */
160 /* How to set close-on-exec for a file descriptor. */
163 # define CLOSE_ON_EXEC(_d)
166 # define FD_CLOEXEC 1
168 # define CLOSE_ON_EXEC(_d) (void) fcntl ((_d), F_SETFD, FD_CLOEXEC)
172 static int vms_jobsefnmask
= 0;
175 #ifndef HAVE_UNISTD_H
177 extern int execve ();
178 extern void _exit ();
180 extern int geteuid ();
181 extern int getegid ();
182 extern int setgid ();
183 extern int getgid ();
187 extern char *allocated_variable_expand_for_file
PARAMS ((char *line
, struct file
*file
));
189 extern int getloadavg
PARAMS ((double loadavg
[], int nelem
));
190 extern int start_remote_job
PARAMS ((char **argv
, char **envp
, int stdin_fd
,
191 int *is_remote
, int *id_ptr
, int *used_stdin
));
192 extern int start_remote_job_p
PARAMS ((int));
193 extern int remote_status
PARAMS ((int *exit_code_ptr
, int *signal_ptr
,
194 int *coredump_ptr
, int block
));
196 RETSIGTYPE child_handler
PARAMS ((int));
197 static void free_child
PARAMS ((struct child
*));
198 static void start_job_command
PARAMS ((struct child
*child
));
199 static int load_too_high
PARAMS ((void));
200 static int job_next_command
PARAMS ((struct child
*));
201 static int start_waiting_job
PARAMS ((struct child
*));
203 static void vmsWaitForChildren
PARAMS ((int *));
206 /* Chain of all live (or recently deceased) children. */
208 struct child
*children
= 0;
210 /* Number of children currently running. */
212 unsigned int job_slots_used
= 0;
214 /* Nonzero if the `good' standard input is in use. */
216 static int good_stdin_used
= 0;
218 /* Chain of children waiting to run until the load average goes down. */
220 static struct child
*waiting_jobs
= 0;
222 /* Non-zero if we use a *real* shell (always so on Unix). */
229 * The macro which references this function is defined in make.h.
231 int w32_kill(int pid
, int sig
)
233 return ((process_kill(pid
, sig
) == TRUE
) ? 0 : -1);
235 #endif /* WINDOWS32 */
237 /* Write an error message describing the exit status given in
238 EXIT_CODE, EXIT_SIG, and COREDUMP, for the target TARGET_NAME.
239 Append "(ignored)" if IGNORED is nonzero. */
242 child_error (target_name
, exit_code
, exit_sig
, coredump
, ignored
)
244 int exit_code
, exit_sig
, coredump
;
247 if (ignored
&& silent_flag
)
251 if (!(exit_code
& 1))
253 (ignored
? _("*** [%s] Error 0x%x (ignored)")
254 : _("*** [%s] Error 0x%x")),
255 target_name
, exit_code
);
258 error (NILF
, ignored
? _("[%s] Error %d (ignored)") :
259 _("*** [%s] Error %d"),
260 target_name
, exit_code
);
262 error (NILF
, "*** [%s] %s%s",
263 target_name
, strsignal (exit_sig
),
264 coredump
? _(" (core dumped)") : "");
269 /* Wait for nchildren children to terminate */
271 vmsWaitForChildren(int *status
)
275 if (!vms_jobsefnmask
)
281 *status
= sys$
wflor (32, vms_jobsefnmask
);
286 /* Set up IO redirection. */
289 vms_redirect (desc
, fname
, ibuf
)
290 struct dsc$descriptor_s
*desc
;
295 extern char *vmsify ();
298 while (isspace (*ibuf
))
301 while (*ibuf
&& !isspace (*ibuf
))
304 if (strcmp (fptr
, "/dev/null") != 0)
306 strcpy (fname
, vmsify (fptr
, 0));
307 if (strchr (fname
, '.') == 0)
310 desc
->dsc$w_length
= strlen(fname
);
311 desc
->dsc$a_pointer
= fname
;
312 desc
->dsc$b_dtype
= DSC$K_DTYPE_T
;
313 desc
->dsc$b_class
= DSC$K_CLASS_S
;
316 printf (_("Warning: Empty redirection\n"));
322 found apostrophe at (p-1)
324 inc p until after closing apostrophe. */
327 handle_apos (char *p
)
332 #define SEPCHARS ",/()= "
352 fprintf (stderr
, _("Syntax error, still inside '\"'\n"));
359 if (strchr (SEPCHARS
, *p
))
380 /* Handle a dead child. This handler may or may not ever be installed.
382 If we're using the jobserver feature, we need it. First, installing it
383 ensures the read will interrupt on SIGCHLD. Second, we close the dup'd
384 read FD to ensure we don't enter another blocking read without reaping all
385 the dead children. In this case we don't need the dead_children count.
387 If we don't have either waitpid or wait3, then make is unreliable, but we
388 use the dead_children count to reap children as best we can. */
390 static unsigned int dead_children
= 0;
404 DB (DB_JOBS
, (_("Got a SIGCHLD; %u unreaped children.\n"), dead_children
));
408 extern int shell_function_pid
, shell_function_completed
;
410 /* Reap all dead children, storing the returned status and the new command
411 state (`cs_finished') in the `file' member of the `struct child' for the
412 dead child, and removing the child from the chain. In addition, if BLOCK
413 nonzero, we block in this function until we've reaped at least one
414 complete child, waiting for it to die if necessary. If ERR is nonzero,
415 print an error message first. */
418 reap_children (block
, err
)
422 /* Initially, assume we have some. */
426 # define REAP_MORE reap_more
428 # define REAP_MORE dead_children
433 We have at least one child outstanding OR a shell function in progress,
435 We're blocking for a complete child OR there are more children to reap
437 we'll keep reaping children. */
439 while ((children
!= 0 || shell_function_pid
!= 0) &&
440 (block
|| REAP_MORE
))
444 int exit_code
, exit_sig
, coredump
;
445 register struct child
*lastc
, *c
;
447 int any_remote
, any_local
;
451 /* We might block for a while, so let the user know why. */
453 error (NILF
, _("*** Waiting for unfinished jobs...."));
456 /* We have one less dead child to reap. As noted in
457 child_handler() above, this count is completely unimportant for
458 all modern, POSIX-y systems that support wait3() or waitpid().
459 The rest of this comment below applies only to early, broken
460 pre-POSIX systems. We keep the count only because... it's there...
462 The test and decrement are not atomic; if it is compiled into:
463 register = dead_children - 1;
464 dead_children = register;
465 a SIGCHLD could come between the two instructions.
466 child_handler increments dead_children.
467 The second instruction here would lose that increment. But the
468 only effect of dead_children being wrong is that we might wait
469 longer than necessary to reap a child, and lose some parallelism;
470 and we might print the "Waiting for unfinished jobs" message above
471 when not necessary. */
473 if (dead_children
> 0)
477 any_local
= shell_function_pid
!= 0;
478 for (c
= children
; c
!= 0; c
= c
->next
)
480 any_remote
|= c
->remote
;
481 any_local
|= ! c
->remote
;
482 DB (DB_JOBS
, (_("Live child 0x%08lx (%s) PID %ld %s\n"),
483 (unsigned long int) c
, c
->file
->name
,
484 (long) c
->pid
, c
->remote
? _(" (remote)") : ""));
490 /* First, check for remote children. */
492 pid
= remote_status (&exit_code
, &exit_sig
, &coredump
, 0);
497 /* We got a remote child. */
501 /* A remote status command failed miserably. Punt. */
506 pfatal_with_name ("remote_status");
510 /* No remote children. Check for local children. */
511 #if !defined(__MSDOS__) && !defined(_AMIGA) && !defined(WINDOWS32)
516 vmsWaitForChildren (&status
);
521 pid
= WAIT_NOHANG (&status
);
524 pid
= wait (&status
);
532 /* EINTR? Try again. */
536 /* The wait*() failed miserably. Punt. */
537 pfatal_with_name ("wait");
541 /* We got a child exit; chop the status word up. */
542 exit_code
= WEXITSTATUS (status
);
543 exit_sig
= WIFSIGNALED (status
) ? WTERMSIG (status
) : 0;
544 coredump
= WCOREDUMP (status
);
548 /* No local children are dead. */
551 if (!block
|| !any_remote
)
554 /* Now try a blocking wait for a remote child. */
555 pid
= remote_status (&exit_code
, &exit_sig
, &coredump
, 1);
557 goto remote_status_lose
;
559 /* No remote children either. Finally give up. */
562 /* We got a remote child. */
565 #endif /* !__MSDOS__, !Amiga, !WINDOWS32. */
568 /* Life is very different on MSDOS. */
571 exit_code
= WEXITSTATUS (status
);
572 if (exit_code
== 0xff)
574 exit_sig
= WIFSIGNALED (status
) ? WTERMSIG (status
) : 0;
576 #endif /* __MSDOS__ */
580 status
= amiga_status
;
581 exit_code
= amiga_status
;
590 /* wait for anything to finish */
591 if (hPID
= process_wait_for_any()) {
593 /* was an error found on this process? */
594 err
= process_last_err(hPID
);
597 exit_code
= process_exit_code(hPID
);
600 fprintf(stderr
, "make (e=%d): %s",
601 exit_code
, map_windows32_error_to_string(exit_code
));
604 exit_sig
= process_signal(hPID
);
606 /* cleanup process */
607 process_cleanup(hPID
);
613 #endif /* WINDOWS32 */
616 /* Check if this is the child of the `shell' function. */
617 if (!remote
&& pid
== shell_function_pid
)
619 /* It is. Leave an indicator for the `shell' function. */
620 if (exit_sig
== 0 && exit_code
== 127)
621 shell_function_completed
= -1;
623 shell_function_completed
= 1;
627 child_failed
= exit_sig
!= 0 || exit_code
!= 0;
629 /* Search for a child matching the deceased one. */
631 for (c
= children
; c
!= 0; lastc
= c
, c
= c
->next
)
632 if (c
->remote
== remote
&& c
->pid
== pid
)
636 /* An unknown child died.
637 Ignore it; it was inherited from our invoker. */
640 DB (DB_JOBS
, (child_failed
641 ? _("Reaping losing child 0x%08lx PID %ld %s\n")
642 : _("Reaping winning child 0x%08lx PID %ld %s\n"),
643 (unsigned long int) c
, (long) c
->pid
,
644 c
->remote
? _(" (remote)") : ""));
646 if (c
->sh_batch_file
) {
647 DB (DB_JOBS
, (_("Cleaning up temp batch file %s\n"),
650 /* just try and remove, don't care if this fails */
651 remove (c
->sh_batch_file
);
653 /* all done with memory */
654 free (c
->sh_batch_file
);
655 c
->sh_batch_file
= NULL
;
658 /* If this child had the good stdin, say it is now free. */
662 if (child_failed
&& !c
->noerror
&& !ignore_errors_flag
)
664 /* The commands failed. Write an error message,
665 delete non-precious targets, and abort. */
666 static int delete_on_error
= -1;
667 child_error (c
->file
->name
, exit_code
, exit_sig
, coredump
, 0);
668 c
->file
->update_status
= 2;
669 if (delete_on_error
== -1)
671 struct file
*f
= lookup_file (".DELETE_ON_ERROR");
672 delete_on_error
= f
!= 0 && f
->is_target
;
674 if (exit_sig
!= 0 || delete_on_error
)
675 delete_child_targets (c
);
681 /* The commands failed, but we don't care. */
682 child_error (c
->file
->name
,
683 exit_code
, exit_sig
, coredump
, 1);
687 /* If there are more commands to run, try to start them. */
688 if (job_next_command (c
))
690 if (handling_fatal_signal
)
692 /* Never start new commands while we are dying.
693 Since there are more commands that wanted to be run,
694 the target was not completely remade. So we treat
695 this as if a command had failed. */
696 c
->file
->update_status
= 2;
700 /* Check again whether to start remotely.
701 Whether or not we want to changes over time.
702 Also, start_remote_job may need state set up
703 by start_remote_job_p. */
704 c
->remote
= start_remote_job_p (0);
705 start_job_command (c
);
706 /* Fatal signals are left blocked in case we were
707 about to put that child on the chain. But it is
708 already there, so it is safe for a fatal signal to
709 arrive now; it will clean up this child's targets. */
711 if (c
->file
->command_state
== cs_running
)
712 /* We successfully started the new command.
713 Loop to reap more children. */
717 if (c
->file
->update_status
!= 0)
718 /* We failed to start the commands. */
719 delete_child_targets (c
);
722 /* There are no more commands. We got through them all
723 without an unignored error. Now the target has been
724 successfully updated. */
725 c
->file
->update_status
= 0;
728 /* When we get here, all the commands for C->file are finished
729 (or aborted) and C->file->update_status contains 0 or 2. But
730 C->file->command_state is still cs_running if all the commands
731 ran; notice_finish_file looks for cs_running to tell it that
732 it's interesting to check the file's modtime again now. */
734 if (! handling_fatal_signal
)
735 /* Notice if the target of the commands has been changed.
736 This also propagates its values for command_state and
737 update_status to its also_make files. */
738 notice_finished_file (c
->file
);
740 DB (DB_JOBS
, (_("Removing child 0x%08lx PID %ld %s from chain.\n"),
741 (unsigned long int) c
, (long) c
->pid
,
742 c
->remote
? _(" (remote)") : ""));
744 /* Block fatal signals while frobnicating the list, so that
745 children and job_slots_used are always consistent. Otherwise
746 a fatal signal arriving after the child is off the chain and
747 before job_slots_used is decremented would believe a child was
748 live and call reap_children again. */
751 /* There is now another slot open. */
752 if (job_slots_used
> 0)
755 /* Remove the child from the chain and free it. */
759 lastc
->next
= c
->next
;
765 /* If the job failed, and the -k flag was not given, die,
766 unless we are already in the process of dying. */
767 if (!err
&& child_failed
&& !keep_going_flag
&&
768 /* fatal_error_signal will die with the right signal. */
769 !handling_fatal_signal
)
772 /* Only block for one child. */
779 /* Free the storage allocated for CHILD. */
783 register struct child
*child
;
785 /* If this child is the only one it was our "free" job, so don't put a
786 token back for it. This child has already been removed from the list,
787 so if there any left this wasn't the last one. */
789 if (job_fds
[1] >= 0 && children
)
793 /* Write a job token back to the pipe. */
795 while (write (job_fds
[1], &token
, 1) != 1)
797 pfatal_with_name (_("write jobserver"));
799 DB (DB_JOBS
, (_("Released token for child 0x%08lx (%s).\n"),
800 (unsigned long int) child
, child
->file
->name
));
803 if (handling_fatal_signal
) /* Don't bother free'ing if about to die. */
806 if (child
->command_lines
!= 0)
808 register unsigned int i
;
809 for (i
= 0; i
< child
->file
->cmds
->ncommand_lines
; ++i
)
810 free (child
->command_lines
[i
]);
811 free ((char *) child
->command_lines
);
814 if (child
->environment
!= 0)
816 register char **ep
= child
->environment
;
819 free ((char *) child
->environment
);
822 free ((char *) child
);
826 extern sigset_t fatal_signal_set
;
833 (void) sigprocmask (SIG_BLOCK
, &fatal_signal_set
, (sigset_t
*) 0);
835 # ifdef HAVE_SIGSETMASK
836 (void) sigblock (fatal_signal_mask
);
846 sigemptyset (&empty
);
847 sigprocmask (SIG_SETMASK
, &empty
, (sigset_t
*) 0);
851 /* Start a job to run the commands specified in CHILD.
852 CHILD is updated to reflect the commands and ID of the child process.
854 NOTE: On return fatal signals are blocked! The caller is responsible
855 for calling `unblock_sigs', once the new child is safely on the chain so
856 it can be cleaned up in the event of a fatal signal. */
859 start_job_command (child
)
860 register struct child
*child
;
863 static int bad_stdin
= -1;
873 /* If we have a completely empty commandset, stop now. */
874 if (!child
->command_ptr
)
877 /* Combine the flags parsed for the line itself with
878 the flags specified globally for this target. */
879 flags
= (child
->file
->command_flags
880 | child
->file
->cmds
->lines_flags
[child
->command_line
- 1]);
882 p
= child
->command_ptr
;
883 child
->noerror
= flags
& COMMANDS_NOERROR
;
888 flags
|= COMMANDS_SILENT
;
890 flags
|= COMMANDS_RECURSE
;
893 else if (!isblank (*p
))
898 /* Update the file's command flags with any new ones we found. */
899 child
->file
->cmds
->lines_flags
[child
->command_line
- 1] |= flags
;
901 /* If -q was given, just say that updating `failed'. The exit status of
902 1 tells the user that -q is saying `something to do'; the exit status
903 for a random error is 2. */
904 if (question_flag
&& !(flags
& COMMANDS_RECURSE
))
906 child
->file
->update_status
= 1;
907 notice_finished_file (child
->file
);
911 /* There may be some preceding whitespace left if there
912 was nothing but a backslash on the first line. */
915 /* Figure out an argument list from this command line. */
922 argv
= construct_command_argv (p
, &end
, child
->file
, &child
->sh_batch_file
);
925 child
->command_ptr
= NULL
;
929 child
->command_ptr
= end
;
933 if (touch_flag
&& !(flags
& COMMANDS_RECURSE
))
935 /* Go on to the next command. It might be the recursive one.
936 We construct ARGV only to find the end of the command line. */
939 free ((char *) argv
);
948 execute_by_shell
= 0; /* in case construct_command_argv sets it */
950 /* This line has no commands. Go to the next. */
951 if (job_next_command (child
))
952 start_job_command (child
);
955 /* No more commands. Make sure we're "running"; we might not be if
956 (e.g.) all commands were skipped due to -n. */
957 set_command_state (child
->file
, cs_running
);
958 child
->file
->update_status
= 0;
959 notice_finished_file (child
->file
);
964 /* Print out the command. If silent, we call `message' with null so it
965 can log the working directory before the command's own error messages
968 message (0, (just_print_flag
|| (!(flags
& COMMANDS_SILENT
) && !silent_flag
))
969 ? "%s" : (char *) 0, p
);
971 /* Optimize an empty command. People use this for timestamp rules,
972 so avoid forking a useless shell. */
974 #if !defined(VMS) && !defined(_AMIGA)
977 unixy_shell
/* the test is complicated and we already did it */
979 (argv
[0] && !strcmp (argv
[0], "/bin/sh"))
982 && argv
[1][0] == '-' && argv
[1][1] == 'c' && argv
[1][2] == '\0')
983 && (argv
[2] && argv
[2][0] == ':' && argv
[2][1] == '\0')
987 free ((char *) argv
);
990 #endif /* !VMS && !_AMIGA */
992 /* Tell update_goal_chain that a command has been started on behalf of
993 this target. It is important that this happens here and not in
994 reap_children (where we used to do it), because reap_children might be
995 reaping children from a different target. We want this increment to
996 guaranteedly indicate that a command was started for the dependency
997 chain (i.e., update_file recursion chain) we are processing. */
1001 /* If -n was given, recurse to get the next line in the sequence. */
1003 if (just_print_flag
&& !(flags
& COMMANDS_RECURSE
))
1007 free ((char *) argv
);
1012 /* Flush the output streams so they won't have things written twice. */
1018 #if !defined(WINDOWS32) && !defined(_AMIGA) && !defined(__MSDOS__)
1020 /* Set up a bad standard input that reads from a broken pipe. */
1022 if (bad_stdin
== -1)
1024 /* Make a file descriptor that is the read end of a broken pipe.
1025 This will be used for some children's standard inputs. */
1029 /* Close the write side. */
1030 (void) close (pd
[1]);
1031 /* Save the read side. */
1034 /* Set the descriptor to close on exec, so it does not litter any
1035 child's descriptor table. When it is dup2'd onto descriptor 0,
1036 that descriptor will not close on exec. */
1037 CLOSE_ON_EXEC (bad_stdin
);
1041 #endif /* !WINDOWS32 && !_AMIGA && !__MSDOS__ */
1043 /* Decide whether to give this child the `good' standard input
1044 (one that points to the terminal or whatever), or the `bad' one
1045 that points to the read side of a broken pipe. */
1047 child
->good_stdin
= !good_stdin_used
;
1048 if (child
->good_stdin
)
1049 good_stdin_used
= 1;
1056 /* Set up the environment for the child. */
1057 if (child
->environment
== 0)
1058 child
->environment
= target_environment (child
->file
);
1061 #if !defined(__MSDOS__) && !defined(_AMIGA) && !defined(WINDOWS32)
1064 /* start_waiting_job has set CHILD->remote if we can start a remote job. */
1067 int is_remote
, id
, used_stdin
;
1068 if (start_remote_job (argv
, child
->environment
,
1069 child
->good_stdin
? 0 : bad_stdin
,
1070 &is_remote
, &id
, &used_stdin
))
1071 /* Don't give up; remote execution may fail for various reasons. If
1072 so, simply run the job locally. */
1076 if (child
->good_stdin
&& !used_stdin
)
1078 child
->good_stdin
= 0;
1079 good_stdin_used
= 0;
1081 child
->remote
= is_remote
;
1088 /* Fork the child process. */
1090 char **parent_environ
;
1099 if (!child_execute_job (argv
, child
)) {
1101 perror_with_name ("vfork", "");
1107 parent_environ
= environ
;
1108 child
->pid
= vfork ();
1109 environ
= parent_environ
; /* Restore value child may have clobbered. */
1110 if (child
->pid
== 0)
1112 /* We are the child side. */
1115 /* If we aren't running a recursive command and we have a jobserver
1116 pipe, close it before exec'ing. */
1117 if (!(flags
& COMMANDS_RECURSE
) && job_fds
[0] >= 0)
1125 child_execute_job (child
->good_stdin
? 0 : bad_stdin
, 1,
1126 argv
, child
->environment
);
1128 else if (child
->pid
< 0)
1132 perror_with_name ("vfork", "");
1138 #else /* __MSDOS__ or Amiga or WINDOWS32 */
1146 /* We call `system' to do the job of the SHELL, since stock DOS
1147 shell is too dumb. Our `system' knows how to handle long
1148 command lines even if pipes/redirection is needed; it will only
1149 call COMMAND.COM when its internal commands are used. */
1150 if (execute_by_shell
)
1152 char *cmdline
= argv
[0];
1153 /* We don't have a way to pass environment to `system',
1154 so we need to save and restore ours, sigh... */
1155 char **parent_environ
= environ
;
1157 environ
= child
->environment
;
1159 /* If we have a *real* shell, tell `system' to call
1160 it to do everything for us. */
1163 /* A *real* shell on MSDOS may not support long
1164 command lines the DJGPP way, so we must use `system'. */
1165 cmdline
= argv
[2]; /* get past "shell -c" */
1168 dos_command_running
= 1;
1169 proc_return
= system (cmdline
);
1170 environ
= parent_environ
;
1171 execute_by_shell
= 0; /* for the next time */
1175 dos_command_running
= 1;
1176 proc_return
= spawnvpe (P_WAIT
, argv
[0], argv
, child
->environment
);
1179 /* Need to unblock signals before turning off
1180 dos_command_running, so that child's signals
1181 will be treated as such (see fatal_error_signal). */
1183 dos_command_running
= 0;
1185 /* If the child got a signal, dos_status has its
1186 high 8 bits set, so be careful not to alter them. */
1187 if (proc_return
== -1)
1190 dos_status
|= (proc_return
& 0xff);
1192 child
->pid
= dos_pid
++;
1194 #endif /* __MSDOS__ */
1196 amiga_status
= MyExecute (argv
);
1199 child
->pid
= amiga_pid
++;
1200 if (amiga_batch_file
)
1202 amiga_batch_file
= 0;
1203 DeleteFile (amiga_bname
); /* Ignore errors. */
1211 /* make UNC paths safe for CreateProcess -- backslash format */
1213 if (arg0
&& arg0
[0] == '/' && arg0
[1] == '/')
1214 for ( ; arg0
&& *arg0
; arg0
++)
1218 /* make sure CreateProcess() has Path it needs */
1219 sync_Path_environment();
1221 hPID
= process_easy(argv
, child
->environment
);
1223 if (hPID
!= INVALID_HANDLE_VALUE
)
1224 child
->pid
= (int) hPID
;
1229 _("process_easy() failed failed to launch process (e=%d)\n"),
1230 process_last_err(hPID
));
1231 for (i
= 0; argv
[i
]; i
++)
1232 fprintf(stderr
, "%s ", argv
[i
]);
1233 fprintf(stderr
, _("\nCounted %d args in failed launch\n"), i
);
1236 #endif /* WINDOWS32 */
1237 #endif /* __MSDOS__ or Amiga or WINDOWS32 */
1239 /* We are the parent side. Set the state to
1240 say the commands are running and return. */
1242 set_command_state (child
->file
, cs_running
);
1244 /* Free the storage used by the child's argument list. */
1247 free ((char *) argv
);
1253 child
->file
->update_status
= 2;
1254 notice_finished_file (child
->file
);
1258 /* Try to start a child running.
1259 Returns nonzero if the child was started (and maybe finished), or zero if
1260 the load was too high and the child was put on the `waiting_jobs' chain. */
1263 start_waiting_job (c
)
1266 struct file
*f
= c
->file
;
1268 /* If we can start a job remotely, we always want to, and don't care about
1269 the local load average. We record that the job should be started
1270 remotely in C->remote for start_job_command to test. */
1272 c
->remote
= start_remote_job_p (1);
1274 /* If we are running at least one job already and the load average
1275 is too high, make this one wait. */
1276 if (!c
->remote
&& job_slots_used
> 0 && load_too_high ())
1278 /* Put this child on the chain of children waiting for the load average
1280 set_command_state (f
, cs_running
);
1281 c
->next
= waiting_jobs
;
1286 /* Start the first command; reap_children will run later command lines. */
1287 start_job_command (c
);
1289 switch (f
->command_state
)
1293 DB (DB_JOBS
, (_("Putting child 0x%08lx (%s) PID %ld%s on the chain.\n"),
1294 (unsigned long int) c
, c
->file
->name
,
1295 (long) c
->pid
, c
->remote
? _(" (remote)") : ""));
1297 /* One more job slot is in use. */
1302 case cs_not_started
:
1303 /* All the command lines turned out to be empty. */
1304 f
->update_status
= 0;
1308 notice_finished_file (f
);
1313 assert (f
->command_state
== cs_finished
);
1320 /* Create a `struct child' for FILE and start its commands running. */
1324 register struct file
*file
;
1326 register struct commands
*cmds
= file
->cmds
;
1327 register struct child
*c
;
1329 register unsigned int i
;
1331 /* Let any previously decided-upon jobs that are waiting
1332 for the load to go down start before this new one. */
1333 start_waiting_jobs ();
1335 /* Reap any children that might have finished recently. */
1336 reap_children (0, 0);
1338 /* Chop the commands up into lines if they aren't already. */
1339 chop_commands (cmds
);
1341 /* Expand the command lines and store the results in LINES. */
1342 lines
= (char **) xmalloc (cmds
->ncommand_lines
* sizeof (char *));
1343 for (i
= 0; i
< cmds
->ncommand_lines
; ++i
)
1345 /* Collapse backslash-newline combinations that are inside variable
1346 or function references. These are left alone by the parser so
1347 that they will appear in the echoing of commands (where they look
1348 nice); and collapsed by construct_command_argv when it tokenizes.
1349 But letting them survive inside function invocations loses because
1350 we don't want the functions to see them as part of the text. */
1352 char *in
, *out
, *ref
;
1354 /* IN points to where in the line we are scanning.
1355 OUT points to where in the line we are writing.
1356 When we collapse a backslash-newline combination,
1357 IN gets ahead of OUT. */
1359 in
= out
= cmds
->command_lines
[i
];
1360 while ((ref
= strchr (in
, '$')) != 0)
1362 ++ref
; /* Move past the $. */
1365 /* Copy the text between the end of the last chunk
1366 we processed (where IN points) and the new chunk
1367 we are about to process (where REF points). */
1368 bcopy (in
, out
, ref
- in
);
1370 /* Move both pointers past the boring stuff. */
1374 if (*ref
== '(' || *ref
== '{')
1376 char openparen
= *ref
;
1377 char closeparen
= openparen
== '(' ? ')' : '}';
1381 *out
++ = *in
++; /* Copy OPENPAREN. */
1382 /* IN now points past the opening paren or brace.
1383 Count parens or braces until it is matched. */
1387 if (*in
== closeparen
&& --count
< 0)
1389 else if (*in
== '\\' && in
[1] == '\n')
1391 /* We have found a backslash-newline inside a
1392 variable or function reference. Eat it and
1393 any following whitespace. */
1396 for (p
= in
- 1; p
> ref
&& *p
== '\\'; --p
)
1400 /* There were two or more backslashes, so this is
1401 not really a continuation line. We don't collapse
1402 the quoting backslashes here as is done in
1403 collapse_continuations, because the line will
1404 be collapsed again after expansion. */
1408 /* Skip the backslash, newline and
1409 any following whitespace. */
1410 in
= next_token (in
+ 2);
1412 /* Discard any preceding whitespace that has
1413 already been written to the output. */
1414 while (out
> ref
&& isblank (out
[-1]))
1417 /* Replace it all with a single space. */
1423 if (*in
== openparen
)
1432 /* There are no more references in this line to worry about.
1433 Copy the remaining uninteresting text to the output. */
1437 /* Finally, expand the line. */
1438 lines
[i
] = allocated_variable_expand_for_file (cmds
->command_lines
[i
],
1442 /* Start the command sequence, record it in a new
1443 `struct child', and add that to the chain. */
1445 c
= (struct child
*) xmalloc (sizeof (struct child
));
1446 bzero ((char *)c
, sizeof (struct child
));
1448 c
->command_lines
= lines
;
1449 c
->sh_batch_file
= NULL
;
1451 /* Fetch the first command line to be run. */
1452 job_next_command (c
);
1454 /* Wait for a job slot to be freed up. If we allow an infinite number
1455 don't bother; also job_slots will == 0 if we're using the jobserver. */
1458 while (job_slots_used
== job_slots
)
1459 reap_children (1, 0);
1461 #ifdef MAKE_JOBSERVER
1462 /* If we are controlling multiple jobs make sure we have a token before
1463 starting the child. */
1465 /* This can be inefficient. There's a decent chance that this job won't
1466 actually have to run any subprocesses: the command script may be empty
1467 or otherwise optimized away. It would be nice if we could defer
1468 obtaining a token until just before we need it, in start_job_command.
1469 To do that we'd need to keep track of whether we'd already obtained a
1470 token (since start_job_command is called for each line of the job, not
1471 just once). Also more thought needs to go into the entire algorithm;
1472 this is where the old parallel job code waits, so... */
1474 else if (job_fds
[0] >= 0)
1479 /* If we don't already have a job started, use our "free" token. */
1483 /* Read a token. As long as there's no token available we'll block.
1484 If we get a SIGCHLD we'll return with EINTR. If one happened
1485 before we got here we'll return immediately with EBADF because
1486 the signal handler closes the dup'd file descriptor. */
1488 if (read (job_rfd
, &token
, 1) == 1)
1490 DB (DB_JOBS
, (_("Obtained token for child 0x%08lx (%s).\n"),
1491 (unsigned long int) c
, c
->file
->name
));
1495 if (errno
!= EINTR
&& errno
!= EBADF
)
1496 pfatal_with_name (_("read jobs pipe"));
1498 /* Re-dup the read side of the pipe, so the signal handler can
1499 notify us if we miss a child. */
1501 job_rfd
= dup (job_fds
[0]);
1503 /* Something's done. We don't want to block for a whole child,
1504 just reap whatever's there. */
1505 reap_children (0, 0);
1509 /* The job is now primed. Start it running.
1510 (This will notice if there are in fact no commands.) */
1511 (void) start_waiting_job (c
);
1513 if (job_slots
== 1 || not_parallel
)
1514 /* Since there is only one job slot, make things run linearly.
1515 Wait for the child to die, setting the state to `cs_finished'. */
1516 while (file
->command_state
== cs_running
)
1517 reap_children (1, 0);
1522 /* Move CHILD's pointers to the next command for it to execute.
1523 Returns nonzero if there is another command. */
1526 job_next_command (child
)
1527 struct child
*child
;
1529 while (child
->command_ptr
== 0 || *child
->command_ptr
== '\0')
1531 /* There are no more lines in the expansion of this line. */
1532 if (child
->command_line
== child
->file
->cmds
->ncommand_lines
)
1534 /* There are no more lines to be expanded. */
1535 child
->command_ptr
= 0;
1539 /* Get the next line to run. */
1540 child
->command_ptr
= child
->command_lines
[child
->command_line
++];
1548 #if defined(__MSDOS__) || defined(VMS) || defined(_AMIGA)
1553 if (max_load_average
< 0)
1557 if (getloadavg (&load
, 1) != 1)
1559 static int lossage
= -1;
1560 /* Complain only once for the same error. */
1561 if (lossage
== -1 || errno
!= lossage
)
1564 /* An errno value of zero means getloadavg is just unsupported. */
1566 _("cannot enforce load limits on this operating system"));
1568 perror_with_name (_("cannot enforce load limit: "), "getloadavg");
1575 return load
>= max_load_average
;
1579 /* Start jobs that are waiting for the load to be lower. */
1582 start_waiting_jobs ()
1586 if (waiting_jobs
== 0)
1591 /* Check for recently deceased descendants. */
1592 reap_children (0, 0);
1594 /* Take a job off the waiting list. */
1596 waiting_jobs
= job
->next
;
1598 /* Try to start that job. We break out of the loop as soon
1599 as start_waiting_job puts one back on the waiting list. */
1601 while (start_waiting_job (job
) && waiting_jobs
!= 0);
1608 #include <descrip.h>
1611 /* This is called as an AST when a child process dies (it won't get
1612 interrupted by anything except a higher level AST).
1614 int vmsHandleChildTerm(struct child
*child
)
1617 register struct child
*lastc
, *c
;
1620 vms_jobsefnmask
&= ~(1 << (child
->efn
- 32));
1622 lib$
free_ef(&child
->efn
);
1624 (void) sigblock (fatal_signal_mask
);
1626 child_failed
= !(child
->cstatus
& 1 || ((child
->cstatus
& 7) == 0));
1628 /* Search for a child matching the deceased one. */
1630 #if defined(RECURSIVEJOBS) /* I've had problems with recursive stuff and process handling */
1631 for (c
= children
; c
!= 0 && c
!= child
; lastc
= c
, c
= c
->next
);
1636 if (child_failed
&& !c
->noerror
&& !ignore_errors_flag
)
1638 /* The commands failed. Write an error message,
1639 delete non-precious targets, and abort. */
1640 child_error (c
->file
->name
, c
->cstatus
, 0, 0, 0);
1641 c
->file
->update_status
= 1;
1642 delete_child_targets (c
);
1648 /* The commands failed, but we don't care. */
1649 child_error (c
->file
->name
, c
->cstatus
, 0, 0, 1);
1653 #if defined(RECURSIVEJOBS) /* I've had problems with recursive stuff and process handling */
1654 /* If there are more commands to run, try to start them. */
1657 switch (c
->file
->command_state
)
1660 /* Successfully started. */
1664 if (c
->file
->update_status
!= 0) {
1665 /* We failed to start the commands. */
1666 delete_child_targets (c
);
1671 error (NILF
, _("internal error: `%s' command_state"),
1676 #endif /* RECURSIVEJOBS */
1679 /* Set the state flag to say the commands have finished. */
1680 c
->file
->command_state
= cs_finished
;
1681 notice_finished_file (c
->file
);
1683 #if defined(RECURSIVEJOBS) /* I've had problems with recursive stuff and process handling */
1684 /* Remove the child from the chain and free it. */
1688 lastc
->next
= c
->next
;
1690 #endif /* RECURSIVEJOBS */
1692 /* There is now another slot open. */
1693 if (job_slots_used
> 0)
1696 /* If the job failed, and the -k flag was not given, die. */
1697 if (child_failed
&& !keep_going_flag
)
1700 (void) sigsetmask (sigblock (0) & ~(fatal_signal_mask
));
1706 Spawn a process executing the command in ARGV and return its pid. */
1708 #define MAXCMDLEN 200
1710 /* local helpers to make ctrl+c and ctrl+y working, see below */
1712 #include <libclidef.h>
1715 static int ctrlMask
= LIB$M_CLI_CTRLY
;
1716 static int oldCtrlMask
;
1717 static int setupYAstTried
= 0;
1718 static int pidToAbort
= 0;
1721 static void reEnableAst(void) {
1722 lib$
enable_ctrl (&oldCtrlMask
,0);
1725 static astHandler (void) {
1727 sys$
forcex (&pidToAbort
, 0, SS$_ABORT
);
1730 kill (getpid(),SIGQUIT
);
1733 static void tryToSetupYAst(void) {
1734 $
DESCRIPTOR(inputDsc
,"SYS$COMMAND");
1737 short int status
, count
;
1744 status
= sys$
assign(&inputDsc
,&chan
,0,0);
1745 if (!(status
&SS$_NORMAL
)) {
1750 status
= sys$
qiow (0, chan
, IO$_SETMODE
|IO$M_CTRLYAST
,&iosb
,0,0,
1751 astHandler
,0,0,0,0,0);
1752 if (status
==SS$_ILLIOFUNC
) {
1754 #ifdef CTRLY_ENABLED_ANYWAY
1756 _("-warning, CTRL-Y will leave sub-process(es) around.\n"));
1761 if (status
==SS$_NORMAL
)
1762 status
= iosb
.status
;
1763 if (!(status
&SS$_NORMAL
)) {
1768 /* called from AST handler ? */
1769 if (setupYAstTried
>1)
1771 if (atexit(reEnableAst
))
1773 _("-warning, you may have to re-enable CTRL-Y handling from DCL.\n"));
1774 status
= lib$
disable_ctrl (&ctrlMask
, &oldCtrlMask
);
1775 if (!(status
&SS$_NORMAL
)) {
1781 child_execute_job (argv
, child
)
1783 struct child
*child
;
1786 static struct dsc$descriptor_s cmddsc
;
1787 static struct dsc$descriptor_s pnamedsc
;
1788 static struct dsc$descriptor_s ifiledsc
;
1789 static struct dsc$descriptor_s ofiledsc
;
1790 static struct dsc$descriptor_s efiledsc
;
1791 int have_redirection
= 0;
1792 int have_newline
= 0;
1794 int spflags
= CLI$M_NOWAIT
;
1796 char *cmd
= alloca (strlen (argv
) + 512), *p
, *q
;
1797 char ifile
[256], ofile
[256], efile
[256];
1801 /* Parse IO redirection. */
1807 DB (DB_JOBS
, ("child_execute_job (%s)\n", argv
));
1809 while (isspace (*argv
))
1815 sprintf (procname
, "GMAKE_%05x", getpid () & 0xfffff);
1816 pnamedsc
.dsc$w_length
= strlen(procname
);
1817 pnamedsc
.dsc$a_pointer
= procname
;
1818 pnamedsc
.dsc$b_dtype
= DSC$K_DTYPE_T
;
1819 pnamedsc
.dsc$b_class
= DSC$K_CLASS_S
;
1821 /* Handle comments and redirection. */
1822 for (p
= argv
, q
= cmd
; *p
; p
++, q
++)
1836 do { p
++; } while (isspace (*p
));
1842 p
= vms_redirect (&ifiledsc
, ifile
, p
);
1844 have_redirection
= 1;
1847 have_redirection
= 1;
1851 if (strncmp (p
, ">&1", 3) == 0)
1854 strcpy (efile
, "sys$output");
1855 efiledsc
.dsc$w_length
= strlen(efile
);
1856 efiledsc
.dsc$a_pointer
= efile
;
1857 efiledsc
.dsc$b_dtype
= DSC$K_DTYPE_T
;
1858 efiledsc
.dsc$b_class
= DSC$K_CLASS_S
;
1862 p
= vms_redirect (&efiledsc
, efile
, p
);
1867 p
= vms_redirect (&ofiledsc
, ofile
, p
);
1880 if (strncmp (cmd
, "builtin_", 8) == 0)
1882 child
->pid
= 270163;
1886 DB (DB_JOBS
, (_("BUILTIN [%s][%s]\n"), cmd
, cmd
+8));
1892 && ((*(p
+2) == ' ') || (*(p
+2) == '\t')))
1895 while ((*p
== ' ') || (*p
== '\t'))
1897 DB (DB_JOBS
, (_("BUILTIN CD %s\n"), p
));
1903 else if ((*(p
) == 'r')
1905 && ((*(p
+2) == ' ') || (*(p
+2) == '\t')))
1911 while ((*p
== ' ') || (*p
== '\t'))
1915 DB (DB_JOBS
, (_("BUILTIN RM %s\n"), p
));
1936 printf(_("Unknown builtin command '%s'\n"), cmd
);
1942 /* Create a *.com file if either the command is too long for
1943 lib$spawn, or the command contains a newline, or if redirection
1944 is desired. Forcing commands with newlines into DCLs allows to
1945 store search lists on user mode logicals. */
1949 if (strlen (cmd
) > MAXCMDLEN
1950 || (have_redirection
!= 0)
1951 || (have_newline
!= 0))
1956 int alevel
= 0; /* apostrophe level */
1958 if (strlen (cmd
) == 0)
1960 printf (_("Error, empty command\n"));
1965 strcpy (comname
, "sys$scratch:CMDXXXXXX.COM");
1966 (void) mktemp (comname
);
1968 outfile
= fopen (comname
, "w");
1970 pfatal_with_name (comname
);
1974 fprintf (outfile
, "$ assign/user %s sys$input\n", ifile
);
1975 DB (DB_JOBS
, (_("Redirected input from %s\n"), ifile
));
1976 ifiledsc
.dsc$w_length
= 0;
1981 fprintf (outfile
, "$ define sys$error %s\n", efile
);
1982 DB (DB_JOBS
, (_("Redirected error to %s\n"), efile
));
1983 efiledsc
.dsc$w_length
= 0;
1988 fprintf (outfile
, "$ define sys$output %s\n", ofile
);
1989 DB (DB_JOBS
, (_("Redirected output to %s\n"), ofile
));
1990 ofiledsc
.dsc$w_length
= 0;
1994 for (c
= '\n'; c
; c
= *q
++)
1999 /* At a newline, skip any whitespace around a leading $
2000 from the command and issue exactly one $ into the DCL. */
2001 while (isspace (*p
))
2005 while (isspace (*p
))
2007 fwrite (p
, 1, q
- p
, outfile
);
2008 fputc ('$', outfile
);
2009 fputc (' ', outfile
);
2010 /* Reset variables. */
2014 /* Nice places for line breaks are after strings, after
2015 comma or space and before slash. */
2017 q
= handle_apos (q
+ 1);
2033 /* Enough stuff for a line. */
2034 fwrite (p
, 1, sep
- p
, outfile
);
2038 /* The command continues. */
2039 fputc ('-', outfile
);
2041 fputc ('\n', outfile
);
2045 fwrite (p
, 1, q
- p
, outfile
);
2046 fputc ('\n', outfile
);
2050 sprintf (cmd
, "$ @%s", comname
);
2052 DB (DB_JOBS
, (_("Executing %s instead\n"), cmd
));
2055 cmddsc
.dsc$w_length
= strlen(cmd
);
2056 cmddsc
.dsc$a_pointer
= cmd
;
2057 cmddsc
.dsc$b_dtype
= DSC$K_DTYPE_T
;
2058 cmddsc
.dsc$b_class
= DSC$K_CLASS_S
;
2061 while (child
->efn
< 32 || child
->efn
> 63)
2063 status
= lib$
get_ef ((unsigned long *)&child
->efn
);
2068 sys$
clref (child
->efn
);
2070 vms_jobsefnmask
|= (1 << (child
->efn
- 32));
2073 LIB$SPAWN [command-string]
2078 [,process-id] [,completion-status-address] [,byte-integer-event-flag-num]
2079 [,AST-address] [,varying-AST-argument]
2080 [,prompt-string] [,cli] [,table]
2083 #ifndef DONTWAITFORCHILD
2085 * Code to make ctrl+c and ctrl+y working.
2086 * The problem starts with the synchronous case where after lib$spawn is
2087 * called any input will go to the child. But with input re-directed,
2088 * both control characters won't make it to any of the programs, neither
2089 * the spawning nor to the spawned one. Hence the caller needs to spawn
2090 * with CLI$M_NOWAIT to NOT give up the input focus. A sys$waitfr
2091 * has to follow to simulate the wanted synchronous behaviour.
2092 * The next problem is ctrl+y which isn't caught by the crtl and
2093 * therefore isn't converted to SIGQUIT (for a signal handler which is
2094 * already established). The only way to catch ctrl+y, is an AST
2095 * assigned to the input channel. But ctrl+y handling of DCL needs to be
2096 * disabled, otherwise it will handle it. Not to mention the previous
2097 * ctrl+y handling of DCL needs to be re-established before make exits.
2098 * One more: At the time of LIB$SPAWN signals are blocked. SIGQUIT will
2099 * make it to the signal handler after the child "normally" terminates.
2100 * This isn't enough. It seems reasonable for simple command lines like
2101 * a 'cc foobar.c' spawned in a subprocess but it is unacceptable for
2102 * spawning make. Therefore we need to abort the process in the AST.
2104 * Prior to the spawn it is checked if an AST is already set up for
2105 * ctrl+y, if not one is set up for a channel to SYS$COMMAND. In general
2106 * this will work except if make is run in a batch environment, but there
2107 * nobody can press ctrl+y. During the setup the DCL handling of ctrl+y
2108 * is disabled and an exit handler is established to re-enable it.
2109 * If the user interrupts with ctrl+y, the assigned AST will fire, force
2110 * an abort to the subprocess and signal SIGQUIT, which will be caught by
2111 * the already established handler and will bring us back to common code.
2112 * After the spawn (now /nowait) a sys$waitfr simulates the /wait and
2113 * enables the ctrl+y be delivered to this code. And the ctrl+c too,
2114 * which the crtl converts to SIGINT and which is caught by the common
2115 * signal handler. Because signals were blocked before entering this code
2116 * sys$waitfr will always complete and the SIGQUIT will be processed after
2117 * it (after termination of the current block, somewhere in common code).
2118 * And SIGINT too will be delayed. That is ctrl+c can only abort when the
2119 * current command completes. Anyway it's better than nothing :-)
2122 if (!setupYAstTried
)
2124 status
= lib$
spawn (&cmddsc
, /* cmd-string */
2125 (ifiledsc
.dsc$w_length
== 0)?0:&ifiledsc
, /* input-file */
2126 (ofiledsc
.dsc$w_length
== 0)?0:&ofiledsc
, /* output-file */
2127 &spflags
, /* flags */
2128 &pnamedsc
, /* proc name */
2129 &child
->pid
, &child
->cstatus
, &child
->efn
,
2132 pidToAbort
= child
->pid
;
2133 status
= sys$
waitfr (child
->efn
);
2135 vmsHandleChildTerm(child
);
2137 status
= lib$
spawn (&cmddsc
,
2138 (ifiledsc
.dsc$w_length
== 0)?0:&ifiledsc
,
2139 (ofiledsc
.dsc$w_length
== 0)?0:&ofiledsc
,
2142 &child
->pid
, &child
->cstatus
, &child
->efn
,
2143 vmsHandleChildTerm
, child
,
2149 printf (_("Error spawning, %d\n") ,status
);
2153 if (comname
[0] && !ISDB (DB_JOBS
))
2156 return (status
& 1);
2161 #if !defined (_AMIGA) && !defined (__MSDOS__)
2163 Replace the current process with one executing the command in ARGV.
2164 STDIN_FD and STDOUT_FD are used as the process's stdin and stdout; ENVP is
2165 the environment of the new program. This function does not return. */
2168 child_execute_job (stdin_fd
, stdout_fd
, argv
, envp
)
2169 int stdin_fd
, stdout_fd
;
2170 char **argv
, **envp
;
2173 (void) dup2 (stdin_fd
, 0);
2175 (void) dup2 (stdout_fd
, 1);
2177 (void) close (stdin_fd
);
2179 (void) close (stdout_fd
);
2181 /* Run the command. */
2182 exec_command (argv
, envp
);
2184 #endif /* !AMIGA && !__MSDOS__ */
2186 #endif /* !WINDOWS32 */
2189 /* Replace the current process with one running the command in ARGV,
2190 with environment ENVP. This function does not return. */
2193 exec_command (argv
, envp
)
2194 char **argv
, **envp
;
2197 /* to work around a problem with signals and execve: ignore them */
2199 signal (SIGCHLD
,SIG_IGN
);
2201 /* Run the program. */
2202 execve (argv
[0], argv
, envp
);
2203 perror_with_name ("execve: ", argv
[0]);
2204 _exit (EXIT_FAILURE
);
2210 int exit_code
= EXIT_FAILURE
;
2212 /* make sure CreateProcess() has Path it needs */
2213 sync_Path_environment();
2215 /* launch command */
2216 hPID
= process_easy(argv
, envp
);
2218 /* make sure launch ok */
2219 if (hPID
== INVALID_HANDLE_VALUE
)
2223 _("process_easy() failed failed to launch process (e=%d)\n"),
2224 process_last_err(hPID
));
2225 for (i
= 0; argv
[i
]; i
++)
2226 fprintf(stderr
, "%s ", argv
[i
]);
2227 fprintf(stderr
, _("\nCounted %d args in failed launch\n"), i
);
2231 /* wait and reap last child */
2232 while (hWaitPID
= process_wait_for_any())
2234 /* was an error found on this process? */
2235 err
= process_last_err(hWaitPID
);
2238 exit_code
= process_exit_code(hWaitPID
);
2241 fprintf(stderr
, "make (e=%d, rc=%d): %s",
2242 err
, exit_code
, map_windows32_error_to_string(err
));
2244 /* cleanup process */
2245 process_cleanup(hWaitPID
);
2247 /* expect to find only last pid, warn about other pids reaped */
2248 if (hWaitPID
== hPID
)
2252 _("make reaped child pid %d, still waiting for pid %d\n"),
2256 /* return child's exit code as our exit code */
2259 #else /* !WINDOWS32 */
2261 /* Be the user, permanently. */
2264 /* Run the program. */
2266 execvp (argv
[0], argv
);
2271 error (NILF
, _("%s: Command not found"), argv
[0]);
2275 /* The file is not executable. Try it as a shell script. */
2276 extern char *getenv ();
2281 shell
= getenv ("SHELL");
2283 shell
= default_shell
;
2286 while (argv
[argc
] != 0)
2289 new_argv
= (char **) alloca ((1 + argc
+ 1) * sizeof (char *));
2290 new_argv
[0] = shell
;
2291 new_argv
[1] = argv
[0];
2294 new_argv
[1 + argc
] = argv
[argc
];
2298 execvp (shell
, new_argv
);
2299 if (errno
== ENOENT
)
2300 error (NILF
, _("%s: Shell program not found"), shell
);
2302 perror_with_name ("execvp: ", shell
);
2307 perror_with_name ("execvp: ", argv
[0]);
2312 #endif /* !WINDOWS32 */
2315 #else /* On Amiga */
2316 void exec_command (argv
)
2322 void clean_tmp (void)
2324 DeleteFile (amiga_bname
);
2327 #endif /* On Amiga */
2330 /* Figure out the argument list necessary to run LINE as a command. Try to
2331 avoid using a shell. This routine handles only ' quoting, and " quoting
2332 when no backslash, $ or ` characters are seen in the quotes. Starting
2333 quotes may be escaped with a backslash. If any of the characters in
2334 sh_chars[] is seen, or any of the builtin commands listed in sh_cmds[]
2335 is the first word of a line, the shell is used.
2337 If RESTP is not NULL, *RESTP is set to point to the first newline in LINE.
2338 If *RESTP is NULL, newlines will be ignored.
2340 SHELL is the shell to use, or nil to use the default shell.
2341 IFS is the value of $IFS, or nil (meaning the default). */
2344 construct_command_argv_internal (line
, restp
, shell
, ifs
, batch_filename_ptr
)
2345 char *line
, **restp
;
2347 char **batch_filename_ptr
;
2350 /* MSDOS supports both the stock DOS shell and ports of Unixy shells.
2351 We call `system' for anything that requires ``slow'' processing,
2352 because DOS shells are too dumb. When $SHELL points to a real
2353 (unix-style) shell, `system' just calls it to do everything. When
2354 $SHELL points to a DOS shell, `system' does most of the work
2355 internally, calling the shell only for its internal commands.
2356 However, it looks on the $PATH first, so you can e.g. have an
2357 external command named `mkdir'.
2359 Since we call `system', certain characters and commands below are
2360 actually not specific to COMMAND.COM, but to the DJGPP implementation
2361 of `system'. In particular:
2363 The shell wildcard characters are in DOS_CHARS because they will
2364 not be expanded if we call the child via `spawnXX'.
2366 The `;' is in DOS_CHARS, because our `system' knows how to run
2367 multiple commands on a single line.
2369 DOS_CHARS also include characters special to 4DOS/NDOS, so we
2370 won't have to tell one from another and have one more set of
2371 commands and special characters. */
2372 static char sh_chars_dos
[] = "*?[];|<>%^&()";
2373 static char *sh_cmds_dos
[] = { "break", "call", "cd", "chcp", "chdir", "cls",
2374 "copy", "ctty", "date", "del", "dir", "echo",
2375 "erase", "exit", "for", "goto", "if", "md",
2376 "mkdir", "path", "pause", "prompt", "rd",
2377 "rmdir", "rem", "ren", "rename", "set",
2378 "shift", "time", "type", "ver", "verify",
2381 static char sh_chars_sh
[] = "#;\"*?[]&|<>(){}$`^";
2382 static char *sh_cmds_sh
[] = { "cd", "echo", "eval", "exec", "exit", "login",
2383 "logout", "set", "umask", "wait", "while",
2384 "for", "case", "if", ":", ".", "break",
2385 "continue", "export", "read", "readonly",
2386 "shift", "times", "trap", "switch", "unset",
2393 static char sh_chars
[] = "#;\"|<>()?*$`";
2394 static char *sh_cmds
[] = { "cd", "eval", "if", "delete", "echo", "copy",
2395 "rename", "set", "setenv", "date", "makedir",
2396 "skip", "else", "endif", "path", "prompt",
2397 "unset", "unsetenv", "version",
2401 static char sh_chars_dos
[] = "\"|&<>";
2402 static char *sh_cmds_dos
[] = { "break", "call", "cd", "chcp", "chdir", "cls",
2403 "copy", "ctty", "date", "del", "dir", "echo",
2404 "erase", "exit", "for", "goto", "if", "if", "md",
2405 "mkdir", "path", "pause", "prompt", "rem", "ren",
2406 "rename", "set", "shift", "time", "type",
2407 "ver", "verify", "vol", ":", 0 };
2408 static char sh_chars_sh
[] = "#;\"*?[]&|<>(){}$`^";
2409 static char *sh_cmds_sh
[] = { "cd", "eval", "exec", "exit", "login",
2410 "logout", "set", "umask", "wait", "while", "for",
2411 "case", "if", ":", ".", "break", "continue",
2412 "export", "read", "readonly", "shift", "times",
2413 "trap", "switch", "test",
2414 #ifdef BATCH_MODE_ONLY_SHELL
2420 #else /* WINDOWS32 */
2421 static char sh_chars
[] = "#;\"*?[]&|<>(){}$`^";
2422 static char *sh_cmds
[] = { "cd", "eval", "exec", "exit", "login",
2423 "logout", "set", "umask", "wait", "while", "for",
2424 "case", "if", ":", ".", "break", "continue",
2425 "export", "read", "readonly", "shift", "times",
2426 "trap", "switch", 0 };
2427 #endif /* WINDOWS32 */
2429 #endif /* __MSDOS__ */
2434 int instring
, word_has_equals
, seen_nonequals
, last_argument_was_empty
;
2435 char **new_argv
= 0;
2439 if (no_default_sh_exe
) {
2440 sh_cmds
= sh_cmds_dos
;
2441 sh_chars
= sh_chars_dos
;
2443 sh_cmds
= sh_cmds_sh
;
2444 sh_chars
= sh_chars_sh
;
2446 #endif /* WINDOWS32 */
2451 /* Make sure not to bother processing an empty line. */
2452 while (isblank (*line
))
2457 /* See if it is safe to parse commands internally. */
2459 shell
= default_shell
;
2461 else if (strcmp (shell
, default_shell
))
2463 char *s1
= _fullpath(NULL
, shell
, 0);
2464 char *s2
= _fullpath(NULL
, default_shell
, 0);
2466 slow_flag
= strcmp((s1
? s1
: ""), (s2
? s2
: ""));
2475 #else /* not WINDOWS32 */
2477 else if (stricmp (shell
, default_shell
))
2479 extern int _is_unixy_shell (const char *_path
);
2481 message (1, _("$SHELL changed (was `%s', now `%s')"), default_shell
, shell
);
2482 unixy_shell
= _is_unixy_shell (shell
);
2483 default_shell
= shell
;
2487 sh_chars
= sh_chars_sh
;
2488 sh_cmds
= sh_cmds_sh
;
2492 sh_chars
= sh_chars_dos
;
2493 sh_cmds
= sh_cmds_dos
;
2495 #else /* not __MSDOS__ */
2496 else if (strcmp (shell
, default_shell
))
2498 #endif /* not __MSDOS__ */
2499 #endif /* not WINDOWS32 */
2502 for (ap
= ifs
; *ap
!= '\0'; ++ap
)
2503 if (*ap
!= ' ' && *ap
!= '\t' && *ap
!= '\n')
2506 i
= strlen (line
) + 1;
2508 /* More than 1 arg per character is impossible. */
2509 new_argv
= (char **) xmalloc (i
* sizeof (char *));
2511 /* All the args can fit in a buffer as big as LINE is. */
2512 ap
= new_argv
[0] = (char *) xmalloc (i
);
2515 /* I is how many complete arguments have been found. */
2517 instring
= word_has_equals
= seen_nonequals
= last_argument_was_empty
= 0;
2518 for (p
= line
; *p
!= '\0'; ++p
)
2526 /* Inside a string, just copy any char except a closing quote
2527 or a backslash-newline combination. */
2531 if (ap
== new_argv
[0] || *(ap
-1) == '\0')
2532 last_argument_was_empty
= 1;
2534 else if (*p
== '\\' && p
[1] == '\n')
2535 goto swallow_escaped_newline
;
2536 else if (*p
== '\n' && restp
!= NULL
)
2538 /* End of the command line. */
2542 /* Backslash, $, and ` are special inside double quotes.
2543 If we see any of those, punt.
2544 But on MSDOS, if we use COMMAND.COM, double and single
2545 quotes have the same effect. */
2546 else if (instring
== '"' && strchr ("\\$`", *p
) != 0 && unixy_shell
)
2551 else if (strchr (sh_chars
, *p
) != 0)
2552 /* Not inside a string, but it's a special char. */
2555 else if (*p
== '.' && p
[1] == '.' && p
[2] == '.' && p
[3] != '.')
2556 /* `...' is a wildcard in DJGPP. */
2560 /* Not a special char. */
2564 /* Equals is a special character in leading words before the
2565 first word with no equals sign in it. This is not the case
2566 with sh -k, but we never get here when using nonstandard
2568 if (! seen_nonequals
&& unixy_shell
)
2570 word_has_equals
= 1;
2575 /* Backslash-newline combinations are eaten. */
2578 swallow_escaped_newline
:
2580 /* Eat the backslash, the newline, and following whitespace,
2581 replacing it all with a single space. */
2584 /* If there is a tab after a backslash-newline,
2585 remove it from the source line which will be echoed,
2586 since it was most likely used to line
2587 up the continued line with the previous one. */
2589 /* Note these overlap and strcpy() is undefined for
2590 overlapping objects in ANSI C. The strlen() _IS_ right,
2591 since we need to copy the nul byte too. */
2592 bcopy (p
+ 1, p
, strlen (p
));
2598 if (ap
!= new_argv
[i
])
2599 /* Treat this as a space, ending the arg.
2600 But if it's at the beginning of the arg, it should
2601 just get eaten, rather than becoming an empty arg. */
2604 p
= next_token (p
) - 1;
2607 else if (p
[1] != '\0')
2609 #if defined(__MSDOS__) || defined(WINDOWS32)
2610 /* Only remove backslashes before characters special
2611 to Unixy shells. All other backslashes are copied
2612 verbatim, since they are probably DOS-style
2613 directory separators. This still leaves a small
2614 window for problems, but at least it should work
2615 for the vast majority of naive users. */
2618 /* A dot is only special as part of the "..."
2620 if (strneq (p
+ 1, ".\\.\\.", 5))
2628 if (p
[1] != '\\' && p
[1] != '\''
2629 && !isspace ((unsigned char)p
[1])
2630 && (strchr (sh_chars_sh
, p
[1]) == 0))
2631 /* back up one notch, to copy the backslash */
2634 #endif /* __MSDOS__ || WINDOWS32 */
2635 /* Copy and skip the following char. */
2648 /* End of the command line. */
2653 /* Newlines are not special. */
2660 /* We have the end of an argument.
2661 Terminate the text of the argument. */
2664 last_argument_was_empty
= 0;
2666 /* Update SEEN_NONEQUALS, which tells us if every word
2667 heretofore has contained an `='. */
2668 seen_nonequals
|= ! word_has_equals
;
2669 if (word_has_equals
&& ! seen_nonequals
)
2670 /* An `=' in a word before the first
2671 word without one is magical. */
2673 word_has_equals
= 0; /* Prepare for the next word. */
2675 /* If this argument is the command name,
2676 see if it is a built-in shell command.
2677 If so, have the shell handle it. */
2681 for (j
= 0; sh_cmds
[j
] != 0; ++j
)
2682 if (streq (sh_cmds
[j
], new_argv
[0]))
2686 /* Ignore multiple whitespace chars. */
2688 /* Next iteration should examine the first nonwhite char. */
2700 /* Let the shell deal with an unterminated quote. */
2703 /* Terminate the last argument and the argument list. */
2706 if (new_argv
[i
][0] != '\0' || last_argument_was_empty
)
2713 for (j
= 0; sh_cmds
[j
] != 0; ++j
)
2714 if (streq (sh_cmds
[j
], new_argv
[0]))
2718 if (new_argv
[0] == 0)
2719 /* Line was empty. */
2725 /* We must use the shell. */
2729 /* Free the old argument list we were working on. */
2731 free ((void *)new_argv
);
2735 execute_by_shell
= 1; /* actually, call `system' if shell isn't unixy */
2744 buffer
= (char *)xmalloc (strlen (line
)+1);
2747 for (dptr
=buffer
; *ptr
; )
2749 if (*ptr
== '\\' && ptr
[1] == '\n')
2751 else if (*ptr
== '@') /* Kludge: multiline commands */
2761 new_argv
= (char **) xmalloc (2 * sizeof (char *));
2762 new_argv
[0] = buffer
;
2765 #else /* Not Amiga */
2768 * Not eating this whitespace caused things like
2772 * which gave the shell fits. I think we have to eat
2773 * whitespace here, but this code should be considered
2774 * suspicious if things start failing....
2777 /* Make sure not to bother processing an empty line. */
2778 while (isspace ((unsigned char)*line
))
2782 #endif /* WINDOWS32 */
2784 /* SHELL may be a multi-word command. Construct a command line
2785 "SHELL -c LINE", with all special chars in LINE escaped.
2786 Then recurse, expanding this command line to get the final
2789 unsigned int shell_len
= strlen (shell
);
2791 static char minus_c
[] = " -c ";
2793 static char minus_c
[] = "";
2795 unsigned int line_len
= strlen (line
);
2797 char *new_line
= (char *) alloca (shell_len
+ (sizeof (minus_c
) - 1)
2798 + (line_len
* 2) + 1);
2799 char *command_ptr
= NULL
; /* used for batch_mode_shell mode */
2802 bcopy (shell
, ap
, shell_len
);
2804 bcopy (minus_c
, ap
, sizeof (minus_c
) - 1);
2805 ap
+= sizeof (minus_c
) - 1;
2807 for (p
= line
; *p
!= '\0'; ++p
)
2809 if (restp
!= NULL
&& *p
== '\n')
2814 else if (*p
== '\\' && p
[1] == '\n')
2816 /* Eat the backslash, the newline, and following whitespace,
2817 replacing it all with a single space (which is escaped
2821 /* If there is a tab after a backslash-newline,
2822 remove it from the source line which will be echoed,
2823 since it was most likely used to line
2824 up the continued line with the previous one. */
2826 bcopy (p
+ 1, p
, strlen (p
));
2830 if (unixy_shell
&& !batch_mode_shell
)
2836 /* DOS shells don't know about backslash-escaping. */
2837 if (unixy_shell
&& !batch_mode_shell
&&
2838 (*p
== '\\' || *p
== '\'' || *p
== '"'
2839 || isspace ((unsigned char)*p
)
2840 || strchr (sh_chars
, *p
) != 0))
2843 else if (unixy_shell
&& strneq (p
, "...", 3))
2845 /* The case of `...' wildcard again. */
2846 strcpy (ap
, "\\.\\.\\");
2853 if (ap
== new_line
+ shell_len
+ sizeof (minus_c
) - 1)
2854 /* Line was empty. */
2859 /* Some shells do not work well when invoked as 'sh -c xxx' to run a
2860 command line (e.g. Cygnus GNUWIN32 sh.exe on WIN32 systems). In these
2861 cases, run commands via a script file. */
2862 if ((no_default_sh_exe
|| batch_mode_shell
) && batch_filename_ptr
) {
2864 int id
= GetCurrentProcessId();
2868 /* create a file name */
2869 sprintf(fbuf
, "make%d", id
);
2870 fname
= tempnam(".", fbuf
);
2872 /* create batch file name */
2873 *batch_filename_ptr
= xmalloc(strlen(fname
) + 5);
2874 strcpy(*batch_filename_ptr
, fname
);
2876 /* make sure path name is in DOS backslash format */
2878 fname
= *batch_filename_ptr
;
2879 for (i
= 0; fname
[i
] != '\0'; ++i
)
2880 if (fname
[i
] == '/')
2882 strcat(*batch_filename_ptr
, ".bat");
2884 strcat(*batch_filename_ptr
, ".sh");
2887 DB (DB_JOBS
, (_("Creating temporary batch file %s\n"),
2888 *batch_filename_ptr
));
2890 /* create batch file to execute command */
2891 batch
= fopen (*batch_filename_ptr
, "w");
2893 fputs ("@echo off\n", batch
);
2894 fputs (command_ptr
, batch
);
2895 fputc ('\n', batch
);
2899 new_argv
= (char **) xmalloc(3 * sizeof (char *));
2901 new_argv
[0] = xstrdup (shell
);
2902 new_argv
[1] = *batch_filename_ptr
; /* only argv[0] gets freed later */
2904 new_argv
[0] = xstrdup (*batch_filename_ptr
);
2909 #endif /* WINDOWS32 */
2911 new_argv
= construct_command_argv_internal (new_line
, (char **) NULL
,
2912 (char *) 0, (char *) 0,
2917 /* With MSDOS shells, we must construct the command line here
2918 instead of recursively calling ourselves, because we
2919 cannot backslash-escape the special characters (see above). */
2920 new_argv
= (char **) xmalloc (sizeof (char *));
2921 line_len
= strlen (new_line
) - shell_len
- sizeof (minus_c
) + 1;
2922 new_argv
[0] = xmalloc (line_len
+ 1);
2923 strncpy (new_argv
[0],
2924 new_line
+ shell_len
+ sizeof (minus_c
) - 1, line_len
);
2925 new_argv
[0][line_len
] = '\0';
2929 fatal (NILF
, _("%s (line %d) Bad shell context (!unixy && !batch_mode_shell)\n"),
2930 __FILE__
, __LINE__
);
2933 #endif /* ! AMIGA */
2939 /* Figure out the argument list necessary to run LINE as a command. Try to
2940 avoid using a shell. This routine handles only ' quoting, and " quoting
2941 when no backslash, $ or ` characters are seen in the quotes. Starting
2942 quotes may be escaped with a backslash. If any of the characters in
2943 sh_chars[] is seen, or any of the builtin commands listed in sh_cmds[]
2944 is the first word of a line, the shell is used.
2946 If RESTP is not NULL, *RESTP is set to point to the first newline in LINE.
2947 If *RESTP is NULL, newlines will be ignored.
2949 FILE is the target whose commands these are. It is used for
2950 variable expansion for $(SHELL) and $(IFS). */
2953 construct_command_argv (line
, restp
, file
, batch_filename_ptr
)
2954 char *line
, **restp
;
2956 char** batch_filename_ptr
;
2970 && (isspace (*cptr
)))
2975 && (!isspace(*cptr
)))
2980 argv
= (char **)malloc (argc
* sizeof (char *));
2989 && (isspace (*cptr
)))
2993 DB (DB_JOBS
, ("argv[%d] = [%s]\n", argc
, cptr
));
2994 argv
[argc
++] = cptr
;
2996 && (!isspace(*cptr
)))
3003 /* Turn off --warn-undefined-variables while we expand SHELL and IFS. */
3004 int save
= warn_undefined_variables_flag
;
3005 warn_undefined_variables_flag
= 0;
3007 shell
= allocated_variable_expand_for_file ("$(SHELL)", file
);
3010 * Convert to forward slashes so that construct_command_argv_internal()
3014 char *p
= w32ify(shell
, 0);
3018 ifs
= allocated_variable_expand_for_file ("$(IFS)", file
);
3020 warn_undefined_variables_flag
= save
;
3023 argv
= construct_command_argv_internal (line
, restp
, shell
, ifs
, batch_filename_ptr
);
3031 #if !defined(HAVE_DUP2) && !defined(_AMIGA)
3049 #endif /* !HAPE_DUP2 && !_AMIGA */