| 65 | } |
| 66 | |
| 67 | void |
| 68 | TclWrapper::setOutputs(Tcl_Interp* interp, int* data, int numArgs) |
| 69 | { |
| 70 | char buffer[40]; |
| 71 | for (int i=0; i<numArgs; i++) { |
| 72 | sprintf(buffer, "%d ", data[i]); |
| 73 | Tcl_AppendResult(interp, buffer, NULL); |
| 74 | } |
| 75 | } |
| 76 | |
| 77 | void |
| 78 | TclWrapper::setOutputs(Tcl_Interp* interp, double* data, int numArgs) |