/* ---------------------------------------------------------------------- */ #define ns__the_aproc0 "::the::aproc" static void c__the_aproc0() { } static int tcl__the_aproc0(ClientData cd, Tcl_Interp *interp, Tcl_Size oc, Tcl_Obj *CONST ov[]) { critcl_trace_cmd_args (ns__the_aproc0, oc, ov); if (oc != 1) { Tcl_WrongNumArgs(interp, 1, ov, NULL); return critcl_trace_cmd_result (TCL_ERROR, interp); } /* Call - - -- --- ----- -------- */ c__the_aproc0(); /* (void return) - - -- --- ----- -------- */ return critcl_trace_cmd_result (TCL_OK, interp); }