From 580f9625e166be7771ead94f500e54a5b34d3196 Mon Sep 17 00:00:00 2001 From: Panu Matilainen Date: Mon, 4 Jan 2010 14:15:20 +0200 Subject: Remove largely unnecessary putenv() replacement - only the lua posix extension "uses" this by providing putenv() to Lua, make it conditional and return error if not supported by the underlying operating system --- misc/Makefile.am | 3 +- misc/putenv.c | 113 ------------------------------------------------------- 2 files changed, 1 insertion(+), 115 deletions(-) delete mode 100644 misc/putenv.c (limited to 'misc') diff --git a/misc/Makefile.am b/misc/Makefile.am index b84eea4ce..a45631306 100644 --- a/misc/Makefile.am +++ b/misc/Makefile.am @@ -8,8 +8,7 @@ EXTRA_DIST = \ fakefork.c fnmatch.c fnmatch.h \ getcwd.c getmntent.c \ getwd.c glob.c glob.h \ - putenv.c realpath.c \ - setenv.c stpcpy.c stpncpy.c + realpath.c setenv.c stpcpy.c stpncpy.c noinst_LTLIBRARIES = libmisc.la diff --git a/misc/putenv.c b/misc/putenv.c deleted file mode 100644 index 15ee03715..000000000 --- a/misc/putenv.c +++ /dev/null @@ -1,113 +0,0 @@ -/* Copyright (C) 1991, 1994 Free Software Foundation, Inc. - - -NOTE: The canonical source of this file is maintained with the GNU C Library. -Bugs can be reported to bug-glibc@prep.ai.mit.edu. - -This program is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2, or (at your option) any -later version. - -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software Foundation, -Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ - -#include - -#ifdef HAVE_CONFIG_H -# include "config.h" -#endif - -/* Define-away any (possibly conflicting) prototype of putenv. - Many systems omit the `const' attribute on the argument. */ -#define putenv _sys_putenv - -#if defined (__GNU_LIBRARY__) || defined (HAVE_STDLIB_H) -# include -#endif -#if defined (__GNU_LIBRARY__) || defined (HAVE_STRING_H) -# include -#endif -#if defined (__GNU_LIBRARY__) || defined (HAVE_UNISTD_H) -# include -#endif - -#undef putenv - -#if !defined (__GNU_LIBRARY__) && !defined (HAVE_STRCHR) -# define strchr index -#endif -#if !defined (__GNU_LIBRARY__) && !defined (HAVE_MEMCPY) -# define memcpy(d,s,n) bcopy ((s), (d), (n)) -#endif - -#if HAVE_GNU_LD -# define environ __environ -#elif defined (__APPLE__) -# include -# define environ (*_NSGetEnviron()) -#else -extern char **environ; -#endif - - -/* Put STRING, which is of the form "NAME=VALUE", in the environment. */ -int -putenv (string) - const char *string; -{ - const char *const name_end = strchr (string, '='); - register size_t size; - register char **ep; - - if (name_end == NULL) - { - /* Remove the variable from the environment. */ - size = strlen (string); - for (ep = environ; *ep != NULL; ++ep) - if (!strncmp (*ep, string, size) && (*ep)[size] == '=') - { - while (ep[1] != NULL) - { - ep[0] = ep[1]; - ++ep; - } - *ep = NULL; - return 0; - } - } - - size = 0; - for (ep = environ; *ep != NULL; ++ep) - if (!strncmp (*ep, string, name_end - string) && - (*ep)[name_end - string] == '=') - break; - else - ++size; - - if (*ep == NULL) - { - static char **last_environ = NULL; - char **new_environ = (char **) malloc ((size + 2) * sizeof (char *)); - if (new_environ == NULL) - return -1; - (void) memcpy ((void *) new_environ, (void *) environ, - size * sizeof (char *)); - new_environ[size] = (char *) string; - new_environ[size + 1] = NULL; - if (last_environ != NULL) - free ((void *) last_environ); - last_environ = new_environ; - environ = new_environ; - } - else - *ep = (char *) string; - - return 0; -} -- cgit v1.2.3