environ.c File Reference

#include "msvcrt.h"
#include "mtdll.h"
#include <winnls.h>
#include "wine/debug.h"

Include dependency graph for environ.c:

Go to the source code of this file.

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (msvcrt)
int	env_init (BOOL unicode, BOOL modif)
static int	env_get_index (const char *name)
static int	wenv_get_index (const wchar_t *name)
static int	env_set (char **env, wchar_t **wenv)
static char *	getenv_helper (const char *name)
char *CDECL	getenv (const char *name)
static wchar_t *	wgetenv_helper (const wchar_t *name)
wchar_t *CDECL	_wgetenv (const wchar_t *name)
static int	putenv_helper (const char *name, const char *val, const char *eq)
static char *	msvcrt_astrdupw (const wchar_t *wstr)
static int	wputenv_helper (const wchar_t *name, const wchar_t *val, const wchar_t *eq)
int CDECL	_putenv (const char *str)
int CDECL	_wputenv (const wchar_t *str)
errno_t CDECL	_putenv_s (const char *name, const char *value)
errno_t CDECL	_wputenv_s (const wchar_t *name, const wchar_t *value)
int CDECL	getenv_s (size_t *ret_len, char *buffer, size_t len, const char *varname)
int CDECL	_wgetenv_s (size_t *ret_len, wchar_t *buffer, size_t len, const wchar_t *varname)
void CDECL	_get_environ (char ***ptr)
void CDECL	_get_wenviron (wchar_t ***ptr)

Function Documentation

_get_environ()

void CDECL _get_environ

(

char ***

ptr

)

Definition at line 560 of file environ.c.

{
    *ptr = MSVCRT__environ;
}

_get_wenviron()

void CDECL _get_wenviron

(

wchar_t ***

ptr

)

Definition at line 568 of file environ.c.

{
    *ptr = MSVCRT__wenviron;
}

_putenv()

int CDECL _putenv

(

const char *

str

)

Definition at line 362 of file environ.c.

{
    const char *eq;
 
    TRACE("%s\n", debugstr_a(str));
 
    if (!str || !(eq = strchr(str, '=')))
        return -1;
 
    return putenv_helper(str, NULL, eq);
}

Referenced by test__environ(), test__tzset(), test__wenviron(), test_case_insensitive(), test_environment_manipulation(), and test_utf8().

_putenv_s()

errno_t CDECL _putenv_s	(	const char *	name,
		const char *	value
	)

Definition at line 392 of file environ.c.

{
    errno_t ret = 0;
 
    TRACE("%s %s\n", debugstr_a(name), debugstr_a(value));
 
    if (!MSVCRT_CHECK_PMT(name != NULL)) return EINVAL;
    if (!MSVCRT_CHECK_PMT(value != NULL)) return EINVAL;
 
    if (putenv_helper(name, value, NULL) < 0)
    {
        msvcrt_set_errno(GetLastError());
        ret = *_errno();
    }
 
    return ret;
}

_wgetenv()

wchar_t *CDECL _wgetenv

(

const wchar_t *

name

)

Definition at line 254 of file environ.c.

{
    wchar_t *ret;
 
    if (!MSVCRT_CHECK_PMT(name != NULL)) return NULL;
 
    _lock(_ENV_LOCK);
    ret = wgetenv_helper(name);
    _unlock(_ENV_LOCK);
    return ret;
}

Referenced by _tgetenv(), _wsearchenv_s(), _wsystem(), _wtempnam(), compat_getenv(), INTERNET_LoadProxySettings(), msvcrt_search_executable(), START_TEST(), test_case_insensitive(), test_environment_manipulation(), and test_utf8().

_wgetenv_s()

int CDECL _wgetenv_s	(	size_t *	ret_len,
		wchar_t *	buffer,
		size_t	len,
		const wchar_t *	varname
	)

Definition at line 533 of file environ.c.

