Function TclPatternCommand

SRC/domain/pattern/TclPatternCommand.cpp:91–915

int
TclPatternCommand(ClientData clientData, Tcl_Interp *interp,
                  int argc, TCL_Char **argv, Domain *theDomain)
{
  LoadPattern *thePattern = 0;

  // make sure at least one other argument to contain integrator
  if (argc < 4) {
    opserr << "WARNING 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;
  } 

  
  TimeSeries *theSeries = 0;
  int patternID =0;
  
  if (Tcl_GetInt(interp, argv[2], &patternID) != TCL_OK) {
    opserr << "WARNING invalid patternID: pattern type " << argv[2]
    << "<type args>\n";
    return TCL_ERROR;
  }

  int  commandEndMarker = 0;

  if (strcmp(argv[1],"Plain") == 0) {

    double fact = 1.0;
    if (argc==7 && ((strcmp(argv[4],"-fact") == 0) ||
        (strcmp(argv[4],"-factor") == 0))) {
            if (Tcl_GetDouble(interp, argv[5], &fact) != TCL_OK) {
                opserr << "WARNING invalid fact: pattern type Plain\n";
                return TCL_ERROR;
            }
    }
    thePattern = new LoadPattern(patternID,fact);
    theSeries = TclSeriesCommand(clientData, interp, argv[3]);
    
    if (thePattern == 0 || theSeries == 0) {

    if (thePattern == 0) {
        opserr << "WARNING - out of memory creating LoadPattern ";
        opserr << patternID << endln;
    } else {
        opserr << "WARNING - problem creating TimeSeries for LoadPattern ";
        opserr << patternID << endln;
    }

    // clean up the memory and return an error
    if (thePattern != 0)
        delete thePattern;
    if (theSeries != 0)
        delete theSeries;
    return TCL_ERROR;
      }

      thePattern->setTimeSeries(theSeries);