int staticerr(Tcl_Interp *ip, const char *m);
void objfreeir(Tcl_Obj *o);
-Tcl_Obj *hbytes_set(Tcl_Obj *overwrite, const Byte *array, int l);
+void hbytes_set(HBytes_Value *upd, const Byte *array, int l);
+Tcl_Obj *hbytes_set_obj(Tcl_Obj *overwrite, const Byte *array, int l);
/* from enum.c */
* set to the error message.
*/
+/* from crypto.c */
+
+typedef struct {
+ int blocksize, hashsize;
+} HashAlgInfo;
+
+typedef struct {
+ int blocksize;
+} BlockCipherAlgInfo;
+
+typedef struct {
+ int dummy;
+} BlockCipherModeInfo;
+
/* useful macros */
-#define HBYTES(o) ((HBytes_Value*)&(o)->internalRep.twoPtrValue)
-#define HBYTES_LEN(o) (HBYTES((o))->end - HBYTES((o))->start)
+#define HBYTES(o) (*(HBytes_Value*)&(o)->internalRep.twoPtrValue)
+#define HBYTES_LEN(hb) ((hb).end - (hb).start)
#define TALLOC(s) ((void*)Tcl_Alloc((s)))
#define TFREE(f) (Tcl_Free((void*)(f)))