{
    wchar_t *e;
 
    if (!MSVCRT_CHECK_PMT(ret_len != NULL)) return EINVAL;
    *ret_len = 0;
    if (!MSVCRT_CHECK_PMT((buffer && len > 0) || (!buffer && !len))) return EINVAL;
    if (buffer) buffer[0] = 0;
 
    _lock(_ENV_LOCK);
    e = wgetenv_helper(varname);
    if (e)
    {
        *ret_len = wcslen(e) + 1;
        if (len >= *ret_len) wcscpy(buffer, e);
    }
    _unlock(_ENV_LOCK);
 
    if (!e || !len) return 0;
    if (len < *ret_len) return ERANGE;
    return 0;
}

Referenced by get_tz_environment_variable().

_wputenv()

int CDECL _wputenv

(

const wchar_t *

str

)

Definition at line 377 of file environ.c.

{
    const wchar_t *eq;
 
    TRACE("%s\n", debugstr_w(str));
 
    if (!str || !(eq = wcschr(str, '=')))
        return -1;
 
    return wputenv_helper(str, NULL, eq);
}

Referenced by test__wenviron(), test_case_insensitive(), test_environment_manipulation(), and test_utf8().

_wputenv_s()

errno_t CDECL _wputenv_s	(	const wchar_t *	name,
		const wchar_t *	value
	)

Definition at line 413 of file environ.c.

{
    errno_t ret = 0;
 
    TRACE("%s %s\n", debugstr_w(name), debugstr_w(value));
 
    if (!MSVCRT_CHECK_PMT(name != NULL)) return EINVAL;
    if (!MSVCRT_CHECK_PMT(value != NULL)) return EINVAL;
 
    if (wputenv_helper(name, value, NULL) < 0)
    {
        msvcrt_set_errno(GetLastError());
        ret = *_errno();
    }
 
    return ret;
}

env_get_index()

static int env_get_index ( const char *  name )

static

Definition at line 121 of file environ.c.

{
    int i, len;
 
    len = strlen(name);
    for (i = 0; MSVCRT__environ[i]; i++)
    {
        if (!strnicmp(name, MSVCRT__environ[i], len) && MSVCRT__environ[i][len] == '=')
            return i;
    }
    return i;
}

Referenced by env_set(), and getenv_helper().

env_init()

int env_init	(	BOOL	unicode,
		BOOL	modif
	)

Definition at line 30 of file environ.c.

