(************************************************************
 * WARNING!
 *
 * This file is generated by ocamlrpcgen from the source file
 * wdstated.x
 *
 ************************************************************)
type ustring = 
      string
and st_get_result = 
      { 
        mutable result_code : int32;
        mutable serialized_data : ustring;
      }
and get_result = 
      st_get_result
and t_Wdstated'V1'put_session'arg = 
      ( ustring * ustring * int32 * ustring * ustring )
and t_Wdstated'V1'put_session'res = 
      int32
and t_Wdstated'V1'replace_session'arg = 
      ( ustring * ustring * int32 * ustring * ustring )
and t_Wdstated'V1'replace_session'res = 
      int32
and t_Wdstated'V1'get_session'arg = 
      ( ustring * ustring * ustring )
and t_Wdstated'V1'get_session'res = 
      get_result
;;
let rec _to_ustring (x:Xdr.xdr_value) : ustring = (Xdr.dest_xv_string x)
and _of_ustring (x:ustring) : Xdr.xdr_value = (Xdr.XV_string x)
and _to_st_get_result (x:Xdr.xdr_value) : st_get_result =
  (let s = Xdr.dest_xv_struct_fast x in
     { result_code = (fun x -> (Rtypes.int32_of_int4 (Xdr.dest_xv_int x)))
                     s.(0); 
       serialized_data = (fun x -> (_to_ustring x)) s.(1); 
     })
and _of_st_get_result (x:st_get_result) : Xdr.xdr_value =
  (Xdr.XV_struct_fast
     [|
       (let x = x.result_code in (Xdr.XV_int (Rtypes.int4_of_int32 x)));
       (let x = x.serialized_data in (_of_ustring x));
     |])
and _to_get_result (x:Xdr.xdr_value) : get_result = (_to_st_get_result x)
and _of_get_result (x:get_result) : Xdr.xdr_value = (_of_st_get_result x)
and _to_Wdstated'V1'put_session'arg (x:Xdr.xdr_value) : t_Wdstated'V1'put_session'arg =
  (let s = Xdr.dest_xv_struct_fast x in
     ( (fun x -> (_to_ustring x)) s.(0), 
       (fun x -> (_to_ustring x)) s.(1), 
       (fun x -> (Rtypes.int32_of_int4 (Xdr.dest_xv_int x))) s.(2), 
       (fun x -> (_to_ustring x)) s.(3), 
       (fun x -> (_to_ustring x)) s.(4)
     ))
and _of_Wdstated'V1'put_session'arg (x:t_Wdstated'V1'put_session'arg) : Xdr.xdr_value =
  (let (x0, x1, x2, x3, x4) = x in
   Xdr.XV_struct_fast
     [|
       ((_of_ustring x0));
       ((_of_ustring x1));
       ((Xdr.XV_int (Rtypes.int4_of_int32 x2)));
       ((_of_ustring x3));
       ((_of_ustring x4));
     |]
   )
and _to_Wdstated'V1'put_session'res (x:Xdr.xdr_value) : t_Wdstated'V1'put_session'res =
  (Rtypes.int32_of_int4 (Xdr.dest_xv_int x))
and _of_Wdstated'V1'put_session'res (x:t_Wdstated'V1'put_session'res) : Xdr.xdr_value =
  (Xdr.XV_int (Rtypes.int4_of_int32 x))
and _to_Wdstated'V1'replace_session'arg (x:Xdr.xdr_value) : t_Wdstated'V1'replace_session'arg =
  (let s = Xdr.dest_xv_struct_fast x in
     ( (fun x -> (_to_ustring x)) s.(0), 
       (fun x -> (_to_ustring x)) s.(1), 
       (fun x -> (Rtypes.int32_of_int4 (Xdr.dest_xv_int x))) s.(2), 
       (fun x -> (_to_ustring x)) s.(3), 
       (fun x -> (_to_ustring x)) s.(4)
     ))
and _of_Wdstated'V1'replace_session'arg (x:t_Wdstated'V1'replace_session'arg) : Xdr.xdr_value =
  (let (x0, x1, x2, x3, x4) = x in
   Xdr.XV_struct_fast
     [|
       ((_of_ustring x0));
       ((_of_ustring x1));
       ((Xdr.XV_int (Rtypes.int4_of_int32 x2)));
       ((_of_ustring x3));
       ((_of_ustring x4));
     |]
   )
