X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=src%2Fretrieval.c;h=4c2920a0d2dbb205ec7b06faaa29403290344953;hp=cc0b09bdd4e896e47232418999a240b18b9751eb;hb=8cb8947e3a7bff4dbf8f124871cb4905df1adce7;hpb=0de95154d8512ee46d6b706fe019f8d1ffc18827 diff --git a/src/retrieval.c b/src/retrieval.c index cc0b09b..4c2920a 100644 --- a/src/retrieval.c +++ b/src/retrieval.c @@ -1,8 +1,6 @@ -/* - * Copyright (C) 2005-2006, Index Data ApS +/* This file is part of the YAZ toolkit. + * Copyright (C) Index Data * See the file LICENSE for details. - * - * $Id: retrieval.c,v 1.2 2006-05-05 18:37:08 adam Exp $ */ /** * \file retrieval.c @@ -19,17 +17,21 @@ #include #include #include +#include +#include +#include -#if HAVE_XSLT +#if YAZ_HAVE_XML2 #include #include #include -#include -#include /** \brief The internal structure for yaz_retrieval_t */ struct yaz_retrieval_struct { - /** \brief memory for configuration */ + /** \brief ODR memory for configuration */ + ODR odr; + + /** \brief odr's NMEM memory (odr->mem) */ NMEM nmem; /** \brief string buffer for error messages */ @@ -49,19 +51,20 @@ struct yaz_retrieval_struct { struct yaz_retrieval_elem { /** \brief schema identifier */ const char *identifier; - /** \brief schema short-hand (such sa "dc") */ - const char *schema; + /** \brief schema name , short-hand such as "dc" */ + const char *name; /** \brief record syntax */ - const char *syntax; - /** \brief backend schema */ - const char *backend_schema; + Odr_oid *syntax; + + /** \brief backend name */ + const char *backend_name; /** \brief backend syntax */ - const char *backend_syntax; + Odr_oid *backend_syntax; /** \brief record conversion */ yaz_record_conv_t record_conv; - /** \breif next element in list */ + /** \brief next element in list */ struct yaz_retrieval_elem *next; }; @@ -69,8 +72,9 @@ static void yaz_retrieval_reset(yaz_retrieval_t p); yaz_retrieval_t yaz_retrieval_create() { - yaz_retrieval_t p = xmalloc(sizeof(*p)); - p->nmem = nmem_create(); + yaz_retrieval_t p = (yaz_retrieval_t) xmalloc(sizeof(*p)); + p->odr = odr_createmem(ODR_ENCODE); + p->nmem = odr_getmem(p->odr); p->wr_error = wrbuf_alloc(); p->list = 0; p->path = 0; @@ -83,8 +87,8 @@ void yaz_retrieval_destroy(yaz_retrieval_t p) if (p) { yaz_retrieval_reset(p); - nmem_destroy(p->nmem); - wrbuf_free(p->wr_error, 1); + odr_destroy(p->odr); + wrbuf_destroy(p->wr_error); xfree(p->path); xfree(p); } @@ -97,23 +101,24 @@ void yaz_retrieval_reset(yaz_retrieval_t p) yaz_record_conv_destroy(el->record_conv); wrbuf_rewind(p->wr_error); - nmem_reset(p->nmem); + 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) +static int conf_retrieval(yaz_retrieval_t p, const xmlNode *ptr, + struct yaz_record_conv_type *types) { - struct _xmlAttr *attr; - struct yaz_retrieval_elem *el = nmem_malloc(p->nmem, sizeof(*el)); + struct yaz_retrieval_elem *el = (struct yaz_retrieval_elem *) + nmem_malloc(p->nmem, sizeof(*el)); el->syntax = 0; el->identifier = 0; - el->schema = 0; - el->backend_schema = 0; + el->name = 0; + el->backend_name = 0; el->backend_syntax = 0; el->next = 0; @@ -122,51 +127,130 @@ static int conf_retrieval(yaz_retrieval_t p, const xmlNode *ptr) { if (!xmlStrcmp(attr->name, BAD_CAST "syntax") && attr->children && attr->children->type == XML_TEXT_NODE) - el->syntax = - nmem_strdup(p->nmem, (const char *) attr->children->content); + { + 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 : " + " 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 "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 = + el->identifier = nmem_strdup(p->nmem, (const char *) attr->children->content); - else if (!xmlStrcmp(attr->name, BAD_CAST "backendsyntax") && + else if (!xmlStrcmp(attr->name, BAD_CAST "name") && attr->children && attr->children->type == XML_TEXT_NODE) - el->backend_syntax = + el->name = nmem_strdup(p->nmem, (const char *) attr->children->content); else { - wrbuf_printf(p->wr_error, "Bad attribute '%s'.", attr->name); + wrbuf_printf(p->wr_error, "Element : " + " expected attributes 'syntax', identifier' or " + "'name', got '%s'", attr->name); return -1; } } - 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->children)) + if (!el->syntax) { - wrbuf_printf(p->wr_error, "%s", - yaz_record_conv_get_error(el->record_conv)); - yaz_record_conv_destroy(el->record_conv); + 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 : expected" + " zero or one element , got <%s>", + (const char *) ptr->name); + return -1; + } + else + { + struct _xmlAttr *attr; + if (el->record_conv) + { + wrbuf_printf(p->wr_error, "Element : " + "only one allowed"); + yaz_record_conv_destroy(el->record_conv); + return -1; + } + /* parsing attributees */ + 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 : " + "attribute 'syntax' has invalid " + "value '%s'", + attr->children->content, + attr->children->content); + return -1; + } + } + else + { + wrbuf_printf(p->wr_error, "Element : 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_t(el->record_conv, ptr, types)) + { + 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) +int yaz_retrieval_configure_t(yaz_retrieval_t p, const xmlNode *ptr, + struct yaz_record_conv_type *types) { - const xmlNode *ptr = ptr_v; - yaz_retrieval_reset(p); if (ptr && ptr->type == XML_ELEMENT_NODE && @@ -178,36 +262,118 @@ int yaz_retrieval_configure(yaz_retrieval_t p, const void *ptr_v) continue; if (!strcmp((const char *) ptr->name, "retrieval")) { - if (conf_retrieval(p, ptr)) + if (conf_retrieval(p, ptr, types)) return -1; } else { - wrbuf_printf(p->wr_error, "Bad element '%s'." - " Expected 'retrieval'", ptr->name); + wrbuf_printf(p->wr_error, "Element : " + "expected element , got <%s>", + ptr->name); return -1; } } } else { - wrbuf_printf(p->wr_error, "Missing 'retrievalinfo' element"); + wrbuf_printf(p->wr_error, "Expected element "); return -1; } return 0; } -int yaz_retrieval_request(yaz_retrieval_t p, const char *schema, - const char *syntax, yaz_record_conv_t *rc) +int yaz_retrieval_configure(yaz_retrieval_t p, const xmlNode *ptr) +{ + return yaz_retrieval_configure_t(p, ptr, 0); +} + +int yaz_retrieval_request(yaz_retrieval_t p, + const char *schema, Odr_oid *syntax, + const char **match_schema, Odr_oid **match_syntax, + yaz_record_conv_t *rc, + const char **backend_schema, + Odr_oid **backend_syntax) { + struct yaz_retrieval_elem *el = p->list; + int syntax_matches = 0; + int schema_matches = 0; + wrbuf_rewind(p->wr_error); - wrbuf_printf(p->wr_error, "yaz_retrieval_request: not implemented"); - return -1; + if (!el) + return 0; + for(; el; el = el->next) + { + int schema_ok = 0; + int syntax_ok = 0; + + if (!schema) + schema_ok = 1; + else + { + if (el->name && yaz_match_glob(el->name, schema)) + schema_ok = 1; + if (el->identifier && !strcmp(schema, el->identifier)) + schema_ok = 1; + if (!el->name && !el->identifier) + 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; + if (el->identifier) + *match_schema = el->identifier; + else + *match_schema = 0; + if (backend_schema) + { + if (el->backend_name) + { + if (*el->backend_name) + *backend_schema = el->backend_name; + } + else if (el->name) + *backend_schema = el->name; + else + *backend_schema = schema; + } + if (backend_syntax) + { + if (el->backend_syntax) + *backend_syntax = el->backend_syntax; + else + *backend_syntax = el->syntax; + } + if (rc) + *rc = el->record_conv; + return 0; + } + } + if (!syntax_matches && syntax) + { + char buf[OID_STR_MAX]; + wrbuf_printf(p->wr_error, "%s", oid_oid_to_dotstring(syntax, buf)); + return 2; + } + if (schema) + wrbuf_printf(p->wr_error, "%s", schema); + if (!schema_matches) + return 1; + return 3; } const char *yaz_retrieval_get_error(yaz_retrieval_t p) { - return wrbuf_buf(p->wr_error); + return wrbuf_cstr(p->wr_error); } void yaz_retrieval_set_path(yaz_retrieval_t p, const char *path) @@ -223,6 +389,7 @@ void yaz_retrieval_set_path(yaz_retrieval_t p, const char *path) /* * Local variables: * c-basic-offset: 4 + * c-file-style: "Stroustrup" * indent-tabs-mode: nil * End: * vim: shiftwidth=4 tabstop=8 expandtab