+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;
+}
+