From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 1 Jun 2006 10:52:11 +0000 (+0000)
Subject: use the appropriate chain of transormations for pretty printing term
X-Git-Tag: make_still_working~7264
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=55b7e104ed4b153fdbffdc3b4284313b3f18c571;p=helm.git

use the appropriate chain of transormations for pretty printing term
---

diff --git a/helm/software/components/binaries/tptp2grafite/main.ml b/helm/software/components/binaries/tptp2grafite/main.ml
index 4042d92d1..3c7d5f934 100644
--- a/helm/software/components/binaries/tptp2grafite/main.ml
+++ b/helm/software/components/binaries/tptp2grafite/main.ml
@@ -283,8 +283,18 @@ let _ =
       ([],[]) statements 
   in
   let pp t = 
-    (* for a correct pp we should disambiguate the term... *)
-    let term_pp = CicNotationPp.pp_term in
+    (* ZACK: setting width to 80 will trigger a bug of BoxPp.render_to_string
+     * which will show up using the following command line:
+     * ./tptp2grafite -tptppath ~tassi/TPTP-v3.1.1 GRP170-1 *)
+    let width = max_int in
+    let term_pp content_term =
+      let pres_term = TermContentPres.pp_ast content_term in
+      let dummy_tbl = Hashtbl.create 1 in
+      let markup = CicNotationPres.render dummy_tbl pres_term in
+      let s = BoxPp.render_to_string width markup in
+      s
+    in
+    CicNotationPp.set_pp_term term_pp;
     let lazy_term_pp = fun x -> assert false in
     let obj_pp = CicNotationPp.pp_obj in
     print_endline