+
+ struct _xmlAttr *attr;
+ struct yaz_retrieval_elem *el = nmem_malloc(p->nmem, sizeof(*el));
+
+ el->syntax = 0;
+ el->identifier = 0;
+ el->schema = 0;
+ el->backend_schema = 0;
+ el->backend_syntax = 0;
+
+ el->next = 0;
+
+ for (attr = ptr->properties; attr; attr = attr->next)
+ {
+ if (!xmlStrcmp(attr->name, BAD_CAST "syntax") &&
+ attr->children && attr->children->type == XML_TEXT_NODE)
+ {
+ el->syntax = yaz_str_to_z3950oid(
+ p->odr, CLASS_RECSYN,
+ (const char *) attr->children->content);
+ if (!el->syntax)
+ {
+ wrbuf_printf(p->wr_error, "Bad syntax '%s'",
+ (const char *) attr->children->content);
+ return -1;
+ }
+ }
+ else if (!xmlStrcmp(attr->name, BAD_CAST "identifier") &&
+ attr->children && attr->children->type == XML_TEXT_NODE)
+ el->identifier =
+ nmem_strdup(p->nmem, (const char *) attr->children->content);
+ else if (!xmlStrcmp(attr->name, BAD_CAST "schema") &&
+ attr->children && attr->children->type == XML_TEXT_NODE)
+ el->schema =
+ nmem_strdup(p->nmem, (const char *) attr->children->content);
+ else if (!xmlStrcmp(attr->name, BAD_CAST "backendschema") &&
+ attr->children && attr->children->type == XML_TEXT_NODE)
+ el->backend_schema =
+ nmem_strdup(p->nmem, (const char *) attr->children->content);
+ else if (!xmlStrcmp(attr->name, BAD_CAST "backendsyntax") &&
+ attr->children && attr->children->type == XML_TEXT_NODE)
+ {
+ el->backend_syntax = yaz_str_to_z3950oid(
+ p->odr, CLASS_RECSYN,
+ (const char *) attr->children->content);
+ if (!el->backend_syntax)
+ {
+ wrbuf_printf(p->wr_error, "Bad backendsyntax '%s'",
+ (const char *) attr->children->content);
+ return -1;
+ }
+ }
+ else
+ {
+ wrbuf_printf(p->wr_error, "Bad attribute '%s'.", attr->name);
+ return -1;
+ }
+ }
+ if (!el->syntax)
+ {
+ wrbuf_printf(p->wr_error, "Missing 'syntax' attribute.", attr->name);
+ return -1;
+ }
+
+ el->record_conv = 0; /* OK to have no 'convert' sub content */
+ for (ptr = ptr->children; ptr; ptr = ptr->next)
+ {
+ if (ptr->type == XML_ELEMENT_NODE)
+ {
+ el->record_conv = yaz_record_conv_create();
+
+ yaz_record_conv_set_path(el->record_conv, p->path);
+
+ if (yaz_record_conv_configure(el->record_conv, ptr))
+ {
+ wrbuf_printf(p->wr_error, "%s",
+ yaz_record_conv_get_error(el->record_conv));
+ yaz_record_conv_destroy(el->record_conv);
+ return -1;
+ }
+ }
+ }
+
+ *p->list_p = el;
+ p->list_p = &el->next;
+ return 0;
+}
+
+int yaz_retrieval_configure(yaz_retrieval_t p, const void *ptr_v)
+{
+ const xmlNode *ptr = ptr_v;
+
+ yaz_retrieval_reset(p);
+
+ if (ptr && ptr->type == XML_ELEMENT_NODE &&
+ !strcmp((const char *) ptr->name, "retrievalinfo"))
+ {
+ for (ptr = ptr->children; ptr; ptr = ptr->next)
+ {
+ if (ptr->type != XML_ELEMENT_NODE)
+ continue;
+ if (!strcmp((const char *) ptr->name, "retrieval"))
+ {
+ if (conf_retrieval(p, ptr))
+ return -1;
+ }
+ else
+ {
+ wrbuf_printf(p->wr_error, "Bad element '%s'."
+ " Expected 'retrieval'", ptr->name);
+ return -1;
+ }
+ }
+ }
+ else
+ {
+ wrbuf_printf(p->wr_error, "Missing 'retrievalinfo' element");
+ return -1;
+ }
+ return 0;
+}
+
+int yaz_retrieval_request(yaz_retrieval_t p,
+ const char *schema, int *syntax,
+ const char **match_schema, int **match_syntax,
+ yaz_record_conv_t *rc,
+ const char **backend_schema,
+ int **backend_syntax)
+{
+ struct yaz_retrieval_elem *el = p->list;
+
+ int syntax_matches = 0;
+ int schema_matches = 0;
+ for(; el; el = el->next)
+ {
+ int schema_ok = 0;
+ int syntax_ok = 0;
+
+ if (schema && el->schema && !strcmp(schema, el->schema))
+ schema_ok = 1;
+ if (schema && el->identifier && !strcmp(schema, el->identifier))
+ schema_ok = 1;
+ if (!schema)
+ schema_ok = 1;
+
+ if (syntax && el->syntax && !oid_oidcmp(syntax, el->syntax))
+ syntax_ok = 1;
+ if (!syntax)
+ syntax_ok = 1;
+
+ if (syntax_ok)
+ syntax_matches++;
+ if (schema_ok)
+ schema_matches++;
+ if (syntax_ok && schema_ok)
+ {
+ *match_syntax = el->syntax;
+ *match_schema = el->schema;
+ if (backend_schema)
+ *backend_schema = el->backend_schema;
+ if (backend_syntax)
+ *backend_syntax = el->backend_syntax;
+ if (rc)
+ *rc = el->record_conv;
+ return 0;
+ }
+ }
+ if (syntax_matches && !schema_matches)
+ return 1;
+ if (!syntax_matches && schema_matches)
+ return 2;
+ if (!syntax_matches && !schema_matches)
+ return 3;
+ return 4;