|
Packit Service |
fdd496 |
/* Copyright (C) 1991, 1994, 1997-1998, 2000, 2003-2017 Free Software
|
|
Packit Service |
fdd496 |
Foundation, Inc.
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
NOTE: The canonical source of this file is maintained with the GNU C
|
|
Packit Service |
fdd496 |
Library. Bugs can be reported to bug-glibc@prep.ai.mit.edu.
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
This program is free software: you can redistribute it and/or modify it
|
|
Packit Service |
fdd496 |
under the terms of the GNU General Public License as published by the
|
|
Packit Service |
fdd496 |
Free Software Foundation; either version 3 of the License, or any
|
|
Packit Service |
fdd496 |
later version.
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
This program is distributed in the hope that it will be useful,
|
|
Packit Service |
fdd496 |
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit Service |
fdd496 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
Packit Service |
fdd496 |
GNU General Public License for more details.
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
You should have received a copy of the GNU General Public License
|
|
Packit Service |
fdd496 |
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
#include <config.h>
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
/* Specification. */
|
|
Packit Service |
fdd496 |
#include <stdlib.h>
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
#include <stddef.h>
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
/* Include errno.h *after* sys/types.h to work around header problems
|
|
Packit Service |
fdd496 |
on AIX 3.2.5. */
|
|
Packit Service |
fdd496 |
#include <errno.h>
|
|
Packit Service |
fdd496 |
#ifndef __set_errno
|
|
Packit Service |
fdd496 |
# define __set_errno(ev) ((errno) = (ev))
|
|
Packit Service |
fdd496 |
#endif
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
#include <string.h>
|
|
Packit Service |
fdd496 |
#include <unistd.h>
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
#if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
|
|
Packit Service |
fdd496 |
# define WIN32_LEAN_AND_MEAN
|
|
Packit Service |
fdd496 |
# include <windows.h>
|
|
Packit Service |
fdd496 |
#endif
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
#if _LIBC
|
|
Packit Service |
fdd496 |
# if HAVE_GNU_LD
|
|
Packit Service |
fdd496 |
# define environ __environ
|
|
Packit Service |
fdd496 |
# else
|
|
Packit Service |
fdd496 |
extern char **environ;
|
|
Packit Service |
fdd496 |
# endif
|
|
Packit Service |
fdd496 |
#endif
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
#if _LIBC
|
|
Packit Service |
fdd496 |
/* This lock protects against simultaneous modifications of 'environ'. */
|
|
Packit Service |
fdd496 |
# include <bits/libc-lock.h>
|
|
Packit Service |
fdd496 |
__libc_lock_define_initialized (static, envlock)
|
|
Packit Service |
fdd496 |
# define LOCK __libc_lock_lock (envlock)
|
|
Packit Service |
fdd496 |
# define UNLOCK __libc_lock_unlock (envlock)
|
|
Packit Service |
fdd496 |
#else
|
|
Packit Service |
fdd496 |
# define LOCK
|
|
Packit Service |
fdd496 |
# define UNLOCK
|
|
Packit Service |
fdd496 |
#endif
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
static int
|
|
Packit Service |
fdd496 |
_unsetenv (const char *name)
|
|
Packit Service |
fdd496 |
{
|
|
Packit Service |
fdd496 |
size_t len;
|
|
Packit Service |
fdd496 |
#if !HAVE_DECL__PUTENV
|
|
Packit Service |
fdd496 |
char **ep;
|
|
Packit Service |
fdd496 |
#endif
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
if (name == NULL || *name == '\0' || strchr (name, '=') != NULL)
|
|
Packit Service |
fdd496 |
{
|
|
Packit Service |
fdd496 |
__set_errno (EINVAL);
|
|
Packit Service |
fdd496 |
return -1;
|
|
Packit Service |
fdd496 |
}
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
len = strlen (name);
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
#if HAVE_DECL__PUTENV
|
|
Packit Service |
fdd496 |
{
|
|
Packit Service |
fdd496 |
int putenv_result, putenv_errno;
|
|
Packit Service |
fdd496 |
char *name_ = malloc (len + 2);
|
|
Packit Service |
fdd496 |
memcpy (name_, name, len);
|
|
Packit Service |
fdd496 |
name_[len] = '=';
|
|
Packit Service |
fdd496 |
name_[len + 1] = 0;
|
|
Packit Service |
fdd496 |
putenv_result = _putenv (name_);
|
|
Packit Service |
fdd496 |
putenv_errno = errno;
|
|
Packit Service |
fdd496 |
free (name_);
|
|
Packit Service |
fdd496 |
__set_errno (putenv_errno);
|
|
Packit Service |
fdd496 |
return putenv_result;
|
|
Packit Service |
fdd496 |
}
|
|
Packit Service |
fdd496 |
#else
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
LOCK;
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
ep = environ;
|
|
Packit Service |
fdd496 |
while (*ep != NULL)
|
|
Packit Service |
fdd496 |
if (!strncmp (*ep, name, len) && (*ep)[len] == '=')
|
|
Packit Service |
fdd496 |
{
|
|
Packit Service |
fdd496 |
/* Found it. Remove this pointer by moving later ones back. */
|
|
Packit Service |
fdd496 |
char **dp = ep;
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
do
|
|
Packit Service |
fdd496 |
dp[0] = dp[1];
|
|
Packit Service |
fdd496 |
while (*dp++);
|
|
Packit Service |
fdd496 |
/* Continue the loop in case NAME appears again. */
|
|
Packit Service |
fdd496 |
}
|
|
Packit Service |
fdd496 |
else
|
|
Packit Service |
fdd496 |
++ep;
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
UNLOCK;
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
return 0;
|
|
Packit Service |
fdd496 |
#endif
|
|
Packit Service |
fdd496 |
}
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
/* Put STRING, which is of the form "NAME=VALUE", in the environment.
|
|
Packit Service |
fdd496 |
If STRING contains no '=', then remove STRING from the environment. */
|
|
Packit Service |
fdd496 |
int
|
|
Packit Service |
fdd496 |
putenv (char *string)
|
|
Packit Service |
fdd496 |
{
|
|
Packit Service |
fdd496 |
const char *name_end = strchr (string, '=');
|
|
Packit Service |
fdd496 |
char **ep;
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
if (name_end == NULL)
|
|
Packit Service |
fdd496 |
{
|
|
Packit Service |
fdd496 |
/* Remove the variable from the environment. */
|
|
Packit Service |
fdd496 |
return _unsetenv (string);
|
|
Packit Service |
fdd496 |
}
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
#if HAVE_DECL__PUTENV
|
|
Packit Service |
fdd496 |
/* Rely on _putenv to allocate the new environment. If other
|
|
Packit Service |
fdd496 |
parts of the application use _putenv, the !HAVE_DECL__PUTENV code
|
|
Packit Service |
fdd496 |
would fight over who owns the environ vector, causing a crash. */
|
|
Packit Service |
fdd496 |
if (name_end[1])
|
|
Packit Service |
fdd496 |
return _putenv (string);
|
|
Packit Service |
fdd496 |
else
|
|
Packit Service |
fdd496 |
{
|
|
Packit Service |
fdd496 |
/* _putenv ("NAME=") unsets NAME, so invoke _putenv ("NAME= ")
|
|
Packit Service |
fdd496 |
to allocate the environ vector and then replace the new
|
|
Packit Service |
fdd496 |
entry with "NAME=". */
|
|
Packit Service |
fdd496 |
int putenv_result, putenv_errno;
|
|
Packit Service |
fdd496 |
char *name_x = malloc (name_end - string + sizeof "= ");
|
|
Packit Service |
fdd496 |
if (!name_x)
|
|
Packit Service |
fdd496 |
return -1;
|
|
Packit Service |
fdd496 |
memcpy (name_x, string, name_end - string + 1);
|
|
Packit Service |
fdd496 |
name_x[name_end - string + 1] = ' ';
|
|
Packit Service |
fdd496 |
name_x[name_end - string + 2] = 0;
|
|
Packit Service |
fdd496 |
putenv_result = _putenv (name_x);
|
|
Packit Service |
fdd496 |
putenv_errno = errno;
|
|
Packit Service |
fdd496 |
for (ep = environ; *ep; ep++)
|
|
Packit Service |
fdd496 |
if (strcmp (*ep, name_x) == 0)
|
|
Packit Service |
fdd496 |
{
|
|
Packit Service |
fdd496 |
*ep = string;
|
|
Packit Service |
fdd496 |
break;
|
|
Packit Service |
fdd496 |
}
|
|
Packit Service |
fdd496 |
# if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
|
|
Packit Service |
fdd496 |
if (putenv_result == 0)
|
|
Packit Service |
fdd496 |
{
|
|
Packit Service |
fdd496 |
/* _putenv propagated "NAME= " into the subprocess environment;
|
|
Packit Service |
fdd496 |
fix that by calling SetEnvironmentVariable directly. */
|
|
Packit Service |
fdd496 |
name_x[name_end - string] = 0;
|
|
Packit Service |
fdd496 |
putenv_result = SetEnvironmentVariable (name_x, "") ? 0 : -1;
|
|
Packit Service |
fdd496 |
putenv_errno = ENOMEM; /* ENOMEM is the only way to fail. */
|
|
Packit Service |
fdd496 |
}
|
|
Packit Service |
fdd496 |
# endif
|
|
Packit Service |
fdd496 |
free (name_x);
|
|
Packit Service |
fdd496 |
__set_errno (putenv_errno);
|
|
Packit Service |
fdd496 |
return putenv_result;
|
|
Packit Service |
fdd496 |
}
|
|
Packit Service |
fdd496 |
#else
|
|
Packit Service |
fdd496 |
for (ep = environ; *ep; ep++)
|
|
Packit Service |
fdd496 |
if (strncmp (*ep, string, name_end - string) == 0
|
|
Packit Service |
fdd496 |
&& (*ep)[name_end - string] == '=')
|
|
Packit Service |
fdd496 |
break;
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
if (*ep)
|
|
Packit Service |
fdd496 |
*ep = string;
|
|
Packit Service |
fdd496 |
else
|
|
Packit Service |
fdd496 |
{
|
|
Packit Service |
fdd496 |
static char **last_environ = NULL;
|
|
Packit Service |
fdd496 |
size_t size = ep - environ;
|
|
Packit Service |
fdd496 |
char **new_environ = malloc ((size + 2) * sizeof *new_environ);
|
|
Packit Service |
fdd496 |
if (! new_environ)
|
|
Packit Service |
fdd496 |
return -1;
|
|
Packit Service |
fdd496 |
new_environ[0] = string;
|
|
Packit Service |
fdd496 |
memcpy (new_environ + 1, environ, (size + 1) * sizeof *new_environ);
|
|
Packit Service |
fdd496 |
free (last_environ);
|
|
Packit Service |
fdd496 |
last_environ = new_environ;
|
|
Packit Service |
fdd496 |
environ = new_environ;
|
|
Packit Service |
fdd496 |
}
|
|
Packit Service |
fdd496 |
|
|
Packit Service |
fdd496 |
return 0;
|
|
Packit Service |
fdd496 |
#endif
|
|
Packit Service |
fdd496 |
}
|