dispatch entrypoints

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);
+}

diff --git a/cdb/writeable.c b/cdb/writeable.c
index e584b79c29dc75cb2b129efb61a1d49f83060fc4..2b7adcc486fa1ada9e41336e2d4aa9cc12c1cd0b 100644 (file)
--- a/cdb/writeable.c
+++ b/cdb/writeable.c
@@ -877,3 +877,9 @@ int cht_do_cdbwr_lookup_hb(ClientData cd, Tcl_Interp *ip, void *rw_v,
   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);
+}