2 * Copyright (c) 2002-2003, Index Data.
3 * See the file LICENSE for details.
5 * $Id: srw.c,v 1.9 2003-12-30 00:16:24 adam Exp $
11 #include <libxml/parser.h>
12 #include <libxml/tree.h>
14 static void add_XML_n(xmlNodePtr ptr, const char *elem, char *val, int len)
18 xmlDocPtr doc = xmlParseMemory(val,len);
21 xmlNodePtr c = xmlNewChild(ptr, 0, elem, 0);
22 xmlNodePtr t = xmlDocGetRootElement(doc);
23 xmlAddChild(c, xmlCopyNode(t,1));
29 xmlNodePtr add_xsd_string_n(xmlNodePtr ptr, const char *elem, char *val,
34 xmlNodePtr c = xmlNewChild(ptr, 0, elem, 0);
35 xmlNodePtr t = xmlNewTextLen(val, len);
42 xmlNodePtr add_xsd_string(xmlNodePtr ptr, const char *elem, char *val)
45 return xmlNewChild(ptr, 0, elem, val);
49 static void add_xsd_integer(xmlNodePtr ptr, const char *elem, int *val)
54 sprintf(str, "%d", *val);
55 xmlNewChild(ptr, 0, elem, str);
59 static int match_element(xmlNodePtr ptr, const char *elem)
61 if (ptr->type == XML_ELEMENT_NODE && !strcmp(ptr->name, elem))
68 static int match_xsd_string_n(xmlNodePtr ptr, const char *elem, ODR o,
72 struct _xmlAttr *attr;
74 if (!match_element(ptr, elem))
77 for (attr = ptr->properties; attr; attr = attr->next)
78 if (!strcmp(attr->name, "type") &&
79 attr->children && attr->children->type == XML_TEXT_NODE)
81 const char *t = strchr(attr->children->content, ':');
85 t = attr->children->content;
86 if (!strcmp(t, "string"))
93 if (!ptr || ptr->type != XML_TEXT_NODE)
95 *val = odr_strdup(o, ptr->content);
97 *len = strlen(ptr->content);
102 static int match_xsd_string(xmlNodePtr ptr, const char *elem, ODR o,
105 return match_xsd_string_n(ptr, elem, o, val, 0);
108 static int match_xsd_XML_n(xmlNodePtr ptr, const char *elem, ODR o,
109 char **val, int *len)
113 if (!match_element(ptr, elem))
118 buf = xmlBufferCreate();
120 xmlNodeDump(buf, ptr->doc, ptr, 0, 0);
122 *val = odr_malloc(o, buf->use+1);
123 memcpy (*val, buf->content, buf->use);
124 (*val)[buf->use] = '\0';
135 static int match_xsd_integer(xmlNodePtr ptr, const char *elem, ODR o, int **val)
138 struct _xmlAttr *attr;
140 if (!match_element(ptr, elem))
143 for (attr = ptr->properties; attr; attr = attr->next)
144 if (!strcmp(attr->name, "type") &&
145 attr->children && attr->children->type == XML_TEXT_NODE)
147 const char *t = strchr(attr->children->content, ':');
151 t = attr->children->content;
152 if (!strcmp(t, "integer"))
159 if (!ptr || ptr->type != XML_TEXT_NODE)
161 *val = odr_intdup(o, atoi(ptr->content));
165 static int yaz_srw_record(ODR o, xmlNodePtr pptr, Z_SRW_record *rec,
166 void *client_data, const char *ns)
168 if (o->direction == ODR_DECODE)
170 int pack = Z_SRW_recordPacking_string;
172 rec->recordSchema = 0;
173 rec->recordData_buf = 0;
174 rec->recordData_len = 0;
175 rec->recordPosition = 0;
176 for (ptr = pptr->children; ptr; ptr = ptr->next)
180 if (match_xsd_string(ptr, "recordSchema", o,
183 else if (match_xsd_string(ptr, "recordPacking", o, &spack))
185 if (pack && !strcmp(spack, "xml"))
186 pack = Z_SRW_recordPacking_XML;
187 if (pack && !strcmp(spack, "string"))
188 pack = Z_SRW_recordPacking_string;
190 else if (match_xsd_integer(ptr, "recordPosition", o,
191 &rec->recordPosition))
195 if (pack == Z_SRW_recordPacking_XML)
196 match_xsd_XML_n(ptr, "recordData", o,
197 &rec->recordData_buf,
198 &rec->recordData_len);
199 if (pack == Z_SRW_recordPacking_string)
200 match_xsd_string_n(ptr, "recordData", o,
201 &rec->recordData_buf,
202 &rec->recordData_len);
205 rec->recordPacking = pack;
207 else if (o->direction == ODR_ENCODE)
209 xmlNodePtr ptr = pptr;
210 add_xsd_string(ptr, "recordSchema", rec->recordSchema);
211 switch(rec->recordPacking)
213 case Z_SRW_recordPacking_string:
214 add_xsd_string(ptr, "recordPacking", "string");
215 add_xsd_string_n(ptr, "recordData", rec->recordData_buf,
216 rec->recordData_len);
218 case Z_SRW_recordPacking_XML:
219 add_xsd_string(ptr, "recordPacking", "xml");
220 add_XML_n(ptr, "recordData", rec->recordData_buf,
221 rec->recordData_len);
224 add_xsd_integer(ptr, "recordPosition", rec->recordPosition);
229 static int yaz_srw_records(ODR o, xmlNodePtr pptr, Z_SRW_record **recs,
230 int *num, void *client_data, const char *ns)
232 if (o->direction == ODR_DECODE)
237 for (ptr = pptr->children; ptr; ptr = ptr->next)
239 if (ptr->type == XML_ELEMENT_NODE &&
240 !strcmp(ptr->name, "record"))
245 *recs = odr_malloc(o, *num * sizeof(**recs));
246 for (i = 0, ptr = pptr->children; ptr; ptr = ptr->next, i++)
248 if (ptr->type == XML_ELEMENT_NODE &&
249 !strcmp(ptr->name, "record"))
250 yaz_srw_record(o, ptr, (*recs)+i, client_data, ns);
253 else if (o->direction == ODR_ENCODE)
256 for (i = 0; i < *num; i++)
258 xmlNodePtr rptr = xmlNewChild(pptr, 0, "record", 0);
259 yaz_srw_record(o, rptr, (*recs)+i, client_data, ns);
265 static int yaz_srw_diagnostics(ODR o, xmlNodePtr pptr, Z_SRW_diagnostic **recs,
266 int *num, void *client_data, const char *ns)
268 if (o->direction == ODR_DECODE)
273 for (ptr = pptr->children; ptr; ptr = ptr->next)
275 if (ptr->type == XML_ELEMENT_NODE &&
276 !strcmp(ptr->name, "diagnostic"))
281 *recs = odr_malloc(o, *num * sizeof(**recs));
282 for (i = 0, ptr = pptr->children; ptr; ptr = ptr->next, i++)
284 if (ptr->type == XML_ELEMENT_NODE &&
285 !strcmp(ptr->name, "diagnostic"))
289 (*recs)[i].details = 0;
290 for (rptr = ptr->children; rptr; rptr = rptr->next)
292 if (match_xsd_integer(rptr, "code", o,
295 else if (match_xsd_string(rptr, "details", o,
296 &(*recs)[i].details))
303 else if (o->direction == ODR_ENCODE)
307 xmlNewNs(pptr, "http://www.loc.gov/zing/srw/diagnostics/", "diag");
308 for (i = 0; i < *num; i++)
310 xmlNodePtr rptr = xmlNewChild(pptr, ns_diag, "diagnostic", 0);
311 add_xsd_integer(rptr, "code", (*recs)[i].code);
312 add_xsd_string(rptr, "details", (*recs)[i].details);
318 static int yaz_srw_term(ODR o, xmlNodePtr pptr, Z_SRW_scanTerm *term,
319 void *client_data, const char *ns)
321 if (o->direction == ODR_DECODE)
325 term->numberOfRecords = 0;
326 term->displayTerm = 0;
327 for (ptr = pptr->children; ptr; ptr = ptr->next)
331 if (match_xsd_string(ptr, "value", o, &term->value))
333 else if (match_xsd_integer(ptr, "numberOfRecords", o,
334 &term->numberOfRecords))
336 else if (match_xsd_string(ptr, "displayTerm", o,
341 else if (o->direction == ODR_ENCODE)
343 xmlNodePtr ptr = pptr;
344 add_xsd_string(ptr, "value", term->value);
345 add_xsd_integer(ptr, "value", term->numberOfRecords);
346 add_xsd_string(ptr, "displayTerm", term->displayTerm);
351 static int yaz_srw_terms(ODR o, xmlNodePtr pptr, Z_SRW_scanTerm **terms,
352 int *num, void *client_data, const char *ns)
354 if (o->direction == ODR_DECODE)
359 for (ptr = pptr->children; ptr; ptr = ptr->next)
361 if (ptr->type == XML_ELEMENT_NODE &&
362 !strcmp(ptr->name, "term"))
367 *terms = odr_malloc(o, *num * sizeof(**terms));
368 for (i = 0, ptr = pptr->children; ptr; ptr = ptr->next, i++)
370 if (ptr->type == XML_ELEMENT_NODE &&
371 !strcmp(ptr->name, "term"))
372 yaz_srw_term(o, ptr, (*terms)+i, client_data, ns);
375 else if (o->direction == ODR_ENCODE)
378 for (i = 0; i < *num; i++)
380 xmlNodePtr rptr = xmlNewChild(pptr, 0, "term", 0);
381 yaz_srw_term(o, rptr, (*terms)+i, client_data, ns);
387 int yaz_srw_codec(ODR o, void * vptr, Z_SRW_PDU **handler_data,
388 void *client_data, const char *ns)
390 xmlNodePtr pptr = vptr;
391 if (o->direction == ODR_DECODE)
393 Z_SRW_PDU **p = handler_data;
394 xmlNodePtr method = pptr->children;
396 while (method && method->type == XML_TEXT_NODE)
397 method = method->next;
401 if (method->type != XML_ELEMENT_NODE)
404 *p = odr_malloc(o, sizeof(**p));
405 (*p)->srw_version = odr_strdup(o, "1.1");
407 if (!strcmp(method->name, "searchRetrieveRequest"))
409 xmlNodePtr ptr = method->children;
410 Z_SRW_searchRetrieveRequest *req;
412 (*p)->which = Z_SRW_searchRetrieve_request;
413 req = (*p)->u.request = odr_malloc(o, sizeof(*req));
414 req->query_type = Z_SRW_query_type_cql;
416 req->sort_type = Z_SRW_sort_type_none;
418 req->startRecord = 0;
419 req->maximumRecords = 0;
420 req->recordSchema = 0;
421 req->recordPacking = 0;
422 req->recordXPath = 0;
423 req->resultSetTTL = 0;
427 for (; ptr; ptr = ptr->next)
429 if (match_xsd_string(ptr, "query", o,
431 req->query_type = Z_SRW_query_type_cql;
432 else if (match_xsd_string(ptr, "pQuery", o,
434 req->query_type = Z_SRW_query_type_pqf;
435 else if (match_xsd_string(ptr, "xQuery", o,
437 req->query_type = Z_SRW_query_type_xcql;
438 else if (match_xsd_string(ptr, "sortKeys", o,
439 &req->sort.sortKeys))
440 req->sort_type = Z_SRW_sort_type_sort;
441 else if (match_xsd_string(ptr, "recordSchema", o,
444 else if (match_xsd_string(ptr, "recordPacking", o,
445 &req->recordPacking))
447 else if (match_xsd_string(ptr, "recordXPath", o,
450 else if (match_xsd_integer(ptr, "startRecord", o,
453 else if (match_xsd_integer(ptr, "maximumRecords", o,
454 &req->maximumRecords))
456 else if (match_xsd_string(ptr, "stylesheet", o,
459 else if (match_xsd_string(ptr, "database", o,
462 else if (match_xsd_string(ptr, "resultSetTTL", o,
465 else if (match_xsd_string(ptr, "version", o,
468 /* missing is xQuery, xSortKeys .. */
471 else if (!strcmp(method->name, "searchRetrieveResponse"))
473 xmlNodePtr ptr = method->children;
474 Z_SRW_searchRetrieveResponse *res;
476 (*p)->which = Z_SRW_searchRetrieve_response;
477 res = (*p)->u.response = odr_malloc(o, sizeof(*res));
479 res->numberOfRecords = 0;
480 res->resultSetId = 0;
481 res->resultSetIdleTime = 0;
483 res->num_records = 0;
484 res->diagnostics = 0;
485 res->num_diagnostics = 0;
486 res->nextRecordPosition = 0;
488 for (; ptr; ptr = ptr->next)
490 if (match_xsd_integer(ptr, "numberOfRecords", o,
491 &res->numberOfRecords))
493 else if (match_xsd_string(ptr, "resultSetId", o,
496 else if (match_xsd_integer(ptr, "resultSetIdleTime", o,
497 &res->resultSetIdleTime))
499 else if (match_element(ptr, "records"))
500 yaz_srw_records(o, ptr, &res->records,
501 &res->num_records, client_data,
503 else if (match_element(ptr, "diagnostics"))
504 yaz_srw_diagnostics(o, ptr, &res->diagnostics,
505 &res->num_diagnostics,
507 else if (match_xsd_integer(ptr, "nextRecordPosition", o,
508 &res->nextRecordPosition))
510 else if (match_xsd_string(ptr, "version", o,
515 else if (!strcmp(method->name, "explainRequest"))
517 Z_SRW_explainRequest *req;
518 xmlNodePtr ptr = method->children;
520 (*p)->which = Z_SRW_explain_request;
521 req = (*p)->u.explain_request = odr_malloc(o, sizeof(*req));
522 req->recordPacking = 0;
524 for (; ptr; ptr = ptr->next)
526 if (match_xsd_string(ptr, "database", o,
529 else if (match_xsd_string(ptr, "recordPacking", o,
530 &req->recordPacking))
532 else if (match_xsd_string(ptr, "version", o,
537 else if (!strcmp(method->name, "explainResponse"))
539 Z_SRW_explainResponse *res;
540 xmlNodePtr ptr = method->children;
542 (*p)->which = Z_SRW_explain_response;
543 res = (*p)->u.explain_response = odr_malloc(o, sizeof(*res));
544 res->diagnostics = 0;
545 res->num_diagnostics = 0;
547 for (; ptr; ptr = ptr->next)
549 if (match_element(ptr, "record"))
550 yaz_srw_record(o, ptr, &res->record, client_data, ns);
551 else if (match_xsd_string(ptr, "version", o,
554 else if (match_element(ptr, "diagnostics"))
555 yaz_srw_diagnostics(o, ptr, &res->diagnostics,
556 &res->num_diagnostics,
561 else if (!strcmp(method->name, "scanRequest"))
563 Z_SRW_scanRequest *req;
564 xmlNodePtr ptr = method->children;
566 (*p)->which = Z_SRW_scan_request;
567 req = (*p)->u.scan_request = odr_malloc(o, sizeof(*req));
571 req->responsePosition = 0;
572 req->maximumTerms = 0;
574 for (; ptr; ptr = ptr->next)
576 if (match_xsd_string(ptr, "version", o,
579 else if (match_xsd_string(ptr, "scanClause", o,
582 else if (match_xsd_string(ptr, "database", o,
585 else if (match_xsd_string(ptr, "stylesheet", o,
588 else if (match_xsd_integer(ptr, "responsePosition", o,
589 &req->responsePosition))
591 else if (match_xsd_integer(ptr, "maximumTerms", o,
596 else if (!strcmp(method->name, "scanResponse"))
598 Z_SRW_scanResponse *res;
599 xmlNodePtr ptr = method->children;
601 (*p)->which = Z_SRW_scan_response;
602 res = (*p)->u.scan_response = odr_malloc(o, sizeof(*res));
605 res->diagnostics = 0;
606 res->num_diagnostics = 0;
608 for (; ptr; ptr = ptr->next)
610 if (match_element(ptr, "terms"))
611 yaz_srw_terms(o, ptr, &res->terms,
612 &res->num_terms, client_data,
614 else if (match_element(ptr, "diagnostics"))
615 yaz_srw_diagnostics(o, ptr, &res->diagnostics,
616 &res->num_diagnostics,
618 else if (match_xsd_string(ptr, "version", o,
629 else if (o->direction == ODR_ENCODE)
631 Z_SRW_PDU **p = handler_data;
634 if ((*p)->which == Z_SRW_searchRetrieve_request)
636 Z_SRW_searchRetrieveRequest *req = (*p)->u.request;
637 xmlNodePtr ptr = xmlNewChild(pptr, 0,
638 "searchRetrieveRequest", 0);
639 ns_srw = xmlNewNs(ptr, ns, "zs");
640 xmlSetNs(ptr, ns_srw);
642 if ((*p)->srw_version)
643 add_xsd_string(ptr, "version", (*p)->srw_version);
644 switch(req->query_type)
646 case Z_SRW_query_type_cql:
647 add_xsd_string(ptr, "query", req->query.cql);
649 case Z_SRW_query_type_xcql:
650 add_xsd_string(ptr, "xQuery", req->query.xcql);
652 case Z_SRW_query_type_pqf:
653 add_xsd_string(ptr, "pQuery", req->query.pqf);
656 switch(req->sort_type)
658 case Z_SRW_sort_type_none:
660 case Z_SRW_sort_type_sort:
661 add_xsd_string(ptr, "sortKeys", req->sort.sortKeys);
663 case Z_SRW_sort_type_xSort:
664 add_xsd_string(ptr, "xSortKeys", req->sort.xSortKeys);
667 add_xsd_integer(ptr, "startRecord", req->startRecord);
668 add_xsd_integer(ptr, "maximumRecords", req->maximumRecords);
669 add_xsd_string(ptr, "recordSchema", req->recordSchema);
670 add_xsd_string(ptr, "recordPacking", req->recordPacking);
671 add_xsd_string(ptr, "recordXPath", req->recordXPath);
672 add_xsd_string(ptr, "database", req->database);
673 add_xsd_integer(ptr, "resultSetTTL", req->resultSetTTL);
674 add_xsd_string(ptr, "stylesheet", req->stylesheet);
676 else if ((*p)->which == Z_SRW_searchRetrieve_response)
678 Z_SRW_searchRetrieveResponse *res = (*p)->u.response;
679 xmlNodePtr ptr = xmlNewChild(pptr, 0,
680 "searchRetrieveResponse", 0);
681 ns_srw = xmlNewNs(ptr, ns, "zs");
682 xmlSetNs(ptr, ns_srw);
684 if ((*p)->srw_version)
685 add_xsd_string(ptr, "version", (*p)->srw_version);
686 add_xsd_integer(ptr, "numberOfRecords", res->numberOfRecords);
687 add_xsd_string(ptr, "resultSetId", res->resultSetId);
688 add_xsd_integer(ptr, "resultSetIdleTime", res->resultSetIdleTime);
689 if (res->num_records)
691 xmlNodePtr rptr = xmlNewChild(ptr, 0, "records", 0);
692 yaz_srw_records(o, rptr, &res->records, &res->num_records,
695 if (res->num_diagnostics)
697 xmlNodePtr rptr = xmlNewChild(ptr, 0, "diagnostics", 0);
698 yaz_srw_diagnostics(o, rptr, &res->diagnostics,
699 &res->num_diagnostics, client_data, ns);
701 add_xsd_integer(ptr, "nextRecordPosition", res->nextRecordPosition);
703 else if ((*p)->which == Z_SRW_explain_request)
705 xmlNodePtr ptr = xmlNewChild(pptr, 0, "explainRequest", 0);
706 ns_srw = xmlNewNs(ptr, ns, "zs");
707 xmlSetNs(ptr, ns_srw);
709 add_xsd_string(ptr, "version", (*p)->srw_version);
711 else if ((*p)->which == Z_SRW_explain_response)
713 Z_SRW_explainResponse *res = (*p)->u.explain_response;
714 xmlNodePtr ptr = xmlNewChild(pptr, 0, "explainResponse", 0);
715 ns_srw = xmlNewNs(ptr, ns, "zs");
716 xmlSetNs(ptr, ns_srw);
718 add_xsd_string(ptr, "version", (*p)->srw_version);
721 xmlNodePtr ptr1 = xmlNewChild(ptr, 0, "record", 0);
722 yaz_srw_record(o, ptr1, &res->record, client_data, ns);
724 if (res->num_diagnostics)
726 xmlNodePtr rptr = xmlNewChild(ptr, 0, "diagnostics", 0);
727 yaz_srw_diagnostics(o, rptr, &res->diagnostics,
728 &res->num_diagnostics, client_data, ns);
731 else if ((*p)->which == Z_SRW_scan_request)
733 Z_SRW_scanRequest *req = (*p)->u.scan_request;
734 xmlNodePtr ptr = xmlNewChild(pptr, 0, "scanRequest", 0);
735 ns_srw = xmlNewNs(ptr, ns, "zs");
736 xmlSetNs(ptr, ns_srw);
738 add_xsd_string(ptr, "version", (*p)->srw_version);
739 add_xsd_string(ptr, "scanClause", req->scanClause);
740 add_xsd_integer(ptr, "responsePosition", req->responsePosition);
741 add_xsd_integer(ptr, "maximumTerms", req->maximumTerms);
742 add_xsd_string(ptr, "stylesheet", req->stylesheet);
744 else if ((*p)->which == Z_SRW_scan_response)
746 Z_SRW_scanResponse *res = (*p)->u.scan_response;
747 xmlNodePtr ptr = xmlNewChild(pptr, 0, "scanResponse", 0);
748 ns_srw = xmlNewNs(ptr, ns, "zs");
749 xmlSetNs(ptr, ns_srw);
751 add_xsd_string(ptr, "version", (*p)->srw_version);
755 xmlNodePtr rptr = xmlNewChild(ptr, 0, "terms", 0);
756 yaz_srw_terms(o, rptr, &res->terms, &res->num_terms,
759 if (res->num_diagnostics)
761 xmlNodePtr rptr = xmlNewChild(ptr, 0, "diagnostics", 0);
762 yaz_srw_diagnostics(o, rptr, &res->diagnostics,
763 &res->num_diagnostics, client_data, ns);
773 Z_SRW_PDU *yaz_srw_get(ODR o, int which)
775 Z_SRW_PDU *sr = odr_malloc(o, sizeof(*o));
777 sr->srw_version = odr_strdup(o, "1.1");
781 case Z_SRW_searchRetrieve_request:
782 sr->u.request = (Z_SRW_searchRetrieveRequest *)
783 odr_malloc(o, sizeof(*sr->u.request));
784 sr->u.request->query_type = Z_SRW_query_type_cql;
785 sr->u.request->query.cql = 0;
786 sr->u.request->sort_type = Z_SRW_sort_type_none;
787 sr->u.request->sort.none = 0;
788 sr->u.request->startRecord = 0;
789 sr->u.request->maximumRecords = 0;
790 sr->u.request->recordSchema = 0;
791 sr->u.request->recordPacking = 0;
792 sr->u.request->recordXPath = 0;
793 sr->u.request->database = 0;
794 sr->u.request->resultSetTTL = 0;
795 sr->u.request->stylesheet = 0;
797 case Z_SRW_searchRetrieve_response:
798 sr->u.response = (Z_SRW_searchRetrieveResponse *)
799 odr_malloc(o, sizeof(*sr->u.response));
800 sr->u.response->numberOfRecords = 0;
801 sr->u.response->resultSetId = 0;
802 sr->u.response->resultSetIdleTime = 0;
803 sr->u.response->records = 0;
804 sr->u.response->num_records = 0;
805 sr->u.response->diagnostics = 0;
806 sr->u.response->num_diagnostics = 0;
807 sr->u.response->nextRecordPosition = 0;
809 case Z_SRW_explain_request:
810 sr->u.explain_request = (Z_SRW_explainRequest *)
811 odr_malloc(o, sizeof(*sr->u.explain_request));
812 sr->u.explain_request->recordPacking = 0;
813 sr->u.explain_request->database = 0;
815 case Z_SRW_explain_response:
816 sr->u.explain_response = (Z_SRW_explainResponse *)
817 odr_malloc(o, sizeof(*sr->u.explain_response));
818 sr->u.explain_response->record.recordData_buf = 0;
819 sr->u.explain_response->record.recordData_len = 0;
820 sr->u.explain_response->record.recordSchema = 0;
821 sr->u.explain_response->record.recordPosition = 0;
822 sr->u.explain_response->record.recordPacking =
823 Z_SRW_recordPacking_string;
824 sr->u.explain_response->diagnostics = 0;
825 sr->u.explain_response->num_diagnostics = 0;
836 } yaz_srw_codes [] = {
837 {1, "Permanent system error"},
838 {2, "System temporarily unavailable"},
839 {3, "Authentication error"},
840 /* Diagnostics Relating to CQL */
841 {10, "Illegal query"},
842 {11, "Unsupported query type (XCQL vs CQL)"},
843 {12, "Too many characters in query"},
844 {13, "Unbalanced or illegal use of parentheses"},
845 {14, "Unbalanced or illegal use of quotes"},
846 {15, "Illegal or unsupported context set"},
847 {16, "Illegal or unsupported index"},
848 {17, "Illegal or unsupported combination of index and context set"},
849 {18, "Illegal or unsupported combination of indexes"},
850 {19, "Illegal or unsupported relation"},
851 {20, "Illegal or unsupported relation modifier"},
852 {21, "Illegal or unsupported combination of relation modifers"},
853 {22, "Illegal or unsupported combination of relation and index"},
854 {23, "Too many characters in term"},
855 {24, "Illegal combination of relation and term"},
856 {25, "Special characters not quoted in term"},
857 {26, "Non special character escaped in term"},
858 {27, "Empty term unsupported"},
859 {28, "Masking character not supported"},
860 {29, "Masked words too short"},
861 {30, "Too many masking characters in term"},
862 {31, "Anchoring character not supported"},
863 {32, "Anchoring character in illegal or unsupported position"},
864 {33, "Combination of proximity/adjacency and masking characters not supported"},
865 {34, "Combination of proximity/adjacency and anchoring characters not supported"},
866 {35, "Terms only exclusion (stop) words"},
867 {36, "Term in invalid format for index or relation"},
868 {37, "Illegal or unsupported boolean operator"},
869 {38, "Too many boolean operators in query"},
870 {39, "Proximity not supported"},
871 {40, "Illegal or unsupported proximity relation"},
872 {41, "Illegal or unsupported proximity distance"},
873 {42, "Illegal or unsupported proximity unit"},
874 {43, "Illegal or unsupported proximity ordering"},
875 {44, "Illegal or unsupported combination of proximity modifiers"},
876 {45, "context set name (prefix) assigned to multiple identifiers"},
877 /* Diagnostics Relating to Result Sets */
878 {50, "Result sets not supported"},
879 {51, "Result set does not exist"},
880 {52, "Result set temporarily unavailable"},
881 {53, "Result sets only supported for retrieval"},
882 {54, "Retrieval may only occur from an existing result set"},
883 {55, "Combination of result sets with search terms not supported"},
884 {56, "Only combination of single result set with search terms supported"},
885 {57, "Result set created but no records available"},
886 {58, "Result set created with unpredictable partial results available"},
887 {59, "Result set created with valid partial results available"},
888 /* Diagnostics Relating to Records */
889 {60, "Too many records retrieved"},
890 {61, "First record position out of range"},
891 {62, "Negative number of records requested"},
892 {63, "System error in retrieving records"},
893 {64, "Record temporarily unavailable"},
894 {65, "Record does not exist"},
895 {66, "Unknown schema for retrieval"},
896 {67, "Record not available in this schema"},
897 {68, "Not authorised to send record"},
898 {69, "Not authorised to send record in this schema"},
899 {70, "Record too large to send"},
900 /* Diagnostics Relating to Sorting */
901 {80, "Sort not supported"},
902 {81, "Unsupported sort type (sortKeys vs xSortKeys)"},
903 {82, "Illegal or unsupported sort sequence"},
904 {83, "Too many records"},
905 {84, "Too many sort keys"},
906 {85, "Duplicate sort keys"},
907 {86, "Incompatible record formats"},
908 {87, "Unsupported schema for sort"},
909 {88, "Unsupported tag path for sort"},
910 {89, "Tag path illegal or unsupported for schema"},
911 {90, "Illegal or unsupported direction value"},
912 {91, "Illegal or unsupported case value"},
913 {92, "Illegal or unsupported missing value action"},
914 /* Diagnostics Relating to Explain */
915 {100, "Explain not supported"},
916 {101, "Explain request type not supported (SOAP vs GET)"},
917 {102, "Explain record temporarily unavailable"},
921 const char *yaz_diag_srw_str (int code)
924 for (i = 0; yaz_srw_codes[i].code; i++)
925 if (yaz_srw_codes[i].code == code)
926 return yaz_srw_codes[i].msg;
932 static int srw_bib1_map[] = {
961 24, 63, /* bad map */
962 25, 63, /* bad map */
963 26, 63, /* bad map */
971 100, 1, /* bad map */
1019 205, 1, /* bad map */
1020 206, 1, /* bad map */
1022 208, 1, /* bad map */
1033 218, 1, /* bad map */
1034 219, 1, /* bad map */
1035 220, 1, /* bad map */
1036 221, 1, /* bad map */
1037 222, 1, /* bad map */
1038 223, 1, /* bad map */
1039 224, 1, /* bad map */
1040 225, 1, /* bad map */
1041 226, 1, /* bad map */
1043 228, 1, /* bad map */
1048 233, 1, /* bad map */
1049 234, 1, /* bad map */
1055 240, 1, /* bad map */
1056 241, 1, /* bad map */
1058 243, 1, /* bad map */
1063 1001, 1, /* bad map */
1064 1002, 1, /* bad map */
1065 1003, 1, /* bad map */
1066 1004, 1, /* bad map */
1067 1005, 1, /* bad map */
1068 1006, 1, /* bad map */
1100 int yaz_diag_bib1_to_srw (int code)
1102 const int *p = srw_bib1_map;
1112 int yaz_diag_srw_to_bib1(int code)
1114 const int *p = srw_bib1_map;