{
    if (!unicode && !MSVCRT___initenv)
    {
        char *environ_strings = GetEnvironmentStringsA();
        int count = 1, len = 1, i = 0; /* keep space for the trailing NULLS */
        char *ptr;
 
        for (ptr = environ_strings; *ptr; ptr += strlen(ptr) + 1)
        {
            /* Don't count environment variables starting with '=' which are command shell specific */
            if (*ptr != '=') count++;
            len += strlen(ptr) + 1;
        }
        MSVCRT___initenv = malloc(count * sizeof(*MSVCRT___initenv) + len);
        if (!MSVCRT___initenv)
        {
            FreeEnvironmentStringsA(environ_strings);
            return -1;
        }
 
        memcpy(&MSVCRT___initenv[count], environ_strings, len);
        for (ptr = (char *)&MSVCRT___initenv[count]; *ptr; ptr += strlen(ptr) + 1)
        {
            /* Skip special environment strings set by the command shell */
            if (*ptr != '=') MSVCRT___initenv[i++] = ptr;
        }
        MSVCRT___initenv[i] = NULL;
        FreeEnvironmentStringsA(environ_strings);
 
        MSVCRT__environ = MSVCRT___initenv;
    }
 
    if (!unicode && modif && MSVCRT__environ == MSVCRT___initenv)
    {
        int i = 0;
 
        while(MSVCRT___initenv[i]) i++;
        MSVCRT__environ = malloc((i + 1) * sizeof(char *));
        if (!MSVCRT__environ) return -1;
        for (i = 0; MSVCRT___initenv[i]; i++)
            MSVCRT__environ[i] = strdup(MSVCRT___initenv[i]);
        MSVCRT__environ[i] = NULL;
    }
 
    if (unicode && !MSVCRT___winitenv)
    {
        wchar_t *wenviron_strings = GetEnvironmentStringsW();
        int count = 1, len = 1, i = 0; /* keep space for the trailing NULLS */
        wchar_t *wptr;
 
        for (wptr = wenviron_strings; *wptr; wptr += wcslen(wptr) + 1)
        {
            /* Don't count environment variables starting with '=' which are command shell specific */
            if (*wptr != '=') count++;
            len += wcslen(wptr) + 1;
        }
        MSVCRT___winitenv = malloc(count * sizeof(*MSVCRT___winitenv) + len * sizeof(wchar_t));
        if (!MSVCRT___winitenv)
        {
            FreeEnvironmentStringsW(wenviron_strings);
            return -1;
        }
 
        memcpy(&MSVCRT___winitenv[count], wenviron_strings, len * sizeof(wchar_t));
        for (wptr = (wchar_t *)&MSVCRT___winitenv[count]; *wptr; wptr += wcslen(wptr) + 1)
        {
            /* Skip special environment strings set by the command shell */
            if (*wptr != '=') MSVCRT___winitenv[i++] = wptr;
        }
        MSVCRT___winitenv[i] = NULL;
        FreeEnvironmentStringsW(wenviron_strings);
 
        MSVCRT__wenviron = MSVCRT___winitenv;
    }
 
    if (unicode && modif && MSVCRT__wenviron == MSVCRT___winitenv)
    {
        int i = 0;
 
        while(MSVCRT___winitenv[i]) i++;
        MSVCRT__wenviron = malloc((i + 1) * sizeof(wchar_t *));
        if (!MSVCRT__wenviron) return -1;
        for (i = 0; MSVCRT___winitenv[i]; i++)
            MSVCRT__wenviron[i] = wcsdup(MSVCRT___winitenv[i]);
        MSVCRT__wenviron[i] = NULL;
    }
 
    return 0;
}

Referenced by __wgetmainargs(), env_set(), msvcrt_init_args(), wgetenv_helper(), and wputenv_helper().

env_set()

static int env_set ( char **  env, wchar_t **  wenv  )

static

Definition at line 147 of file environ.c.

{
    wchar_t *weq = wcschr(*wenv, '=');
    char *eq = strchr(*env, '=');
    int idx;
 
    *weq = 0;
    if (!SetEnvironmentVariableW(*wenv, weq[1] ? weq + 1 : NULL) &&
            GetLastError() != ERROR_ENVVAR_NOT_FOUND)
        return -1;
 
    if (env_init(FALSE, TRUE)) return -1;
    *eq = 0;
    idx = env_get_index(*env);
    *eq = '=';
    if (!eq[1])
    {
        free(MSVCRT__environ[idx]);
        for(; MSVCRT__environ[idx]; idx++)
            MSVCRT__environ[idx] = MSVCRT__environ[idx + 1];
    }
    else if (MSVCRT__environ[idx])
    {
        free(MSVCRT__environ[idx]);
        MSVCRT__environ[idx] = *env;
        *env = NULL;
    }
    else
    {
        char **new_env = realloc(MSVCRT__environ, (idx + 2) * sizeof(*MSVCRT__environ));
        if (!new_env) return -1;
        MSVCRT__environ = new_env;
        MSVCRT__environ[idx] = *env;
        MSVCRT__environ[idx + 1] = NULL;
        *env = NULL;
    }
 
    if (!MSVCRT__wenviron) return 0;
    if (MSVCRT__wenviron == MSVCRT___winitenv)
        if (env_init(TRUE, TRUE)) return -1;
    idx = wenv_get_index(*wenv);
    *weq = '=';
    if (!weq[1])
    {
        free(MSVCRT__wenviron[idx]);
        for(; MSVCRT__wenviron[idx]; idx++)
            MSVCRT__wenviron[idx] = MSVCRT__wenviron[idx + 1];
    }
    else if (MSVCRT__wenviron[idx])
    {
        free(MSVCRT__wenviron[idx]);
        MSVCRT__wenviron[idx] = *wenv;
        *wenv = NULL;
    }
    else
    {
        wchar_t **new_env = realloc(MSVCRT__wenviron, (idx + 2) * sizeof(*MSVCRT__wenviron));
        if (!new_env) return -1;
        MSVCRT__wenviron = new_env;
        MSVCRT__wenviron[idx] = *wenv;
        MSVCRT__wenviron[idx + 1] = NULL;
        *wenv = NULL;
    }
    return 0;
}

