obus 1.1.7 · OCaml Package

type 'a t

type 'a interface

type 'a method_info

type 'a signal_info

type 'a property_info

val attach : 'a t -> 'a -> unit

val get : 'a t -> 'a

val make : 
  ?owner:OBus_peer.t ->
  ?common:bool ->
  ?interfaces:'a interface list ->
  OBus_path.t ->
  'a t

val path : 'a t -> OBus_path.t

val owner : 'a t -> OBus_peer.t option

val exports : 'a t -> Set.Make(OBus_connection).t React.signal

val introspect : 'a t -> OBus_introspect.interface list

val on_properties_changed : 
  'a t ->
  (OBus_name.interface ->
    (OBus_name.member * OBus_value.V.single option) list ->
    unit Lwt.t)
    Pervasives.ref

val export : OBus_connection.t -> 'a t -> unit

val remove : OBus_connection.t -> 'a t -> unit

val remove_by_path : OBus_connection.t -> OBus_path.t -> unit

val destroy : 'a t -> unit

val dynamic : 
  connection:OBus_connection.t ->
  prefix:OBus_path.t ->
  handler:(OBus_context.t -> OBus_path.t -> 'a t Lwt.t) ->
  unit

val make_interface : 
  name:OBus_name.interface ->
  ?annotations:OBus_introspect.annotation list ->
  ?methods:'a method_info list ->
  ?signals:'a signal_info list ->
  ?properties:'a property_info list ->
  unit ->
  'a interface

val make_interface_unsafe : 
  OBus_name.interface ->
  OBus_introspect.annotation list ->
  'a method_info array ->
  'a signal_info array ->
  'a property_info array ->
  'a interface

val add_interfaces : 'a t -> 'a interface list -> unit

val remove_interfaces : 'a t -> 'a interface list -> unit

val remove_interfaces_by_names : 'a t -> OBus_name.interface list -> unit

val introspectable : unit -> 'a interface

val properties : unit -> 'a interface

val method_info : 
  ('a, 'b) OBus_member.Method.t ->
  ('c t -> 'a -> 'b Lwt.t) ->
  'c method_info

val signal_info : 'a OBus_member.Signal.t -> 'b signal_info

val property_r_info : 
  ('a, [ `readable ]) OBus_member.Property.t ->
  ('b t -> 'a React.signal) ->
  'b property_info

val property_w_info : 
  ('a, [ `writable ]) OBus_member.Property.t ->
  ('b t -> 'a -> unit Lwt.t) ->
  'b property_info

val property_rw_info : 
  ('a, [ `readable | `writable ]) OBus_member.Property.t ->
  ('b t -> 'a React.signal) ->
  ('b t -> 'a -> unit Lwt.t) ->
  'b property_info

val emit : 
  'a t ->
  interface:OBus_name.interface ->
  member:OBus_name.member ->
  ?peer:OBus_peer.t ->
  'b OBus_value.C.sequence ->
  'b ->
  unit Lwt.t

package obus