and _to_Wdstated'V1'replace_session'res (x:Xdr.xdr_value) : t_Wdstated'V1'replace_session'res =
  (Rtypes.int32_of_int4 (Xdr.dest_xv_int x))
and _of_Wdstated'V1'replace_session'res (x:t_Wdstated'V1'replace_session'res) : Xdr.xdr_value =
  (Xdr.XV_int (Rtypes.int4_of_int32 x))
and _to_Wdstated'V1'get_session'arg (x:Xdr.xdr_value) : t_Wdstated'V1'get_session'arg =
  (let s = Xdr.dest_xv_struct_fast x in
     ( (fun x -> (_to_ustring x)) s.(0), 
       (fun x -> (_to_ustring x)) s.(1), 
       (fun x -> (_to_ustring x)) s.(2)
     ))
and _of_Wdstated'V1'get_session'arg (x:t_Wdstated'V1'get_session'arg) : Xdr.xdr_value =
  (let (x0, x1, x2) = x in
   Xdr.XV_struct_fast
     [|
       ((_of_ustring x0));
       ((_of_ustring x1));
       ((_of_ustring x2));
     |]
   )
and _to_Wdstated'V1'get_session'res (x:Xdr.xdr_value) : t_Wdstated'V1'get_session'res =
  (_to_get_result x)
and _of_Wdstated'V1'get_session'res (x:t_Wdstated'V1'get_session'res) : Xdr.xdr_value =
  (_of_get_result x)
;;
let xdrt_ustring = Xdr.X_rec("ustring", Xdr.x_string_max)
;;
let xdrt_st_get_result =
  Xdr.X_rec("st_get_result",
    Xdr.X_struct
      [
        ("result_code", (Xdr.X_int));
        ("serialized_data", (xdrt_ustring));
      ])
;;
let xdrt_get_result =
  Xdr.X_rec("get_result",
    Xdr.X_struct
      [
        ("result_code", (Xdr.X_int));
        ("serialized_data", (xdrt_ustring));
      ])
;;
let xdrt_Wdstated'V1'put_session'arg =
  Xdr.X_struct
    [
      ("0", xdrt_ustring);
      ("1", xdrt_ustring);
      ("2", Xdr.X_int);
      ("3", xdrt_ustring);
      ("4", xdrt_ustring);
    ]
;;
let xdrt_Wdstated'V1'put_session'res = Xdr.X_int
;;
let xdrt_Wdstated'V1'replace_session'arg =
  Xdr.X_struct
    [
      ("0", xdrt_ustring);
      ("1", xdrt_ustring);
      ("2", Xdr.X_int);
      ("3", xdrt_ustring);
      ("4", xdrt_ustring);
    ]
;;
let xdrt_Wdstated'V1'replace_session'res = Xdr.X_int
;;
let xdrt_Wdstated'V1'get_session'arg =
  Xdr.X_struct
    [   ("0", xdrt_ustring);   ("1", xdrt_ustring);   ("2", xdrt_ustring); ]
;;
let xdrt_Wdstated'V1'get_session'res = xdrt_get_result
;;
let program_Wdstated'V1 =
  Rpc_program.create
    (Rtypes.mk_uint4('\032','\000','\002','\017'))
    (Rtypes.mk_uint4('\000','\000','\000','\001'))
    (Xdr.validate_xdr_type_system [])
    [
      "put_session",
        ((Rtypes.mk_uint4('\000','\000','\000','\001')),
        xdrt_Wdstated'V1'put_session'arg,
        xdrt_Wdstated'V1'put_session'res);
      "replace_session",
        ((Rtypes.mk_uint4('\000','\000','\000','\002')),
        xdrt_Wdstated'V1'replace_session'arg,
        xdrt_Wdstated'V1'replace_session'res);
      "get_session",
        ((Rtypes.mk_uint4('\000','\000','\000','\003')),
        xdrt_Wdstated'V1'get_session'arg,
        xdrt_Wdstated'V1'get_session'res);
    ]
;;