`sig
module Org_freedesktop_UPower :
sig
val interface : OBus_name.interface
val m_AboutToSleep : (unit, unit) OBus_member.Method.t
val m_EnumerateDevices : (unit, OBus_path.t list) OBus_member.Method.t
val m_Hibernate : (unit, unit) OBus_member.Method.t
val m_HibernateAllowed : (unit, bool) OBus_member.Method.t
val m_Suspend : (unit, unit) OBus_member.Method.t
val m_SuspendAllowed : (unit, bool) OBus_member.Method.t
val s_Changed : unit OBus_member.Signal.t
val s_DeviceAdded : string OBus_member.Signal.t
val s_DeviceChanged : string OBus_member.Signal.t
val s_DeviceRemoved : string OBus_member.Signal.t
val s_Resuming : unit OBus_member.Signal.t
val s_Sleeping : unit OBus_member.Signal.t
val p_CanHibernate : (bool, [ `readable ]) OBus_member.Property.t
val p_CanSuspend : (bool, [ `readable ]) OBus_member.Property.t
val p_DaemonVersion : (string, [ `readable ]) OBus_member.Property.t
val p_LidIsClosed : (bool, [ `readable ]) OBus_member.Property.t
val p_LidIsPresent : (bool, [ `readable ]) OBus_member.Property.t
val p_OnBattery : (bool, [ `readable ]) OBus_member.Property.t
val p_OnLowBattery : (bool, [ `readable ]) OBus_member.Property.t
type 'a members = {
m_AboutToSleep : 'a OBus_object.t -> unit -> unit Lwt.t;
m_EnumerateDevices :
'a OBus_object.t -> unit -> OBus_path.t list Lwt.t;
m_Hibernate : 'a OBus_object.t -> unit -> unit Lwt.t;
m_HibernateAllowed : 'a OBus_object.t -> unit -> bool Lwt.t;
m_Suspend : 'a OBus_object.t -> unit -> unit Lwt.t;
m_SuspendAllowed : 'a OBus_object.t -> unit -> bool Lwt.t;
p_CanHibernate : 'a OBus_object.t -> bool React.signal;
p_CanSuspend : 'a OBus_object.t -> bool React.signal;
p_DaemonVersion : 'a OBus_object.t -> string React.signal;
p_LidIsClosed : 'a OBus_object.t -> bool React.signal;
p_LidIsPresent : 'a OBus_object.t -> bool React.signal;
p_OnBattery : 'a OBus_object.t -> bool React.signal;
p_OnLowBattery : 'a OBus_object.t -> bool React.signal;
}
val make :
'a UPower_interfaces.Org_freedesktop_UPower.members ->
'a OBus_object.interface
end
module Org_freedesktop_UPower_Device :
sig
val interface : OBus_name.interface
val m_GetHistory :
(string * int32 * int32, (int32 * float * int32) list)
OBus_member.Method.t
val m_GetStatistics :
(string, (float * float) list) OBus_member.Method.t
val m_Refresh : (unit, unit) OBus_member.Method.t
val s_Changed : unit OBus_member.Signal.t
val p_Capacity : (float, [ `readable ]) OBus_member.Property.t
val p_Energy : (float, [ `readable ]) OBus_member.Property.t
val p_EnergyEmpty : (float, [ `readable ]) OBus_member.Property.t
val p_EnergyFull : (float, [ `readable ]) OBus_member.Property.t
val p_EnergyFullDesign : (float, [ `readable ]) OBus_member.Property.t
val p_EnergyRate : (float, [ `readable ]) OBus_member.Property.t
val p_HasHistory : (bool, [ `readable ]) OBus_member.Property.t
val p_HasStatistics : (bool, [ `readable ]) OBus_member.Property.t
val p_IsPresent : (bool, [ `readable ]) OBus_member.Property.t
val p_IsRechargeable : (bool, [ `readable ]) OBus_member.Property.t
val p_Model : (string, [ `readable ]) OBus_member.Property.t
val p_NativePath : (string, [ `readable ]) OBus_member.Property.t
val p_Online : (bool, [ `readable ]) OBus_member.Property.t
val p_Percentage : (float, [ `readable ]) OBus_member.Property.t
val p_PowerSupply : (bool, [ `readable ]) OBus_member.Property.t
val p_RecallNotice : (bool, [ `readable ]) OBus_member.Property.t
val p_RecallUrl : (string, [ `readable ]) OBus_member.Property.t
val p_RecallVendor : (string, [ `readable ]) OBus_member.Property.t
val p_Serial : (string, [ `readable ]) OBus_member.Property.t
val p_State : (int32, [ `readable ]) OBus_member.Property.t
val p_Technology : (int32, [ `readable ]) OBus_member.Property.t
val p_TimeToEmpty : (int64, [ `readable ]) OBus_member.Property.t
val p_TimeToFull : (int64, [ `readable ]) OBus_member.Property.t
val p_Type : (int32, [ `readable ]) OBus_member.Property.t
val p_UpdateTime : (int64, [ `readable ]) OBus_member.Property.t
val p_Vendor : (string, [ `readable ]) OBus_member.Property.t
val p_Voltage : (float, [ `readable ]) OBus_member.Property.t
type 'a members = {
m_GetHistory :
'a OBus_object.t ->
string * int32 * int32 -> (int32 * float * int32) list Lwt.t;
m_GetStatistics :
'a OBus_object.t -> string -> (float * float) list Lwt.t;
m_Refresh : 'a OBus_object.t -> unit -> unit Lwt.t;
p_Capacity : 'a OBus_object.t -> float React.signal;
p_Energy : 'a OBus_object.t -> float React.signal;
p_EnergyEmpty : 'a OBus_object.t -> float React.signal;
p_EnergyFull : 'a OBus_object.t -> float React.signal;
p_EnergyFullDesign : 'a OBus_object.t -> float React.signal;
p_EnergyRate : 'a OBus_object.t -> float React.signal;
p_HasHistory : 'a OBus_object.t -> bool React.signal;
p_HasStatistics : 'a OBus_object.t -> bool React.signal;
p_IsPresent : 'a OBus_object.t -> bool React.signal;
p_IsRechargeable : 'a OBus_object.t -> bool React.signal;
p_Model : 'a OBus_object.t -> string React.signal;
p_NativePath : 'a OBus_object.t -> string React.signal;
p_Online : 'a OBus_object.t -> bool React.signal;
p_Percentage : 'a OBus_object.t -> float React.signal;
p_PowerSupply : 'a OBus_object.t -> bool React.signal;
p_RecallNotice : 'a OBus_object.t -> bool React.signal;
p_RecallUrl : 'a OBus_object.t -> string React.signal;
p_RecallVendor : 'a OBus_object.t -> string React.signal;
p_Serial : 'a OBus_object.t -> string React.signal;
p_State : 'a OBus_object.t -> int32 React.signal;
p_Technology : 'a OBus_object.t -> int32 React.signal;
p_TimeToEmpty : 'a OBus_object.t -> int64 React.signal;
p_TimeToFull : 'a OBus_object.t -> int64 React.signal;
p_Type : 'a OBus_object.t -> int32 React.signal;
p_UpdateTime : 'a OBus_object.t -> int64 React.signal;
p_Vendor : 'a OBus_object.t -> string React.signal;
p_Voltage : 'a OBus_object.t -> float React.signal;
}
val make :
'a UPower_interfaces.Org_freedesktop_UPower_Device.members ->
'a OBus_object.interface
end
module Org_freedesktop_UPower_QoS :
sig
val interface : OBus_name.interface
val m_CancelRequest : (string * int32, unit) OBus_member.Method.t
val m_GetLatency : (string, int32) OBus_member.Method.t
val m_GetLatencyRequests :
(unit,
(int32 * int32 * int32 * string * int64 * bool * string * string *
int32)
list)
OBus_member.Method.t
val m_RequestLatency :
(string * int32 * bool, int32) OBus_member.Method.t
val m_SetMinimumLatency : (string * int32, unit) OBus_member.Method.t
val s_LatencyChanged : (string * int32) OBus_member.Signal.t
val s_RequestsChanged : unit OBus_member.Signal.t
type 'a members = {
m_CancelRequest : 'a OBus_object.t -> string * int32 -> unit Lwt.t;
m_GetLatency : 'a OBus_object.t -> string -> int32 Lwt.t;
m_GetLatencyRequests :
'a OBus_object.t ->
unit ->
(int32 * int32 * int32 * string * int64 * bool * string * string *
int32)
list Lwt.t;
m_RequestLatency :
'a OBus_object.t -> string * int32 * bool -> int32 Lwt.t;
m_SetMinimumLatency :
'a OBus_object.t -> string * int32 -> unit Lwt.t;
}
val make :
'a UPower_interfaces.Org_freedesktop_UPower_QoS.members ->
'a OBus_object.interface
end
module Org_freedesktop_UPower_Wakeups :
sig
val interface : OBus_name.interface
val m_GetData :
(unit, (bool * int32 * float * string * string) list)
OBus_member.Method.t
val m_GetTotal : (unit, int32) OBus_member.Method.t
val s_DataChanged : unit OBus_member.Signal.t
val s_TotalChanged : int32 OBus_member.Signal.t
val p_HasCapability : (bool, [ `readable ]) OBus_member.Property.t
type 'a members = {
m_GetData :
'a OBus_object.t ->
unit -> (bool * int32 * float * string * string) list Lwt.t;
m_GetTotal : 'a OBus_object.t -> unit -> int32 Lwt.t;
p_HasCapability : 'a OBus_object.t -> bool React.signal;
}
val make :
'a UPower_interfaces.Org_freedesktop_UPower_Wakeups.members ->
'a OBus_object.interface
end
end`