1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(*
* eject.ml
* --------
* Copyright : (c) 2008, Jeremie Dimino <jeremie@dimino.org>
* Licence : BSD3
*
* This file is a part of obus, an ocaml implementation of D-Bus.
*)
(* Simple sample which eject all cdroms using Hal *)
open Lwt
open Lwt_io
let () = Lwt_main.run begin
let%lwt manager = Hal_manager.manager () in
let%lwt cdroms = Hal_manager.find_device_by_capability manager "storage.cdrom" in
let%lwt () = printlf "cdrom(s) found: %d" (List.length cdroms) in
Lwt_list.iter_p begin function cdrom ->
let%lwt () = printlf "eject on device %s" (OBus_path.to_string (OBus_proxy.path (Hal_device.to_proxy cdrom))) in
let%lwt _ = Hal_device.Storage.eject cdrom [] in
return ()
end cdroms
end
|
