Return to getenv.c CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libc / gen

Annotation of coherent/b/lib/libc/gen/getenv.c, revision 1.1

1.1     ! root        1: 
        !             2: 
        !             3: /*
        !             4:  * search environment for name
        !             5:  * An environmental parameter is a string of the form "name=value".
        !             6:  * A pointer to the value is returned if the supplied argument matches the
        !             7:  * name, otherwise 0.  The value is not a copy, so alterations will be
        !             8:  * reflected in the environment.  Bogus parameters are ignored.
        !             9:  */
        !            10: char   *
        !            11: getenv( name)
        !            12: char   *name;
        !            13: {
        !            14:        register char   *p,
        !            15:                        *q,
        !            16:                        **ep;
        !            17:        extern char     **environ;
        !            18: 
        !            19:        ep = environ;
        !            20:        if (ep == ((char **)0))
        !            21:                return (((char *)0));
        !            22: 
        !            23:        while (p = *ep++) {
        !            24:                for (q=name; *q==*p++; ++q)
        !            25:                        if (*q == '\0')
        !            26:                                break;
        !            27:                if (*q=='\0' && p[-1]=='=')
        !            28:                        return (p);
        !            29:        }
        !            30: 
        !            31:        return (((char *)0));
        !            32: }

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