Return to putenv.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / mh / sbr

Annotation of 43BSDReno/contrib/mh/sbr/putenv.c, revision 1.1.1.1

1.1       root        1: /* putenv.c - (un) set an envariable */
                      2: 
                      3: #include "../h/mh.h"
                      4: #include <stdio.h>
                      5: 
                      6: 
                      7: extern  char **environ;
                      8: 
                      9: static int nvmatch();
                     10: 
                     11: 
                     12: int
                     13: putenv(name, value)
                     14:        register char *name, *value;
                     15: {
                     16:     register int    i;
                     17:     register char **ep,
                     18:                   **nep,
                     19:                    *cp;
                     20: 
                     21:     if ((cp = malloc ((unsigned) (strlen (name) + strlen (value) + 2)))
                     22:            == NULL)
                     23:        return 1;
                     24:     (void) sprintf (cp, "%s=%s", name, value);
                     25: 
                     26:     for (ep = environ, i = 0; *ep; ep++, i++)
                     27:        if (nvmatch (name, *ep)) {
                     28:            *ep = cp;
                     29:            return 0;
                     30:        }
                     31: 
                     32:     if ((nep = (char **) malloc ((unsigned) ((i + 2) * sizeof *nep))) == NULL)
                     33:        return 1;
                     34:     for (ep = environ, i = 0; *ep; nep[i++] = *ep++)
                     35:        continue;
                     36:     nep[i++] = cp;
                     37:     nep[i] = NULL;
                     38:     environ = nep;
                     39:     return 0;
                     40: }
                     41: 
                     42: int
                     43: unputenv(name)
                     44:        char *name;
                     45: {
                     46:     char  **ep,
                     47:           **nep;
                     48: 
                     49:     for (ep = environ; *ep; ep++)
                     50:        if (nvmatch (name, *ep))
                     51:            break;
                     52:     if (*ep == NULL)
                     53:        return 1;
                     54: 
                     55:     for (nep = ep + 1; *nep; nep++)
                     56:        continue;
                     57:     *ep = *--nep;
                     58:     *nep = NULL;
                     59:     return 0;
                     60: }
                     61: 
                     62: /*  */
                     63: 
                     64: static int
                     65: nvmatch(s1, s2)
                     66:        register char *s1, *s2;
                     67: {
                     68:     while (*s1 == *s2++)
                     69:        if (*s1++ == '=')
                     70:            return 1;
                     71: 
                     72:     return (*s1 == '\0' && *--s2 == '=');
                     73: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.