1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
/***
*execvpe.c - execute a file with given environ; search along PATH
*
* Copyright (c) 1985-1992, Microsoft Corporation. All rights reserved.
*
*Purpose:
* defines _execvpe() - execute a file with given environ
*
*Revision History:
* 10-17-83 RN written
* 10-29-85 TC added execvpe capability
* 11-19-86 SKS handle both kinds of slashes
* 12-01-86 JMB added Kanji file name support under conditional KANJI
* switches, corrected header info
* removed bogus check for env = b after call to strncpy().
* 12-11-87 JCR Added "_LOAD_DS" to declaration
* 09-05-88 SKS Treat EACCES the same as ENOENT -- keep trying
* 10-18-88 GJF Removed copy of PATH string to local array, changed
* bbuf to be a malloc-ed buffer. Removed bogus limits
* on the size of that PATH string.
* 10-26-88 GJF Don't search PATH when relative pathname is given (per
* Stevesa). Also, if the name built from PATH component
* and filename is a UNC name, allow any error.
* 11-20-89 GJF Fixed copyright. Added const attribute to types of
* filename, argvector and envptr. Also, added "#include
* <jstring.h>" under KANJI switch (same as 5-17-89 change
* to CRT version).
* 03-08-90 GJF Replaced _LOAD_DS with _CALLTYPE1, added #include
* <cruntime.h> and removed #include <register.h>. Also,
* cleaned up the formatting a bit.
* 07-24-90 SBM Removed redundant includes, replaced <assertm.h> by
* <assert.h>
* 09-27-90 GJF New-style function declarator.
* 01-17-91 GJF ANSI naming.
* 11-30-92 KRS Port _MBCS code from 16-bit tree.
*
*******************************************************************************/
#include <cruntime.h>
#include <errno.h>
#include <assert.h>
#include <stdlib.h>
#include <string.h>
#include <process.h>
#include <mbstring.h>
#define SLASH "\\"
#define SLASHCHAR '\\'
#define XSLASHCHAR '/'
#define DELIMITER ";"
#ifdef _MBCS
/* note, the macro below assumes p is to pointer to a single-byte character
* or the 1st byte of a double-byte character, in a string.
*/
#define ISPSLASH(p) ( ((p) == _mbschr((p), SLASHCHAR)) || ((p) == \
_mbschr((p), XSLASHCHAR)) )
#else
#define ISSLASH(c) ( ((c) == SLASHCHAR) || ((c) == XSLASHCHAR) )
#endif
/***
*int _execvpe(filename, argvector, envvector) - execute a file
*
*Purpose:
* Executes a file with given arguments and environment.
* try to execute the file. start with the name itself (directory '.'),
* and if that doesn't work start prepending pathnames from the
* environment until one works or we run out. if the file is a pathname,
* don't go to the environment to get alternate paths. If a needed text
* file is busy, wait a little while and try again before despairing
* completely
*
*Entry:
* char *filename - file to execute
* char **argvector - vector of arguments
* char **envvector - vector of environment variables
*
*Exit:
* destroys the calling process (hopefully)
* if fails, returns -1
*
*Exceptions:
*
*******************************************************************************/
int _CALLTYPE1 _execvpe (
REG3 const char *filename,
const char * const *argvector,
const char * const *envptr
)
{
REG1 char *env;
char *bbuf = NULL;
REG2 char *buf;
char *pfin;
assert(filename != NULL);
assert(*filename != '\0');
assert(argvector != NULL);
assert(*argvector != NULL);
assert(**argvector != '\0');
_execve(filename,argvector,envptr);
/* In a SBCS build, _mbschr will map to strchr. */
if ( (errno != ENOENT)
|| (_mbschr(filename, SLASHCHAR) != NULL)
|| (_mbschr(filename, XSLASHCHAR) != NULL)
|| *filename && *(filename+1) == ':'
|| !(env=getenv("PATH")) )
goto reterror;
/* allocate a buffer to hold alternate pathnames for the executable
*/
if ( (buf = bbuf = (char *)malloc(_MAX_PATH)) == NULL ) goto reterror;
do {
/* copy a component into bbuf[], taking care not to overflow it
*/
/* UNDONE: make sure ';' isn't 2nd byte of DBCS char */
while ( (*env) && (*env != ';') && (buf < bbuf+_MAX_PATH-2) )
*buf++ = *env++;
*buf = '\0';
pfin = --buf;
buf = bbuf;
#ifdef _MBCS
if (*pfin == SLASHCHAR) {
if (pfin != _mbsrchr(buf,SLASHCHAR))
/* *pfin is the second byte of a double-byte
* character
*/
strcat( buf, SLASH );
}
else if (*pfin != XSLASHCHAR)
strcat(buf, SLASH);
#else
if (*pfin != SLASHCHAR && *pfin != XSLASHCHAR)
strcat(buf, SLASH);
#endif
/* check that the final path will be of legal size. if so,
* build it. otherwise, return to the caller (return value
* and errno rename set from initial call to _execve()).
*/
if ( (strlen(buf) + strlen(filename)) < _MAX_PATH )
strcat(buf, filename);
else
break;
_execve(buf, argvector, envptr);
if ( (errno != ENOENT)
#ifdef _MBCS
&& (!ISPSLASH(buf) || !ISPSLASH(buf+1)) )
#else
&& (!ISSLASH(*buf) || !ISSLASH(*(buf+1))) )
#endif
break;
} while ( *env && env++ );
reterror:
if (bbuf != NULL)
free(bbuf);
return(-1);
}
|
