Function TclAddAlgorithmRecorder

SRC/recorder/TclRecorderCommands.cpp:2146–2179

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

  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;
  } 

  // add the recorder to the domain, 
  // NOTE: will not be called with theALgo == 0
  // see ~/g3/SRC/tcl/commands.C file
  if (theAlgorithm != 0) {
    if ((theAlgorithm->addRecorder(*theRecorder)) < 0) {
      opserr << "WARNING could not add to domain - recorder " << argv[1]<< endln;
      delete theRecorder;
      return TCL_ERROR;
    }
  }

  int recorderTag = theRecorder->getTag();
  char buffer[30];
  sprintf(buffer,"%d",recorderTag);    
  Tcl_SetResult(interp, buffer, TCL_VOLATILE);

  return TCL_OK;
}