Source file `policy_kit_interfaces.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
(* File auto-generated by obus-gen-interface, DO NOT EDIT. *)
open OBus_value
open OBus_value.C
open OBus_member
open OBus_object
module Org_freedesktop_PolicyKit_AuthenticationAgent =
struct
  let interface = "org.freedesktop.PolicyKit.AuthenticationAgent"
  let m_ObtainAuthorization = {
    Method.interface = interface;
    Method.member = "ObtainAuthorization";
    Method.i_args = (arg3
                       (Some "action_id", basic_string)
                       (Some "xid", basic_uint32)
                       (Some "pid", basic_uint32));
    Method.o_args = (arg1
                       (Some "gained_authorization", basic_boolean));
    Method.annotations = [];
  }
  type 'a members = {
    m_ObtainAuthorization : 'a OBus_object.t -> string * int32 * int32 -> bool Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_ObtainAuthorization members.m_ObtainAuthorization;
      |]
      [|
      |]
      [|
      |]
end