Source file uPower_interfaces.ml

(* File auto-generated by obus-gen-interface, DO NOT EDIT. *)
open OBus_value
open OBus_value.C
open OBus_member
open OBus_object
module Org_freedesktop_UPower =
struct
  let interface = "org.freedesktop.UPower"
  let m_AboutToSleep = {
    Method.interface = interface;
    Method.member = "AboutToSleep";
    Method.i_args = (arg0);
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_EnumerateDevices = {
    Method.interface = interface;
    Method.member = "EnumerateDevices";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "devices", array basic_object_path));
    Method.annotations = [];
  }
  let m_Hibernate = {
    Method.interface = interface;
    Method.member = "Hibernate";
    Method.i_args = (arg0);
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_HibernateAllowed = {
    Method.interface = interface;
    Method.member = "HibernateAllowed";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "allowed", basic_boolean));
    Method.annotations = [];
  }
  let m_Suspend = {
    Method.interface = interface;
    Method.member = "Suspend";
    Method.i_args = (arg0);
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_SuspendAllowed = {
    Method.interface = interface;
    Method.member = "SuspendAllowed";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "allowed", basic_boolean));
    Method.annotations = [];
  }
  let s_Changed = {
    Signal.interface = interface;
    Signal.member = "Changed";
    Signal.args = (arg0);
    Signal.annotations = [];
  }
  let s_DeviceAdded = {
    Signal.interface = interface;
    Signal.member = "DeviceAdded";
    Signal.args = (arg1
                       (Some "device", basic_string));
    Signal.annotations = [];
  }
  let s_DeviceChanged = {
    Signal.interface = interface;
    Signal.member = "DeviceChanged";
    Signal.args = (arg1
                       (Some "device", basic_string));
    Signal.annotations = [];
  }
  let s_DeviceRemoved = {
    Signal.interface = interface;
    Signal.member = "DeviceRemoved";
    Signal.args = (arg1
                       (Some "device", basic_string));
    Signal.annotations = [];
  }
  let s_Resuming = {
    Signal.interface = interface;
    Signal.member = "Resuming";
    Signal.args = (arg0);
    Signal.annotations = [];
  }
  let s_Sleeping = {
    Signal.interface = interface;
    Signal.member = "Sleeping";
    Signal.args = (arg0);
    Signal.annotations = [];
  }
  let p_CanHibernate = {
    Property.interface = interface;
    Property.member = "CanHibernate";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_CanSuspend = {
    Property.interface = interface;
    Property.member = "CanSuspend";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DaemonVersion = {
    Property.interface = interface;
    Property.member = "DaemonVersion";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LidIsClosed = {
    Property.interface = interface;
    Property.member = "LidIsClosed";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LidIsPresent = {
    Property.interface = interface;
    Property.member = "LidIsPresent";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_OnBattery = {
    Property.interface = interface;
    Property.member = "OnBattery";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_OnLowBattery = {
    Property.interface = interface;
    Property.member = "OnLowBattery";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  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;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_AboutToSleep members.m_AboutToSleep;
        method_info m_EnumerateDevices members.m_EnumerateDevices;
        method_info m_Hibernate members.m_Hibernate;
        method_info m_HibernateAllowed members.m_HibernateAllowed;
        method_info m_Suspend members.m_Suspend;
        method_info m_SuspendAllowed members.m_SuspendAllowed;
      |]
      [|
        signal_info s_Changed;
        signal_info s_DeviceAdded;
        signal_info s_DeviceChanged;
        signal_info s_DeviceRemoved;
        signal_info s_Resuming;
        signal_info s_Sleeping;
      |]
      [|
        property_r_info p_CanHibernate members.p_CanHibernate;
        property_r_info p_CanSuspend members.p_CanSuspend;
        property_r_info p_DaemonVersion members.p_DaemonVersion;
        property_r_info p_LidIsClosed members.p_LidIsClosed;
        property_r_info p_LidIsPresent members.p_LidIsPresent;
        property_r_info p_OnBattery members.p_OnBattery;
        property_r_info p_OnLowBattery members.p_OnLowBattery;
      |]
end
module Org_freedesktop_UPower_Device =
struct
  let interface = "org.freedesktop.UPower.Device"
  let m_GetHistory = {
    Method.interface = interface;
    Method.member = "GetHistory";
    Method.i_args = (arg3
                       (Some "type", basic_string)
                       (Some "timespan", basic_uint32)
                       (Some "resolution", basic_uint32));
    Method.o_args = (arg1
                       (Some "data", array (structure (seq3 basic_uint32 basic_double basic_uint32))));
    Method.annotations = [];
  }
  let m_GetStatistics = {
    Method.interface = interface;
    Method.member = "GetStatistics";
    Method.i_args = (arg1
                       (Some "type", basic_string));
    Method.o_args = (arg1
                       (Some "data", array (structure (seq2 basic_double basic_double))));
    Method.annotations = [];
  }
  let m_Refresh = {
    Method.interface = interface;
    Method.member = "Refresh";
    Method.i_args = (arg0);
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let s_Changed = {
    Signal.interface = interface;
    Signal.member = "Changed";
    Signal.args = (arg0);
    Signal.annotations = [];
  }
  let p_Capacity = {
    Property.interface = interface;
    Property.member = "Capacity";
    Property.typ = basic_double;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Energy = {
    Property.interface = interface;
    Property.member = "Energy";
    Property.typ = basic_double;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_EnergyEmpty = {
    Property.interface = interface;
    Property.member = "EnergyEmpty";
    Property.typ = basic_double;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_EnergyFull = {
    Property.interface = interface;
    Property.member = "EnergyFull";
    Property.typ = basic_double;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_EnergyFullDesign = {
    Property.interface = interface;
    Property.member = "EnergyFullDesign";
    Property.typ = basic_double;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_EnergyRate = {
    Property.interface = interface;
    Property.member = "EnergyRate";
    Property.typ = basic_double;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_HasHistory = {
    Property.interface = interface;
    Property.member = "HasHistory";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_HasStatistics = {
    Property.interface = interface;
    Property.member = "HasStatistics";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_IsPresent = {
    Property.interface = interface;
    Property.member = "IsPresent";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_IsRechargeable = {
    Property.interface = interface;
    Property.member = "IsRechargeable";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Model = {
    Property.interface = interface;
    Property.member = "Model";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_NativePath = {
    Property.interface = interface;
    Property.member = "NativePath";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Online = {
    Property.interface = interface;
    Property.member = "Online";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Percentage = {
    Property.interface = interface;
    Property.member = "Percentage";
    Property.typ = basic_double;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PowerSupply = {
    Property.interface = interface;
    Property.member = "PowerSupply";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_RecallNotice = {
    Property.interface = interface;
    Property.member = "RecallNotice";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_RecallUrl = {
    Property.interface = interface;
    Property.member = "RecallUrl";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_RecallVendor = {
    Property.interface = interface;
    Property.member = "RecallVendor";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Serial = {
    Property.interface = interface;
    Property.member = "Serial";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_State = {
    Property.interface = interface;
    Property.member = "State";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Technology = {
    Property.interface = interface;
    Property.member = "Technology";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_TimeToEmpty = {
    Property.interface = interface;
    Property.member = "TimeToEmpty";
    Property.typ = basic_int64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_TimeToFull = {
    Property.interface = interface;
    Property.member = "TimeToFull";
    Property.typ = basic_int64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Type = {
    Property.interface = interface;
    Property.member = "Type";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_UpdateTime = {
    Property.interface = interface;
    Property.member = "UpdateTime";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Vendor = {
    Property.interface = interface;
    Property.member = "Vendor";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Voltage = {
    Property.interface = interface;
    Property.member = "Voltage";
    Property.typ = basic_double;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  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;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_GetHistory members.m_GetHistory;
        method_info m_GetStatistics members.m_GetStatistics;
        method_info m_Refresh members.m_Refresh;
      |]
      [|
        signal_info s_Changed;
      |]
      [|
        property_r_info p_Capacity members.p_Capacity;
        property_r_info p_Energy members.p_Energy;
        property_r_info p_EnergyEmpty members.p_EnergyEmpty;
        property_r_info p_EnergyFull members.p_EnergyFull;
        property_r_info p_EnergyFullDesign members.p_EnergyFullDesign;
        property_r_info p_EnergyRate members.p_EnergyRate;
        property_r_info p_HasHistory members.p_HasHistory;
        property_r_info p_HasStatistics members.p_HasStatistics;
        property_r_info p_IsPresent members.p_IsPresent;
        property_r_info p_IsRechargeable members.p_IsRechargeable;
        property_r_info p_Model members.p_Model;
        property_r_info p_NativePath members.p_NativePath;
        property_r_info p_Online members.p_Online;
        property_r_info p_Percentage members.p_Percentage;
        property_r_info p_PowerSupply members.p_PowerSupply;
        property_r_info p_RecallNotice members.p_RecallNotice;
        property_r_info p_RecallUrl members.p_RecallUrl;
        property_r_info p_RecallVendor members.p_RecallVendor;
        property_r_info p_Serial members.p_Serial;
        property_r_info p_State members.p_State;
        property_r_info p_Technology members.p_Technology;
        property_r_info p_TimeToEmpty members.p_TimeToEmpty;
        property_r_info p_TimeToFull members.p_TimeToFull;
        property_r_info p_Type members.p_Type;
        property_r_info p_UpdateTime members.p_UpdateTime;
        property_r_info p_Vendor members.p_Vendor;
        property_r_info p_Voltage members.p_Voltage;
      |]
end
module Org_freedesktop_UPower_QoS =
struct
  let interface = "org.freedesktop.UPower.QoS"
  let m_CancelRequest = {
    Method.interface = interface;
    Method.member = "CancelRequest";
    Method.i_args = (arg2
                       (Some "type", basic_string)
                       (Some "cookie", basic_uint32));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_GetLatency = {
    Method.interface = interface;
    Method.member = "GetLatency";
    Method.i_args = (arg1
                       (Some "type", basic_string));
    Method.o_args = (arg1
                       (Some "value", basic_int32));
    Method.annotations = [];
  }
  let m_GetLatencyRequests = {
    Method.interface = interface;
    Method.member = "GetLatencyRequests";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "requests", array (structure (seq9 basic_uint32 basic_uint32 basic_uint32 basic_string basic_int64 basic_boolean basic_string basic_string basic_int32))));
    Method.annotations = [];
  }
  let m_RequestLatency = {
    Method.interface = interface;
    Method.member = "RequestLatency";
    Method.i_args = (arg3
                       (Some "type", basic_string)
                       (Some "value", basic_int32)
                       (Some "persistent", basic_boolean));
    Method.o_args = (arg1
                       (Some "cookie", basic_uint32));
    Method.annotations = [];
  }
  let m_SetMinimumLatency = {
    Method.interface = interface;
    Method.member = "SetMinimumLatency";
    Method.i_args = (arg2
                       (Some "type", basic_string)
                       (Some "value", basic_int32));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let s_LatencyChanged = {
    Signal.interface = interface;
    Signal.member = "LatencyChanged";
    Signal.args = (arg2
                       (Some "type", basic_string)
                       (Some "value", basic_int32));
    Signal.annotations = [];
  }
  let s_RequestsChanged = {
    Signal.interface = interface;
    Signal.member = "RequestsChanged";
    Signal.args = (arg0);
    Signal.annotations = [];
  }
  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;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_CancelRequest members.m_CancelRequest;
        method_info m_GetLatency members.m_GetLatency;
        method_info m_GetLatencyRequests members.m_GetLatencyRequests;
        method_info m_RequestLatency members.m_RequestLatency;
        method_info m_SetMinimumLatency members.m_SetMinimumLatency;
      |]
      [|
        signal_info s_LatencyChanged;
        signal_info s_RequestsChanged;
      |]
      [|
      |]
end
module Org_freedesktop_UPower_Wakeups =
struct
  let interface = "org.freedesktop.UPower.Wakeups"
  let m_GetData = {
    Method.interface = interface;
    Method.member = "GetData";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "data", array (structure (seq5 basic_boolean basic_uint32 basic_double basic_string basic_string))));
    Method.annotations = [];
  }
  let m_GetTotal = {
    Method.interface = interface;
    Method.member = "GetTotal";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "value", basic_uint32));
    Method.annotations = [];
  }
  let s_DataChanged = {
    Signal.interface = interface;
    Signal.member = "DataChanged";
    Signal.args = (arg0);
    Signal.annotations = [];
  }
  let s_TotalChanged = {
    Signal.interface = interface;
    Signal.member = "TotalChanged";
    Signal.args = (arg1
                       (Some "value", basic_uint32));
    Signal.annotations = [];
  }
  let p_HasCapability = {
    Property.interface = interface;
    Property.member = "HasCapability";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  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;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_GetData members.m_GetData;
        method_info m_GetTotal members.m_GetTotal;
      |]
      [|
        signal_info s_DataChanged;
        signal_info s_TotalChanged;
      |]
      [|
        property_r_info p_HasCapability members.p_HasCapability;
      |]
end