getenvc.h File Reference

#include "machine.h"
#include "sciprint.h"

Include dependency graph for getenvc.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
void C2F()	getenvc (int *ierr, char *var, char *buf, int *buflen, int *iflag)

---

Function Documentation

void C2F() getenvc	(	int *	ierr,
		char *	var,
		char *	buf,
		int *	buflen,
		int *	iflag
	)

Retrieve a system variable

Parameters:

[out]	ierr	the error code
[in]	var	the name of the variable
[out]	buf	the value of the variable
[out]	buflen	the length of the variable
[in]	iflag

Definition at line 13 of file getenvc.c.

References buf, buflen, getenv(), ierr, iflag, and sciprint().

Referenced by getcomp(), GetenvB(), gettmpdir(), SetSci(), and setSCIHOME().

{
        #ifdef _MSC_VER
        if (GetEnvironmentVariable(var,buf,(DWORD)buflen)==0)
        {
                if ( *iflag == 1 ) sciprint("You must define the environment variable %s\r\n",var);
                *ierr=1;
        }
        else
        {
                *buflen = strlen(buf);
                *ierr=0;
        }
        #else
        char *local;
        if ( (local=getenv(var)) == 0)
        {
                if ( *iflag == 1 ) sciprint("You must define the environment variable %s\r\n",var);
                *ierr=1;
        }
        else 
        {
                strncpy(buf,local,*buflen);
                *buflen = strlen(buf);
                *ierr=0;
        }
        #endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

---