+
+static int circulations(xmlNode *ptr, Z_CircRecord ***circp,
+ int *num, NMEM nmem)
+{
+ int i;
+ xmlNode *ptr0 = ptr;
+
+ for (i = 0; ptr; i++)
+ {
+ while (ptr && ptr->type != XML_ELEMENT_NODE)
+ ptr = ptr->next;
+ if (!ptr)
+ break;
+ if (!match_element(ptr, "circulation"))
+ return 0;
+ ptr = ptr->next;
+ }
+ *num = i;
+ *circp = (Z_CircRecord **) nmem_malloc(nmem, sizeof(**circp) * i);
+ ptr = ptr0;
+ for (i = 0; ptr; i++)
+ {
+ while (ptr && ptr->type != XML_ELEMENT_NODE)
+ ptr = ptr->next;
+ if (!ptr)
+ break;
+ if (!match_element(ptr, "circulation"))
+ return 0;
+ circulation(ptr->children, (*circp) + i, nmem);
+ ptr = ptr->next;
+ }
+ return 1;
+}
+
+static int holdingsRecord(xmlNode *ptr, Z_HoldingsRecord **r, NMEM nmem)
+{
+ Z_HoldingsAndCircData *h;
+
+ *r = (Z_HoldingsRecord *)
+ nmem_malloc(nmem, sizeof(**r));
+ (*r)->which = Z_HoldingsRecord_holdingsAndCirc;
+ h = (*r)->u.holdingsAndCirc = (Z_HoldingsAndCircData *)
+ nmem_malloc(nmem, sizeof(*h));
+
+ match_element_next(&ptr, "typeOfRecord", nmem, &h->typeOfRecord);
+ match_element_next(&ptr, "encodingLevel", nmem, &h->encodingLevel);
+ match_element_next(&ptr, "format", nmem, &h->format);
+ match_element_next(&ptr, "receiptAcqStatus", nmem, &h->receiptAcqStatus);
+ match_element_next(&ptr, "generalRetention", nmem, &h->generalRetention);
+ match_element_next(&ptr, "completeness", nmem, &h->completeness);
+ match_element_next(&ptr, "dateOfReport", nmem, &h->dateOfReport);
+ match_element_next(&ptr, "nucCode", nmem, &h->nucCode);
+ match_element_next(&ptr, "localLocation", nmem, &h->localLocation);
+ match_element_next(&ptr, "shelvingLocation", nmem, &h->shelvingLocation);
+ match_element_next(&ptr, "callNumber", nmem, &h->callNumber);
+ match_element_next(&ptr, "shelvingData", nmem, &h->shelvingData);
+ match_element_next(&ptr, "copyNumber", nmem, &h->copyNumber);
+ match_element_next(&ptr, "publicNote", nmem, &h->publicNote);
+ match_element_next(&ptr, "reproductionNote", nmem, &h->reproductionNote);
+ match_element_next(&ptr, "termsUseRepro", nmem, &h->termsUseRepro);
+ match_element_next(&ptr, "enumAndChron", nmem, &h->enumAndChron);
+
+ h->num_volumes = 0;
+ h->volumes = 0;
+ while (ptr && ptr->type != XML_ELEMENT_NODE)
+ ptr = ptr->next;
+ if (match_element(ptr, "volumes"))
+ {
+ volumes(ptr->children, &h->volumes, &h->num_volumes, nmem);
+ ptr = ptr->next;
+ }
+
+ h->num_circulationData = 0;
+ h->circulationData = 0;
+ while (ptr && ptr->type != XML_ELEMENT_NODE)
+ ptr = ptr->next;
+ if (match_element(ptr, "circulations"))
+ {
+ circulations(ptr->children, &h->circulationData,
+ &h->num_circulationData, nmem);
+ ptr = ptr->next;
+ }
+ return 1;
+}
+
+static int yaz_xml_to_opac_ptr(yaz_marc_t mt, xmlNode *ptr,
+ Z_OPACRecord **dst,
+ yaz_iconv_t cd, NMEM nmem,
+ const Odr_oid *syntax)
+{
+ int i;
+ Z_External *ext = 0;
+ Z_OPACRecord *opac;
+ xmlNode *ptr0;
+
+ if (!nmem)
+ nmem = yaz_marc_get_nmem(mt);
+ if (!match_element(ptr, "opacRecord"))
+ return 0;
+ ptr = ptr->children;
+ while (ptr && ptr->type != XML_ELEMENT_NODE)
+ ptr = ptr->next;
+ if (!match_element(ptr, "bibliographicRecord"))
+ return 0;
+ if (!bibliographicRecord(mt, ptr->children, &ext, cd, nmem, syntax))
+ return 0;
+ *dst = opac = (Z_OPACRecord *) nmem_malloc(nmem, sizeof(*opac));
+ opac->num_holdingsData = 0;
+ opac->holdingsData = 0;
+ opac->bibliographicRecord = ext;
+
+ ptr = ptr->next;
+ while (ptr && ptr->type != XML_ELEMENT_NODE)
+ ptr = ptr->next;
+ if (!match_element(ptr, "holdings"))
+ return 0;
+
+ ptr = ptr->children;
+ ptr0 = ptr;
+
+ for (i = 0; ptr; i++)
+ {
+ while (ptr && ptr->type != XML_ELEMENT_NODE)
+ ptr = ptr->next;
+ if (!ptr)
+ break;
+ if (!match_element(ptr, "holding"))
+ return 0;
+ ptr = ptr->next;
+ }
+ opac->num_holdingsData = i;
+ opac->holdingsData = (Z_HoldingsRecord **)
+ nmem_malloc(nmem, sizeof(*opac->holdingsData) * i);
+ ptr = ptr0;
+ for (i = 0; ptr; i++)
+ {
+ while (ptr && ptr->type != XML_ELEMENT_NODE)
+ ptr = ptr->next;
+ if (!ptr)
+ break;
+ if (!match_element(ptr, "holding"))
+ return 0;
+ if (!holdingsRecord(ptr->children, opac->holdingsData + i, nmem))
+ return 0;
+ ptr = ptr->next;
+ }
+ return 1;
+}
+
+int yaz_xml_to_opac(yaz_marc_t mt, const char *buf_in, size_t size_in,
+ Z_OPACRecord **dst, yaz_iconv_t cd, NMEM nmem,
+ const Odr_oid *syntax)
+{
+ xmlDocPtr doc = xmlParseMemory(buf_in, size_in);
+ int r = 0;
+ if (doc)
+ {
+ r = yaz_xml_to_opac_ptr(mt, xmlDocGetRootElement(doc), dst, cd, nmem,
+ syntax);
+ xmlFreeDoc(doc);
+ }
+ return r;
+}
+
+