(************************************************************
 * WARNING!
 *
 * This file is generated by ocamlrpcgen from the source file
 * wdstated.x
 *
 ************************************************************)
module Wdstated = struct
  module V1 = struct
    open Wdstated_aux
    let _program = program_Wdstated'V1
    
    let create_client
      ?(esys = Unixqueue.create_unix_event_system())
      ?program_number
      ?version_number
      connector
      protocol =
        Rpc_client.create ?program_number ?version_number esys connector protocol _program
    
    let create_portmapped_client ?esys ?program_number ?version_number host protocol =
      let port = Rpc_portmapper.port_of_program _program host protocol in
      create_client ?esys ?program_number ?version_number (Rpc_client.Inet(host,port)) protocol
    
    let put_session client arg =
      _to_Wdstated'V1'put_session'res (Rpc_client.sync_call client "put_session" (_of_Wdstated'V1'put_session'arg arg))
    
    let put_session'async client arg pass_reply =
      Rpc_client.add_call client "put_session" (_of_Wdstated'V1'put_session'arg arg)
        (fun g -> pass_reply (fun () -> _to_Wdstated'V1'put_session'res (g())))
      
    
    let replace_session client arg =
      _to_Wdstated'V1'replace_session'res (Rpc_client.sync_call client "replace_session" (_of_Wdstated'V1'replace_session'arg arg))
    
    let replace_session'async client arg pass_reply =
      Rpc_client.add_call client "replace_session" (_of_Wdstated'V1'replace_session'arg arg)
        (fun g -> pass_reply (fun () -> _to_Wdstated'V1'replace_session'res (g())))
      
    
    let get_session client arg =
      _to_Wdstated'V1'get_session'res (Rpc_client.sync_call client "get_session" (_of_Wdstated'V1'get_session'arg arg))
    
    let get_session'async client arg pass_reply =
      Rpc_client.add_call client "get_session" (_of_Wdstated'V1'get_session'arg arg)
        (fun g -> pass_reply (fun () -> _to_Wdstated'V1'get_session'res (g())))
      
    
    
  end
  
end