+ let alluris =
+ try
+ let s = Sys.argv.(1) in
+ if s = "-alluris" then
+ begin
+ let uri_re = Str.regexp ".*\\(ind\\|con\\)$" in
+ let uris = Http_getter.getalluris () in
+ let alluris = List.filter (fun u -> Str.string_match uri_re u 0) uris in
+ let oc = open_out "alluris.txt" in
+ List.iter (fun s -> output_string oc (s^"\n")) alluris;
+ close_out oc;
+ []
+ end
+ else [s]
+ with Invalid_argument _ ->
+ let r = ref [] in
+ let ic = open_in "alluris.txt" in
+ try while true do r := input_line ic :: !r; done; []
+ with _ -> List.rev !r
+ in
+ let alluris =
+ HExtlib.filter_map
+ (fun u -> try Some (UriManager.uri_of_string u) with _ -> None) alluris
+ in
+ (* brutal *)
+ prerr_endline "computing graphs to load...";
+ let roots_alluris =
+ if not rank_all_dependencies then
+ alluris
+ else (
+ let dbd = HSql.quick_connect (LibraryDb.parse_dbd_conf ()) in
+ MetadataTypes.ownerize_tables (Helm_registry.get "matita.owner");
+ let uniq l =
+ HExtlib.list_uniq (List.sort UriManager.compare l) in
+ let who_uses u =
+ uniq (List.map (fun (uri,_) -> UriManager.strip_xpointer uri)
+ (MetadataDeps.inverse_deps ~dbd u)) in
+ let rec fix acc l =
+ let acc, todo =
+ List.fold_left (fun (acc,todo) x ->
+ let w = who_uses x in
+ if w = [] then (x::acc,todo) else (acc,uniq (todo@w)))
+ (acc,[]) l
+ in
+ if todo = [] then uniq acc else fix acc todo
+ in
+ fix [] alluris)
+ in
+ prerr_endline "generating Coq graphs...";
+ CicEnvironment.set_trust (fun _ -> trust_environment);
+ List.iter
+ (fun u ->
+ prerr_endline (" - " ^ UriManager.string_of_uri u);
+ try
+ ignore(CicTypeChecker.typecheck u);
+ with
+ | CicTypeChecker.AssertFailure s
+ | CicTypeChecker.TypeCheckerFailure s ->
+ prerr_endline (Lazy.force s);
+ assert false
+ ) roots_alluris;
+ prerr_endline "loading...";