aboutsummaryrefslogtreecommitdiffstats
path: root/lib/putenv.c
diff options
context:
space:
mode:
authorPaul Eggert2013-03-12 17:38:42 -0700
committerPaul Eggert2013-03-12 17:38:42 -0700
commit5615c9a9af487c19ab0bd30cb15d7bdb9af53560 (patch)
treeda5460962adeb04d0b5589f388a52a129095a41b /lib/putenv.c
parent84c3ab6860d2247e0da13d418545807a5f2f90fc (diff)
downloademacs-5615c9a9af487c19ab0bd30cb15d7bdb9af53560.tar.gz
emacs-5615c9a9af487c19ab0bd30cb15d7bdb9af53560.zip
Merge from gnulib.
This incorporates: 2013-03-12 mktime: fix configure typo 2013-03-11 regex: port to mingw's recent addition of undeclared alarm 2013-03-11 putenv: avoid compilation warning on mingw 2013-03-11 unistd: don't prevent Tru64 Unix from using gnulib strtod.
Diffstat (limited to 'lib/putenv.c')
-rw-r--r--lib/putenv.c76
1 files changed, 39 insertions, 37 deletions
diff --git a/lib/putenv.c b/lib/putenv.c
index ed666afc3bb..3813a11ece7 100644
--- a/lib/putenv.c
+++ b/lib/putenv.c
@@ -62,7 +62,9 @@ static int
62_unsetenv (const char *name) 62_unsetenv (const char *name)
63{ 63{
64 size_t len; 64 size_t len;
65#if !HAVE__PUTENV
65 char **ep; 66 char **ep;
67#endif
66 68
67 if (name == NULL || *name == '\0' || strchr (name, '=') != NULL) 69 if (name == NULL || *name == '\0' || strchr (name, '=') != NULL)
68 { 70 {
@@ -126,45 +128,45 @@ putenv (char *string)
126 } 128 }
127 129
128#if HAVE__PUTENV 130#if HAVE__PUTENV
129 /* Rely on _putenv to allocate the new environment. If other 131 /* Rely on _putenv to allocate the new environment. If other
130 parts of the application use _putenv, the !HAVE__PUTENV code 132 parts of the application use _putenv, the !HAVE__PUTENV code
131 would fight over who owns the environ vector, causing a crash. */ 133 would fight over who owns the environ vector, causing a crash. */
132 if (name_end[1]) 134 if (name_end[1])
133 return _putenv (string); 135 return _putenv (string);
134 else 136 else
135 { 137 {
136 /* _putenv ("NAME=") unsets NAME, so invoke _putenv ("NAME= ") 138 /* _putenv ("NAME=") unsets NAME, so invoke _putenv ("NAME= ")
137 to allocate the environ vector and then replace the new 139 to allocate the environ vector and then replace the new
138 entry with "NAME=". */ 140 entry with "NAME=". */
139 int putenv_result, putenv_errno; 141 int putenv_result, putenv_errno;
140 char *name_x = malloc (name_end - string + sizeof "= "); 142 char *name_x = malloc (name_end - string + sizeof "= ");
141 if (!name_x) 143 if (!name_x)
142 return -1; 144 return -1;
143 memcpy (name_x, string, name_end - string + 1); 145 memcpy (name_x, string, name_end - string + 1);
144 name_x[name_end - string + 1] = ' '; 146 name_x[name_end - string + 1] = ' ';
145 name_x[name_end - string + 2] = 0; 147 name_x[name_end - string + 2] = 0;
146 putenv_result = _putenv (name_x); 148 putenv_result = _putenv (name_x);
147 putenv_errno = errno; 149 putenv_errno = errno;
148 for (ep = environ; *ep; ep++) 150 for (ep = environ; *ep; ep++)
149 if (strcmp (*ep, name_x) == 0) 151 if (strcmp (*ep, name_x) == 0)
150 { 152 {
151 *ep = string; 153 *ep = string;
152 break; 154 break;
153 } 155 }
154# if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__ 156# if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
155 if (putenv_result == 0) 157 if (putenv_result == 0)
156 { 158 {
157 /* _putenv propagated "NAME= " into the subprocess environment; 159 /* _putenv propagated "NAME= " into the subprocess environment;
158 fix that by calling SetEnvironmentVariable directly. */ 160 fix that by calling SetEnvironmentVariable directly. */
159 name_x[name_end - string] = 0; 161 name_x[name_end - string] = 0;
160 putenv_result = SetEnvironmentVariable (name_x, "") ? 0 : -1; 162 putenv_result = SetEnvironmentVariable (name_x, "") ? 0 : -1;
161 putenv_errno = ENOMEM; /* ENOMEM is the only way to fail. */ 163 putenv_errno = ENOMEM; /* ENOMEM is the only way to fail. */
162 }
163# endif
164 free (name_x);
165 __set_errno (putenv_errno);
166 return putenv_result;
167 } 164 }
165# endif
166 free (name_x);
167 __set_errno (putenv_errno);
168 return putenv_result;
169 }
168#else 170#else
169 for (ep = environ; *ep; ep++) 171 for (ep = environ; *ep; ep++)
170 if (strncmp (*ep, string, name_end - string) == 0 172 if (strncmp (*ep, string, name_end - string) == 0