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"
-external tag_name : pool -> t -> string = "caml_xml_tree_tag_name"
+external tag_name : pool -> t -> string = "caml_xml_tree_get_tag_name"
let nullt = null_tag ()
+let dummy = nullt
(* Defined in XMLTree.cpp *)
let document_node = 0
let attribute = 1
let pcdata = 2
let attribute_data= 3
+let document_node_close = 4
+let attribute_close = 5
+let pcdata_close = 6
+let attribute_data_close= 7
let pool = Weak.create 1