| 65 | TclModelBuilder *builder); |
| 66 | |
| 67 | int myCommands(Tcl_Interp *interp) { |
| 68 | Tcl_CreateCommand(interp, "model", specifyModelBuilder, |
| 69 | (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); |
| 70 | return 0; |
| 71 | } |
| 72 | |
| 73 | int |
| 74 | specifyModelBuilder(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv) |