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

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
