Function TclCommand_specifyModel

SRC/runtime/commands/modeling/model.cpp:49–185

// 
int
TclCommand_specifyModel(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char *argv[])
{
  G3_Runtime *rt = G3_getRuntime(interp);
  Domain *theNewDomain = (Domain*)clientData;

  BasicModelBuilder *theNewBuilder = nullptr;

  //
  //
  //
  if (clientData == nullptr) {
    theNewDomain = new Domain();

    // TODO: remove ops_TheActiveDomain
    ops_TheActiveDomain = theNewDomain;

    Tcl_CreateCommand(interp, "model", &TclCommand_specifyModel, theNewDomain, nullptr);

    G3_AddTclDomainCommands(interp, theNewDomain);
  }


  // make sure at least one other argument to contain model builder type given
  if (argc < 2) {
    opserr << OpenSees::PromptValueError << "need to specify a model type, valid types:\n";
    opserr << "\tBasicBuilder\n";
    return TCL_ERROR;
  }

  // check argv[1] for type of ModelBuilder and create the object
  if ((strcmp(argv[1], "basic") == 0)        ||
      (strcmp(argv[1], "Basic") == 0)        ||
      (strcmp(argv[1], "-ndm") == 0)         ||
      (strcmp(argv[1], "BasicBuilder") == 0) ||
      (strcmp(argv[1], "basicBuilder") == 0)) {

    if (argc < 3) {
      opserr << OpenSees::PromptValueError 
             << "incorrect number of arguments\n";
      return TCL_ERROR;
    }
    int ndm = 0;
    int ndf = 0;

    int posArg = 1; // track positional argument
    int argPos = 2;
    while (argPos < argc) {
      if (strcmp(argv[argPos], "-ndm") == 0 ||
          strcmp(argv[argPos], "-NDM") == 0) {
        argPos++;
        if (argPos < argc) {
          if (Tcl_GetInt(interp, argv[argPos], &ndm) != TCL_OK) {
            opserr << OpenSees::PromptValueError 
                   << "error reading ndm, got '" << argv[argPos] << "'\n";
            return TCL_ERROR;
          }
        }