From 1e1b6828c29b1344f50f94f9d3a6fce27a885656 Mon Sep 17 00:00:00 2001 From: letouzey Date: Fri, 30 Mar 2012 09:47:57 +0000 Subject: info_trivial, info_auto, info_eauto, and debug (trivial|auto) To mitigate the lack of a general "info" tactical, let's introduce some specialized tactics info_trivial, info_auto and info_eauto that display the basic tactics used when solving a goal. We also add tactics "debug trivial" and "debug auto" which display every basic tactics attempted by trivial or auto. Triggering the "info" or "debug" mode for auto, eauto, trivial can also be done now via global options, such as Set Debug Auto or Set Info Eauto. In case both debug and info modes are activated, the debug mode takes precedence. NB: it would be nice to name these tactics "info xxx" instead of "info_xxx", but I don't see how to implement a "info eauto" in eauto.ml4 (hence by TACTIC EXTEND) while keeping a generic "info foo" tactic in g_ltac.ml4 (useful to display a nice message about the unavailability of the general info). git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15103 85f007b7-540e-0410-9357-904b9bb8a0f7 --- plugins/rtauto/proof_search.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'plugins/rtauto/proof_search.ml') diff --git a/plugins/rtauto/proof_search.ml b/plugins/rtauto/proof_search.ml index 2448a2d39..d772279f1 100644 --- a/plugins/rtauto/proof_search.ml +++ b/plugins/rtauto/proof_search.ml @@ -510,8 +510,8 @@ let pp_gl gl= cut () ++ let pp = function - Incomplete(gl,ctx) -> msgnl (pp_gl gl) - | _ -> msg (str "") + Incomplete(gl,ctx) -> pp_gl gl ++ fnl () + | _ -> str "" let pp_info () = let count_info = -- cgit v1.2.3