Commit | Line | Data |
---|---|---|
5a17353c DD |
1 | /* Utilities to execute a program in a subprocess (possibly linked by pipes |
2 | with other subprocesses), and wait for it. Generic Win32 specialization. | |
3 | Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003 | |
4 | Free Software Foundation, Inc. | |
5 | ||
6 | This file is part of the libiberty library. | |
7 | Libiberty is free software; you can redistribute it and/or | |
8 | modify it under the terms of the GNU Library General Public | |
9 | License as published by the Free Software Foundation; either | |
10 | version 2 of the License, or (at your option) any later version. | |
11 | ||
12 | Libiberty is distributed in the hope that it will be useful, | |
13 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
15 | Library General Public License for more details. | |
16 | ||
17 | You should have received a copy of the GNU Library General Public | |
18 | License along with libiberty; see the file COPYING.LIB. If not, | |
19 | write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
20 | Boston, MA 02111-1307, USA. */ | |
21 | ||
22 | #include "pex-common.h" | |
23 | ||
24 | #ifdef HAVE_STRING_H | |
25 | #include <string.h> | |
26 | #endif | |
27 | #ifdef HAVE_UNISTD_H | |
28 | #include <unistd.h> | |
29 | #endif | |
30 | #ifdef HAVE_SYS_WAIT_H | |
31 | #include <sys/wait.h> | |
32 | #endif | |
33 | ||
34 | #include <process.h> | |
35 | #include <io.h> | |
36 | #include <fcntl.h> | |
37 | #include <signal.h> | |
38 | ||
39 | /* mingw32 headers may not define the following. */ | |
40 | ||
41 | #ifndef _P_WAIT | |
42 | # define _P_WAIT 0 | |
43 | # define _P_NOWAIT 1 | |
44 | # define _P_OVERLAY 2 | |
45 | # define _P_NOWAITO 3 | |
46 | # define _P_DETACH 4 | |
47 | ||
48 | # define WAIT_CHILD 0 | |
49 | # define WAIT_GRANDCHILD 1 | |
50 | #endif | |
51 | ||
52 | /* This is a kludge to get around the Microsoft C spawn functions' propensity | |
53 | to remove the outermost set of double quotes from all arguments. */ | |
54 | ||
55 | static const char * const * | |
56 | fix_argv (argvec) | |
57 | char **argvec; | |
58 | { | |
59 | int i; | |
ab8c7bb1 | 60 | char * command0 = argvec[0]; |
5a17353c | 61 | |
9f7d3e7d DD |
62 | /* Ensure that the executable pathname uses Win32 backslashes. This |
63 | is not necessary on NT, but on W9x, forward slashes causes failure | |
64 | of spawn* and exec* functions (and probably any function that | |
65 | calls CreateProcess) *iff* the executable pathname (argvec[0]) is | |
66 | a quoted string. And quoting is necessary in case a pathname | |
67 | contains embedded white space. You can't win. */ | |
ab8c7bb1 DD |
68 | for (; *command0 != '\0'; command0++) |
69 | if (*command0 == '/') | |
70 | *command0 = '\\'; | |
71 | ||
5a17353c DD |
72 | for (i = 1; argvec[i] != 0; i++) |
73 | { | |
74 | int len, j; | |
75 | char *temp, *newtemp; | |
76 | ||
77 | temp = argvec[i]; | |
78 | len = strlen (temp); | |
79 | for (j = 0; j < len; j++) | |
80 | { | |
81 | if (temp[j] == '"') | |
82 | { | |
83 | newtemp = xmalloc (len + 2); | |
84 | strncpy (newtemp, temp, j); | |
85 | newtemp [j] = '\\'; | |
86 | strncpy (&newtemp [j+1], &temp [j], len-j); | |
87 | newtemp [len+1] = 0; | |
88 | temp = newtemp; | |
89 | len++; | |
90 | j++; | |
91 | } | |
92 | } | |
93 | ||
94 | argvec[i] = temp; | |
95 | } | |
96 | ||
97 | for (i = 0; argvec[i] != 0; i++) | |
98 | { | |
99 | if (strpbrk (argvec[i], " \t")) | |
100 | { | |
101 | int len, trailing_backslash; | |
102 | char *temp; | |
103 | ||
104 | len = strlen (argvec[i]); | |
105 | trailing_backslash = 0; | |
106 | ||
107 | /* There is an added complication when an arg with embedded white | |
108 | space ends in a backslash (such as in the case of -iprefix arg | |
109 | passed to cpp). The resulting quoted strings gets misinterpreted | |
110 | by the command interpreter -- it thinks that the ending quote | |
111 | is escaped by the trailing backslash and things get confused. | |
112 | We handle this case by escaping the trailing backslash, provided | |
113 | it was not escaped in the first place. */ | |
114 | if (len > 1 | |
115 | && argvec[i][len-1] == '\\' | |
116 | && argvec[i][len-2] != '\\') | |
117 | { | |
118 | trailing_backslash = 1; | |
119 | ++len; /* to escape the final backslash. */ | |
120 | } | |
121 | ||
122 | len += 2; /* and for the enclosing quotes. */ | |
123 | ||
124 | temp = xmalloc (len + 1); | |
125 | temp[0] = '"'; | |
126 | strcpy (temp + 1, argvec[i]); | |
127 | if (trailing_backslash) | |
128 | temp[len-2] = '\\'; | |
129 | temp[len-1] = '"'; | |
130 | temp[len] = '\0'; | |
131 | ||
132 | argvec[i] = temp; | |
133 | } | |
134 | } | |
135 | ||
136 | return (const char * const *) argvec; | |
137 | } | |
138 | ||
139 | /* Win32 supports pipes */ | |
140 | int | |
141 | pexecute (program, argv, this_pname, temp_base, errmsg_fmt, errmsg_arg, flags) | |
142 | const char *program; | |
143 | char * const *argv; | |
dbb9d0f3 DD |
144 | const char *this_pname ATTRIBUTE_UNUSED; |
145 | const char *temp_base ATTRIBUTE_UNUSED; | |
5a17353c DD |
146 | char **errmsg_fmt, **errmsg_arg; |
147 | int flags; | |
148 | { | |
149 | int pid; | |
dbb9d0f3 DD |
150 | int pdes[2]; |
151 | int org_stdin = -1; | |
152 | int org_stdout = -1; | |
5a17353c | 153 | int input_desc, output_desc; |
5a17353c DD |
154 | |
155 | /* Pipe waiting from last process, to be used as input for the next one. | |
156 | Value is STDIN_FILE_NO if no pipe is waiting | |
157 | (i.e. the next command is the first of a group). */ | |
158 | static int last_pipe_input; | |
159 | ||
160 | /* If this is the first process, initialize. */ | |
161 | if (flags & PEXECUTE_FIRST) | |
162 | last_pipe_input = STDIN_FILE_NO; | |
163 | ||
164 | input_desc = last_pipe_input; | |
165 | ||
166 | /* If this isn't the last process, make a pipe for its output, | |
167 | and record it as waiting to be the input to the next process. */ | |
168 | if (! (flags & PEXECUTE_LAST)) | |
169 | { | |
170 | if (_pipe (pdes, 256, O_BINARY) < 0) | |
171 | { | |
172 | *errmsg_fmt = "pipe"; | |
173 | *errmsg_arg = NULL; | |
174 | return -1; | |
175 | } | |
176 | output_desc = pdes[WRITE_PORT]; | |
177 | last_pipe_input = pdes[READ_PORT]; | |
178 | } | |
179 | else | |
180 | { | |
181 | /* Last process. */ | |
182 | output_desc = STDOUT_FILE_NO; | |
183 | last_pipe_input = STDIN_FILE_NO; | |
184 | } | |
185 | ||
186 | if (input_desc != STDIN_FILE_NO) | |
187 | { | |
188 | org_stdin = dup (STDIN_FILE_NO); | |
189 | dup2 (input_desc, STDIN_FILE_NO); | |
190 | close (input_desc); | |
191 | } | |
192 | ||
193 | if (output_desc != STDOUT_FILE_NO) | |
194 | { | |
195 | org_stdout = dup (STDOUT_FILE_NO); | |
196 | dup2 (output_desc, STDOUT_FILE_NO); | |
197 | close (output_desc); | |
198 | } | |
199 | ||
200 | pid = (flags & PEXECUTE_SEARCH ? _spawnvp : _spawnv) | |
201 | (_P_NOWAIT, program, fix_argv(argv)); | |
202 | ||
203 | if (input_desc != STDIN_FILE_NO) | |
204 | { | |
205 | dup2 (org_stdin, STDIN_FILE_NO); | |
206 | close (org_stdin); | |
207 | } | |
208 | ||
209 | if (output_desc != STDOUT_FILE_NO) | |
210 | { | |
211 | dup2 (org_stdout, STDOUT_FILE_NO); | |
212 | close (org_stdout); | |
213 | } | |
214 | ||
215 | if (pid == -1) | |
216 | { | |
217 | *errmsg_fmt = install_error_msg; | |
ab8c7bb1 | 218 | *errmsg_arg = (char*) program; |
5a17353c DD |
219 | return -1; |
220 | } | |
221 | ||
222 | return pid; | |
223 | } | |
224 | ||
225 | /* MS CRTDLL doesn't return enough information in status to decide if the | |
226 | child exited due to a signal or not, rather it simply returns an | |
227 | integer with the exit code of the child; eg., if the child exited with | |
228 | an abort() call and didn't have a handler for SIGABRT, it simply returns | |
229 | with status = 3. We fix the status code to conform to the usual WIF* | |
230 | macros. Note that WIFSIGNALED will never be true under CRTDLL. */ | |
231 | ||
232 | int | |
233 | pwait (pid, status, flags) | |
234 | int pid; | |
235 | int *status; | |
dbb9d0f3 | 236 | int flags ATTRIBUTE_UNUSED; |
5a17353c DD |
237 | { |
238 | int termstat; | |
239 | ||
240 | pid = _cwait (&termstat, pid, WAIT_CHILD); | |
241 | ||
242 | /* ??? Here's an opportunity to canonicalize the values in STATUS. | |
243 | Needed? */ | |
244 | ||
245 | /* cwait returns the child process exit code in termstat. | |
246 | A value of 3 indicates that the child caught a signal, but not | |
247 | which one. Since only SIGABRT, SIGFPE and SIGINT do anything, we | |
248 | report SIGABRT. */ | |
249 | if (termstat == 3) | |
250 | *status = SIGABRT; | |
251 | else | |
252 | *status = (((termstat) & 0xff) << 8); | |
253 | ||
254 | return pid; | |
255 | } |