sig
  val new_message_request_name :
    string -> DBus.Bus.grab_flag list -> DBus.message
  val new_message_release_name : string -> DBus.message
end