1 #include "env.h"

     2 #include "str.h"

     3 

     4 extern /*@null@*/char *env_get(s)

     5 char *s;

     6 {

     7   int i;

     8   unsigned int slen;

     9   char *envi;

    10  

    11   slen = str_len(s);

    12   for (i = 0;envi = environ[i];++i)

    13     if ((!str_diffn(s,envi,slen)) && (envi[slen] == '='))

    14       return envi + slen + 1;

    15   return 0;

    16 }

    17 

    18 extern char *env_pick()

    19 {

    20   return environ[0];

    21 }

    22 

    23 extern char *env_findeq(s)

    24 char *s;

    25 {

    26   for (;*s;++s)

    27     if (*s == '=')

    28       return s;

    29   return 0;

    30 }