Function TclCommand_addFiberSection

SRC/runtime/commands/modeling/section.cpp:646–817

}

int
TclCommand_addFiberSection(ClientData clientData, Tcl_Interp *interp, int argc,
                           TCL_Char ** const argv)
{
  assert(clientData != nullptr);
  BasicModelBuilder* builder = static_cast<BasicModelBuilder*>(clientData);

  // Check if we are being invoked from Python or Tcl
  bool openseespy = false;
  if (Tcl_GetVar(interp, "opensees::pragma::openseespy", 0) != nullptr) { 
    openseespy = true;
  }

  int ndm = builder->getNDM();

  // cmp - Check argument counts; In Tcl we require the brace argument
  //       in Python it can be omitted, but only for legacy reasons
  if (argc < 4 && !openseespy) {
    opserr << "Insufficient arguments, expected at least 4\n";
    return TCL_ERROR;
  }
  else if (argc < 3 && openseespy) {
    opserr << "Insufficient arguments, expected at least 3\n";
    return TCL_ERROR;
  }


  int secTag;
  if (Tcl_GetInt(interp, argv[2], &secTag) != TCL_OK) {
    opserr << OpenSees::PromptValueError 
           << "failed to parse section tag \"" << argv[2] << "\""
           << OpenSees::SignalMessageEnd;
    return TCL_ERROR;
  }

  builder->setCurrentSectionBuilder(secTag);

  FiberSectionConfig options;
  if (strcmp(argv[1], "NDFiber") == 0 ||
      strcmp(argv[1], "ShearFiber") == 0)
    options.isND = true;

  if (strcmp(argv[1], "NDFiberWarping") == 0) {
    options.isND = true;
    options.isWarping = true;
  }
  else if (strcmp(argv[1], "FrameFiber") == 0 ||
           strcmp(argv[1], "FiberFrame") == 0 ||
           strcmp(argv[1], "AxialFiber") == 0 ||
           strcmp(argv[1], "ShearFiber") == 0 
    )
    options.isNew = true;

  else if (strcmp(argv[1], "FiberThermal") == 0 ||
            strcmp(argv[1], "fiberSecThermal") == 0)
    options.isThermal = true;

  else if (strstr(argv[1], "Asym") != nullptr)