sig
  val dxq_default_port : int Pervasives.ref
  val gui_udp_buffer_length : int
  val query_udp_buffer_length : int
  val zerod_default_port : int Pervasives.ref
  val pretty_print_html : string -> string
  val get_inet_socket_address : string -> int -> Unix.sockaddr
  val parse_host_port_string : string -> string * int option * string
  val set_server_output : Buffer.t -> unit
  val log_debug : string -> Buffer.t -> unit
  module Gui :
    sig
      type nodeName = string
      type guiEvent =
          GuiMessage of Galax_server_util.Gui.nodeName *
            Galax_server_util.Gui.nodeName * string * string * string
        | GuiNode of Galax_server_util.Gui.nodeName * string * string
        | GuiNewNode of Galax_server_util.Gui.nodeName * string
        | GuiNone
      val gui_init : bool -> string -> int -> unit
      val guievent_of_string : string -> Galax_server_util.Gui.guiEvent
      val string_of_guievent : Galax_server_util.Gui.guiEvent -> string
      val gui_report :
        Unix.file_descr -> bool -> Galax_server_util.Gui.guiEvent -> unit
    end
  type server_location = Galax_server_util.Gui.nodeName * string * int
  type xquery_kind = XQueryString | XQueryPlan | XQueryPlanAsync
  type evaluate_remote_query_sig =
      bool * Galax_server_util.server_location *
      Galax_server_util.xquery_kind * string * string -> string option
  type evaluate_closure_sig =
      string ->
      string ->
      Xquery_physical_type_ast.physical_type * Physical_value.physical_value
  type async_eval_sig = bool -> (exn -> unit) -> (unit -> unit) -> unit
  type async_eval_ext_sig = (unit -> unit) -> unit
  type interpret_hostport_sig = string -> Galax_server_util.server_location
  module Sim :
    sig
      type portmap = (string, int * string * string) Hashtbl.t
      val full_hostname : unit -> string
      val short_hostname : string -> string
      val populate_portmap :
        Galax_server_util.Sim.portmap -> string -> int option -> unit
      val lookup_host_port_in_portmap :
        Galax_server_util.Sim.portmap ->
        string -> Galax_server_util.server_location
      val check_network_up : (string -> unit) -> unit
    end
end