update in helena

[helm.git] / helm / software / helena / src / xml / xmlLibrary.mli

diff --git a/helm/software/helena/src/xml/xmlLibrary.mli b/helm/software/helena/src/xml/xmlLibrary.mli
index 9db373c4724a76cae9f8a391833478e1eb20fc01..d6ce856bb198cbc58d45b796f3143975030ece73 100644 (file)
--- 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
@@ -17,8 +19,6 @@ type pp = och -> int -> unit
 
 val export_entity: ('term -> pp) -> 'term Entity.entity -> unit
 
-val export_csys: Ccs.csys -> unit
-
 val tag: string -> attr list -> ?contents:pp -> pp 
 
 val sort: string
@@ -41,16 +41,24 @@ val void: string
 
 val position: int -> attr
 
+val depth: int -> attr
+
 val uri: Entity.uri -> attr
 
-val level: Level.level -> attr
+val restricted: bool -> attr
+
+val layer: Layer.status -> Layer.layer -> attr
+
+val name: Entity.bind_attrs -> attr
+
+val main: Entity.arity -> attr list
 
-val name: Entity.attrs -> attr
+val side: Entity.arity -> attr list
 
-val apix: Entity.attrs -> attr
+val apix: Entity.node_attrs -> attr
 
-val mark: Entity.attrs -> attr
+val meta: Entity.root_attrs -> attr
 
-val meta: Entity.attrs -> attr
+val info: Entity.root_attrs -> attr list
 
-val info: Entity.attrs -> attr list
+END