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 f402a4c8811b9bffd2c10df0fc360fae9ef65b6f..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"
 
@@ -95,3 +94,6 @@ Table dgram_socket DgramSocket_SubCommand
                sock    sockid
                data    hb
                remote  sockaddr
+       on-receive
+               sock    sockid
+               ?script obj