+ odr_reset(p->odr);
+
+ p->list = 0;
+ p->list_p = &p->list;
+}
+
+/** \brief parse retrieval XML config */
+static int conf_retrieval(yaz_retrieval_t p, const xmlNode *ptr)
+{
+
+ struct _xmlAttr *attr;
+ struct yaz_retrieval_elem *el = (struct yaz_retrieval_elem *)
+ nmem_malloc(p->nmem, sizeof(*el));
+
+ el->syntax = 0;
+ el->identifier = 0;
+ el->name = 0;
+ el->backend_name = 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_string_to_oid_odr(
+ yaz_oid_std(),
+ CLASS_RECSYN,
+ (const char *) attr->children->content,
+ p->odr);
+ if (!el->syntax)
+ {
+ wrbuf_printf(p->wr_error, "Element <retrieval>: "
+ " unknown attribute value 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 "name") &&
+ attr->children && attr->children->type == XML_TEXT_NODE)
+ el->name =
+ nmem_strdup(p->nmem, (const char *) attr->children->content);
+ else
+ {
+ wrbuf_printf(p->wr_error, "Element <retrieval>: "
+ " expected attributes 'syntax', identifier' or "
+ "'name', got '%s'", attr->name);
+ return -1;
+ }
+ }
+
+ if (!el->syntax)
+ {
+ wrbuf_printf(p->wr_error, "Missing 'syntax' attribute");
+ return -1;
+ }
+
+ /* parsing backend element */
+
+ el->record_conv = 0; /* OK to have no 'backend' sub content */
+ for (ptr = ptr->children; ptr; ptr = ptr->next)
+ {
+ if (ptr->type != XML_ELEMENT_NODE)
+ continue;
+ if (strcmp((const char *) ptr->name, "backend")){
+ wrbuf_printf(p->wr_error, "Element <retrieval>: expected"
+ " zero or one element <backend>, got <%s>",
+ (const char *) ptr->name);
+ return -1;
+ }
+
+ else {
+
+ /* parsing attributees */
+ struct _xmlAttr *attr;
+ for (attr = ptr->properties; attr; attr = attr->next){
+
+ if (!xmlStrcmp(attr->name, BAD_CAST "name")
+ && attr->children
+ && attr->children->type == XML_TEXT_NODE)
+ el->backend_name
+ = nmem_strdup(p->nmem,
+ (const char *) attr->children->content);
+
+ else if (!xmlStrcmp(attr->name, BAD_CAST "syntax")
+ && attr->children
+ && attr->children->type == XML_TEXT_NODE){
+ el->backend_syntax
+ = yaz_string_to_oid_odr(
+ yaz_oid_std(),
+ CLASS_RECSYN,
+ (const char *) attr->children->content,
+ p->odr);
+ if (!el->backend_syntax){
+ wrbuf_printf(p->wr_error,
+ "Element <backend syntax='%s'>: "
+ "attribute 'syntax' has invalid "
+ "value '%s'",
+ attr->children->content,
+ attr->children->content);
+ return -1;
+ }
+ }
+ else {
+ wrbuf_printf(p->wr_error, "Element <backend>: expected "
+ "attributes 'syntax' or 'name, got '%s'",
+ attr->name);
+ return -1;
+ }
+ }
+
+
+ /* parsing internal of record conv */
+ 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;