then doing the merge-sort-join on them.
so lextest now called with 3 arguments as in
lextest.native t.xml a b
tree = XMLTREE(vtree);
tag = TAG(vtag);
tag2 = TAG(vtag2);
tree = XMLTREE(vtree);
tag = TAG(vtag);
tag2 = TAG(vtag2);
//Uncomment the following and comment the failwith line
//LEXINDEX(vindex) = ... return a lex_index* ....
if ((tag==-1) || (tag2==-1)) caml_failwith("<INVALID TAG>");
//Uncomment the following and comment the failwith line
//LEXINDEX(vindex) = ... return a lex_index* ....
if ((tag==-1) || (tag2==-1)) caml_failwith("<INVALID TAG>");
preorderTraverse(0, tree->first_child(tree->ROOT));
sort(myvector.begin(), myvector.end(), myfunction);
sort(myvector2.begin(), myvector2.end(), myfunction);
preorderTraverse(0, tree->first_child(tree->ROOT));
sort(myvector.begin(), myvector.end(), myfunction);
sort(myvector2.begin(), myvector2.end(), myfunction);
lex_index* index = LEXINDEX(vindex);
//Print the index to the terminal
lex_index* index = LEXINDEX(vindex);
//Print the index to the terminal
caml_failwith("print_lex_index not implemented");
caml_failwith("print_lex_index not implemented");