static int __cdecl findenv (
#endif
const _TSCHAR *name,
int len
)
{
_TSCHAR **env;
for ( env = _tenviron ; *env != NULL ; env++ ) {
/*
* See if first len characters match, up to case
*/
if ( _tcsnicoll(name, *env, len) == 0 )
/*
* the next character of the environment string must
* be an '=' or a '\0'
*/
if ( (*env)[len] == _T('=') || (*env)[len] == _T('\0') )
return(env - _tenviron);
//
// We cannot break here since findenv must report the total number of strings.
// else
// break;
}
return(-(env - _tenviron));
}
/***
*char *getenv(option) - search environment for a string
*
*Purpose:
* searches the environment for a string of the form "option=value",
* if found, return value, otherwise NULL.
*
*Entry:
* const char *option - variable to search for in environment
*
*Exit:
* returns the value part of the environment string if found,
* otherwise NULL
*
*Exceptions:
*
*******************************************************************************/
#ifdef _MT
#ifdef WPRFLAG
wchar_t * __cdecl _wgetenv (
#else /* WPRFLAG */
char * __cdecl getenv (
#endif /* WPRFLAG */
const _TSCHAR *option
)
{
_TSCHAR *retval;
_mlock(_ENV_LOCK);
#ifdef WPRFLAG
retval = _wgetenv_lk(option);
#else /* WPRFLAG */
retval = _getenv_lk(option);
#endif /* WPRFLAG */
_munlock(_ENV_LOCK);
return(retval);
}
#ifdef WPRFLAG
wchar_t * __cdecl _wgetenv_lk (
#else /* WPRFLAG */
char * __cdecl _getenv_lk (
#endif /* WPRFLAG */
const _TSCHAR *option
)
#else /* _MT */
#ifdef WPRFLAG
wchar_t * __cdecl _wgetenv (
#else /* WPRFLAG */
char * __cdecl getenv (
#endif /* WPRFLAG */
const _TSCHAR *option
)
#endif /* _MT */
{
_TSCHAR **search = _tenviron;
unsigned int length;
#ifndef CRTDLL
/*
* Make sure the environment is initialized.
*/
if ( !__env_initialized )
return NULL;
#endif /* CRTDLL */
/*
* At startup, we obtain the 'native' flavor of environment strings
* from the OS. So a "main" program has _environ and a "wmain" has
* _wenviron loaded at startup. Only when the user gets or puts the
* 'other' flavor do we convert it.
*/
#ifdef WPRFLAG
if (!search && _environ)
{
/* don't have requested type, but other exists, so convert it */
if (__mbtow_environ() != 0)
return NULL;
/* now requested type exists */
search = _wenviron;
}
#else /* WPRFLAG */
if (!search && _wenviron)
{
/* don't have requested type, but other exists, so convert it */
if (__wtomb_environ() != 0)
return NULL;
/* now requested type exists */
search = _environ;
}
#endif /* WPRFLAG */
if (search && option)
{
length = _tcslen(option);
/*
** Make sure `*search' is long enough to be a candidate
** (We must NOT index past the '\0' at the end of `*search'!)
** and that it has an equal sign (`=') in the correct spot.
** If both of these requirements are met, compare the strings.
*/
while (*search)
{
if (_tcslen(*search) > length && (*(*search + length)
== _T('=')) && (_tcsnicoll(*search, option, length) == 0)) {
return(*search + length + 1);
}
search++;
}
}
return(NULL);
}