The precedence level is now an optional argument of the content to pres

transformation for terms.

diff --git a/helm/software/components/content_pres/cicNotationPres.ml b/helm/software/components/content_pres/cicNotationPres.ml
index 308f23d22a13ea4826cde1050c8fbdc24a672c04..297a52bc5d7c09050af98740aba7cb0a51ae94ce 100644 (file)
--- a/helm/software/components/content_pres/cicNotationPres.ml
+++ b/helm/software/components/content_pres/cicNotationPres.ml
@@ -202,7 +202,7 @@ let add_parens child_prec child_assoc child_pos curr_prec t =
   end else
     t
 
-let render ids_to_uris =
+let render ids_to_uris ?(prec=(-1)) =
   let module A = Ast in
   let module P = Mpresentation in
 (*   let use_unicode = true in *)
@@ -418,7 +418,7 @@ let render ids_to_uris =
     in
       List.map boxify_pres (find_clusters terms)
   in
-  aux [] false (ref []) `Inner ~-1
+  aux [] false (ref []) `Inner prec
 
 let rec print_box (t: boxml_markup) =
   Box.box2xml print_mpres t

diff --git a/helm/software/components/content_pres/cicNotationPres.mli b/helm/software/components/content_pres/cicNotationPres.mli
index 04411df2b3d2e5ed394d04f33c74ac1ae5d05ace..1d06d19baccbeeace181a2a761bbef4f5a3298e5 100644 (file)
--- a/helm/software/components/content_pres/cicNotationPres.mli
+++ b/helm/software/components/content_pres/cicNotationPres.mli
@@ -36,8 +36,10 @@ val box_of_mpres: mathml_markup -> boxml_markup
 (** {2 Rendering} *)
 
 (** level 1 -> level 0
- * @param ids_to_uris mapping id -> uri for hyperlinking *)
-val render: (Cic.id, UriManager.uri) Hashtbl.t -> CicNotationPt.term -> markup
+ * @param ids_to_uris mapping id -> uri for hyperlinking
+ * @param prec precedence level *)
+val render:
+ (Cic.id, UriManager.uri) Hashtbl.t -> ?prec:int -> CicNotationPt.term -> markup
 
 (** level 0 -> xml stream *)
 val print_xml: markup -> Xml.token Stream.t