Gauche > Archives > 2016/01/13

2016/01/13 01:18:13 UTCshiro
#
他にipv6 enabledかどうかを調べるポータブルな方法が無ければそれをgauche.netに入れとくしかないですねえ。
#
/proc/sys/net/ipv6とかもあるとは限らないよなあ。
2016/01/13 02:29:06 UTCskimu
#
そっか、移植性を考えたら AF_INET6 があるかどうかも考慮しないといけませんね。
#
(with-module gauche.net
  (set! ipv6-capable
        (and (global-variable-bound? 'gauche.net 'sys-getaddrinfo)
             (guard (e ((is-a? e <system-error>) #f)
                       (else (raise e)))
               (let ((s (make-socket AF_INET6 SOCK_STREAM)))
                 (socket-close s)
                 #t)))))
2016/01/13 02:30:22 UTCskimu
#
とりあえず、当面はこれでいきたいと思います。