[PATCH] socket: Add IPPROTO_IPV6 and IPV6_V6ONLY.

[Christopher Baines]

Add constants to enable setting sockets to be IPv6 only. This is useful
if you want to listen on a port via IPv4 and IPv6 as the socket for IPv6
may need setting to be IPv6 only to avoid conflicting with the IPv4
socket.

* libguile/socket.c (IPPROTO_IPV6, IPV6_V6ONLY): New constants.
---
 libguile/socket.c | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/libguile/socket.c b/libguile/socket.c
index 77cdd74ef..98861e913 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -1702,6 +1702,9 @@ scm_init_socket ()
 #ifdef IPPROTO_IP
   scm_c_define ("IPPROTO_IP", scm_from_int (IPPROTO_IP));
 #endif
+#ifdef IPPROTO_IPV6
+  scm_c_define ("IPPROTO_IPV6", scm_from_int (IPPROTO_IPV6));
+#endif
 #ifdef IPPROTO_TCP
   scm_c_define ("IPPROTO_TCP", scm_from_int (IPPROTO_TCP));
 #endif
@@ -1791,6 +1794,10 @@ scm_init_socket ()
   scm_c_define ("IP_MULTICAST_IF", scm_from_int ( IP_MULTICAST_IF));
 #endif
 
+#ifdef IPV6_V6ONLY
+  scm_c_define ("IPV6_V6ONLY", scm_from_int (IPV6_V6ONLY));
+#endif
+
   scm_add_feature ("socket");
 
 #include "socket.x"
-- 
2.34.0