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;
-}
+CHT_INIT(crypto,
+ CHTI_OTHER(hbytes) CHTI_TYPE(cht_blockcipherkey_type),
+ CHTI_COMMANDS(cht_hbcryptotoplevel_entries))