char * hb_getenv( const char * szName ) { char * pszBuffer = NULL; #if defined( HB_OS_WIN ) { LPTSTR lpName = HB_CHARDUP( szName ); DWORD size = GetEnvironmentVariable( lpName, NULL, 0 ); if( size != 0 ) { LPTSTR lpBuffer = ( LPTSTR ) hb_xgrab( size * sizeof( TCHAR ) ); GetEnvironmentVariable( lpName, lpBuffer, size ); pszBuffer = HB_OSSTRDUP( lpBuffer ); hb_xfree( lpBuffer ); } hb_xfree( lpName ); } #elif defined( HB_OS_OS2 ) { PSZ EnvValue = ( PSZ ) ""; char * pszNameFree = NULL; szName = hb_osEncodeCP( szName, &pszNameFree, NULL ); if( DosScanEnv( ( PCSZ ) szName, &EnvValue ) == NO_ERROR ) pszBuffer = hb_osStrDecode( ( char * ) EnvValue ); if( pszNameFree ) hb_xfree( pszNameFree ); } #else { char * pszTemp, * pszNameFree = NULL; szName = hb_osEncodeCP( szName, &pszNameFree, NULL ); pszTemp = getenv( szName ); if( pszNameFree ) hb_xfree( pszNameFree ); if( pszTemp != NULL ) pszBuffer = hb_osStrDecode( pszTemp ); } #endif return pszBuffer; }
static char * hb_buildArgsOS2( const char *pszFileName, APIRET * ret ) { PHB_FNAME pFilepath; char szFileBuf[ HB_PATH_MAX ]; char * pArgs = NULL, * pszFree = NULL, cQuote = 0, c; HB_SIZE nLen = 0, nLen2; void * pMem; while( HB_ISSPACE( *pszFileName ) ) ++pszFileName; pszFileName = hb_osEncodeCP( pszFileName, &pszFree, NULL ); while( ( c = *pszFileName ) != '\0' ) { ++pszFileName; if( c == '"' ) cQuote = cQuote ? 0 : c; else { if( cQuote == 0 && HB_ISSPACE( c ) ) break; if( nLen < sizeof( szFileBuf ) - 1 ) szFileBuf[ nLen++ ] = c; } } szFileBuf[ nLen ] = '\0'; while( HB_ISSPACE( *pszFileName ) ) ++pszFileName; nLen2 = strlen( pszFileName ); pFilepath = hb_fsFNameSplit( szFileBuf ); if( pFilepath->szPath && ! pFilepath->szExtension ) { pFilepath->szExtension = ".com"; if( ! hb_fsFileExists( hb_fsFNameMerge( szFileBuf, pFilepath ) ) ) { pFilepath->szExtension = ".exe"; if( ! hb_fsFileExists( hb_fsFNameMerge( szFileBuf, pFilepath ) ) ) { pFilepath->szExtension = NULL; hb_fsFNameMerge( szFileBuf, pFilepath ); } } nLen = strlen( szFileBuf ); } hb_xfree( pFilepath ); *ret = DosAllocMem( &pMem, nLen + nLen2 + 3, PAG_COMMIT | PAG_READ | PAG_WRITE | OBJ_TILE ); if( *ret == NO_ERROR ) { pArgs = ( char * ) pMem; memcpy( pArgs, szFileBuf, nLen + 1 ); memcpy( pArgs + nLen + 1, pszFileName, nLen2 + 1 ); pArgs[ nLen + nLen2 + 2 ] = '\0'; } if( pszFree ) hb_xfree( pszFree ); return pArgs; }
/* set current process environment variable, if szValue is NULL delete * environment variable */ HB_BOOL hb_setenv( const char * szName, const char * szValue ) { if( szName == NULL ) return HB_FALSE; #if defined( HB_OS_WIN ) { LPTSTR lpName = HB_CHARDUP( szName ); LPTSTR lpValue = szValue ? HB_CHARDUP( szValue ) : NULL; HB_BOOL fResult = ( SetEnvironmentVariable( lpName, lpValue ) != 0 ); if( lpValue ) hb_xfree( lpValue ); hb_xfree( lpName ); return fResult; } #elif defined( _BSD_SOURCE ) || _POSIX_C_SOURCE >= 200112L || \ _XOPEN_SOURCE >= 600 || \ defined( __WATCOMC__ ) || defined( __DJGPP__ ) || \ defined( HB_OS_SUNOS ) || defined( HB_OS_BSD ) || \ defined( HB_OS_DARWIN ) || defined( HB_OS_BEOS ) || \ defined( HB_OS_QNX ) || defined( HB_OS_VXWORKS ) || \ defined( HB_OS_CYGWIN ) || defined( HB_OS_MINIX ) || \ defined( HB_OS_ANDROID ) { HB_BOOL fResult; char * pszNameFree = NULL, * pszValueFree = NULL; szName = hb_osEncodeCP( szName, &pszNameFree, NULL ); if( szValue ) { szValue = hb_osEncodeCP( szValue, &pszValueFree, NULL ); fResult = setenv( szName, szValue, 1 ) == 0; if( pszValueFree ) hb_xfree( pszValueFree ); } else { # if ( defined( __DJGPP__ ) && \ ( __DJGPP__ < 2 || ( __DJGPP__ == 2 && __DJGPP_MINOR__ < 4 ) ) ) || \ defined( __WATCOMC__ ) szValue = getenv( szName ); if( szValue && *szValue ) fResult = setenv( szName, "", 1 ) == 0; else fResult = HB_TRUE; # elif defined( __OpenBSD__ ) || defined( HB_OS_QNX ) || \ ( defined( __FreeBSD_version ) && __FreeBSD_version < 700050 ) || \ ( defined( HB_OS_DARWIN ) && !( defined( __DARWIN_UNIX03 ) && __DARWIN_UNIX03 ) ) unsetenv( szName ); fResult = HB_TRUE; # else fResult = unsetenv( szName ) == 0; # endif } if( pszNameFree ) hb_xfree( pszNameFree ); return fResult; } #elif defined( _HB_NO_SETENV_ ) HB_SYMBOL_UNUSED( szValue ); return HB_FALSE; #else /* please add support for other C compilers * if such functionality does not exists for given platform/C compiler * then please simply added C compiler with necessary OS/version checking * to the above #elif ... to eliminate warning [druzus] */ int iTODO; HB_SYMBOL_UNUSED( szValue ); return HB_FALSE; #endif }
HB_BOOL hb_getenv_buffer( const char * szName, char * szBuffer, int nSize ) { HB_BOOL fRetVal; #if defined( HB_OS_WIN ) { LPTSTR lpName = HB_CHARDUP( szName ), lpBuffer; if( szBuffer != NULL || nSize > 0 ) lpBuffer = ( LPTSTR ) hb_xgrab( nSize * sizeof( TCHAR ) ); else lpBuffer = NULL; fRetVal = GetEnvironmentVariable( lpName, lpBuffer, nSize ) != 0; if( lpBuffer ) { if( fRetVal ) { lpBuffer[ nSize - 1 ] = TEXT( '\0' ); HB_OSSTRDUP2( lpBuffer, szBuffer, nSize - 1 ); } hb_xfree( lpBuffer ); } hb_xfree( lpName ); } #elif defined( HB_OS_OS2 ) { PSZ EnvValue = ( PSZ ) ""; char * pszNameFree = NULL; szName = hb_osEncodeCP( szName, &pszNameFree, NULL ); fRetVal = DosScanEnv( ( PCSZ ) szName, &EnvValue ) == NO_ERROR; if( pszNameFree ) hb_xfree( pszNameFree ); if( fRetVal && szBuffer != NULL && nSize != 0 ) hb_osStrDecode2( ( char * ) EnvValue, szBuffer, nSize - 1 ); } #else { char * pszTemp, * pszNameFree = NULL; szName = hb_osEncodeCP( szName, &pszNameFree, NULL ); pszTemp = getenv( szName ); if( pszNameFree ) hb_xfree( pszNameFree ); if( pszTemp != NULL ) { fRetVal = HB_TRUE; if( szBuffer != NULL && nSize != 0 ) hb_osStrDecode2( pszTemp, szBuffer, nSize - 1 ); } else fRetVal = HB_FALSE; } #endif if( ! fRetVal && szBuffer != NULL && nSize != 0 ) szBuffer[ 0 ] = '\0'; return fRetVal; }