diff options
| author | herbelin | 2004-12-29 12:13:31 +0000 |
|---|---|---|
| committer | herbelin | 2004-12-29 12:13:31 +0000 |
| commit | 2f28a6c3368c6589affce381efd7946a86de5f46 (patch) | |
| tree | 6c40195b3af1cdbcd2522e02364e946126848cfb | |
| parent | 21a985b7bbd6160b5b7b12992e810191cb4dfd76 (diff) | |
Ajout printer bigint
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6523 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | dev/base_include | 3 | ||||
| -rw-r--r-- | dev/top_printers.ml | 3 |
2 files changed, 4 insertions, 2 deletions
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() - - |