}
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)));
+ dup->typePtr= &hbytes_type;
}
static void hbytes_t_free(Tcl_Obj *o) {
return TCL_OK;
}
+int do_hbytes_trimleft(ClientData cd, Tcl_Interp *ip, HBytes_Var v) {
+ const Byte *o, *p, *e;
+ o= p= hbytes_data(v.hb);
+ e= p + hbytes_len(v.hb);
+
+ while (p<e && !*p) p++;
+ if (p != o)
+ hbytes_unprepend(v.hb, p-o);
+
+ return TCL_OK;
+}
+
int do_hbytes_repeat(ClientData cd, Tcl_Interp *ip,
HBytes_Value sub, int count, HBytes_Value *result) {
int sub_l;