module U = NUri
module UH = U.UriHash
+module G = Options
module E = Entity
let hsize = 7000
(* decps *)
let set_entity entity =
+IFDEF EXPAND THEN
+ let ra, na, uri, b = entity in
+ let entity0 = if !G.expand then ra, E.node_attrs ~apix:0 (), uri, b else entity in
+ UH.add env uri entity0; entity
+ELSE
let _, _, uri, _ = entity in
UH.add env uri entity; entity
+END
let get_entity uri =
try UH.find env uri with Not_found -> E.empty_root, E.empty_node, uri, E.Void