X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=src%2Frecord_conv.c;h=731fa35654e4a92ba4643962fa75d9434183c6da;hp=a272aee66f2e2e8e46f6704e209d436d9bb20be7;hb=9baecd2ded07c89696c86ab0a5ac8a324f47e779;hpb=2e8277ab9c32d32ac776f7164828ef016cf06860 diff --git a/src/record_conv.c b/src/record_conv.c index a272aee..731fa35 100644 --- a/src/record_conv.c +++ b/src/record_conv.c @@ -1,5 +1,5 @@ /* This file is part of the YAZ toolkit. - * Copyright (C) 1995-2012 Index Data + * Copyright (C) 1995-2013 Index Data * See the file LICENSE for details. */ /** @@ -57,6 +57,7 @@ struct marc_info { const char *output_charset; int input_format_mode; int output_format_mode; + const char *leader_spec; }; /** \brief tranformation info (rule info) */ @@ -97,11 +98,21 @@ void yaz_record_conv_destroy(yaz_record_conv_t p) } #if YAZ_HAVE_XSLT +struct xslt_info { + NMEM nmem; + xmlDocPtr xsp_doc; + const char **xsl_parms; +}; + static void *construct_xslt(const xmlNode *ptr, const char *path, WRBUF wr_error) { struct _xmlAttr *attr; const char *stylesheet = 0; + struct xslt_info *info = 0; + NMEM nmem = 0; + int max_parms = 10; + int no_parms = 0; if (strcmp((const char *) ptr->name, "xslt")) return 0; @@ -118,17 +129,78 @@ static void *construct_xslt(const xmlNode *ptr, return 0; } } + nmem = nmem_create(); + info = nmem_malloc(nmem, sizeof(*info)); + info->nmem = nmem; + info->xsl_parms = nmem_malloc( + nmem, (2 * max_parms + 1) * sizeof(*info->xsl_parms)); + + for (ptr = ptr->children; ptr; ptr = ptr->next) + { + const char *name = 0; + const char *value = 0; + char *qvalue = 0; + if (ptr->type != XML_ELEMENT_NODE) + continue; + if (strcmp((const char *) ptr->name, "param")) + { + wrbuf_printf(wr_error, "Bad element '%s'" + "Expected param.", ptr->name); + nmem_destroy(nmem); + return 0; + } + for (attr = ptr->properties; attr; attr = attr->next) + { + if (!xmlStrcmp(attr->name, BAD_CAST "name") && + attr->children && attr->children->type == XML_TEXT_NODE) + name = (const char *) attr->children->content; + else if (!xmlStrcmp(attr->name, BAD_CAST "value") && + attr->children && attr->children->type == XML_TEXT_NODE) + value = (const char *) attr->children->content; + else + { + wrbuf_printf(wr_error, "Bad attribute '%s'" + "Expected name or value.", attr->name); + nmem_destroy(nmem); + return 0; + } + } + if (!name || !value) + { + wrbuf_printf(wr_error, "Missing attributes name or value"); + nmem_destroy(nmem); + return 0; + } + if (no_parms >= max_parms) + { + wrbuf_printf(wr_error, "Too many parameters given"); + nmem_destroy(nmem); + return 0; + } + + qvalue = nmem_malloc(nmem, strlen(value) + 3); + strcpy(qvalue, "\'"); + strcat(qvalue, value); + strcat(qvalue, "\'"); + + info->xsl_parms[2 * no_parms] = nmem_strdup(nmem, name); + info->xsl_parms[2 * no_parms + 1] = qvalue; + no_parms++; + } + + info->xsl_parms[2 * no_parms] = '\0'; + if (!stylesheet) { wrbuf_printf(wr_error, "Element : " "attribute 'stylesheet' expected"); + nmem_destroy(nmem); return 0; } else { char fullpath[1024]; xsltStylesheetPtr xsp; - xmlDocPtr xsp_doc; if (!yaz_filepath_resolve(stylesheet, path, 0, fullpath)) { wrbuf_printf(wr_error, "Element :" @@ -136,21 +208,23 @@ static void *construct_xslt(const xmlNode *ptr, stylesheet, stylesheet); if (path) wrbuf_printf(wr_error, " with path '%s'", path); - + + nmem_destroy(nmem); return 0; } - xsp_doc = xmlParseFile(fullpath); - if (!xsp_doc) + info->xsp_doc = xmlParseFile(fullpath); + if (!info->xsp_doc) { wrbuf_printf(wr_error, "Element: :" " xml parse failed: %s", stylesheet, fullpath); if (path) wrbuf_printf(wr_error, " with path '%s'", path); + nmem_destroy(nmem); return 0; } /* need to copy this before passing it to the processor. It will be encapsulated in the xsp and destroyed by xsltFreeStylesheet */ - xsp = xsltParseStylesheetDoc(xmlCopyDoc(xsp_doc, 1)); + xsp = xsltParseStylesheetDoc(xmlCopyDoc(info->xsp_doc, 1)); if (!xsp) { wrbuf_printf(wr_error, "Element: :" @@ -159,27 +233,30 @@ static void *construct_xslt(const xmlNode *ptr, wrbuf_printf(wr_error, " with path '%s'", path); wrbuf_printf(wr_error, " (" #if YAZ_HAVE_EXSLT - + "EXSLT enabled" #else "EXSLT not supported" #endif ")"); - xmlFreeDoc(xsp_doc); + xmlFreeDoc(info->xsp_doc); + nmem_destroy(info->nmem); return 0; } else { xsltFreeStylesheet(xsp); - return xsp_doc; + return info; } } return 0; } -static int convert_xslt(void *info, WRBUF record, WRBUF wr_error) +static int convert_xslt(void *vinfo, WRBUF record, WRBUF wr_error) { int ret = 0; + struct xslt_info *info = vinfo; + xmlDocPtr doc = xmlParseMemory(wrbuf_buf(record), wrbuf_len(record)); if (!doc) @@ -189,14 +266,14 @@ static int convert_xslt(void *info, WRBUF record, WRBUF wr_error) } else { - xmlDocPtr xsp_doc = xmlCopyDoc((xmlDocPtr) info, 1); + xmlDocPtr xsp_doc = xmlCopyDoc(info->xsp_doc, 1); xsltStylesheetPtr xsp = xsltParseStylesheetDoc(xsp_doc); - xmlDocPtr res = xsltApplyStylesheet(xsp, doc, 0); + xmlDocPtr res = xsltApplyStylesheet(xsp, doc, info->xsl_parms); if (res) { xmlChar *out_buf = 0; int out_len; - + #if HAVE_XSLTSAVERESULTTOSTRING xsltSaveResultToString(&out_buf, &out_len, res, xsp); #else @@ -212,7 +289,7 @@ static int convert_xslt(void *info, WRBUF record, WRBUF wr_error) { wrbuf_rewind(record); wrbuf_write(record, (const char *) out_buf, out_len); - + xmlFree(out_buf); } xmlFreeDoc(res); @@ -228,12 +305,14 @@ static int convert_xslt(void *info, WRBUF record, WRBUF wr_error) return ret; } -static void destroy_xslt(void *info) +static void destroy_xslt(void *vinfo) { + struct xslt_info *info = vinfo; + if (info) { - xmlDocPtr xsp_doc = info; - xmlFreeDoc(xsp_doc); + xmlFreeDoc(info->xsp_doc); + nmem_destroy(info->nmem); } } @@ -261,6 +340,7 @@ static void *construct_marc(const xmlNode *ptr, info->output_charset = 0; info->input_format_mode = 0; info->output_format_mode = 0; + info->leader_spec = 0; for (attr = ptr->properties; attr; attr = attr->next) { @@ -276,11 +356,15 @@ static void *construct_marc(const xmlNode *ptr, else if (!xmlStrcmp(attr->name, BAD_CAST "outputformat") && attr->children && attr->children->type == XML_TEXT_NODE) output_format = (const char *) attr->children->content; + else if (!xmlStrcmp(attr->name, BAD_CAST "leaderspec") && + attr->children && attr->children->type == XML_TEXT_NODE) + info->leader_spec = + nmem_strdup(info->nmem,(const char *) attr->children->content); else { wrbuf_printf(wr_error, "Element : expected attributes" "'inputformat', 'inputcharset', 'outputformat' or" - " 'outputcharset', got attribute '%s'", + " 'outputcharset', got attribute '%s'", attr->name); nmem_destroy(info->nmem); return 0; @@ -301,7 +385,7 @@ static void *construct_marc(const xmlNode *ptr, { info->input_format_mode = YAZ_MARC_MARCXML; /** Libxml2 generates UTF-8 encoding by default . - So we convert from UTF-8 to outputcharset (if defined) + So we convert from UTF-8 to outputcharset (if defined) */ if (!info->input_charset && info->output_charset) info->input_charset = "utf-8"; @@ -310,15 +394,15 @@ static void *construct_marc(const xmlNode *ptr, { wrbuf_printf(wr_error, "Element : " " Unsupported input format" - " defined by attribute value", + " defined by attribute value", input_format); nmem_destroy(info->nmem); return 0; } - + if (!output_format) { - wrbuf_printf(wr_error, + wrbuf_printf(wr_error, "Element : attribute 'outputformat' required"); nmem_destroy(info->nmem); return 0; @@ -353,7 +437,7 @@ static void *construct_marc(const xmlNode *ptr, { wrbuf_printf(wr_error, "Element : " " Unsupported output format" - " defined by attribute value", + " defined by attribute value", output_format); nmem_destroy(info->nmem); return 0; @@ -364,7 +448,7 @@ static void *construct_marc(const xmlNode *ptr, info->input_charset); if (!cd) { - wrbuf_printf(wr_error, + wrbuf_printf(wr_error, "Element :" " Unsupported character set mapping" " defined by attribute values", @@ -397,12 +481,14 @@ static int convert_marc(void *info, WRBUF record, WRBUF wr_error) { struct marc_info *mi = info; int ret = 0; - + yaz_iconv_t cd = yaz_iconv_open(mi->output_charset, mi->input_charset); yaz_marc_t mt = yaz_marc_create(); - + yaz_marc_xml(mt, mi->output_format_mode); - + if (mi->leader_spec) + yaz_marc_leader_spec(mt, mi->leader_spec); + if (cd) yaz_marc_iconv(mt, cd); if (mi->input_format_mode == YAZ_MARC_ISO2709) @@ -453,7 +539,7 @@ static int convert_marc(void *info, WRBUF record, WRBUF wr_error) static void destroy_marc(void *info) { struct marc_info *mi = info; - + nmem_destroy(mi->nmem); } @@ -461,7 +547,7 @@ int yaz_record_conv_configure_t(yaz_record_conv_t p, const xmlNode *ptr, struct yaz_record_conv_type *types) { struct yaz_record_conv_type bt[2]; - + /* register marc */ bt[0].construct = construct_marc; bt[0].convert = convert_marc; @@ -477,7 +563,7 @@ int yaz_record_conv_configure_t(yaz_record_conv_t p, const xmlNode *ptr, #else bt[0].next = types; #endif - + yaz_record_conv_reset(p); /* parsing element children */ @@ -530,7 +616,7 @@ static int yaz_record_conv_record_rule(yaz_record_conv_t p, int ret = 0; WRBUF record = output_record; /* pointer transfer */ wrbuf_rewind(p->wr_error); - + wrbuf_write(record, input_record_buf, input_record_len); for (; ret == 0 && r; r = r->next) ret = r->type->convert(r->info, record, p->wr_error); @@ -553,16 +639,16 @@ int yaz_record_conv_opac_record(yaz_record_conv_t p, yaz_marc_t mt = yaz_marc_create(); yaz_iconv_t cd = yaz_iconv_open(mi->output_charset, mi->input_charset); - + wrbuf_rewind(p->wr_error); yaz_marc_xml(mt, mi->output_format_mode); - + yaz_marc_iconv(mt, cd); - + yaz_opac_decode_wrbuf(mt, input_record, res); if (ret != -1) { - ret = yaz_record_conv_record_rule(p, + ret = yaz_record_conv_record_rule(p, r->next, wrbuf_buf(res), wrbuf_len(res), output_record); @@ -606,8 +692,8 @@ yaz_record_conv_t yaz_record_conv_create() p->rules = 0; p->path = 0; #if YAZ_HAVE_EXSLT - exsltRegisterAll(); -#endif + exsltRegisterAll(); +#endif return p; }