document tcmdifgen (and split from app, in theory)

[chiark-tcl.git] / hbytes / hook.c

diff --git a/hbytes/hook.c b/hbytes/hook.c
index b84306a1e12c8a516b21aedf9ca27ae200ca3751..32c604f9101a5603fad7cadede960a026e59f68c 100644 (file)
--- a/hbytes/hook.c
+++ b/hbytes/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);
 }
 
@@ -419,7 +419,7 @@ int Hbytes_Init(Tcl_Interp *ip) {
   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;
 }