constructor: the constructor will add certain commands to the interpreter
| 454 | |
| 455 | // constructor: the constructor will add certain commands to the interpreter |
| 456 | TclModelBuilder::TclModelBuilder(Domain &theDomain, Tcl_Interp *interp, int NDM, int NDF) |
| 457 | :ModelBuilder(theDomain), ndm(NDM), ndf(NDF), theInterp(interp) |
| 458 | { |
| 459 | theSections = new ArrayOfTaggedObjects(32); |
| 460 | theSectionRepresents = new ArrayOfTaggedObjects(32); |
| 461 | theYieldSurface_BCs = new ArrayOfTaggedObjects(32); |
| 462 | theCycModels = new ArrayOfTaggedObjects(32); //!! |
| 463 | theYS_EvolutionModels = new ArrayOfTaggedObjects(32); |
| 464 | thePlasticMaterials = new ArrayOfTaggedObjects(32); |
| 465 | |
| 466 | // call Tcl_CreateCommand for class specific commands |
| 467 | Tcl_CreateCommand(interp, "parameter", TclCommand_addParameter, |
| 468 | (ClientData)NULL, NULL); |
| 469 | |
| 470 | Tcl_CreateCommand(interp, "addToParameter", TclCommand_addParameter, |
| 471 | (ClientData)NULL, NULL); |
| 472 | |
| 473 | Tcl_CreateCommand(interp, "updateParameter", TclCommand_addParameter, |
| 474 | (ClientData)NULL, NULL); |
| 475 | |
| 476 | Tcl_CreateCommand(interp, "node", TclCommand_addNode, |
| 477 | (ClientData)NULL, NULL); |
| 478 | |
| 479 | Tcl_CreateCommand(interp, "element", TclCommand_addElement, |
| 480 | (ClientData)NULL, NULL); |
| 481 | |
| 482 | Tcl_CreateCommand(interp, "IGA", TclCommand_IGA, |
| 483 | (ClientData)NULL, NULL); |
| 484 | |
| 485 | Tcl_CreateCommand(interp, "mesh", TclCommand_mesh, |
| 486 | (ClientData)NULL, NULL); |
| 487 | Tcl_CreateCommand(interp, "remesh", TclCommand_remesh, |
| 488 | (ClientData)NULL, NULL); |
| 489 | #if defined(OPSDEF_Element_PFEM) |
| 490 | Tcl_CreateCommand(interp, "background", &TclCommand_backgroundMesh, |
| 491 | (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); |
| 492 | #endif // _OPS_Element_PFEM |
| 493 | |
| 494 | Tcl_CreateCommand(interp, "uniaxialMaterial", TclCommand_addUniaxialMaterial, |
| 495 | (ClientData)NULL, NULL); |
| 496 | |
| 497 | Tcl_CreateCommand(interp, "beamIntegration", TclCommand_addBeamIntegration, |
| 498 | (ClientData)NULL, NULL); |
| 499 | |
| 500 | Tcl_CreateCommand(interp, "limitCurve", TclCommand_addLimitCurve, |
| 501 | (ClientData)NULL, NULL); |
| 502 | |
| 503 | Tcl_CreateCommand(interp, "nDMaterial", TclCommand_addNDMaterial, |
| 504 | (ClientData)NULL, NULL); |
| 505 | |
| 506 | Tcl_CreateCommand(interp, "section", TclCommand_addSection, |
| 507 | (ClientData)NULL, NULL); |
| 508 | |
| 509 | Tcl_CreateCommand(interp, "yieldSurface_BC", TclCommand_addYieldSurface_BC, |
| 510 | (ClientData)NULL, NULL); |
| 511 | |
| 512 | Tcl_CreateCommand(interp, "ysEvolutionModel", TclCommand_addYS_EvolutionModel, |
| 513 | (ClientData)NULL, NULL); |
nothing calls this directly
no test coverage detected