X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Ftree.ml;h=6bda2925e4e2c8e0859c95c5fc2f06e24be32b21;hb=a4b9c7188c2169eddaeabe66a5706a4ec1b6872d;hp=a8a3a96b4c68757daf7120e22f0fd565c3a16bc4;hpb=ff13d22656fdbdffb2d909192bd17ba135606224;p=SXSI%2Fxpathcomp.git

diff --git a/src/tree.ml b/src/tree.ml
index a8a3a96..6bda292 100644
--- a/src/tree.ml
+++ b/src/tree.ml
@@ -200,6 +200,9 @@ let next_sibling t n = tree_next_sibling t.doc n
 external tree_next_element : tree -> [`Tree] Node.t -> [`Tree] Node.t = "caml_xml_tree_next_element"  "noalloc"
 let next_element t n = tree_next_element t.doc n
 
+external tree_next_node_before : tree -> [`Tree] Node.t -> [`Tree] Node.t -> [`Tree] Node.t = "caml_xml_tree_next_node_before"  "noalloc"
+let next_node_before t n ctx = tree_next_node_before t.doc n ctx
+
 external tree_tagged_following_sibling : tree -> [`Tree] Node.t -> Tag.t -> [`Tree] Node.t = "caml_xml_tree_tagged_following_sibling" "noalloc"
 let tagged_following_sibling t n tag = tree_tagged_following_sibling t.doc n tag
 
@@ -591,7 +594,6 @@ let load ?(sample=64) ?(load_text=true) str =
   let c, s, d, f = time ~msg:"Loading tag table"(load_table) () in
   ignore(Unix.lseek fd (pos_in in_c) Unix.SEEK_SET);
     let xml_tree = tree_load fd str load_text sample in
-    Printf.eprintf "Root is: %i\n" (Obj.magic (tree_root xml_tree));
     let () = Tag.init (Obj.magic xml_tree) in
     let attributes = Ptset.Int.add Tag.attribute d.(Tag.attribute) in
     let elements = Ptset.Int.add Tag.document_node