tuntap

[chiark-tcl.git] / tuntap / tuntap.tct

diff --git a/tuntap/tuntap.tct b/tuntap/tuntap.tct
index 698f97f1d5570bc6c15428e9ba911c6921ee3bb9..87f139664f24d2fdb03580194cd229345ad896eb 100644 (file)
--- a/tuntap/tuntap.tct
+++ b/tuntap/tuntap.tct
@@ -17,21 +17,24 @@
 # 02110-1301, USA.
 
 
+Table *tuntaptoplevel TopLevel_Command
+       tuntap-socket
+           dispatch(TunTapSocket/_SubCommand,"tuntap-socket-raw subcommand")
 
-Table tuntap_socket_raw TunSocket_SubCommand
-       create
+Table tuntapsocket TunTapSocket_SubCommand
+       create-tun
                ?ifname string
-               =>      iddata(&tuntap_socks)
+               =>      iddata(&cht_tuntap_socks)
        close
-               sock    iddata(&tuntap_socks)
+               sock    iddata(&cht_tuntap_socks)
        ifname
-               sock    iddata(&tuntap_socks)
+               sock    iddata(&cht_tuntap_socks)
                =>      string
        receive
-               sock    iddata(&tuntap_socks)
+               sock    iddata(&cht_tuntap_socks)
                data    hb
        on-transmit
-               sock    iddata(&tuntap_socks)
+               sock    iddata(&cht_tuntap_socks)
                mtu     long
                ?script obj