model_server/gala/src/dis_cmds.cxx
//returns 0 for ok, 1 for not ok
returns 0 for ok, 1 for not ok
returns 0 for ok 1 for not ok
static int licenseCheck(const char * layer, Tcl_Interp* interp)
{
	int nRet=0;
	int must_check=0;
	gString lchkfunc;
	if (layer)
	{
		if (strcmp(layer, "EvaluatorNT")==0)
		{
			lchkfunc="license VI1 co";
			must_check=1;
		}
	}
	if (must_check)
	{
#ifdef WIN32
		gString cmd="dis_client_access_eval \"";
#else
		gString cmd="dis_aset_eval_cmd \"";
#endif
		cmd+=lchkfunc;
		cmd+="\"";
		Tcl_Eval(interp, cmd);
		if (strcmp(Tcl_GetStringResult(interp),"0")==0)
		{
			nRet=1;
		}
	}
	return nRet;
}
static int licenseCheck ( const char * layer , Tcl_Interp * interp ) { int nRet = 0 ; int must_check = 0 ; gString lchkfunc ; if ( layer ) { if ( strcmp ( layer , " " ) == 0 ) { lchkfunc = " " ; must_check = 1 ; } } if ( must_check ) { #ifdef WIN32 gString cmd = " \" " ; #else gString cmd = " \" " ; #endif cmd += lchkfunc ; cmd += " \" " ; Tcl_Eval ( interp , cmd ) ; if ( strcmp ( Tcl_GetStringResult ( interp ) , " " ) == 0 ) { nRet = 1 ; } } return nRet ; }
returns 0 for ok, 1 for not ok
returns 0 for ok 1 for not ok
//else if .... // dis_blah "yourfunction", which returns 0 if unsuccessful. //because of the nt/unix differences  <sigh>