/* ---------------------------------------------------------------------- */ #define ns__the_alpha0 "::the::alpha" static int tcl__the_alpha0_actual(ClientData dummy, Tcl_Interp *ip, Tcl_Size objc, Tcl_Obj *CONST objv[]) { static char script[4] = { 98,101,116,97, }; Tcl_SetByteArrayObj(Tcl_GetObjResult(ip), (unsigned char*) script, 4); return TCL_OK; } static int tcl__the_alpha0(ClientData dummy, Tcl_Interp *ip, Tcl_Size objc, Tcl_Obj *CONST objv[]) { int _rv; critcl_trace_cmd_args (ns__the_alpha0, objc, objv); _rv = tcl__the_alpha0_actual (dummy, ip, objc, objv); return critcl_trace_cmd_result (_rv, ip); }