git: 9front

Info  •  Files  •  Log  •  Branches

ape: putenv, add file :)

--- /dev/null

+++ b/sys/src/ape/lib/ap/gen/putenv.c

@@ -1,0 +1,24 @@

+#include <stdlib.h>

+

+extern	char **environ;

+

+int

+putenv(const char *str)

+{

+	char *s1, *s2, **e;

+	int n;

+

+	for(n = 0; s2 = environ[n]; n++)

+		for(s1 = str; *s1 == *s2; s1++, s2++)

+			if(*s1 == '\0' || *s1 == '='){

+				environ[n] = str;

+				return 0;

+			}

+	e = realloc(environ, (n+1) * sizeof(char*));

+	if(e == 0)

+		return -1;

+	environ = e;

+	e[n++] = str;

+	e[n] = 0;

+	return 0;

+}

-- 

⑨