module Rpc_transport:sig
..end
type't
result =[ `Error of exn | `Ok of 't ]
type't
result_eof =[ `End_of_file | `Error of exn | `Ok of 't ]
typesockaddr =
[ `Implied | `Sockaddr of Unix.sockaddr ]
val string_of_sockaddr : sockaddr -> string
exception Error of string
`Error
. Such errors are fatal.typein_rule =
[ `Accept | `Deny | `Drop | `Reject | `Reject_with of Rpc.server_error ]
typein_record =
[ `Accept of Rpc_packer.packed_value
| `Deny
| `Drop
| `Reject of Rpc_packer.packed_value
| `Reject_with of Rpc_packer.packed_value * Rpc.server_error ]
class type rpc_multiplex_controller =object
..end
val stream_rpc_multiplex_controller : ?dbg_name:string Pervasives.ref ->
?close_inactive_descr:bool ->
?preclose:(unit -> unit) ->
?tls:(module Netsys_crypto_types.TLS_CONFIG) * string option ->
role:[ `Client | `Server ] ->
Unix.file_descr ->
Unixqueue.event_system -> rpc_multiplex_controller
close_inactive_descr
: If true, the descriptor is closed when
inactivatedpreclose
: This function is called just before the descriptor
is closed.tls
: Enables TLS support for the passed config and the passed DNS
peer nameval datagram_rpc_multiplex_controller : ?dbg_name:string Pervasives.ref ->
?close_inactive_descr:bool ->
?preclose:(unit -> unit) ->
role:[ `Client | `Server ] ->
Unix.file_descr ->
Unixqueue.event_system -> rpc_multiplex_controller
typeinternal_pipe =
Netxdr.xdr_value Netsys_polypipe.polypipe
val internal_rpc_multiplex_controller : ?dbg_name:string Pervasives.ref ->
?close_inactive_descr:bool ->
?preclose:(unit -> unit) ->
internal_pipe ->
internal_pipe ->
Unixqueue.event_system -> rpc_multiplex_controller
module Debug:sig
..end