From: ian <ian>
Date: Sat, 7 Sep 2002 01:23:16 +0000 (+0000)
Subject: transmits
X-Git-Tag: debian/1.1.1~162
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=commitdiff_plain;h=29867267f21e03efc9e19362a8391a3d0dc31cba;hp=ec732779f1e6caddd2dcc3bf6bf084ad2202bfd1

transmits
---

diff --git a/base/tables-examples.tct b/base/tables-examples.tct
index 6f8755a..f402a4c 100644
--- a/base/tables-examples.tct
+++ b/base/tables-examples.tct
@@ -91,5 +91,7 @@ Table dgram_socket DgramSocket_SubCommand
 		=>	sockid
 	close
 		sock	sockid
-#	transmit
-#		
+	transmit
+		sock	sockid
+		data	hb
+		remote	sockaddr
diff --git a/dgram/dgram.c b/dgram/dgram.c
index e6df127..7e98df2 100644
--- a/dgram/dgram.c
+++ b/dgram/dgram.c
@@ -4,8 +4,9 @@
  * dgram-socket create <local>                        => <sockid>
  * dgram-socket close <sockid>
  * dgram-socket transmit <sockid> <data> <remote>
- * dgram-socket on-receive <sockid> <script>
+ * dgram-socket on-receive <sockid> [<script>]
  *    calls, effectively,  eval <script> [list <data> <remote-addr> <socket>]
+ *    if script not supplied, cancel
  */
 
 #include "tables.h"
@@ -52,6 +53,20 @@ int do_dgram_socket_create(ClientData cd, Tcl_Interp *ip,
   return TCL_OK;
 }
 
+int do_dgram_socket_transmit(ClientData cd, Tcl_Interp *ip,
+			     int sock, HBytes_Value data,
+			     SockAddr_Value remote) {
+  int l, r;
+
+  r= sendto(socks[sock].fd,
+	    hbytes_data(&data), l=hbytes_len(&data),
+	    0,
+	    sockaddr_addr(&remote), sockaddr_len(&remote));
+  if (r==-1) return posixerr(ip,errno,"sendto");
+  else if (r!=l) return staticerr(ip,"sendto gave wrong answer");
+  return TCL_OK;
+}
+  
 int do_dgram_socket_close(ClientData cd, Tcl_Interp *ip, int sock) {
   close(socks[sock].fd); /* nothing useful to be done with errors */
   socks[sock].fd= -1;