setenvtcl.c File Reference

#include "TCL_Global.h"
#include "setenvtcl.h"

Include dependency graph for setenvtcl.c:

Go to the source code of this file.

Functions
int	setenvtcl (char *string, char *value)

---

Function Documentation

int setenvtcl	(	char *	string,
		char *	value
	)

TODO : comment

Parameters:

	string
	value

Returns:

Definition at line 8 of file setenvtcl.c.

{
        int bOK=FALSE;
        char MyTclCommand[2048];

        sprintf(MyTclCommand,"env(%s)",string);

        if (TCLinterp==NULL) return((int)FALSE);
        
        if ( !Tcl_SetVar(TCLinterp,MyTclCommand, value, TCL_GLOBAL_ONLY) )
        {
                bOK=(int)(FALSE);
        }
        else
        {
                bOK=(int)(TRUE);
        }

        return bOK;
}

---