[socket-nif] Add support for socket (level ipv6) option rthdr

Added support for the IPv6 socket option RTHDR.
On FreeBSD this option requires superuser privileges to update.
There is no mention of this on linux, but its still not possible
to update (einval), so I assume that its the same there.

OTP-14831.

1 files changed, 20 insertions, 7 deletions

diff --git a/lib/kernel/test/socket_server.erl b/lib/kernel/test/socket_server.erl
index ba74964ed1..75cede75e5 100644
--- a/lib/kernel/test/socket_server.erl
+++ b/lib/kernel/test/socket_server.erl
@@ -23,9 +23,9 @@
 -export([
          start/0, start/4,
          start_tcp/0, start_tcp/1, start_tcp/2,
-         start_tcp4/1, start_tcp6/1,
+         start_tcp4/0, start_tcp4/1, start_tcp6/0, start_tcp6/1,
          start_udp/0, start_udp/1, start_udp/2,
-         start_udp4/1, start_udp6/1,
+         start_udp4/0, start_udp4/1, start_udp6/0, start_udp6/1,
          start_sctp/0, start_sctp/1
         ]).
 
@@ -41,14 +41,20 @@ start() ->
     start_tcp().
 
 start_tcp() ->
-    start_tcp(false).
+    start_tcp4().
 
 start_tcp(Peek) ->
     start_tcp4(Peek).
 
+start_tcp4() ->
+    start_tcp4(false).
+
 start_tcp4(Peek) ->
     start_tcp(inet, Peek).
 
+start_tcp6() ->
+    start_tcp6(false).
+
 start_tcp6(Peek) ->
     start_tcp(inet6, Peek).
 
@@ -56,14 +62,20 @@ start_tcp(Domain, Peek) when is_boolean(Peek) ->
     start(Domain, stream, tcp, Peek).
 
 start_udp() ->
-    start_udp(false).
+    start_udp4().
 
 start_udp(Peek) ->
     start_udp4(Peek).
 
+start_udp4() ->
+    start_udp4(false).
+
 start_udp4(Peek) ->
     start_udp(inet, Peek).
 
+start_udp6() ->
+    start_udp6(false).
+
 start_udp6(Peek) ->
     start_udp(inet6, Peek).
 
@@ -621,6 +633,7 @@ handler_init(Manager, ID, Peek, Sock) ->
             MIF6         = GIP6(multicast_if), % Only dgram and raw
             MLoop6       = GIP6(multicast_loop),
             RecvPktInfo  = GIP6(recvpktinfo),
+            RtHdr        = GIP6(rthdr),
             i("got continue when: "
               "~n   (socket) Domain:         ~p"
               "~n   (socket) Type:           ~p"
@@ -652,15 +665,15 @@ handler_init(Manager, ID, Peek, Sock) ->
               "~n   (ipv6)   Multicast Hops: ~s"
               "~n   (ipv6)   Multicast IF:   ~s"
               "~n   (ipv6)   Multicast Loop: ~s"
-              "~n   (ipv6)   Recv Pkt Info:  ~s",
+              "~n   (ipv6)   Recv Pkt Info:  ~s"
+              "~n   (ipv6)   RT Hdr:         ~s",
               [Domain, Type, Proto,
                RA, RP, B2D, OOBI,
                RcvBuf, RcvLW, RcvTO, SndBuf, SndLW, SndTO,
                Linger, Timestamp,
                FreeBind, MTU, MTUDisc, MALL, MIF4, MLoop4, MTTL,
                NF, RecvIF, RecvOPTS, RecvTOS, RecvTTL,
-               MHops, MIF6, MLoop6,
-               RecvPktInfo]),
+               MHops, MIF6, MLoop6, RecvPktInfo, RtHdr]),
 
             handler_loop(#handler{peek    = Peek,
                                   manager = Manager,