+static void mk_tag_path_full(char *tag_path_full, size_t max, data1_node *n)
+{
+ size_t flen = 0;
+ data1_node *nn;
+
+ /* we have to fetch the whole path to the data tag */
+ for (nn = n; nn; nn = nn->parent)
+ {
+ if (nn->which == DATA1N_tag)
+ {
+ size_t tlen = strlen(nn->u.tag.tag);
+ if (tlen + flen > (max - 2))
+ break;
+ memcpy (tag_path_full + flen, nn->u.tag.tag, tlen);
+ flen += tlen;
+ tag_path_full[flen++] = '/';
+ }
+ else
+ if (nn->which == DATA1N_root)
+ break;
+ }
+ tag_path_full[flen] = 0;
+ yaz_log(YLOG_LOG, "mk_tag_path_full=%s", tag_path_full);
+}
+
+