Previous  Up  

Module Hal_interfaces.Org_freedesktop_Hal_Manager


module Org_freedesktop_Hal_Manager: sig .. end
val interface : OBus_name.interface
val m_AcquireGlobalInterfaceLock : (string * bool, unit) OBus_member.Method.t
val m_CommitToGdl : (string * string, unit) OBus_member.Method.t
val m_DeviceExists : (string, bool) OBus_member.Method.t
val m_FindDeviceByCapability : (string, string list) OBus_member.Method.t
val m_FindDeviceStringMatch : (string * string, string list) OBus_member.Method.t
val m_GetAllDevices : (unit, string list) OBus_member.Method.t
val m_GetAllDevicesWithProperties : (unit, (string * (string * OBus_value.V.single) list) list)
       OBus_member.Method.t
val m_NewDevice : (unit, string) OBus_member.Method.t
val m_ReleaseGlobalInterfaceLock : (string, unit) OBus_member.Method.t
val m_Remove : (string, unit) OBus_member.Method.t
val m_SingletonAddonIsReady : (string, unit) OBus_member.Method.t
val s_DeviceAdded : string OBus_member.Signal.t
val s_DeviceRemoved : string OBus_member.Signal.t
val s_GlobalInterfaceLockAcquired : (string * string * int32) OBus_member.Signal.t
val s_GlobalInterfaceLockReleased : (string * string * int32) OBus_member.Signal.t
val s_NewCapability : (string * string) OBus_member.Signal.t

type 'a members = {
   m_AcquireGlobalInterfaceLock : 'a OBus_object.t -> string * bool -> unit Lwt.t;
   m_CommitToGdl : 'a OBus_object.t -> string * string -> unit Lwt.t;
   m_DeviceExists : 'a OBus_object.t -> string -> bool Lwt.t;
   m_FindDeviceByCapability : 'a OBus_object.t -> string -> string list Lwt.t;
   m_FindDeviceStringMatch : 'a OBus_object.t -> string * string -> string list Lwt.t;
   m_GetAllDevices : 'a OBus_object.t -> unit -> string list Lwt.t;
   m_GetAllDevicesWithProperties : 'a OBus_object.t ->
unit -> (string * (string * OBus_value.V.single) list) list Lwt.t;
   m_NewDevice : 'a OBus_object.t -> unit -> string Lwt.t;
   m_ReleaseGlobalInterfaceLock : 'a OBus_object.t -> string -> unit Lwt.t;
   m_Remove : 'a OBus_object.t -> string -> unit Lwt.t;
   m_SingletonAddonIsReady : 'a OBus_object.t -> string -> unit Lwt.t;
} 
val make : 'a members ->
       'a OBus_object.interface