return TCL_OK;
}
+int do_hbytes_xor(ClientData cd, Tcl_Interp *ip,
+ HBytes_Var v, HBytes_Value d) {
+ int l;
+ Byte *dest;
+ const Byte *source;
+
+ l= hbytes_len(v.hb);
+ if (hbytes_len(&d) != l) return
+ staticerr(ip, "hbytes xor lengths do not match", "HBYTES LENGTH MISMATCH");
+
+ dest= hbytes_data(v.hb);
+ source= hbytes_data(&d);
+ memxor(dest,source,l);
+ return TCL_OK;
+}
+
int do_hbytes_zeroes(ClientData cd, Tcl_Interp *ip,
int length, HBytes_Value *result) {
Byte *space;