module N = Layer
module E = Entity
+IFDEF OBJECTS THEN
+
(* internal functions *******************************************************)
let base = "xml"
let attrs = [xmlns; "hierarchy", shp; "options", opts] in
tag obj_root attrs ~contents out 0;
close_out och
+
+END