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
Rename *.test.tcl to test-load.tcl
[chiark-tcl.git]
/
dgram
/
dgram.tct
diff --git
a/dgram/dgram.tct
b/dgram/dgram.tct
index bdd2312af934dd45c925cd17a822f694d26e43db..938d0a3bf9a8f3f67a5dd8530cb92ce66480300e 100644
(file)
--- a/
dgram/dgram.tct
+++ b/
dgram/dgram.tct
@@
-1,5
+1,5
@@
# dgram - Tcl extension for udp datagrams
# dgram - Tcl extension for udp datagrams
-# Copyright 2006 Ian Jackson
+# 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
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
@@
-12,32
+12,29
@@
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
-# along with this library; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
-# 02110-1301, USA.
+# along with this library; if not, see <http://www.gnu.org/licenses/>.
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
data hb
remote sockaddr
+ sockname
+ sock iddata(&cht_dgram_socks)
+ => sockaddr
on-receive
on-receive
- sock iddata(&dgram_socks)
+ sock iddata(&
cht_
dgram_socks)
?script obj
?script obj