4 #include "chiark_tcl_hbytes.h"
6 int cht_pat_hb(Tcl_Interp *ip, Tcl_Obj *obj, HBytes_Value *val) {
8 rc= Tcl_ConvertToType(ip,obj,&cht_hbytes_type); if (rc) return rc;
9 *val= *OBJ_HBYTES(obj);
13 Tcl_Obj *cht_ret_hb(Tcl_Interp *ip, HBytes_Value val) {
16 Tcl_InvalidateStringRep(obj);
17 *OBJ_HBYTES(obj)= val;
18 obj->typePtr= &cht_hbytes_type;