more windows

ocaml-multicore · Jul 23, 2023 · 287940d · 287940d
1 parent 5f4d9fe
commit 287940d
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/lib_eio_windows/net.ml b/lib_eio_windows/net.ml
@@ -57,6 +57,12 @@ let datagram_socket sock = object
     let recv, addr = Err.run (Low_level.recv_msg sock) b in
     Cstruct.blit_from_bytes b 0 buf 0 recv;
     Eio_unix.Net.sockaddr_of_unix_datagram addr, recv
+
+  method getsockopt : type a. a Eio.Net.Sockopt.t -> a = fun opt ->
+    Eio_unix.Net.Sockopt.get fd opt
+
+  method setsockopt : type a. a Eio.Net.Sockopt.t -> a -> unit = fun opt v ->
+    Eio_unix.Net.Sockopt.set fd opt v
 end
 
 (* https://www.iana.org/assignments/protocol-numbers/protocol-numbers.xhtml *)