| 220 | } |
| 221 | |
| 222 | static int |
| 223 | setPrecision(ClientData clientData, Tcl_Interp *interp, Tcl_Size argc, |
| 224 | TCL_Char ** const argv) |
| 225 | { |
| 226 | |
| 227 | if (argc < 2) { |
| 228 | opserr << "WARNING setPrecision precision? - no precision value supplied\n"; |
| 229 | return TCL_ERROR; |
| 230 | } |
| 231 | int precision; |
| 232 | if (Tcl_GetInt(interp, argv[1], &precision) != TCL_OK) { |
| 233 | opserr << "WARNING setPrecision precision? - error reading precision value " |
| 234 | "supplied\n"; |
| 235 | return TCL_ERROR; |
| 236 | } |
| 237 | opserr.setPrecision(precision); |
| 238 | |
| 239 | return TCL_OK; |
| 240 | } |
| 241 | |
| 242 | const char * |
| 243 | getInterpPWD(Tcl_Interp *interp) |
nothing calls this directly
no test coverage detected