#include "sys_defs.h"
#ifdef MISSING_SETENV_PUTENV
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
extern char **environ;
static int addenv(char *);
static int allocated = 0;
#define DO_CLOBBER 1
static ssize_t namelength(const char *name)
{
char *equal;
equal = strchr(name, '=');
return ((equal == 0) ? strlen(name) : (equal - name));
}
static char **findenv(const char *name, ssize_t len)
{
char **envp;
for (envp = environ; envp && *envp; envp++)
if (strncmp(name, *envp, len) == 0 && (*envp)[len] == '=')
return (envp);
return (0);
}
#if 0
char *getenv(const char *name)
{
ssize_t len = namelength(name);
char **envp = findenv(name, len);
return (envp ? *envp + len + 1 : 0);
}
int putenv(const char *nameval)
{
char *equal = strchr(nameval, '=');
char *value = (equal ? equal : "");
return (setenv(nameval, value, DO_CLOBBER));
}
void unsetenv(const char *name)
{
char **envp;
while ((envp = findenv(name, namelength(name))) != 0)
while (envp[0] = envp[1])
envp++;
}
#endif
int setenv(const char *name, const char *value, int clobber)
{
char *destination;
char **envp;
ssize_t l_name;
unsigned int l_nameval;
l_name = namelength(name);
envp = findenv(name, l_name);
if (envp != 0 && clobber == 0)
return (0);
if (*value == '=')
value++;
l_nameval = l_name + strlen(value) + 1;
destination = (envp != 0 && strlen(*envp) >= l_nameval) ?
*envp : malloc(l_nameval + 1);
if (destination == 0)
return (-1);
strncpy(destination, name, l_name);
destination[l_name] = '=';
strlcpy(destination + l_name + 1, value, l_nameval - l_name);
return ((envp == 0) ? addenv(destination) : (*envp = destination, 0));
}
static char *cmalloc(ssize_t new_len, char *old, ssize_t old_len)
{
char *new = malloc(new_len);
if (new != 0)
memcpy(new, old, old_len);
return (new);
}
static int addenv(char *nameval)
{
char **envp;
ssize_t n_used;
ssize_t l_used;
ssize_t l_need;
for (envp = environ; envp && *envp; envp++)
;
n_used = envp - environ;
l_used = n_used * sizeof(*envp);
l_need = l_used + 2 * sizeof(*envp);
envp = allocated ?
(char **) realloc((char *) environ, l_need) :
(char **) cmalloc(l_need, (char *) environ, l_used);
if (envp == 0) {
return (-1);
} else {
allocated = 1;
environ = envp;
environ[n_used++] = nameval;
environ[n_used] = 0;
return (0);
}
}
#endif