| 679 | } |
| 680 | |
| 681 | TclModelBuilder::~TclModelBuilder() |
| 682 | { |
| 683 | |
| 684 | OPS_clearAllTimeSeries(); |
| 685 | // OPS_clearAllUniaxialMaterial(); |
| 686 | // OPS_clearAllNDMaterial(); |
| 687 | // OPS_clearAllSectionForceDeformation(); |
| 688 | |
| 689 | OPS_clearAllCrdTransf(); |
| 690 | OPS_clearAllDamping(); |
| 691 | OPS_clearAllFrictionModel(); |
| 692 | OPS_clearAllLimitCurve(); |
| 693 | OPS_clearAllDamageModel(); |
| 694 | OPS_clearAllFrictionModel(); |
| 695 | OPS_clearAllHystereticBackbone(); |
| 696 | // OPS_clearAllNDMaterial(); |
| 697 | |
| 698 | OPS_clearAllBeamIntegrationRule(); |
| 699 | |
| 700 | theSections->clearAll(); |
| 701 | theSectionRepresents->clearAll(); |
| 702 | theYieldSurface_BCs->clearAll(); |
| 703 | theYS_EvolutionModels->clearAll(); |
| 704 | thePlasticMaterials->clearAll(); |
| 705 | theCycModels->clearAll();//!! |
| 706 | // free up memory allocated in the constructor |
| 707 | delete theSections; |
| 708 | delete theSectionRepresents; |
| 709 | delete theYieldSurface_BCs; |
| 710 | delete theYS_EvolutionModels; |
| 711 | delete thePlasticMaterials; |
| 712 | delete theCycModels;//!! |
| 713 | |
| 714 | // set the pointers to 0 |
| 715 | theTclDomain =0; |
| 716 | theTclBuilder =0; |
| 717 | theTclLoadPattern =0; |
| 718 | theTclMultiSupportPattern = 0; |
| 719 | TCL_OPS_setModelBuilder(0); |
| 720 | |
| 721 | // may possibly invoke Tcl_DeleteCommand() later |
| 722 | Tcl_DeleteCommand(theInterp, "parameter"); |
| 723 | Tcl_DeleteCommand(theInterp, "addToParameter"); |
| 724 | Tcl_DeleteCommand(theInterp, "updateParameter"); |
| 725 | Tcl_DeleteCommand(theInterp, "node"); |
| 726 | Tcl_DeleteCommand(theInterp, "element"); |
| 727 | Tcl_DeleteCommand(theInterp, "mesh"); |
| 728 | Tcl_DeleteCommand(theInterp, "remesh"); |
| 729 | Tcl_DeleteCommand(theInterp, "background"); |
| 730 | Tcl_DeleteCommand(theInterp, "uniaxialMaterial"); |
| 731 | Tcl_DeleteCommand(theInterp, "nDMaterial"); |
| 732 | Tcl_DeleteCommand(theInterp, "section"); |
| 733 | Tcl_DeleteCommand(theInterp, "pattern"); |
| 734 | Tcl_DeleteCommand(theInterp, "timeSeries"); |
| 735 | Tcl_DeleteCommand(theInterp, "load"); |
| 736 | Tcl_DeleteCommand(theInterp, "mass"); |
| 737 | Tcl_DeleteCommand(theInterp, "fix"); |
| 738 | Tcl_DeleteCommand(theInterp, "fixX"); |
nothing calls this directly
no test coverage detected