Function TclAddRecorder

SRC/recorder/TclRecorderCommands.cpp:2111–2143

int 
TclAddRecorder(ClientData clientData, Tcl_Interp *interp, int argc, 
	       TCL_Char **argv, Domain &theDomain)
{
  Recorder *theRecorder =0;

  TclCreateRecorder(clientData, interp, argc, argv, theDomain, &theRecorder);
  
  if (theRecorder == 0) {

    char buffer[] = "-1";
    Tcl_SetResult(interp, buffer, TCL_VOLATILE);
    //sprintf(interp->result,"-1");
    return TCL_ERROR;
  }

  if ((theDomain.addRecorder(*theRecorder)) < 0) {
    opserr << "WARNING could not add to domain - recorder " << argv[1]<< endln;
    delete theRecorder;
    char buffer[] = "-1";
    Tcl_SetResult(interp, buffer, TCL_VOLATILE);
    //    sprintf(interp->result,"-1");
    return TCL_ERROR;
  } 
  
  int recorderTag = theRecorder->getTag();
  char buffer[30];
  sprintf(buffer,"%d",recorderTag);
  Tcl_SetResult(interp, buffer, TCL_VOLATILE);
  //  sprintf(interp->result,"%d",recorderTag);
  
  return TCL_OK;
}


int