| 55 | } |
| 56 | |
| 57 | static int |
| 58 | stopTimer(ClientData clientData, Tcl_Interp *interp, Tcl_Size argc, TCL_Char ** const argv) |
| 59 | { |
| 60 | if (theTimer == nullptr) |
| 61 | return TCL_OK; |
| 62 | |
| 63 | theTimer->pause(); |
| 64 | opserr << *theTimer; |
| 65 | return TCL_OK; |
| 66 | } |
| 67 | |
| 68 | static int |
| 69 | timer(ClientData clientData, Tcl_Interp* interp, Tcl_Size argc, TCL_Char** const argv) |