Return to getenv_.c CVS log

Up to [Research Unix] / researchv10no / libF77

Annotation of researchv10no/libF77/getenv_.c, revision 1.1

1.1     ! root        1: #include "f2c.h"
        !             2: 
        !             3: /*
        !             4:  * getenv - f77 subroutine to return environment variables
        !             5:  *
        !             6:  * called by:
        !             7:  *     call getenv (ENV_NAME, char_var)
        !             8:  * where:
        !             9:  *     ENV_NAME is the name of an environment variable
        !            10:  *     char_var is a character variable which will receive
        !            11:  *             the current value of ENV_NAME, or all blanks
        !            12:  *             if ENV_NAME is not defined
        !            13:  */
        !            14: 
        !            15: #ifdef KR_headers
        !            16: VOID getenv_(fname, value, flen, vlen) char *value, *fname; ftnlen vlen, flen;
        !            17: #else
        !            18: void getenv_(char *fname, char *value, ftnlen flen, ftnlen vlen)
        !            19: #endif
        !            20: {
        !            21: extern char **environ;
        !            22: register char *ep, *fp, *flast;
        !            23: register char **env = environ;
        !            24: 
        !            25: flast = fname + flen;
        !            26: for(fp = fname ; fp < flast ; ++fp)
        !            27:        if(*fp == ' ')
        !            28:                {
        !            29:                flast = fp;
        !            30:                break;
        !            31:                }
        !            32: 
        !            33: while (ep = *env++)
        !            34:        {
        !            35:        for(fp = fname; fp<flast ; )
        !            36:                if(*fp++ != *ep++)
        !            37:                        goto endloop;
        !            38: 
        !            39:        if(*ep++ == '=') {      /* copy right hand side */
        !            40:                while( *ep && --vlen>=0 )
        !            41:                        *value++ = *ep++;
        !            42: 
        !            43:                goto blank;
        !            44:                }
        !            45: endloop: ;
        !            46:        }
        !            47: 
        !            48: blank:
        !            49:        while( --vlen >= 0 )
        !            50:                *value++ = ' ';
        !            51: }

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