13 #if defined(INET6) && (defined(LOOKUP_ORDER_HACK_INET) || defined(LOOKUP_ORDER_HACK_INET6))
14 #define LOOKUP_ORDERS (sizeof(lookup_order_table) / sizeof(lookup_order_table[0]))
15 static const int lookup_order_table[] = {
16 #if defined(LOOKUP_ORDER_HACK_INET)
18 #elif defined(LOOKUP_ORDER_HACK_INET6)
26 ruby_getaddrinfo(
const char *nodename,
const char *servname,
36 for (i = 0; i < LOOKUP_ORDERS; i++) {
37 af = lookup_order_table[
i];
39 tmp_hints.ai_family = af;
40 error =
getaddrinfo(nodename, servname, &tmp_hints, res);
53 #define getaddrinfo(node,serv,hints,res) ruby_getaddrinfo((node),(serv),(hints),(res))
58 ruby_getaddrinfo__aix(
const char *nodename,
const char *servname,
61 int error =
getaddrinfo(nodename, servname, hints, res);
74 #define getaddrinfo(node,serv,hints,res) ruby_getaddrinfo__aix((node),(serv),(hints),(res))
76 ruby_getnameinfo__aix(
const struct sockaddr *sa,
size_t salen,
77 char *host,
size_t hostlen,
78 char *serv,
size_t servlen,
int flags)
80 struct sockaddr_in6 *sa6;
83 if (sa->sa_family == AF_INET6) {
84 sa6 = (
struct sockaddr_in6 *)sa;
85 a6 = sa6->sin6_addr.u6_addr.u6_addr32;
87 if (a6[0] == 0 && a6[1] == 0 && a6[2] == 0 && a6[3] == 0) {
88 strncpy(host,
"::", hostlen);
89 snprintf(serv, servlen,
"%d", sa6->sin6_port);
93 return getnameinfo(sa, salen, host, hostlen, serv, servlen, flags);
96 #define getnameinfo(sa, salen, host, hostlen, serv, servlen, flags) \
97 ruby_getnameinfo__aix((sa), (salen), (host), (hostlen), (serv), (servlen), (flags))
102 #if defined(__APPLE__)
104 ruby_getaddrinfo__darwin(
const char *nodename,
const char *servname,
108 const char *tmp_servname;
112 tmp_servname = servname;
114 if (nodename && servname) {
117 #ifdef AI_NUMERICSERV
123 error =
getaddrinfo(nodename, tmp_servname, &tmp_hints, res);
145 #define getaddrinfo(node,serv,hints,res) ruby_getaddrinfo__darwin((node),(serv),(hints),(res))
148 #ifndef GETADDRINFO_EMU
171 #ifdef GETADDRINFO_EMU
186 #ifndef GETADDRINFO_EMU
189 const struct sockaddr *
sa;
211 char *host,
size_t hostlen,
212 char *serv,
size_t servlen,
int flags)
214 #ifdef GETADDRINFO_EMU
215 return getnameinfo(sa, salen, host, hostlen, serv, servlen, flags);
254 struct sockaddr_in sin;
256 MEMZERO(&sin,
struct sockaddr_in, 1);
257 sin.sin_family = AF_INET;
259 sin.sin_addr.s_addr = host;
268 if (!p || *p ==
'\0')
272 if (ep && *ep ==
'\0')
296 if (!name || *name == 0 || (name[0] ==
'<' && strcmp(name,
"<any>") == 0)) {
300 else if (name[0] ==
'<' && strcmp(name,
"<broadcast>") == 0) {
304 else if (
strlen(name) >= len) {
323 #ifdef AI_NUMERICSERV
333 if (
strlen(serv) >= len) {
349 int additional_flags = 0;
351 hostp =
host_str(host, hbuf,
sizeof(hbuf), &additional_flags);
352 portp =
port_str(port, pbuf,
sizeof(pbuf), &additional_flags);
357 hints->
ai_flags |= additional_flags;
361 if (hostp && hostp[
strlen(hostp)-1] ==
'\n') {
385 VALUE family, port, addr1, addr2;
388 char hbuf[1024], pbuf[1024];
391 id = rsock_intern_family(sockaddr->sa_family);
396 sprintf(pbuf,
"unknown:%d", sockaddr->sa_family);
425 rsock_unixpath_str(
struct sockaddr_un *sockaddr, socklen_t
len)
428 s = sockaddr->sun_path;
429 e = (
char *)sockaddr + len;
430 while (s < e && *(e-1) ==
'\0')
439 rsock_unixaddr(
struct sockaddr_un *sockaddr, socklen_t len)
442 rsock_unixpath_str(sockaddr, len));
446 rsock_unix_sockaddr_len(
VALUE path)
451 return (socklen_t)
sizeof(sa_family_t);
455 return (socklen_t)
offsetof(
struct sockaddr_un, sun_path) +
460 return (socklen_t)
sizeof(
struct sockaddr_un);
478 VALUE (*ipaddr)(
struct sockaddr*, size_t) = arg->
ipaddr;
498 if (h->h_aliases !=
NULL) {
499 for (pch = h->h_aliases; *pch; pch++) {
509 for (ai = addr; ai; ai = ai->
ai_next) {
510 rb_ary_push(ary, (*ipaddr)(ai->ai_addr, ai->ai_addrlen));
555 #define addrinfo_free RUBY_TYPED_DEFAULT_FREE
574 #define IS_ADDRINFO(obj) rb_typeddata_is_kind_of((obj), &addrinfo_type)
605 int pfamily,
int socktype,
int protocol,
608 if ((socklen_t)
sizeof(rai->
addr) < len)
610 memcpy((
void *)&rai->
addr, (
void *)sa, len);
622 int family,
int socktype,
int protocol,
630 init_addrinfo(rai, addr, len, family, socktype, protocol, canonname, inspectname);
644 if (!
NIL_P(socktype)) {
647 if (!
NIL_P(protocol)) {
679 canonname, inspectname);
693 sizeof(hbuf), pbuf,
sizeof(pbuf),
709 if (
NIL_P(inspectname))
716 if (
NIL_P(inspectname))
721 if (!
NIL_P(inspectname)) {
748 canonname, inspectname);
766 for (r = res; r; r = r->
ai_next) {
777 canonname, inspectname);
791 struct sockaddr_un un;
796 if (
sizeof(un.sun_path) < (
size_t)
RSTRING_LEN(path))
798 "too long unix socket path (%"PRIuSIZE" bytes given but %"PRIuSIZE" bytes max)",
801 MEMZERO(&un,
struct sockaddr_un, 1);
803 un.sun_family = AF_UNIX;
806 len = rsock_unix_sockaddr_len(path);
862 VALUE sockaddr_arg, sockaddr_ary, pfamily, socktype, protocol;
863 int i_pfamily, i_socktype, i_protocol;
864 struct sockaddr *sockaddr_ptr;
865 socklen_t sockaddr_len;
872 rb_scan_args(argc, argv,
"13", &sockaddr_arg, &pfamily, &socktype, &protocol);
879 if (!
NIL_P(sockaddr_ary)) {
897 if (!
NIL_P(nodename))
901 #ifdef AI_NUMERICSERV
917 init_unix_addrinfo(rai, path, SOCK_STREAM);
928 sockaddr_ptr = (
struct sockaddr *)
RSTRING_PTR(sockaddr_arg);
931 i_pfamily, i_socktype, i_protocol,
932 canonname, inspectname);
941 if ((socklen_t)((
char*)&addr->sa_family +
sizeof(addr->sa_family) - (
char*)addr) <= len)
942 return addr->sa_family;
967 struct sockaddr_in *addr;
969 if (rai->
sockaddr_len < (socklen_t)
sizeof(
struct sockaddr_in)) {
973 addr = (
struct sockaddr_in *)&rai->
addr;
975 ((
unsigned char*)&addr->sin_addr)[0],
976 ((
unsigned char*)&addr->sin_addr)[1],
977 ((
unsigned char*)&addr->sin_addr)[2],
978 ((
unsigned char*)&addr->sin_addr)[3]);
979 port = ntohs(addr->sin_port);
982 if ((socklen_t)
sizeof(
struct sockaddr_in) < rai->
sockaddr_len)
991 struct sockaddr_in6 *addr;
995 if (rai->
sockaddr_len < (socklen_t)
sizeof(
struct sockaddr_in6)) {
999 addr = (
struct sockaddr_in6 *)&rai->
addr;
1005 hbuf, (socklen_t)
sizeof(hbuf),
NULL, 0,
1010 if (addr->sin6_port == 0) {
1014 port = ntohs(addr->sin6_port);
1017 if ((socklen_t)
sizeof(
struct sockaddr_in6) < rai->
sockaddr_len)
1024 #ifdef HAVE_SYS_UN_H
1027 struct sockaddr_un *addr = (
struct sockaddr_un *)&rai->
addr;
1031 while (s < e && *(e-1) ==
'\0')
1038 int printable_only = 1;
1044 if (printable_only) {
1054 if (addr->sun_path +
sizeof(addr->sun_path) < (
char*)&rai->
addr + rai->
sockaddr_len)
1056 (
int)(rai->
sockaddr_len - (addr->sun_path +
sizeof(addr->sun_path) - (
char*)&rai->
addr)));
1099 ID id = rsock_intern_protocol_family(rai->
pfamily);
1108 internet_p = internet_p || rai->
pfamily == PF_INET6;
1110 if (internet_p && rai->
socktype == SOCK_STREAM &&
1114 else if (internet_p && rai->
socktype == SOCK_DGRAM &&
1120 ID id = rsock_intern_socktype(rai->
socktype);
1133 goto unknown_protocol;
1178 VALUE sockaddr, afamily, pfamily, socktype, protocol, canonname, inspectname;
1182 id = rsock_intern_protocol_family(rai->
pfamily);
1190 id = rsock_intern_socktype(rai->
socktype);
1199 id = rsock_intern_ipproto(rai->
protocol);
1212 id = rsock_intern_family(afamily_int);
1217 switch(afamily_int) {
1218 #ifdef HAVE_SYS_UN_H
1221 struct sockaddr_un *su = (
struct sockaddr_un *)&rai->
addr;
1225 while (s < e && *(e-1) ==
'\0')
1237 hbuf, (socklen_t)
sizeof(hbuf), pbuf, (socklen_t)
sizeof(pbuf),
1247 return rb_ary_new3(7, afamily, sockaddr, pfamily, socktype, protocol, canonname, inspectname);
1255 VALUE canonname, inspectname;
1256 int afamily, pfamily, socktype, protocol;
1317 #ifdef HAVE_SYS_UN_H
1320 struct sockaddr_un uaddr;
1321 MEMZERO(&uaddr,
struct sockaddr_un, 1);
1322 uaddr.sun_family = AF_UNIX;
1325 if (
sizeof(uaddr.sun_path) < (
size_t)
RSTRING_LEN(v))
1327 "too long AF_UNIX path (%"PRIuSIZE
" bytes given but %"PRIuSIZE
" bytes max)",
1330 len = (socklen_t)
sizeof(uaddr);
1331 memcpy(&ss, &uaddr, len);
1341 #ifdef AI_NUMERICSERV
1356 pfamily, socktype, protocol,
1357 canonname, inspectname);
1573 char hbuf[1024], pbuf[1024];
1584 hbuf, (socklen_t)
sizeof(hbuf), pbuf, (socklen_t)
sizeof(pbuf),
1674 port = ntohs(((
struct sockaddr_in *)&rai->
addr)->sin_port);
1681 port = ntohs(((
struct sockaddr_in6 *)&rai->
addr)->sin6_port);
1697 if (family != AF_INET)
return 0;
1698 *addrp = ntohl(((
struct sockaddr_in *)&rai->
addr)->sin_addr.s_addr);
1711 if ((a & 0xff000000) == 0x0a000000 ||
1712 (a & 0xfff00000) == 0xac100000 ||
1713 (a & 0xffff0000) == 0xc0a80000)
1727 if ((a & 0xff000000) == 0x7f000000)
1741 if ((a & 0xf0000000) == 0xe0000000)
1748 static struct in6_addr *
1749 extract_in6_addr(
VALUE self)
1753 if (family != AF_INET6)
return NULL;
1754 return &((
struct sockaddr_in6 *)&rai->
addr)->sin6_addr;
1762 addrinfo_ipv6_unspecified_p(
VALUE self)
1764 struct in6_addr *addr = extract_in6_addr(
self);
1765 if (addr && IN6_IS_ADDR_UNSPECIFIED(addr))
return Qtrue;
1774 addrinfo_ipv6_loopback_p(
VALUE self)
1776 struct in6_addr *addr = extract_in6_addr(
self);
1777 if (addr && IN6_IS_ADDR_LOOPBACK(addr))
return Qtrue;
1786 addrinfo_ipv6_multicast_p(
VALUE self)
1788 struct in6_addr *addr = extract_in6_addr(
self);
1789 if (addr && IN6_IS_ADDR_MULTICAST(addr))
return Qtrue;
1798 addrinfo_ipv6_linklocal_p(
VALUE self)
1800 struct in6_addr *addr = extract_in6_addr(
self);
1801 if (addr && IN6_IS_ADDR_LINKLOCAL(addr))
return Qtrue;
1810 addrinfo_ipv6_sitelocal_p(
VALUE self)
1812 struct in6_addr *addr = extract_in6_addr(
self);
1813 if (addr && IN6_IS_ADDR_SITELOCAL(addr))
return Qtrue;
1822 addrinfo_ipv6_v4mapped_p(
VALUE self)
1824 struct in6_addr *addr = extract_in6_addr(
self);
1825 if (addr && IN6_IS_ADDR_V4MAPPED(addr))
return Qtrue;
1834 addrinfo_ipv6_v4compat_p(
VALUE self)
1836 struct in6_addr *addr = extract_in6_addr(
self);
1837 if (addr && IN6_IS_ADDR_V4COMPAT(addr))
return Qtrue;
1846 addrinfo_ipv6_mc_nodelocal_p(
VALUE self)
1848 struct in6_addr *addr = extract_in6_addr(
self);
1849 if (addr && IN6_IS_ADDR_MC_NODELOCAL(addr))
return Qtrue;
1858 addrinfo_ipv6_mc_linklocal_p(
VALUE self)
1860 struct in6_addr *addr = extract_in6_addr(
self);
1861 if (addr && IN6_IS_ADDR_MC_LINKLOCAL(addr))
return Qtrue;
1870 addrinfo_ipv6_mc_sitelocal_p(
VALUE self)
1872 struct in6_addr *addr = extract_in6_addr(
self);
1873 if (addr && IN6_IS_ADDR_MC_SITELOCAL(addr))
return Qtrue;
1882 addrinfo_ipv6_mc_orglocal_p(
VALUE self)
1884 struct in6_addr *addr = extract_in6_addr(
self);
1885 if (addr && IN6_IS_ADDR_MC_ORGLOCAL(addr))
return Qtrue;
1894 addrinfo_ipv6_mc_global_p(
VALUE self)
1896 struct in6_addr *addr = extract_in6_addr(
self);
1897 if (addr && IN6_IS_ADDR_MC_GLOBAL(addr))
return Qtrue;
1912 addrinfo_ipv6_to_ipv4(
VALUE self)
1915 struct in6_addr *addr;
1917 if (family != AF_INET6)
return Qnil;
1918 addr = &((
struct sockaddr_in6 *)&rai->
addr)->sin6_addr;
1919 if (IN6_IS_ADDR_V4MAPPED(addr) || IN6_IS_ADDR_V4COMPAT(addr)) {
1920 struct sockaddr_in sin4;
1921 MEMZERO(&sin4,
struct sockaddr_in, 1);
1922 sin4.sin_family = AF_INET;
1924 memcpy(&sin4.sin_addr, (
char*)addr +
sizeof(*addr) -
sizeof(sin4.sin_addr),
sizeof(sin4.sin_addr));
1936 #ifdef HAVE_SYS_UN_H
1946 addrinfo_unix_path(
VALUE self)
1950 struct sockaddr_un *addr;
1953 if (family != AF_UNIX)
1956 addr = (
struct sockaddr_un *)&rai->
addr;
1962 if (addr->sun_path +
sizeof(addr->sun_path) < e)
1964 while (s < e && *(e-1) ==
'\0')
2007 VALUE node, service, family, socktype, protocol, flags;
2009 rb_scan_args(argc, argv,
"24", &node, &service, &family, &socktype, &protocol, &flags);
2067 #ifdef HAVE_SYS_UN_H
2084 VALUE path, vsocktype, addr;
2090 if (
NIL_P(vsocktype))
2091 socktype = SOCK_STREAM;
2097 init_unix_addrinfo(rai, path, socktype);
2136 socklen_t optlen = (socklen_t)
sizeof(socktype);
2141 ret = getsockopt(fd, SOL_SOCKET, SO_TYPE, (
void*)&socktype, &optlen);
2189 #ifdef HAVE_SYS_UN_H
2229 #ifdef HAVE_SYS_UN_H