ported to the IEEE latex8 style

[helm.git] / helm / ocaml / cic_acic / cic2Xml.ml

diff --git a/helm/ocaml/cic_acic/cic2Xml.ml b/helm/ocaml/cic_acic/cic2Xml.ml
index 5bd9fd1c9878acafebb44c093c154b1d06773c77..7e97dea6fb0b5fef93d430632c901f8e043688b7 100644 (file)
--- a/helm/ocaml/cic_acic/cic2Xml.ml
+++ b/helm/ocaml/cic_acic/cic2Xml.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 (*CSC codice cut & paste da cicPp e xmlcommand *)
 
 exception NotImplemented;;
@@ -277,8 +279,10 @@ let xml_of_attrs attributes =
     | `Record field_names ->
         Xml.xml_nempty "class" [None,"value","record"]
          (List.fold_right
-           (fun name res ->
-             [< Xml.xml_empty "field" [None,"name",name]; res >]
+           (fun (name,coercion) res ->
+             [< Xml.xml_empty "field" 
+                [None,"name",if coercion then name ^ " coercion" else name]; 
+              res >]
            ) field_names [<>])
     | `Projection -> Xml.xml_empty "class" [None,"value","projection"]
   in