translate : pool -> t -> t
}
+let dummy_fun =function _ -> failwith "Tag.ml Uninitialized tag structure"
+
+
+
+
external null_pool : unit -> pool = "caml_xml_tree_nullt"
external null_tag : unit -> t = "caml_xml_tree_nullt"
external register_tag : pool -> string -> t = "caml_xml_tree_register_tag"