Return to getenv.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / pifuncs

Annotation of 43BSD/contrib/icon/pifuncs/getenv.c, revision 1.1

1.1     ! root        1: /*
        !             2: #      GETENV(3.icon)
        !             3: #
        !             4: #      Get contents of environment variables
        !             5: #
        !             6: #      Stephen B. Wampler
        !             7: #
        !             8: #      Last modified 8/19/84
        !             9: #
        !            10: */
        !            11: 
        !            12: #include "../h/rt.h"
        !            13: 
        !            14: /*
        !            15:  * getenv(s) - return contents of environment variable s
        !            16:  */
        !            17: 
        !            18: Xgetenv(nargs, arg1, arg0)
        !            19: int nargs;
        !            20: struct descrip arg1, arg0;
        !            21:    {
        !            22:    register char *p;
        !            23:    register int len;
        !            24:    char sbuf[MAXSTRING];
        !            25:    extern char *getenv();
        !            26:    extern char *alcstr();
        !            27: 
        !            28:    DeRef(arg1)
        !            29: 
        !            30:    if (!QUAL(arg1))                    /* check legality of argument */
        !            31:       runerr(103, &arg1);
        !            32:    if (STRLEN(arg1) <= 0 || STRLEN(arg1) >= MAXSTRING)
        !            33:       runerr(401, &arg1);
        !            34:    qtos(&arg1, sbuf);                  /* convert argument to C-style string */
        !            35: 
        !            36:    if ((p = getenv(sbuf)) != NULL) {   /* get environment variable */
        !            37:       len = strlen(p);
        !            38:       sneed(len);
        !            39:       STRLEN(arg0) = len;
        !            40:       STRLOC(arg0) = alcstr(p, len);
        !            41:       }
        !            42:    else                                        /* fail if variable not in environment */
        !            43:       fail();
        !            44:    }
        !            45: 
        !            46: Procblock(getenv,-1)

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