X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=cdb%2Flookup.c;h=fb73f1f5f6b40864936049dd2e08f12b548bd017;hp=6245384eed1c8c66d9c4543a3227ffde867a4a9e;hb=5dc0c5b5a5d8b47aebe392186cf9afcdfc1d221f;hpb=5dca360f2da544c9b6baf9d18ad8cd0b0e073e60

diff --git a/cdb/lookup.c b/cdb/lookup.c
index 6245384..fb73f1f 100644
--- a/cdb/lookup.c
+++ b/cdb/lookup.c
@@ -1,6 +1,6 @@
 /*
  * cdb, cdb-wr - Tcl bindings for tinycdb and a journalling write extension
- * Copyright 2006 Ian Jackson
+ * Copyright 2006-2012 Ian Jackson
  *
  * This program is free software; you can redistribute it and/or
  * modify it under the terms of the GNU General Public License as
@@ -13,9 +13,7 @@
  * General Public License for more details.
  *
  * You should have received a copy of the GNU General Public License
- * along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
- * 02110-1301, USA.
+ * along with this library; if not, see <http://www.gnu.org/licenses/>.
  */
 
 #include "chiark_tcl_cdb.h"
@@ -62,8 +60,6 @@ int cht_cdb_lookup_cdb(Tcl_Interp *ip, struct cdb *cdb,
   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);
-}
+CHT_INIT(cdb,
+	 CHTI_OTHER(hbytes),
+	 CHTI_COMMANDS(cht_cdbtoplevel_entries))