2 * Copyright (c) 2002-2003, Index Data.
3 * See the file LICENSE for details.
5 * $Id: srw.c,v 1.2 2003-02-14 18:49:24 adam Exp $
11 #include <libxml/parser.h>
12 #include <libxml/tree.h>
14 static void add_xsd_string_n(xmlNodePtr ptr, const char *elem, char *val,
19 xmlNodePtr c = xmlNewChild(ptr, 0, elem, 0);
20 xmlNodePtr t = xmlNewTextLen(val, len);
25 static void add_xsd_string(xmlNodePtr ptr, const char *elem, char *val)
28 xmlNewChild(ptr, 0, elem, val);
31 static void add_xsd_integer(xmlNodePtr ptr, const char *elem, int *val)
36 sprintf(str, "%d", *val);
37 xmlNewChild(ptr, 0, elem, str);
41 static int match_element(xmlNodePtr ptr, const char *elem)
43 if (ptr->type == XML_ELEMENT_NODE && !strcmp(ptr->name, elem))
48 static int match_xsd_string_n(xmlNodePtr ptr, const char *elem, ODR o,
51 struct _xmlAttr *attr;
52 if (!match_element(ptr, elem))
54 for (attr = ptr->properties; attr; attr = attr->next)
55 if (!strcmp(attr->name, "type") &&
56 attr->children && attr->children->type == XML_TEXT_NODE)
58 const char *t = strchr(attr->children->content, ':');
62 t = attr->children->content;
63 if (!strcmp(t, "string"))
69 if (!ptr || ptr->type != XML_TEXT_NODE)
71 *val = odr_strdup(o, ptr->content);
73 *len = strlen(ptr->content);
78 static int match_xsd_string(xmlNodePtr ptr, const char *elem, ODR o,
81 return match_xsd_string_n(ptr, elem, o, val, 0);
84 static int match_xsd_integer(xmlNodePtr ptr, const char *elem, ODR o, int **val)
86 struct _xmlAttr *attr;
87 if (!match_element(ptr, elem))
89 for (attr = ptr->properties; attr; attr = attr->next)
90 if (!strcmp(attr->name, "type") &&
91 attr->children && attr->children->type == XML_TEXT_NODE)
93 const char *t = strchr(attr->children->content, ':');
97 t = attr->children->content;
98 if (!strcmp(t, "integer"))
104 if (!ptr || ptr->type != XML_TEXT_NODE)
106 *val = odr_intdup(o, atoi(ptr->content));
110 static int yaz_srw_records(ODR o, xmlNodePtr pptr, Z_SRW_record **recs,
111 int *num, void *client_data, const char *ns)
113 if (o->direction == ODR_DECODE)
118 for (ptr = pptr->children; ptr; ptr = ptr->next)
120 if (ptr->type == XML_ELEMENT_NODE &&
121 !strcmp(ptr->name, "record"))
126 *recs = odr_malloc(o, *num * sizeof(**recs));
127 for (i = 0, ptr = pptr->children; ptr; ptr = ptr->next, i++)
129 if (ptr->type == XML_ELEMENT_NODE &&
130 !strcmp(ptr->name, "record"))
133 (*recs)[i].recordSchema = 0;
134 (*recs)[i].recordData_buf = 0;
135 (*recs)[i].recordData_len = 0;
136 (*recs)[i].recordPosition = 0;
137 for (rptr = ptr->children; rptr; rptr = rptr->next)
139 if (match_xsd_string(rptr, "recordSchema", o,
140 &(*recs)[i].recordSchema))
142 else if (match_xsd_string_n(rptr, "recordData", o,
143 &(*recs)[i].recordData_buf,
144 &(*recs)[i].recordData_len))
146 else if (match_xsd_integer(rptr, "recordPosition", o,
147 &(*recs)[i].recordPosition))
153 else if (o->direction == ODR_ENCODE)
156 for (i = 0; i < *num; i++)
158 xmlNodePtr rptr = xmlNewChild(pptr, 0, "record", 0);
159 add_xsd_string(rptr, "recordSchema", (*recs)[i].recordSchema);
160 add_xsd_string_n(rptr, "recordData", (*recs)[i].recordData_buf,
161 (*recs)[i].recordData_len);
162 add_xsd_integer(rptr, "recordPosition", (*recs)[i].recordPosition);
168 static int yaz_srw_diagnostics(ODR o, xmlNodePtr pptr, Z_SRW_diagnostic **recs,
169 int *num, void *client_data, const char *ns)
171 if (o->direction == ODR_DECODE)
176 for (ptr = pptr->children; ptr; ptr = ptr->next)
178 if (ptr->type == XML_ELEMENT_NODE &&
179 !strcmp(ptr->name, "diagnostic"))
184 *recs = odr_malloc(o, *num * sizeof(**recs));
185 for (i = 0, ptr = pptr->children; ptr; ptr = ptr->next, i++)
187 if (ptr->type == XML_ELEMENT_NODE &&
188 !strcmp(ptr->name, "diagnostic"))
192 (*recs)[i].details = 0;
193 for (rptr = ptr->children; rptr; rptr = rptr->next)
195 if (match_xsd_integer(rptr, "code", o,
198 else if (match_xsd_string(rptr, "details", o,
199 &(*recs)[i].details))
206 else if (o->direction == ODR_ENCODE)
209 for (i = 0; i < *num; i++)
211 xmlNodePtr rptr = xmlNewChild(pptr, 0, "diagnostic", 0);
212 add_xsd_integer(rptr, "code", (*recs)[i].code);
213 add_xsd_string(rptr, "details", (*recs)[i].details);
220 int yaz_srw_codec(ODR o, void * vptr, Z_SRW_searchRetrieve **handler_data,
221 void *client_data, const char *ns)
223 xmlNodePtr pptr = vptr;
224 if (o->direction == ODR_DECODE)
226 xmlNodePtr method = pptr->children;
228 while (method && method->type == XML_TEXT_NODE)
229 method = method->next;
231 if (method->type != XML_ELEMENT_NODE)
233 if (method && !strcmp(method->name, "searchRetrieveRequest"))
235 Z_SRW_searchRetrieve **p = handler_data;
236 xmlNodePtr ptr = method->children;
237 Z_SRW_searchRetrieveRequest *req;
239 *p = odr_malloc(o, sizeof(**p));
240 (*p)->which = Z_SRW_searchRetrieve_request;
241 req = (*p)->u.request = odr_malloc(o, sizeof(*req));
246 req->startRecord = 0;
247 req->maximumRecords = 0;
248 req->recordSchema = 0;
249 req->recordPacking = 0;
251 for (; ptr; ptr = ptr->next)
253 if (match_xsd_string(ptr, "query", o,
256 else if (match_xsd_string(ptr, "pQuery", o,
259 else if (match_xsd_string(ptr, "sortKeys", o,
262 else if (match_xsd_string(ptr, "recordSchema", o,
265 else if (match_xsd_string(ptr, "recordPacking", o,
266 &req->recordPacking))
268 else if (match_xsd_integer(ptr, "startRecord", o,
271 else if (match_xsd_integer(ptr, "maximumRecords", o,
272 &req->maximumRecords))
274 /* missing is xQuery, xSortKeys .. */
277 else if (method && !strcmp(method->name, "searchRetrieveResponse"))
279 Z_SRW_searchRetrieve **p = handler_data;
280 xmlNodePtr ptr = method->children;
281 Z_SRW_searchRetrieveResponse *res;
283 *p = odr_malloc(o, sizeof(**p));
284 (*p)->which = Z_SRW_searchRetrieve_response;
285 res = (*p)->u.response = odr_malloc(o, sizeof(*res));
287 res->numberOfRecords = 0;
288 res->resultSetId = 0;
289 res->resultSetIdleTime = 0;
291 res->num_records = 0;
292 res->diagnostics = 0;
293 res->num_diagnostics = 0;
294 res->nextRecordPosition = 0;
296 for (; ptr; ptr = ptr->next)
298 if (match_xsd_integer(ptr, "numberOfRecords", o,
299 &res->numberOfRecords))
301 else if (match_xsd_string(ptr, "resultSetId", o,
304 else if (match_xsd_integer(ptr, "resultSetIdleTime", o,
305 &res->resultSetIdleTime))
307 else if (match_element(ptr, "records"))
308 yaz_srw_records(o, ptr, &res->records,
309 &res->num_records, client_data,
311 else if (match_element(ptr, "diagnostics"))
312 yaz_srw_diagnostics(o, ptr, &res->diagnostics,
313 &res->num_diagnostics,
315 else if (match_xsd_integer(ptr, "nextRecordPosition", o,
316 &res->nextRecordPosition))
325 else if (o->direction == ODR_ENCODE)
327 Z_SRW_searchRetrieve **p = handler_data;
328 if ((*p)->which == Z_SRW_searchRetrieve_request)
330 Z_SRW_searchRetrieveRequest *req = (*p)->u.request;
331 xmlNsPtr ns_srw = xmlNewNs(pptr, ns, "zs");
332 xmlNodePtr ptr = xmlNewChild(pptr, ns_srw,
333 "searchRetrieveRequest", 0);
335 add_xsd_string(ptr, "query", req->query);
336 add_xsd_string(ptr, "pQuery", req->pQuery);
337 add_xsd_string(ptr, "sortKeys", req->sortKeys);
338 add_xsd_integer(ptr, "startRecord", req->startRecord);
339 add_xsd_integer(ptr, "maximumRecords", req->maximumRecords);
340 add_xsd_string(ptr, "recordSchema", req->recordSchema);
341 add_xsd_string(ptr, "recordPacking", req->recordPacking);
343 else if ((*p)->which == Z_SRW_searchRetrieve_response)
345 Z_SRW_searchRetrieveResponse *res = (*p)->u.response;
346 xmlNsPtr ns_srw = xmlNewNs(pptr, ns, "zs");
347 xmlNodePtr ptr = xmlNewChild(pptr, ns_srw,
348 "searchRetrieveResponse", 0);
350 add_xsd_integer(ptr, "numberOfRecords", res->numberOfRecords);
351 add_xsd_string(ptr, "resultSetId", res->resultSetId);
352 add_xsd_integer(ptr, "resultSetIdleTime", res->resultSetIdleTime);
353 if (res->num_records)
355 xmlNodePtr rptr = xmlNewChild(ptr, 0, "records", 0);
356 yaz_srw_records(o, rptr, &res->records, &res->num_records,
359 if (res->num_diagnostics)
361 xmlNodePtr rptr = xmlNewChild(ptr, 0, "diagnostics", 0);
362 yaz_srw_diagnostics(o, rptr, &res->diagnostics,
363 &res->num_diagnostics, client_data, ns);
365 add_xsd_integer(ptr, "nextRecordPosition", res->nextRecordPosition);
374 Z_SRW_searchRetrieve *yaz_srw_get(ODR o, int which)
376 Z_SRW_searchRetrieve *sr = odr_malloc(o, sizeof(*o));
380 case Z_SRW_searchRetrieve_request:
381 sr->u.request = odr_malloc(o, sizeof(*sr->u.request));
382 sr->u.request->query = 0;
383 sr->u.request->xQuery = 0;
384 sr->u.request->pQuery = 0;
385 sr->u.request->sortKeys = 0;
386 sr->u.request->xSortKeys = 0;
387 sr->u.request->startRecord = 0;
388 sr->u.request->maximumRecords = 0;
389 sr->u.request->recordSchema = 0;
390 sr->u.request->recordPacking = 0;
392 case Z_SRW_searchRetrieve_response:
393 sr->u.response = odr_malloc(o, sizeof(*sr->u.response));
394 sr->u.response->numberOfRecords = 0;
395 sr->u.response->resultSetId = 0;
396 sr->u.response->resultSetIdleTime = 0;
397 sr->u.response->records = 0;
398 sr->u.response->num_records = 0;
399 sr->u.response->diagnostics = 0;
400 sr->u.response->num_diagnostics = 0;
401 sr->u.response->nextRecordPosition = 0;