X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=retrieval%2Fd1_read.c;h=8ff1563c5be3985fbb0048e974f09c37bc5fd5ed;hp=289a7514e47ed58eade509961b298c25c9a411e3;hb=82780038a8dfa288d03d6e9c8ef9df5f4e67fbfe;hpb=8f3b80611e6f01ee8ef66fb8c57f2370497459eb

diff --git a/retrieval/d1_read.c b/retrieval/d1_read.c
index 289a751..8ff1563 100644
--- a/retrieval/d1_read.c
+++ b/retrieval/d1_read.c
@@ -4,7 +4,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: d1_read.c,v $
- * Revision 1.34  2000-12-05 10:06:23  adam
+ * Revision 1.35  2000-12-05 14:44:25  adam
+ * Readers skips <! ...> sections.
+ *
+ * Revision 1.34  2000/12/05 10:06:23  adam
  * Added support for null-data rules like <tag/>.
  *
  * Revision 1.33  2000/11/29 14:22:47  adam
@@ -429,6 +432,14 @@ data1_node *data1_read_nodex (data1_handle dh, NMEM m,
 		end_tag = 1;
 		c = (*get_byte)(fh);
 	    }
+	    else if (c == '!')  /* tags/comments that we don't deal with yet */
+	    {
+		while (c && c != '>')
+		    c = (*get_byte)(fh);
+		if (c)
+		    c = (*get_byte)(fh);
+		continue;
+	    }
 	    while (c && c != '>' && c != '/' && !d1_isspace(c))
 	    {
 		if (i < (sizeof(tag)-1))