(* $Id: rpc_client_pre.mli 2195 2015-01-01 12:23:39Z gerd $ *)

(** Definitions preceding [Rpc_client] (internal) *)

(** Same as {!Rpc_client.USE_CLIENT} *)
module type USE_CLIENT = sig
  type t
  val use : t -> Rpc_program.t -> unit
  val unbound_sync_call : 
        t -> Rpc_program.t -> string -> Netxdr.xdr_value -> Netxdr.xdr_value
  val unbound_async_call :
        t -> Rpc_program.t -> string -> Netxdr.xdr_value -> 
        ((unit -> Netxdr.xdr_value) -> unit) -> unit
end
