dispatch entrypoints

[chiark-tcl.git] / cdb / readonly.c

diff --git a/cdb/readonly.c b/cdb/readonly.c
index d9f3eefcf2a3b65ee6e738f9d8586b8ea9b9080d..a084fc8d2d5ef62c01c62f40b148ecae9b140dfd 100644 (file)
--- a/cdb/readonly.c
+++ b/cdb/readonly.c
@@ -69,3 +69,9 @@ int cht_do_cdb_lookup_hb(ClientData cd, Tcl_Interp *ip, void *ro_v,
   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);
+}