Source file uDisks_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_UDisks =
struct
  let interface = "org.freedesktop.UDisks"
  let m_DriveInhibitAllPolling = {
    Method.interface = interface;
    Method.member = "DriveInhibitAllPolling";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "cookie", basic_string));
    Method.annotations = [];
  }
  let m_DriveSetAllSpindownTimeouts = {
    Method.interface = interface;
    Method.member = "DriveSetAllSpindownTimeouts";
    Method.i_args = (arg2
                       (Some "timeout_seconds", basic_int32)
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "cookie", basic_string));
    Method.annotations = [];
  }
  let m_DriveUninhibitAllPolling = {
    Method.interface = interface;
    Method.member = "DriveUninhibitAllPolling";
    Method.i_args = (arg1
                       (Some "cookie", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_DriveUnsetAllSpindownTimeouts = {
    Method.interface = interface;
    Method.member = "DriveUnsetAllSpindownTimeouts";
    Method.i_args = (arg1
                       (Some "cookie", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_EnumerateAdapters = {
    Method.interface = interface;
    Method.member = "EnumerateAdapters";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "devices", array basic_object_path));
    Method.annotations = [];
  }
  let m_EnumerateDeviceFiles = {
    Method.interface = interface;
    Method.member = "EnumerateDeviceFiles";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "device_files", array basic_string));
    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_EnumerateExpanders = {
    Method.interface = interface;
    Method.member = "EnumerateExpanders";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "devices", array basic_object_path));
    Method.annotations = [];
  }
  let m_EnumeratePorts = {
    Method.interface = interface;
    Method.member = "EnumeratePorts";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "devices", array basic_object_path));
    Method.annotations = [];
  }
  let m_FindDeviceByDeviceFile = {
    Method.interface = interface;
    Method.member = "FindDeviceByDeviceFile";
    Method.i_args = (arg1
                       (Some "device_file", basic_string));
    Method.o_args = (arg1
                       (Some "device", basic_object_path));
    Method.annotations = [];
  }
  let m_FindDeviceByMajorMinor = {
    Method.interface = interface;
    Method.member = "FindDeviceByMajorMinor";
    Method.i_args = (arg2
                       (Some "device_major", basic_int64)
                       (Some "device_minor", basic_int64));
    Method.o_args = (arg1
                       (Some "device", basic_object_path));
    Method.annotations = [];
  }
  let m_Inhibit = {
    Method.interface = interface;
    Method.member = "Inhibit";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "cookie", basic_string));
    Method.annotations = [];
  }
  let m_LinuxLvm2LVCreate = {
    Method.interface = interface;
    Method.member = "LinuxLvm2LVCreate";
    Method.i_args = (arg9
                       (Some "group_uuid", basic_string)
                       (Some "name", basic_string)
                       (Some "size", basic_uint64)
                       (Some "num_stripes", basic_uint32)
                       (Some "stripe_size", basic_uint64)
                       (Some "num_mirrors", basic_uint32)
                       (Some "options", array basic_string)
                       (Some "fstype", basic_string)
                       (Some "fsoptions", array basic_string));
    Method.o_args = (arg1
                       (Some "created_device", basic_object_path));
    Method.annotations = [];
  }
  let m_LinuxLvm2LVRemove = {
    Method.interface = interface;
    Method.member = "LinuxLvm2LVRemove";
    Method.i_args = (arg3
                       (Some "group_uuid", basic_string)
                       (Some "uuid", basic_string)
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxLvm2LVSetName = {
    Method.interface = interface;
    Method.member = "LinuxLvm2LVSetName";
    Method.i_args = (arg3
                       (Some "group_uuid", basic_string)
                       (Some "uuid", basic_string)
                       (Some "name", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxLvm2LVStart = {
    Method.interface = interface;
    Method.member = "LinuxLvm2LVStart";
    Method.i_args = (arg3
                       (Some "group_uuid", basic_string)
                       (Some "uuid", basic_string)
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxLvm2VGAddPV = {
    Method.interface = interface;
    Method.member = "LinuxLvm2VGAddPV";
    Method.i_args = (arg3
                       (Some "uuid", basic_string)
                       (Some "physical_volume", basic_object_path)
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxLvm2VGRemovePV = {
    Method.interface = interface;
    Method.member = "LinuxLvm2VGRemovePV";
    Method.i_args = (arg3
                       (Some "vg_uuid", basic_string)
                       (Some "pv_uuid", basic_string)
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxLvm2VGSetName = {
    Method.interface = interface;
    Method.member = "LinuxLvm2VGSetName";
    Method.i_args = (arg2
                       (Some "uuid", basic_string)
                       (Some "name", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxLvm2VGStart = {
    Method.interface = interface;
    Method.member = "LinuxLvm2VGStart";
    Method.i_args = (arg2
                       (Some "uuid", basic_string)
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxLvm2VGStop = {
    Method.interface = interface;
    Method.member = "LinuxLvm2VGStop";
    Method.i_args = (arg2
                       (Some "uuid", basic_string)
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxMdCreate = {
    Method.interface = interface;
    Method.member = "LinuxMdCreate";
    Method.i_args = (arg5
                       (Some "components", array basic_object_path)
                       (Some "level", basic_string)
                       (Some "stripe_size", basic_uint64)
                       (Some "name", basic_string)
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "device", basic_object_path));
    Method.annotations = [];
  }
  let m_LinuxMdStart = {
    Method.interface = interface;
    Method.member = "LinuxMdStart";
    Method.i_args = (arg2
                       (Some "components", array basic_object_path)
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "device", basic_object_path));
    Method.annotations = [];
  }
  let m_Uninhibit = {
    Method.interface = interface;
    Method.member = "Uninhibit";
    Method.i_args = (arg1
                       (Some "cookie", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let s_AdapterAdded = {
    Signal.interface = interface;
    Signal.member = "AdapterAdded";
    Signal.args = (arg1
                       (Some "adapter", basic_object_path));
    Signal.annotations = [];
  }
  let s_AdapterChanged = {
    Signal.interface = interface;
    Signal.member = "AdapterChanged";
    Signal.args = (arg1
                       (Some "adapter", basic_object_path));
    Signal.annotations = [];
  }
  let s_AdapterRemoved = {
    Signal.interface = interface;
    Signal.member = "AdapterRemoved";
    Signal.args = (arg1
                       (Some "adapter", basic_object_path));
    Signal.annotations = [];
  }
  let s_DeviceAdded = {
    Signal.interface = interface;
    Signal.member = "DeviceAdded";
    Signal.args = (arg1
                       (Some "device", basic_object_path));
    Signal.annotations = [];
  }
  let s_DeviceChanged = {
    Signal.interface = interface;
    Signal.member = "DeviceChanged";
    Signal.args = (arg1
                       (Some "device", basic_object_path));
    Signal.annotations = [];
  }
  let s_DeviceJobChanged = {
    Signal.interface = interface;
    Signal.member = "DeviceJobChanged";
    Signal.args = (arg8
                       (Some "device", basic_object_path)
                       (Some "job_in_progress", basic_boolean)
                       (Some "job_is_cancellable", basic_boolean)
                       (Some "job_id", basic_string)
                       (Some "job_num_tasks", basic_int32)
                       (Some "job_cur_task", basic_int32)
                       (Some "job_cur_task_id", basic_string)
                       (Some "job_cur_task_percentage", basic_double));
    Signal.annotations = [];
  }
  let s_DeviceRemoved = {
    Signal.interface = interface;
    Signal.member = "DeviceRemoved";
    Signal.args = (arg1
                       (Some "device", basic_object_path));
    Signal.annotations = [];
  }
  let s_ExpanderAdded = {
    Signal.interface = interface;
    Signal.member = "ExpanderAdded";
    Signal.args = (arg1
                       (Some "expander", basic_object_path));
    Signal.annotations = [];
  }
  let s_ExpanderChanged = {
    Signal.interface = interface;
    Signal.member = "ExpanderChanged";
    Signal.args = (arg1
                       (Some "expander", basic_object_path));
    Signal.annotations = [];
  }
  let s_ExpanderRemoved = {
    Signal.interface = interface;
    Signal.member = "ExpanderRemoved";
    Signal.args = (arg1
                       (Some "expander", basic_object_path));
    Signal.annotations = [];
  }
  let s_PortAdded = {
    Signal.interface = interface;
    Signal.member = "PortAdded";
    Signal.args = (arg1
                       (Some "port", basic_object_path));
    Signal.annotations = [];
  }
  let s_PortChanged = {
    Signal.interface = interface;
    Signal.member = "PortChanged";
    Signal.args = (arg1
                       (Some "port", basic_object_path));
    Signal.annotations = [];
  }
  let s_PortRemoved = {
    Signal.interface = interface;
    Signal.member = "PortRemoved";
    Signal.args = (arg1
                       (Some "port", basic_object_path));
    Signal.annotations = [];
  }
  let p_DaemonIsInhibited = {
    Property.interface = interface;
    Property.member = "DaemonIsInhibited";
    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_KnownFilesystems = {
    Property.interface = interface;
    Property.member = "KnownFilesystems";
    Property.typ = array (structure (seq14 basic_string basic_string basic_boolean basic_boolean basic_boolean basic_uint32 basic_boolean basic_boolean basic_boolean basic_boolean basic_boolean basic_boolean basic_boolean basic_boolean));
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_SupportsLuksDevices = {
    Property.interface = interface;
    Property.member = "SupportsLuksDevices";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    m_DriveInhibitAllPolling : 'a OBus_object.t -> string list -> string Lwt.t;
    m_DriveSetAllSpindownTimeouts : 'a OBus_object.t -> int32 * string list -> string Lwt.t;
    m_DriveUninhibitAllPolling : 'a OBus_object.t -> string -> unit Lwt.t;
    m_DriveUnsetAllSpindownTimeouts : 'a OBus_object.t -> string -> unit Lwt.t;
    m_EnumerateAdapters : 'a OBus_object.t -> unit -> OBus_path.t list Lwt.t;
    m_EnumerateDeviceFiles : 'a OBus_object.t -> unit -> string list Lwt.t;
    m_EnumerateDevices : 'a OBus_object.t -> unit -> OBus_path.t list Lwt.t;
    m_EnumerateExpanders : 'a OBus_object.t -> unit -> OBus_path.t list Lwt.t;
    m_EnumeratePorts : 'a OBus_object.t -> unit -> OBus_path.t list Lwt.t;
    m_FindDeviceByDeviceFile : 'a OBus_object.t -> string -> OBus_path.t Lwt.t;
    m_FindDeviceByMajorMinor : 'a OBus_object.t -> int64 * int64 -> OBus_path.t Lwt.t;
    m_Inhibit : 'a OBus_object.t -> unit -> string Lwt.t;
    m_LinuxLvm2LVCreate : 'a OBus_object.t -> string * string * int64 * int32 * int64 * int32 * string list * string * string list -> OBus_path.t Lwt.t;
    m_LinuxLvm2LVRemove : 'a OBus_object.t -> string * string * string list -> unit Lwt.t;
    m_LinuxLvm2LVSetName : 'a OBus_object.t -> string * string * string -> unit Lwt.t;
    m_LinuxLvm2LVStart : 'a OBus_object.t -> string * string * string list -> unit Lwt.t;
    m_LinuxLvm2VGAddPV : 'a OBus_object.t -> string * OBus_path.t * string list -> unit Lwt.t;
    m_LinuxLvm2VGRemovePV : 'a OBus_object.t -> string * string * string list -> unit Lwt.t;
    m_LinuxLvm2VGSetName : 'a OBus_object.t -> string * string -> unit Lwt.t;
    m_LinuxLvm2VGStart : 'a OBus_object.t -> string * string list -> unit Lwt.t;
    m_LinuxLvm2VGStop : 'a OBus_object.t -> string * string list -> unit Lwt.t;
    m_LinuxMdCreate : 'a OBus_object.t -> OBus_path.t list * string * int64 * string * string list -> OBus_path.t Lwt.t;
    m_LinuxMdStart : 'a OBus_object.t -> OBus_path.t list * string list -> OBus_path.t Lwt.t;
    m_Uninhibit : 'a OBus_object.t -> string -> unit Lwt.t;
    p_DaemonIsInhibited : 'a OBus_object.t -> bool React.signal;
    p_DaemonVersion : 'a OBus_object.t -> string React.signal;
    p_KnownFilesystems : 'a OBus_object.t -> (string * string * bool * bool * bool * int32 * bool * bool * bool * bool * bool * bool * bool * bool) list React.signal;
    p_SupportsLuksDevices : 'a OBus_object.t -> bool React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_DriveInhibitAllPolling members.m_DriveInhibitAllPolling;
        method_info m_DriveSetAllSpindownTimeouts members.m_DriveSetAllSpindownTimeouts;
        method_info m_DriveUninhibitAllPolling members.m_DriveUninhibitAllPolling;
        method_info m_DriveUnsetAllSpindownTimeouts members.m_DriveUnsetAllSpindownTimeouts;
        method_info m_EnumerateAdapters members.m_EnumerateAdapters;
        method_info m_EnumerateDeviceFiles members.m_EnumerateDeviceFiles;
        method_info m_EnumerateDevices members.m_EnumerateDevices;
        method_info m_EnumerateExpanders members.m_EnumerateExpanders;
        method_info m_EnumeratePorts members.m_EnumeratePorts;
        method_info m_FindDeviceByDeviceFile members.m_FindDeviceByDeviceFile;
        method_info m_FindDeviceByMajorMinor members.m_FindDeviceByMajorMinor;
        method_info m_Inhibit members.m_Inhibit;
        method_info m_LinuxLvm2LVCreate members.m_LinuxLvm2LVCreate;
        method_info m_LinuxLvm2LVRemove members.m_LinuxLvm2LVRemove;
        method_info m_LinuxLvm2LVSetName members.m_LinuxLvm2LVSetName;
        method_info m_LinuxLvm2LVStart members.m_LinuxLvm2LVStart;
        method_info m_LinuxLvm2VGAddPV members.m_LinuxLvm2VGAddPV;
        method_info m_LinuxLvm2VGRemovePV members.m_LinuxLvm2VGRemovePV;
        method_info m_LinuxLvm2VGSetName members.m_LinuxLvm2VGSetName;
        method_info m_LinuxLvm2VGStart members.m_LinuxLvm2VGStart;
        method_info m_LinuxLvm2VGStop members.m_LinuxLvm2VGStop;
        method_info m_LinuxMdCreate members.m_LinuxMdCreate;
        method_info m_LinuxMdStart members.m_LinuxMdStart;
        method_info m_Uninhibit members.m_Uninhibit;
      |]
      [|
        signal_info s_AdapterAdded;
        signal_info s_AdapterChanged;
        signal_info s_AdapterRemoved;
        signal_info s_DeviceAdded;
        signal_info s_DeviceChanged;
        signal_info s_DeviceJobChanged;
        signal_info s_DeviceRemoved;
        signal_info s_ExpanderAdded;
        signal_info s_ExpanderChanged;
        signal_info s_ExpanderRemoved;
        signal_info s_PortAdded;
        signal_info s_PortChanged;
        signal_info s_PortRemoved;
      |]
      [|
        property_r_info p_DaemonIsInhibited members.p_DaemonIsInhibited;
        property_r_info p_DaemonVersion members.p_DaemonVersion;
        property_r_info p_KnownFilesystems members.p_KnownFilesystems;
        property_r_info p_SupportsLuksDevices members.p_SupportsLuksDevices;
      |]
end
module Org_freedesktop_UDisks_Adapter =
struct
  let interface = "org.freedesktop.UDisks.Adapter"
  let s_Changed = {
    Signal.interface = interface;
    Signal.member = "Changed";
    Signal.args = (arg0);
    Signal.annotations = [];
  }
  let p_Driver = {
    Property.interface = interface;
    Property.member = "Driver";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Fabric = {
    Property.interface = interface;
    Property.member = "Fabric";
    Property.typ = basic_string;
    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_NumPorts = {
    Property.interface = interface;
    Property.member = "NumPorts";
    Property.typ = basic_uint32;
    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 = [];
  }
  type 'a members = {
    p_Driver : 'a OBus_object.t -> string React.signal;
    p_Fabric : 'a OBus_object.t -> string React.signal;
    p_Model : 'a OBus_object.t -> string React.signal;
    p_NativePath : 'a OBus_object.t -> string React.signal;
    p_NumPorts : 'a OBus_object.t -> int32 React.signal;
    p_Vendor : 'a OBus_object.t -> string React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_Changed;
      |]
      [|
        property_r_info p_Driver members.p_Driver;
        property_r_info p_Fabric members.p_Fabric;
        property_r_info p_Model members.p_Model;
        property_r_info p_NativePath members.p_NativePath;
        property_r_info p_NumPorts members.p_NumPorts;
        property_r_info p_Vendor members.p_Vendor;
      |]
end
module Org_freedesktop_UDisks_Device =
struct
  let interface = "org.freedesktop.UDisks.Device"
  let m_DriveAtaSmartInitiateSelftest = {
    Method.interface = interface;
    Method.member = "DriveAtaSmartInitiateSelftest";
    Method.i_args = (arg2
                       (Some "test", basic_string)
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_DriveAtaSmartRefreshData = {
    Method.interface = interface;
    Method.member = "DriveAtaSmartRefreshData";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_DriveBenchmark = {
    Method.interface = interface;
    Method.member = "DriveBenchmark";
    Method.i_args = (arg2
                       (Some "do_write_benchmark", basic_boolean)
                       (Some "options", array basic_string));
    Method.o_args = (arg3
                       (Some "read_transfer_rate_results", array (structure (seq2 basic_uint64 basic_double)))
                       (Some "write_transfer_rate_results", array (structure (seq2 basic_uint64 basic_double)))
                       (Some "access_time_results", array (structure (seq2 basic_uint64 basic_double))));
    Method.annotations = [];
  }
  let m_DriveDetach = {
    Method.interface = interface;
    Method.member = "DriveDetach";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_DriveEject = {
    Method.interface = interface;
    Method.member = "DriveEject";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_DriveInhibitPolling = {
    Method.interface = interface;
    Method.member = "DriveInhibitPolling";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "cookie", basic_string));
    Method.annotations = [];
  }
  let m_DrivePollMedia = {
    Method.interface = interface;
    Method.member = "DrivePollMedia";
    Method.i_args = (arg0);
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_DriveSetSpindownTimeout = {
    Method.interface = interface;
    Method.member = "DriveSetSpindownTimeout";
    Method.i_args = (arg2
                       (Some "timeout_seconds", basic_int32)
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "cookie", basic_string));
    Method.annotations = [];
  }
  let m_DriveUninhibitPolling = {
    Method.interface = interface;
    Method.member = "DriveUninhibitPolling";
    Method.i_args = (arg1
                       (Some "cookie", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_DriveUnsetSpindownTimeout = {
    Method.interface = interface;
    Method.member = "DriveUnsetSpindownTimeout";
    Method.i_args = (arg1
                       (Some "cookie", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_FilesystemCheck = {
    Method.interface = interface;
    Method.member = "FilesystemCheck";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "is_clean", basic_boolean));
    Method.annotations = [];
  }
  let m_FilesystemCreate = {
    Method.interface = interface;
    Method.member = "FilesystemCreate";
    Method.i_args = (arg2
                       (Some "fstype", basic_string)
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_FilesystemListOpenFiles = {
    Method.interface = interface;
    Method.member = "FilesystemListOpenFiles";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "processes", array (structure (seq3 basic_uint32 basic_uint32 basic_string))));
    Method.annotations = [];
  }
  let m_FilesystemMount = {
    Method.interface = interface;
    Method.member = "FilesystemMount";
    Method.i_args = (arg2
                       (Some "filesystem_type", basic_string)
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "mount_path", basic_string));
    Method.annotations = [];
  }
  let m_FilesystemSetLabel = {
    Method.interface = interface;
    Method.member = "FilesystemSetLabel";
    Method.i_args = (arg1
                       (Some "new_label", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_FilesystemUnmount = {
    Method.interface = interface;
    Method.member = "FilesystemUnmount";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_JobCancel = {
    Method.interface = interface;
    Method.member = "JobCancel";
    Method.i_args = (arg0);
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxLvm2LVStop = {
    Method.interface = interface;
    Method.member = "LinuxLvm2LVStop";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxMdAddSpare = {
    Method.interface = interface;
    Method.member = "LinuxMdAddSpare";
    Method.i_args = (arg2
                       (Some "component", basic_object_path)
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxMdCheck = {
    Method.interface = interface;
    Method.member = "LinuxMdCheck";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "number_of_errors", basic_uint64));
    Method.annotations = [];
  }
  let m_LinuxMdExpand = {
    Method.interface = interface;
    Method.member = "LinuxMdExpand";
    Method.i_args = (arg2
                       (Some "components", array basic_object_path)
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxMdRemoveComponent = {
    Method.interface = interface;
    Method.member = "LinuxMdRemoveComponent";
    Method.i_args = (arg2
                       (Some "component", basic_object_path)
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LinuxMdStop = {
    Method.interface = interface;
    Method.member = "LinuxMdStop";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LuksChangePassphrase = {
    Method.interface = interface;
    Method.member = "LuksChangePassphrase";
    Method.i_args = (arg2
                       (Some "current_passphrase", basic_string)
                       (Some "new_passphrase", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LuksLock = {
    Method.interface = interface;
    Method.member = "LuksLock";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_LuksUnlock = {
    Method.interface = interface;
    Method.member = "LuksUnlock";
    Method.i_args = (arg2
                       (Some "passphrase", basic_string)
                       (Some "options", array basic_string));
    Method.o_args = (arg1
                       (Some "cleartext_device", basic_object_path));
    Method.annotations = [];
  }
  let m_PartitionCreate = {
    Method.interface = interface;
    Method.member = "PartitionCreate";
    Method.i_args = (arg8
                       (Some "offset", basic_uint64)
                       (Some "size", basic_uint64)
                       (Some "type", basic_string)
                       (Some "label", basic_string)
                       (Some "flags", array basic_string)
                       (Some "options", array basic_string)
                       (Some "fstype", basic_string)
                       (Some "fsoptions", array basic_string));
    Method.o_args = (arg1
                       (Some "created_device", basic_object_path));
    Method.annotations = [];
  }
  let m_PartitionDelete = {
    Method.interface = interface;
    Method.member = "PartitionDelete";
    Method.i_args = (arg1
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_PartitionModify = {
    Method.interface = interface;
    Method.member = "PartitionModify";
    Method.i_args = (arg3
                       (Some "type", basic_string)
                       (Some "label", basic_string)
                       (Some "flags", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_PartitionTableCreate = {
    Method.interface = interface;
    Method.member = "PartitionTableCreate";
    Method.i_args = (arg2
                       (Some "scheme", basic_string)
                       (Some "options", array basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let s_Changed = {
    Signal.interface = interface;
    Signal.member = "Changed";
    Signal.args = (arg0);
    Signal.annotations = [];
  }
  let s_JobChanged = {
    Signal.interface = interface;
    Signal.member = "JobChanged";
    Signal.args = (arg5
                       (Some "job_in_progress", basic_boolean)
                       (Some "job_is_cancellable", basic_boolean)
                       (Some "job_id", basic_string)
                       (Some "job_initiated_by_uid", basic_uint32)
                       (Some "job_percentage", basic_double));
    Signal.annotations = [];
  }
  let p_DeviceBlockSize = {
    Property.interface = interface;
    Property.member = "DeviceBlockSize";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceDetectionTime = {
    Property.interface = interface;
    Property.member = "DeviceDetectionTime";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceFile = {
    Property.interface = interface;
    Property.member = "DeviceFile";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceFileById = {
    Property.interface = interface;
    Property.member = "DeviceFileById";
    Property.typ = array basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceFileByPath = {
    Property.interface = interface;
    Property.member = "DeviceFileByPath";
    Property.typ = array basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceFilePresentation = {
    Property.interface = interface;
    Property.member = "DeviceFilePresentation";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsDrive = {
    Property.interface = interface;
    Property.member = "DeviceIsDrive";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsLinuxDmmp = {
    Property.interface = interface;
    Property.member = "DeviceIsLinuxDmmp";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsLinuxDmmpComponent = {
    Property.interface = interface;
    Property.member = "DeviceIsLinuxDmmpComponent";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsLinuxLoop = {
    Property.interface = interface;
    Property.member = "DeviceIsLinuxLoop";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsLinuxLvm2LV = {
    Property.interface = interface;
    Property.member = "DeviceIsLinuxLvm2LV";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsLinuxLvm2PV = {
    Property.interface = interface;
    Property.member = "DeviceIsLinuxLvm2PV";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsLinuxMd = {
    Property.interface = interface;
    Property.member = "DeviceIsLinuxMd";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsLinuxMdComponent = {
    Property.interface = interface;
    Property.member = "DeviceIsLinuxMdComponent";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsLuks = {
    Property.interface = interface;
    Property.member = "DeviceIsLuks";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsLuksCleartext = {
    Property.interface = interface;
    Property.member = "DeviceIsLuksCleartext";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsMediaAvailable = {
    Property.interface = interface;
    Property.member = "DeviceIsMediaAvailable";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsMediaChangeDetected = {
    Property.interface = interface;
    Property.member = "DeviceIsMediaChangeDetected";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsMediaChangeDetectionInhibitable = {
    Property.interface = interface;
    Property.member = "DeviceIsMediaChangeDetectionInhibitable";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsMediaChangeDetectionInhibited = {
    Property.interface = interface;
    Property.member = "DeviceIsMediaChangeDetectionInhibited";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsMediaChangeDetectionPolling = {
    Property.interface = interface;
    Property.member = "DeviceIsMediaChangeDetectionPolling";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsMounted = {
    Property.interface = interface;
    Property.member = "DeviceIsMounted";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsOpticalDisc = {
    Property.interface = interface;
    Property.member = "DeviceIsOpticalDisc";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsPartition = {
    Property.interface = interface;
    Property.member = "DeviceIsPartition";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsPartitionTable = {
    Property.interface = interface;
    Property.member = "DeviceIsPartitionTable";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsReadOnly = {
    Property.interface = interface;
    Property.member = "DeviceIsReadOnly";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsRemovable = {
    Property.interface = interface;
    Property.member = "DeviceIsRemovable";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceIsSystemInternal = {
    Property.interface = interface;
    Property.member = "DeviceIsSystemInternal";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceMajor = {
    Property.interface = interface;
    Property.member = "DeviceMajor";
    Property.typ = basic_int64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceMediaDetectionTime = {
    Property.interface = interface;
    Property.member = "DeviceMediaDetectionTime";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceMinor = {
    Property.interface = interface;
    Property.member = "DeviceMinor";
    Property.typ = basic_int64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceMountPaths = {
    Property.interface = interface;
    Property.member = "DeviceMountPaths";
    Property.typ = array basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceMountedByUid = {
    Property.interface = interface;
    Property.member = "DeviceMountedByUid";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DevicePresentationHide = {
    Property.interface = interface;
    Property.member = "DevicePresentationHide";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DevicePresentationIconName = {
    Property.interface = interface;
    Property.member = "DevicePresentationIconName";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DevicePresentationName = {
    Property.interface = interface;
    Property.member = "DevicePresentationName";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DevicePresentationNopolicy = {
    Property.interface = interface;
    Property.member = "DevicePresentationNopolicy";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceSize = {
    Property.interface = interface;
    Property.member = "DeviceSize";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveAdapter = {
    Property.interface = interface;
    Property.member = "DriveAdapter";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveAtaSmartBlob = {
    Property.interface = interface;
    Property.member = "DriveAtaSmartBlob";
    Property.typ = byte_array;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveAtaSmartIsAvailable = {
    Property.interface = interface;
    Property.member = "DriveAtaSmartIsAvailable";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveAtaSmartStatus = {
    Property.interface = interface;
    Property.member = "DriveAtaSmartStatus";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveAtaSmartTimeCollected = {
    Property.interface = interface;
    Property.member = "DriveAtaSmartTimeCollected";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveCanDetach = {
    Property.interface = interface;
    Property.member = "DriveCanDetach";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveCanSpindown = {
    Property.interface = interface;
    Property.member = "DriveCanSpindown";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveConnectionInterface = {
    Property.interface = interface;
    Property.member = "DriveConnectionInterface";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveConnectionSpeed = {
    Property.interface = interface;
    Property.member = "DriveConnectionSpeed";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveIsMediaEjectable = {
    Property.interface = interface;
    Property.member = "DriveIsMediaEjectable";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveIsRotational = {
    Property.interface = interface;
    Property.member = "DriveIsRotational";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveMedia = {
    Property.interface = interface;
    Property.member = "DriveMedia";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveMediaCompatibility = {
    Property.interface = interface;
    Property.member = "DriveMediaCompatibility";
    Property.typ = array basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveModel = {
    Property.interface = interface;
    Property.member = "DriveModel";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DrivePorts = {
    Property.interface = interface;
    Property.member = "DrivePorts";
    Property.typ = array basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveRevision = {
    Property.interface = interface;
    Property.member = "DriveRevision";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveRotationRate = {
    Property.interface = interface;
    Property.member = "DriveRotationRate";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveSerial = {
    Property.interface = interface;
    Property.member = "DriveSerial";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveSimilarDevices = {
    Property.interface = interface;
    Property.member = "DriveSimilarDevices";
    Property.typ = array basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveVendor = {
    Property.interface = interface;
    Property.member = "DriveVendor";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveWriteCache = {
    Property.interface = interface;
    Property.member = "DriveWriteCache";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DriveWwn = {
    Property.interface = interface;
    Property.member = "DriveWwn";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_IdLabel = {
    Property.interface = interface;
    Property.member = "IdLabel";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_IdType = {
    Property.interface = interface;
    Property.member = "IdType";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_IdUsage = {
    Property.interface = interface;
    Property.member = "IdUsage";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_IdUuid = {
    Property.interface = interface;
    Property.member = "IdUuid";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_IdVersion = {
    Property.interface = interface;
    Property.member = "IdVersion";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_JobId = {
    Property.interface = interface;
    Property.member = "JobId";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_JobInProgress = {
    Property.interface = interface;
    Property.member = "JobInProgress";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_JobInitiatedByUid = {
    Property.interface = interface;
    Property.member = "JobInitiatedByUid";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_JobIsCancellable = {
    Property.interface = interface;
    Property.member = "JobIsCancellable";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_JobPercentage = {
    Property.interface = interface;
    Property.member = "JobPercentage";
    Property.typ = basic_double;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxDmmpComponentHolder = {
    Property.interface = interface;
    Property.member = "LinuxDmmpComponentHolder";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxDmmpName = {
    Property.interface = interface;
    Property.member = "LinuxDmmpName";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxDmmpParameters = {
    Property.interface = interface;
    Property.member = "LinuxDmmpParameters";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxDmmpSlaves = {
    Property.interface = interface;
    Property.member = "LinuxDmmpSlaves";
    Property.typ = array basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLoopFilename = {
    Property.interface = interface;
    Property.member = "LinuxLoopFilename";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2LVGroupName = {
    Property.interface = interface;
    Property.member = "LinuxLvm2LVGroupName";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2LVGroupUuid = {
    Property.interface = interface;
    Property.member = "LinuxLvm2LVGroupUuid";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2LVName = {
    Property.interface = interface;
    Property.member = "LinuxLvm2LVName";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2LVUuid = {
    Property.interface = interface;
    Property.member = "LinuxLvm2LVUuid";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2PVGroupExtentSize = {
    Property.interface = interface;
    Property.member = "LinuxLvm2PVGroupExtentSize";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2PVGroupLogicalVolumes = {
    Property.interface = interface;
    Property.member = "LinuxLvm2PVGroupLogicalVolumes";
    Property.typ = array basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2PVGroupName = {
    Property.interface = interface;
    Property.member = "LinuxLvm2PVGroupName";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2PVGroupPhysicalVolumes = {
    Property.interface = interface;
    Property.member = "LinuxLvm2PVGroupPhysicalVolumes";
    Property.typ = array basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2PVGroupSequenceNumber = {
    Property.interface = interface;
    Property.member = "LinuxLvm2PVGroupSequenceNumber";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2PVGroupSize = {
    Property.interface = interface;
    Property.member = "LinuxLvm2PVGroupSize";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2PVGroupUnallocatedSize = {
    Property.interface = interface;
    Property.member = "LinuxLvm2PVGroupUnallocatedSize";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2PVGroupUuid = {
    Property.interface = interface;
    Property.member = "LinuxLvm2PVGroupUuid";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2PVNumMetadataAreas = {
    Property.interface = interface;
    Property.member = "LinuxLvm2PVNumMetadataAreas";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxLvm2PVUuid = {
    Property.interface = interface;
    Property.member = "LinuxLvm2PVUuid";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdComponentHolder = {
    Property.interface = interface;
    Property.member = "LinuxMdComponentHolder";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdComponentHomeHost = {
    Property.interface = interface;
    Property.member = "LinuxMdComponentHomeHost";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdComponentLevel = {
    Property.interface = interface;
    Property.member = "LinuxMdComponentLevel";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdComponentName = {
    Property.interface = interface;
    Property.member = "LinuxMdComponentName";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdComponentNumRaidDevices = {
    Property.interface = interface;
    Property.member = "LinuxMdComponentNumRaidDevices";
    Property.typ = basic_int32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdComponentPosition = {
    Property.interface = interface;
    Property.member = "LinuxMdComponentPosition";
    Property.typ = basic_int32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdComponentState = {
    Property.interface = interface;
    Property.member = "LinuxMdComponentState";
    Property.typ = array basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdComponentUuid = {
    Property.interface = interface;
    Property.member = "LinuxMdComponentUuid";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdComponentVersion = {
    Property.interface = interface;
    Property.member = "LinuxMdComponentVersion";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdHomeHost = {
    Property.interface = interface;
    Property.member = "LinuxMdHomeHost";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdIsDegraded = {
    Property.interface = interface;
    Property.member = "LinuxMdIsDegraded";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdLevel = {
    Property.interface = interface;
    Property.member = "LinuxMdLevel";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdName = {
    Property.interface = interface;
    Property.member = "LinuxMdName";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdNumRaidDevices = {
    Property.interface = interface;
    Property.member = "LinuxMdNumRaidDevices";
    Property.typ = basic_int32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdSlaves = {
    Property.interface = interface;
    Property.member = "LinuxMdSlaves";
    Property.typ = array basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdState = {
    Property.interface = interface;
    Property.member = "LinuxMdState";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdSyncAction = {
    Property.interface = interface;
    Property.member = "LinuxMdSyncAction";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdSyncPercentage = {
    Property.interface = interface;
    Property.member = "LinuxMdSyncPercentage";
    Property.typ = basic_double;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdSyncSpeed = {
    Property.interface = interface;
    Property.member = "LinuxMdSyncSpeed";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdUuid = {
    Property.interface = interface;
    Property.member = "LinuxMdUuid";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LinuxMdVersion = {
    Property.interface = interface;
    Property.member = "LinuxMdVersion";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LuksCleartextSlave = {
    Property.interface = interface;
    Property.member = "LuksCleartextSlave";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LuksCleartextUnlockedByUid = {
    Property.interface = interface;
    Property.member = "LuksCleartextUnlockedByUid";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_LuksHolder = {
    Property.interface = interface;
    Property.member = "LuksHolder";
    Property.typ = basic_object_path;
    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_OpticalDiscIsAppendable = {
    Property.interface = interface;
    Property.member = "OpticalDiscIsAppendable";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_OpticalDiscIsBlank = {
    Property.interface = interface;
    Property.member = "OpticalDiscIsBlank";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_OpticalDiscIsClosed = {
    Property.interface = interface;
    Property.member = "OpticalDiscIsClosed";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_OpticalDiscNumAudioTracks = {
    Property.interface = interface;
    Property.member = "OpticalDiscNumAudioTracks";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_OpticalDiscNumSessions = {
    Property.interface = interface;
    Property.member = "OpticalDiscNumSessions";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_OpticalDiscNumTracks = {
    Property.interface = interface;
    Property.member = "OpticalDiscNumTracks";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PartitionAlignmentOffset = {
    Property.interface = interface;
    Property.member = "PartitionAlignmentOffset";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PartitionFlags = {
    Property.interface = interface;
    Property.member = "PartitionFlags";
    Property.typ = array basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PartitionLabel = {
    Property.interface = interface;
    Property.member = "PartitionLabel";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PartitionNumber = {
    Property.interface = interface;
    Property.member = "PartitionNumber";
    Property.typ = basic_int32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PartitionOffset = {
    Property.interface = interface;
    Property.member = "PartitionOffset";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PartitionScheme = {
    Property.interface = interface;
    Property.member = "PartitionScheme";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PartitionSize = {
    Property.interface = interface;
    Property.member = "PartitionSize";
    Property.typ = basic_uint64;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PartitionSlave = {
    Property.interface = interface;
    Property.member = "PartitionSlave";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PartitionTableCount = {
    Property.interface = interface;
    Property.member = "PartitionTableCount";
    Property.typ = basic_int32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PartitionTableScheme = {
    Property.interface = interface;
    Property.member = "PartitionTableScheme";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PartitionType = {
    Property.interface = interface;
    Property.member = "PartitionType";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_PartitionUuid = {
    Property.interface = interface;
    Property.member = "PartitionUuid";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    m_DriveAtaSmartInitiateSelftest : 'a OBus_object.t -> string * string list -> unit Lwt.t;
    m_DriveAtaSmartRefreshData : 'a OBus_object.t -> string list -> unit Lwt.t;
    m_DriveBenchmark : 'a OBus_object.t -> bool * string list -> ((int64 * float) list * (int64 * float) list * (int64 * float) list) Lwt.t;
    m_DriveDetach : 'a OBus_object.t -> string list -> unit Lwt.t;
    m_DriveEject : 'a OBus_object.t -> string list -> unit Lwt.t;
    m_DriveInhibitPolling : 'a OBus_object.t -> string list -> string Lwt.t;
    m_DrivePollMedia : 'a OBus_object.t -> unit -> unit Lwt.t;
    m_DriveSetSpindownTimeout : 'a OBus_object.t -> int32 * string list -> string Lwt.t;
    m_DriveUninhibitPolling : 'a OBus_object.t -> string -> unit Lwt.t;
    m_DriveUnsetSpindownTimeout : 'a OBus_object.t -> string -> unit Lwt.t;
    m_FilesystemCheck : 'a OBus_object.t -> string list -> bool Lwt.t;
    m_FilesystemCreate : 'a OBus_object.t -> string * string list -> unit Lwt.t;
    m_FilesystemListOpenFiles : 'a OBus_object.t -> unit -> (int32 * int32 * string) list Lwt.t;
    m_FilesystemMount : 'a OBus_object.t -> string * string list -> string Lwt.t;
    m_FilesystemSetLabel : 'a OBus_object.t -> string -> unit Lwt.t;
    m_FilesystemUnmount : 'a OBus_object.t -> string list -> unit Lwt.t;
    m_JobCancel : 'a OBus_object.t -> unit -> unit Lwt.t;
    m_LinuxLvm2LVStop : 'a OBus_object.t -> string list -> unit Lwt.t;
    m_LinuxMdAddSpare : 'a OBus_object.t -> OBus_path.t * string list -> unit Lwt.t;
    m_LinuxMdCheck : 'a OBus_object.t -> string list -> int64 Lwt.t;
    m_LinuxMdExpand : 'a OBus_object.t -> OBus_path.t list * string list -> unit Lwt.t;
    m_LinuxMdRemoveComponent : 'a OBus_object.t -> OBus_path.t * string list -> unit Lwt.t;
    m_LinuxMdStop : 'a OBus_object.t -> string list -> unit Lwt.t;
    m_LuksChangePassphrase : 'a OBus_object.t -> string * string -> unit Lwt.t;
    m_LuksLock : 'a OBus_object.t -> string list -> unit Lwt.t;
    m_LuksUnlock : 'a OBus_object.t -> string * string list -> OBus_path.t Lwt.t;
    m_PartitionCreate : 'a OBus_object.t -> int64 * int64 * string * string * string list * string list * string * string list -> OBus_path.t Lwt.t;
    m_PartitionDelete : 'a OBus_object.t -> string list -> unit Lwt.t;
    m_PartitionModify : 'a OBus_object.t -> string * string * string list -> unit Lwt.t;
    m_PartitionTableCreate : 'a OBus_object.t -> string * string list -> unit Lwt.t;
    p_DeviceBlockSize : 'a OBus_object.t -> int64 React.signal;
    p_DeviceDetectionTime : 'a OBus_object.t -> int64 React.signal;
    p_DeviceFile : 'a OBus_object.t -> string React.signal;
    p_DeviceFileById : 'a OBus_object.t -> string list React.signal;
    p_DeviceFileByPath : 'a OBus_object.t -> string list React.signal;
    p_DeviceFilePresentation : 'a OBus_object.t -> string React.signal;
    p_DeviceIsDrive : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsLinuxDmmp : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsLinuxDmmpComponent : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsLinuxLoop : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsLinuxLvm2LV : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsLinuxLvm2PV : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsLinuxMd : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsLinuxMdComponent : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsLuks : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsLuksCleartext : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsMediaAvailable : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsMediaChangeDetected : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsMediaChangeDetectionInhibitable : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsMediaChangeDetectionInhibited : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsMediaChangeDetectionPolling : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsMounted : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsOpticalDisc : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsPartition : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsPartitionTable : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsReadOnly : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsRemovable : 'a OBus_object.t -> bool React.signal;
    p_DeviceIsSystemInternal : 'a OBus_object.t -> bool React.signal;
    p_DeviceMajor : 'a OBus_object.t -> int64 React.signal;
    p_DeviceMediaDetectionTime : 'a OBus_object.t -> int64 React.signal;
    p_DeviceMinor : 'a OBus_object.t -> int64 React.signal;
    p_DeviceMountPaths : 'a OBus_object.t -> string list React.signal;
    p_DeviceMountedByUid : 'a OBus_object.t -> int32 React.signal;
    p_DevicePresentationHide : 'a OBus_object.t -> bool React.signal;
    p_DevicePresentationIconName : 'a OBus_object.t -> string React.signal;
    p_DevicePresentationName : 'a OBus_object.t -> string React.signal;
    p_DevicePresentationNopolicy : 'a OBus_object.t -> bool React.signal;
    p_DeviceSize : 'a OBus_object.t -> int64 React.signal;
    p_DriveAdapter : 'a OBus_object.t -> OBus_path.t React.signal;
    p_DriveAtaSmartBlob : 'a OBus_object.t -> string React.signal;
    p_DriveAtaSmartIsAvailable : 'a OBus_object.t -> bool React.signal;
    p_DriveAtaSmartStatus : 'a OBus_object.t -> string React.signal;
    p_DriveAtaSmartTimeCollected : 'a OBus_object.t -> int64 React.signal;
    p_DriveCanDetach : 'a OBus_object.t -> bool React.signal;
    p_DriveCanSpindown : 'a OBus_object.t -> bool React.signal;
    p_DriveConnectionInterface : 'a OBus_object.t -> string React.signal;
    p_DriveConnectionSpeed : 'a OBus_object.t -> int64 React.signal;
    p_DriveIsMediaEjectable : 'a OBus_object.t -> bool React.signal;
    p_DriveIsRotational : 'a OBus_object.t -> bool React.signal;
    p_DriveMedia : 'a OBus_object.t -> string React.signal;
    p_DriveMediaCompatibility : 'a OBus_object.t -> string list React.signal;
    p_DriveModel : 'a OBus_object.t -> string React.signal;
    p_DrivePorts : 'a OBus_object.t -> OBus_path.t list React.signal;
    p_DriveRevision : 'a OBus_object.t -> string React.signal;
    p_DriveRotationRate : 'a OBus_object.t -> int32 React.signal;
    p_DriveSerial : 'a OBus_object.t -> string React.signal;
    p_DriveSimilarDevices : 'a OBus_object.t -> OBus_path.t list React.signal;
    p_DriveVendor : 'a OBus_object.t -> string React.signal;
    p_DriveWriteCache : 'a OBus_object.t -> string React.signal;
    p_DriveWwn : 'a OBus_object.t -> string React.signal;
    p_IdLabel : 'a OBus_object.t -> string React.signal;
    p_IdType : 'a OBus_object.t -> string React.signal;
    p_IdUsage : 'a OBus_object.t -> string React.signal;
    p_IdUuid : 'a OBus_object.t -> string React.signal;
    p_IdVersion : 'a OBus_object.t -> string React.signal;
    p_JobId : 'a OBus_object.t -> string React.signal;
    p_JobInProgress : 'a OBus_object.t -> bool React.signal;
    p_JobInitiatedByUid : 'a OBus_object.t -> int32 React.signal;
    p_JobIsCancellable : 'a OBus_object.t -> bool React.signal;
    p_JobPercentage : 'a OBus_object.t -> float React.signal;
    p_LinuxDmmpComponentHolder : 'a OBus_object.t -> OBus_path.t React.signal;
    p_LinuxDmmpName : 'a OBus_object.t -> string React.signal;
    p_LinuxDmmpParameters : 'a OBus_object.t -> string React.signal;
    p_LinuxDmmpSlaves : 'a OBus_object.t -> OBus_path.t list React.signal;
    p_LinuxLoopFilename : 'a OBus_object.t -> string React.signal;
    p_LinuxLvm2LVGroupName : 'a OBus_object.t -> string React.signal;
    p_LinuxLvm2LVGroupUuid : 'a OBus_object.t -> string React.signal;
    p_LinuxLvm2LVName : 'a OBus_object.t -> string React.signal;
    p_LinuxLvm2LVUuid : 'a OBus_object.t -> string React.signal;
    p_LinuxLvm2PVGroupExtentSize : 'a OBus_object.t -> int64 React.signal;
    p_LinuxLvm2PVGroupLogicalVolumes : 'a OBus_object.t -> string list React.signal;
    p_LinuxLvm2PVGroupName : 'a OBus_object.t -> string React.signal;
    p_LinuxLvm2PVGroupPhysicalVolumes : 'a OBus_object.t -> string list React.signal;
    p_LinuxLvm2PVGroupSequenceNumber : 'a OBus_object.t -> int64 React.signal;
    p_LinuxLvm2PVGroupSize : 'a OBus_object.t -> int64 React.signal;
    p_LinuxLvm2PVGroupUnallocatedSize : 'a OBus_object.t -> int64 React.signal;
    p_LinuxLvm2PVGroupUuid : 'a OBus_object.t -> string React.signal;
    p_LinuxLvm2PVNumMetadataAreas : 'a OBus_object.t -> int32 React.signal;
    p_LinuxLvm2PVUuid : 'a OBus_object.t -> string React.signal;
    p_LinuxMdComponentHolder : 'a OBus_object.t -> OBus_path.t React.signal;
    p_LinuxMdComponentHomeHost : 'a OBus_object.t -> string React.signal;
    p_LinuxMdComponentLevel : 'a OBus_object.t -> string React.signal;
    p_LinuxMdComponentName : 'a OBus_object.t -> string React.signal;
    p_LinuxMdComponentNumRaidDevices : 'a OBus_object.t -> int32 React.signal;
    p_LinuxMdComponentPosition : 'a OBus_object.t -> int32 React.signal;
    p_LinuxMdComponentState : 'a OBus_object.t -> string list React.signal;
    p_LinuxMdComponentUuid : 'a OBus_object.t -> string React.signal;
    p_LinuxMdComponentVersion : 'a OBus_object.t -> string React.signal;
    p_LinuxMdHomeHost : 'a OBus_object.t -> string React.signal;
    p_LinuxMdIsDegraded : 'a OBus_object.t -> bool React.signal;
    p_LinuxMdLevel : 'a OBus_object.t -> string React.signal;
    p_LinuxMdName : 'a OBus_object.t -> string React.signal;
    p_LinuxMdNumRaidDevices : 'a OBus_object.t -> int32 React.signal;
    p_LinuxMdSlaves : 'a OBus_object.t -> OBus_path.t list React.signal;
    p_LinuxMdState : 'a OBus_object.t -> string React.signal;
    p_LinuxMdSyncAction : 'a OBus_object.t -> string React.signal;
    p_LinuxMdSyncPercentage : 'a OBus_object.t -> float React.signal;
    p_LinuxMdSyncSpeed : 'a OBus_object.t -> int64 React.signal;
    p_LinuxMdUuid : 'a OBus_object.t -> string React.signal;
    p_LinuxMdVersion : 'a OBus_object.t -> string React.signal;
    p_LuksCleartextSlave : 'a OBus_object.t -> OBus_path.t React.signal;
    p_LuksCleartextUnlockedByUid : 'a OBus_object.t -> int32 React.signal;
    p_LuksHolder : 'a OBus_object.t -> OBus_path.t React.signal;
    p_NativePath : 'a OBus_object.t -> string React.signal;
    p_OpticalDiscIsAppendable : 'a OBus_object.t -> bool React.signal;
    p_OpticalDiscIsBlank : 'a OBus_object.t -> bool React.signal;
    p_OpticalDiscIsClosed : 'a OBus_object.t -> bool React.signal;
    p_OpticalDiscNumAudioTracks : 'a OBus_object.t -> int32 React.signal;
    p_OpticalDiscNumSessions : 'a OBus_object.t -> int32 React.signal;
    p_OpticalDiscNumTracks : 'a OBus_object.t -> int32 React.signal;
    p_PartitionAlignmentOffset : 'a OBus_object.t -> int64 React.signal;
    p_PartitionFlags : 'a OBus_object.t -> string list React.signal;
    p_PartitionLabel : 'a OBus_object.t -> string React.signal;
    p_PartitionNumber : 'a OBus_object.t -> int32 React.signal;
    p_PartitionOffset : 'a OBus_object.t -> int64 React.signal;
    p_PartitionScheme : 'a OBus_object.t -> string React.signal;
    p_PartitionSize : 'a OBus_object.t -> int64 React.signal;
    p_PartitionSlave : 'a OBus_object.t -> OBus_path.t React.signal;
    p_PartitionTableCount : 'a OBus_object.t -> int32 React.signal;
    p_PartitionTableScheme : 'a OBus_object.t -> string React.signal;
    p_PartitionType : 'a OBus_object.t -> string React.signal;
    p_PartitionUuid : 'a OBus_object.t -> string React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_DriveAtaSmartInitiateSelftest members.m_DriveAtaSmartInitiateSelftest;
        method_info m_DriveAtaSmartRefreshData members.m_DriveAtaSmartRefreshData;
        method_info m_DriveBenchmark members.m_DriveBenchmark;
        method_info m_DriveDetach members.m_DriveDetach;
        method_info m_DriveEject members.m_DriveEject;
        method_info m_DriveInhibitPolling members.m_DriveInhibitPolling;
        method_info m_DrivePollMedia members.m_DrivePollMedia;
        method_info m_DriveSetSpindownTimeout members.m_DriveSetSpindownTimeout;
        method_info m_DriveUninhibitPolling members.m_DriveUninhibitPolling;
        method_info m_DriveUnsetSpindownTimeout members.m_DriveUnsetSpindownTimeout;
        method_info m_FilesystemCheck members.m_FilesystemCheck;
        method_info m_FilesystemCreate members.m_FilesystemCreate;
        method_info m_FilesystemListOpenFiles members.m_FilesystemListOpenFiles;
        method_info m_FilesystemMount members.m_FilesystemMount;
        method_info m_FilesystemSetLabel members.m_FilesystemSetLabel;
        method_info m_FilesystemUnmount members.m_FilesystemUnmount;
        method_info m_JobCancel members.m_JobCancel;
        method_info m_LinuxLvm2LVStop members.m_LinuxLvm2LVStop;
        method_info m_LinuxMdAddSpare members.m_LinuxMdAddSpare;
        method_info m_LinuxMdCheck members.m_LinuxMdCheck;
        method_info m_LinuxMdExpand members.m_LinuxMdExpand;
        method_info m_LinuxMdRemoveComponent members.m_LinuxMdRemoveComponent;
        method_info m_LinuxMdStop members.m_LinuxMdStop;
        method_info m_LuksChangePassphrase members.m_LuksChangePassphrase;
        method_info m_LuksLock members.m_LuksLock;
        method_info m_LuksUnlock members.m_LuksUnlock;
        method_info m_PartitionCreate members.m_PartitionCreate;
        method_info m_PartitionDelete members.m_PartitionDelete;
        method_info m_PartitionModify members.m_PartitionModify;
        method_info m_PartitionTableCreate members.m_PartitionTableCreate;
      |]
      [|
        signal_info s_Changed;
        signal_info s_JobChanged;
      |]
      [|
        property_r_info p_DeviceBlockSize members.p_DeviceBlockSize;
        property_r_info p_DeviceDetectionTime members.p_DeviceDetectionTime;
        property_r_info p_DeviceFile members.p_DeviceFile;
        property_r_info p_DeviceFileById members.p_DeviceFileById;
        property_r_info p_DeviceFileByPath members.p_DeviceFileByPath;
        property_r_info p_DeviceFilePresentation members.p_DeviceFilePresentation;
        property_r_info p_DeviceIsDrive members.p_DeviceIsDrive;
        property_r_info p_DeviceIsLinuxDmmp members.p_DeviceIsLinuxDmmp;
        property_r_info p_DeviceIsLinuxDmmpComponent members.p_DeviceIsLinuxDmmpComponent;
        property_r_info p_DeviceIsLinuxLoop members.p_DeviceIsLinuxLoop;
        property_r_info p_DeviceIsLinuxLvm2LV members.p_DeviceIsLinuxLvm2LV;
        property_r_info p_DeviceIsLinuxLvm2PV members.p_DeviceIsLinuxLvm2PV;
        property_r_info p_DeviceIsLinuxMd members.p_DeviceIsLinuxMd;
        property_r_info p_DeviceIsLinuxMdComponent members.p_DeviceIsLinuxMdComponent;
        property_r_info p_DeviceIsLuks members.p_DeviceIsLuks;
        property_r_info p_DeviceIsLuksCleartext members.p_DeviceIsLuksCleartext;
        property_r_info p_DeviceIsMediaAvailable members.p_DeviceIsMediaAvailable;
        property_r_info p_DeviceIsMediaChangeDetected members.p_DeviceIsMediaChangeDetected;
        property_r_info p_DeviceIsMediaChangeDetectionInhibitable members.p_DeviceIsMediaChangeDetectionInhibitable;
        property_r_info p_DeviceIsMediaChangeDetectionInhibited members.p_DeviceIsMediaChangeDetectionInhibited;
        property_r_info p_DeviceIsMediaChangeDetectionPolling members.p_DeviceIsMediaChangeDetectionPolling;
        property_r_info p_DeviceIsMounted members.p_DeviceIsMounted;
        property_r_info p_DeviceIsOpticalDisc members.p_DeviceIsOpticalDisc;
        property_r_info p_DeviceIsPartition members.p_DeviceIsPartition;
        property_r_info p_DeviceIsPartitionTable members.p_DeviceIsPartitionTable;
        property_r_info p_DeviceIsReadOnly members.p_DeviceIsReadOnly;
        property_r_info p_DeviceIsRemovable members.p_DeviceIsRemovable;
        property_r_info p_DeviceIsSystemInternal members.p_DeviceIsSystemInternal;
        property_r_info p_DeviceMajor members.p_DeviceMajor;
        property_r_info p_DeviceMediaDetectionTime members.p_DeviceMediaDetectionTime;
        property_r_info p_DeviceMinor members.p_DeviceMinor;
        property_r_info p_DeviceMountPaths members.p_DeviceMountPaths;
        property_r_info p_DeviceMountedByUid members.p_DeviceMountedByUid;
        property_r_info p_DevicePresentationHide members.p_DevicePresentationHide;
        property_r_info p_DevicePresentationIconName members.p_DevicePresentationIconName;
        property_r_info p_DevicePresentationName members.p_DevicePresentationName;
        property_r_info p_DevicePresentationNopolicy members.p_DevicePresentationNopolicy;
        property_r_info p_DeviceSize members.p_DeviceSize;
        property_r_info p_DriveAdapter members.p_DriveAdapter;
        property_r_info p_DriveAtaSmartBlob members.p_DriveAtaSmartBlob;
        property_r_info p_DriveAtaSmartIsAvailable members.p_DriveAtaSmartIsAvailable;
        property_r_info p_DriveAtaSmartStatus members.p_DriveAtaSmartStatus;
        property_r_info p_DriveAtaSmartTimeCollected members.p_DriveAtaSmartTimeCollected;
        property_r_info p_DriveCanDetach members.p_DriveCanDetach;
        property_r_info p_DriveCanSpindown members.p_DriveCanSpindown;
        property_r_info p_DriveConnectionInterface members.p_DriveConnectionInterface;
        property_r_info p_DriveConnectionSpeed members.p_DriveConnectionSpeed;
        property_r_info p_DriveIsMediaEjectable members.p_DriveIsMediaEjectable;
        property_r_info p_DriveIsRotational members.p_DriveIsRotational;
        property_r_info p_DriveMedia members.p_DriveMedia;
        property_r_info p_DriveMediaCompatibility members.p_DriveMediaCompatibility;
        property_r_info p_DriveModel members.p_DriveModel;
        property_r_info p_DrivePorts members.p_DrivePorts;
        property_r_info p_DriveRevision members.p_DriveRevision;
        property_r_info p_DriveRotationRate members.p_DriveRotationRate;
        property_r_info p_DriveSerial members.p_DriveSerial;
        property_r_info p_DriveSimilarDevices members.p_DriveSimilarDevices;
        property_r_info p_DriveVendor members.p_DriveVendor;
        property_r_info p_DriveWriteCache members.p_DriveWriteCache;
        property_r_info p_DriveWwn members.p_DriveWwn;
        property_r_info p_IdLabel members.p_IdLabel;
        property_r_info p_IdType members.p_IdType;
        property_r_info p_IdUsage members.p_IdUsage;
        property_r_info p_IdUuid members.p_IdUuid;
        property_r_info p_IdVersion members.p_IdVersion;
        property_r_info p_JobId members.p_JobId;
        property_r_info p_JobInProgress members.p_JobInProgress;
        property_r_info p_JobInitiatedByUid members.p_JobInitiatedByUid;
        property_r_info p_JobIsCancellable members.p_JobIsCancellable;
        property_r_info p_JobPercentage members.p_JobPercentage;
        property_r_info p_LinuxDmmpComponentHolder members.p_LinuxDmmpComponentHolder;
        property_r_info p_LinuxDmmpName members.p_LinuxDmmpName;
        property_r_info p_LinuxDmmpParameters members.p_LinuxDmmpParameters;
        property_r_info p_LinuxDmmpSlaves members.p_LinuxDmmpSlaves;
        property_r_info p_LinuxLoopFilename members.p_LinuxLoopFilename;
        property_r_info p_LinuxLvm2LVGroupName members.p_LinuxLvm2LVGroupName;
        property_r_info p_LinuxLvm2LVGroupUuid members.p_LinuxLvm2LVGroupUuid;
        property_r_info p_LinuxLvm2LVName members.p_LinuxLvm2LVName;
        property_r_info p_LinuxLvm2LVUuid members.p_LinuxLvm2LVUuid;
        property_r_info p_LinuxLvm2PVGroupExtentSize members.p_LinuxLvm2PVGroupExtentSize;
        property_r_info p_LinuxLvm2PVGroupLogicalVolumes members.p_LinuxLvm2PVGroupLogicalVolumes;
        property_r_info p_LinuxLvm2PVGroupName members.p_LinuxLvm2PVGroupName;
        property_r_info p_LinuxLvm2PVGroupPhysicalVolumes members.p_LinuxLvm2PVGroupPhysicalVolumes;
        property_r_info p_LinuxLvm2PVGroupSequenceNumber members.p_LinuxLvm2PVGroupSequenceNumber;
        property_r_info p_LinuxLvm2PVGroupSize members.p_LinuxLvm2PVGroupSize;
        property_r_info p_LinuxLvm2PVGroupUnallocatedSize members.p_LinuxLvm2PVGroupUnallocatedSize;
        property_r_info p_LinuxLvm2PVGroupUuid members.p_LinuxLvm2PVGroupUuid;
        property_r_info p_LinuxLvm2PVNumMetadataAreas members.p_LinuxLvm2PVNumMetadataAreas;
        property_r_info p_LinuxLvm2PVUuid members.p_LinuxLvm2PVUuid;
        property_r_info p_LinuxMdComponentHolder members.p_LinuxMdComponentHolder;
        property_r_info p_LinuxMdComponentHomeHost members.p_LinuxMdComponentHomeHost;
        property_r_info p_LinuxMdComponentLevel members.p_LinuxMdComponentLevel;
        property_r_info p_LinuxMdComponentName members.p_LinuxMdComponentName;
        property_r_info p_LinuxMdComponentNumRaidDevices members.p_LinuxMdComponentNumRaidDevices;
        property_r_info p_LinuxMdComponentPosition members.p_LinuxMdComponentPosition;
        property_r_info p_LinuxMdComponentState members.p_LinuxMdComponentState;
        property_r_info p_LinuxMdComponentUuid members.p_LinuxMdComponentUuid;
        property_r_info p_LinuxMdComponentVersion members.p_LinuxMdComponentVersion;
        property_r_info p_LinuxMdHomeHost members.p_LinuxMdHomeHost;
        property_r_info p_LinuxMdIsDegraded members.p_LinuxMdIsDegraded;
        property_r_info p_LinuxMdLevel members.p_LinuxMdLevel;
        property_r_info p_LinuxMdName members.p_LinuxMdName;
        property_r_info p_LinuxMdNumRaidDevices members.p_LinuxMdNumRaidDevices;
        property_r_info p_LinuxMdSlaves members.p_LinuxMdSlaves;
        property_r_info p_LinuxMdState members.p_LinuxMdState;
        property_r_info p_LinuxMdSyncAction members.p_LinuxMdSyncAction;
        property_r_info p_LinuxMdSyncPercentage members.p_LinuxMdSyncPercentage;
        property_r_info p_LinuxMdSyncSpeed members.p_LinuxMdSyncSpeed;
        property_r_info p_LinuxMdUuid members.p_LinuxMdUuid;
        property_r_info p_LinuxMdVersion members.p_LinuxMdVersion;
        property_r_info p_LuksCleartextSlave members.p_LuksCleartextSlave;
        property_r_info p_LuksCleartextUnlockedByUid members.p_LuksCleartextUnlockedByUid;
        property_r_info p_LuksHolder members.p_LuksHolder;
        property_r_info p_NativePath members.p_NativePath;
        property_r_info p_OpticalDiscIsAppendable members.p_OpticalDiscIsAppendable;
        property_r_info p_OpticalDiscIsBlank members.p_OpticalDiscIsBlank;
        property_r_info p_OpticalDiscIsClosed members.p_OpticalDiscIsClosed;
        property_r_info p_OpticalDiscNumAudioTracks members.p_OpticalDiscNumAudioTracks;
        property_r_info p_OpticalDiscNumSessions members.p_OpticalDiscNumSessions;
        property_r_info p_OpticalDiscNumTracks members.p_OpticalDiscNumTracks;
        property_r_info p_PartitionAlignmentOffset members.p_PartitionAlignmentOffset;
        property_r_info p_PartitionFlags members.p_PartitionFlags;
        property_r_info p_PartitionLabel members.p_PartitionLabel;
        property_r_info p_PartitionNumber members.p_PartitionNumber;
        property_r_info p_PartitionOffset members.p_PartitionOffset;
        property_r_info p_PartitionScheme members.p_PartitionScheme;
        property_r_info p_PartitionSize members.p_PartitionSize;
        property_r_info p_PartitionSlave members.p_PartitionSlave;
        property_r_info p_PartitionTableCount members.p_PartitionTableCount;
        property_r_info p_PartitionTableScheme members.p_PartitionTableScheme;
        property_r_info p_PartitionType members.p_PartitionType;
        property_r_info p_PartitionUuid members.p_PartitionUuid;
      |]
end
module Org_freedesktop_UDisks_Expander =
struct
  let interface = "org.freedesktop.UDisks.Expander"
  let s_Changed = {
    Signal.interface = interface;
    Signal.member = "Changed";
    Signal.args = (arg0);
    Signal.annotations = [];
  }
  let p_Adapter = {
    Property.interface = interface;
    Property.member = "Adapter";
    Property.typ = basic_object_path;
    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_NumPorts = {
    Property.interface = interface;
    Property.member = "NumPorts";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Revision = {
    Property.interface = interface;
    Property.member = "Revision";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_UpstreamPorts = {
    Property.interface = interface;
    Property.member = "UpstreamPorts";
    Property.typ = array basic_object_path;
    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 = [];
  }
  type 'a members = {
    p_Adapter : 'a OBus_object.t -> OBus_path.t React.signal;
    p_Model : 'a OBus_object.t -> string React.signal;
    p_NativePath : 'a OBus_object.t -> string React.signal;
    p_NumPorts : 'a OBus_object.t -> int32 React.signal;
    p_Revision : 'a OBus_object.t -> string React.signal;
    p_UpstreamPorts : 'a OBus_object.t -> OBus_path.t list React.signal;
    p_Vendor : 'a OBus_object.t -> string React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_Changed;
      |]
      [|
        property_r_info p_Adapter members.p_Adapter;
        property_r_info p_Model members.p_Model;
        property_r_info p_NativePath members.p_NativePath;
        property_r_info p_NumPorts members.p_NumPorts;
        property_r_info p_Revision members.p_Revision;
        property_r_info p_UpstreamPorts members.p_UpstreamPorts;
        property_r_info p_Vendor members.p_Vendor;
      |]
end
module Org_freedesktop_UDisks_Port =
struct
  let interface = "org.freedesktop.UDisks.Port"
  let s_Changed = {
    Signal.interface = interface;
    Signal.member = "Changed";
    Signal.args = (arg0);
    Signal.annotations = [];
  }
  let p_Adapter = {
    Property.interface = interface;
    Property.member = "Adapter";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_ConnectorType = {
    Property.interface = interface;
    Property.member = "ConnectorType";
    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_Number = {
    Property.interface = interface;
    Property.member = "Number";
    Property.typ = basic_int32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Parent = {
    Property.interface = interface;
    Property.member = "Parent";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    p_Adapter : 'a OBus_object.t -> OBus_path.t React.signal;
    p_ConnectorType : 'a OBus_object.t -> string React.signal;
    p_NativePath : 'a OBus_object.t -> string React.signal;
    p_Number : 'a OBus_object.t -> int32 React.signal;
    p_Parent : 'a OBus_object.t -> OBus_path.t React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_Changed;
      |]
      [|
        property_r_info p_Adapter members.p_Adapter;
        property_r_info p_ConnectorType members.p_ConnectorType;
        property_r_info p_NativePath members.p_NativePath;
        property_r_info p_Number members.p_Number;
        property_r_info p_Parent members.p_Parent;
      |]
end