From a82f73d1fec1f200904819cf18dec75780c3a505 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Tue, 7 Oct 2014 17:22:17 +0200
Subject: Adding a printer for hints.

---
 dev/db              | 1 +
 dev/include         | 1 +
 dev/printers.mllib  | 4 ++++
 dev/top_printers.ml | 1 +
 4 files changed, 7 insertions(+)

(limited to 'dev')

diff --git a/dev/db b/dev/db
index bcea0a19f4..04d300d409 100644
--- a/dev/db
+++ b/dev/db
@@ -38,6 +38,7 @@ install_printer Top_printers.pp_cst_stack_t
 install_printer Top_printers.ppmetas
 install_printer Top_printers.ppevm
 install_printer Top_printers.ppgoal
+install_printer Top_printers.pphintdb
 
 install_printer Top_printers.pptac
 install_printer Top_printers.ppobj
diff --git a/dev/include b/dev/include
index 941fa3383b..ac09150075 100644
--- a/dev/include
+++ b/dev/include
@@ -68,6 +68,7 @@
 #install_printer  (* Evar.Set.t *) ppexistentialset;;
 #install_printer  (* clenv *) ppclenv;;
 #install_printer  (* env *) ppenv;;
+#install_printer  (* Hint_db.t *) pphintdb;;
 
 #install_printer  (* tactic *) pptac;;
 #install_printer  (* object *) ppobj;;
diff --git a/dev/printers.mllib b/dev/printers.mllib
index 703c446478..526a402dd1 100644
--- a/dev/printers.mllib
+++ b/dev/printers.mllib
@@ -194,6 +194,10 @@ Egramml
 Egramcoq
 Tacsubst
 Tacenv
+Trie
+Dn
+Btermdn
+Hints
 Himsg
 Cerrors
 Locality
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 0345ddfabc..d98810b436 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -159,6 +159,7 @@ let ppclenv clenv = pp(pr_clenv clenv)
 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 ppopenconstr (x : Evd.open_constr) =
   let (evd,c) = x in pp (pr_evar_map (Some 2) evd ++ pr_constr c)
-- 
cgit v1.2.3