type options = option_value StringMap.t
let no_options = StringMap.empty
-type ast_command = (CicNotationPt.term, GrafiteAst.obj) GrafiteAst.command
+type ast_command = (CicNotationPt.term, CicNotationPt.obj) GrafiteAst.command
type moo = ast_command list * GrafiteAst.metadata list
type status = {
{ status with proof_status = proof_status }
let dump_status status =
- MatitaLog.message "status.aliases:\n";
- MatitaLog.message "status.proof_status:";
- MatitaLog.message
+ HLog.message "status.aliases:\n";
+ HLog.message "status.proof_status:";
+ HLog.message
(match status.proof_status with
| No_proof -> "no proof\n"
| Incomplete_proof _ -> "incomplete proof\n"
| Proof _ -> "proof\n"
| Intermediate _ -> "Intermediate\n");
- MatitaLog.message "status.options\n";
+ HLog.message "status.options\n";
StringMap.iter (fun k v ->
let v =
match v with
| String s -> s
| Int i -> string_of_int i
in
- MatitaLog.message (k ^ "::=" ^ v)) status.options;
- MatitaLog.message "status.coercions\n";
- MatitaLog.message "status.objects:\n";
+ HLog.message (k ^ "::=" ^ v)) status.options;
+ HLog.message "status.coercions\n";
+ HLog.message "status.objects:\n";
List.iter
(fun (u,_) ->
- MatitaLog.message (UriManager.string_of_uri u)) status.objects
+ HLog.message (UriManager.string_of_uri u)) status.objects
let get_option status name =
try
let s = Str.global_replace (Str.regexp "/$") "" s in
s
in
- let types =
- [ "baseuri", (`String, mangle_dir);
- "basedir", (`String, mangle_dir);
- ]
- in
+ let types = [ "baseuri", (`String, mangle_dir); ] in
let ty_and_mangler =
try
List.assoc name types