(* GLOBAL CONSTANTS *)
-let configuration_file = "triciclo.conf.xml"
+let configuration_file = "gTopLevel.conf.xml"
let mqi_debug_fun s = debug_print ~level:2 s
let mqi_flags = [MQIC.Postgres ; MQIC.Stat ; MQIC.Warn ; MQIC.Log]
(** save an unfinished proof on the filesystem *)
let save_unfinished_proof () =
let (xml, bodyxml) = ProofEngine.get_current_status_as_xml () in
- let proof_file_type = Helm_registry.get "triciclo.proof_file_type" in
- let proof_file = Helm_registry.get "triciclo.proof_file" in
+ let proof_file_type = Helm_registry.get "gtoplevel.proof_file_type" in
+ let proof_file = Helm_registry.get "gtoplevel.proof_file" in
Xml.pp ~quiet:true xml (Some proof_file_type) ;
HelmLogger.log
(`Msg (`T ("Current proof type saved to " ^ proof_file_type))) ;
None -> raise NoChoice
| Some uri0 ->
let uri = UriManager.uri_of_string ("cic:" ^ uri0) in
- let proof_file_type = Helm_registry.get "triciclo.proof_file_type" in
- let proof_file = Helm_registry.get "triciclo.proof_file" in
+ let proof_file_type = Helm_registry.get "gtoplevel.proof_file_type" in
+ let proof_file = Helm_registry.get "gtoplevel.proof_file" in
match CicParser.obj_of_xml proof_file_type (Some proof_file) with
Cic.CurrentProof (_,metasenv,bo,ty,_) ->
typecheck_loaded_proof metasenv bo ty ;
let dump_environment () =
try
- let oc = open_out (Helm_registry.get "triciclo.environment_file") in
+ let oc = open_out (Helm_registry.get "gtoplevel.environment_file") in
HelmLogger.log (`Msg (`T "Dumping environment ..."));
CicEnvironment.dump_to_channel oc;
HelmLogger.log (`Msg (`T "... done!")) ;
;;
let restore_environment () =
try
- let ic = open_in (Helm_registry.get "triciclo.environment_file") in
+ let ic = open_in (Helm_registry.get "gtoplevel.environment_file") in
HelmLogger.log (`Msg (`T "Restoring environment ... "));
CicEnvironment.restore_from_channel ic;
HelmLogger.log (`Msg (`T "... done!"));
(Some (print_error_as_html "XSLT Debug Message: "));
rendering_window'#show () ;
if restore_environment_on_boot &&
- Sys.file_exists (Helm_registry.get "triciclo.environment_file")
+ Sys.file_exists (Helm_registry.get "gtoplevel.environment_file")
then
restore_environment ();
GtkThread.main ()