\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
+IFDEF OBJECTS THEN
+
type och = string -> unit
type attr = string * string
val position: int -> attr
+val depth: int -> attr
+
val uri: Entity.uri -> attr
-val level: Level.status -> Level.level -> attr
+val restricted: bool -> attr
-val name: Entity.node_attrs -> attr
+val layer: Layer.status -> Layer.layer -> attr
-val apix: Entity.node_attrs -> attr
+val name: Entity.bind_attrs -> attr
+
+val main: Entity.arity -> attr list
-val degr: Entity.node_attrs -> attr
+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