Source file backend.ml

open! Core
open! Async

let name = "Unauthenticated Async RPC"

module Settings = struct
  type t = unit [@@deriving bin_io, sexp]
end

let serve
  ?max_message_size
  ?buffer_age_limit
  ?handshake_timeout
  ?heartbeat_config
  ~implementations
  ~initial_connection_state
  ~where_to_listen
  ()
  =
  let make_transport fd ~max_message_size =
    Rpc.Transport.of_fd ?buffer_age_limit fd ~max_message_size
  in
  Rpc.Connection.serve
    ?max_message_size
    ~make_transport
    ?handshake_timeout
    ?heartbeat_config
    ~implementations
    ~initial_connection_state
    ~where_to_listen
    ()
;;

let client
  ?implementations
  ?max_message_size
  ?buffer_age_limit
  ?handshake_timeout
  ?heartbeat_config
  ?description
  ()
  where_to_connect
  =
  let make_transport fd ~max_message_size =
    Rpc.Transport.of_fd ?buffer_age_limit fd ~max_message_size
  in
  Rpc.Connection.client
    ?implementations
    ?max_message_size
    ~make_transport
    ?handshake_timeout
    ?heartbeat_config
    ?description
    where_to_connect
  |> Deferred.Or_error.of_exn_result
;;

let with_client
  ?implementations
  ?max_message_size
  ?buffer_age_limit
  ?handshake_timeout
  ?heartbeat_config
  ()
  where_to_connect
  f
  =
  let make_transport fd ~max_message_size =
    Rpc.Transport.of_fd ?buffer_age_limit fd ~max_message_size
  in
  Rpc.Connection.with_client
    ?implementations
    ?max_message_size
    ~make_transport
    ?handshake_timeout
    ?heartbeat_config
    where_to_connect
    f
  |> Deferred.Or_error.of_exn_result
;;