- Tcl_RegisterObjType(&blockcipherkey_type);
+/*
+ */
+
+#include "chiark_tcl_crypto.h"
+
+int cht_do_hbcryptotoplevel_hbcrypto(ClientData cd, Tcl_Interp *ip,
+ const HBCrypto_SubCommand *subcmd,
+ int objc, Tcl_Obj *const *objv) {
+ return subcmd->func(0,ip,objc,objv);
+}
+
+extern int Chiark_tcl_crypto_Init(Tcl_Interp *ip); /*called by load(3tcl)*/
+int Chiark_tcl_crypto_Init(Tcl_Interp *ip) {
+ static int initd;
+ int rc;
+
+ rc= Chiark_tcl_hbytes_Init(ip); if (rc) return rc;
+ rc= cht_initextension(ip, cht_hbcryptotoplevel_entries, &initd,
+ &cht_blockcipherkey_type,
+ (Tcl_ObjType*)0);
+ if (rc) return rc;
+
+ return TCL_OK;
+}