tuntap compiles

[chiark-tcl.git] / base / tables-examples.tct

diff --git a/base/tables-examples.tct b/base/tables-examples.tct
index 82700dcd402e0c14c28f4a8d5797fe12a0b86ab5..1a02eb6beab0d2be0cbc84bc7fed36590e9d2137 100644 (file)
--- a/base/tables-examples.tct
+++ b/base/tables-examples.tct
@@ -24,7 +24,7 @@ Table toplevel TopLevel_Command
                ...     obj
        tuntap-socket
                subcmd  enum(TunSocket_SubCommand,"tuntap-socket subcommand")
-               ...     obj
+               ...     obj
        ulong
                subcmd  enum(ULong_SubCommand,"ulong subcommand")
                ...     obj
@@ -184,10 +184,7 @@ Table dgram_socket DgramSocket_SubCommand
                ?script obj
 
 Table tuntap_socket TunSocket_SubCommand
-       create-ptp
-               local   sockaddr
-               peer    sockaddr
-               mtu     long
+       create
                ?ifname string
                =>      iddata(&tuntap_socks)
        close
@@ -200,6 +197,7 @@ Table tuntap_socket TunSocket_SubCommand
                data    hb
        on-transmit
                sock    iddata(&tuntap_socks)
+               mtu     long
                ?script obj
 
 Table blockcipherop BlockCipherOp