-
-
Notifications
You must be signed in to change notification settings - Fork 294
/
putenv.c
76 lines (61 loc) · 1.59 KB
/
putenv.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
/*!
\file lib/gis/putenv.c
\brief GIS library - environment routines
(C) 2001-2009, 2011 by the GRASS Development Team
This program is free software under the GNU General Public License
(>=v2). Read the file COPYING that comes with GRASS for details.
\author Original author CERL
\author Updated for GRASS7 by Glynn Clements
*/
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <grass/config.h>
#include <grass/gis.h>
#if !defined(HAVE_PUTENV) && !defined(HAVE_SETENV)
extern char **environ;
#endif
/*!
\brief Sets the UNIX environment variable name to value
\param name env name
\param value env value
*/
void G_putenv(const char *name, const char *value)
{
char buf[1024];
#if defined(HAVE_PUTENV)
sprintf(buf, "%s=%s", name, value);
putenv(G_store(buf));
#elif defined(HAVE_SETENV)
setenv(name, value, 1);
#else
static int first = 1;
int i;
char **newenv;
char *env;
if (first) {
for (i = 0; environ[i]; i++) ;
newenv = (char **)G_malloc((i + 1) * sizeof(char *));
for (i = 0; env = environ[i], env; i++)
newenv[i] = G_store(env);
newenv[i] = NULL;
environ = newenv;
first = 0;
}
for (i = 0; env = environ[i], env; i++) {
char temp[4];
if (sscanf(env, "%[^=]=%1s", buf, temp) < 1)
continue;
if (strcmp(buf, name) != 0)
continue;
G_free(env);
sprintf(buf, "%s=%s", name, value);
environ[i] = G_store(buf);
return;
}
environ = (char **)G_realloc(environ, (i + 2) * sizeof(char *));
sprintf(buf, "%s=%s", name, value);
environ[i++] = G_store(buf);
environ[i] = NULL;
#endif
}