X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=retrieval%2Fd1_read.c;h=6ff74457ec7d554e023e71b32fb3df194a637e32;hb=37b3d8433b89248def810d7cfa9b110893519f65;hp=e73f946e2a9d71b3f7b65327ef63a3a8333957d1;hpb=d9ee01635f03f9095a66f71b73580560d48798e8;p=yaz-moved-to-github.git

diff --git a/retrieval/d1_read.c b/retrieval/d1_read.c
index e73f946..6ff7445 100644
--- a/retrieval/d1_read.c
+++ b/retrieval/d1_read.c
@@ -4,7 +4,15 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: d1_read.c,v $
- * Revision 1.30  1999-11-30 13:47:12  adam
+ * Revision 1.32  2000-01-06 11:25:59  adam
+ * Added case to prevent warning.
+ *
+ * Revision 1.31  1999/12/21 14:16:20  ian
+ * Changed retrieval module to allow data1 trees with no associated absyn.
+ * Also added a simple interface for extracting values from data1 trees using
+ * a string based tagpath.
+ *
+ * Revision 1.30  1999/11/30 13:47:12  adam
  * Improved installation. Moved header files to include/yaz.
  *
  * Revision 1.29  1999/10/21 12:06:29  adam
@@ -371,9 +379,8 @@ data1_node *data1_read_nodex (data1_handle dh, NMEM m,
 	    {
 		if (!(absyn = data1_get_absyn (dh, tag)))
 		{
-		    yaz_log(LOG_WARN, "Unable to acquire abstract syntax "
-			    "for '%s'", tag);
-		    return 0;
+		    yaz_log(LOG_WARN, "Unable to acquire abstract syntax " "for '%s'", tag); 
+                    /* It's now OK for a record not to have an absyn */
 		}
 		res = data1_mk_node (dh, m);
 		res->which = DATA1N_root;
@@ -539,7 +546,7 @@ data1_node *data1_read_node (data1_handle dh, const char **buf, NMEM m)
     WRBUF wrbuf = wrbuf_alloc();
     data1_node *node;
 
-    node = data1_read_nodex(dh, m, getc_mem, buf, wrbuf);
+    node = data1_read_nodex(dh, m, getc_mem, (void *) (buf), wrbuf);
     wrbuf_free (wrbuf, 1);
     return node;
 }