/*---------- main hooks for tcl ----------*/
-int cht_do_adnstoplevel_adns(ClientData cd, Tcl_Interp *ip,
- const Adns_SubCommand *subcmd,
- int objc, Tcl_Obj *const *objv) {
- return subcmd->func(0,ip,objc,objv);
-}
-
CHT_INIT(adns, {}, CHTI_COMMANDS(cht_adnstoplevel_entries))
Table *adnstoplevel TopLevel_Command
adns
- subcmd enum(Adns/_SubCommand, "adns subcommand")
- ... obj
+ dispatch(Adns/_SubCommand, "adns subcommand")
Table adns Adns_SubCommand
lookup
Table *cdbtoplevel TopLevel_Command
cdb
- subcmd enum(Cdb/_SubCommand, "cdb subcommand")
- ... obj
+ dispatch(Cdb/_SubCommand, "cdb subcommand")
cdb-wr
- subcmd enum(Cdbwr/_SubCommand, "cdb-wr subcommand")
- ... obj
+ dispatch(Cdbwr/_SubCommand, "cdb-wr subcommand")
Table cdb Cdb_SubCommand
open
return cht_cdb_donesomelookup(ip, ro_v, def, result, data, dlen,
cht_cdb_storeanswer_hb);
}
-
-int cht_do_cdbtoplevel_cdb(ClientData cd, Tcl_Interp *ip,
- const Cdb_SubCommand* subcmd,
- int objc, Tcl_Obj *const *objv) {
- return subcmd->func((void*)subcmd,ip,objc,objv);
-}
return cht_cdb_donesomelookup(ip, rw_v, def, result, data, dlen,
cht_cdb_storeanswer_hb);
}
-
-int cht_do_cdbtoplevel_cdb_wr(ClientData cd, Tcl_Interp *ip,
- const Cdbwr_SubCommand* subcmd,
- int objc, Tcl_Obj *const *objv) {
- return subcmd->func((void*)subcmd,ip,objc,objv);
-}
Table *hbcryptotoplevel TopLevel_Command
hbcrypto
- subcmd enum(HBCrypto/_SubCommand, "hbcrypto subcommand")
- ... obj
+ dispatch(HBCrypto/_SubCommand, "hbcrypto subcommand")
Table hbcrypto HBCrypto_SubCommand
pad
#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);
-}
-
CHT_INIT(crypto,
CHTI_OTHER(hbytes) CHTI_TYPE(cht_blockcipherkey_type),
CHTI_COMMANDS(cht_hbcryptotoplevel_entries))