chiark
/
gitweb
/
~ian
/
chiark-tcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
linda is obsolete
[chiark-tcl.git]
/
dgram
/
dgram.tct
diff --git
a/dgram/dgram.tct
b/dgram/dgram.tct
index bdd2312af934dd45c925cd17a822f694d26e43db..534d8ac0405305118dc80c027c265e58acdae36d 100644
(file)
--- a/
dgram/dgram.tct
+++ b/
dgram/dgram.tct
@@
-18,26
+18,22
@@
Type sockaddr: SockAddr_Value @
Type sockaddr: SockAddr_Value @
-Init sockaddr sockaddr_clear(&@);
+Init sockaddr
cht_
sockaddr_clear(&@);
-Table *toplevel TopLevel_Command
+Table *
dgramsocket
toplevel TopLevel_Command
dgram-socket
dgram-socket
- subcmd enum(DgramSocket_SubCommand,"dgram-socket subcommand")
- ... obj
- tuntap-socket-raw
- subcmd enum(TunSocket_SubCommand,"tuntap-socket-raw subcommand")
- ... obj
+ dispatch(DgramSocket/_SubCommand,"dgram-socket subcommand")
-Table dgram
_
socket DgramSocket_SubCommand
+Table dgramsocket DgramSocket_SubCommand
create
local sockaddr
create
local sockaddr
- => iddata(&dgram_socks)
+ => iddata(&
cht_
dgram_socks)
close
close
- sock iddata(&dgram_socks)
+ sock iddata(&
cht_
dgram_socks)
transmit
transmit
- sock iddata(&dgram_socks)
+ sock iddata(&
cht_
dgram_socks)
data hb
remote sockaddr
on-receive
data hb
remote sockaddr
on-receive
- sock iddata(&dgram_socks)
+ sock iddata(&
cht_
dgram_socks)
?script obj
?script obj