package obus
Pure Ocaml implementation of the D-Bus protocol
Install
Dune Dependency
Authors
Maintainers
Sources
obus-1.2.5.tar.gz
md5=81eb1034c6ef4421a2368a9b352199de
sha512=4b540497188a7d78f4f14f94c6b7fdff47dd06436a34e650ff378dd77bb3e2acb7afd45cd72daf4ddba06e732e9944d560c2882dc37862f1b1f1bb6df37e6205
doc/src/obus.udisks/uDisks_expander.ml.html
Source file uDisks_expander.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(* * uDisks_expander.ml * ------------------ * Copyright : (c) 2010, Jeremie Dimino <jeremie@dimino.org> * Licence : BSD3 * * This file is a part of obus, an ocaml implementation of D-Bus. *) include OBus_proxy.Private open UDisks_interfaces.Org_freedesktop_UDisks_Expander let changed proxy = OBus_signal.make s_Changed proxy let native_path proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_NativePath proxy let vendor proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_Vendor proxy let model proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_Model proxy let revision proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_Revision proxy let num_ports proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_NumPorts proxy) let upstream_ports proxy = OBus_property.map_r_with_context (fun context x -> List.map (fun path -> UDisks_port.of_proxy ( OBus_proxy.make (OBus_context.sender context) path)) x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_UpstreamPorts proxy) let adapter proxy = OBus_property.map_r_with_context (fun context x -> UDisks_adapter.of_proxy (OBus_proxy.make (OBus_context.sender context) x)) (OBus_property.make ~monitor:UDisks_monitor.monitor p_Adapter proxy) let properties proxy = OBus_property.group ~monitor:UDisks_monitor.monitor proxy interface