30 lines
439 B
C
30 lines
439 B
C
#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;
|
|
}
|