From 2d1cecb1593f5d4f4f1bb697f983ac8db99c2987 Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Mon, 18 Jul 2005 16:26:57 +0000 Subject: [PATCH] added too .moo files notation related statements --- helm/matita/matita.ml | 21 +++++++-------------- helm/matita/matitaEngine.ml | 4 +++- 2 files changed, 10 insertions(+), 15 deletions(-) diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml index 6319921eb..2ff07613a 100644 --- a/helm/matita/matita.ml +++ b/helm/matita/matita.ml @@ -156,23 +156,16 @@ let _ = if script#onGoingProof () then MatitaLog.debug (CicMetaSubst.ppmetasenv script#proofMetasenv [])); addDebugItem "dump coercions Db" (fun _ -> - List.iter ( - fun (s,t,u) -> - MatitaLog.debug ( - UriManager.name_of_uri u ^ ":" ^ - UriManager.name_of_uri s ^ " -> " ^ UriManager.name_of_uri t)) - (CoercDb.to_list ()) - ); + List.iter + (fun (s,t,u) -> + MatitaLog.debug + (UriManager.name_of_uri u ^ ":" + ^ UriManager.name_of_uri s ^ " -> " ^ UriManager.name_of_uri t)) + (CoercDb.to_list ())); addDebugItem "rotate light bulbs" (fun _ -> let nb = gui#main#hintNotebook in - nb#goto_page ((nb#current_page + 1) mod 3)); - (* - addDebugItem "print (on stdout) \"statement\" grammar entry" - (fun _ -> - Grammar.print_entry Format.std_formatter - (Grammar.Entry.obj CicTextualParser2.statement); - Format.pp_print_flush Format.std_formatter ());*) + nb#goto_page ((nb#current_page + 1) mod 3)) end (** *) diff --git a/helm/matita/matitaEngine.ml b/helm/matita/matitaEngine.ml index b456bb6eb..aff9144cc 100644 --- a/helm/matita/matitaEngine.ml +++ b/helm/matita/matitaEngine.ml @@ -572,7 +572,9 @@ let eval_command opts status cmd = | GrafiteAst.Render _ -> assert false (* ZACK: to be removed *) | GrafiteAst.Dump _ -> assert false (* ZACK: to be removed *) | GrafiteAst.Interpretation _ - | GrafiteAst.Notation _ -> status + | GrafiteAst.Notation _ as stm -> + { status with moo_content_rev = + (GrafiteAstPp.pp_command stm ^ "\n") :: status.moo_content_rev } | GrafiteAst.Obj (loc,obj) -> let ext,name = match obj with -- 2.39.2