copyright dates

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

diff --git a/cdb/lookup.c b/cdb/lookup.c
index 6245384eed1c8c66d9c4543a3227ffde867a4a9e..e57edbd4f875a1cc8ea2582bac790d03f0b3e53a 100644 (file)
--- 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
@@ -62,8 +62,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))