Improved installation. Moved header files to include/yaz.

[yaz-moved-to-github.git] / retrieval / d1_expout.c

diff --git a/retrieval/d1_expout.c b/retrieval/d1_expout.c
index 4f06357..b6e2bab 100644 (file)
--- a/retrieval/d1_expout.c
+++ b/retrieval/d1_expout.c
@@ -1,10 +1,19 @@
 /*
- * Copyright (c) 1995-1998, Index Data.
+ * Copyright (c) 1995-1999, Index Data.
  * See the file LICENSE for details.
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: d1_expout.c,v $
- * Revision 1.14  1998-06-08 14:26:41  adam
+ * Revision 1.17  1999-11-30 13:47:12  adam
+ * Improved installation. Moved header files to include/yaz.
+ *
+ * Revision 1.16  1999/08/27 09:40:32  adam
+ * Renamed logf function to yaz_log. Removed VC++ project files.
+ *
+ * Revision 1.15  1998/09/28 12:44:40  adam
+ * Fixed bug in f_integer.
+ *
+ * Revision 1.14  1998/06/08 14:26:41  adam
  * Fixed bug in f_queryTypeDetails.
  *
  * Revision 1.13  1998/06/05 08:58:48  adam
@@ -59,9 +68,9 @@
 #include <string.h>
 #include <stdlib.h>
 
-#include <log.h>
-#include <proto.h>
-#include <data1.h>
+#include <yaz/log.h>
+#include <yaz/proto.h>
+#include <yaz/data1.h>
 
 typedef struct {
     data1_handle dh;
@@ -78,12 +87,12 @@ static int is_numeric_tag (ExpHandle *eh, data1_node *c)
        return 0;
     if (!c->u.tag.element)
     {
-       logf(LOG_WARN, "Tag %s is local", c->u.tag.tag);
+       yaz_log(LOG_WARN, "Tag %s is local", c->u.tag.tag);
        return 0;
     }
     if (c->u.tag.element->tag->which != DATA1T_numeric)
     {
-       logf(LOG_WARN, "Tag %s is not numeric", c->u.tag.tag);
+       yaz_log(LOG_WARN, "Tag %s is not numeric", c->u.tag.tag);
        return 0;
     }
     if (eh->select && !c->u.tag.node_selected)
@@ -109,7 +118,7 @@ static int *f_integer(ExpHandle *eh, data1_node *c)
     if (!is_data_tag (eh, c) || c->u.data.len > 63)
        return 0;
     r = (int *)odr_malloc(eh->o, sizeof(*r));
-    sprintf(intbuf, "%.*s", 63, c->u.data.data);
+    sprintf(intbuf, "%.*s", c->u.data.len, c->u.data.data);
     *r = atoi(intbuf);
     return r;
 }
@@ -1412,7 +1421,7 @@ Z_ExplainRecord *data1_nodetoexplain (data1_handle dh, data1_node *n,
     assert(n->which == DATA1N_root);
     if (strcmp(n->u.root.type, "explain"))
     {
-       logf(LOG_WARN, "Attempt to convert a non-Explain record");
+       yaz_log(LOG_WARN, "Attempt to convert a non-Explain record");
        return 0;
     }
     for (n = n->child; n; n = n->next)
@@ -1446,6 +1455,6 @@ Z_ExplainRecord *data1_nodetoexplain (data1_handle dh, data1_node *n,
            return res;
        }
     }
-    logf(LOG_WARN, "No category in Explain record");
+    yaz_log(LOG_WARN, "No category in Explain record");
     return 0;
 }