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

diff --git a/base/hook.c b/base/hook.c
index b84306a..8ef140f 100644
--- a/base/hook.c
+++ b/base/hook.c
@@ -368,9 +368,9 @@ int do_toplevel_dgram_socket(ClientData cd, Tcl_Interp *ip,
   return subcmd->func(0,ip,objc,objv);
 }
 
-int do_toplevel_tuntap_socket(ClientData cd, Tcl_Interp *ip,
-			     const TunSocket_SubCommand *subcmd,
-			     int objc, Tcl_Obj *const *objv) {
+int do_toplevel_tuntap_socket_raw(ClientData cd, Tcl_Interp *ip,
+				  const TunSocket_SubCommand *subcmd,
+				  int objc, Tcl_Obj *const *objv) {
   return subcmd->func(0,ip,objc,objv);
 }
 
@@ -380,6 +380,12 @@ 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 objc, Tcl_Obj *const *objv) {
+  return subcmd->func(0,ip,objc,objv);
+}
+
 #define URANDOM "/dev/urandom"
 
 int get_urandom(Tcl_Interp *ip, Byte *buffer, int l) {
@@ -415,11 +421,12 @@ int Hbytes_Init(Tcl_Interp *ip) {
   Tcl_RegisterObjType(&sockaddr_type);
   Tcl_RegisterObjType(&tabledataid_nearlytype);
   Tcl_RegisterObjType(&ulong_type);
+  Tcl_RegisterObjType(&maskmap_type);
 
   for (cmd=toplevel_commands;
        cmd->name;
        cmd++)
-    Tcl_CreateObjCommand(ip, cmd->name, cmd->func, 0,0);
+    Tcl_CreateObjCommand(ip, (char*)cmd->name, cmd->func, 0,0);
 
   return TCL_OK;
 }