(******************************************************************************) (* SXSI : XPath evaluator *) (* Kim Nguyen (Kim.Nguyen@nicta.com.au) *) (* Copyright NICTA 2008 *) (* Distributed under the terms of the LGPL (see LICENCE) *) (******************************************************************************) module type BINARY = sig type node_content type string_content type descr = Nil| Node of node_content | String of string_content type t val parse_xml_uri : string -> t val parse_xml_string : string -> t val string : t -> string val descr : t -> descr val left : t -> t val right : t -> t val id : t -> int val tag : t -> Tag.t val print_xml_fast : out_channel -> t -> unit val compare : t -> t -> int val equal : t -> t -> bool end module Binary : BINARY val dump : Binary.t -> unit