Referenced by putenv_helper(), and wputenv_helper().

getenv()

char *CDECL getenv

(

const char *

name

)

Definition at line 227 of file environ.c.

{
    char *ret;
 
    if (!MSVCRT_CHECK_PMT(name != NULL)) return NULL;
 
    _lock(_ENV_LOCK);
    ret = getenv_helper(name);
    _unlock(_ENV_LOCK);
    return ret;
}

Referenced by _getopt_initialize(), _Locale_aux_default(), _searchenv_s(), _tempnam(), _tgetenv(), _tzset(), compat_getenv(), get_locale(), get_wine_loader_name(), GetHomeDir(), getline(), GetPwByName(), GetScreenColumns(), GetUsrName(), gl_destroy_context(), gl_error(), gl_init(), gl_set_home_dir(), HelpCmd(), TConfig::inifile_init(), init_debug(), initialize_context(), InitOurDirectory(), InitPrefs(), InitTermcap(), InitUserInfo(), instrum_getenv(), is_wine_loader(), jinit_memory_mgr(), TConfig::keyfile_init(), load_licence(), main(), make_temp_dir(), matchSpecialFolderPathToEnv(), ODBC_LoadDriverManager(), OpenTrace(), optionInit(), parse_arguments(), printercache_load_blob(), printercache_rename_blob(), printercache_save_blob(), printercache_unlink_blob(), QMyDialog::QMyDialog(), rd_open_file(), rd_pstcache_mkdir(), read_rcfile(), TConfig::redir_init(), ruserpass(), save_licence(), QMyDialog::SaveClicked(), searchfileinpath(), select_file_name(), setnetpath(), shell(), START_TEST(), system(), telCommandLine(), test__tzset(), test_case_insensitive(), test_environment_manipulation(), test_localtime(), test_mktime(), test_searchenv(), test_utf8(), TIFFFetchStripThing(), wave_out_open(), WinHttpGetDefaultProxyConfiguration(), xkeymap_open(), and xmlInitMemory().

getenv_helper()

static char * getenv_helper ( const char *  name )

static

Definition at line 213 of file environ.c.

{
    int idx;
 
    if (!name) return NULL;
 
    idx = env_get_index(name);
    if (!MSVCRT__environ[idx]) return NULL;
    return strchr(MSVCRT__environ[idx], '=') + 1;
}

Referenced by getenv(), and getenv_s().

getenv_s()

int CDECL getenv_s	(	size_t *	ret_len,
		char *	buffer,
		size_t	len,
		const char *	varname
	)

Definition at line 507 of file environ.c.

{
    char *e;
 
    if (!MSVCRT_CHECK_PMT(ret_len != NULL)) return EINVAL;
    *ret_len = 0;
    if (!MSVCRT_CHECK_PMT((buffer && len > 0) || (!buffer && !len))) return EINVAL;
    if (buffer) buffer[0] = 0;
 
    _lock(_ENV_LOCK);
    e = getenv_helper(varname);
    if (e)
    {
        *ret_len = strlen(e) + 1;
        if (len >= *ret_len) strcpy(buffer, e);
    }
    _unlock(_ENV_LOCK);
 
    if (!e || !len) return 0;
    if (len < *ret_len) return ERANGE;
    return 0;
}

