(* $Id$ *)
-open Printf
-
-open MatitaGtkMisc
-open GrafiteTypes
-
(** {2 Initialization} *)
let _ =
["-tptppath",Arg.String
(fun s -> Helm_registry.set_string "matita.tptppath" s),
"Where to find the Axioms/ and Problems/ directory"];
- MatitaInit.initialize_all ()
+ MatitaInit.initialize_all ();
+ MatitaMisc.reset_font_size ()
;;
let _ =
ignore (GMenu.separator_item ~packing:gui#main#debugMenu_menu#append ())
in
addDebugItem "dump aliases" (fun _ ->
- let status = (MatitaScript.current ())#grafite_status in
+ let status = (MatitaScript.current ())#status in
GrafiteDisambiguate.dump_aliases prerr_endline "" status);
(* FG: DEBUGGING
addDebugItem "dump interpretations" (fun _ ->
*)
addDebugSeparator ();
addDebugCheckbox "high level pretty printer" ~init:true
- (fun mi () -> assert false (* MATITA 1.0 *));
- addDebugSeparator ();
- addDebugItem "always show all disambiguation errors"
- (fun _ -> MatitaGui.all_disambiguation_passes := true);
- addDebugItem "prune disambiguation errors"
- (fun _ -> MatitaGui.all_disambiguation_passes := false);
+ (fun mi () -> ApplyTransformation.use_high_level_pretty_printer := mi#active);
addDebugSeparator ();
+ addDebugCheckbox "prune errors"
+ (fun mi () -> MatitaGui.all_disambiguation_passes := not (mi#active));
+ (*MATITA 1.0: ??? addDebugItem "prune disambiguation errors"
+ (fun _ -> MatitaGui.all_disambiguation_passes := false);*)
addDebugCheckbox "multiple disambiguation passes" ~init:true
(fun mi () -> MultiPassDisambiguator.only_one_pass := mi#active);
+ addDebugSeparator ();
addDebugCheckbox "tactics logging"
(fun mi () -> NTacStatus.debug := mi#active);
+ addDebugCheckbox "disambiguation logging"
+ (fun mi () -> MultiPassDisambiguator.debug := mi#active; NCicDisambiguate.debug := mi#active);
addDebugCheckbox "disambiguation/refiner/unification/metasubst logging"
(fun mi () -> NCicRefiner.debug := mi#active; NCicUnification.debug :=
- mi#active; MultiPassDisambiguator.debug := mi#active; NCicMetaSubst.debug := mi#active);
+ mi#active; MultiPassDisambiguator.debug := mi#active; NCicDisambiguate.debug := mi#active; NCicMetaSubst.debug := mi#active);
addDebugCheckbox "reduction logging"
(fun mi () -> NCicReduction.debug := mi#active);
addDebugSeparator ();
let _ =
at_exit (fun () -> print_endline "\nThanks for using Matita!\n");
- Sys.catch_break true;
let args = Helm_registry.get_list Helm_registry.string "matita.args" in
let gui = MatitaGui.instance () in
+ Sys.set_signal Sys.sigint (Sys.Signal_handle(fun _ -> gui#kill_worker ()));
init_debugging_menu gui;
- gui#newScript ();
List.iter gui#loadScript (List.rev args);
gui#main#mainWin#show ();
try