tables for matita.owner are created at boot

diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml
index 251f7201767978af4fd88b6641356bb39fe6174e..9551729a43e6bbf3a03ca23945ed95bfb35c9d2b 100644 (file)
--- a/helm/matita/matita.ml
+++ b/helm/matita/matita.ml
@@ -35,8 +35,7 @@ let _ =
   Helm_registry.load_from "matita.conf.xml";  (* read 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 ());
 

diff --git a/helm/matita/matitaDb.mli b/helm/matita/matitaDb.mli
index b7b7c273f75d825a5dc97563e97aa4d8ad391770..f6d8c1fd111f44d6edcb7c8ae60b68eb005b2f7f 100644 (file)
--- a/helm/matita/matitaDb.mli
+++ b/helm/matita/matitaDb.mli
@@ -26,6 +26,7 @@
 val instance: unit -> Mysql.dbd
 
 val reset_owner_environment : unit -> unit
+val create_owner_environment: unit -> unit
 
 val remove_uri: UriManager.uri -> string list
 val xpointers_of_ind: UriManager.uri -> UriManager.uri list

diff --git a/helm/matita/matitacLib.ml b/helm/matita/matitacLib.ml
index d9eba68e233d8a3d7c3b2b223967d33efc524f18..e72822fdcd7b37aa8e584943247a14d402250aa5 100644 (file)
--- a/helm/matita/matitacLib.ml
+++ b/helm/matita/matitacLib.ml
@@ -138,6 +138,7 @@ let main ~mode =
   Helm_registry.load_from "matita.conf.xml";
   Http_getter.init ();
   MetadataTypes.ownerize_tables (Helm_registry.get "matita.owner");
+  MatitaDb.create_owner_environment ();
   status := Some (ref (Lazy.force MatitaEngine.initial_status));
   Sys.catch_break true;
   let fname = fname () in