`sig
type string
type encoding =
[ `ISO_8859_1 | `US_ASCII | `UTF_16 | `UTF_16BE | `UTF_16LE | `UTF_8 ]
type dtd = Xmlm.S.string option
type name = Xmlm.S.string * Xmlm.S.string
type attribute = Xmlm.S.name * Xmlm.S.string
type tag = Xmlm.S.name * Xmlm.S.attribute list
type signal =
[ `Data of Xmlm.S.string
| `Dtd of Xmlm.S.dtd
| `El_end
| `El_start of Xmlm.S.tag ]
val ns_xml : Xmlm.S.string
val ns_xmlns : Xmlm.S.string
type pos = int * int
type error =
[ `Expected_char_seqs of Xmlm.S.string list * Xmlm.S.string
| `Expected_root_element
| `Illegal_char_ref of Xmlm.S.string
| `Illegal_char_seq of Xmlm.S.string
| `Malformed_char_stream
| `Max_buffer_size
| `Unexpected_eoi
| `Unknown_encoding of Xmlm.S.string
| `Unknown_entity_ref of Xmlm.S.string
| `Unknown_ns_prefix of Xmlm.S.string ]
exception Error of Xmlm.S.pos * Xmlm.S.error
val error_message : Xmlm.S.error -> Xmlm.S.string
type source =
[ `Channel of Stdlib.in_channel
| `Fun of unit -> int
| `String of int * Xmlm.std_string ]
type input
val make_input :
?enc:Xmlm.S.encoding option ->
?strip:bool ->
?ns:(Xmlm.S.string -> Xmlm.S.string option) ->
?entity:(Xmlm.S.string -> Xmlm.S.string option) ->
Xmlm.S.source -> Xmlm.S.input
val input : Xmlm.S.input -> Xmlm.S.signal
val input_tree :
el:(Xmlm.S.tag -> 'a list -> 'a) ->
data:(Xmlm.S.string -> 'a) -> Xmlm.S.input -> 'a
val input_doc_tree :
el:(Xmlm.S.tag -> 'a list -> 'a) ->
data:(Xmlm.S.string -> 'a) -> Xmlm.S.input -> Xmlm.S.dtd * 'a
val peek : Xmlm.S.input -> Xmlm.S.signal
val eoi : Xmlm.S.input -> bool
val pos : Xmlm.S.input -> Xmlm.S.pos
type 'a frag = [ `Data of Xmlm.S.string | `El of Xmlm.S.tag * 'a list ]
type dest =
[ `Buffer of Xmlm.std_buffer
| `Channel of Stdlib.out_channel
| `Fun of int -> unit ]
type output
val make_output :
?decl:bool ->
?nl:bool ->
?indent:int option ->
?ns_prefix:(Xmlm.S.string -> Xmlm.S.string option) ->
Xmlm.S.dest -> Xmlm.S.output
val output_depth : Xmlm.S.output -> int
val output : Xmlm.S.output -> Xmlm.S.signal -> unit
val output_tree : ('a -> 'a Xmlm.S.frag) -> Xmlm.S.output -> 'a -> unit
val output_doc_tree :
('a -> 'a Xmlm.S.frag) -> Xmlm.S.output -> Xmlm.S.dtd * 'a -> unit
end`