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
73
74
75
76
77
78
79
80
81
82
83
|
(*
* signals.ml
* ----------
* Copyright : (c) 2008, Jeremie Dimino <jeremie@dimino.org>
* Licence : BSD3
*
* This file is a part of obus, an ocaml implementation of D-Bus.
*)
(* This sample illustrate the use of signals *)
open Lwt_react
open Lwt
open Lwt_io
(* Add an handler on keyboard event which print the multimedia key
pressed *)
let handle_multimedia_keys device =
OBus_signal.connect (Hal_device.condition device)
>|= (E.map_p
(fun (action, key) ->
let%lwt () = printlf "from Hal: action %S on key %S!" action key in
let%lwt () = printlf " the signal come from the device %S" (OBus_path.to_string (Hal_device.udi device)) in
return ()))
>|= E.keep
let () = Lwt_main.run begin
let%lwt session = OBus_bus.session () in
(* +---------------------------------------------------------------+
| Signals from message bus |
+---------------------------------------------------------------+ *)
let%lwt () =
OBus_signal.connect (OBus_bus.name_owner_changed session)
>|= (E.map_p
(fun (name, old_owner, new_owner) ->
printlf "from D-Bus: the owner of the name %S changed: %S -> %S"
name old_owner new_owner))
>|= E.keep
in
let%lwt () =
OBus_signal.connect (OBus_bus.name_lost session)
>|= E.map_p (printlf "from D-Bus: i lost the name %S!")
>|= E.keep
in
let%lwt () =
OBus_signal.connect (OBus_bus.name_acquired session)
>|= E.map_p (printf "from D-Bus: i got the name '%S!")
>|= E.keep
in
(* +---------------------------------------------------------------+
| Some Hal signals |
+---------------------------------------------------------------+ *)
let%lwt manager = Hal_manager.manager () in
let%lwt () =
OBus_signal.connect (Hal_manager.device_added manager)
>|= (E.map_p
(fun device ->
let%lwt () = printlf "from Hal: device added: %S" (OBus_path.to_string (Hal_device.udi device)) in
(* Handle the adding of keyboards *)
Hal_device.query_capability device "input.keyboard" >>= function
| true -> handle_multimedia_keys device
| false -> return ()))
>|= E.keep
in
(* Find all keyboards and handle events on them *)
let%lwt keyboards = Hal_manager.find_device_by_capability manager "input.keyboard" in
let%lwt () = printlf "keyboard founds: %d" (List.length keyboards) in
let%lwt () = Lwt_list.iter_p (fun dev -> printlf " %s" (OBus_path.to_string (Hal_device.udi dev))) keyboards in
let%lwt () = Lwt_list.iter_p handle_multimedia_keys keyboards in
let%lwt () = printf "type Ctrl+C to stop\n%!" in
fst (wait ())
end
|
