X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fhelena%2Fsrc%2Fxml%2FxmlLibrary.mli;h=d6ce856bb198cbc58d45b796f3143975030ece73;hb=88977b2d546e547e23b046792fe2ad8f6ff192a4;hp=0dbfb54aa91e05c4a12d5cb7f6a7d72d0b7841be;hpb=a0c8e5f59273c09542a1b8184dd1577d8f4240d7;p=helm.git

diff --git a/helm/software/helena/src/xml/xmlLibrary.mli b/helm/software/helena/src/xml/xmlLibrary.mli
index 0dbfb54aa..d6ce856bb 100644
--- a/helm/software/helena/src/xml/xmlLibrary.mli
+++ b/helm/software/helena/src/xml/xmlLibrary.mli
@@ -9,6 +9,8 @@
      \ /   This software is distributed as is, NO WARRANTY.              
       V_______________________________________________________________ *)
 
+IFDEF OBJECTS THEN
+
 type och = string -> unit
 
 type attr = string * string
@@ -27,7 +29,7 @@ val gref: string
 
 val cast: string
 
-val appl: bool -> string
+val appl: string
 
 val proj: string
 
@@ -43,16 +45,20 @@ val depth: int -> attr
 
 val uri: Entity.uri -> attr
 
+val restricted: bool -> attr
+
 val layer: Layer.status -> Layer.layer -> attr
 
-val name: Entity.node_attrs -> attr
+val name: Entity.bind_attrs -> attr
 
-val main: Entity.node_attrs -> attr list
+val main: Entity.arity -> attr list
 
-val side: Entity.node_attrs -> attr list
+val side: Entity.arity -> attr list
 
 val apix: Entity.node_attrs -> attr
 
 val meta: Entity.root_attrs -> attr
 
 val info: Entity.root_attrs -> attr list
+
+END