X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fmatitadep.ml;h=3a5ee6561f4013628498d74cd099171843097075;hb=49a08bd8d48b3627a58b81d2175d0d286de965e6;hp=f62a6067fa405765294d8251aa2622007767eaac;hpb=19618ce16bb4a5fd2f7e88bfe9b5002511197faf;p=helm.git diff --git a/helm/software/matita/matitadep.ml b/helm/software/matita/matitadep.ml index f62a6067f..3a5ee6561 100644 --- a/helm/software/matita/matitadep.ml +++ b/helm/software/matita/matitadep.ml @@ -31,12 +31,12 @@ module U = UriManager let obj_file_of_baseuri writable baseuri = try LibraryMisc.obj_file_of_baseuri - ~must_exist:true ~baseuri ~writable + ~must_exist:true ~baseuri ~writable with | Http_getter_types.Unresolvable_URI _ | Http_getter_types.Key_not_found _ -> LibraryMisc.obj_file_of_baseuri - ~must_exist:false ~baseuri ~writable:true + ~must_exist:false ~baseuri ~writable:true ;; let main () = @@ -50,13 +50,11 @@ let main () = let resolve alias current_buri = let buri = buri alias in if buri <> current_buri then Some buri else None in - MatitaInit.fill_registry (); let dot_file = ref "" in MatitaInit.add_cmdline_spec ["-dot", Arg.Set_string dot_file, " Save dependency graph in dot format to the given file"]; - MatitaInit.parse_cmdline (); - MatitaInit.load_configuration_file (); + MatitaInit.parse_cmdline_and_configuration_file (); let include_paths = Helm_registry.get_list Helm_registry.string "matita.includes" in let args = Helm_registry.get_list Helm_registry.string "matita.args" in