Source file hal_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_Hal_Device =
struct
  let interface = "org.freedesktop.Hal.Device"
  let m_AcquireInterfaceLock = {
    Method.interface = interface;
    Method.member = "AcquireInterfaceLock";
    Method.i_args = (arg2
                       (Some "interface_name", basic_string)
                       (Some "exclusive", basic_boolean));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_AddCapability = {
    Method.interface = interface;
    Method.member = "AddCapability";
    Method.i_args = (arg1
                       (Some "capability", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_AddonIsReady = {
    Method.interface = interface;
    Method.member = "AddonIsReady";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "rc", basic_boolean));
    Method.annotations = [];
  }
  let m_ClaimInterface = {
    Method.interface = interface;
    Method.member = "ClaimInterface";
    Method.i_args = (arg2
                       (Some "interface_name", basic_string)
                       (Some "introspection_xml", basic_string));
    Method.o_args = (arg1
                       (Some "rc", basic_boolean));
    Method.annotations = [];
  }
  let m_EmitCondition = {
    Method.interface = interface;
    Method.member = "EmitCondition";
    Method.i_args = (arg2
                       (Some "condition_name", basic_string)
                       (Some "condition_details", basic_string));
    Method.o_args = (arg1
                       (Some "rc", basic_boolean));
    Method.annotations = [];
  }
  let m_GetAllProperties = {
    Method.interface = interface;
    Method.member = "GetAllProperties";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "properties", dict string variant));
    Method.annotations = [];
  }
  let m_GetProperty = {
    Method.interface = interface;
    Method.member = "GetProperty";
    Method.i_args = (arg1
                       (Some "key", basic_string));
    Method.o_args = (arg1
                       (Some "value", variant));
    Method.annotations = [];
  }
  let m_GetPropertyBoolean = {
    Method.interface = interface;
    Method.member = "GetPropertyBoolean";
    Method.i_args = (arg1
                       (Some "key", basic_string));
    Method.o_args = (arg1
                       (Some "value", basic_boolean));
    Method.annotations = [];
  }
  let m_GetPropertyDouble = {
    Method.interface = interface;
    Method.member = "GetPropertyDouble";
    Method.i_args = (arg1
                       (Some "key", basic_string));
    Method.o_args = (arg1
                       (Some "value", basic_double));
    Method.annotations = [];
  }
  let m_GetPropertyInteger = {
    Method.interface = interface;
    Method.member = "GetPropertyInteger";
    Method.i_args = (arg1
                       (Some "key", basic_string));
    Method.o_args = (arg1
                       (Some "value", basic_int32));
    Method.annotations = [];
  }
  let m_GetPropertyString = {
    Method.interface = interface;
    Method.member = "GetPropertyString";
    Method.i_args = (arg1
                       (Some "key", basic_string));
    Method.o_args = (arg1
                       (Some "value", basic_string));
    Method.annotations = [];
  }
  let m_GetPropertyStringList = {
    Method.interface = interface;
    Method.member = "GetPropertyStringList";
    Method.i_args = (arg1
                       (Some "key", basic_string));
    Method.o_args = (arg1
                       (Some "value", array basic_string));
    Method.annotations = [];
  }
  let m_GetPropertyType = {
    Method.interface = interface;
    Method.member = "GetPropertyType";
    Method.i_args = (arg1
                       (Some "key", basic_string));
    Method.o_args = (arg1
                       (Some "type", basic_int32));
    Method.annotations = [];
  }
  let m_IsCallerLockedOut = {
    Method.interface = interface;
    Method.member = "IsCallerLockedOut";
    Method.i_args = (arg2
                       (Some "interface_name", basic_string)
                       (Some "caller_sysbus_name", basic_string));
    Method.o_args = (arg1
                       (Some "whether_caller_is_locked_out", basic_boolean));
    Method.annotations = [];
  }
  let m_IsCallerPrivileged = {
    Method.interface = interface;
    Method.member = "IsCallerPrivileged";
    Method.i_args = (arg2
                       (Some "action", basic_string)
                       (Some "caller_sysbus_name", basic_string));
    Method.o_args = (arg1
                       (Some "result", basic_string));
    Method.annotations = [];
  }
  let m_IsLockedByOthers = {
    Method.interface = interface;
    Method.member = "IsLockedByOthers";
    Method.i_args = (arg1
                       (Some "interface_name", basic_string));
    Method.o_args = (arg1
                       (Some "whether_it_is_locked_by_others", basic_boolean));
    Method.annotations = [];
  }
  let m_Lock = {
    Method.interface = interface;
    Method.member = "Lock";
    Method.i_args = (arg1
                       (Some "reason", basic_string));
    Method.o_args = (arg1
                       (Some "acquired_lock", basic_boolean));
    Method.annotations = [];
  }
  let m_PropertyExists = {
    Method.interface = interface;
    Method.member = "PropertyExists";
    Method.i_args = (arg1
                       (Some "key", basic_string));
    Method.o_args = (arg1
                       (Some "does_it_exist", basic_boolean));
    Method.annotations = [];
  }
  let m_QueryCapability = {
    Method.interface = interface;
    Method.member = "QueryCapability";
    Method.i_args = (arg1
                       (Some "capability", basic_string));
    Method.o_args = (arg1
                       (Some "does_it_have_capability", basic_boolean));
    Method.annotations = [];
  }
  let m_ReleaseInterfaceLock = {
    Method.interface = interface;
    Method.member = "ReleaseInterfaceLock";
    Method.i_args = (arg1
                       (Some "interface_name", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_RemoveProperty = {
    Method.interface = interface;
    Method.member = "RemoveProperty";
    Method.i_args = (arg1
                       (Some "key", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_Reprobe = {
    Method.interface = interface;
    Method.member = "Reprobe";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "call_had_sideeffect", basic_boolean));
    Method.annotations = [];
  }
  let m_Rescan = {
    Method.interface = interface;
    Method.member = "Rescan";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "call_had_sideeffect", basic_boolean));
    Method.annotations = [];
  }
  let m_SetMultipleProperties = {
    Method.interface = interface;
    Method.member = "SetMultipleProperties";
    Method.i_args = (arg1
                       (Some "properties", dict string variant));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_SetProperty = {
    Method.interface = interface;
    Method.member = "SetProperty";
    Method.i_args = (arg2
                       (Some "key", basic_string)
                       (Some "value", variant));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_SetPropertyBoolean = {
    Method.interface = interface;
    Method.member = "SetPropertyBoolean";
    Method.i_args = (arg2
                       (Some "key", basic_string)
                       (Some "value", basic_boolean));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_SetPropertyDouble = {
    Method.interface = interface;
    Method.member = "SetPropertyDouble";
    Method.i_args = (arg2
                       (Some "key", basic_string)
                       (Some "value", basic_double));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_SetPropertyInteger = {
    Method.interface = interface;
    Method.member = "SetPropertyInteger";
    Method.i_args = (arg2
                       (Some "key", basic_string)
                       (Some "value", basic_int32));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_SetPropertyString = {
    Method.interface = interface;
    Method.member = "SetPropertyString";
    Method.i_args = (arg2
                       (Some "key", basic_string)
                       (Some "value", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_SetPropertyStringList = {
    Method.interface = interface;
    Method.member = "SetPropertyStringList";
    Method.i_args = (arg2
                       (Some "key", basic_string)
                       (Some "value", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_StringListAppend = {
    Method.interface = interface;
    Method.member = "StringListAppend";
    Method.i_args = (arg2
                       (Some "key", basic_string)
                       (Some "value", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_StringListPrepend = {
    Method.interface = interface;
    Method.member = "StringListPrepend";
    Method.i_args = (arg2
                       (Some "key", basic_string)
                       (Some "value", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_StringListRemove = {
    Method.interface = interface;
    Method.member = "StringListRemove";
    Method.i_args = (arg2
                       (Some "key", basic_string)
                       (Some "value", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_Unlock = {
    Method.interface = interface;
    Method.member = "Unlock";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "released_lock", basic_boolean));
    Method.annotations = [];
  }
  let s_Condition = {
    Signal.interface = interface;
    Signal.member = "Condition";
    Signal.args = (arg2
                       (Some "cond_name", basic_string)
                       (Some "cond_details", basic_string));
    Signal.annotations = [];
  }
  let s_InterfaceLockAcquired = {
    Signal.interface = interface;
    Signal.member = "InterfaceLockAcquired";
    Signal.args = (arg3
                       (Some "interface_name", basic_string)
                       (Some "lock_holder", basic_string)
                       (Some "num_locks", basic_int32));
    Signal.annotations = [];
  }
  let s_InterfaceLockReleased = {
    Signal.interface = interface;
    Signal.member = "InterfaceLockReleased";
    Signal.args = (arg3
                       (Some "interface_name", basic_string)
                       (Some "lock_holder", basic_string)
                       (Some "num_locks", basic_int32));
    Signal.annotations = [];
  }
  let s_PropertyModified = {
    Signal.interface = interface;
    Signal.member = "PropertyModified";
    Signal.args = (arg2
                       (Some "num_updates", basic_int32)
                       (Some "updates", array (structure (seq3 basic_string basic_boolean basic_boolean))));
    Signal.annotations = [];
  }
  type 'a members = {
    m_AcquireInterfaceLock : 'a OBus_object.t -> string * bool -> unit Lwt.t;
    m_AddCapability : 'a OBus_object.t -> string -> unit Lwt.t;
    m_AddonIsReady : 'a OBus_object.t -> unit -> bool Lwt.t;
    m_ClaimInterface : 'a OBus_object.t -> string * string -> bool Lwt.t;
    m_EmitCondition : 'a OBus_object.t -> string * string -> bool Lwt.t;
    m_GetAllProperties : 'a OBus_object.t -> unit -> (string * OBus_value.V.single) list Lwt.t;
    m_GetProperty : 'a OBus_object.t -> string -> OBus_value.V.single Lwt.t;
    m_GetPropertyBoolean : 'a OBus_object.t -> string -> bool Lwt.t;
    m_GetPropertyDouble : 'a OBus_object.t -> string -> float Lwt.t;
    m_GetPropertyInteger : 'a OBus_object.t -> string -> int32 Lwt.t;
    m_GetPropertyString : 'a OBus_object.t -> string -> string Lwt.t;
    m_GetPropertyStringList : 'a OBus_object.t -> string -> string list Lwt.t;
    m_GetPropertyType : 'a OBus_object.t -> string -> int32 Lwt.t;
    m_IsCallerLockedOut : 'a OBus_object.t -> string * string -> bool Lwt.t;
    m_IsCallerPrivileged : 'a OBus_object.t -> string * string -> string Lwt.t;
    m_IsLockedByOthers : 'a OBus_object.t -> string -> bool Lwt.t;
    m_Lock : 'a OBus_object.t -> string -> bool Lwt.t;
    m_PropertyExists : 'a OBus_object.t -> string -> bool Lwt.t;
    m_QueryCapability : 'a OBus_object.t -> string -> bool Lwt.t;
    m_ReleaseInterfaceLock : 'a OBus_object.t -> string -> unit Lwt.t;
    m_RemoveProperty : 'a OBus_object.t -> string -> unit Lwt.t;
    m_Reprobe : 'a OBus_object.t -> unit -> bool Lwt.t;
    m_Rescan : 'a OBus_object.t -> unit -> bool Lwt.t;
    m_SetMultipleProperties : 'a OBus_object.t -> (string * OBus_value.V.single) list -> unit Lwt.t;
    m_SetProperty : 'a OBus_object.t -> string * OBus_value.V.single -> unit Lwt.t;
    m_SetPropertyBoolean : 'a OBus_object.t -> string * bool -> unit Lwt.t;
    m_SetPropertyDouble : 'a OBus_object.t -> string * float -> unit Lwt.t;
    m_SetPropertyInteger : 'a OBus_object.t -> string * int32 -> unit Lwt.t;
    m_SetPropertyString : 'a OBus_object.t -> string * string -> unit Lwt.t;
    m_SetPropertyStringList : 'a OBus_object.t -> string * string list -> unit Lwt.t;
    m_StringListAppend : 'a OBus_object.t -> string * string -> unit Lwt.t;
    m_StringListPrepend : 'a OBus_object.t -> string * string -> unit Lwt.t;
    m_StringListRemove : 'a OBus_object.t -> string * string -> unit Lwt.t;
    m_Unlock : 'a OBus_object.t -> unit -> bool Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_AcquireInterfaceLock members.m_AcquireInterfaceLock;
        method_info m_AddCapability members.m_AddCapability;
        method_info m_AddonIsReady members.m_AddonIsReady;
        method_info m_ClaimInterface members.m_ClaimInterface;
        method_info m_EmitCondition members.m_EmitCondition;
        method_info m_GetAllProperties members.m_GetAllProperties;
        method_info m_GetProperty members.m_GetProperty;
        method_info m_GetPropertyBoolean members.m_GetPropertyBoolean;
        method_info m_GetPropertyDouble members.m_GetPropertyDouble;
        method_info m_GetPropertyInteger members.m_GetPropertyInteger;
        method_info m_GetPropertyString members.m_GetPropertyString;
        method_info m_GetPropertyStringList members.m_GetPropertyStringList;
        method_info m_GetPropertyType members.m_GetPropertyType;
        method_info m_IsCallerLockedOut members.m_IsCallerLockedOut;
        method_info m_IsCallerPrivileged members.m_IsCallerPrivileged;
        method_info m_IsLockedByOthers members.m_IsLockedByOthers;
        method_info m_Lock members.m_Lock;
        method_info m_PropertyExists members.m_PropertyExists;
        method_info m_QueryCapability members.m_QueryCapability;
        method_info m_ReleaseInterfaceLock members.m_ReleaseInterfaceLock;
        method_info m_RemoveProperty members.m_RemoveProperty;
        method_info m_Reprobe members.m_Reprobe;
        method_info m_Rescan members.m_Rescan;
        method_info m_SetMultipleProperties members.m_SetMultipleProperties;
        method_info m_SetProperty members.m_SetProperty;
        method_info m_SetPropertyBoolean members.m_SetPropertyBoolean;
        method_info m_SetPropertyDouble members.m_SetPropertyDouble;
        method_info m_SetPropertyInteger members.m_SetPropertyInteger;
        method_info m_SetPropertyString members.m_SetPropertyString;
        method_info m_SetPropertyStringList members.m_SetPropertyStringList;
        method_info m_StringListAppend members.m_StringListAppend;
        method_info m_StringListPrepend members.m_StringListPrepend;
        method_info m_StringListRemove members.m_StringListRemove;
        method_info m_Unlock members.m_Unlock;
      |]
      [|
        signal_info s_Condition;
        signal_info s_InterfaceLockAcquired;
        signal_info s_InterfaceLockReleased;
        signal_info s_PropertyModified;
      |]
      [|
      |]
end
module Org_freedesktop_Hal_Device_CPUFreq =
struct
  let interface = "org.freedesktop.Hal.Device.CPUFreq"
  let m_GetCPUFreqAvailableGovernors = {
    Method.interface = interface;
    Method.member = "GetCPUFreqAvailableGovernors";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "return_code", array basic_string));
    Method.annotations = [];
  }
  let m_GetCPUFreqConsiderNice = {
    Method.interface = interface;
    Method.member = "GetCPUFreqConsiderNice";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "return_code", basic_boolean));
    Method.annotations = [];
  }
  let m_GetCPUFreqGovernor = {
    Method.interface = interface;
    Method.member = "GetCPUFreqGovernor";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "return_code", basic_string));
    Method.annotations = [];
  }
  let m_GetCPUFreqPerformance = {
    Method.interface = interface;
    Method.member = "GetCPUFreqPerformance";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  let m_SetCPUFreqConsiderNice = {
    Method.interface = interface;
    Method.member = "SetCPUFreqConsiderNice";
    Method.i_args = (arg1
                       (Some "value", basic_boolean));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_SetCPUFreqGovernor = {
    Method.interface = interface;
    Method.member = "SetCPUFreqGovernor";
    Method.i_args = (arg1
                       (Some "governor_string", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_SetCPUFreqPerformance = {
    Method.interface = interface;
    Method.member = "SetCPUFreqPerformance";
    Method.i_args = (arg1
                       (Some "value", basic_int32));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  type 'a members = {
    m_GetCPUFreqAvailableGovernors : 'a OBus_object.t -> unit -> string list Lwt.t;
    m_GetCPUFreqConsiderNice : 'a OBus_object.t -> unit -> bool Lwt.t;
    m_GetCPUFreqGovernor : 'a OBus_object.t -> unit -> string Lwt.t;
    m_GetCPUFreqPerformance : 'a OBus_object.t -> unit -> int32 Lwt.t;
    m_SetCPUFreqConsiderNice : 'a OBus_object.t -> bool -> unit Lwt.t;
    m_SetCPUFreqGovernor : 'a OBus_object.t -> string -> unit Lwt.t;
    m_SetCPUFreqPerformance : 'a OBus_object.t -> int32 -> unit Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_GetCPUFreqAvailableGovernors members.m_GetCPUFreqAvailableGovernors;
        method_info m_GetCPUFreqConsiderNice members.m_GetCPUFreqConsiderNice;
        method_info m_GetCPUFreqGovernor members.m_GetCPUFreqGovernor;
        method_info m_GetCPUFreqPerformance members.m_GetCPUFreqPerformance;
        method_info m_SetCPUFreqConsiderNice members.m_SetCPUFreqConsiderNice;
        method_info m_SetCPUFreqGovernor members.m_SetCPUFreqGovernor;
        method_info m_SetCPUFreqPerformance members.m_SetCPUFreqPerformance;
      |]
      [|
      |]
      [|
      |]
end
module Org_freedesktop_Hal_Device_KillSwitch =
struct
  let interface = "org.freedesktop.Hal.Device.KillSwitch"
  let m_GetPower = {
    Method.interface = interface;
    Method.member = "GetPower";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "value", basic_int32));
    Method.annotations = [];
  }
  let m_SetPower = {
    Method.interface = interface;
    Method.member = "SetPower";
    Method.i_args = (arg1
                       (Some "value", basic_boolean));
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  type 'a members = {
    m_GetPower : 'a OBus_object.t -> unit -> int32 Lwt.t;
    m_SetPower : 'a OBus_object.t -> bool -> int32 Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_GetPower members.m_GetPower;
        method_info m_SetPower members.m_SetPower;
      |]
      [|
      |]
      [|
      |]
end
module Org_freedesktop_Hal_Device_LaptopPanel =
struct
  let interface = "org.freedesktop.Hal.Device.LaptopPanel"
  let m_GetBrightness = {
    Method.interface = interface;
    Method.member = "GetBrightness";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "brightness_value", basic_int32));
    Method.annotations = [];
  }
  let m_SetBrightness = {
    Method.interface = interface;
    Method.member = "SetBrightness";
    Method.i_args = (arg1
                       (Some "brightness_value", basic_int32));
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  type 'a members = {
    m_GetBrightness : 'a OBus_object.t -> unit -> int32 Lwt.t;
    m_SetBrightness : 'a OBus_object.t -> int32 -> int32 Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_GetBrightness members.m_GetBrightness;
        method_info m_SetBrightness members.m_SetBrightness;
      |]
      [|
      |]
      [|
      |]
end
module Org_freedesktop_Hal_Device_Leds =
struct
  let interface = "org.freedesktop.Hal.Device.Leds"
  let m_GetBrightness = {
    Method.interface = interface;
    Method.member = "GetBrightness";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "brightness_value", basic_int32));
    Method.annotations = [];
  }
  let m_SetBrightness = {
    Method.interface = interface;
    Method.member = "SetBrightness";
    Method.i_args = (arg1
                       (Some "brightness_value", basic_int32));
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  type 'a members = {
    m_GetBrightness : 'a OBus_object.t -> unit -> int32 Lwt.t;
    m_SetBrightness : 'a OBus_object.t -> int32 -> int32 Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_GetBrightness members.m_GetBrightness;
        method_info m_SetBrightness members.m_SetBrightness;
      |]
      [|
      |]
      [|
      |]
end
module Org_freedesktop_Hal_Device_Storage =
struct
  let interface = "org.freedesktop.Hal.Device.Storage"
  let m_CloseTray = {
    Method.interface = interface;
    Method.member = "CloseTray";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "result", basic_int32));
    Method.annotations = [];
  }
  let m_Eject = {
    Method.interface = interface;
    Method.member = "Eject";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "result", basic_int32));
    Method.annotations = [];
  }
  type 'a members = {
    m_CloseTray : 'a OBus_object.t -> string list -> int32 Lwt.t;
    m_Eject : 'a OBus_object.t -> string list -> int32 Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_CloseTray members.m_CloseTray;
        method_info m_Eject members.m_Eject;
      |]
      [|
      |]
      [|
      |]
end
module Org_freedesktop_Hal_Device_Storage_Removable =
struct
  let interface = "org.freedesktop.Hal.Device.Storage.Removable"
  let m_CheckForMedia = {
    Method.interface = interface;
    Method.member = "CheckForMedia";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "call_had_sideeffect", basic_boolean));
    Method.annotations = [];
  }
  type 'a members = {
    m_CheckForMedia : 'a OBus_object.t -> unit -> bool Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_CheckForMedia members.m_CheckForMedia;
      |]
      [|
      |]
      [|
      |]
end
module Org_freedesktop_Hal_Device_SystemPowerManagement =
struct
  let interface = "org.freedesktop.Hal.Device.SystemPowerManagement"
  let m_Hibernate = {
    Method.interface = interface;
    Method.member = "Hibernate";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  let m_Reboot = {
    Method.interface = interface;
    Method.member = "Reboot";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  let m_SetPowerSave = {
    Method.interface = interface;
    Method.member = "SetPowerSave";
    Method.i_args = (arg1
                       (Some "enable_power_save", basic_boolean));
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  let m_Shutdown = {
    Method.interface = interface;
    Method.member = "Shutdown";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  let m_Suspend = {
    Method.interface = interface;
    Method.member = "Suspend";
    Method.i_args = (arg1
                       (Some "num_seconds_to_sleep", basic_int32));
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  let m_SuspendHybrid = {
    Method.interface = interface;
    Method.member = "SuspendHybrid";
    Method.i_args = (arg1
                       (Some "num_seconds_to_sleep", basic_int32));
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  type 'a members = {
    m_Hibernate : 'a OBus_object.t -> unit -> int32 Lwt.t;
    m_Reboot : 'a OBus_object.t -> unit -> int32 Lwt.t;
    m_SetPowerSave : 'a OBus_object.t -> bool -> int32 Lwt.t;
    m_Shutdown : 'a OBus_object.t -> unit -> int32 Lwt.t;
    m_Suspend : 'a OBus_object.t -> int32 -> int32 Lwt.t;
    m_SuspendHybrid : 'a OBus_object.t -> int32 -> int32 Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_Hibernate members.m_Hibernate;
        method_info m_Reboot members.m_Reboot;
        method_info m_SetPowerSave members.m_SetPowerSave;
        method_info m_Shutdown members.m_Shutdown;
        method_info m_Suspend members.m_Suspend;
        method_info m_SuspendHybrid members.m_SuspendHybrid;
      |]
      [|
      |]
      [|
      |]
end
module Org_freedesktop_Hal_Device_Volume =
struct
  let interface = "org.freedesktop.Hal.Device.Volume"
  let m_Eject = {
    Method.interface = interface;
    Method.member = "Eject";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "result", basic_int32));
    Method.annotations = [];
  }
  let m_Mount = {
    Method.interface = interface;
    Method.member = "Mount";
    Method.i_args = (arg3
                       (Some "mount_point", basic_string)
                       (Some "fstype", basic_string)
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "result", basic_int32));
    Method.annotations = [];
  }
  let m_Unmount = {
    Method.interface = interface;
    Method.member = "Unmount";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "result", basic_int32));
    Method.annotations = [];
  }
  type 'a members = {
    m_Eject : 'a OBus_object.t -> string list -> int32 Lwt.t;
    m_Mount : 'a OBus_object.t -> string * string * string list -> int32 Lwt.t;
    m_Unmount : 'a OBus_object.t -> string list -> int32 Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_Eject members.m_Eject;
        method_info m_Mount members.m_Mount;
        method_info m_Unmount members.m_Unmount;
      |]
      [|
      |]
      [|
      |]
end
module Org_freedesktop_Hal_Device_Volume_Crypto =
struct
  let interface = "org.freedesktop.Hal.Device.Volume.Crypto"
  let m_Setup = {
    Method.interface = interface;
    Method.member = "Setup";
    Method.i_args = (arg1
                       (Some "passphrase", basic_string));
    Method.o_args = (arg1
                       (Some "result", basic_int32));
    Method.annotations = [];
  }
  let m_Teardown = {
    Method.interface = interface;
    Method.member = "Teardown";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "result", basic_int32));
    Method.annotations = [];
  }
  type 'a members = {
    m_Setup : 'a OBus_object.t -> string -> int32 Lwt.t;
    m_Teardown : 'a OBus_object.t -> unit -> int32 Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_Setup members.m_Setup;
        method_info m_Teardown members.m_Teardown;
      |]
      [|
      |]
      [|
      |]
