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 ); }