model_server/gala/src/dis_cmds.cxx
//
// Local Eval - evaluates the command in the specified LOCAL service
// Note:  This is a cludge to allow UI in the pset_server executable and still
//        call entry-point functions previously only allowed from the client.
//
Local Eval - evaluates the command in the specified LOCAL service
Note:  This is a cludge to allow UI in the pset_server executable and still
call entry-point functions previously only allowed from the client.
Local Eval - evaluates the command in the specified LOCAL service Note : This is a cludge to allow UI in the pset_server executable and still call entry - point functions previously only allowed from the client .
int leval (ClientData, Tcl_Interp* interp, int argc, char *argv[])
{
    if (argc != 3) TCL_EXECERR ("wrong number of arguments");
    vstr *result;
    result = server_eval ( 	(vstr*) argv[1], 
				(vstr *)argv[2]);
    Tcl_SetResult (interp, (char*)(vchar*)result, TCL_VOLATILE);
    return TCL_OK;
}
int leval ( ClientData , Tcl_Interp * interp , int argc , char * argv [ ] ) { if ( argc != 3 ) TCL_EXECERR ( " " ) ; vstr * result ; result = server_eval ( ( vstr * ) argv [ 1 ] , ( vstr * ) argv [ 2 ] ) ; Tcl_SetResult ( interp , ( char * ) ( vchar * ) result , TCL_VOLATILE ) ; return TCL_OK ; }
Local Eval - evaluates the command in the specified LOCAL service
Note:  This is a cludge to allow UI in the pset_server executable and still
call entry-point functions previously only allowed from the client.
Local Eval - evaluates the command in the specified LOCAL service Note : This is a cludge to allow UI in the pset_server executable and still call entry - point functions previously only allowed from the client .