[ruby-dev:23463] [OSX?] socket.c ipaddr()

咳といいます。

OSXでUDPSocket#recvfromが次のようにgetnameinfo()で失敗することがあります。

recvfrom': getnameinfo: nodename nor servname provided, or not known 
(SocketError)

咳の環境で再現させるスクリプトを示します。
# 逆引きできるかどうかが問題だと参考にならなかも…

require 'socket'

PORT = 12345

BasicSocket.do_not_reverse_lookup = ARGV.shift

s1 = UDPSocket.open
s1.bind('', PORT)

s2 = UDPSocket.open
s2.setsockopt(Socket::SOL_SOCKET, Socket::SO_BROADCAST, true)

s2.send('hello', 0, 'localhost', PORT)
p s1.recvfrom(5)

s2.send('hello', 0, '<broadcast>', PORT)
p s1.recvfrom(5)

do_not_reverse_lookupがfalseのときにエラーになるようです。

   error = getnameinfo(sockaddr, SA_LEN(sockaddr), hbuf, sizeof(hbuf),
                       NULL, 0, 0);

がerrorを返し、例外となるようです。
次のような作戦で回避できそうです。

* 逆引きがエラーになったら数値なIPアドレスの文字列を採用する作戦

逆引きのgetnameinfo()がエラーを返しても例外を発生させるべきだとすると
作戦負けですね。

ruby-1.9とruby-1.8それぞれのパッチを示します。

Index: socket.c
===================================================================
RCS file: /src/ruby/ext/socket/socket.c,v
retrieving revision 1.119
diff -u -w -r1.119 socket.c
--- socket.c    6 Apr 2004 04:13:24 -0000       1.119
+++ socket.c    4 May 2004 19:36:27 -0000
@@ -751,21 +751,21 @@
         break;
      }

+    addr1 = Qnil;
      if (!norevlookup) {
         error = getnameinfo(sockaddr, SA_LEN(sockaddr), hbuf, 
sizeof(hbuf),
                             NULL, 0, 0);
-       if (error) {
-           raise_socket_error("getnameinfo", error);
-       }
+       if (! error) {
         addr1 = rb_str_new2(hbuf);
      }
+    }
      error = getnameinfo(sockaddr, SA_LEN(sockaddr), hbuf, sizeof(hbuf),
                         pbuf, sizeof(pbuf), NI_NUMERICHOST | 
NI_NUMERICSERV);
      if (error) {
         raise_socket_error("getnameinfo", error);
      }
      addr2 = rb_str_new2(hbuf);
-    if (norevlookup) {
+    if (addr1 == Qnil) {
         addr1 = addr2;
      }
      port = INT2FIX(atoi(pbuf));


ruby-1.8だとこんな感じ。

Index: socket.c
===================================================================
RCS file: /src/ruby/ext/socket/socket.c,v
retrieving revision 1.108.2.4
diff -u -w -r1.108.2.4 socket.c
--- socket.c    6 Apr 2004 04:22:05 -0000       1.108.2.4
+++ socket.c    4 May 2004 19:37:23 -0000
@@ -705,21 +705,21 @@
         family = rb_str_new2(pbuf);
         break;
      }
+    addr1 = Qnil;
      if (!do_not_reverse_lookup) {
         error = getnameinfo(sockaddr, SA_LEN(sockaddr), hbuf, 
sizeof(hbuf),
                             NULL, 0, 0);
-       if (error) {
-           rb_raise(rb_eSocket, "getnameinfo: %s", 
gai_strerror(error));
-       }
+       if (! error) {
         addr1 = rb_str_new2(hbuf);
      }
+    }
      error = getnameinfo(sockaddr, SA_LEN(sockaddr), hbuf, sizeof(hbuf),
                         pbuf, sizeof(pbuf), NI_NUMERICHOST | 
NI_NUMERICSERV);
      if (error) {
         rb_raise(rb_eSocket, "getnameinfo: %s", gai_strerror(error));
      }
      addr2 = rb_str_new2(hbuf);
-    if (do_not_reverse_lookup) {
+    if (addr1 == Qnil) {
         addr1 = addr2;
      }
      port = INT2FIX(atoi(pbuf));