From 2f28a6c3368c6589affce381efd7946a86de5f46 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 29 Dec 2004 12:13:31 +0000
Subject: Ajout printer bigint

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6523 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/base_include    | 3 +++
 dev/top_printers.ml | 3 +--
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'dev')

diff --git a/dev/base_include b/dev/base_include
index 4c8bd9c48d..5798a15990 100644
--- a/dev/base_include
+++ b/dev/base_include
@@ -13,6 +13,7 @@
 #directory "proofs";;
 #directory "tactics";;
 #directory "translate";;
+
 #use "top_printers.ml";;
 
 #install_printer  (* identifier *) prid;;
@@ -32,6 +33,8 @@
 #install_printer ppatom;;
 #install_printer ppwhd;;
 #install_printer ppvblock;;
+#install_printer  (* bigint *) ppbigint;;
+
 
 let qid = Libnames.qualid_of_string;;
 
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 41151eb220..5b9d2ac7c3 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -50,6 +50,7 @@ let pppattern = (fun x -> pp(pr_pattern x))
 let pptype = (fun x -> pp(prtype x))
 let ppfconstr c = ppterm (Closure.term_of_fconstr c)
 
+let ppbigint n = pp (Bigint.pr_bigint n);;
 
 let pP s = pp (hov 0 s)
 
@@ -408,5 +409,3 @@ and ppvblock b =
 and ppvalues v =
   open_hovbox 0;ppwhd (whd_val v);close_box();
   print_flush()
-
-
-- 
cgit v1.2.3