- if (HBYTES_ISEMPTY(v)) tn= "empty";
- else if (HBYTES_ISSENTINEL(v)) tn= "sentinel!";
- else if (HBYTES_ISSIMPLE(v)) tn= "simple";
- else {
- HBytes_ComplexValue *cx= v->begin_complex;
- tn= "complex";
- nums[0]= cx->prespace;
- nums[2]= cx->avail - cx->len;
- }
- lnl= 3;
- } else {
- tn= "other";
- lnl= 0;
- }
-
- objl[0]= Tcl_NewStringObj((char*)tn,-1);
- for (i=0; i<lnl; i++) objl[i+1]= Tcl_NewIntObj(nums[i]);
- *result= Tcl_NewListObj(lnl+1,objl);
-
- return TCL_OK;
-}
-
-static void hbytes_t_dup(Tcl_Obj *src, Tcl_Obj *dup) {
- objfreeir(dup);
- hbytes_array(OBJ_HBYTES(dup),
- hbytes_data(OBJ_HBYTES(src)),
- hbytes_len(OBJ_HBYTES(src)));
-}
-
-static void hbytes_t_free(Tcl_Obj *o) {
- hbytes_free(OBJ_HBYTES(o));
-}
-
-void obj_updatestr_array(Tcl_Obj *o, const Byte *byte, int l) {
- char *str;
-
- str= o->bytes= TALLOC(l*2+1);
- o->length= l*2;
- while (l>0) {
- sprintf(str,"%02x",*byte);
- str+=2; byte++; l--;
- }
- *str= 0;
-}