getenv_.c File Reference

#include "f2c.h"
#include <stdlib.h>
#include <string.h>

Include dependency graph for getenv_.c:

Go to the source code of this file.

Functions
char *	F77_aloc (ftnlen, char *)
void	getenv_ (char *fname, char *value, ftnlen flen, ftnlen vlen)

---

Function Documentation

char* F77_aloc	(	ftnlen	,
		char *
	)

Definition at line 29 of file F77_aloc.c.

{
        char *rv;
        unsigned int uLen = (unsigned int) Len; /* for K&R C */

        if (!(rv = (char*)malloc(uLen))) {
                fprintf(stderr, "malloc(%u) failure in %s\n",
                        uLen, whence);
                exit_(&memfailure);
                }
        return rv;
        }

void getenv_	(	char *	fname,
		char *	value,
		ftnlen	flen,
		ftnlen	vlen
	)

Definition at line 31 of file getenv_.c.

References buf, F77_aloc(), free(), getenv(), and i.

{
        char buf[256], *ep, *fp;
        integer i;

        if (flen <= 0)
                goto add_blanks;
        for(i = 0; i < sizeof(buf); i++) {
                if (i == flen || (buf[i] = fname[i]) == ' ') {
                        buf[i] = 0;
                        ep = getenv(buf);
                        goto have_ep;
                        }
                }
        while(i < flen && fname[i] != ' ')
                i++;
        strncpy(fp = F77_aloc(i+1, "getenv_"), fname, (int)i);
        fp[i] = 0;
        ep = getenv(fp);
        free(fp);
 have_ep:
        if (ep)
                while(*ep && vlen-- > 0)
                        *value++ = *ep++;
 add_blanks:
        while(vlen-- > 0)
                *value++ = ' ';
        }

Here is the call graph for this function:

---