sig
  type t
  class type source =
    object
      method get_request : unit -> string
      method send_reply : string -> unit
    end
  exception Error of string * int
  val make : XmlRPCServer.source -> XmlRPCServer.t
  val register_callback :
    XmlRPCServer.t ->
    string -> (XmlRPCTypes.t array -> XmlRPCTypes.t) -> unit
  val remove_callback : XmlRPCServer.t -> string -> unit
  val is_handled : XmlRPCServer.t -> string -> bool
  val list_functions : XmlRPCServer.t -> string list
  val server : string
  val run : XmlRPCServer.t -> unit
end