PostgreSQL Source Code git master
Functions
xslt_proc.c File Reference
#include "postgres.h"
#include "fmgr.h"
#include "utils/builtins.h"
#include "utils/xml.h"
#include "varatt.h"
Include dependency graph for xslt_proc.c:

Go to the source code of this file.

Functions

  PG_FUNCTION_INFO_V1 (xslt_process)
 
Datum  xslt_process (PG_FUNCTION_ARGS)
 

Function Documentation

◆ PG_FUNCTION_INFO_V1()

PG_FUNCTION_INFO_V1 ( xslt_process  )

◆ xslt_process()

Datum xslt_process ( PG_FUNCTION_ARGS  )

Definition at line 46 of file xslt_proc.c.

47{
48#ifdef USE_LIBXSLT
49
50 text *doct = PG_GETARG_TEXT_PP(0);
51 text *ssheet = PG_GETARG_TEXT_PP(1);
52 text *volatile result = NULL;
53 text *paramstr;
54 const char **params;
55 PgXmlErrorContext *xmlerrcxt;
56 volatile xsltStylesheetPtr stylesheet = NULL;
57 volatile xmlDocPtr doctree = NULL;
58 volatile xmlDocPtr restree = NULL;
59 volatile xsltSecurityPrefsPtr xslt_sec_prefs = NULL;
60 volatile xsltTransformContextPtr xslt_ctxt = NULL;
61 volatile int resstat = -1;
62 xmlChar *volatile resstr = NULL;
63
64 if (fcinfo->nargs == 3)
65 {
66 paramstr = PG_GETARG_TEXT_PP(2);
67 params = parse_params(paramstr);
68 }
69 else
70 {
71 /* No parameters */
72 params = (const char **) palloc(sizeof(char *));
73 params[0] = NULL;
74 }
75
76 /* Setup parser */
78
79 PG_TRY();
80 {
81 xmlDocPtr ssdoc;
82 bool xslt_sec_prefs_error;
83 int reslen = 0;
84
85 /* Parse document */
86 doctree = xmlReadMemory((char *) VARDATA_ANY(doct),
87 VARSIZE_ANY_EXHDR(doct), NULL, NULL,
88 XML_PARSE_NOENT);
89
90 if (doctree == NULL || pg_xml_error_occurred(xmlerrcxt))
91 xml_ereport(xmlerrcxt, ERROR, ERRCODE_INVALID_XML_DOCUMENT,
92 "error parsing XML document");
93
94 /* Same for stylesheet */
95 ssdoc = xmlReadMemory((char *) VARDATA_ANY(ssheet),
96 VARSIZE_ANY_EXHDR(ssheet), NULL, NULL,
97 XML_PARSE_NOENT);
98
99 if (ssdoc == NULL || pg_xml_error_occurred(xmlerrcxt))
100 xml_ereport(xmlerrcxt, ERROR, ERRCODE_INVALID_XML_DOCUMENT,
101 "error parsing stylesheet as XML document");
102
103 /* After this call we need not free ssdoc separately */
104 stylesheet = xsltParseStylesheetDoc(ssdoc);
105
106 if (stylesheet == NULL || pg_xml_error_occurred(xmlerrcxt))
107 xml_ereport(xmlerrcxt, ERROR, ERRCODE_INVALID_ARGUMENT_FOR_XQUERY,
108 "failed to parse stylesheet");
109
110 xslt_ctxt = xsltNewTransformContext(stylesheet, doctree);
111
112 xslt_sec_prefs_error = false;
113 if ((xslt_sec_prefs = xsltNewSecurityPrefs()) == NULL)
114 xslt_sec_prefs_error = true;
115
116 if (xsltSetSecurityPrefs(xslt_sec_prefs, XSLT_SECPREF_READ_FILE,
117 xsltSecurityForbid) != 0)
118 xslt_sec_prefs_error = true;
119 if (xsltSetSecurityPrefs(xslt_sec_prefs, XSLT_SECPREF_WRITE_FILE,
120 xsltSecurityForbid) != 0)
121 xslt_sec_prefs_error = true;
122 if (xsltSetSecurityPrefs(xslt_sec_prefs, XSLT_SECPREF_CREATE_DIRECTORY,
123 xsltSecurityForbid) != 0)
124 xslt_sec_prefs_error = true;
125 if (xsltSetSecurityPrefs(xslt_sec_prefs, XSLT_SECPREF_READ_NETWORK,
126 xsltSecurityForbid) != 0)
127 xslt_sec_prefs_error = true;
128 if (xsltSetSecurityPrefs(xslt_sec_prefs, XSLT_SECPREF_WRITE_NETWORK,
129 xsltSecurityForbid) != 0)
130 xslt_sec_prefs_error = true;
131 if (xsltSetCtxtSecurityPrefs(xslt_sec_prefs, xslt_ctxt) != 0)
132 xslt_sec_prefs_error = true;
133
134 if (xslt_sec_prefs_error)
136 (errmsg("could not set libxslt security preferences")));
137
138 restree = xsltApplyStylesheetUser(stylesheet, doctree, params,
139 NULL, NULL, xslt_ctxt);
140
141 if (restree == NULL || pg_xml_error_occurred(xmlerrcxt))
142 xml_ereport(xmlerrcxt, ERROR, ERRCODE_INVALID_ARGUMENT_FOR_XQUERY,
143 "failed to apply stylesheet");
144
145 resstat = xsltSaveResultToString((xmlChar **) &resstr, &reslen,
146 restree, stylesheet);
147
148 if (resstat >= 0)
149 result = cstring_to_text_with_len((char *) resstr, reslen);
150 }
151 PG_CATCH();
152 {
153 if (restree != NULL)
154 xmlFreeDoc(restree);
155 if (xslt_ctxt != NULL)
156 xsltFreeTransformContext(xslt_ctxt);
157 if (xslt_sec_prefs != NULL)
158 xsltFreeSecurityPrefs(xslt_sec_prefs);
159 if (stylesheet != NULL)
160 xsltFreeStylesheet(stylesheet);
161 if (doctree != NULL)
162 xmlFreeDoc(doctree);
163 if (resstr != NULL)
164 xmlFree(resstr);
165 xsltCleanupGlobals();
166
167 pg_xml_done(xmlerrcxt, true);
168
169 PG_RE_THROW();
170 }
171 PG_END_TRY();
172
173 xmlFreeDoc(restree);
174 xsltFreeTransformContext(xslt_ctxt);
175 xsltFreeSecurityPrefs(xslt_sec_prefs);
176 xsltFreeStylesheet(stylesheet);
177 xmlFreeDoc(doctree);
178 xsltCleanupGlobals();
179
180 if (resstr)
181 xmlFree(resstr);
182
183 pg_xml_done(xmlerrcxt, false);
184
185 /* XXX this is pretty dubious, really ought to throw error instead */
186 if (resstat < 0)
188
189 PG_RETURN_TEXT_P(result);
190#else /* !USE_LIBXSLT */
191
193 (errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
194 errmsg("xslt_process() is not available without libxslt")));
196#endif /* USE_LIBXSLT */
197}
int errcode(int sqlerrcode)
Definition: elog.c:854
int errmsg(const char *fmt,...)
Definition: elog.c:1071
#define PG_RE_THROW()
Definition: elog.h:405
#define PG_TRY(...)
Definition: elog.h:372
#define PG_END_TRY(...)
Definition: elog.h:397
#define ERROR
Definition: elog.h:39
#define PG_CATCH(...)
Definition: elog.h:382
#define ereport(elevel,...)
Definition: elog.h:150
#define PG_GETARG_TEXT_PP(n)
Definition: fmgr.h:309
#define PG_RETURN_NULL()
Definition: fmgr.h:345
#define PG_RETURN_TEXT_P(x)
Definition: fmgr.h:372
void * palloc(Size size)
Definition: mcxt.c:1365
Definition: c.h:692
static Size VARSIZE_ANY_EXHDR(const void *PTR)
Definition: varatt.h:472
static char * VARDATA_ANY(const void *PTR)
Definition: varatt.h:486
text * cstring_to_text_with_len(const char *s, int len)
Definition: varlena.c:193
struct PgXmlErrorContext PgXmlErrorContext
Definition: xml.h:48
void xml_ereport(PgXmlErrorContext *errcxt, int level, int sqlcode, const char *msg)
bool pg_xml_error_occurred(PgXmlErrorContext *errcxt)
void pg_xml_done(PgXmlErrorContext *errcxt, bool isError)
@ PG_XML_STRICTNESS_LEGACY
Definition: xml.h:41
PgXmlErrorContext * pgxml_parser_init(PgXmlStrictness strictness)
Definition: xpath.c:67

References cstring_to_text_with_len(), ereport, errcode(), errmsg(), ERROR, palloc(), PG_CATCH, PG_END_TRY, PG_GETARG_TEXT_PP, PG_RE_THROW, PG_RETURN_NULL, PG_RETURN_TEXT_P, PG_TRY, pg_xml_done(), pg_xml_error_occurred(), PG_XML_STRICTNESS_LEGACY, pgxml_parser_init(), VARDATA_ANY(), VARSIZE_ANY_EXHDR(), and xml_ereport().

AltStyle によって変換されたページ (->オリジナル) /