sig
exception Lex_error of string
type txt = string
type cdata = string
type qname = { pfx : Yaxpo.txt; local : Yaxpo.txt; }
type att = { att_name : Yaxpo.qname; mutable att_value : Yaxpo.txt; }
val string_of_qname : Yaxpo.qname -> string
val string_of_att : Yaxpo.att -> string
type xml_token =
Tok_text of Yaxpo.txt
| Tok_cdata of Yaxpo.cdata
| Tok_start_tag of Yaxpo.qname * Yaxpo.att list
| Tok_empty_ele of Yaxpo.qname * Yaxpo.att list
| Tok_end_tag of Yaxpo.qname
| Tok_comment of Yaxpo.txt
| Tok_pi of Yaxpo.txt * Yaxpo.txt
exception Parse_error of string * Yaxpo.xml_token option
val pull_next_token : #Cps_reader.t -> (Yaxpo.xml_token -> unit) -> unit
end