X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=retrieval%2Fd1_prtree.c;h=6f0441218b5eeb484e6b4322e9a4a305ded93671;hb=080575c92b35597c3beb394c23d2a1d22532bbdc;hp=2165168e53ed5d9b01f14ac9c284a4e7a17247fe;hpb=d9ee01635f03f9095a66f71b73580560d48798e8;p=yaz-moved-to-github.git

diff --git a/retrieval/d1_prtree.c b/retrieval/d1_prtree.c
index 2165168..6f04412 100644
--- a/retrieval/d1_prtree.c
+++ b/retrieval/d1_prtree.c
@@ -1,29 +1,9 @@
 /*
- * Copyright (c) 1995-1999, Index Data.
+ * Copyright (c) 1995-2002, Index Data.
  * See the file LICENSE for details.
  * Sebastian Hammer, Adam Dickmeiss
  *
- * $Log: d1_prtree.c,v $
- * Revision 1.6  1999-11-30 13:47:12  adam
- * Improved installation. Moved header files to include/yaz.
- *
- * Revision 1.5  1999/01/25 13:49:47  adam
- * Made data1_pr_tree make better printing of data1 buffers.
- *
- * Revision 1.4  1998/05/18 13:07:06  adam
- * Changed the way attribute sets are handled by the retriaval module.
- * Extended Explain conversion / schema.
- * Modified server and client to work with ASN.1 compiled protocol handlers.
- *
- * Revision 1.3  1998/02/27 14:05:34  adam
- * Added printing of integer nodes.
- *
- * Revision 1.2  1997/11/06 11:36:44  adam
- * Implemented variant match on simple elements -data1 tree and Espec-1.
- *
- * Revision 1.1  1997/10/27 14:04:07  adam
- * New debug utility, data1_pr_tree, that dumps a data1 tree.
- *
+ * $Id: d1_prtree.c,v 1.8 2002-05-13 14:13:37 adam Exp $
  */
 
 #include <yaz/log.h>
@@ -47,11 +27,19 @@ static void pr_tree (data1_handle dh, data1_node *n, FILE *out, int level)
     fprintf (out, "%*s", level, "");
     switch (n->which)
     {
-     case DATA1N_root:
-         fprintf (out, "root abstract syntax=%s\n", n->u.root.type);
-         break;
+    case DATA1N_root:
+        fprintf (out, "root abstract syntax=%s\n", n->u.root.type);
+        break;
     case DATA1N_tag:
 	fprintf (out, "tag type=%s\n", n->u.tag.tag);
+        if (n->u.tag.attributes)
+        {
+            data1_xattr *xattr = n->u.tag.attributes;
+            fprintf (out, "%*s attr", level, "");
+            for (; xattr; xattr = xattr->next)
+                fprintf (out, " %s=%s ", xattr->name, xattr->value);
+            fprintf (out, "\n");
+        }
 	break;
     case DATA1N_data:
 	fprintf (out, "data type=");