mirror of
https://gitlab.gnome.org/GNOME/glib.git
synced 2025-03-28 18:40:03 +01:00
Reshuffle genviron.c
Split win32 functions off into their own section, instead of having large and unwieldy ifdef sections inside each function. Also move the compat versions of env functions over from gutils.c
This commit is contained in:
Matthias Clasen
parent
b0ab7aba6b
commit
fbe24cab21
891
glib/genviron.c
891
glib/genviron.c
@ -41,419 +41,7 @@
|
||||
#include "gmessages.h"
|
||||
#include "gstrfuncs.h"
|
||||
|
||||
|
||||
/**
|
||||
* g_getenv:
|
||||
* @variable: the environment variable to get, in the GLib file name
|
||||
* encoding
|
||||
*
|
||||
* Returns the value of an environment variable.
|
||||
*
|
||||
* The name and value are in the GLib file name encoding. On UNIX,
|
||||
* this means the actual bytes which might or might not be in some
|
||||
* consistent character set and encoding. On Windows, it is in UTF-8.
|
||||
* On Windows, in case the environment variable's value contains
|
||||
* references to other environment variables, they are expanded.
|
||||
*
|
||||
* Return value: the value of the environment variable, or %NULL if
|
||||
* the environment variable is not found. The returned string
|
||||
* may be overwritten by the next call to g_getenv(), g_setenv()
|
||||
* or g_unsetenv().
|
||||
*/
|
||||
const gchar *
|
||||
g_getenv (const gchar *variable)
|
||||
{
|
||||
#ifndef G_OS_WIN32
|
||||
|
||||
g_return_val_if_fail (variable != NULL, NULL);
|
||||
|
||||
return getenv (variable);
|
||||
|
||||
#else /* G_OS_WIN32 */
|
||||
|
||||
GQuark quark;
|
||||
gchar *value;
|
||||
wchar_t dummy[2], *wname, *wvalue;
|
||||
int len;
|
||||
|
||||
g_return_val_if_fail (variable != NULL, NULL);
|
||||
g_return_val_if_fail (g_utf8_validate (variable, -1, NULL), NULL);
|
||||
|
||||
/* On Windows NT, it is relatively typical that environment
|
||||
* variables contain references to other environment variables. If
|
||||
* so, use ExpandEnvironmentStrings(). (In an ideal world, such
|
||||
* environment variables would be stored in the Registry as
|
||||
* REG_EXPAND_SZ type values, and would then get automatically
|
||||
* expanded before a program sees them. But there is broken software
|
||||
* that stores environment variables as REG_SZ values even if they
|
||||
* contain references to other environment variables.)
|
||||
*/
|
||||
|
||||
wname = g_utf8_to_utf16 (variable, -1, NULL, NULL, NULL);
|
||||
|
||||
len = GetEnvironmentVariableW (wname, dummy, 2);
|
||||
|
||||
if (len == 0)
|
||||
{
|
||||
g_free (wname);
|
||||
return NULL;
|
||||
}
|
||||
else if (len == 1)
|
||||
len = 2;
|
||||
|
||||
wvalue = g_new (wchar_t, len);
|
||||
|
||||
if (GetEnvironmentVariableW (wname, wvalue, len) != len - 1)
|
||||
{
|
||||
g_free (wname);
|
||||
g_free (wvalue);
|
||||
return NULL;
|
||||
}
|
||||
|
||||
if (wcschr (wvalue, L'%') != NULL)
|
||||
{
|
||||
wchar_t *tem = wvalue;
|
||||
|
||||
len = ExpandEnvironmentStringsW (wvalue, dummy, 2);
|
||||
|
||||
if (len > 0)
|
||||
{
|
||||
wvalue = g_new (wchar_t, len);
|
||||
|
||||
if (ExpandEnvironmentStringsW (tem, wvalue, len) != len)
|
||||
{
|
||||
g_free (wvalue);
|
||||
wvalue = tem;
|
||||
}
|
||||
else
|
||||
g_free (tem);
|
||||
}
|
||||
}
|
||||
|
||||
value = g_utf16_to_utf8 (wvalue, -1, NULL, NULL, NULL);
|
||||
|
||||
g_free (wname);
|
||||
g_free (wvalue);
|
||||
|
||||
quark = g_quark_from_string (value);
|
||||
g_free (value);
|
||||
|
||||
return g_quark_to_string (quark);
|
||||
|
||||
#endif /* G_OS_WIN32 */
|
||||
}
|
||||
|
||||
/**
|
||||
* g_setenv:
|
||||
* @variable: the environment variable to set, must not contain '='.
|
||||
* @value: the value for to set the variable to.
|
||||
* @overwrite: whether to change the variable if it already exists.
|
||||
*
|
||||
* Sets an environment variable. Both the variable's name and value
|
||||
* should be in the GLib file name encoding. On UNIX, this means that
|
||||
* they can be arbitrary byte strings. On Windows, they should be in
|
||||
* UTF-8.
|
||||
*
|
||||
* Note that on some systems, when variables are overwritten, the memory
|
||||
* used for the previous variables and its value isn't reclaimed.
|
||||
*
|
||||
* <warning><para>
|
||||
* Environment variable handling in UNIX is not thread-safe, and your
|
||||
* program may crash if one thread calls g_setenv() while another
|
||||
* thread is calling getenv(). (And note that many functions, such as
|
||||
* gettext(), call getenv() internally.) This function is only safe to
|
||||
* use at the very start of your program, before creating any other
|
||||
* threads (or creating objects that create worker threads of their
|
||||
* own).
|
||||
* </para><para>
|
||||
* If you need to set up the environment for a child process, you can
|
||||
* use g_get_environ() to get an environment array, modify that with
|
||||
* g_environ_setenv() and g_environ_unsetenv(), and then pass that
|
||||
* array directly to execvpe(), g_spawn_async(), or the like.
|
||||
* </para></warning>
|
||||
*
|
||||
* Returns: %FALSE if the environment variable couldn't be set.
|
||||
*
|
||||
* Since: 2.4
|
||||
*/
|
||||
gboolean
|
||||
g_setenv (const gchar *variable,
|
||||
const gchar *value,
|
||||
gboolean overwrite)
|
||||
{
|
||||
#ifndef G_OS_WIN32
|
||||
|
||||
gint result;
|
||||
#ifndef HAVE_SETENV
|
||||
gchar *string;
|
||||
#endif
|
||||
|
||||
g_return_val_if_fail (variable != NULL, FALSE);
|
||||
g_return_val_if_fail (strchr (variable, '=') == NULL, FALSE);
|
||||
|
||||
#ifdef HAVE_SETENV
|
||||
result = setenv (variable, value, overwrite);
|
||||
#else
|
||||
if (!overwrite && getenv (variable) != NULL)
|
||||
return TRUE;
|
||||
|
||||
/* This results in a leak when you overwrite existing
|
||||
* settings. It would be fairly easy to fix this by keeping
|
||||
* our own parallel array or hash table.
|
||||
*/
|
||||
string = g_strconcat (variable, "=", value, NULL);
|
||||
result = putenv (string);
|
||||
#endif
|
||||
return result == 0;
|
||||
|
||||
#else /* G_OS_WIN32 */
|
||||
|
||||
gboolean retval;
|
||||
wchar_t *wname, *wvalue, *wassignment;
|
||||
gchar *tem;
|
||||
|
||||
g_return_val_if_fail (variable != NULL, FALSE);
|
||||
g_return_val_if_fail (strchr (variable, '=') == NULL, FALSE);
|
||||
g_return_val_if_fail (g_utf8_validate (variable, -1, NULL), FALSE);
|
||||
g_return_val_if_fail (g_utf8_validate (value, -1, NULL), FALSE);
|
||||
|
||||
if (!overwrite && g_getenv (variable) != NULL)
|
||||
return TRUE;
|
||||
|
||||
/* We want to (if possible) set both the environment variable copy
|
||||
* kept by the C runtime and the one kept by the system.
|
||||
*
|
||||
* We can't use only the C runtime's putenv or _wputenv() as that
|
||||
* won't work for arbitrary Unicode strings in a "non-Unicode" app
|
||||
* (with main() and not wmain()). In a "main()" app the C runtime
|
||||
* initializes the C runtime's environment table by converting the
|
||||
* real (wide char) environment variables to system codepage, thus
|
||||
* breaking those that aren't representable in the system codepage.
|
||||
*
|
||||
* As the C runtime's putenv() will also set the system copy, we do
|
||||
* the putenv() first, then call SetEnvironmentValueW ourselves.
|
||||
*/
|
||||
|
||||
wname = g_utf8_to_utf16 (variable, -1, NULL, NULL, NULL);
|
||||
wvalue = g_utf8_to_utf16 (value, -1, NULL, NULL, NULL);
|
||||
tem = g_strconcat (variable, "=", value, NULL);
|
||||
wassignment = g_utf8_to_utf16 (tem, -1, NULL, NULL, NULL);
|
||||
|
||||
g_free (tem);
|
||||
_wputenv (wassignment);
|
||||
g_free (wassignment);
|
||||
|
||||
retval = (SetEnvironmentVariableW (wname, wvalue) != 0);
|
||||
|
||||
g_free (wname);
|
||||
g_free (wvalue);
|
||||
|
||||
return retval;
|
||||
|
||||
#endif /* G_OS_WIN32 */
|
||||
}
|
||||
|
||||
#ifdef HAVE__NSGETENVIRON
|
||||
#define environ (*_NSGetEnviron())
|
||||
#elif !defined(G_OS_WIN32)
|
||||
|
||||
/* According to the Single Unix Specification, environ is not
|
||||
* in any system header, although unistd.h often declares it.
|
||||
*/
|
||||
extern char **environ;
|
||||
#endif
|
||||
|
||||
/**
|
||||
* g_unsetenv:
|
||||
* @variable: the environment variable to remove, must not contain '='
|
||||
*
|
||||
* Removes an environment variable from the environment.
|
||||
*
|
||||
* Note that on some systems, when variables are overwritten, the
|
||||
* memory used for the previous variables and its value isn't reclaimed.
|
||||
*
|
||||
* <warning><para>
|
||||
* Environment variable handling in UNIX is not thread-safe, and your
|
||||
* program may crash if one thread calls g_unsetenv() while another
|
||||
* thread is calling getenv(). (And note that many functions, such as
|
||||
* gettext(), call getenv() internally.) This function is only safe
|
||||
* to use at the very start of your program, before creating any other
|
||||
* threads (or creating objects that create worker threads of their
|
||||
* own).
|
||||
* </para><para>
|
||||
* If you need to set up the environment for a child process, you can
|
||||
* use g_get_environ() to get an environment array, modify that with
|
||||
* g_environ_setenv() and g_environ_unsetenv(), and then pass that
|
||||
* array directly to execvpe(), g_spawn_async(), or the like.
|
||||
* </para></warning>
|
||||
*
|
||||
* Since: 2.4
|
||||
*/
|
||||
void
|
||||
g_unsetenv (const gchar *variable)
|
||||
{
|
||||
#ifndef G_OS_WIN32
|
||||
|
||||
#ifdef HAVE_UNSETENV
|
||||
g_return_if_fail (variable != NULL);
|
||||
g_return_if_fail (strchr (variable, '=') == NULL);
|
||||
|
||||
unsetenv (variable);
|
||||
#else /* !HAVE_UNSETENV */
|
||||
g_return_if_fail (variable != NULL);
|
||||
g_return_if_fail (strchr (variable, '=') == NULL);
|
||||
|
||||
/* Mess directly with the environ array.
|
||||
* This seems to be the only portable way to do this.
|
||||
*/
|
||||
g_environ_unsetenv (environ, variable);
|
||||
#endif /* !HAVE_UNSETENV */
|
||||
|
||||
#else /* G_OS_WIN32 */
|
||||
|
||||
wchar_t *wname, *wassignment;
|
||||
gchar *tem;
|
||||
|
||||
g_return_if_fail (variable != NULL);
|
||||
g_return_if_fail (strchr (variable, '=') == NULL);
|
||||
g_return_if_fail (g_utf8_validate (variable, -1, NULL));
|
||||
|
||||
wname = g_utf8_to_utf16 (variable, -1, NULL, NULL, NULL);
|
||||
tem = g_strconcat (variable, "=", NULL);
|
||||
wassignment = g_utf8_to_utf16 (tem, -1, NULL, NULL, NULL);
|
||||
|
||||
g_free (tem);
|
||||
_wputenv (wassignment);
|
||||
g_free (wassignment);
|
||||
|
||||
SetEnvironmentVariableW (wname, NULL);
|
||||
|
||||
g_free (wname);
|
||||
|
||||
#endif /* G_OS_WIN32 */
|
||||
}
|
||||
|
||||
/**
|
||||
* g_listenv:
|
||||
*
|
||||
* Gets the names of all variables set in the environment.
|
||||
*
|
||||
* Programs that want to be portable to Windows should typically use
|
||||
* this function and g_getenv() instead of using the environ array
|
||||
* from the C library directly. On Windows, the strings in the environ
|
||||
* array are in system codepage encoding, while in most of the typical
|
||||
* use cases for environment variables in GLib-using programs you want
|
||||
* the UTF-8 encoding that this function and g_getenv() provide.
|
||||
*
|
||||
* Returns: (array zero-terminated=1) (transfer full): a %NULL-terminated
|
||||
* list of strings which must be freed with g_strfreev().
|
||||
*
|
||||
* Since: 2.8
|
||||
*/
|
||||
gchar **
|
||||
g_listenv (void)
|
||||
{
|
||||
#ifndef G_OS_WIN32
|
||||
gchar **result, *eq;
|
||||
gint len, i, j;
|
||||
|
||||
len = g_strv_length (environ);
|
||||
result = g_new0 (gchar *, len + 1);
|
||||
|
||||
j = 0;
|
||||
for (i = 0; i < len; i++)
|
||||
{
|
||||
eq = strchr (environ[i], '=');
|
||||
if (eq)
|
||||
result[j++] = g_strndup (environ[i], eq - environ[i]);
|
||||
}
|
||||
|
||||
result[j] = NULL;
|
||||
|
||||
return result;
|
||||
#else
|
||||
gchar **result, *eq;
|
||||
gint len = 0, j;
|
||||
wchar_t *p, *q;
|
||||
|
||||
p = (wchar_t *) GetEnvironmentStringsW ();
|
||||
if (p != NULL)
|
||||
{
|
||||
q = p;
|
||||
while (*q)
|
||||
{
|
||||
q += wcslen (q) + 1;
|
||||
len++;
|
||||
}
|
||||
}
|
||||
result = g_new0 (gchar *, len + 1);
|
||||
|
||||
j = 0;
|
||||
q = p;
|
||||
while (*q)
|
||||
{
|
||||
result[j] = g_utf16_to_utf8 (q, -1, NULL, NULL, NULL);
|
||||
if (result[j] != NULL)
|
||||
{
|
||||
eq = strchr (result[j], '=');
|
||||
if (eq && eq > result[j])
|
||||
{
|
||||
*eq = '\0';
|
||||
j++;
|
||||
}
|
||||
else
|
||||
g_free (result[j]);
|
||||
}
|
||||
q += wcslen (q) + 1;
|
||||
}
|
||||
result[j] = NULL;
|
||||
FreeEnvironmentStringsW (p);
|
||||
|
||||
return result;
|
||||
#endif
|
||||
}
|
||||
|
||||
/**
|
||||
* g_get_environ:
|
||||
*
|
||||
* Gets the list of environment variables for the current process.
|
||||
*
|
||||
* The list is %NULL terminated and each item in the list is of the
|
||||
* form 'NAME=VALUE'.
|
||||
*
|
||||
* This is equivalent to direct access to the 'environ' global variable,
|
||||
* except portable.
|
||||
*
|
||||
* The return value is freshly allocated and it should be freed with
|
||||
* g_strfreev() when it is no longer needed.
|
||||
*
|
||||
* Returns: (array zero-terminated=1) (transfer full): the list of
|
||||
* environment variables
|
||||
*
|
||||
* Since: 2.28
|
||||
*/
|
||||
gchar **
|
||||
g_get_environ (void)
|
||||
{
|
||||
#ifndef G_OS_WIN32
|
||||
return g_strdupv (environ);
|
||||
#else
|
||||
gunichar2 *strings;
|
||||
gchar **result;
|
||||
gint i, n;
|
||||
|
||||
strings = GetEnvironmentStringsW ();
|
||||
for (n = 0; strings[n]; n += wcslen (strings + n) + 1);
|
||||
result = g_new (char *, n + 1);
|
||||
for (i = 0; strings[i]; i += wcslen (strings + i) + 1)
|
||||
result[i] = g_utf16_to_utf8 (strings + i, -1, NULL, NULL, NULL);
|
||||
FreeEnvironmentStringsW (strings);
|
||||
result[i] = NULL;
|
||||
|
||||
return result;
|
||||
#endif
|
||||
}
|
||||
|
||||
/* Environ array functions {{{1 */
|
||||
static gint
|
||||
g_environ_find (gchar **envp,
|
||||
const gchar *variable)
|
||||
@ -610,3 +198,480 @@ g_environ_unsetenv (gchar **envp,
|
||||
|
||||
return envp;
|
||||
}
|
||||
|
||||
/* UNIX implemention {{{1 */
|
||||
#ifndef G_OS_WIN32
|
||||
|
||||
/**
|
||||
* g_getenv:
|
||||
* @variable: the environment variable to get, in the GLib file name
|
||||
* encoding
|
||||
*
|
||||
* Returns the value of an environment variable.
|
||||
*
|
||||
* The name and value are in the GLib file name encoding. On UNIX,
|
||||
* this means the actual bytes which might or might not be in some
|
||||
* consistent character set and encoding. On Windows, it is in UTF-8.
|
||||
* On Windows, in case the environment variable's value contains
|
||||
* references to other environment variables, they are expanded.
|
||||
*
|
||||
* Return value: the value of the environment variable, or %NULL if
|
||||
* the environment variable is not found. The returned string
|
||||
* may be overwritten by the next call to g_getenv(), g_setenv()
|
||||
* or g_unsetenv().
|
||||
*/
|
||||
const gchar *
|
||||
g_getenv (const gchar *variable)
|
||||
{
|
||||
g_return_val_if_fail (variable != NULL, NULL);
|
||||
|
||||
return getenv (variable);
|
||||
}
|
||||
|
||||
/**
|
||||
* g_setenv:
|
||||
* @variable: the environment variable to set, must not contain '='.
|
||||
* @value: the value for to set the variable to.
|
||||
* @overwrite: whether to change the variable if it already exists.
|
||||
*
|
||||
* Sets an environment variable. Both the variable's name and value
|
||||
* should be in the GLib file name encoding. On UNIX, this means that
|
||||
* they can be arbitrary byte strings. On Windows, they should be in
|
||||
* UTF-8.
|
||||
*
|
||||
* Note that on some systems, when variables are overwritten, the memory
|
||||
* used for the previous variables and its value isn't reclaimed.
|
||||
*
|
||||
* <warning><para>
|
||||
* Environment variable handling in UNIX is not thread-safe, and your
|
||||
* program may crash if one thread calls g_setenv() while another
|
||||
* thread is calling getenv(). (And note that many functions, such as
|
||||
* gettext(), call getenv() internally.) This function is only safe to
|
||||
* use at the very start of your program, before creating any other
|
||||
* threads (or creating objects that create worker threads of their
|
||||
* own).
|
||||
* </para><para>
|
||||
* If you need to set up the environment for a child process, you can
|
||||
* use g_get_environ() to get an environment array, modify that with
|
||||
* g_environ_setenv() and g_environ_unsetenv(), and then pass that
|
||||
* array directly to execvpe(), g_spawn_async(), or the like.
|
||||
* </para></warning>
|
||||
*
|
||||
* Returns: %FALSE if the environment variable couldn't be set.
|
||||
*
|
||||
* Since: 2.4
|
||||
*/
|
||||
gboolean
|
||||
g_setenv (const gchar *variable,
|
||||
const gchar *value,
|
||||
gboolean overwrite)
|
||||
{
|
||||
gint result;
|
||||
#ifndef HAVE_SETENV
|
||||
gchar *string;
|
||||
#endif
|
||||
|
||||
g_return_val_if_fail (variable != NULL, FALSE);
|
||||
g_return_val_if_fail (strchr (variable, '=') == NULL, FALSE);
|
||||
|
||||
#ifdef HAVE_SETENV
|
||||
result = setenv (variable, value, overwrite);
|
||||
#else
|
||||
if (!overwrite && getenv (variable) != NULL)
|
||||
return TRUE;
|
||||
|
||||
/* This results in a leak when you overwrite existing
|
||||
* settings. It would be fairly easy to fix this by keeping
|
||||
* our own parallel array or hash table.
|
||||
*/
|
||||
string = g_strconcat (variable, "=", value, NULL);
|
||||
result = putenv (string);
|
||||
#endif
|
||||
return result == 0;
|
||||
}
|
||||
|
||||
#ifdef HAVE__NSGETENVIRON
|
||||
#define environ (*_NSGetEnviron())
|
||||
#else
|
||||
/* According to the Single Unix Specification, environ is not
|
||||
* in any system header, although unistd.h often declares it.
|
||||
*/
|
||||
extern char **environ;
|
||||
#endif
|
||||
|
||||
/**
|
||||
* g_unsetenv:
|
||||
* @variable: the environment variable to remove, must not contain '='
|
||||
*
|
||||
* Removes an environment variable from the environment.
|
||||
*
|
||||
* Note that on some systems, when variables are overwritten, the
|
||||
* memory used for the previous variables and its value isn't reclaimed.
|
||||
*
|
||||
* <warning><para>
|
||||
* Environment variable handling in UNIX is not thread-safe, and your
|
||||
* program may crash if one thread calls g_unsetenv() while another
|
||||
* thread is calling getenv(). (And note that many functions, such as
|
||||
* gettext(), call getenv() internally.) This function is only safe
|
||||
* to use at the very start of your program, before creating any other
|
||||
* threads (or creating objects that create worker threads of their
|
||||
* own).
|
||||
* </para><para>
|
||||
* If you need to set up the environment for a child process, you can
|
||||
* use g_get_environ() to get an environment array, modify that with
|
||||
* g_environ_setenv() and g_environ_unsetenv(), and then pass that
|
||||
* array directly to execvpe(), g_spawn_async(), or the like.
|
||||
* </para></warning>
|
||||
*
|
||||
* Since: 2.4
|
||||
*/
|
||||
void
|
||||
g_unsetenv (const gchar *variable)
|
||||
{
|
||||
#ifdef HAVE_UNSETENV
|
||||
g_return_if_fail (variable != NULL);
|
||||
g_return_if_fail (strchr (variable, '=') == NULL);
|
||||
|
||||
unsetenv (variable);
|
||||
#else /* !HAVE_UNSETENV */
|
||||
g_return_if_fail (variable != NULL);
|
||||
g_return_if_fail (strchr (variable, '=') == NULL);
|
||||
|
||||
/* Mess directly with the environ array.
|
||||
* This seems to be the only portable way to do this.
|
||||
*/
|
||||
g_environ_unsetenv (environ, variable);
|
||||
#endif /* !HAVE_UNSETENV */
|
||||
}
|
||||
|
||||
/**
|
||||
* g_listenv:
|
||||
*
|
||||
* Gets the names of all variables set in the environment.
|
||||
*
|
||||
* Programs that want to be portable to Windows should typically use
|
||||
* this function and g_getenv() instead of using the environ array
|
||||
* from the C library directly. On Windows, the strings in the environ
|
||||
* array are in system codepage encoding, while in most of the typical
|
||||
* use cases for environment variables in GLib-using programs you want
|
||||
* the UTF-8 encoding that this function and g_getenv() provide.
|
||||
*
|
||||
* Returns: (array zero-terminated=1) (transfer full): a %NULL-terminated
|
||||
* list of strings which must be freed with g_strfreev().
|
||||
*
|
||||
* Since: 2.8
|
||||
*/
|
||||
gchar **
|
||||
g_listenv (void)
|
||||
{
|
||||
gchar **result, *eq;
|
||||
gint len, i, j;
|
||||
|
||||
len = g_strv_length (environ);
|
||||
result = g_new0 (gchar *, len + 1);
|
||||
|
||||
j = 0;
|
||||
for (i = 0; i < len; i++)
|
||||
{
|
||||
eq = strchr (environ[i], '=');
|
||||
if (eq)
|
||||
result[j++] = g_strndup (environ[i], eq - environ[i]);
|
||||
}
|
||||
|
||||
result[j] = NULL;
|
||||
|
||||
return result;
|
||||
}
|
||||
|
||||
/**
|
||||
* g_get_environ:
|
||||
*
|
||||
* Gets the list of environment variables for the current process.
|
||||
*
|
||||
* The list is %NULL terminated and each item in the list is of the
|
||||
* form 'NAME=VALUE'.
|
||||
*
|
||||
* This is equivalent to direct access to the 'environ' global variable,
|
||||
* except portable.
|
||||
*
|
||||
* The return value is freshly allocated and it should be freed with
|
||||
* g_strfreev() when it is no longer needed.
|
||||
*
|
||||
* Returns: (array zero-terminated=1) (transfer full): the list of
|
||||
* environment variables
|
||||
*
|
||||
* Since: 2.28
|
||||
*/
|
||||
gchar **
|
||||
g_get_environ (void)
|
||||
{
|
||||
return g_strdupv (environ);
|
||||
}
|
||||
|
||||
/* Win32 implementation {{{1 */
|
||||
#else /* G_OS_WIN32 */
|
||||
|
||||
const gchar *
|
||||
g_getenv (const gchar *variable)
|
||||
{
|
||||
GQuark quark;
|
||||
gchar *value;
|
||||
wchar_t dummy[2], *wname, *wvalue;
|
||||
int len;
|
||||
|
||||
g_return_val_if_fail (variable != NULL, NULL);
|
||||
g_return_val_if_fail (g_utf8_validate (variable, -1, NULL), NULL);
|
||||
|
||||
/* On Windows NT, it is relatively typical that environment
|
||||
* variables contain references to other environment variables. If
|
||||
* so, use ExpandEnvironmentStrings(). (In an ideal world, such
|
||||
* environment variables would be stored in the Registry as
|
||||
* REG_EXPAND_SZ type values, and would then get automatically
|
||||
* expanded before a program sees them. But there is broken software
|
||||
* that stores environment variables as REG_SZ values even if they
|
||||
* contain references to other environment variables.)
|
||||
*/
|
||||
|
||||
wname = g_utf8_to_utf16 (variable, -1, NULL, NULL, NULL);
|
||||
|
||||
len = GetEnvironmentVariableW (wname, dummy, 2);
|
||||
|
||||
if (len == 0)
|
||||
{
|
||||
g_free (wname);
|
||||
return NULL;
|
||||
}
|
||||
else if (len == 1)
|
||||
len = 2;
|
||||
|
||||
wvalue = g_new (wchar_t, len);
|
||||
|
||||
if (GetEnvironmentVariableW (wname, wvalue, len) != len - 1)
|
||||
{
|
||||
g_free (wname);
|
||||
g_free (wvalue);
|
||||
return NULL;
|
||||
}
|
||||
|
||||
if (wcschr (wvalue, L'%') != NULL)
|
||||
{
|
||||
wchar_t *tem = wvalue;
|
||||
|
||||
len = ExpandEnvironmentStringsW (wvalue, dummy, 2);
|
||||
|
||||
if (len > 0)
|
||||
{
|
||||
wvalue = g_new (wchar_t, len);
|
||||
|
||||
if (ExpandEnvironmentStringsW (tem, wvalue, len) != len)
|
||||
{
|
||||
g_free (wvalue);
|
||||
wvalue = tem;
|
||||
}
|
||||
else
|
||||
g_free (tem);
|
||||
}
|
||||
}
|
||||
|
||||
value = g_utf16_to_utf8 (wvalue, -1, NULL, NULL, NULL);
|
||||
|
||||
g_free (wname);
|
||||
g_free (wvalue);
|
||||
|
||||
quark = g_quark_from_string (value);
|
||||
g_free (value);
|
||||
|
||||
return g_quark_to_string (quark);
|
||||
}
|
||||
|
||||
gboolean
|
||||
g_setenv (const gchar *variable,
|
||||
const gchar *value,
|
||||
gboolean overwrite)
|
||||
{
|
||||
gboolean retval;
|
||||
wchar_t *wname, *wvalue, *wassignment;
|
||||
gchar *tem;
|
||||
|
||||
g_return_val_if_fail (variable != NULL, FALSE);
|
||||
g_return_val_if_fail (strchr (variable, '=') == NULL, FALSE);
|
||||
g_return_val_if_fail (g_utf8_validate (variable, -1, NULL), FALSE);
|
||||
g_return_val_if_fail (g_utf8_validate (value, -1, NULL), FALSE);
|
||||
|
||||
if (!overwrite && g_getenv (variable) != NULL)
|
||||
return TRUE;
|
||||
|
||||
/* We want to (if possible) set both the environment variable copy
|
||||
* kept by the C runtime and the one kept by the system.
|
||||
*
|
||||
* We can't use only the C runtime's putenv or _wputenv() as that
|
||||
* won't work for arbitrary Unicode strings in a "non-Unicode" app
|
||||
* (with main() and not wmain()). In a "main()" app the C runtime
|
||||
* initializes the C runtime's environment table by converting the
|
||||
* real (wide char) environment variables to system codepage, thus
|
||||
* breaking those that aren't representable in the system codepage.
|
||||
*
|
||||
* As the C runtime's putenv() will also set the system copy, we do
|
||||
* the putenv() first, then call SetEnvironmentValueW ourselves.
|
||||
*/
|
||||
|
||||
wname = g_utf8_to_utf16 (variable, -1, NULL, NULL, NULL);
|
||||
wvalue = g_utf8_to_utf16 (value, -1, NULL, NULL, NULL);
|
||||
tem = g_strconcat (variable, "=", value, NULL);
|
||||
wassignment = g_utf8_to_utf16 (tem, -1, NULL, NULL, NULL);
|
||||
|
||||
g_free (tem);
|
||||
_wputenv (wassignment);
|
||||
g_free (wassignment);
|
||||
|
||||
retval = (SetEnvironmentVariableW (wname, wvalue) != 0);
|
||||
|
||||
g_free (wname);
|
||||
g_free (wvalue);
|
||||
|
||||
return retval;
|
||||
}
|
||||
|
||||
void
|
||||
g_unsetenv (const gchar *variable)
|
||||
{
|
||||
wchar_t *wname, *wassignment;
|
||||
gchar *tem;
|
||||
|
||||
g_return_if_fail (variable != NULL);
|
||||
g_return_if_fail (strchr (variable, '=') == NULL);
|
||||
g_return_if_fail (g_utf8_validate (variable, -1, NULL));
|
||||
|
||||
wname = g_utf8_to_utf16 (variable, -1, NULL, NULL, NULL);
|
||||
tem = g_strconcat (variable, "=", NULL);
|
||||
wassignment = g_utf8_to_utf16 (tem, -1, NULL, NULL, NULL);
|
||||
|
||||
g_free (tem);
|
||||
_wputenv (wassignment);
|
||||
g_free (wassignment);
|
||||
|
||||
SetEnvironmentVariableW (wname, NULL);
|
||||
|
||||
g_free (wname);
|
||||
}
|
||||
|
||||
gchar **
|
||||
g_listenv (void)
|
||||
{
|
||||
gchar **result, *eq;
|
||||
gint len = 0, j;
|
||||
wchar_t *p, *q;
|
||||
|
||||
p = (wchar_t *) GetEnvironmentStringsW ();
|
||||
if (p != NULL)
|
||||
{
|
||||
q = p;
|
||||
while (*q)
|
||||
{
|
||||
q += wcslen (q) + 1;
|
||||
len++;
|
||||
}
|
||||
}
|
||||
result = g_new0 (gchar *, len + 1);
|
||||
|
||||
j = 0;
|
||||
q = p;
|
||||
while (*q)
|
||||
{
|
||||
result[j] = g_utf16_to_utf8 (q, -1, NULL, NULL, NULL);
|
||||
if (result[j] != NULL)
|
||||
{
|
||||
eq = strchr (result[j], '=');
|
||||
if (eq && eq > result[j])
|
||||
{
|
||||
*eq = '\0';
|
||||
j++;
|
||||
}
|
||||
else
|
||||
g_free (result[j]);
|
||||
}
|
||||
q += wcslen (q) + 1;
|
||||
}
|
||||
result[j] = NULL;
|
||||
FreeEnvironmentStringsW (p);
|
||||
|
||||
return result;
|
||||
}
|
||||
|
||||
gchar **
|
||||
g_get_environ (void)
|
||||
{
|
||||
gunichar2 *strings;
|
||||
gchar **result;
|
||||
gint i, n;
|
||||
|
||||
strings = GetEnvironmentStringsW ();
|
||||
for (n = 0; strings[n]; n += wcslen (strings + n) + 1);
|
||||
result = g_new (char *, n + 1);
|
||||
for (i = 0; strings[i]; i += wcslen (strings + i) + 1)
|
||||
result[i] = g_utf16_to_utf8 (strings + i, -1, NULL, NULL, NULL);
|
||||
FreeEnvironmentStringsW (strings);
|
||||
result[i] = NULL;
|
||||
|
||||
return result;
|
||||
}
|
||||
|
||||
#ifndef _WIN64
|
||||
|
||||
/* Binary compatibility versions. Not for newly compiled code. */
|
||||
|
||||
#undef g_getenv
|
||||
|
||||
const gchar *
|
||||
g_getenv (const gchar *variable)
|
||||
{
|
||||
gchar *utf8_variable = g_locale_to_utf8 (variable, -1, NULL, NULL, NULL);
|
||||
const gchar *utf8_value = g_getenv_utf8 (utf8_variable);
|
||||
gchar *value;
|
||||
GQuark quark;
|
||||
|
||||
g_free (utf8_variable);
|
||||
if (!utf8_value)
|
||||
return NULL;
|
||||
value = g_locale_from_utf8 (utf8_value, -1, NULL, NULL, NULL);
|
||||
quark = g_quark_from_string (value);
|
||||
g_free (value);
|
||||
|
||||
return g_quark_to_string (quark);
|
||||
}
|
||||
|
||||
#undef g_setenv
|
||||
|
||||
gboolean
|
||||
g_setenv (const gchar *variable,
|
||||
const gchar *value,
|
||||
gboolean overwrite)
|
||||
{
|
||||
gchar *utf8_variable = g_locale_to_utf8 (variable, -1, NULL, NULL, NULL);
|
||||
gchar *utf8_value = g_locale_to_utf8 (value, -1, NULL, NULL, NULL);
|
||||
gboolean retval = g_setenv_utf8 (utf8_variable, utf8_value, overwrite);
|
||||
|
||||
g_free (utf8_variable);
|
||||
g_free (utf8_value);
|
||||
|
||||
return retval;
|
||||
}
|
||||
|
||||
#undef g_unsetenv
|
||||
|
||||
void
|
||||
g_unsetenv (const gchar *variable)
|
||||
{
|
||||
gchar *utf8_variable = g_locale_to_utf8 (variable, -1, NULL, NULL, NULL);
|
||||
|
||||
g_unsetenv_utf8 (utf8_variable);
|
||||
|
||||
g_free (utf8_variable);
|
||||
}
|
||||
|
||||
#endif /* _WIN64 */
|
||||
|
||||
#endif /* G_OS_WIN32 */
|
||||
|
||||
/* Epilogue {{{1 */
|
||||
/* vim: set foldmethod=marker: */
|
||||
|
||||
@ -2644,55 +2644,6 @@ g_get_current_dir (void)
|
||||
return dir;
|
||||
}
|
||||
|
||||
#undef g_getenv
|
||||
|
||||
const gchar *
|
||||
g_getenv (const gchar *variable)
|
||||
{
|
||||
gchar *utf8_variable = g_locale_to_utf8 (variable, -1, NULL, NULL, NULL);
|
||||
const gchar *utf8_value = g_getenv_utf8 (utf8_variable);
|
||||
gchar *value;
|
||||
GQuark quark;
|
||||
|
||||
g_free (utf8_variable);
|
||||
if (!utf8_value)
|
||||
return NULL;
|
||||
value = g_locale_from_utf8 (utf8_value, -1, NULL, NULL, NULL);
|
||||
quark = g_quark_from_string (value);
|
||||
g_free (value);
|
||||
|
||||
return g_quark_to_string (quark);
|
||||
}
|
||||
|
||||
#undef g_setenv
|
||||
|
||||
gboolean
|
||||
g_setenv (const gchar *variable,
|
||||
const gchar *value,
|
||||
gboolean overwrite)
|
||||
{
|
||||
gchar *utf8_variable = g_locale_to_utf8 (variable, -1, NULL, NULL, NULL);
|
||||
gchar *utf8_value = g_locale_to_utf8 (value, -1, NULL, NULL, NULL);
|
||||
gboolean retval = g_setenv_utf8 (utf8_variable, utf8_value, overwrite);
|
||||
|
||||
g_free (utf8_variable);
|
||||
g_free (utf8_value);
|
||||
|
||||
return retval;
|
||||
}
|
||||
|
||||
#undef g_unsetenv
|
||||
|
||||
void
|
||||
g_unsetenv (const gchar *variable)
|
||||
{
|
||||
gchar *utf8_variable = g_locale_to_utf8 (variable, -1, NULL, NULL, NULL);
|
||||
|
||||
g_unsetenv_utf8 (utf8_variable);
|
||||
|
||||
g_free (utf8_variable);
|
||||
}
|
||||
|
||||
#undef g_get_user_name
|
||||
|
||||
const gchar *
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user