projects / thirdparty / binutils-gdb.git / blame
| 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. DJGPP 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 | #include <stdio.h> | |
| 25 | #include <errno.h> | |
| 26 | #ifdef NEED_DECLARATION_ERRNO | |
| 27 | extern int errno; | |
| 28 | #endif | |
| 29 | #ifdef HAVE_STDLIB_H | |
| 30 | #include <stdlib.h> | |
| 31 | #endif | |
| 32 | #include <process.h> | |
| 33 | ||
| 34 | /* Use ECHILD if available, otherwise use EINVAL. */ | |
| 35 | #ifdef ECHILD | |
| 36 | #define PWAIT_ERROR ECHILD | |
| 37 | #else | |
| 38 | #define PWAIT_ERROR EINVAL | |
| 39 | #endif | |
| 40 | ||
| 41 | /* MSDOS doesn't multitask, but for the sake of a consistent interface | |
| 42 | the code behaves like it does. pexecute runs the program, tucks the | |
| 43 | exit code away, and returns a "pid". pwait must be called to fetch the | |
| 44 | exit code. */ | |
| 45 | ||
| 46 | /* For communicating information from pexecute to pwait. */ | |
| 47 | static int last_pid = 0; | |
| 48 | static int last_status = 0; | |
| 49 | static int last_reaped = 0; | |
| 50 | ||
| 51 | int | |
| 1e45deed DD |
52 | pexecute (const char *program, char * const *argv, const char *this_pname, |
| 53 | const char *temp_base, char **errmsg_fmt, | |
| 54 | char **errmsg_arg, int flags) | |
| 5a17353c DD |
55 | { |
| 56 | int rc; | |
| 57 | ||
| 58 | last_pid++; | |
| 59 | if (last_pid < 0) | |
| 60 | last_pid = 1; | |
| 61 | ||
| 62 | if ((flags & PEXECUTE_ONE) != PEXECUTE_ONE) | |
| 63 | abort (); | |
| 64 | ||
| 65 | /* ??? What are the possible return values from spawnv? */ | |
| 66 | rc = (flags & PEXECUTE_SEARCH ? spawnvp : spawnv) (P_WAIT, program, argv); | |
| 67 | ||
| 68 | if (rc == -1) | |
| 69 | { | |
| 70 | *errmsg_fmt = install_error_msg; | |
| 71 | *errmsg_arg = (char *)program; | |
| 72 | return -1; | |
| 73 | } | |
| 74 | ||
| 75 | /* Tuck the status away for pwait, and return a "pid". */ | |
| 76 | last_status = rc << 8; | |
| 77 | return last_pid; | |
| 78 | } | |
| 79 | ||
| 80 | int | |
| 1e45deed | 81 | pwait (int pid, int *status, int flags) |
| 5a17353c DD |
82 | { |
| 83 | /* On MSDOS each pexecute must be followed by its associated pwait. */ | |
| 84 | if (pid != last_pid | |
| 85 | /* Called twice for the same child? */ | |
| 86 | || pid == last_reaped) | |
| 87 | { | |
| 88 | errno = PWAIT_ERROR; | |
| 89 | return -1; | |
| 90 | } | |
| 91 | /* ??? Here's an opportunity to canonicalize the values in STATUS. | |
| 92 | Needed? */ | |
| 93 | *status = (last_status >> 8); | |
| 94 | last_reaped = last_pid; | |
| 95 | return last_pid; | |
| 96 | } |