#include "env.h"

#include "str.h"

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

char *s;

{

  int i;

  unsigned 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;

}