/* * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands. * See the copyright notice in the ACK home directory, in the file "Copyright". */ /* $Id$ */ #include #include char * getenv(const char *name) { register char **v = environ; register const char *p, *q; if (v == NULL || name == NULL) return (char *)NULL; while ((p = *v++) != NULL) { q = name; while (*q && (*q == *p++)) q++; if (*q || (*p != '=')) continue; return (char *)p + 1; } return (char *)NULL; }