4 #include "chiark_tcl_hbytes.h"
6 int cht_pat_hbv(Tcl_Interp *ip, Tcl_Obj *var, HBytes_Var *agg) {
8 rc= cht_pat_somethingv(ip,var,&agg->sth,&cht_hbytes_type);
10 agg->hb= OBJ_HBYTES(agg->sth.obj);
13 int cht_pat_hb(Tcl_Interp *ip, Tcl_Obj *obj, HBytes_Value *val) {
15 rc= Tcl_ConvertToType(ip,obj,&cht_hbytes_type); if (rc) return rc;
16 *val= *OBJ_HBYTES(obj);
20 Tcl_Obj *cht_ret_hb(Tcl_Interp *ip, HBytes_Value val) {
23 Tcl_InvalidateStringRep(obj);
24 *OBJ_HBYTES(obj)= val;
25 obj->typePtr= &cht_hbytes_type;