1 int cht_pat_hbv(Tcl_Interp *ip, Tcl_Obj *var, HBytes_Var *agg) {
3 rc= pat_somethingv(ip,var,&agg->sth,&hbytes_type); if (rc) return rc;
4 agg->hb= OBJ_HBYTES(agg->sth.obj);
8 int cht_pat_hb(Tcl_Interp *ip, Tcl_Obj *obj, HBytes_Value *val) {
10 rc= Tcl_ConvertToType(ip,obj,&hbytes_type); if (rc) return rc;
11 *val= *OBJ_HBYTES(obj);
15 Tcl_Obj *cht_ret_hb(Tcl_Interp *ip, HBytes_Value val) {
18 Tcl_InvalidateStringRep(obj);
19 *OBJ_HBYTES(obj)= val;
20 obj->typePtr= &hbytes_type;