"matita.system", "false";
"matita.verbosity", "1";
"matita.bench", "false";
- "matita.paste_unicode_as_tex", "false"
+ "matita.paste_unicode_as_tex", "false";
+ "matita.noinnertypes", "false";
(** verbosity level: 1 is the default, 0 is intuitively "quiet", > 1 is
* intuitively verbose *)
]
let reduce_verbosity () =
Helm_registry.set_int "matita.verbosity"
(Helm_registry.get_int "matita.verbosity" - 1) in
+ let print_version () =
+ Printf.printf "%s\n" BuildTimeConf.version;exit 0 in
let increase_verbosity () =
Helm_registry.set_int "matita.verbosity"
(Helm_registry.get_int "matita.verbosity" + 1) in
+ let no_innertypes () =
+ Helm_registry.set_bool "matita.noinnertypes" true in
let arg_spec =
let std_arg_spec = [
"-I", Arg.String (add_l includes),
"-noprofile",
Arg.Unit (fun () -> Helm_registry.set_bool "matita.profile" false),
"Turns off profiling printings";
+ "-noinnertypes", Arg.Unit no_innertypes,
+ "Turns off inner types generation while publishing";
"-profile-only",
Arg.String (fun rex -> Helm_registry.set "matita.profile_only" rex),
"Activates only profiler with label matching the provided regex";
("Act on the system library instead of the user one"
^ "\n WARNING: not for the casual user");
"-v", Arg.Unit increase_verbosity, "Increase verbosity";
+ "--version", Arg.Unit print_version, "Prints version";
] in
let debug_arg_spec =
if BuildTimeConf.debug then
let parse_cmdline_and_configuration_file () =
status := List.fold_left (fun s f -> f s) !status conf_components
-;;
+let initialize_environment () =
+ status := initialize_environment !status
-Inversion_principle.init ()
+let _ =
+ Inversion_principle.init ()