`sig
type message_type = Invalid | Method_call | Method_return | Error | Signal
type message_header = {
serial : int32;
ty : DBus.Message.message_type;
destination : DBus.service option;
path : DBus.path option;
interface : DBus.interface option;
member : string option;
error_name : DBus.error_name option;
sender : string option;
}
val string_of_message_ty : DBus.Message.message_type -> string
val create : DBus.Message.message_type -> DBus.message
val new_method_call :
DBus.service -> DBus.path -> DBus.interface -> string -> DBus.message
val new_method_return : DBus.message -> DBus.message
val new_signal : DBus.path -> DBus.interface -> string -> DBus.message
val new_error : DBus.message -> DBus.error_name -> string -> DBus.message
val get_header : DBus.message -> DBus.Message.message_header
val append : DBus.message -> DBus.ty list -> unit
val get : DBus.message -> DBus.ty list
val marshal : DBus.message -> string
val set_path : DBus.message -> DBus.path -> unit
val set_interface : DBus.message -> DBus.interface -> unit
val set_member : DBus.message -> string -> unit
val set_error_name : DBus.message -> DBus.error_name -> unit
val set_destination : DBus.message -> DBus.service -> unit
val set_sender : DBus.message -> string -> unit
val set_reply_serial : DBus.message -> int32 -> unit
val set_auto_start : DBus.message -> bool -> unit
val has_path : DBus.message -> DBus.path -> bool
val has_interface : DBus.message -> DBus.interface -> bool
val has_member : DBus.message -> string -> bool
val has_destination : DBus.message -> DBus.service -> bool
val has_sender : DBus.message -> string -> bool
val has_signature : DBus.message -> string -> bool
val get_type : DBus.message -> DBus.Message.message_type
val get_path : DBus.message -> DBus.path option
val get_interface : DBus.message -> DBus.interface option
val get_member : DBus.message -> string option
val get_error_name : DBus.message -> DBus.error_name option
val get_destination : DBus.message -> DBus.service option
val get_sender : DBus.message -> string option
val get_signature : DBus.message -> string option
val get_serial : DBus.message -> int32
val get_reply_serial : DBus.message -> int32
val get_auto_start : DBus.message -> bool
val is_signal : DBus.message -> DBus.interface -> string -> bool
val is_method_call : DBus.message -> DBus.interface -> string -> bool
val is_error : DBus.message -> string -> bool
end`