Return to getenv.c CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / pi / pil

Annotation of researchv10dc/cmd/icon/pi/pil/getenv.c, revision 1.1

1.1     ! root        1: /*
        !             2:  *     GETENV
        !             3:  *
        !             4:  *     Get values of environment variables.
        !             5:  *
        !             6:  *     Stephen B. Wampler
        !             7:  *
        !             8:  *     Last modified 5/2/86 by Ralph E. Griswold
        !             9:  *
        !            10:  */
        !            11: 
        !            12: #include "../h/rt.h"
        !            13: 
        !            14: /*
        !            15:  * getenv(s) - return contents of environment variable s
        !            16:  */
        !            17: 
        !            18: FncDcl(getenv,1)
        !            19:    {
        !            20:    register char *p;
        !            21:    register int len;
        !            22:    char sbuf[256];
        !            23:    extern char *getenv();
        !            24:    extern char *alcstr();
        !            25: 
        !            26: 
        !            27:    if (!Qual(Arg1))                    /* check legality of argument */
        !            28:       runerr(103, &Arg1);
        !            29:    if (StrLen(Arg1) <= 0 || StrLen(Arg1) >= MaxCvtLen)
        !            30:       runerr(401, &Arg1);
        !            31:    qtos(&Arg1, sbuf);                  /* convert argument to C-style string */
        !            32: 
        !            33:    if ((p = getenv(sbuf)) != NULL) {   /* get environment variable */
        !            34:       len = strlen(p);
        !            35:       strreq(len);
        !            36:       StrLen(Arg0) = len;
        !            37:       StrLoc(Arg0) = alcstr(p, len);
        !            38:       Return;
        !            39:       }
        !            40:    else                                        /* fail if variable not in environment */
        !            41:       Fail;
        !            42:    }

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