2008-05-17 05:28:26 +04:00
|
|
|
/*
|
2010-07-06 23:19:02 +04:00
|
|
|
* $PostgreSQL: pgsql/contrib/xml2/xslt_proc.c,v 1.21 2010/07/06 19:18:55 momjian Exp $
|
2008-05-17 05:28:26 +04:00
|
|
|
*
|
2009-01-07 16:44:37 +03:00
|
|
|
* XSLT processing functions (requiring libxslt)
|
|
|
|
*
|
|
|
|
* John Gray, for Torchbox 2003-04-01
|
|
|
|
*/
|
2004-03-05 06:24:50 +03:00
|
|
|
#include "postgres.h"
|
2009-01-07 16:44:37 +03:00
|
|
|
|
2004-03-05 06:24:50 +03:00
|
|
|
#include "executor/spi.h"
|
2009-01-07 16:44:37 +03:00
|
|
|
#include "fmgr.h"
|
2004-03-05 06:24:50 +03:00
|
|
|
#include "funcapi.h"
|
|
|
|
#include "miscadmin.h"
|
2009-01-07 16:44:37 +03:00
|
|
|
#include "utils/builtins.h"
|
2010-03-03 22:10:22 +03:00
|
|
|
#include "utils/xml.h"
|
2004-03-05 06:24:50 +03:00
|
|
|
|
2010-03-01 21:07:59 +03:00
|
|
|
#ifdef USE_LIBXSLT
|
|
|
|
|
2004-03-05 06:24:50 +03:00
|
|
|
/* libxml includes */
|
|
|
|
|
|
|
|
#include <libxml/xpath.h>
|
|
|
|
#include <libxml/tree.h>
|
|
|
|
#include <libxml/xmlmemory.h>
|
|
|
|
|
|
|
|
/* libxslt includes */
|
|
|
|
|
|
|
|
#include <libxslt/xslt.h>
|
|
|
|
#include <libxslt/xsltInternals.h>
|
|
|
|
#include <libxslt/transform.h>
|
|
|
|
#include <libxslt/xsltutils.h>
|
2010-07-06 23:19:02 +04:00
|
|
|
#endif /* USE_LIBXSLT */
|
2010-03-01 21:07:59 +03:00
|
|
|
|
2004-03-05 06:24:50 +03:00
|
|
|
|
2010-02-28 22:51:37 +03:00
|
|
|
/* externally accessible functions */
|
|
|
|
|
|
|
|
Datum xslt_process(PG_FUNCTION_ARGS);
|
|
|
|
|
2010-03-01 21:07:59 +03:00
|
|
|
#ifdef USE_LIBXSLT
|
|
|
|
|
2004-03-05 06:24:50 +03:00
|
|
|
/* declarations to come from xpath.c */
|
2010-02-28 22:51:37 +03:00
|
|
|
extern void pgxml_parser_init(void);
|
2004-03-05 06:24:50 +03:00
|
|
|
|
|
|
|
/* local defs */
|
|
|
|
static void parse_params(const char **params, text *paramstr);
|
|
|
|
|
2009-07-10 04:32:00 +04:00
|
|
|
#define MAXPARAMS 20 /* must be even, see parse_params() */
|
2010-07-06 23:19:02 +04:00
|
|
|
#endif /* USE_LIBXSLT */
|
2010-03-01 21:07:59 +03:00
|
|
|
|
2004-03-05 06:24:50 +03:00
|
|
|
|
|
|
|
PG_FUNCTION_INFO_V1(xslt_process);
|
|
|
|
|
2004-08-29 09:07:03 +04:00
|
|
|
Datum
|
|
|
|
xslt_process(PG_FUNCTION_ARGS)
|
|
|
|
{
|
2010-03-01 21:07:59 +03:00
|
|
|
#ifdef USE_LIBXSLT
|
|
|
|
|
2008-05-04 20:42:41 +04:00
|
|
|
text *doct = PG_GETARG_TEXT_P(0);
|
|
|
|
text *ssheet = PG_GETARG_TEXT_P(1);
|
|
|
|
text *paramstr;
|
2004-08-29 09:07:03 +04:00
|
|
|
const char *params[MAXPARAMS + 1]; /* +1 for the terminator */
|
|
|
|
xsltStylesheetPtr stylesheet = NULL;
|
|
|
|
xmlDocPtr doctree;
|
|
|
|
xmlDocPtr restree;
|
|
|
|
xmlDocPtr ssdoc = NULL;
|
|
|
|
xmlChar *resstr;
|
|
|
|
int resstat;
|
|
|
|
int reslen;
|
|
|
|
|
|
|
|
if (fcinfo->nargs == 3)
|
|
|
|
{
|
|
|
|
paramstr = PG_GETARG_TEXT_P(2);
|
|
|
|
parse_params(params, paramstr);
|
|
|
|
}
|
|
|
|
else
|
2005-10-15 06:49:52 +04:00
|
|
|
/* No parameters */
|
2004-08-29 09:07:03 +04:00
|
|
|
params[0] = NULL;
|
|
|
|
|
|
|
|
/* Setup parser */
|
|
|
|
pgxml_parser_init();
|
|
|
|
|
|
|
|
/* Check to see if document is a file or a literal */
|
|
|
|
|
|
|
|
if (VARDATA(doct)[0] == '<')
|
|
|
|
doctree = xmlParseMemory((char *) VARDATA(doct), VARSIZE(doct) - VARHDRSZ);
|
|
|
|
else
|
2008-03-26 01:42:46 +03:00
|
|
|
doctree = xmlParseFile(text_to_cstring(doct));
|
2004-08-29 09:07:03 +04:00
|
|
|
|
|
|
|
if (doctree == NULL)
|
2010-03-03 22:10:22 +03:00
|
|
|
xml_ereport(ERROR, ERRCODE_EXTERNAL_ROUTINE_EXCEPTION,
|
|
|
|
"error parsing XML document");
|
2004-08-29 09:07:03 +04:00
|
|
|
|
|
|
|
/* Same for stylesheet */
|
|
|
|
if (VARDATA(ssheet)[0] == '<')
|
2004-03-05 06:24:50 +03:00
|
|
|
{
|
2004-08-29 09:07:03 +04:00
|
|
|
ssdoc = xmlParseMemory((char *) VARDATA(ssheet),
|
|
|
|
VARSIZE(ssheet) - VARHDRSZ);
|
|
|
|
if (ssdoc == NULL)
|
|
|
|
{
|
|
|
|
xmlFreeDoc(doctree);
|
2010-03-03 22:10:22 +03:00
|
|
|
xml_ereport(ERROR, ERRCODE_EXTERNAL_ROUTINE_EXCEPTION,
|
|
|
|
"error parsing stylesheet as XML document");
|
2004-08-29 09:07:03 +04:00
|
|
|
}
|
|
|
|
|
|
|
|
stylesheet = xsltParseStylesheetDoc(ssdoc);
|
2004-03-05 06:24:50 +03:00
|
|
|
}
|
2004-08-29 09:07:03 +04:00
|
|
|
else
|
2008-03-26 01:42:46 +03:00
|
|
|
stylesheet = xsltParseStylesheetFile((xmlChar *) text_to_cstring(ssheet));
|
2004-03-05 06:24:50 +03:00
|
|
|
|
2004-08-29 09:07:03 +04:00
|
|
|
|
|
|
|
if (stylesheet == NULL)
|
|
|
|
{
|
|
|
|
xmlFreeDoc(doctree);
|
|
|
|
xsltCleanupGlobals();
|
2010-03-03 22:10:22 +03:00
|
|
|
xml_ereport(ERROR, ERRCODE_EXTERNAL_ROUTINE_EXCEPTION,
|
|
|
|
"failed to parse stylesheet");
|
2004-08-29 09:07:03 +04:00
|
|
|
}
|
|
|
|
|
|
|
|
restree = xsltApplyStylesheet(stylesheet, doctree, params);
|
|
|
|
resstat = xsltSaveResultToString(&resstr, &reslen, restree, stylesheet);
|
|
|
|
|
|
|
|
xsltFreeStylesheet(stylesheet);
|
|
|
|
xmlFreeDoc(restree);
|
|
|
|
xmlFreeDoc(doctree);
|
|
|
|
|
|
|
|
xsltCleanupGlobals();
|
|
|
|
|
|
|
|
if (resstat < 0)
|
|
|
|
PG_RETURN_NULL();
|
|
|
|
|
2008-05-08 20:49:37 +04:00
|
|
|
PG_RETURN_TEXT_P(cstring_to_text_with_len((char *) resstr, reslen));
|
2010-07-06 23:19:02 +04:00
|
|
|
#else /* !USE_LIBXSLT */
|
2010-03-01 21:07:59 +03:00
|
|
|
|
|
|
|
ereport(ERROR,
|
|
|
|
(errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
|
|
|
|
errmsg("xslt_process() is not available without libxslt")));
|
|
|
|
PG_RETURN_NULL();
|
2010-07-06 23:19:02 +04:00
|
|
|
#endif /* USE_LIBXSLT */
|
2004-03-05 06:24:50 +03:00
|
|
|
}
|
|
|
|
|
2010-03-01 21:07:59 +03:00
|
|
|
#ifdef USE_LIBXSLT
|
2004-03-05 06:24:50 +03:00
|
|
|
|
2009-07-10 04:32:00 +04:00
|
|
|
static void
|
2004-08-29 09:07:03 +04:00
|
|
|
parse_params(const char **params, text *paramstr)
|
2004-03-05 06:24:50 +03:00
|
|
|
{
|
2004-08-29 09:07:03 +04:00
|
|
|
char *pos;
|
|
|
|
char *pstr;
|
|
|
|
int i;
|
|
|
|
char *nvsep = "=";
|
|
|
|
char *itsep = ",";
|
|
|
|
|
2008-03-26 01:42:46 +03:00
|
|
|
pstr = text_to_cstring(paramstr);
|
2004-08-29 09:07:03 +04:00
|
|
|
|
|
|
|
pos = pstr;
|
|
|
|
|
|
|
|
for (i = 0; i < MAXPARAMS; i++)
|
|
|
|
{
|
|
|
|
params[i] = pos;
|
|
|
|
pos = strstr(pos, nvsep);
|
|
|
|
if (pos != NULL)
|
|
|
|
{
|
|
|
|
*pos = '\0';
|
|
|
|
pos++;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2009-07-10 04:32:00 +04:00
|
|
|
/* No equal sign, so ignore this "parameter" */
|
|
|
|
/* We'll reset params[i] to NULL below the loop */
|
2004-08-29 09:07:03 +04:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
/* Value */
|
|
|
|
i++;
|
2009-07-10 04:32:00 +04:00
|
|
|
/* since MAXPARAMS is even, we still have i < MAXPARAMS */
|
2004-08-29 09:07:03 +04:00
|
|
|
params[i] = pos;
|
|
|
|
pos = strstr(pos, itsep);
|
|
|
|
if (pos != NULL)
|
|
|
|
{
|
|
|
|
*pos = '\0';
|
|
|
|
pos++;
|
|
|
|
}
|
|
|
|
else
|
2009-07-10 04:32:00 +04:00
|
|
|
{
|
|
|
|
i++;
|
2004-08-29 09:07:03 +04:00
|
|
|
break;
|
2009-07-10 04:32:00 +04:00
|
|
|
}
|
2004-08-29 09:07:03 +04:00
|
|
|
}
|
2009-07-10 04:32:00 +04:00
|
|
|
|
|
|
|
params[i] = NULL;
|
2004-03-05 06:24:50 +03:00
|
|
|
}
|
2010-03-01 21:07:59 +03:00
|
|
|
|
2010-07-06 23:19:02 +04:00
|
|
|
#endif /* USE_LIBXSLT */
|