]> matita.cs.unibo.it Git - helm.git/commitdiff
use the appropriate chain of transormations for pretty printing term
authorStefano Zacchiroli <zack@upsilon.cc>
Thu, 1 Jun 2006 10:52:11 +0000 (10:52 +0000)
committerStefano Zacchiroli <zack@upsilon.cc>
Thu, 1 Jun 2006 10:52:11 +0000 (10:52 +0000)
helm/software/components/binaries/tptp2grafite/main.ml

index 4042d92d1905ade4f198354226967507a37ae3e8..3c7d5f934b89f2b6ec271284bbbd5018a820bb82 100644 (file)
@@ -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