Return to putenv.c CVS log

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

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

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