8 ID name = intern_const(constant);
162 unsigned char i = (
unsigned char)
NUM2CHR(vint);
254 int i =
RTEST(vbool) ? 1 : 0;
278 if (len !=
sizeof(
int))
280 (
int)
sizeof(
int), (
long)len);
308 l.l_onoff =
RTEST(vonoff) ? 1 : 0;
331 if (level != SOL_SOCKET || optname != SO_LINGER)
335 (
int)
sizeof(
struct linger), (
long)
RSTRING_LEN(data));
338 case 0: vonoff =
Qfalse;
break;
339 case 1: vonoff =
Qtrue;
break;
340 default: vonoff =
INT2NUM(l.l_onoff);
break;
364 #if defined(IPPROTO_IP) && defined(IP_MULTICAST_LOOP)
365 # if defined(__NetBSD__) || defined(__OpenBSD__)
373 # error IPPROTO_IP or IP_MULTICAST_LOOP is not implemented
393 #if defined(IPPROTO_IP) && defined(IP_MULTICAST_LOOP)
394 if (family == AF_INET && level == IPPROTO_IP && optname == IP_MULTICAST_LOOP) {
395 # if defined(__NetBSD__) || defined(__OpenBSD__)
406 #if defined(__NetBSD__) || defined(__OpenBSD__)
407 # define inspect_ipv4_multicast_loop(a,b,c,d) inspect_byte(a,b,c,d)
409 # define inspect_ipv4_multicast_loop(a,b,c,d) inspect_int(a,b,c,d)
427 #if defined(IPPROTO_IP) && defined(IP_MULTICAST_TTL)
428 # if defined(__NetBSD__) || defined(__OpenBSD__)
436 # error IPPROTO_IP or IP_MULTICAST_TTL is not implemented
456 #if defined(IPPROTO_IP) && defined(IP_MULTICAST_TTL)
457 if (family == AF_INET && level == IPPROTO_IP && optname == IP_MULTICAST_TTL) {
458 # if defined(__NetBSD__) || defined(__OpenBSD__)
469 #if defined(__NetBSD__) || defined(__OpenBSD__)
470 # define inspect_ipv4_multicast_ttl(a,b,c,d) inspect_byte(a,b,c,d)
472 # define inspect_ipv4_multicast_ttl(a,b,c,d) inspect_int(a,b,c,d)
489 #if defined(__NetBSD__) || defined(__OpenBSD__)
519 #if defined(IPV6_MULTICAST_LOOP)
521 inspect_uint(
int level,
int optname,
VALUE data,
VALUE ret)
535 #if defined(SOL_SOCKET) && defined(SO_LINGER)
537 inspect_linger(
int level,
int optname,
VALUE data,
VALUE ret)
556 #if defined(SOL_SOCKET) && defined(SO_TYPE)
558 inspect_socktype(
int level,
int optname,
VALUE data,
VALUE ret)
564 id = rsock_intern_socktype(i);
631 #ifndef HAVE_INET_NTOP
633 inet_ntop(
int af,
const void *addr,
char *numaddr,
size_t numaddr_len)
635 #ifdef HAVE_INET_NTOA
637 memcpy(&in.s_addr, addr,
sizeof(in.s_addr));
638 snprintf(numaddr, numaddr_len,
"%s", inet_ntoa(in));
640 unsigned long x = ntohl(*(
unsigned long*)addr);
641 snprintf(numaddr, numaddr_len,
"%d.%d.%d.%d",
642 (
int) (x>>24) & 0xff, (
int) (x>>16) & 0xff,
643 (
int) (x>> 8) & 0xff, (
int) (x>> 0) & 0xff);
647 #elif defined __MINGW64__
648 # define inet_ntop(f,a,n,l) rb_w32_inet_ntop(f,a,n,l)
655 #if defined(HAVE_IF_INDEXTONAME)
657 if (if_indextoname(ifindex, ifbuf) ==
NULL)
658 return snprintf(buf, len,
"%s%u", fail_prefix, ifindex);
660 return snprintf(buf, len,
"%s%s", succ_prefix, ifbuf);
663 # define IFNAMSIZ (sizeof(unsigned int)*3+1)
665 return snprintf(buf, len,
"%s%u", fail_prefix, ifindex);
669 #if defined(IPPROTO_IP) && defined(HAVE_TYPE_STRUCT_IP_MREQ)
671 inspect_ipv4_mreq(
int level,
int optname,
VALUE data,
VALUE ret)
675 char addrbuf[INET_ADDRSTRLEN];
693 #if defined(IPPROTO_IP) && defined(HAVE_TYPE_STRUCT_IP_MREQN)
695 inspect_ipv4_mreqn(
int level,
int optname,
VALUE data,
VALUE ret)
697 if (
RSTRING_LEN(data) ==
sizeof(
struct ip_mreqn)) {
699 char addrbuf[INET_ADDRSTRLEN], ifbuf[32+
IFNAMSIZ];
719 #if defined(IPPROTO_IP) && defined(HAVE_TYPE_STRUCT_IP_MREQ)
721 inspect_ipv4_add_drop_membership(
int level,
int optname,
VALUE data,
VALUE ret)
724 return inspect_ipv4_mreq(level, optname, data, ret);
725 # if defined(HAVE_TYPE_STRUCT_IP_MREQN)
726 else if (
RSTRING_LEN(data) ==
sizeof(
struct ip_mreqn))
727 return inspect_ipv4_mreqn(level, optname, data, ret);
734 #if defined(IPPROTO_IP) && defined(IP_MULTICAST_IF) && defined(HAVE_TYPE_STRUCT_IP_MREQN)
736 inspect_ipv4_multicast_if(
int level,
int optname,
VALUE data,
VALUE ret)
740 char addrbuf[INET_ADDRSTRLEN];
748 else if (
RSTRING_LEN(data) ==
sizeof(
struct ip_mreqn)) {
749 return inspect_ipv4_mreqn(level, optname, data, ret);
757 #if defined(IPV6_MULTICAST_IF)
759 inspect_ipv6_multicast_if(
int level,
int optname,
VALUE data,
VALUE ret)
763 unsigned int ifindex;
775 #if defined(IPPROTO_IPV6) && defined(HAVE_TYPE_STRUCT_IPV6_MREQ)
777 inspect_ipv6_mreq(
int level,
int optname,
VALUE data,
VALUE ret)
779 if (
RSTRING_LEN(data) ==
sizeof(
struct ipv6_mreq)) {
781 char addrbuf[INET6_ADDRSTRLEN], ifbuf[32+
IFNAMSIZ];
797 #if defined(SOL_SOCKET) && defined(SO_PEERCRED)
798 #if defined(__OpenBSD__)
799 #define RUBY_SOCK_PEERCRED struct sockpeercred
801 #define RUBY_SOCK_PEERCRED struct ucred
804 inspect_peercred(
int level,
int optname,
VALUE data,
VALUE ret)
806 if (
RSTRING_LEN(data) ==
sizeof(RUBY_SOCK_PEERCRED)) {
807 RUBY_SOCK_PEERCRED cred;
810 (
unsigned)cred.pid, (
unsigned)cred.uid, (
unsigned)cred.gid);
820 #if defined(LOCAL_PEERCRED)
822 inspect_local_peercred(
int level,
int optname,
VALUE data,
VALUE ret)
827 if (cred.cr_version != XUCRED_VERSION)
831 if (cred.cr_ngroups) {
833 const char *sep =
" groups=";
834 for (i = 0; i < cred.cr_ngroups; i++) {
867 ID family_id, level_id, optname_id;
874 family_id = rsock_intern_family_noprefix(family);
880 if (level == SOL_SOCKET) {
883 optname_id = rsock_intern_so_optname(optname);
890 else if (family == AF_UNIX) {
893 optname_id = rsock_intern_local_optname(optname);
901 level_id = rsock_intern_iplevel(level);
920 if (level == SOL_SOCKET)
927 # if defined(SO_DEBUG)
928 case SO_DEBUG: inspected =
inspect_int(level, optname, data, ret);
break;
930 # if defined(SO_ERROR)
931 case SO_ERROR: inspected =
inspect_errno(level, optname, data, ret);
break;
933 # if defined(SO_TYPE)
934 case SO_TYPE: inspected = inspect_socktype(level, optname, data, ret);
break;
936 # if defined(SO_ACCEPTCONN)
937 case SO_ACCEPTCONN: inspected =
inspect_int(level, optname, data, ret);
break;
939 # if defined(SO_BROADCAST)
940 case SO_BROADCAST: inspected =
inspect_int(level, optname, data, ret);
break;
942 # if defined(SO_REUSEADDR)
943 case SO_REUSEADDR: inspected =
inspect_int(level, optname, data, ret);
break;
945 # if defined(SO_KEEPALIVE)
946 case SO_KEEPALIVE: inspected =
inspect_int(level, optname, data, ret);
break;
948 # if defined(SO_OOBINLINE)
949 case SO_OOBINLINE: inspected =
inspect_int(level, optname, data, ret);
break;
951 # if defined(SO_SNDBUF)
952 case SO_SNDBUF: inspected =
inspect_int(level, optname, data, ret);
break;
954 # if defined(SO_RCVBUF)
955 case SO_RCVBUF: inspected =
inspect_int(level, optname, data, ret);
break;
957 # if defined(SO_DONTROUTE)
958 case SO_DONTROUTE: inspected =
inspect_int(level, optname, data, ret);
break;
960 # if defined(SO_RCVLOWAT)
961 case SO_RCVLOWAT: inspected =
inspect_int(level, optname, data, ret);
break;
963 # if defined(SO_SNDLOWAT)
964 case SO_SNDLOWAT: inspected =
inspect_int(level, optname, data, ret);
break;
966 # if defined(SO_LINGER)
967 case SO_LINGER: inspected = inspect_linger(level, optname, data, ret);
break;
969 # if defined(SO_RCVTIMEO)
972 # if defined(SO_SNDTIMEO)
975 # if defined(SO_PEERCRED)
976 case SO_PEERCRED: inspected = inspect_peercred(level, optname, data, ret);
break;
988 # if defined(IPPROTO_IP)
991 # if defined(IP_MULTICAST_IF) && defined(HAVE_TYPE_STRUCT_IP_MREQN)
992 case IP_MULTICAST_IF: inspected = inspect_ipv4_multicast_if(level, optname, data, ret);
break;
994 # if defined(IP_ADD_MEMBERSHIP)
995 case IP_ADD_MEMBERSHIP: inspected = inspect_ipv4_add_drop_membership(level, optname, data, ret);
break;
997 # if defined(IP_DROP_MEMBERSHIP)
998 case IP_DROP_MEMBERSHIP: inspected = inspect_ipv4_add_drop_membership(level, optname, data, ret);
break;
1000 # if defined(IP_MULTICAST_LOOP)
1003 # if defined(IP_MULTICAST_TTL)
1010 # if defined(IPPROTO_IPV6)
1013 # if defined(IPV6_MULTICAST_HOPS)
1014 case IPV6_MULTICAST_HOPS: inspected =
inspect_int(level, optname, data, ret);
break;
1016 # if defined(IPV6_MULTICAST_IF)
1017 case IPV6_MULTICAST_IF: inspected = inspect_ipv6_multicast_if(level, optname, data, ret);
break;
1019 # if defined(IPV6_MULTICAST_LOOP)
1020 case IPV6_MULTICAST_LOOP: inspected = inspect_uint(level, optname, data, ret);
break;
1022 # if defined(IPV6_JOIN_GROUP)
1023 case IPV6_JOIN_GROUP: inspected = inspect_ipv6_mreq(level, optname, data, ret);
break;
1025 # if defined(IPV6_LEAVE_GROUP)
1026 case IPV6_LEAVE_GROUP: inspected = inspect_ipv6_mreq(level, optname, data, ret);
break;
1028 # if defined(IPV6_UNICAST_HOPS)
1029 case IPV6_UNICAST_HOPS: inspected =
inspect_int(level, optname, data, ret);
break;
1031 # if defined(IPV6_V6ONLY)
1032 case IPV6_V6ONLY: inspected =
inspect_int(level, optname, data, ret);
break;
1038 # if defined(IPPROTO_TCP)
1041 # if defined(TCP_NODELAY)
1042 case TCP_NODELAY: inspected =
inspect_int(level, optname, data, ret);
break;
1050 #ifdef HAVE_SYS_UN_H
1055 # if defined(LOCAL_PEERCRED)
1056 case LOCAL_PEERCRED: inspected = inspect_local_peercred(level, optname, data, ret);
break;
static VALUE sockopt_unpack(VALUE self, VALUE template)
const char * rb_obj_classname(VALUE)
static VALUE sockopt_family_m(VALUE self)
static VALUE sockopt_bool(VALUE self)
void rb_define_singleton_method(VALUE obj, const char *name, VALUE(*func)(ANYARGS), int argc)
Defines a singleton method for obj.
rb_funcall(memo->yielder, id_lshift, 1, rb_assoc_new(memo->prev_value, memo->prev_elts))
static int rb_if_indextoname(const char *succ_prefix, const char *fail_prefix, unsigned int ifindex, char *buf, size_t len)
static VALUE sockopt_inspect(VALUE self)
static VALUE optname_to_sym(int level, int optname)
static int inspect_timeval_as_interval(int level, int optname, VALUE data, VALUE ret)
static VALUE sockopt_linger(VALUE self)
VALUE rb_define_class_under(VALUE outer, const char *name, VALUE super)
Defines a class under the namespace of outer.
void rb_raise(VALUE exc, const char *fmt,...)
static VALUE sockopt_level_m(VALUE self)
memset(y->frac+ix+1, 0,(y->Prec-(ix+1))*sizeof(BDIGIT))
static VALUE sockopt_ipv4_multicast_ttl(VALUE self)
static VALUE sockopt_data(VALUE self)
int rsock_family_arg(VALUE domain)
VALUE rsock_sockopt_new(int family, int level, int optname, VALUE data)
static VALUE sockopt_initialize(VALUE self, VALUE vfamily, VALUE vlevel, VALUE voptname, VALUE data)
static int inspect_errno(int level, int optname, VALUE data, VALUE ret)
static VALUE sockopt_s_bool(VALUE klass, VALUE vfamily, VALUE vlevel, VALUE voptname, VALUE vbool)
VALUE rb_str_cat2(VALUE, const char *)
int rsock_level_arg(int family, VALUE level)
VALUE rb_check_to_integer(VALUE, const char *)
#define inspect_ipv4_multicast_loop(a, b, c, d)
unsigned char buf[MIME_BUF_SIZE]
static VALUE constant_to_sym(int constant, ID(*intern_const)(int))
static int sockopt_optname(VALUE self)
static VALUE sockopt_s_byte(VALUE klass, VALUE vfamily, VALUE vlevel, VALUE voptname, VALUE vint)
VALUE rb_sprintf(const char *format,...)
VALUE rb_assoc_new(VALUE car, VALUE cdr)
static const char * inet_ntop(int af, const void *addr, char *numaddr, size_t numaddr_len)
VALUE rb_attr_get(VALUE, ID)
static VALUE sockopt_ipv4_multicast_loop(VALUE self)
static VALUE sockopt_optname_m(VALUE self)
RUBY_EXTERN char * strerror(int)
#define NEWOBJ_OF(obj, type, klass, flags)
static int inspect_int(int level, int optname, VALUE data, VALUE ret)
static VALUE sockopt_int(VALUE self)
static VALUE sockopt_s_int(VALUE klass, VALUE vfamily, VALUE vlevel, VALUE voptname, VALUE vint)
VALUE rb_str_catf(VALUE str, const char *format,...)
RUBY_EXTERN VALUE rb_cObject
static VALUE sockopt_s_ipv4_multicast_loop(VALUE klass, VALUE value)
static VALUE sockopt_s_linger(VALUE klass, VALUE vonoff, VALUE vsecs)
int rsock_optname_arg(int family, int level, VALUE optname)
rb_ivar_set(yielder, id_memo, LONG2NUM(++count))
VALUE rb_str_new(const char *, long)
const char * rb_id2name(ID id)
static int sockopt_level(VALUE self)
void rsock_init_sockopt(void)
#define inspect_ipv4_multicast_ttl(a, b, c, d)
static VALUE sockopt_byte(VALUE self)
static VALUE sockopt_s_ipv4_multicast_ttl(VALUE klass, VALUE value)
void rb_define_method(VALUE klass, const char *name, VALUE(*func)(ANYARGS), int argc)