open MatitaTypes
open MatitaMisc
+
+(* ALB to link paramodulation... *)
+let _ = Paramodulation.Saturation.init ()
+
+
(** {2 Initialization} *)
let _ =
MatitaDb.create_owner_environment ();
MatitamakeLib.initialize ();
GtkMain.Rc.add_default_file BuildTimeConf.gtkrc_file; (* loads gtk rc *)
+ prerr_endline BuildTimeConf.gtkmathview_conf;
+ GMathView.add_configuration_path BuildTimeConf.gtkmathview_conf;
ignore (GMain.Main.init ());
CicEnvironment.set_trust (* environment trust *)
(let trust = Helm_registry.get_bool "matita.environment_trust" in
prerr_endline (UriManager.string_of_uri u);
CicUniv.print_ugraph g) (CicEnvironment.list_obj ())
);
+ addDebugItem "dump environment content" (fun _ ->
+ List.iter (fun (u,_,_) ->
+ prerr_endline (UriManager.string_of_uri u))
+ (CicEnvironment.list_obj ()));
addDebugItem "print selected terms" (fun () ->
let i = ref 0 in
List.iter
let _ =
at_exit (fun () -> print_endline "\nThanks for using Matita!\n");
Sys.catch_break true;
- (try
- gui#loadScript Sys.argv.(1);
- with Invalid_argument _ -> ());
if Filename.basename Sys.argv.(0) = "cicbrowser" then begin (* cicbrowser *)
Helm_registry.set "matita.mode" "cicbrowser";
let browser = MatitaMathView.cicBrowser () in
browser#load entry
end else begin (* matita *)
Helm_registry.set "matita.mode" "matita";
+ (try
+ gui#loadScript Sys.argv.(1);
+ with Invalid_argument _ -> ());
gui#main#mainWin#show ();
end;
try