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 }