Socket streams know their connected peer address.

* stream.c (struct stdio_handle): New member, peer.
(stdio_stream_mark): Mark the new member.
(sock_peer, sock_set_peer): New functions.
(stream_init): Registered sock-peer intrinsic.

* stream.h (sock_peer, sock_set_peer): Declared.

* socket.c (sock_connect): If the connect is successful,
then store the address into the stream as the peer.

1 files changed, 2 insertions, 0 deletions

diff --git a/socket.c b/socket.c
index b0c90465..c263edb1 100644
--- a/socket.c
+++ b/socket.c
@@ -267,6 +267,8 @@ static val sock_connect(val sock, val sockaddr)
     uw_throwf(socket_error_s, lit("connect failed: ~d/~s"),
               num(errno), string_utf8(strerror(errno)), nao);
 
+  sock_set_peer(sock, sockaddr);
+
   return t;
 }