Source file `inet_of_fd.ml`

1
2
3
4
5
6
7
8
9
10
11
12
open Core
open Async

let inet_of_fd ~f:sockaddr_of_fd fd =
  let fd = Fd.file_descr_exn fd in
  match (sockaddr_of_fd fd : Core_unix.sockaddr) with
  | ADDR_UNIX _ -> failwith "Not an inet socket"
  | ADDR_INET (inet, port) -> `Inet (inet, port)
;;

let local_exn = inet_of_fd ~f:Core_unix.getsockname
let remote_exn = inet_of_fd ~f:Core_unix.getpeername