Command invoked to select and construct an integrator
| 109 | // Command invoked to select and construct an integrator |
| 110 | // |
| 111 | int |
| 112 | specifyIntegrator(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char ** const argv) |
| 113 | { |
| 114 | assert(clientData != nullptr); |
| 115 | OPS_ResetInputNoBuilder(clientData, interp, 2, argc, argv, nullptr); |
| 116 | |
| 117 | // Make sure at least one other argument to select integrator |
| 118 | if (argc < 2) { |
| 119 | opserr << "WARNING need to specify an Integrator type \n"; |
| 120 | return TCL_ERROR; |
| 121 | } |
| 122 | |
| 123 | if (TclCommand_newStaticIntegrator(clientData, interp, argc, argv) == TCL_OK) |
| 124 | return TCL_OK; |
| 125 | |
| 126 | else if (TclCommand_newTransientIntegrator(clientData, interp, argc, argv) == TCL_OK) |
| 127 | return TCL_OK; |
| 128 | |
| 129 | else |
| 130 | return TCL_ERROR; |
| 131 | |
| 132 | } |
| 133 | |
| 134 | int |
| 135 | TclCommand_newStaticIntegrator(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char ** const argv) |
nothing calls this directly
no test coverage detected