Source file nm_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_NetworkManager =
struct
  let interface = "org.freedesktop.NetworkManager"
  let m_ActivateConnection = {
    Method.interface = interface;
    Method.member = "ActivateConnection";
    Method.i_args = (arg4
                       (Some "service_name", basic_string)
                       (Some "connection", basic_object_path)
                       (Some "device", basic_object_path)
                       (Some "specific_object", basic_object_path));
    Method.o_args = (arg1
                       (Some "active_connection", basic_object_path));
    Method.annotations = [];
  }
  let m_DeactivateConnection = {
    Method.interface = interface;
    Method.member = "DeactivateConnection";
    Method.i_args = (arg1
                       (Some "active_connection", basic_object_path));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_GetDevices = {
    Method.interface = interface;
    Method.member = "GetDevices";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "devices", array basic_object_path));
    Method.annotations = [];
  }
  let m_Sleep = {
    Method.interface = interface;
    Method.member = "Sleep";
    Method.i_args = (arg1
                       (Some "sleep", basic_boolean));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let s_DeviceAdded = {
    Signal.interface = interface;
    Signal.member = "DeviceAdded";
    Signal.args = (arg1
                       (Some "state", basic_object_path));
    Signal.annotations = [];
  }
  let s_DeviceRemoved = {
    Signal.interface = interface;
    Signal.member = "DeviceRemoved";
    Signal.args = (arg1
                       (Some "state", basic_object_path));
    Signal.annotations = [];
  }
  let s_PropertiesChanged = {
    Signal.interface = interface;
    Signal.member = "PropertiesChanged";
    Signal.args = (arg1
                       (Some "properties", dict string variant));
    Signal.annotations = [];
  }
  let s_StateChanged = {
    Signal.interface = interface;
    Signal.member = "StateChanged";
    Signal.args = (arg1
                       (Some "state", basic_uint32));
    Signal.annotations = [];
  }
  let p_ActiveConnections = {
    Property.interface = interface;
    Property.member = "ActiveConnections";
    Property.typ = array basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_State = {
    Property.interface = interface;
    Property.member = "State";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_WirelessEnabled = {
    Property.interface = interface;
    Property.member = "WirelessEnabled";
    Property.typ = basic_boolean;
    Property.access = Property.readable_writable;
    Property.annotations = [];
  }
  let p_WirelessHardwareEnabled = {
    Property.interface = interface;
    Property.member = "WirelessHardwareEnabled";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_WwanEnabled = {
    Property.interface = interface;
    Property.member = "WwanEnabled";
    Property.typ = basic_boolean;
    Property.access = Property.readable_writable;
    Property.annotations = [];
  }
  let p_WwanHardwareEnabled = {
    Property.interface = interface;
    Property.member = "WwanHardwareEnabled";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    m_ActivateConnection : 'a OBus_object.t -> string * OBus_path.t * OBus_path.t * OBus_path.t -> OBus_path.t Lwt.t;
    m_DeactivateConnection : 'a OBus_object.t -> OBus_path.t -> unit Lwt.t;
    m_GetDevices : 'a OBus_object.t -> unit -> OBus_path.t list Lwt.t;
    m_Sleep : 'a OBus_object.t -> bool -> unit Lwt.t;
    p_ActiveConnections : 'a OBus_object.t -> OBus_path.t list React.signal;
    p_State : 'a OBus_object.t -> int32 React.signal;
    p_WirelessEnabled : ('a OBus_object.t -> bool React.signal) * ('a OBus_object.t -> bool -> unit Lwt.t);
    p_WirelessHardwareEnabled : 'a OBus_object.t -> bool React.signal;
    p_WwanEnabled : ('a OBus_object.t -> bool React.signal) * ('a OBus_object.t -> bool -> unit Lwt.t);
    p_WwanHardwareEnabled : 'a OBus_object.t -> bool React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_ActivateConnection members.m_ActivateConnection;
        method_info m_DeactivateConnection members.m_DeactivateConnection;
        method_info m_GetDevices members.m_GetDevices;
        method_info m_Sleep members.m_Sleep;
      |]
      [|
        signal_info s_DeviceAdded;
        signal_info s_DeviceRemoved;
        signal_info s_PropertiesChanged;
        signal_info s_StateChanged;
      |]
      [|
        property_r_info p_ActiveConnections members.p_ActiveConnections;
        property_r_info p_State members.p_State;
        property_rw_info p_WirelessEnabled (fst members.p_WirelessEnabled) (snd members.p_WirelessEnabled);
        property_r_info p_WirelessHardwareEnabled members.p_WirelessHardwareEnabled;
        property_rw_info p_WwanEnabled (fst members.p_WwanEnabled) (snd members.p_WwanEnabled);
        property_r_info p_WwanHardwareEnabled members.p_WwanHardwareEnabled;
      |]
end
module Org_freedesktop_NetworkManager_AccessPoint =
struct
  let interface = "org.freedesktop.NetworkManager.AccessPoint"
  let s_PropertiesChanged = {
    Signal.interface = interface;
    Signal.member = "PropertiesChanged";
    Signal.args = (arg1
                       (Some "properties", dict string variant));
    Signal.annotations = [];
  }
  let p_Flags = {
    Property.interface = interface;
    Property.member = "Flags";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Frequency = {
    Property.interface = interface;
    Property.member = "Frequency";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_HwAddress = {
    Property.interface = interface;
    Property.member = "HwAddress";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_MaxBitrate = {
    Property.interface = interface;
    Property.member = "MaxBitrate";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Mode = {
    Property.interface = interface;
    Property.member = "Mode";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_RsnFlags = {
    Property.interface = interface;
    Property.member = "RsnFlags";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Ssid = {
    Property.interface = interface;
    Property.member = "Ssid";
    Property.typ = byte_array;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Strength = {
    Property.interface = interface;
    Property.member = "Strength";
    Property.typ = basic_byte;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_WpaFlags = {
    Property.interface = interface;
    Property.member = "WpaFlags";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    p_Flags : 'a OBus_object.t -> int32 React.signal;
    p_Frequency : 'a OBus_object.t -> int32 React.signal;
    p_HwAddress : 'a OBus_object.t -> string React.signal;
    p_MaxBitrate : 'a OBus_object.t -> int32 React.signal;
    p_Mode : 'a OBus_object.t -> int32 React.signal;
    p_RsnFlags : 'a OBus_object.t -> int32 React.signal;
    p_Ssid : 'a OBus_object.t -> string React.signal;
    p_Strength : 'a OBus_object.t -> char React.signal;
    p_WpaFlags : 'a OBus_object.t -> int32 React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_PropertiesChanged;
      |]
      [|
        property_r_info p_Flags members.p_Flags;
        property_r_info p_Frequency members.p_Frequency;
        property_r_info p_HwAddress members.p_HwAddress;
        property_r_info p_MaxBitrate members.p_MaxBitrate;
        property_r_info p_Mode members.p_Mode;
        property_r_info p_RsnFlags members.p_RsnFlags;
        property_r_info p_Ssid members.p_Ssid;
        property_r_info p_Strength members.p_Strength;
        property_r_info p_WpaFlags members.p_WpaFlags;
      |]
end
module Org_freedesktop_NetworkManager_Connection_Active =
struct
  let interface = "org.freedesktop.NetworkManager.Connection.Active"
  let s_PropertiesChanged = {
    Signal.interface = interface;
    Signal.member = "PropertiesChanged";
    Signal.args = (arg1
                       (Some "properties", dict string variant));
    Signal.annotations = [];
  }
  let p_Connection = {
    Property.interface = interface;
    Property.member = "Connection";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Default = {
    Property.interface = interface;
    Property.member = "Default";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Devices = {
    Property.interface = interface;
    Property.member = "Devices";
    Property.typ = array basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_ServiceName = {
    Property.interface = interface;
    Property.member = "ServiceName";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_SpecificObject = {
    Property.interface = interface;
    Property.member = "SpecificObject";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_State = {
    Property.interface = interface;
    Property.member = "State";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Vpn = {
    Property.interface = interface;
    Property.member = "Vpn";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    p_Connection : 'a OBus_object.t -> OBus_path.t React.signal;
    p_Default : 'a OBus_object.t -> bool React.signal;
    p_Devices : 'a OBus_object.t -> OBus_path.t list React.signal;
    p_ServiceName : 'a OBus_object.t -> string React.signal;
    p_SpecificObject : 'a OBus_object.t -> OBus_path.t React.signal;
    p_State : 'a OBus_object.t -> int32 React.signal;
    p_Vpn : 'a OBus_object.t -> bool React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_PropertiesChanged;
      |]
      [|
        property_r_info p_Connection members.p_Connection;
        property_r_info p_Default members.p_Default;
        property_r_info p_Devices members.p_Devices;
        property_r_info p_ServiceName members.p_ServiceName;
        property_r_info p_SpecificObject members.p_SpecificObject;
        property_r_info p_State members.p_State;
        property_r_info p_Vpn members.p_Vpn;
      |]
end
module Org_freedesktop_NetworkManager_DHCP4Config =
struct
  let interface = "org.freedesktop.NetworkManager.DHCP4Config"
  let s_PropertiesChanged = {
    Signal.interface = interface;
    Signal.member = "PropertiesChanged";
    Signal.args = (arg1
                       (Some "properties", dict string variant));
    Signal.annotations = [];
  }
  let p_Options = {
    Property.interface = interface;
    Property.member = "Options";
    Property.typ = dict string variant;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    p_Options : 'a OBus_object.t -> (string * OBus_value.V.single) list React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_PropertiesChanged;
      |]
      [|
        property_r_info p_Options members.p_Options;
      |]
end
module Org_freedesktop_NetworkManager_Device =
struct
  let interface = "org.freedesktop.NetworkManager.Device"
  let m_Disconnect = {
    Method.interface = interface;
    Method.member = "Disconnect";
    Method.i_args = (arg0);
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let s_StateChanged = {
    Signal.interface = interface;
    Signal.member = "StateChanged";
    Signal.args = (arg3
                       (Some "new_state", basic_uint32)
                       (Some "old_state", basic_uint32)
                       (Some "reason", basic_uint32));
    Signal.annotations = [];
  }
  let p_Capabilities = {
    Property.interface = interface;
    Property.member = "Capabilities";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_DeviceType = {
    Property.interface = interface;
    Property.member = "DeviceType";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Dhcp4Config = {
    Property.interface = interface;
    Property.member = "Dhcp4Config";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Driver = {
    Property.interface = interface;
    Property.member = "Driver";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Interface = {
    Property.interface = interface;
    Property.member = "Interface";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Ip4Address = {
    Property.interface = interface;
    Property.member = "Ip4Address";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Ip4Config = {
    Property.interface = interface;
    Property.member = "Ip4Config";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Ip6Config = {
    Property.interface = interface;
    Property.member = "Ip6Config";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Managed = {
    Property.interface = interface;
    Property.member = "Managed";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_State = {
    Property.interface = interface;
    Property.member = "State";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Udi = {
    Property.interface = interface;
    Property.member = "Udi";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    m_Disconnect : 'a OBus_object.t -> unit -> unit Lwt.t;
    p_Capabilities : 'a OBus_object.t -> int32 React.signal;
    p_DeviceType : 'a OBus_object.t -> int32 React.signal;
    p_Dhcp4Config : 'a OBus_object.t -> OBus_path.t React.signal;
    p_Driver : 'a OBus_object.t -> string React.signal;
    p_Interface : 'a OBus_object.t -> string React.signal;
    p_Ip4Address : 'a OBus_object.t -> int32 React.signal;
    p_Ip4Config : 'a OBus_object.t -> OBus_path.t React.signal;
    p_Ip6Config : 'a OBus_object.t -> OBus_path.t React.signal;
    p_Managed : 'a OBus_object.t -> bool React.signal;
    p_State : 'a OBus_object.t -> int32 React.signal;
    p_Udi : 'a OBus_object.t -> string React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_Disconnect members.m_Disconnect;
      |]
      [|
        signal_info s_StateChanged;
      |]
      [|
        property_r_info p_Capabilities members.p_Capabilities;
        property_r_info p_DeviceType members.p_DeviceType;
        property_r_info p_Dhcp4Config members.p_Dhcp4Config;
        property_r_info p_Driver members.p_Driver;
        property_r_info p_Interface members.p_Interface;
        property_r_info p_Ip4Address members.p_Ip4Address;
        property_r_info p_Ip4Config members.p_Ip4Config;
        property_r_info p_Ip6Config members.p_Ip6Config;
        property_r_info p_Managed members.p_Managed;
        property_r_info p_State members.p_State;
        property_r_info p_Udi members.p_Udi;
      |]
end
module Org_freedesktop_NetworkManager_Device_Bluetooth =
struct
  let interface = "org.freedesktop.NetworkManager.Device.Bluetooth"
  let s_PropertiesChanged = {
    Signal.interface = interface;
    Signal.member = "PropertiesChanged";
    Signal.args = (arg1
                       (Some "properties", dict string variant));
    Signal.annotations = [];
  }
  let p_BtCapabilities = {
    Property.interface = interface;
    Property.member = "BtCapabilities";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_HwAddress = {
    Property.interface = interface;
    Property.member = "HwAddress";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Name = {
    Property.interface = interface;
    Property.member = "Name";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    p_BtCapabilities : 'a OBus_object.t -> int32 React.signal;
    p_HwAddress : 'a OBus_object.t -> string React.signal;
    p_Name : 'a OBus_object.t -> string React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_PropertiesChanged;
      |]
      [|
        property_r_info p_BtCapabilities members.p_BtCapabilities;
        property_r_info p_HwAddress members.p_HwAddress;
        property_r_info p_Name members.p_Name;
      |]
end
module Org_freedesktop_NetworkManager_Device_Cdma =
struct
  let interface = "org.freedesktop.NetworkManager.Device.Cdma"
  let s_PropertiesChanged = {
    Signal.interface = interface;
    Signal.member = "PropertiesChanged";
    Signal.args = (arg1
                       (Some "properties", dict string variant));
    Signal.annotations = [];
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_PropertiesChanged;
      |]
      [|
      |]
end
module Org_freedesktop_NetworkManager_Device_Gsm =
struct
  let interface = "org.freedesktop.NetworkManager.Device.Gsm"
  let s_PropertiesChanged = {
    Signal.interface = interface;
    Signal.member = "PropertiesChanged";
    Signal.args = (arg1
                       (Some "properties", dict string variant));
    Signal.annotations = [];
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_PropertiesChanged;
      |]
      [|
      |]
end
module Org_freedesktop_NetworkManager_Device_OlpcMesh =
struct
  let interface = "org.freedesktop.NetworkManager.Device.OlpcMesh"
  let s_PropertiesChanged = {
    Signal.interface = interface;
    Signal.member = "PropertiesChanged";
    Signal.args = (arg1
                       (Some "properties", dict string variant));
    Signal.annotations = [];
  }
  let p_ActiveChannel = {
    Property.interface = interface;
    Property.member = "ActiveChannel";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Companion = {
    Property.interface = interface;
    Property.member = "Companion";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_HwAddress = {
    Property.interface = interface;
    Property.member = "HwAddress";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    p_ActiveChannel : 'a OBus_object.t -> int32 React.signal;
    p_Companion : 'a OBus_object.t -> OBus_path.t React.signal;
    p_HwAddress : 'a OBus_object.t -> string React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_PropertiesChanged;
      |]
      [|
        property_r_info p_ActiveChannel members.p_ActiveChannel;
        property_r_info p_Companion members.p_Companion;
        property_r_info p_HwAddress members.p_HwAddress;
      |]
end
module Org_freedesktop_NetworkManager_Device_Serial =
struct
  let interface = "org.freedesktop.NetworkManager.Device.Serial"
  let s_PppStats = {
    Signal.interface = interface;
    Signal.member = "PppStats";
    Signal.args = (arg2
                       (Some "in_bytes", basic_uint32)
                       (Some "out_bytes", basic_uint32));
    Signal.annotations = [];
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_PppStats;
      |]
      [|
      |]
end
module Org_freedesktop_NetworkManager_Device_Wired =
struct
  let interface = "org.freedesktop.NetworkManager.Device.Wired"
  let s_PropertiesChanged = {
    Signal.interface = interface;
    Signal.member = "PropertiesChanged";
    Signal.args = (arg1
                       (Some "properties", dict string variant));
    Signal.annotations = [];
  }
  let p_Carrier = {
    Property.interface = interface;
    Property.member = "Carrier";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_HwAddress = {
    Property.interface = interface;
    Property.member = "HwAddress";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Speed = {
    Property.interface = interface;
    Property.member = "Speed";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    p_Carrier : 'a OBus_object.t -> bool React.signal;
    p_HwAddress : 'a OBus_object.t -> string React.signal;
    p_Speed : 'a OBus_object.t -> int32 React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_PropertiesChanged;
      |]
      [|
        property_r_info p_Carrier members.p_Carrier;
        property_r_info p_HwAddress members.p_HwAddress;
        property_r_info p_Speed members.p_Speed;
      |]
end
module Org_freedesktop_NetworkManager_Device_Wireless =
struct
  let interface = "org.freedesktop.NetworkManager.Device.Wireless"
  let m_GetAccessPoints = {
    Method.interface = interface;
    Method.member = "GetAccessPoints";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "access_points", array basic_object_path));
    Method.annotations = [];
  }
  let s_AccessPointAdded = {
    Signal.interface = interface;
    Signal.member = "AccessPointAdded";
    Signal.args = (arg1
                       (Some "access_point", basic_object_path));
    Signal.annotations = [];
  }
  let s_AccessPointRemoved = {
    Signal.interface = interface;
    Signal.member = "AccessPointRemoved";
    Signal.args = (arg1
                       (Some "access_point", basic_object_path));
    Signal.annotations = [];
  }
  let s_PropertiesChanged = {
    Signal.interface = interface;
    Signal.member = "PropertiesChanged";
    Signal.args = (arg1
                       (Some "properties", dict string variant));
    Signal.annotations = [];
  }
  let p_ActiveAccessPoint = {
    Property.interface = interface;
    Property.member = "ActiveAccessPoint";
    Property.typ = basic_object_path;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Bitrate = {
    Property.interface = interface;
    Property.member = "Bitrate";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_HwAddress = {
    Property.interface = interface;
    Property.member = "HwAddress";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Mode = {
    Property.interface = interface;
    Property.member = "Mode";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_WirelessCapabilities = {
    Property.interface = interface;
    Property.member = "WirelessCapabilities";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    m_GetAccessPoints : 'a OBus_object.t -> unit -> OBus_path.t list Lwt.t;
    p_ActiveAccessPoint : 'a OBus_object.t -> OBus_path.t React.signal;
    p_Bitrate : 'a OBus_object.t -> int32 React.signal;
    p_HwAddress : 'a OBus_object.t -> string React.signal;
    p_Mode : 'a OBus_object.t -> int32 React.signal;
    p_WirelessCapabilities : 'a OBus_object.t -> int32 React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_GetAccessPoints members.m_GetAccessPoints;
      |]
      [|
        signal_info s_AccessPointAdded;
        signal_info s_AccessPointRemoved;
        signal_info s_PropertiesChanged;
      |]
      [|
        property_r_info p_ActiveAccessPoint members.p_ActiveAccessPoint;
        property_r_info p_Bitrate members.p_Bitrate;
        property_r_info p_HwAddress members.p_HwAddress;
        property_r_info p_Mode members.p_Mode;
        property_r_info p_WirelessCapabilities members.p_WirelessCapabilities;
      |]
end
module Org_freedesktop_NetworkManager_IP4Config =
struct
  let interface = "org.freedesktop.NetworkManager.IP4Config"
  let p_Addresses = {
    Property.interface = interface;
    Property.member = "Addresses";
    Property.typ = array (array basic_uint32);
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Domains = {
    Property.interface = interface;
    Property.member = "Domains";
    Property.typ = array basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Nameservers = {
    Property.interface = interface;
    Property.member = "Nameservers";
    Property.typ = array basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Routes = {
    Property.interface = interface;
    Property.member = "Routes";
    Property.typ = array (array basic_uint32);
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_WinsServers = {
    Property.interface = interface;
    Property.member = "WinsServers";
    Property.typ = array basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    p_Addresses : 'a OBus_object.t -> int32 list list React.signal;
    p_Domains : 'a OBus_object.t -> string list React.signal;
    p_Nameservers : 'a OBus_object.t -> int32 list React.signal;
    p_Routes : 'a OBus_object.t -> int32 list list React.signal;
    p_WinsServers : 'a OBus_object.t -> int32 list React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
      |]
      [|
        property_r_info p_Addresses members.p_Addresses;
        property_r_info p_Domains members.p_Domains;
        property_r_info p_Nameservers members.p_Nameservers;
        property_r_info p_Routes members.p_Routes;
        property_r_info p_WinsServers members.p_WinsServers;
      |]
end
module Org_freedesktop_NetworkManager_IP6Config =
struct
  let interface = "org.freedesktop.NetworkManager.IP6Config"
  let p_Addresses = {
    Property.interface = interface;
    Property.member = "Addresses";
    Property.typ = array (structure (seq2 byte_array basic_uint32));
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Domains = {
    Property.interface = interface;
    Property.member = "Domains";
    Property.typ = array basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Nameservers = {
    Property.interface = interface;
    Property.member = "Nameservers";
    Property.typ = array byte_array;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Routes = {
    Property.interface = interface;
    Property.member = "Routes";
    Property.typ = array (structure (seq4 byte_array basic_uint32 byte_array basic_uint32));
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    p_Addresses : 'a OBus_object.t -> (string * int32) list React.signal;
    p_Domains : 'a OBus_object.t -> string list React.signal;
    p_Nameservers : 'a OBus_object.t -> string list React.signal;
    p_Routes : 'a OBus_object.t -> (string * int32 * string * int32) list React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
      |]
      [|
        property_r_info p_Addresses members.p_Addresses;
        property_r_info p_Domains members.p_Domains;
        property_r_info p_Nameservers members.p_Nameservers;
        property_r_info p_Routes members.p_Routes;
      |]
end
module Org_freedesktop_NetworkManager_PPP =
struct
  let interface = "org.freedesktop.NetworkManager.PPP"
  let m_NeedSecrets = {
    Method.interface = interface;
    Method.member = "NeedSecrets";
    Method.i_args = (arg0);
    Method.o_args = (arg2
                       (Some "username", basic_string)
                       (Some "password", basic_string));
    Method.annotations = [];
  }
  let m_SetIp4Config = {
    Method.interface = interface;
    Method.member = "SetIp4Config";
    Method.i_args = (arg1
                       (Some "config", dict string variant));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_SetState = {
    Method.interface = interface;
    Method.member = "SetState";
    Method.i_args = (arg1
                       (Some "state", basic_uint32));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  type 'a members = {
    m_NeedSecrets : 'a OBus_object.t -> unit -> (string * string) Lwt.t;
    m_SetIp4Config : 'a OBus_object.t -> (string * OBus_value.V.single) list -> unit Lwt.t;
    m_SetState : 'a OBus_object.t -> int32 -> unit Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_NeedSecrets members.m_NeedSecrets;
        method_info m_SetIp4Config members.m_SetIp4Config;
        method_info m_SetState members.m_SetState;
      |]
      [|
      |]
      [|
      |]
end
module Org_freedesktop_NetworkManager_VPN_Connection =
struct
  let interface = "org.freedesktop.NetworkManager.VPN.Connection"
  let s_PropertiesChanged = {
    Signal.interface = interface;
    Signal.member = "PropertiesChanged";
    Signal.args = (arg1
                       (Some "properties", dict string variant));
    Signal.annotations = [];
  }
  let s_VpnStateChanged = {
    Signal.interface = interface;
    Signal.member = "VpnStateChanged";
    Signal.args = (arg2
                       (Some "state", basic_uint32)
                       (Some "reason", basic_uint32));
    Signal.annotations = [];
  }
  let p_Banner = {
    Property.interface = interface;
    Property.member = "Banner";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_VpnState = {
    Property.interface = interface;
    Property.member = "VpnState";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    p_Banner : 'a OBus_object.t -> string React.signal;
    p_VpnState : 'a OBus_object.t -> int32 React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
      |]
      [|
        signal_info s_PropertiesChanged;
        signal_info s_VpnStateChanged;
      |]
      [|
        property_r_info p_Banner members.p_Banner;
        property_r_info p_VpnState members.p_VpnState;
      |]
end
module Org_freedesktop_NetworkManager_VPN_Plugin =
struct
  let interface = "org.freedesktop.NetworkManager.VPN.Plugin"
  let m_Connect = {
    Method.interface = interface;
    Method.member = "Connect";
    Method.i_args = (arg1
                       (Some "connection", dict string (dict string variant)));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_Disconnect = {
    Method.interface = interface;
    Method.member = "Disconnect";
    Method.i_args = (arg0);
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_NeedSecrets = {
    Method.interface = interface;
    Method.member = "NeedSecrets";
    Method.i_args = (arg1
                       (Some "settings", dict string (dict string variant)));
    Method.o_args = (arg1
                       (Some "setting_name", basic_string));
    Method.annotations = [];
  }
  let m_SetFailure = {
    Method.interface = interface;
    Method.member = "SetFailure";
    Method.i_args = (arg1
                       (Some "reason", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_SetIp4Config = {
    Method.interface = interface;
    Method.member = "SetIp4Config";
    Method.i_args = (arg1
                       (Some "config", dict string variant));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let s_Failure = {
    Signal.interface = interface;
    Signal.member = "Failure";
    Signal.args = (arg1
                       (Some "reason", basic_uint32));
    Signal.annotations = [];
  }
  let s_Ip4Config = {
    Signal.interface = interface;
    Signal.member = "Ip4Config";
    Signal.args = (arg1
                       (Some "ip4config", dict string variant));
    Signal.annotations = [];
  }
  let s_LoginBanner = {
    Signal.interface = interface;
    Signal.member = "LoginBanner";
    Signal.args = (arg1
                       (Some "banner", basic_string));
    Signal.annotations = [];
  }
  let s_StateChanged = {
    Signal.interface = interface;
    Signal.member = "StateChanged";
    Signal.args = (arg1
                       (Some "state", basic_uint32));
    Signal.annotations = [];
  }
  let p_State = {
    Property.interface = interface;
    Property.member = "State";
    Property.typ = basic_uint32;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    m_Connect : 'a OBus_object.t -> (string * (string * OBus_value.V.single) list) list -> unit Lwt.t;
    m_Disconnect : 'a OBus_object.t -> unit -> unit Lwt.t;
    m_NeedSecrets : 'a OBus_object.t -> (string * (string * OBus_value.V.single) list) list -> string Lwt.t;
    m_SetFailure : 'a OBus_object.t -> string -> unit Lwt.t;
    m_SetIp4Config : 'a OBus_object.t -> (string * OBus_value.V.single) list -> unit Lwt.t;
    p_State : 'a OBus_object.t -> int32 React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_Connect members.m_Connect;
        method_info m_Disconnect members.m_Disconnect;
        method_info m_NeedSecrets members.m_NeedSecrets;
        method_info m_SetFailure members.m_SetFailure;
        method_info m_SetIp4Config members.m_SetIp4Config;
      |]
      [|
        signal_info s_Failure;
        signal_info s_Ip4Config;
        signal_info s_LoginBanner;
        signal_info s_StateChanged;
      |]
      [|
        property_r_info p_State members.p_State;
      |]
end
module Org_freedesktop_NetworkManagerSettings =
struct
  let interface = "org.freedesktop.NetworkManagerSettings"
  let m_AddConnection = {
    Method.interface = interface;
    Method.member = "AddConnection";
    Method.i_args = (arg1
                       (Some "connection", dict string (dict string variant)));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_ListConnections = {
    Method.interface = interface;
    Method.member = "ListConnections";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "connections", array basic_object_path));
    Method.annotations = [];
  }
  let s_NewConnection = {
    Signal.interface = interface;
    Signal.member = "NewConnection";
    Signal.args = (arg1
                       (Some "connection", basic_object_path));
    Signal.annotations = [];
  }
  type 'a members = {
    m_AddConnection : 'a OBus_object.t -> (string * (string * OBus_value.V.single) list) list -> unit Lwt.t;
    m_ListConnections : 'a OBus_object.t -> unit -> OBus_path.t list Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_AddConnection members.m_AddConnection;
        method_info m_ListConnections members.m_ListConnections;
      |]
      [|
        signal_info s_NewConnection;
      |]
      [|
      |]
end
module Org_freedesktop_NetworkManagerSettings_Connection =
struct
  let interface = "org.freedesktop.NetworkManagerSettings.Connection"
  let m_Delete = {
    Method.interface = interface;
    Method.member = "Delete";
    Method.i_args = (arg0);
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let m_GetSettings = {
    Method.interface = interface;
    Method.member = "GetSettings";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "settings", dict string (dict string variant)));
    Method.annotations = [];
  }
  let m_Update = {
    Method.interface = interface;
    Method.member = "Update";
    Method.i_args = (arg1
                       (Some "properties", dict string (dict string variant)));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let s_Removed = {
    Signal.interface = interface;
    Signal.member = "Removed";
    Signal.args = (arg0);
    Signal.annotations = [];
  }
  let s_Updated = {
    Signal.interface = interface;
    Signal.member = "Updated";
    Signal.args = (arg1
                       (Some "settings", dict string (dict string variant)));
    Signal.annotations = [];
  }
  type 'a members = {
    m_Delete : 'a OBus_object.t -> unit -> unit Lwt.t;
    m_GetSettings : 'a OBus_object.t -> unit -> (string * (string * OBus_value.V.single) list) list Lwt.t;
    m_Update : 'a OBus_object.t -> (string * (string * OBus_value.V.single) list) list -> unit Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_Delete members.m_Delete;
        method_info m_GetSettings members.m_GetSettings;
        method_info m_Update members.m_Update;
      |]
      [|
        signal_info s_Removed;
        signal_info s_Updated;
      |]
      [|
      |]
end
module Org_freedesktop_NetworkManagerSettings_Connection_Secrets =
struct
  let interface = "org.freedesktop.NetworkManagerSettings.Connection.Secrets"
  let m_GetSecrets = {
    Method.interface = interface;
    Method.member = "GetSecrets";
    Method.i_args = (arg3
                       (Some "setting_name", basic_string)
                       (Some "hints", array basic_string)
                       (Some "request_new", basic_boolean));
    Method.o_args = (arg1
                       (Some "secrets", dict string (dict string variant)));
    Method.annotations = [];
  }
  type 'a members = {
    m_GetSecrets : 'a OBus_object.t -> string * string list * bool -> (string * (string * OBus_value.V.single) list) list Lwt.t;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_GetSecrets members.m_GetSecrets;
      |]
      [|
      |]
      [|
      |]
end
module Org_freedesktop_NetworkManagerSettings_System =
struct
  let interface = "org.freedesktop.NetworkManagerSettings.System"
  let m_GetPermissions = {
    Method.interface = interface;
    Method.member = "GetPermissions";
    Method.i_args = (arg0);
    Method.o_args = (arg1
                       (Some "permissions", basic_uint32));
    Method.annotations = [];
  }
  let m_SaveHostname = {
    Method.interface = interface;
    Method.member = "SaveHostname";
    Method.i_args = (arg1
                       (Some "hostname", basic_string));
    Method.o_args = (arg0);
    Method.annotations = [];
  }
  let s_CheckPermissions = {
    Signal.interface = interface;
    Signal.member = "CheckPermissions";
    Signal.args = (arg0);
    Signal.annotations = [];
  }
  let s_PropertiesChanged = {
    Signal.interface = interface;
    Signal.member = "PropertiesChanged";
    Signal.args = (arg1
                       (Some "properties", dict string variant));
    Signal.annotations = [];
  }
  let p_CanModify = {
    Property.interface = interface;
    Property.member = "CanModify";
    Property.typ = basic_boolean;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  let p_Hostname = {
    Property.interface = interface;
    Property.member = "Hostname";
    Property.typ = basic_string;
    Property.access = Property.readable;
    Property.annotations = [];
  }
  type 'a members = {
    m_GetPermissions : 'a OBus_object.t -> unit -> int32 Lwt.t;
    m_SaveHostname : 'a OBus_object.t -> string -> unit Lwt.t;
    p_CanModify : 'a OBus_object.t -> bool React.signal;
    p_Hostname : 'a OBus_object.t -> string React.signal;
  }
  let make members =
    OBus_object.make_interface_unsafe interface
      [
      ]
      [|
        method_info m_GetPermissions members.m_GetPermissions;
        method_info m_SaveHostname members.m_SaveHostname;
      |]
      [|
        signal_info s_CheckPermissions;
        signal_info s_PropertiesChanged;
      |]
      [|
        property_r_info p_CanModify members.p_CanModify;
        property_r_info p_Hostname members.p_Hostname;
      |]
end