int __F_NAME(__cenvarg,__wcenvarg)(
/*
* Build environment and command line for new process. Length of environment
* (in bytes) is returned on success. -1 is returned on failure.
*/
const CHAR_TYPE *const argv[], /* i: arguments for new process */
const CHAR_TYPE *const envp[], /* i: env strings for new process */
CHAR_TYPE **envptr, /* o: allocated memory for env */
CHAR_TYPE **envstrings, /* o: pointer to environment strings */
unsigned *envseg, /* o: start of env (on para boundary) */
size_t *cmdline_len, /* o: size required to hold cmd line */
int exec ) /* i: TRUE if for exec */
{
unsigned length;
unsigned oamblksiz;
CHAR_TYPE *p;
CHAR_TYPE _WCNEAR *np;
unsigned len;
int i;
if( envp == NULL ){
#ifdef __WIDECHAR__
if( _RWD_wenviron == NULL )
__create_wide_environment();
#endif
envp = (const CHAR_TYPE * const *)__F_NAME(_RWD_environ,_RWD_wenviron);
}
length = 0;
if( envp != NULL ){
for( i = 0; envp[i] != NULL; i++ ) {
length += __F_NAME(strlen,wcslen)( envp[i] ) + 1;
}
}
++length; /* trailing \0 for env */
if( exec ){
/* store argv[0] at 2 bytes past end of env */
length += 2 + __F_NAME(strlen,wcslen)( argv[0] ) + 1;
}
length += 15; /* so we can start on a paragraph boundary */
oamblksiz = _RWD_amblksiz;
_RWD_amblksiz = 16; /* force allocation in 16 byte increments */
p = np = lib_nmalloc( length*sizeof(CHAR_TYPE) );
if( np == NULL ){ /* 03-aug-88 */
p = lib_malloc( length*sizeof(CHAR_TYPE) );
if( p == NULL ){
__set_errno( ENOMEM );
__set_doserrno( E_nomem );
_RWD_amblksiz = oamblksiz;
return( -1 );
}
}
_RWD_amblksiz = oamblksiz;
*envptr = p;
#if defined( _M_I86 ) && defined( __DOS__ )
#if defined(__SMALL_DATA__)
p = (char *) (((unsigned) p + 15) & 0xfff0);
#else /* large data models */ /* 12-aug-88 */
p = MK_FP( FP_SEG(p), (( FP_OFF(p) + 15) & 0xfff0) );
#endif
{
CHAR_TYPE _WCFAR *temp;
temp = p;
*envseg = FP_SEG( temp ) + FP_OFF( temp )/16;
}
#else
*envseg = 0;
#endif
*envstrings = p; /* save ptr to env strings. 07-oct-92 */
if( envp != NULL ){
for( i = 0; envp[i] != NULL; ++i ){
p = stpcpy( p, envp[i] ) + 1;
}
}
*p++ = '\0';
if( exec ) {
__F_NAME(strcpy,wcscpy)( p + 2, argv[0] );
}
len = 0;
if( argv[0] != NULL ) {
for( i = 1; argv[i] != NULL; ++i ){
if( len != 0 ) ++len; /* plus 1 for blank separator */
len += __F_NAME(strlen,wcslen)( argv[i] );
}
}
#if defined( __NT__ )
// we are going to add quotes around program name (argv[0])
len += _MAX_PATH2 + 3;
#elif defined( __OS2__ )
len += _MAX_PATH2 + 1;
#elif defined( __RDOS__ ) || defined( __RDOSDEV__ )
len += _MAX_PATH2 + 1;
#else
if( len > 126 ) {
__set_errno( E2BIG );
__set_doserrno( E_badenv );
lib_free( *envptr );
return( -1 );
}
len = _MAX_PATH; /* always use _MAX_PATH chars for DOS */
#endif
*cmdline_len = len;
return( length / 16 );
}
_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 );
}
