From 902d8031333704b8c1f4b73aa72b1a015530f3a4 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Wed, 19 Jun 2013 19:42:40 +0000
Subject: Adding genarg printer to debugger.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16594 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/db              | 1 +
 dev/top_printers.ml | 9 +++++++++
 2 files changed, 10 insertions(+)

(limited to 'dev')

diff --git a/dev/db b/dev/db
index e7346c6b49..10926be086 100644
--- a/dev/db
+++ b/dev/db
@@ -38,3 +38,4 @@ install_printer Top_printers.pploc
 install_printer Top_printers.prsubst
 install_printer Top_printers.prdelta
 install_printer Top_printers.ppfconstr
+install_printer Top_printers.ppgenarginfo
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 939e9422ac..f59c300a9e 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -379,6 +379,15 @@ let pp_argument_type t = pp (pr_argument_type t)
 let pp_generic_argument arg =
   pp(str"<genarg:"++pr_argument_type(genarg_tag arg)++str">")
 
+let ppgenarginfo arg =
+  let tpe = pr_argument_type (genarg_tag arg) in
+  let pr_gtac _ x = Pptactic.pr_glob_tactic (Global.env()) x in
+  try
+    let data = Pptactic.pr_top_generic pr_constr pr_lconstr pr_gtac pr_constr_pattern arg in
+    pp (str "<genarg:" ++ tpe ++ str " := [ " ++ data ++ str " ] >")
+  with _any ->
+    pp (str "<genarg:" ++ tpe ++ str ">")
+
 (**********************************************************************)
 (* Vernac-level debugging commands                                    *)
 
-- 
cgit v1.2.3