Minor changes.

[egate.git] / zlayer-zdist / zaccess.c

diff --git a/zlayer-zdist/zaccess.c b/zlayer-zdist/zaccess.c
index ae181e7..a092b9e 100644 (file)
--- a/zlayer-zdist/zaccess.c
+++ b/zlayer-zdist/zaccess.c
@@ -47,7 +47,13 @@
  * Z39.50 API for the Email gateway
  *
  * $Log: zaccess.c,v $
- * Revision 1.1  1995/07/03 08:21:43  adam
+ * Revision 1.3  1995/07/05 11:09:06  adam
+ * Bug fix in zass_openresult.
+ *
+ * Revision 1.2  1995/07/05  10:20:44  adam
+ * Edited ZDist zlayer to use new API.
+ *
+ * Revision 1.1  1995/07/03  08:21:43  adam
  * Zdist layer moved to new sub directory.
  *
  * Revision 1.17  1995/05/16  09:41:47  adam
@@ -211,11 +217,12 @@ int zass_openresult(ZASS p, int *complete)
     p->preferredmessagesize = InitResponse_GetPreferredMessageSize(ires);
     p->maxrecordsize = InitResponse_GetExceptionalRecordSize(ires);
     InitResponse_Destroy(ires);
-    *complete = 1;
+    if (complete)
+        *complete = 1;
     return 0;
 }
 
-ZASS zass_open(char *host, int port, int *complete)
+ZASS zass_open(char *host, int port, int *complete, char *auth)
 {
     struct zass *p;
     PINITREQUEST ireq;
@@ -283,7 +290,7 @@ ZASS zass_open(char *host, int port, int *complete)
 }
 
 const struct zass_searchent *zass_search(ZASS a, struct ccl_rpn_node *query,
-    char *resname, char *databases)
+    char *resname, char *databases, int *complete)
 {
     static struct zass_searchent r;
     char kwaqs[512], *p;
@@ -474,7 +481,7 @@ static void zass_records_free(zass_record *p)
  * Note that 1== first record.
  */
 const struct zass_presentent *zass_present(ZASS a, char *resname, int start,
-    int num)
+    int num, int *complete)
 {
     static struct zass_presentent r = {0, 0, 0, 0};
     zass_record **rec = &r.records;