1 /* Copyright (C) 1991, 1994, 1995, 1996, 2002 Free Software Foundation, Inc. 2 This file based on putenv.c in the GNU C Library. 3 4 The GNU C Library is free software; you can redistribute it and/or 5 modify it under the terms of the GNU Library General Public License as 6 published by the Free Software Foundation; either version 2 of the 7 License, or (at your option) any later version. 8 9 The GNU C Library is distributed in the hope that it will be useful, 10 but WITHOUT ANY WARRANTY; without even the implied warranty of 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12 Library General Public License for more details. 13 14 You should have received a copy of the GNU Library General Public 15 License along with the GNU C Library; see the file COPYING.LIB. If not, 16 write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, 17 Boston, MA 02110-1301, USA. */ 18 19 /* 20 21 @deftypefn Supplemental int putenv (const char *@var{string}) 22 23 Uses @code{setenv} or @code{unsetenv} to put @var{string} into 24 the environment or remove it. If @var{string} is of the form 25 @samp{name=value} the string is added; if no @samp{=} is present the 26 name is unset/removed. 27 28 @end deftypefn 29 30 */ 31 32 #if defined (_AIX) && !defined (__GNUC__) 33 #pragma alloca 34 #endif 35 36 #if HAVE_CONFIG_H 37 # include <config.h> 38 #endif 39 40 #include "ansidecl.h" 41 42 #define putenv libiberty_putenv 43 44 #if HAVE_STDLIB_H 45 # include <stdlib.h> 46 #endif 47 #if HAVE_STRING_H 48 # include <string.h> 49 #endif 50 51 #ifdef HAVE_ALLOCA_H 52 # include <alloca.h> 53 #else 54 # ifndef alloca 55 # ifdef __GNUC__ 56 # define alloca __builtin_alloca 57 # else 58 extern char *alloca (); 59 # endif /* __GNUC__ */ 60 # endif /* alloca */ 61 #endif /* HAVE_ALLOCA_H */ 62 63 #undef putenv 64 65 /* Below this point, it's verbatim code from the glibc-2.0 implementation */ 66 67 68 /* Put STRING, which is of the form "NAME=VALUE", in the environment. */ 69 int 70 putenv (const char *string) 71 { 72 const char *const name_end = strchr (string, '='); 73 74 if (name_end) 75 { 76 char *name = (char *) alloca (name_end - string + 1); 77 memcpy (name, string, name_end - string); 78 name[name_end - string] = '\0'; 79 return setenv (name, name_end + 1, 1); 80 } 81 82 unsetenv (string); 83 return 0; 84 } 85