| 66 | } |
| 67 | |
| 68 | int |
| 69 | TclCommand_setTime(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char ** const argv) |
| 70 | { |
| 71 | assert(clientData != nullptr); |
| 72 | Domain* domain = (Domain*)clientData; |
| 73 | |
| 74 | if (argc < 2) { |
| 75 | opserr << "WARNING illegal command - time pseudoTime? \n"; |
| 76 | return TCL_ERROR; |
| 77 | } |
| 78 | double newTime; |
| 79 | if (Tcl_GetDouble(interp, argv[1], &newTime) != TCL_OK) { |
| 80 | opserr << "WARNING reading time value - time pseudoTime? \n"; |
| 81 | return TCL_ERROR; |
| 82 | } else { |
| 83 | domain->setCurrentTime(newTime); |
| 84 | domain->setCommittedTime(newTime); |
| 85 | } |
| 86 | return TCL_OK; |
| 87 | } |
| 88 | |
| 89 | int |
| 90 | TclCommand_getTime(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char ** const argv) |
nothing calls this directly
no test coverage detected