gala_clients/DIS_group/src/GroupApp.cxx
//
// Send a command to the interpreter and store the result:
//
Send a command to the interpreter and store the result.
Send a command to the interpreter and store the result .
int GroupApp::SendCommand(const char *command, char *&result)
{
  Initialize(GroupApp::SendCommand);
  genString fullCommand;
  fullCommand.printf("%s {%s}", apiCmd, command);
  if (debugLevel > 0)
     OSapi_printf("GroupApp: Sending command: \"%s\".\n", (char *)fullCommand);
  call_cli_callback(NULL, (const char *)fullCommand, NULL, NULL);
  result = Tcl_GetStringResult(interpreter_instance->interp);
  if(interpreter_instance->code == TCL_ERROR)
    NotifyTclError();
  return interpreter_instance->code;
}
int GroupApp :: SendCommand ( const char * command , char * & result ) { Initialize ( GroupApp :: SendCommand ) ; genString fullCommand ; fullCommand . printf ( " " , apiCmd , command ) ; if ( debugLevel > 0 ) OSapi_printf ( " \" \" \n " , ( char * ) fullCommand ) ; call_cli_callback ( NULL , ( const char * ) fullCommand , NULL , NULL ) ; result = Tcl_GetStringResult ( interpreter_instance -> interp ) ; if ( interpreter_instance -> code == TCL_ERROR ) NotifyTclError ( ) ; return interpreter_instance -> code ; }
Send a command to the interpreter and store the result:
Send a command to the interpreter and store the result :
//  int code = dis_access_eval((char *)fullCommand, result); //  if (code == TCL_ERROR) //    NotifyTclError();