passed to parsing functions
- removed orrible hack for sort parsing
in
(* restarts the numbering of named universes (the ones inside the cic) *)
let _ = CicUniv.restart_numbering () in
- (* HACK ORRIBILE: fa in modo che il parser metta degli universi fresh non
- * anonimi *)
- let _ = CicParser3.set_uri uri in
let obj =
try
let time = Unix.gettimeofday() in
- let rc = CicParser.obj_of_xml filename bodyfilename in
+ let rc = CicParser.obj_of_xml uri filename bodyfilename in
total_parsing_time :=
!total_parsing_time +. ((Unix.gettimeofday()) -. time );
rc