(*CSC: the getter should handle the innertypes, not the FS *)
-let innertypesfile =
- try
- Sys.getenv "GTOPLEVEL_INNERTYPESFILE"
- with
- Not_found -> "/public/innertypes"
-;;
-
-let constanttypefile =
- try
- Sys.getenv "GTOPLEVEL_CONSTANTTYPEFILE"
- with
- Not_found -> "/public/constanttype"
-;;
+let innertypesfile () = Helm_registry.get "gtoplevel.inner_types_file";;
+let constanttypefile () = Helm_registry.get "gtoplevel.constant_type_file";;
let mml_of_cic_sequent metasenv sequent =
let sequent_gdome,ids_to_terms,ids_to_father_ids,ids_to_hypotheses =
match bodyxml with
None -> Xml2Gdome.document_of_xml Misc.domImpl xml
| Some bodyxml' ->
- Xml.pp xml (Some constanttypefile) ;
+ Xml.pp xml (Some (constanttypefile ())) ;
Xml2Gdome.document_of_xml Misc.domImpl bodyxml'
in
(*CSC: We save the innertypes to disk so that we can retrieve them in the *)
(*CSC: stylesheet. This DOES NOT work when UWOBO and/or the getter are not *)
(*CSC: local. *)
- Xml.pp xmlinnertypes (Some innertypesfile) ;
+ Xml.pp xmlinnertypes (Some (innertypesfile ())) ;
let output = apply_proof_stylesheets input ~explode_all in
output
;;