getenv.c 303 B

12345678910111213141516
  1. /* $Id$ */
  2. char *getenv(name)
  3. register char *name;
  4. {
  5. extern char **environ;
  6. register char **v = environ, *p, *q;
  7. if (v == 0 || name == 0) return 0;
  8. while ((p = *v++) != 0) {
  9. q = name;
  10. while (*q && *q++ == *p++) /* nothing */ ;
  11. if (*q || *p != '=') continue;
  12. return(p+1);
  13. }
  14. return(0);
  15. }