* Fix IPv6 PTR (reverse) lookups, and compilation with GCC-8.
Closes:#891544.
+ dgram:
+ * Provide `dgram-socket sockname S'. Closes:#865451.
+
tcmdifgen:
* Turn on warnings and `use strict' and fix everything.
* Replace deprecated `use IO;' with `use IO::File'.
Tcl_BackgroundError(ip);
}
+int cht_do_dgramsocket_sockname(ClientData cd, Tcl_Interp *ip,
+ void *sock_v, SockAddr_Value *result) {
+ DgramSocket *sock= sock_v;
+ int r;
+
+ socklen_t salen = sock->addr_buflen;
+ r= getsockname(sock->fd, sock->addr_buf, &salen);
+ if (r) return cht_posixerr(ip,errno,"getsockname");
+ cht_sockaddr_create(result, sock->addr_buf, salen);
+ return TCL_OK;
+}
+
int cht_do_dgramsocket_on_receive(ClientData cd, Tcl_Interp *ip,
void *sock_v, Tcl_Obj *newscript) {
DgramSocket *sock= sock_v;
sock iddata(&cht_dgram_socks)
data hb
remote sockaddr
+ sockname
+ sock iddata(&cht_dgram_socks)
+ => sockaddr
on-receive
sock iddata(&cht_dgram_socks)
?script obj