* Copyright (c) 2000-2004, Index Data
* See the file LICENSE for details.
*
- * $Id: zoom-c.c,v 1.22 2004-01-27 21:22:44 adam Exp $
+ * $Id: zoom-c.c,v 1.24 2004-02-14 15:58:42 adam Exp $
*
* ZOOM layer for C, connections, result sets, queries.
*/
xfree (c->addinfo);
c->addinfo = 0;
c->error = error;
- if (c->diagset && strcmp(dset, c->diagset))
+ if (!c->diagset || strcmp(dset, c->diagset))
{
xfree(c->diagset);
c->diagset = xstrdup(dset);
s->z_query->which = Z_Query_type_1;
s->z_query->u.type_1 = p_query_rpn(s->odr, PROTO_Z3950, str);
if (!s->z_query->u.type_1)
+ {
+ s->z_query = 0;
return -1;
+ }
return 0;
}
ZOOM_options_get(c->options, "implementationName"),
odr_prepend(c->odr_out, "ZOOM-C", ireq->implementationName));
- version = odr_strdup(c->odr_out, "$Revision: 1.22 $");
+ version = odr_strdup(c->odr_out, "$Revision: 1.24 $");
if (strlen(version) > 10) /* check for unexpanded CVS strings */
version[strlen(version)-2] = '\0';
ireq->implementationVersion = odr_prepend(c->odr_out,
/* prepare query for the search request */
search_req->query = r->query->z_query;
+ if (!search_req->query)
+ {
+ set_ZOOM_error(c, ZOOM_ERROR_INVALID_QUERY, 0);
+ return zoom_complete;
+ }
search_req->databaseNames =
set_DatabaseNames (c, r->options, &search_req->num_databaseNames);
}
if (res->num_diagnostics > 0)
{
- const char *code = res->diagnostics[0].code;
- if (code)
+ const char *uri = res->diagnostics[0].uri;
+ if (uri)
{
- int code_int = 0;
+ int code = 0;
const char *cp;
- if ((cp = strrchr(code, '/')))
- code_int = atoi(cp+1);
- set_dset_error(c, code_int, code,
+ if ((cp = strrchr(uri, '/')))
+ code = atoi(cp+1);
+ set_dset_error(c, code, uri,
res->diagnostics[0].details, 0);
}
}
return "Unsupported protocol";
case ZOOM_ERROR_UNSUPPORTED_QUERY:
return "Unsupported query type";
+ case ZOOM_ERROR_INVALID_QUERY:
+ return "Invalid query";
default:
return diagbib1_str (error);
}