let load_report f =
try read_xml_file report_of_xml f
with
Xml.File_not_found _ ->
{ rep_header = "" ;
rep_params = [] ;
rep_eles = [] ;
}
| Bad_format xml ->
let s = Rep_misc.chop_n_char 120 (Xml.to_string xml) in
failwith (Rep_messages.bad_format s)