00001 int 00002 inenv(s) 00003 char *s; 00004 { 00005 extern char *getenv(); 00006 00007 return getenv(s) != (char *) 0; 00008 }