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,
52 NMEM nmem = nmem_create();
53 normalize_record_t nt = nmem_malloc(nmem, sizeof(*nt));
54 struct normalize_step **m = &nt->steps;
58 struct conf_config *conf = service->server->config;
62 nmem_strsplit(nt->nmem, ",", spec, &stylesheets, &num);
63 for (i = 0; i < num; i++)
65 WRBUF fname = conf_get_fname(conf, stylesheets[i]);
67 *m = nmem_malloc(nt->nmem, sizeof(**m));
69 (*m)->stylesheet = NULL;
71 (*m)->stylesheet2 = service_xslt_get(service, stylesheets[i]);
72 if ((*m)->stylesheet2)
74 else if (!strcmp(&stylesheets[i][strlen(stylesheets[i])-4], ".xsl"))
76 if (!((*m)->stylesheet =
77 xsltParseStylesheetFile((xmlChar *) wrbuf_cstr(fname))))
79 yaz_log(YLOG_FATAL|YLOG_ERRNO, "Unable to load stylesheet: %s",
84 else if (!strcmp(&stylesheets[i][strlen(stylesheets[i])-5], ".mmap"))
86 if (!((*m)->marcmap = marcmap_load(wrbuf_cstr(fname), nt->nmem)))
88 yaz_log(YLOG_FATAL|YLOG_ERRNO, "Unable to load marcmap: %s",
95 yaz_log(YLOG_FATAL, "Cannot handle stylesheet: %s", stylesheets[i]);
102 *m = 0; /* terminate list of steps */
106 normalize_record_destroy(nt);
112 void normalize_record_destroy(normalize_record_t nt)
116 struct normalize_step *m;
117 for (m = nt->steps; m; m = m->next)
120 xsltFreeStylesheet(m->stylesheet);
122 nmem_destroy(nt->nmem);
126 int normalize_record_transform(normalize_record_t nt, xmlDoc **doc,
131 struct normalize_step *m;
132 for (m = nt->steps; m; m = m->next)
137 ndoc = xsltApplyStylesheet(m->stylesheet, *doc, parms);
138 else if (m->stylesheet2)
139 ndoc = xsltApplyStylesheet(m->stylesheet2, *doc, parms);
141 ndoc = marcmap_apply(m->marcmap, *doc);
148 root = xmlDocGetRootElement(ndoc);
150 if (ndoc && root && root->children)
166 * c-file-style: "Stroustrup"
167 * indent-tabs-mode: nil
169 * vim: shiftwidth=4 tabstop=8 expandtab