X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=base%2Fhook.c;h=5b163b335affe441ebcffd0e8464350ea3c2b687;hp=8ef140fb452403e44a5be1719f71608cd4b01908;hb=86a68f7c8f058dcc55ee136da67c3e0c7030474d;hpb=d55fe169a327a1a3352ed88587c8f52907e2301d

diff --git a/base/hook.c b/base/hook.c
index 8ef140f..5b163b3 100644
--- a/base/hook.c
+++ b/base/hook.c
@@ -324,6 +324,12 @@ int do_hbytes_range(ClientData cd, Tcl_Interp *ip,
   return TCL_OK;
 }
 
+int do_hbytes_addr_map(ClientData cd, Tcl_Interp *ip,
+		       const AddrMap_SubCommand *subcmd,
+		       int objc, Tcl_Obj *const *objv) {
+  return subcmd->func(0,ip,objc,objv);
+}
+
 /* hbytes representing uint16_t's */
 
 int do_hbytes_h2ushort(ClientData cd, Tcl_Interp *ip,
@@ -380,8 +386,8 @@ int do_toplevel_ulong(ClientData cd, Tcl_Interp *ip,
   return subcmd->func(0,ip,objc,objv);
 }
 
-int do_toplevel_mask_map(ClientData cd, Tcl_Interp *ip,
-		      const MaskMap_SubCommand *subcmd,
+int do_toplevel_adns(ClientData cd, Tcl_Interp *ip,
+		      const Adns_SubCommand *subcmd,
 		      int objc, Tcl_Obj *const *objv) {
   return subcmd->func(0,ip,objc,objv);
 }
@@ -421,7 +427,7 @@ int Hbytes_Init(Tcl_Interp *ip) {
   Tcl_RegisterObjType(&sockaddr_type);
   Tcl_RegisterObjType(&tabledataid_nearlytype);
   Tcl_RegisterObjType(&ulong_type);
-  Tcl_RegisterObjType(&maskmap_type);
+  Tcl_RegisterObjType(&addrmap_type);
 
   for (cmd=toplevel_commands;
        cmd->name;