module N = Layer
module E = Entity
+IFDEF OBJECTS THEN
+
(* internal functions *******************************************************)
let base = "xml"
let position i =
"position", string_of_int i
+let depth i =
+ "depth", string_of_int i
+
let uri u =
"uri", U.string_of_uri u
"layer", N.to_string st n
let main a =
- let sort, degr = a.E.n_main in
- ["main-sort", string_of_int sort;
+ let sort, degr = a.E.b_main in
+ ["main-position", string_of_int sort;
"main-degree", string_of_int degr;
]
let side a =
- let sort, degr = a.E.n_side in
- ["side-sort", string_of_int sort;
+ let sort, degr = a.E.b_side in
+ ["side-position", string_of_int sort;
"side-degree", string_of_int degr;
]
let och = open_out (path ^ ext) in
let out = output_string och in
xml out "1.0" "UTF-8"; doctype out obj_root system;
- let na = {na with E.n_name = Some (U.name_of_uri u, true)} in
- let attrs = uri u :: name na :: apix na :: meta ra :: info ra in
+ let ba = E.bind_attrs ~name:(U.name_of_uri u, true) () in
+ let attrs = uri u :: name ba :: apix na :: meta ra :: info ra in
let contents = match b with
| E.Abst w -> tag "GDec" attrs ~contents:(pp_term w)
| E.Abbr v -> tag "GDef" attrs ~contents:(pp_term v)
let attrs = [xmlns; "hierarchy", shp; "options", opts] in
tag obj_root attrs ~contents out 0;
close_out och
+
+END