-int pat_hb(Tcl_Interp *ip, Tcl_Obj *obj, HBytes_Value *val) {
- int rc;
- rc= Tcl_ConvertToType(ip,obj,&hbytes_type); if (rc) return rc;
- *val= *OBJ_HBYTES(obj);
- return TCL_OK;
-}
-
-Tcl_Obj *ret_hb(Tcl_Interp *ip, HBytes_Value val) {
- Tcl_Obj *obj;
- obj= Tcl_NewObj();
- Tcl_InvalidateStringRep(obj);
- *OBJ_HBYTES(obj)= val;
- obj->typePtr= &hbytes_type;
- return obj;
-}
-
-Tcl_Obj *ret_long(Tcl_Interp *ip, long val) {