chiark / gitweb /
working on compiling out of troglodyte; before relegage maskmap
[chiark-tcl.git] / dgram / dgram.tct
1 Type sockaddr:                  SockAddr_Value @
2 Init sockaddr                   sockaddr_clear(&@);
3
4 Table toplevel TopLevel_Command
5         dgram-socket
6                 subcmd  enum(DgramSocket_SubCommand,"dgram-socket subcommand")
7                 ...     obj
8         tuntap-socket-raw
9             subcmd enum(TunSocket_SubCommand,"tuntap-socket-raw subcommand")
10             ... obj
11
12 Table dgram_socket DgramSocket_SubCommand
13         create
14                 local   sockaddr
15                 =>      iddata(&dgram_socks)
16         close
17                 sock    iddata(&dgram_socks)
18         transmit
19                 sock    iddata(&dgram_socks)
20                 data    hb
21                 remote  sockaddr
22         on-receive
23                 sock    iddata(&dgram_socks)
24                 ?script obj