* Copyright (C) 2005-2006, Index Data ApS
* See the file LICENSE for details.
*
- * $Id: record_conv.c,v 1.5 2006-05-07 14:48:25 adam Exp $
+ * $Id: record_conv.c,v 1.11 2006-07-06 10:17:53 adam Exp $
*/
/**
* \file record_conv.c
#include <yaz/nmem.h>
#include <yaz/tpath.h>
-#if HAVE_XSLT
+#if YAZ_HAVE_XML2
#include <libxml/parser.h>
#include <libxml/tree.h>
#include <libxml/xinclude.h>
+#if YAZ_HAVE_XSLT
#include <libxslt/xsltutils.h>
#include <libxslt/transform.h>
+#endif
+#if YAZ_HAVE_EXSLT
+#include <libexslt/exslt.h>
+#endif
/** \brief The internal structure for yaz_record_conv_t */
struct yaz_record_conv_struct {
struct yaz_record_conv_rule {
enum YAZ_RECORD_CONV_RULE which;
union {
+#if YAZ_HAVE_XSLT
struct {
xsltStylesheetPtr xsp;
- int dummy;
} xslt;
+#endif
struct {
yaz_iconv_t iconv_t;
int input_format;
if (r->u.marc.iconv_t)
yaz_iconv_close(r->u.marc.iconv_t);
}
+#if YAZ_HAVE_XSLT
else if (r->which == YAZ_RECORD_CONV_RULE_XSLT)
{
xsltFreeStylesheet(r->u.xslt.xsp);
}
+#endif
}
wrbuf_rewind(p->wr_error);
nmem_reset(p->nmem);
p->rules = 0;
p->path = 0;
+#if YAZ_HAVE_EXSLT
+ exsltRegisterAll();
+#endif
yaz_record_conv_reset(p);
return p;
}
/** \brief parse 'xslt' conversion node */
static int conv_xslt(yaz_record_conv_t p, const xmlNode *ptr)
{
+#if YAZ_HAVE_XSLT
struct _xmlAttr *attr;
const char *stylesheet = 0;
stylesheet = (const char *) attr->children->content;
else
{
- wrbuf_printf(p->wr_error, "Bad attribute '%s'."
+ wrbuf_printf(p->wr_error, "Bad attribute '%s'"
"Expected stylesheet.", attr->name);
return -1;
}
}
}
return 0;
+#else
+ wrbuf_printf(p->wr_error, "xslt unsupported."
+ " YAZ compiled without XSLT support");
+ return -1;
+#endif
}
/** \brief parse 'marc' conversion node */
output_format = (const char *) attr->children->content;
else
{
- wrbuf_printf(p->wr_error, "Bad attribute '%s'.", attr->name);
+ wrbuf_printf(p->wr_error, "Bad attribute '%s'", attr->name);
return -1;
}
}
if (conv_xslt(p, ptr))
return -1;
}
+ else if (!strcmp((const char *) ptr->name, "exslt"))
+ {
+#if YAZ_HAVE_EXSLT
+ if (conv_xslt(p, ptr))
+ return -1;
+#else
+ wrbuf_printf(p->wr_error, "exslt unsupported."
+ " YAZ compiled without EXSLT support");
+ return -1;
+#endif
+ }
else if (!strcmp((const char *) ptr->name, "marc"))
{
if (conv_marc(p, ptr))
else
{
wrbuf_printf(p->wr_error, "Bad element '%s'."
- "Expected marc, xslt, ..", ptr->name);
+ "Expected marc, xslt, ..", ptr->name);
return -1;
}
}
wrbuf_write(record, input_record_buf, input_record_len);
for (; ret == 0 && r; r = r->next)
{
- if (r->which == YAZ_RECORD_CONV_RULE_XSLT)
- {
- xmlDocPtr doc = xmlParseMemory(wrbuf_buf(record),
- wrbuf_len(record));
- if (!doc)
- {
- wrbuf_printf(p->wr_error, "xmlParseMemory failed");
- ret = -1;
- }
- else
- {
- xmlDocPtr res = xsltApplyStylesheet(r->u.xslt.xsp, doc, 0);
- if (res)
- {
- xmlChar *out_buf;
- int out_len;
- xmlDocDumpFormatMemory (res, &out_buf, &out_len, 1);
-
- wrbuf_rewind(record);
- wrbuf_write(record, (const char *) out_buf, out_len);
-
- xmlFree(out_buf);
- xmlFreeDoc(res);
- }
- else
- {
- wrbuf_printf(p->wr_error, "xsltApplyStylesheet faailed");
- ret = -1;
- }
- xmlFreeDoc(doc);
- }
- }
- else if (r->which == YAZ_RECORD_CONV_RULE_MARC)
+ if (r->which == YAZ_RECORD_CONV_RULE_MARC)
{
yaz_marc_t mt = yaz_marc_create();
}
yaz_marc_destroy(mt);
}
+#if YAZ_HAVE_XSLT
+ else if (r->which == YAZ_RECORD_CONV_RULE_XSLT)
+ {
+ xmlDocPtr doc = xmlParseMemory(wrbuf_buf(record),
+ wrbuf_len(record));
+ if (!doc)
+ {
+ wrbuf_printf(p->wr_error, "xmlParseMemory failed");
+ ret = -1;
+ }
+ else
+ {
+ xmlDocPtr res = xsltApplyStylesheet(r->u.xslt.xsp, doc, 0);
+ if (res)
+ {
+ xmlChar *out_buf = 0;
+ int out_len;
+
+#if YAZ_HAVE_XSLTSAVERESULTTOSTRING
+ xsltSaveResultToString(&out_buf, &out_len, res,
+ r->u.xslt.xsp);
+#else
+ xmlDocDumpFormatMemory (res, &out_buf, &out_len, 1);
+#endif
+ if (!out_buf)
+ {
+ wrbuf_printf(p->wr_error,
+ "xsltSaveResultToString failed");
+ ret = -1;
+ }
+ else
+ {
+ wrbuf_rewind(record);
+ wrbuf_write(record, (const char *) out_buf, out_len);
+
+ xmlFree(out_buf);
+ }
+ xmlFreeDoc(res);
+ }
+ else
+ {
+ wrbuf_printf(p->wr_error, "xsltApplyStylesheet failed");
+ ret = -1;
+ }
+ xmlFreeDoc(doc);
+ }
+ }
+#endif
}
return ret;
}