diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-07 17:22:17 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-07 18:40:36 +0200 |
| commit | a82f73d1fec1f200904819cf18dec75780c3a505 (patch) | |
| tree | 017ac6e9c03dc7a5179bd06927263514365a055f | |
| parent | 38b34dfffcceab7fa7d5ba43c84e414d24cebe43 (diff) | |
Adding a printer for hints.
| -rw-r--r-- | dev/db | 1 | ||||
| -rw-r--r-- | dev/include | 1 | ||||
| -rw-r--r-- | dev/printers.mllib | 4 | ||||
| -rw-r--r-- | dev/top_printers.ml | 1 |
4 files changed, 7 insertions, 0 deletions
@@ -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 941fa3383..ac0915007 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 703c44647..526a402dd 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 0345ddfab..d98810b43 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) |