Function TclCreateRecorder

SRC/runtime/commands/domain/recorder.cpp:376–1351

}

static int
TclCreateRecorder(ClientData clientData, Tcl_Interp *interp, int argc,
                  TCL_Char ** const argv, Domain &theDomain, Recorder **theRecorder)
{
  assert(clientData != nullptr);
  Domain* domain = static_cast<Domain*>(clientData);
  // BasicModelBuilder *builder = static_cast<BasicModelBuilder*>(clientData);
  // Domain* domain = builder->getDomain();
  G3_Runtime *rt = G3_getRuntime(interp);
  (*theRecorder) = nullptr;

  // make sure at least one other argument to contain integrator
  if (argc < 2) {
    opserr << "WARNING need to specify a Recorder type\n";
    return TCL_ERROR;
  }

  //
  // check argv[1] for type of Recorder, parse in rest of arguments
  // needed for the type of Recorder, create the object and add to Domain
  //
  OPS_Stream   *theOutputStream     = nullptr;

  // an Element Recorder or ElementEnvelope Recorder
  if ((strcmp(argv[1], "Element") == 0) ||
      (strcmp(argv[1], "EnvelopeElement") == 0) ||
      (strcmp(argv[1], "NormElement") == 0) ||
      (strcmp(argv[1], "NormEnvelopeElement") == 0)) {

    OutputOptions options;
    std::vector<int> unused;

    int numEle = 0;
    int endEleIDs = 2;
    double dT   = 0.0;
    double rTolDt = 1e-5;
    bool echoTime = false;
    int loc = endEleIDs;
    ID *eleIDs  = 0;

    ID *specificIndices = nullptr;

    while (loc < argc) {
      int consumed;
      if ((consumed = parseOutputOption(&options, interp, argc-loc, &argv[loc])) != 0) {
        if (consumed > 0)
          loc += consumed;
        else
          return TCL_ERROR;
      }

      else if (strcmp(argv[loc], "-rTolDt") == 0) {
        loc++;
        if (loc == argc) {
          opserr << OpenSees::PromptValueError << "flag -rTolDt is missing required argument\n";
          return TCL_ERROR;
        }
        if (Tcl_GetDouble(interp, argv[loc], &rTolDt) != TCL_OK)