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