File: env.c

package info (click to toggle)
qmail 1.01-5
  • links: PTS
  • area: non-free
  • in suites: hamm
  • size: 2,188 kB
  • ctags: 1,711
  • sloc: ansic: 13,993; makefile: 1,914; perl: 448; sh: 377
file content (113 lines) | stat: -rw-r--r-- 2,289 bytes parent folder | download | duplicates (16)
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
/* env.c, envread.c, env.h: environ library
Daniel J. Bernstein, djb@silverton.berkeley.edu.
Depends on str.h, alloc.h.
Requires environ.
19960113: rewrite. warning: interface is different.
No known patent problems.
*/

#include "str.h"
#include "alloc.h"
#include "env.h"

int env_isinit = 0; /* if env_isinit: */
static int ea; /* environ is a pointer to ea+1 char*'s. */
static int en; /* the first en of those are ALLOCATED. environ[en] is 0. */

static void env_goodbye(i) int i;
{
 alloc_free(environ[i]);
 environ[i] = environ[--en];
 environ[en] = 0;
}

static char *null = 0;

void env_clear()
{
 if (env_isinit) while (en) env_goodbye(0);
 else environ = &null;
}

static void env_unsetlen(s,len) char *s; int len;
{
 int i;
 for (i = en - 1;i >= 0;--i)
   if (!str_diffn(s,environ[i],len))
     if (environ[i][len] == '=')
       env_goodbye(i);
}

int env_unset(s) char *s;
{
 if (!env_isinit) if (!env_init()) return 0;
 env_unsetlen(s,str_len(s));
 return 1;
}

static int env_add(s) char *s;
{
 char *t;
 t = env_findeq(s);
 if (t) env_unsetlen(s,t - s);
 if (en == ea)
  {
   ea += 30;
   if (!alloc_re(&environ,(en + 1) * sizeof(char *),(ea + 1) * sizeof(char *)))
    { ea = en; return 0; }
  }
 environ[en++] = s;
 environ[en] = 0;
 return 1;
}

int env_put(s) char *s;
{
 char *u;
 if (!env_isinit) if (!env_init()) return 0;
 u = alloc(str_len(s) + 1);
 if (!u) return 0;
 str_copy(u,s);
 if (!env_add(u)) { alloc_free(u); return 0; }
 return 1;
}

int env_put2(s,t) char *s; char *t;
{
 char *u;
 int slen;
 if (!env_isinit) if (!env_init()) return 0;
 slen = str_len(s);
 u = alloc(slen + str_len(t) + 2);
 if (!u) return 0;
 str_copy(u,s);
 u[slen] = '=';
 str_copy(u + slen + 1,t);
 if (!env_add(u)) { alloc_free(u); return 0; }
 return 1;
}

int env_init()
{
 char **newenviron;
 int i;
 for (en = 0;environ[en];++en) ;
 ea = en + 10;
 newenviron = (char **) alloc((ea + 1) * sizeof(char *));
 if (!newenviron) return 0;
 for (en = 0;environ[en];++en)
  {
   newenviron[en] = alloc(str_len(environ[en]) + 1);
   if (!newenviron[en])
    {
     for (i = 0;i < en;++i) alloc_free(newenviron[i]);
     alloc_free(newenviron);
     return 0;
    }
   str_copy(newenviron[en],environ[en]);
  }
 newenviron[en] = 0;
 environ = newenviron;
 env_isinit = 1;
 return 1;
}