+
+extern "C" CAMLprim value caml_text_collection_get_cached_text(value tree, value id){
+ CAMLparam2(tree,id);
+ CAMLlocal1(str);
+ char* txt = (char*) XMLTREE(tree)->GetCachedText((DocID) Int_val(id));
+ str = caml_copy_string(txt);
+ free(txt);
+ CAMLreturn (str);
+}
+
+extern "C" CAMLprim value caml_text_collection_size(value tree){
+ CAMLparam1(tree);
+ // CAMLreturn (Val_int( XMLTREE(tree)->CachedText.size()));
+ NOT_IMPLEMENTED("text_collection_size");
+ CAMLreturn (Val_unit);
+}
+
+
+