X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=OCamlDriver.cpp;h=03f06d5dbe1ba42ec56fb824534e1e74c30409f7;hb=bf2b1a91300ace1e7e83bd78f868a269d86498f9;hp=21e5398577dc8dc3d2d843cb651d836709bb93f2;hpb=8e1b9299e0c8e1731db61955ef756fa92ed8c615;p=SXSI%2Fxpathcomp.git diff --git a/OCamlDriver.cpp b/OCamlDriver.cpp index 21e5398..03f06d5 100644 --- a/OCamlDriver.cpp +++ b/OCamlDriver.cpp @@ -255,13 +255,14 @@ extern "C" value caml_text_collection_count_lessthan(value tree,value str){ } static value sort_alloc_array(std::vector results, value resarray){ - std::sort(results.begin(), results.end(), docId_comp); + std::sort(results.begin(), results.end(), docId_comp); size_t s = results.size(); resarray = caml_alloc_tuple(s); for (size_t i = 0; i < s ;i++){ caml_initialize(&Field(resarray,i),Val_int(results[i])); }; - return resarray; + return resarray; + } /** @@ -790,7 +791,9 @@ int iterfcns(XMLTree* tree, treeNode node){ if (node == NULLT) return 0; else { - return 1+ iterfcns(tree,tree->NextSibling(node)) + iterfcns(tree,tree->FirstChild(node)); + int tmp = iterfcns(tree,tree->FirstElement(node)); + tmp += iterfcns(tree,tree->NextElement(node)); + return tmp+1; }; }