Function TclCommand_addPattern

SRC/runtime/commands/domain/loading/pattern.cpp:84–745

This command creates a scope where the following commands behave differently: - load - sp

// - load
// - sp
int
TclCommand_addPattern(ClientData clientData, Tcl_Interp *interp, int argc,
                      TCL_Char ** const argv)
{
  assert(clientData != nullptr);
  BasicModelBuilder *builder = static_cast<BasicModelBuilder*>(clientData);
  Domain* domain = builder->getDomain();
  LoadPattern *thePattern = nullptr;

  // make sure at least one other argument to contain integrator
  if (argc < 3) {
    opserr << OpenSees::PromptValueError << "invalid command - want: pattern type ";
    opserr << " <type args> {list of load and sp constraints commands}\n";
    opserr << "           valid types: Plain, UniformExcitation, MultiSupport\n";
    return TCL_ERROR;
  }

  int commandEndMarker = 3;

  TimeSeries *theSeries = nullptr;

  int patternID;
  if (Tcl_GetInt(interp, argv[2], &patternID) != TCL_OK) {
    opserr << OpenSees::PromptValueError << "invalid patternID: " << argv[2] << "\n";
    return TCL_ERROR;
  }

  if (strcmp(argv[1], "Plain") == 0) {
    if (argc < 4) {
        opserr << OpenSees::PromptValueError << "Invalid command for Plain pattern.\n";
        return TCL_ERROR;
    }

    double fact = 1.0;
    const char* series_arg = nullptr;

    while (commandEndMarker < argc) {
      if ((strcmp(argv[commandEndMarker], "-fact") == 0) ||
          (strcmp(argv[commandEndMarker], "-factor") == 0)) {

        if (Tcl_GetDouble(interp, argv[++commandEndMarker], &fact) != TCL_OK) {
          opserr << OpenSees::PromptValueError
                 << "invalid factor: " << argv[commandEndMarker] << "\n";
          return TCL_ERROR;
        }
        commandEndMarker++;

      } else if (series_arg == nullptr) {
        series_arg = argv[commandEndMarker];
        commandEndMarker++;

      } else {
        break;
      }
    }

    thePattern = new LoadPattern(patternID, fact);
    theSeries = TclSeriesCommand(clientData, interp, series_arg);