From 9632987e1eb0b035c760ab293e785c752d5eac92 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sun, 12 Oct 2014 09:59:32 +0200
Subject: Adding printers for ppproofview.

---
 dev/db              | 1 +
 dev/include         | 1 +
 dev/top_printers.ml | 3 +++
 3 files changed, 5 insertions(+)

(limited to 'dev')

diff --git a/dev/db b/dev/db
index c584adfe1e..eb84065e8d 100644
--- a/dev/db
+++ b/dev/db
@@ -40,6 +40,7 @@ install_printer Top_printers.ppmetas
 install_printer Top_printers.ppevm
 install_printer Top_printers.ppgoalgoal
 install_printer Top_printers.ppgoal
+install_printer Top_printers.ppproofview
 install_printer Top_printers.pphintdb
 
 install_printer Top_printers.pptac
diff --git a/dev/include b/dev/include
index 069622a028..7f72f55d9d 100644
--- a/dev/include
+++ b/dev/include
@@ -62,6 +62,7 @@
 (*#install_printer  (* sigma goal *)  ppsigmagoal;;*)
 (*#install_printer  (* proof *)  pproof;;*)
 #install_printer  (* Goal.goal *)  ppgoalgoal;;
+#install_printer  (* proofview *)  ppproofview;;
 #install_printer  (* metaset.t *) ppmetas;;
 #install_printer  (* evar *)  ppevar;;
 #install_printer  (* evar_map *)  ppevm;;
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 75310163f3..c12f8a2760 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -161,6 +161,9 @@ let ppgoalgoal gl = pp(Goal.pr_goal gl)
 let ppgoal g = pp(Printer.pr_goal g)
 let ppgoalsigma g = pp(Printer.pr_goal g ++ pr_evar_map None (Refiner.project g))
 let pphintdb db = pp(Hints.pr_hint_db db)
+let ppproofview p =
+  let gls,sigma = Proofview.proofview p in
+  pp(pr_enum Goal.pr_goal gls ++ fnl () ++ pr_evar_map (Some 1) sigma)
 
 let ppopenconstr (x : Evd.open_constr) =
   let (evd,c) = x in pp (pr_evar_map (Some 2) evd ++ pr_constr c)
-- 
cgit v1.2.3