/* see env.c */

#include "env.h"
#include "str.h"

extern char *env_get(s)
char *s;
{
 int i;
 int slen;
 char *envi;

 slen = str_len(s);
 for (i = 0;envi = environ[i];++i)
   if ((!str_diffn(s,envi,slen)) && (envi[slen] == '='))
     return envi + slen + 1;
 return 0;
}

extern char *env_pick()
{
 return environ[0];
}

extern char *env_findeq(s)
char *s;
{
 for (;*s;++s)
   if (*s == '=')
     return s;
 return 0;
}