+extern "C" CAMLprim value caml_text_collection_unsorted_contains(value tree,value str){
+ CAMLparam2(tree,str);
+ uchar * cstr = (uchar *) String_val(str);
+ std::vector<DocID> results;
+ start_clock();
+ results = XMLTREE(tree)->Contains(cstr);
+ double d = stop_clock();
+ std::cerr << "Internal timing " << d <<" ms\n";
+ CAMLreturn (Val_unit);
+}