From: ian <ian>
Date: Sat, 11 Feb 2006 20:07:25 +0000 (+0000)
Subject: dispatch entrypoints
X-Git-Tag: debian/1.1.1~66
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=commitdiff_plain;h=0ec7eaa2194834986c6b46068b9fc459ddf54f87

dispatch entrypoints
---

diff --git a/cdb/readonly.c b/cdb/readonly.c
index d9f3eef..a084fc8 100644
--- 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 e584b79..2b7adcc 100644
--- 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);
+}