Module Xml
module Xml: sig
.. end
type
xml =
| |
Element of elt |
| |
CData of string |
type
elt = {
|
tag : string ; |
|
attribs : (string * string) list ; |
|
children : xml list ; |
}
val tag : xml -> string
val children : xml -> xml list
val attribs : xml -> (string * string) list
val get_cdata : elt -> string
val find_by_tag : string -> xml list -> elt
val find_by_attrib : string -> string -> xml list -> elt
val try_children : string -> elt -> xml list
val assoc_attrib : string -> xml -> string
type
xml_parser
val parser_create : unit -> xml_parser
val parse : xml_parser -> string -> unit
val parse_sub : xml_parser -> string -> int -> int -> unit
val final : xml_parser -> elt
val parse_string : string -> elt
val parse_in_obj_channel : Netchannels.in_obj_channel -> elt
val print_xml : Pervasives.out_channel -> elt -> unit