Source file notification_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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
(* 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_Notifications =
struct
  let interface = "org.freedesktop.Notifications"
  let m_CloseNotification = {
    Method.interface = interface;
    Method.member = "CloseNotification";
    Method.i_args = (arg1
                       (Some "id", basic_uint32));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_GetCapabilities = {
    Method.interface = interface;
    Method.member = "GetCapabilities";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "return_caps", array basic_string));
    Method.annotations = [];
  }
  let m_GetServerInformation = {
    Method.interface = interface;
    Method.member = "GetServerInformation";
    Method.i_args = (arg0);
    Method.o_args = (arg4
                       (Some "return_name", basic_string)
                       (Some "return_vendor", basic_string)
                       (Some "return_version", basic_string)
                       (Some "return_spec_version", basic_string));
    Method.annotations = [];
  }
  let m_Notify = {
    Method.interface = interface;
    Method.member = "Notify";
    Method.i_args = (arg8
                       (Some "app_name", basic_string)
                       (Some "id", basic_uint32)
                       (Some "icon", basic_string)
                       (Some "summary", basic_string)
                       (Some "body", basic_string)
                       (Some "actions", array basic_string)
                       (Some "hints", dict string variant)
                       (Some "timeout", basic_int32));
    Method.o_args = (arg1
                       (Some "return_id", basic_uint32));
    Method.annotations = [];
  }
  type 'a members = {
    m_CloseNotification : 'a OBus_object.t -> int32 -> unit Lwt.t;
    m_GetCapabilities : 'a OBus_object.t -> unit -> string list Lwt.t;
    m_GetServerInformation : 'a OBus_object.t -> unit -> (string * string * string * string) Lwt.t;
    m_Notify : 'a OBus_object.t -> string * int32 * string * string * string * string list * (string * OBus_value.V.single) list * int32 -> int32 Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_CloseNotification members.m_CloseNotification;
        method_info m_GetCapabilities members.m_GetCapabilities;
        method_info m_GetServerInformation members.m_GetServerInformation;
        method_info m_Notify members.m_Notify;
      |]
      [|
      |]
      [|
      |]
end