+treeNode XMLTree::TaggedDescOnly(treeNode x,TagType *desctags, unsigned int dtlen)\r
+{\r
+\r
+ treeNode res,y;\r
+ if (isleaf(Par,x))\r
+ return NULLT;\r
+ \r
+ res=NULLT;\r
+ for (unsigned int i = 0; i < dtlen; i ++ )\r
+ {\r
+ y = TaggedDesc(x,desctags[i]);\r
+ res = (res == NULLT) || (( res != NULLT) && (y =! NULLT) && y < res) ? y : res;\r
+ \r
+ };\r
+ \r
+ return res;\r
+ \r
+}\r
+\r
+\r
+treeNode XMLTree::TaggedBelow(treeNode x, TagType *childtags, unsigned int ctlen,\r
+ TagType *desctags, unsigned int dtlen)\r
+{\r
+ treeNode fs,y,res;\r
+ TagType tag;\r
+\r
+ if (isleaf(Par,x))\r
+ return NULLT;\r
+ \r
+ res = NULLT;\r
+ fs = first_child(Par,x);\r
+ while (fs != NULLT) {\r
+ tag = get_field(tags_fix,tags_blen,node2tagpos(fs));\r
+ \r
+ /* Check for first_child */\r
+ for (unsigned int i = 0; i < ctlen; i++) {\r
+ if (childtags[i] == tag)\r
+ return fs;\r
+ };\r
+ \r
+ for (unsigned int i = 0; i < dtlen; i++)\r
+ if (desctags[i] == tag)\r
+ return fs; \r
+ \r
+ /* check in the descendants */\r
+ res = NULLT;\r
+ for (unsigned int i = 0; i < dtlen; i ++ ){\r
+ /* maybe inline by hand */\r
+ y = TaggedDesc(fs,desctags[i]);\r
+ res = (res==NULLT || (y != NULLT) &&(y < res)) ? y : res; \r
+ };\r
+ if (res != NULLT)\r
+ return res;\r
+ \r
+ fs = next_sibling(Par,fs);\r
+ };\r
+ return res;\r
+ \r
+}\r
+treeNode XMLTree::TaggedFollOnly(treeNode x,TagType *folltags, unsigned int ftlen,treeNode root)\r
+{\r
+\r
+ treeNode res,y,lim;\r
+ lim = find_close(Par,root); \r
+ res=NULLT;\r
+ for (unsigned int i = 0; i < ftlen; i ++ )\r
+ {\r
+ y = TaggedFoll(x,folltags[i]);\r
+ res = (res == NULLT) || (( res != NULLT) && (y =! NULLT) && y < res) ? y : res;\r
+ \r
+ };\r
+ \r
+ return res < lim ? res : NULLT;\r
+ \r
+}\r
+\r
+treeNode XMLTree::TaggedDescOrFollOnly(treeNode x,TagType *folltags, unsigned int ftlen,treeNode root)\r
+{\r
+\r
+ treeNode res,y,lim;\r
+ int r,s;\r
+ lim = find_close(Par,root); \r
+ res=NULLT;\r
+ for (unsigned int i = 0; i < ftlen; i ++ )\r
+ {\r
+\r
+ r = (int) Tags->rank(folltags[i], node2tagpos(x));\r
+ s = (int) Tags->select(folltags[i], r+1);\r
+ if (s == -1) \r
+ y = NULLT; // there is no such node\r
+ else {\r
+ y = tagpos2node(s); \r
+ if (y >= lim)\r
+ y = NULLT;\r
+ };\r
+ res = (res == NULLT) || (( res != NULLT) && (y =! NULLT) && y < res) ? y : res;\r
+ \r
+ };\r
+ \r
+ return res < lim ? res : NULLT;\r
+ \r
+}\r
+\r
+\r