Sockets all seem to work now erm.

[chiark-tcl.git] / base / tables-examples.tct

diff --git a/base/tables-examples.tct b/base/tables-examples.tct
index 6f8755a8495d88d182bb358081c80372660458d0..71cb4bf3935bb88a76524bad4c1a2a61e94c9dce 100644 (file)
--- a/base/tables-examples.tct
+++ b/base/tables-examples.tct
@@ -8,8 +8,7 @@ Fini hbv                        fini_hbv(ip, rc, &@);
 Type sockaddr:                 SockAddr_Value @
 Init sockaddr                  sockaddr_clear(&@);
 
-Type sockid:                   int @
-Init sockid                    @=-1;
+Type sockid:                   DgramSockID @
 
 H-Include      "hbytes.h"
 
@@ -91,5 +90,10 @@ Table dgram_socket DgramSocket_SubCommand
                =>      sockid
        close
                sock    sockid
-#      transmit
-#              
+       transmit
+               sock    sockid
+               data    hb
+               remote  sockaddr
+       on-receive
+               sock    sockid
+               ?script obj