type xml_parser = Expat.expat_parser
+exception Parse_error of string
+
let create_parser callbacks =
let expat_parser = Expat.parser_create ~encoding:None in
(match callbacks.start_element with
in
aux
+let parse expat_parser xml_source =
+ try
+ parse expat_parser xml_source
+ with Expat.Expat_error xml_error ->
+ raise (Parse_error (Expat.xml_error_to_string xml_error))
+