added putenv.c

diff --git a/lang/cem/libcc.ansi/misc/.distr b/lang/cem/libcc.ansi/misc/.distr
index afac124..f6201ef 100644 (file)
--- a/lang/cem/libcc.ansi/misc/.distr
+++ b/lang/cem/libcc.ansi/misc/.distr
@@ -10,6 +10,7 @@ getpw.c
 getw.c
 opendir.c
 popen.c
+putenv.c
 putw.c
 readdir.c
 rewinddir.c

diff --git a/lang/cem/libcc.ansi/misc/LIST b/lang/cem/libcc.ansi/misc/LIST
index ab676f0..bd8564c 100644 (file)
--- a/lang/cem/libcc.ansi/misc/LIST
+++ b/lang/cem/libcc.ansi/misc/LIST
@@ -4,6 +4,7 @@ getpass.c
 getpw.c
 getw.c
 putw.c
+putenv.c
 popen.c
 sleep.c
 termcap.c

diff --git a/lang/cem/libcc.ansi/misc/Makefile b/lang/cem/libcc.ansi/misc/Makefile
index 8fb4d55..40ccfad 100644 (file)
--- a/lang/cem/libcc.ansi/misc/Makefile
+++ b/lang/cem/libcc.ansi/misc/Makefile
@@ -1,4 +1,4 @@
 clean:
-       rm -f getgrent.o getopt.o getpass.o getpw.o getw.o putw.o \
+       rm -f getgrent.o getopt.o getpass.o getpw.o getw.o putw.o putenv.o \
                popen.o sleep.o termcap.o fdopen.o closedir.o getdents.o \
                opendir.o readdir.o rewinddir.o seekdir.o telldir.o OLIST

diff --git a/lang/cem/libcc.ansi/misc/putenv.c b/lang/cem/libcc.ansi/misc/putenv.c
new file mode 100644 (file)
index 0000000..5caedf6
--- /dev/null
+++ b/lang/cem/libcc.ansi/misc/putenv.c
@@ -0,0 +1,76 @@
+/*
+ * (c) copyright 1989 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ * See the copyright notice in the ACK home directory, in the file "Copyright".
+ */
+/* $Header$ */
+
+#include       <stdlib.h>
+#include       <string.h>
+
+#define        ENTRY_INC       10
+#define        rounded(x)      (((x / ENTRY_INC) + 1) * ENTRY_INC)
+
+extern const char **environ;
+
+int
+putenv(char *name)
+{
+       register const char **v = environ;
+       register char *r;
+       static int size = 0;
+       /* When size != 0, it contains the number of entries in the
+        * table (including the final NULL pointer). This means that the
+        * last non-null entry  is environ[size - 2].
+        */
+
+       if (!name) return 0;
+       if (r = strrchr(name, '=')) {
+               register const char *p, *q;
+
+               *r = '\0';
+
+               if (v != NULL) {
+                       while ((p = *v) != NULL) {
+                               q = name;
+                               while (*q && (*q++ == *p++))
+                                       /* EMPTY */ ;
+                               if (*q || (*p != '=')) {
+                                       v++;
+                               } else {
+                                       /* The name was already in the
+                                        * environment.
+                                        */
+                                       *r = '=';
+                                       *v = name;
+                                       return 0;
+                               }
+                       }
+               }
+               v = environ;
+       }
+
+       if (!size) {
+               register const char **p;
+               register int i = 0;
+
+               if (v)
+                       do {
+                               i++;
+                       } while (*v++);
+               if (!(v = malloc(rounded(i) * sizeof(char **))))
+                       return 1;
+               size = i;
+               p = environ;
+               environ = v;
+               while (*v++ = *p++);            /* copy the environment */
+               v = environ;
+       } else if (!(size % ENTRY_INC)) {
+               if (!(v = realloc(environ, rounded(size) * sizeof(char **))))
+                       return 1;
+               environ = v;
+       }
+       v[size - 1] = name;
+       v[size] = NULL;
+       size++;
+       return 0;
+}