Exemple #1
0
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));
}
Exemple #2
0
/***
*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);
}