/* ---------------------------------------------------------------------- */ #define ns__alpha0 "::alpha" static int tcl__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__alpha0(ClientData dummy, Tcl_Interp *ip, Tcl_Size objc, Tcl_Obj *CONST objv[]) { int _rv; critcl_trace_cmd_args (ns__alpha0, objc, objv); _rv = tcl__alpha0_actual (dummy, ip, objc, objv); return critcl_trace_cmd_result (_rv, ip); }