| 66 | } |
| 67 | |
| 68 | static int |
| 69 | timer(ClientData clientData, Tcl_Interp* interp, Tcl_Size argc, TCL_Char** const argv) |
| 70 | { |
| 71 | if ((argc == 1) || (strcmp(argv[1], "start")==0)) { |
| 72 | stopTimer(clientData, interp, argc, argv); |
| 73 | return startTimer(clientData, interp, argc, argv); |
| 74 | } else if (strcmp(argv[1], "stop")==0) { |
| 75 | return stopTimer(clientData, interp, argc, argv); |
| 76 | } |
| 77 | opserr << "Unknown argument '" << argv[1] << "'\n"; |
| 78 | return TCL_ERROR; |
| 79 | } |
| 80 | |
| 81 | // |
| 82 | // revised puts command to send to stderr |
nothing calls this directly
no test coverage detected