1 /* This file is part of Pazpar2.
2 Copyright (C) 2006-2012 Index Data
4 Pazpar2 is free software; you can redistribute it and/or modify it under
5 the terms of the GNU General Public License as published by the Free
6 Software Foundation; either version 2, or (at your option) any later
9 Pazpar2 is distributed in the hope that it will be useful, but WITHOUT ANY
10 WARRANTY; without even the implied warranty of MERCHANTABILITY or
11 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
22 #include <yaz/yaz-util.h>
29 #include "normalize_record.h"
31 #include "pazpar2_config.h"
32 #include "service_xslt.h"
34 #include <libxslt/xslt.h>
35 #include <libxslt/transform.h>
37 struct normalize_step {
38 struct normalize_step *next;
39 xsltStylesheet *stylesheet; /* created by normalize_record */
40 xsltStylesheet *stylesheet2; /* external stylesheet (service) */
41 struct marcmap *marcmap;
44 struct normalize_record_s {
45 struct normalize_step *steps;
49 normalize_record_t normalize_record_create(struct conf_service *service,
50 const char *spec, int embed)
52 NMEM nmem = nmem_create();
53 normalize_record_t nt = nmem_malloc(nmem, sizeof(*nt));
54 struct normalize_step **m = &nt->steps;
61 xmlDoc *xsp_doc = xmlParseMemory(spec, strlen(spec));
66 *m = nmem_malloc(nt->nmem, sizeof(**m));
68 (*m)->stylesheet = NULL;
69 (*m)->stylesheet2 = NULL;
72 (*m)->stylesheet = xsltParseStylesheetDoc(xsp_doc);
73 if (!(*m)->stylesheet)
80 struct conf_config *conf = service->server->config;
83 nmem_strsplit(nt->nmem, ",", spec, &stylesheets, &num);
85 for (i = 0; i < num; i++)
87 WRBUF fname = conf_get_fname(conf, stylesheets[i]);
89 *m = nmem_malloc(nt->nmem, sizeof(**m));
91 (*m)->stylesheet = NULL;
93 (*m)->stylesheet2 = service_xslt_get(service, stylesheets[i]);
94 if ((*m)->stylesheet2)
96 else if (!strcmp(&stylesheets[i][strlen(stylesheets[i])-4], ".xsl"))
98 if (!((*m)->stylesheet =
99 xsltParseStylesheetFile((xmlChar *) wrbuf_cstr(fname))))
101 yaz_log(YLOG_FATAL|YLOG_ERRNO, "Unable to load stylesheet: %s",
106 else if (!strcmp(&stylesheets[i][strlen(stylesheets[i])-5], ".mmap"))
108 if (!((*m)->marcmap = marcmap_load(wrbuf_cstr(fname), nt->nmem)))
110 yaz_log(YLOG_FATAL|YLOG_ERRNO, "Unable to load marcmap: %s",
117 yaz_log(YLOG_FATAL, "Cannot handle stylesheet: %s", stylesheets[i]);
121 wrbuf_destroy(fname);
125 *m = 0; /* terminate list of steps */
129 normalize_record_destroy(nt);
135 void normalize_record_destroy(normalize_record_t nt)
139 struct normalize_step *m;
140 for (m = nt->steps; m; m = m->next)
143 xsltFreeStylesheet(m->stylesheet);
145 nmem_destroy(nt->nmem);
149 int normalize_record_transform(normalize_record_t nt, xmlDoc **doc,
154 struct normalize_step *m;
155 for (m = nt->steps; m; m = m->next)
160 ndoc = xsltApplyStylesheet(m->stylesheet, *doc, parms);
161 else if (m->stylesheet2)
162 ndoc = xsltApplyStylesheet(m->stylesheet2, *doc, parms);
164 ndoc = marcmap_apply(m->marcmap, *doc);
171 root = xmlDocGetRootElement(ndoc);
173 if (ndoc && root && root->children)
189 * c-file-style: "Stroustrup"
190 * indent-tabs-mode: nil
192 * vim: shiftwidth=4 tabstop=8 expandtab