wiringpi: drop piFace

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

diff --git a/tuntap/tuntap.tct b/tuntap/tuntap.tct
index 22f01fbad6364123d979f7341d965dfb38333b17..de66d2977a3659bcdd2fc7a070bcd1566acd4c38 100644 (file)
--- a/tuntap/tuntap.tct
+++ b/tuntap/tuntap.tct
@@ -1,18 +1,38 @@
+# tuntap - Tcl extension for tun/tap network device
+# Copyright 2006-2012 Ian Jackson
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License as
+# published by the Free Software Foundation; either version 2 of the
+# License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this library; if not, see <http://www.gnu.org/licenses/>.
 
-Table tuntap_socket_raw TunSocket_SubCommand
-       create
+
+Table *tuntaptoplevel TopLevel_Command
+       tuntap-socket
+           dispatch(TunTapSocket/_SubCommand,"tuntap-socket-raw subcommand")
+
+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