end
module Org_freedesktop_Hal_Device_WakeOnLan =
struct
  let interface = "org.freedesktop.Hal.Device.WakeOnLan"
  let m_GetEnabled = {
    Method.interface = interface;
    Method.member = "GetEnabled";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  let m_GetSupported = {
    Method.interface = interface;
    Method.member = "GetSupported";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  let m_SetEnabled = {
    Method.interface = interface;
    Method.member = "SetEnabled";
    Method.i_args = (arg1
                       (Some "enable", basic_boolean));
    Method.o_args = (arg1
                       (Some "return_code", basic_int32));
    Method.annotations = [];
  }
  type 'a members = {
    m_GetEnabled : 'a OBus_object.t -> unit -> int32 Lwt.t;
    m_GetSupported : 'a OBus_object.t -> unit -> int32 Lwt.t;
    m_SetEnabled : 'a OBus_object.t -> bool -> int32 Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_GetEnabled members.m_GetEnabled;
        method_info m_GetSupported members.m_GetSupported;
        method_info m_SetEnabled members.m_SetEnabled;
      |]
      [|
      |]
      [|
      |]
end
module Org_freedesktop_Hal_Manager =
struct
  let interface = "org.freedesktop.Hal.Manager"
  let m_AcquireGlobalInterfaceLock = {
    Method.interface = interface;
    Method.member = "AcquireGlobalInterfaceLock";
    Method.i_args = (arg2
                       (Some "interface_name", basic_string)
                       (Some "exclusive", basic_boolean));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_CommitToGdl = {
    Method.interface = interface;
    Method.member = "CommitToGdl";
    Method.i_args = (arg2
                       (Some "temporary_udi", basic_string)
                       (Some "global_udi", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_DeviceExists = {
    Method.interface = interface;
    Method.member = "DeviceExists";
    Method.i_args = (arg1
                       (Some "udi", basic_string));
    Method.o_args = (arg1
                       (Some "does_it_exist", basic_boolean));
    Method.annotations = [];
  }
  let m_FindDeviceByCapability = {
    Method.interface = interface;
    Method.member = "FindDeviceByCapability";
    Method.i_args = (arg1
                       (Some "capability", basic_string));
    Method.o_args = (arg1
                       (Some "devices", array basic_string));
    Method.annotations = [];
  }
  let m_FindDeviceStringMatch = {
    Method.interface = interface;
    Method.member = "FindDeviceStringMatch";
    Method.i_args = (arg2
                       (Some "key", basic_string)
                       (Some "value", basic_string));
    Method.o_args = (arg1
                       (Some "devices", array basic_string));
    Method.annotations = [];
  }
  let m_GetAllDevices = {
    Method.interface = interface;
    Method.member = "GetAllDevices";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "devices", array basic_string));
    Method.annotations = [];
  }
  let m_GetAllDevicesWithProperties = {
    Method.interface = interface;
    Method.member = "GetAllDevicesWithProperties";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "devices_with_props", array (structure (seq2 basic_string (dict string variant)))));
    Method.annotations = [];
  }
  let m_NewDevice = {
    Method.interface = interface;
    Method.member = "NewDevice";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "temporary_udi", basic_string));
    Method.annotations = [];
  }
  let m_ReleaseGlobalInterfaceLock = {
    Method.interface = interface;
    Method.member = "ReleaseGlobalInterfaceLock";
    Method.i_args = (arg1
                       (Some "interface_name", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_Remove = {
    Method.interface = interface;
    Method.member = "Remove";
    Method.i_args = (arg1
                       (Some "udi", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_SingletonAddonIsReady = {
    Method.interface = interface;
    Method.member = "SingletonAddonIsReady";
    Method.i_args = (arg1
                       (Some "command_line", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let s_DeviceAdded = {
    Signal.interface = interface;
    Signal.member = "DeviceAdded";
    Signal.args = (arg1
                       (Some "udi", basic_string));
    Signal.annotations = [];
  }
  let s_DeviceRemoved = {
    Signal.interface = interface;
    Signal.member = "DeviceRemoved";
    Signal.args = (arg1
                       (Some "udi", basic_string));
    Signal.annotations = [];
  }
  let s_GlobalInterfaceLockAcquired = {
    Signal.interface = interface;
    Signal.member = "GlobalInterfaceLockAcquired";
    Signal.args = (arg3
                       (Some "interface_name", basic_string)
                       (Some "lock_holder", basic_string)
                       (Some "num_locks", basic_int32));
    Signal.annotations = [];
  }
  let s_GlobalInterfaceLockReleased = {
    Signal.interface = interface;
    Signal.member = "GlobalInterfaceLockReleased";
    Signal.args = (arg3
                       (Some "interface_name", basic_string)
                       (Some "lock_holder", basic_string)
                       (Some "num_locks", basic_int32));
    Signal.annotations = [];
  }
  let s_NewCapability = {
    Signal.interface = interface;
    Signal.member = "NewCapability";
    Signal.args = (arg2
                       (Some "udi", basic_string)
                       (Some "cap_name", basic_string));
    Signal.annotations = [];
  }
  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;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_AcquireGlobalInterfaceLock members.m_AcquireGlobalInterfaceLock;
        method_info m_CommitToGdl members.m_CommitToGdl;
        method_info m_DeviceExists members.m_DeviceExists;
        method_info m_FindDeviceByCapability members.m_FindDeviceByCapability;
        method_info m_FindDeviceStringMatch members.m_FindDeviceStringMatch;
        method_info m_GetAllDevices members.m_GetAllDevices;
        method_info m_GetAllDevicesWithProperties members.m_GetAllDevicesWithProperties;
        method_info m_NewDevice members.m_NewDevice;
        method_info m_ReleaseGlobalInterfaceLock members.m_ReleaseGlobalInterfaceLock;
        method_info m_Remove members.m_Remove;
        method_info m_SingletonAddonIsReady members.m_SingletonAddonIsReady;
      |]
      [|
        signal_info s_DeviceAdded;
        signal_info s_DeviceRemoved;
        signal_info s_GlobalInterfaceLockAcquired;
        signal_info s_GlobalInterfaceLockReleased;
        signal_info s_NewCapability;
      |]
      [|
      |]
end