- Helm_registry.load_from "matita.conf.xml";
- GtkMain.Rc.add_default_file BuildTimeConf.gtkrc;
- GMain.Main.init ()
-
-let parserr = new MatitaDisambiguator.parserr ()
-let dbd =
- Mysql.quick_connect
- ~host:(Helm_registry.get "db.host")
- ~user:(Helm_registry.get "db.user")
- ~database:(Helm_registry.get "db.database")
- ()
-
-let owner = (Helm_registry.get "matita.owner") ;;
-let _ = MetadataTypes.ownerize_tables owner ;;
-let _ = MatitaDb.clean_owner_environment dbd owner ;;
-let _ = MatitaDb.create_owner_environment dbd owner ;;
+ 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 ();
+ GtkMain.Rc.add_default_file BuildTimeConf.gtkrc; (* loads gtk rc files *)
+ ignore (GMain.Main.init ())