chiark / gitweb /
002c0d4fa30e79bc319311acdab8a4d52074c047
[chiark-tcl.git] / crypto / hook.c
1 /*
2  */
3
4 #include "chiark_tcl_crypto.h"
5
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);
10 }
11
12 extern int Chiark_tcl_crypto_Init(Tcl_Interp *ip); /*called by load(3tcl)*/
13 int Chiark_tcl_crypto_Init(Tcl_Interp *ip) {
14   static int initd;
15   int rc;
16
17   rc= Chiark_tcl_hbytes_Init(ip);  if (rc) return rc;
18   rc= cht_initextension(ip, cht_hbcryptotoplevel_entries, &initd,
19                         &cht_blockcipherkey_type,
20                         (Tcl_ObjType*)0);
21   if (rc) return rc;
22
23   return TCL_OK;
24 }