let read chanin =
try
let tree = IoXML.parse_xml (Stream.of_channel chanin) in
xparse_schema tree
with
e ->
let e =
match e with
IoXML.ExcLoc ((bp,ep), e) ->
prerr_endline (M.error_at_location bp ep)
| e ->
prerr_endline (Printexc.to_string e)
in
default ()