| 24 | #include <Logging.h> |
| 25 | |
| 26 | int |
| 27 | TclCommand_setLoadConst(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char ** const argv) |
| 28 | { |
| 29 | assert(clientData != nullptr); |
| 30 | Domain* domain = (Domain*)clientData; |
| 31 | |
| 32 | domain->setLoadConstant(); |
| 33 | if (argc == 3) { |
| 34 | if (strcmp(argv[1], "-time") == 0) { |
| 35 | double newTime; |
| 36 | if (Tcl_GetDouble(interp, argv[2], &newTime) != TCL_OK) { |
| 37 | opserr << "WARNING readingvalue - loadConst -time value \n"; |
| 38 | return TCL_ERROR; |
| 39 | } else { |
| 40 | domain->setCurrentTime(newTime); |
| 41 | domain->setCommittedTime(newTime); |
| 42 | } |
| 43 | } |
| 44 | } |
| 45 | return TCL_OK; |
| 46 | } |
| 47 | |
| 48 | int |
| 49 | TclCommand_setCreep(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char ** const argv) |
nothing calls this directly
no test coverage detected