+// TaggedSibling(x,tag): returns the first sibling of node x tagged tag, or NULLT if there is none.\r
+treeNode TaggedFollowingSibling(treeNode x, TagType tag)\r
+{\r
+ NULLT_IF(x==NULLT);\r
+ treeNode sibling = x;\r
+ TagType ctag;\r
+ while ((sibling = fast_next_sibling(Par, sibling)) != NULLT) {\r
+ ctag = Tag(sibling);\r
+ if (ctag == tag) return sibling; \r
+ }\r
+ return NULLT; \r