_WCRTLINK int execv( const CHAR_TYPE * path,
const CHAR_TYPE * const argv[] )
{
const CHAR_TYPE * const *envp = (const CHAR_TYPE **)_RWD_environ;
CHAR_TYPE *envmem;
CHAR_TYPE *envstrings;
unsigned envseg;
int len;
CHAR_TYPE SPVE_NEAR *np;
CHAR_TYPE SPVE_NEAR *p;
CHAR_TYPE SPVE_NEAR *end_of_p;
int retval;
int num_of_paras; /* for environment */
size_t cmdline_len;
CHAR_TYPE SPVE_NEAR *cmdline_mem;
CHAR_TYPE SPVE_NEAR *cmdline;
CHAR_TYPE *drive;
CHAR_TYPE *dir;
CHAR_TYPE *fname;
CHAR_TYPE *ext;
retval = __F_NAME(__cenvarg,__wcenvarg)( argv, envp, &envmem,
&envstrings, &envseg,
&cmdline_len, FALSE );
if( retval == -1 ) {
return( -1 );
}
num_of_paras = retval;
len = __F_NAME(strlen,wcslen)( path ) + 7 + _MAX_PATH2;
np = LIB_ALLOC( len * sizeof( CHAR_TYPE ) );
if( np == NULL ) {
p = (CHAR_TYPE SPVE_NEAR *)alloca( len*sizeof(CHAR_TYPE) );
if( p == NULL ) {
lib_free( envmem );
return( -1 );
}
} else {
p = np;
}
__F_NAME(_splitpath2,_wsplitpath2)( path, p + (len-_MAX_PATH2),
&drive, &dir, &fname, &ext );
/* allocate the cmdline buffer */
cmdline_mem = LIB_ALLOC( cmdline_len * sizeof( CHAR_TYPE ) );
if( cmdline_mem == NULL ) {
cmdline = (CHAR_TYPE SPVE_NEAR *)alloca( cmdline_len*sizeof(CHAR_TYPE) );
if( cmdline == NULL ) {
retval = -1;
_RWD_errno = E2BIG;
goto cleanup;
}
} else {
cmdline = cmdline_mem;
}
__F_NAME(_makepath,_wmakepath)( p, drive, dir, fname, ext );
_RWD_errno = ENOENT;
if( ext[0] != '\0' ) {
if( __F_NAME(stricmp,wcscmp)( ext, __F_NAME(".bat",L".bat") ) == 0 )
{
retval = -1; /* assume file doesn't exist */
if( file_exists( p ) ) goto spawn_command_com;
} else {
_RWD_errno = 0;
/* user specified an extension, so try it */
retval = _doexec( p, cmdline, argv );
}
}
else {
end_of_p = p + __F_NAME(strlen,wcslen)( p );
__F_NAME(strcpy,wcscpy)( end_of_p, __F_NAME(".com",L".com") );
_RWD_errno = 0;
retval = _doexec( p, cmdline, argv );
if( _RWD_errno == ENOENT || _RWD_errno == EINVAL ) {
_RWD_errno = 0;
__F_NAME(strcpy,wcscpy)( end_of_p, __F_NAME(".exe",L".exe") );
retval = _doexec( p, cmdline, argv );
if( _RWD_errno == ENOENT || _RWD_errno == EINVAL ) {
/* try for a .BAT file */
_RWD_errno = 0;
__F_NAME(strcpy,wcscpy)( end_of_p, __F_NAME(".bat",L".bat") );
if( file_exists( p ) ) {
spawn_command_com:
/* the environment will have to be reconstructed */
lib_free( envmem );
envmem = NULL;
__F_NAME(__ccmdline,__wccmdline)( p, argv, cmdline, 1 );
retval = execl( getenv("COMSPEC"),
"COMMAND",
"/c ",
p, cmdline );
}
}
}
}
cleanup:
LIB_FREE( cmdline_mem );
LIB_FREE( np );
lib_free( envmem );
return( retval );
}
_WCRTLINK int __F_NAME(spawnve,_wspawnve)( int mode, const CHAR_TYPE * path,
const CHAR_TYPE * const argv[], const CHAR_TYPE * const in_envp[] )
{
const CHAR_TYPE * const *envp = (const CHAR_TYPE * const *)in_envp;
CHAR_TYPE *envmem;
CHAR_TYPE *envstrings;
unsigned envseg;
int len;
CHAR_TYPE SPVE_NEAR *np;
CHAR_TYPE SPVE_NEAR *p;
CHAR_TYPE SPVE_NEAR *end_of_p;
int retval;
int num_of_paras; /* for environment */
size_t cmdline_len;
CHAR_TYPE SPVE_NEAR *cmdline_mem;
CHAR_TYPE SPVE_NEAR *cmdline;
CHAR_TYPE switch_c[4];
CHAR_TYPE prot_mode286;
#if defined( __DOS__ )
auto _87state _87save;
#endif
CHAR_TYPE *drive;
CHAR_TYPE *dir;
CHAR_TYPE *fname;
CHAR_TYPE *ext;
int rc;
#if defined( __DOS__ ) && defined( _M_I86 )
#define ENVPARM envseg
#else
#define ENVPARM envmem
#endif
#ifdef __USE_POSIX_HANDLE_STRINGS
CHAR_TYPE **newEnvp;
int count;
CHAR_TYPE *fileinfo;
int doFreeFlag = 0;
if( _fileinfo != 0 ) {
fileinfo = __F_NAME(__FormPosixHandleStr,__wFormPosixHandleStr)();
if( fileinfo != NULL ) {
count = 1;
if( envp != NULL ) {
newEnvp = (CHAR_TYPE **)envp;
while( *newEnvp != NULL ) { /* count 'em, including NULL */
newEnvp++;
count++;
}
}
count++; /* one more for the new entry */
newEnvp = lib_malloc( count * sizeof(CHAR_TYPE*) );
if( newEnvp != NULL ) {
if( envp != NULL ) {
memcpy( newEnvp, envp, (count-1)*sizeof(CHAR_TYPE*) );
}
newEnvp[count-2] = fileinfo;/* add C_FILE_INFO entry */
newEnvp[count-1] = NULL; /* terminate pointer list */
envp = (const CHAR_TYPE **)newEnvp;/* use new environment */
doFreeFlag = 1; /* do cleanup on exit */
} else {
lib_free( fileinfo );
}
}
}
#endif
#if defined(__386__) || defined(__AXP__) || defined(__PPC__)
prot_mode286 = FALSE;
#if defined(__OS2__) || defined(__NT__)
if( mode == OLD_P_OVERLAY ) {
rc = __F_NAME(execve,_wexecve)(path, argv, envp);
_POSIX_HANDLE_CLEANUP;
return( rc );
}
#endif
#if defined( __DOS__ )
if( mode >= OLD_P_OVERLAY ) {
__set_errno( EINVAL );
rc = -1;
_POSIX_HANDLE_CLEANUP;
return( rc );
}
#endif
#else
#if defined( __OS2__ )
prot_mode286 = _RWD_osmode;
if( mode == OLD_P_OVERLAY ) {
rc = execve(path, argv, envp);
_POSIX_HANDLE_CLEANUP;
return( rc );
}
#else
prot_mode286 = FALSE;
if( mode == OLD_P_OVERLAY ) {
execveaddr_type execve;
execve = __execaddr();
if( execve != NULL ) {
rc = (*execve)( path, argv, envp );
_POSIX_HANDLE_CLEANUP;
return( rc );
}
__set_errno( EINVAL );
_POSIX_HANDLE_CLEANUP;
return( -1 );
}
#endif
#endif
retval = __F_NAME(__cenvarg,__wcenvarg)( argv, envp, &envmem,
&envstrings, &envseg,
&cmdline_len, FALSE );
if( retval == -1 ) {
_POSIX_HANDLE_CLEANUP;
return( -1 );
}
num_of_paras = retval;
len = __F_NAME(strlen,wcslen)( path ) + 7 + _MAX_PATH2;
np = LIB_ALLOC( len * sizeof( CHAR_TYPE ) );
if( np == NULL ) {
p = (CHAR_TYPE SPVE_NEAR *)alloca( len*sizeof(CHAR_TYPE) );
if( p == NULL ) {
lib_free( envmem );
_POSIX_HANDLE_CLEANUP;
return( -1 );
}
} else {
p = np;
}
__F_NAME(_splitpath2,_wsplitpath2)( path, p + (len-_MAX_PATH2),
&drive, &dir, &fname, &ext );
#if defined( __DOS__ )
_RWD_Save8087( &_87save );
#endif
#if defined( __DOS__ ) && defined( _M_I86 )
if( _osmode != DOS_MODE ) { /* if protect-mode e.g. DOS/16M */
unsigned segment;
if( _dos_allocmem( num_of_paras, &segment ) != 0 ) {
lib_nfree( np );
lib_free( envmem );
_POSIX_HANDLE_CLEANUP;
return( -1 );
}
envseg = segment;
_fmemcpy( MK_FP( segment, 0 ), envstrings, num_of_paras * 16 );
}
#endif
/* allocate the cmdline buffer */
cmdline_mem = LIB_ALLOC( cmdline_len * sizeof( CHAR_TYPE ) );
if( cmdline_mem == NULL ) {
cmdline = (CHAR_TYPE SPVE_NEAR *)alloca( cmdline_len*sizeof(CHAR_TYPE) );
if( cmdline == NULL ) {
retval = -1;
__set_errno( E2BIG );
__set_doserrno( E_badenv );
goto cleanup;
}
} else {
cmdline = cmdline_mem;
}
#if !defined( __OS2__ ) && !defined(__NT__)
if( _RWD_osmajor >= 3 ) { /* 17-oct-88, check version #
* 'append' program in DOS has a bug, so we avoid it by putting '.\'
* on the front of a filename that doesn't have a path or drive
*/
if( drive[0] == 0 && dir[0] == 0 ) {
dir = ".\\";
}
}
#endif
__F_NAME(_makepath,_wmakepath)( p, drive, dir, fname, ext );
__set_errno( ENOENT );
if( ext[0] != '\0' ) {
#if defined( __OS2__ )
if( stricmp( ext, ".cmd" ) == 0 || stricmp( ext, ".bat" ) == 0 )
#else
if( __F_NAME(stricmp,wcscmp)( ext, __F_NAME(".bat",L".bat") ) == 0 )
#endif
{
retval = -1; /* assume file doesn't exist */
if( file_exists( p ) ) goto spawn_command_com;
} else {
__set_errno( 0 );
/* user specified an extension, so try it */
retval = x_dospawn( mode, p, cmdline, ENVPARM, argv );
}
}
#if defined( __OS2__ ) || defined( __NT__ )
/*
* consider the following valid executable filenames:
* a.b.exe a.cmd.exe a.exe.cmd a.cmd
* we must always try to add .exe, etc.
*/
if( _RWD_errno == ENOENT || _RWD_errno == EINVAL ) {
#else
else {
#endif
end_of_p = p + __F_NAME(strlen,wcslen)( p );
if( prot_mode286 ) {
__set_errno( ENOENT );
} else {
__F_NAME(strcpy,wcscpy)( end_of_p, __F_NAME(".com",L".com") );
__set_errno( 0 );
retval = x_dospawn( mode, p, cmdline, ENVPARM, argv );
}
if( _RWD_errno == ENOENT || _RWD_errno == EINVAL ) {
__set_errno( 0 );
__F_NAME(strcpy,wcscpy)( end_of_p, __F_NAME(".exe",L".exe") );
retval = x_dospawn( mode, p, cmdline, ENVPARM, argv );
if( _RWD_errno == ENOENT || _RWD_errno == EINVAL ) {
/* try for a .BAT file */
__set_errno( 0 );
#if defined( __OS2__ )
strcpy( end_of_p, ".cmd" );
if( !file_exists( p ) )
strcpy( end_of_p, ".bat" );
#else
__F_NAME(strcpy,wcscpy)( end_of_p, __F_NAME(".bat",L".bat") );
#endif
if( file_exists( p ) ) {
spawn_command_com:
/* the environment will have to be reconstructed */
lib_free( envmem );
envmem = NULL;
__F_NAME(__ccmdline,__wccmdline)( p, argv, cmdline, 1 );
#ifdef __WIDECHAR__
retval = _wspawnl( mode, _wgetenv(L"COMSPEC"),
prot_mode286 ? L"CMD" : L"COMMAND",
__wSlash_C( switch_c, prot_mode286 ),
p, cmdline, NULL );
#else
retval = spawnl( mode, getenv("COMSPEC"),
prot_mode286 ? "CMD" : "COMMAND",
__Slash_C( switch_c, prot_mode286 ),
p, cmdline, NULL );
#endif
}
}
}
}
cleanup:
_POSIX_HANDLE_CLEANUP;
LIB_FREE( cmdline_mem );
LIB_FREE( np );
lib_free( envmem );
#if !defined(__OS2__) && defined( _M_I86 )
if( _osmode != DOS_MODE ) { /* if protect-mode e.g. DOS/16M */
_dos_freemem( envseg );
}
#endif
#if defined( __DOS__ )
_RWD_Rest8087( &_87save );
#endif
return( retval );
}
_WCRTLINK int spawnve( int mode, const CHAR_TYPE * path,
const CHAR_TYPE * const argv[], const CHAR_TYPE * const in_envp[] )
{
const CHAR_TYPE * const *envp = (const CHAR_TYPE * const *)in_envp;
CHAR_TYPE *envmem;
CHAR_TYPE *envstrings;
unsigned envseg;
int len;
CHAR_TYPE SPVE_NEAR *np;
CHAR_TYPE SPVE_NEAR *p;
CHAR_TYPE SPVE_NEAR *end_of_p;
int rc;
int retval;
int num_of_paras; /* for environment */
size_t cmdline_len;
CHAR_TYPE SPVE_NEAR *cmdline_mem;
CHAR_TYPE SPVE_NEAR *cmdline;
CHAR_TYPE *drive;
CHAR_TYPE *dir;
CHAR_TYPE *fname;
CHAR_TYPE *ext;
if( mode == OLD_P_OVERLAY ) {
rc = __F_NAME(execve,_wexecve)( path, argv, envp );
return( rc );
}
retval = __F_NAME(__cenvarg,__wcenvarg)( argv, envp, &envmem,
&envstrings, &envseg,
&cmdline_len, FALSE );
if( retval == -1 ) {
return( -1 );
}
num_of_paras = retval;
len = __F_NAME(strlen,wcslen)( path ) + 7 + _MAX_PATH2;
np = LIB_ALLOC( len * sizeof( CHAR_TYPE ) );
if( np == NULL ) {
p = (CHAR_TYPE SPVE_NEAR *)alloca( len * sizeof( CHAR_TYPE ) );
if( p == NULL ) {
lib_free( envmem );
return( -1 );
}
} else {
p = np;
}
__F_NAME(_splitpath2,_wsplitpath2)( path, p + ( len - _MAX_PATH2 ),
&drive, &dir, &fname, &ext );
/* allocate the cmdline buffer */
cmdline_mem = LIB_ALLOC( cmdline_len * sizeof( CHAR_TYPE ) );
if( cmdline_mem == NULL ) {
cmdline = (CHAR_TYPE SPVE_NEAR *)alloca( cmdline_len * sizeof( CHAR_TYPE ) );
if( cmdline == NULL ) {
retval = -1;
_RWD_errno = E2BIG;
}
} else {
cmdline = cmdline_mem;
}
if( cmdline != NULL ) {
__F_NAME(_makepath,_wmakepath)( p, drive, dir, fname, ext );
_RWD_errno = ENOENT;
if( ext[0] != NULLCHAR ) {
if( __F_NAME(stricmp,wcscmp)( ext, STRING( ".bat" ) ) == 0 )
{
retval = -1; /* assume file doesn't exist */
if( file_exists( p ) ) {
/* the environment will have to be reconstructed */
lib_free( envmem );
envmem = NULL;
__F_NAME(__ccmdline,__wccmdline)( p, argv, cmdline, 1 );
retval = spawnl( mode, getenv( STRING( "COMSPEC" ) ),
STRING( "COMMAND" ),
STRING( "/c " ),
p, cmdline, NULL );
}
} else {
_RWD_errno = 0;
/* user specified an extension, so try it */
retval = __F_NAME(_dospawn,_wdospawn)( mode, p, cmdline, envmem, argv );
}
} else {
end_of_p = p + __F_NAME(strlen,wcslen)( p );
__F_NAME(strcpy,wcscpy)( end_of_p, STRING( ".com" ) );
_RWD_errno = 0;
retval = __F_NAME(_dospawn,_wdospawn)( mode, p, cmdline, envmem, argv );
if( _RWD_errno == ENOENT || _RWD_errno == EINVAL ) {
_RWD_errno = 0;
__F_NAME(strcpy,wcscpy)( end_of_p, STRING( ".exe" ) );
retval = __F_NAME(_dospawn,_wdospawn)( mode, p, cmdline, envmem, argv );
if( _RWD_errno == ENOENT || _RWD_errno == EINVAL ) {
/* try for a .BAT file */
_RWD_errno = 0;
__F_NAME(strcpy,wcscpy)( end_of_p, STRING( ".bat" ) );
if( file_exists( p ) ) {
/* the environment will have to be reconstructed */
lib_free( envmem );
envmem = NULL;
__F_NAME(__ccmdline,__wccmdline)( p, argv, cmdline, 1 );
retval = spawnl( mode, getenv( STRING( "COMSPEC" ) ),
STRING( "COMMAND" ),
STRING( "/c " ),
p, cmdline, NULL );
}
}
}
}
}
LIB_FREE( cmdline_mem );
LIB_FREE( np );
lib_free( envmem );
return( retval );
}
