X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fmatita.ml;h=ade151a6900d28e0c395d6a44cb329d5442fc853;hb=08791e80816548121e81e04d3ead8c9a5171d033;hp=3eb0fc6a15f985c897e07144b0949c41688805d7;hpb=6fa3a1e91d8a1e647775ca101255633ba265a9f2;p=helm.git diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml index 3eb0fc6a1..ade151a69 100644 --- a/helm/matita/matita.ml +++ b/helm/matita/matita.ml @@ -32,11 +32,10 @@ open MatitaMisc (** {2 Initialization} *) let _ = - Helm_registry.load_from "matita.conf.xml"; (* read conf *) + Helm_registry.load_from BuildTimeConf.matita_conf; Http_getter.init (); MetadataTypes.ownerize_tables (Helm_registry.get "matita.owner"); -(* MatitaDb.clean_owner_environment (); - MatitaDb.create_owner_environment (); *) + MatitaDb.create_owner_environment (); GtkMain.Rc.add_default_file BuildTimeConf.gtkrc_file; (* loads gtk rc *) ignore (GMain.Main.init ()); @@ -148,12 +147,6 @@ let _ = (MatitaMathView.sequentViewer_instance ())#get_selected_terms); addDebugItem "dump getter settings" (fun _ -> prerr_endline (Http_getter_env.env_to_string ())); - addDebugItem "getter: update" - (fun _ -> - ignore (Thread.create (fun () -> - MatitaLog.message "Rebuilding getter maps in background ..."; - Http_getter.update (); - MatitaLog.message "Getter maps successfully rebuilt.") ())); addDebugItem "getter: getalluris" (fun _ -> List.iter prerr_endline (Http_getter.getalluris ())); addDebugItem "dump script status" script#dump; @@ -184,11 +177,7 @@ let _ = (** *) let _ = - at_exit - (fun () -> - Http_getter_logger.log "Sync map tree to disk..."; - Http_getter.sync_dump_file (); - print_endline "\nThanks for using Matita!\n"); + at_exit (fun () -> print_endline "\nThanks for using Matita!\n"); Sys.catch_break true; (try gui#loadScript Sys.argv.(1);