1987-03-31 10:45:53 +00:00
|
|
|
/* $Header$ */
|
1987-01-27 15:57:55 +00:00
|
|
|
char *getenv(name)
|
|
|
|
|
register char *name;
|
|
|
|
|
{
|
|
|
|
|
extern char **environ;
|
|
|
|
|
register char **v = environ, *p, *q;
|
|
|
|
|
|
|
|
|
|
while ((p = *v++) != 0) {
|
|
|
|
|
q = name;
|
|
|
|
|
while (*q && *q++ == *p++) /* nothing */ ;
|
|
|
|
|
if (*q || *p != '=') continue;
|
1987-02-05 16:22:42 +00:00
|
|
|
return(p+1);
|
1987-01-27 15:57:55 +00:00
|
|
|
}
|
|
|
|
|
return(0);
|
|
|
|
|
}
|
