include ../base/extension.make
+# eg, for testing:
+# liberator:cdb> LD_LIBRARY_PATH=../base:../hbytes:. tclsh8.3
+# % load chiark_tcl_cdb.so
+# % cdb
+# wrong # args: should be "cdb subcmd ..."
+# % cdb open
+# wrong # args: should be "cdb open path"
+# %
+# liberator:cdb>
if (!*data_r) return cht_posixerr(ip, errno, "cdb_getdata failed");
return TCL_OK;
}
+
+
+extern int Chiark_tcl_cdb_Init(Tcl_Interp *ip); /* called by Tcl's "load" */
+int Chiark_tcl_cdb_Init(Tcl_Interp *ip) {
+ return cht_initextension(ip, cht_cdbtoplevel_entries, 0);
+}