xref: /plan9/sys/src/ape/lib/ap/gen/getenv.c (revision 781103c4074deb8af160e8a0da2742ba6b29dc2b)
13e12c5d1SDavid du Colombier #include <stdlib.h>
23e12c5d1SDavid du Colombier 
33e12c5d1SDavid du Colombier extern	char **environ;
43e12c5d1SDavid du Colombier 
53e12c5d1SDavid du Colombier char *
getenv(const char * name)63e12c5d1SDavid du Colombier getenv(const char *name)
73e12c5d1SDavid du Colombier {
83e12c5d1SDavid du Colombier 	char **p = environ;
9*781103c4SDavid du Colombier 	char *s1, *s2;
103e12c5d1SDavid du Colombier 
113e12c5d1SDavid du Colombier 	while (*p != NULL){
123e12c5d1SDavid du Colombier 		for(s1 = (char *)name, s2 = *p++; *s1 == *s2; s1++, s2++)
133e12c5d1SDavid du Colombier 			continue;
143e12c5d1SDavid du Colombier 		if(*s1 == '\0' && *s2 == '=')
153e12c5d1SDavid du Colombier 			return s2+1;
163e12c5d1SDavid du Colombier 	}
173e12c5d1SDavid du Colombier 	return NULL ;
183e12c5d1SDavid du Colombier }
19