Function TclCommand_addElement

SRC/runtime/commands/modeling/element.cpp:114–493

int
TclCommand_addElement(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char ** const argv)
{
  G3_Runtime *rt = G3_getRuntime(interp);
  TclBasicBuilder *theTclBuilder = (TclBasicBuilder*)G3_getSafeBuilder(rt);

  assert(clientData != nullptr);
  BasicModelBuilder *builder = static_cast<BasicModelBuilder*>(clientData);
  Domain *theTclDomain = builder->getDomain();

  OPS_ResetInputNoBuilder(clientData, interp, 2, argc, argv, theTclDomain);

  if (argc < 2) {
    opserr << OpenSees::PromptValueError 
           << "Missing element type"
           << OpenSees::SignalMessageEnd;
    return TCL_ERROR;
  }

  void* theEle = nullptr;
  Element *theElement = nullptr;
  int ndm = builder->getNDM();

  auto cmd = element_dispatch.find(std::string(argv[1]));
  if (cmd != element_dispatch.end()) {
    theEle = (*cmd->second)(rt, argc, &argv[0]);
  }

  // Try Tcl element library
  auto tcl_cmd = element_dispatch_tcl.find(std::string(argv[1]));
  if (tcl_cmd != element_dispatch_tcl.end()) {
    return (*tcl_cmd->second)(clientData, interp, argc, &argv[0]);
  }

  else if ((strcasecmp(argv[1], "elasticBeamColumn") == 0) ||
           (strcasecmp(argv[1], "elasticBeam") == 0)  ||
           (strcasecmp(argv[1], "PrismFrame") == 0)) {

    return TclBasicBuilder_addElasticBeam(clientData, interp, argc, argv);
  }

  else if (strcasecmp(argv[1], "PML") == 0) {
    if (ndm == 2)
      theEle = OPS_PML2D(rt, argc, argv);
    else
      theEle = OPS_PML3D(rt, argc, argv);
  }

#if defined(_HAVE_LHNMYS) || defined(OPSDEF_ELEMENT_LHNMYS)
  else if (strcmp(argv[1], "beamColumn2DwLHNMYS") == 0) {
    theEle = OPS_BeamColumn2DwLHNMYS(rt, argc, argv);

  } else if (strcmp(argv[1], "beamColumn2dDamage") == 0) {
    theEle = OPS_Beam2dDamage(rt, argc, argv);

  } else if (strcmp(argv[1], "beamColumn2DwLHNMYS_Damage") == 0) {
    theEle = OPS_BeamColumn2DwLHNMYS_Damage(rt, argc, argv);