msvcrt_astrdupw()

static char * msvcrt_astrdupw ( const wchar_t *  wstr )

static

Definition at line 304 of file environ.c.

{
    const unsigned int len = WideCharToMultiByte(CP_ACP, 0, wstr, -1, NULL, 0, NULL, NULL);
    char *str = malloc(len * sizeof(char));
 
    if (!str)
        return NULL;
    WideCharToMultiByte(CP_ACP, 0, wstr, -1, str, len, NULL, NULL);
    return str;
}

Referenced by wputenv_helper().

putenv_helper()

static int putenv_helper ( const char *  name, const char *  val, const char *  eq  )

static

Definition at line 266 of file environ.c.

{
    wchar_t *wenv;
    char *env;
    int r;
 
    if (eq)
    {
        env = strdup(name);
        if (!env) return -1;
    }
    else
    {
        int name_len = strlen(name);
 
        r = strlen(val);
        env = malloc(name_len + r + 2);
        if (!env) return -1;
        memcpy(env, name, name_len);
        env[name_len] = '=';
        strcpy(env + name_len + 1, val);
    }
 
    wenv = msvcrt_wstrdupa(env);
    if (!wenv)
    {
        free(env);
        return -1;
    }
 
    _lock(_ENV_LOCK);
    r = env_set(&env, &wenv);
    _unlock(_ENV_LOCK);
    free(env);
    free(wenv);
    return r;
}

Referenced by _putenv(), and _putenv_s().

wenv_get_index()

static int wenv_get_index ( const wchar_t *  name )

static

Definition at line 134 of file environ.c.

{
    int i, len;
 
    len = wcslen(name);
    for (i = 0; MSVCRT__wenviron[i]; i++)
    {
        if (!wcsnicmp(name, MSVCRT__wenviron[i], len) && MSVCRT__wenviron[i][len] == '=')
            return i;
    }
    return i;
}

Referenced by env_set(), and wgetenv_helper().

wgetenv_helper()

static wchar_t * wgetenv_helper ( const wchar_t *  name )

static

Definition at line 239 of file environ.c.

{
    int idx;
 
    if (!name) return NULL;
    if (env_init(TRUE, FALSE)) return NULL;
 
    idx = wenv_get_index(name);
    if (!MSVCRT__wenviron[idx]) return NULL;
    return wcschr(MSVCRT__wenviron[idx], '=') + 1;
}

Referenced by _wgetenv(), and _wgetenv_s().

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

msvcrt

)

wputenv_helper()

static int wputenv_helper ( const wchar_t *  name, const wchar_t *  val, const wchar_t *  eq  )

static

Definition at line 316 of file environ.c.

{
    wchar_t *wenv;
    char *env;
    int r;
 
    _lock(_ENV_LOCK);
    r = env_init(TRUE, TRUE);
    _unlock(_ENV_LOCK);
    if (r) return -1;
 
    if (eq)
    {
        wenv = wcsdup(name);
        if (!wenv) return -1;
    }
    else
    {
        int name_len = wcslen(name);
 
        r = wcslen(val);
        wenv = malloc((name_len + r + 2) * sizeof(wchar_t));
        if (!wenv) return -1;
        memcpy(wenv, name, name_len * sizeof(wchar_t));
        wenv[name_len] = '=';
        wcscpy(wenv + name_len + 1, val);
    }
 
    env = msvcrt_astrdupw(wenv);
    if (!env)
    {
        free(wenv);
        return -1;
    }
 
    _lock(_ENV_LOCK);
    r = env_set(&env, &wenv);
    _unlock(_ENV_LOCK);
    free(env);
    free(wenv);
    return r;
}

Referenced by _wputenv(), and _wputenv_s().