home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 316 / libsrc / env.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-10-20  |  667 b   |  41 lines
  1.  
  2. /* stuff for reading env vars sent in by Gulam */
  3.  
  4. extern char ** environ;
  5.  
  6. char * env_value (tag)
  7. char * tag;
  8. /* (declare (values string-or-nil)) */
  9. {
  10. /* the old way...
  11.   char * s;
  12.  
  13.   for (s = *environ ; s && (strlen(s) > 0) ; )
  14.     if (!strncmp(s, tag, strlen(tag)))
  15.         {
  16.         return(s + strlen(tag) + 1);
  17.         }
  18.         else
  19.         {
  20.         s = s + strlen(s) + 1;
  21.         }
  22. */
  23.   char ** var;
  24.   char * name;
  25.  
  26.   for (var = environ ; name = *var ; var++)
  27.     {
  28.     if ((!strncmp(name, tag, strlen(tag))) 
  29.         && (name[strlen(tag)] == '='))
  30.         return(name + strlen(tag) + 1);
  31.     }
  32. /* */
  33.   return(0);
  34. }
  35.  
  36. char * getenv(tag)
  37. char * tag;
  38. {
  39.   return(env_value(tag));
  40. }
  41.