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
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