From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Christopher Baines Newsgroups: gmane.lisp.guile.devel Subject: [PATCH] socket: Add IPPROTO_IPV6 and IPV6_V6ONLY. Date: Fri, 13 May 2022 12:51:14 +0100 Message-ID: <20220513115114.7821-1-mail@cbaines.net> Mime-Version: 1.0 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="13294"; mail-complaints-to="usenet@ciao.gmane.io" To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Fri May 13 14:21:32 2022 Return-path: Envelope-to: guile-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1npUIW-0003K8-3a for guile-devel@m.gmane-mx.org; Fri, 13 May 2022 14:21:32 +0200 Original-Received: from localhost ([::1]:35208 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1npUIU-0003PN-T8 for guile-devel@m.gmane-mx.org; Fri, 13 May 2022 08:21:30 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:48546) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1npTpI-0004Ws-J1 for guile-devel@gnu.org; Fri, 13 May 2022 07:51:20 -0400 Original-Received: from mira.cbaines.net ([212.71.252.8]:36340) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1npTpG-0001ED-VA for guile-devel@gnu.org; Fri, 13 May 2022 07:51:20 -0400 Original-Received: from localhost (unknown [IPv6:2a02:8010:68c1:0:54d1:d5d4:280e:f699]) by mira.cbaines.net (Postfix) with ESMTPSA id 5E3E927BBE9 for ; Fri, 13 May 2022 12:51:15 +0100 (BST) Original-Received: from localhost (localhost [local]) by localhost (OpenSMTPD) with ESMTPA id c012c80c for ; Fri, 13 May 2022 11:51:14 +0000 (UTC) X-Mailer: git-send-email 2.36.0 Received-SPF: pass client-ip=212.71.252.8; envelope-from=mail@cbaines.net; helo=mira.cbaines.net X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01, UNPARSEABLE_RELAY=0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Original-Sender: "guile-devel" Xref: news.gmane.io gmane.lisp.guile.devel:21210 Archived-At: 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