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