* 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
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;
}
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;
* 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;