4 #include "chiark_tcl_crypto.h"
6 int cht_do_hbcryptotoplevel_hbcrypto(ClientData cd, Tcl_Interp *ip,
7 const HBCrypto_SubCommand *subcmd,
8 int objc, Tcl_Obj *const *objv) {
9 return subcmd->func(0,ip,objc,objv);
12 extern int Chiark_tcl_crypto_Init(Tcl_Interp *ip); /*called by load(3tcl)*/
13 int Chiark_tcl_crypto_Init(Tcl_Interp *ip) {
17 rc= Chiark_tcl_hbytes_Init(ip); if (rc) return rc;
18 rc= cht_initextension(ip, cht_hbcryptotoplevel_entries, &initd,
19 &cht_blockcipherkey_type,