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
|
/* Copyright (C) 1995,1996 Robert de Bath <rdebath@cix.compulink.co.uk>
* This file is part of the Linux-8086 C library and is distributed
* under the GNU Library General Public License.
*/
#include <string.h>
#include <stdlib.h>
#include <malloc.h>
extern char **environ;
#define ADD_NUM 4
int setenv(var, value, overwrite)
const char *var;
const char *value;
int overwrite;
{
static char **mall_env = 0;
static int extras = 0;
char **p, **d;
char *t;
int len;
len = strlen(var);
if (!environ) {
environ = (char **) malloc(ADD_NUM * sizeof(char *));
memset(environ, 0, sizeof(char *) * ADD_NUM);
extras = ADD_NUM;
}
for (p = environ; *p; p++) {
if (memcmp(var, *p, len) == 0 && (*p)[len] == '=') {
if (!overwrite)
return -1;
/* Overwrite stuff */
while ((p[0] = p[1]))
p++;
extras++;
break;
}
}
if (extras <= 0) { /* Need more space */
d = malloc((p - environ + 1 + ADD_NUM) * sizeof(char *));
if (d == 0)
return -1;
memcpy((void *) d, (void *) environ,
(p - environ + 1) * sizeof(char *));
p = d + (p - environ);
extras = ADD_NUM;
if (mall_env)
free(mall_env);
environ = d;
mall_env = d;
}
t = malloc(len + 1 + strlen(value) + 1);
if (!t)
return -1;
strcpy(t, var);
strcat(t, "=");
strcat(t, value);
*p++ = (char *) t;
*p = '\0';
extras--;
return 0;
}
|
