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 6This file is part of the libiberty library. 7Libiberty is free software; you can redistribute it and/or 8modify it under the terms of the GNU Library General Public 9License as published by the Free Software Foundation; either 10version 2 of the License, or (at your option) any later version. 11 12Libiberty is distributed in the hope that it will be useful, 13but WITHOUT ANY WARRANTY; without even the implied warranty of 14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 15Library General Public License for more details. 16 17You should have received a copy of the GNU Library General Public 18License along with libiberty; see the file COPYING.LIB. If not, 19write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 20Boston, 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 55static const char * const * 56fix_argv (argvec) 57 char **argvec; 58{ 59 int i; 60 char * command0 = argvec[0]; 61 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. */ 68 for (; *command0 != '\0'; command0++) 69 if (*command0 == '/') 70 *command0 = '\\'; 71 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 */ 140int 141pexecute (program, argv, this_pname, temp_base, errmsg_fmt, errmsg_arg, flags) 142 const char *program; 143 char * const *argv; 144 const char *this_pname ATTRIBUTE_UNUSED; 145 const char *temp_base ATTRIBUTE_UNUSED; 146 char **errmsg_fmt, **errmsg_arg; 147 int flags; 148{ 149 int pid; 150 int pdes[2]; 151 int org_stdin = -1; 152 int org_stdout = -1; 153 int input_desc, output_desc; 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; 218 *errmsg_arg = (char*) program; 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 232int 233pwait (pid, status, flags) 234 int pid; 235 int *status; 236 int flags ATTRIBUTE_UNUSED; 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} 256