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
Socket address stuff. Sockid is broken still.
[chiark-tcl.git]
/
base
/
tables-examples.tct
diff --git
a/base/tables-examples.tct
b/base/tables-examples.tct
index b40198f0d90380843078318c843cee7b36cced2f..581433499be1f53c54dc1b7c0189a3f1a83a7dac 100644
(file)
--- a/
base/tables-examples.tct
+++ b/
base/tables-examples.tct
@@
-1,15
+1,25
@@
Type hb: HBytes_Value @
Init hb hbytes_sentinel(&@);
Type hb: HBytes_Value @
Init hb hbytes_sentinel(&@);
+
Type hbv: HBytes_Var @
Init hbv @.hb=0; @.obj=0; @.var=0;
Fini hbv fini_hbv(ip, rc, &@);
Type hbv: HBytes_Var @
Init hbv @.hb=0; @.obj=0; @.var=0;
Fini hbv fini_hbv(ip, rc, &@);
+Type sockaddr: SockAddr_Value @
+Init sockaddr sockaddr_clear(&@);
+
+Type sockid: int @
+Init sockid @=-1;
+
H-Include "hbytes.h"
Untabled
hbytes
subcmd enum(HBytes_SubCommand, "hbytes subcommand")
obj ...
H-Include "hbytes.h"
Untabled
hbytes
subcmd enum(HBytes_SubCommand, "hbytes subcommand")
obj ...
+ dgram-socket
+ subcmd enum(DgramSocket_SubCommand,"dgram-socket subcommand")
+ obj ...
Table hbytes HBytes_SubCommand
raw2h
Table hbytes HBytes_SubCommand
raw2h
@@
-75,6
+85,9
@@
Table hbytes HBytes_SubCommand
length int
=> hb
length int
=> hb
-#Table udp UDP_SubCommand
-# create
-#
+Table dgram_socket DgramSocket_SubCommand
+ create
+ local sockaddr
+ => sockid
+# transmit
+#