2 * XSLTemplate/XSLProcessor support
4 * Copyright 2011 Nikolay Sivov for CodeWeavers
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
27 # include <libxml/parser.h>
28 # include <libxml/xmlerror.h>
37 #include "msxml_private.h"
39 #include "wine/debug.h"
41 WINE_DEFAULT_DEBUG_CHANNEL(msxml
);
45 typedef struct _xsltemplate
48 IXSLTemplate IXSLTemplate_iface
;
54 typedef struct _xslprocessor
57 IXSLProcessor IXSLProcessor_iface
;
60 xsltemplate
*stylesheet
;
67 static HRESULT
XSLProcessor_create(xsltemplate
*, IXSLProcessor
**);
69 static inline xsltemplate
*impl_from_IXSLTemplate( IXSLTemplate
*iface
)
71 return CONTAINING_RECORD(iface
, xsltemplate
, IXSLTemplate_iface
);
74 static inline xslprocessor
*impl_from_IXSLProcessor( IXSLProcessor
*iface
)
76 return CONTAINING_RECORD(iface
, xslprocessor
, IXSLProcessor_iface
);
79 static void xsltemplate_set_node( xsltemplate
*This
, IXMLDOMNode
*node
)
81 if (This
->node
) IXMLDOMNode_Release(This
->node
);
83 if (node
) IXMLDOMNode_AddRef(node
);
86 static HRESULT WINAPI
xsltemplate_QueryInterface(
91 xsltemplate
*This
= impl_from_IXSLTemplate( iface
);
92 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppvObject
);
94 if ( IsEqualGUID( riid
, &IID_IXSLTemplate
) ||
95 IsEqualGUID( riid
, &IID_IDispatch
) ||
96 IsEqualGUID( riid
, &IID_IUnknown
) )
100 else if (dispex_query_interface(&This
->dispex
, riid
, ppvObject
))
102 return *ppvObject
? S_OK
: E_NOINTERFACE
;
106 FIXME("Unsupported interface %s\n", debugstr_guid(riid
));
108 return E_NOINTERFACE
;
111 IUnknown_AddRef((IUnknown
*)*ppvObject
);
115 static ULONG WINAPI
xsltemplate_AddRef( IXSLTemplate
*iface
)
117 xsltemplate
*This
= impl_from_IXSLTemplate( iface
);
118 return InterlockedIncrement( &This
->ref
);
121 static ULONG WINAPI
xsltemplate_Release( IXSLTemplate
*iface
)
123 xsltemplate
*This
= impl_from_IXSLTemplate( iface
);
126 ref
= InterlockedDecrement( &This
->ref
);
129 if (This
->node
) IXMLDOMNode_Release( This
->node
);
130 release_dispex(&This
->dispex
);
137 static HRESULT WINAPI
xsltemplate_GetTypeInfoCount( IXSLTemplate
*iface
, UINT
* pctinfo
)
139 xsltemplate
*This
= impl_from_IXSLTemplate( iface
);
140 return IDispatchEx_GetTypeInfoCount(&This
->dispex
.IDispatchEx_iface
, pctinfo
);
143 static HRESULT WINAPI
xsltemplate_GetTypeInfo(
145 UINT iTInfo
, LCID lcid
,
146 ITypeInfo
** ppTInfo
)
148 xsltemplate
*This
= impl_from_IXSLTemplate( iface
);
149 return IDispatchEx_GetTypeInfo(&This
->dispex
.IDispatchEx_iface
,
150 iTInfo
, lcid
, ppTInfo
);
153 static HRESULT WINAPI
xsltemplate_GetIDsOfNames(
155 REFIID riid
, LPOLESTR
* rgszNames
,
156 UINT cNames
, LCID lcid
, DISPID
* rgDispId
)
158 xsltemplate
*This
= impl_from_IXSLTemplate( iface
);
159 return IDispatchEx_GetIDsOfNames(&This
->dispex
.IDispatchEx_iface
,
160 riid
, rgszNames
, cNames
, lcid
, rgDispId
);
163 static HRESULT WINAPI
xsltemplate_Invoke(
165 DISPID dispIdMember
, REFIID riid
, LCID lcid
,
166 WORD wFlags
, DISPPARAMS
* pDispParams
, VARIANT
* pVarResult
,
167 EXCEPINFO
* pExcepInfo
, UINT
* puArgErr
)
169 xsltemplate
*This
= impl_from_IXSLTemplate( iface
);
170 return IDispatchEx_Invoke(&This
->dispex
.IDispatchEx_iface
,
171 dispIdMember
, riid
, lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
174 static HRESULT WINAPI
xsltemplate_putref_stylesheet( IXSLTemplate
*iface
,
177 xsltemplate
*This
= impl_from_IXSLTemplate( iface
);
179 TRACE("(%p)->(%p)\n", This
, node
);
183 xsltemplate_set_node(This
, NULL
);
187 /* FIXME: test for document type */
188 xsltemplate_set_node(This
, node
);
193 static HRESULT WINAPI
xsltemplate_get_stylesheet( IXSLTemplate
*iface
,
196 xsltemplate
*This
= impl_from_IXSLTemplate( iface
);
198 FIXME("(%p)->(%p): stub\n", This
, node
);
202 static HRESULT WINAPI
xsltemplate_createProcessor( IXSLTemplate
*iface
,
203 IXSLProcessor
**processor
)
205 xsltemplate
*This
= impl_from_IXSLTemplate( iface
);
207 TRACE("(%p)->(%p)\n", This
, processor
);
209 if (!processor
) return E_INVALIDARG
;
211 return XSLProcessor_create(This
, processor
);
214 static const struct IXSLTemplateVtbl XSLTemplateVtbl
=
216 xsltemplate_QueryInterface
,
219 xsltemplate_GetTypeInfoCount
,
220 xsltemplate_GetTypeInfo
,
221 xsltemplate_GetIDsOfNames
,
224 xsltemplate_putref_stylesheet
,
225 xsltemplate_get_stylesheet
,
226 xsltemplate_createProcessor
229 static const tid_t xsltemplate_iface_tids
[] = {
234 static dispex_static_data_t xsltemplate_dispex
= {
238 xsltemplate_iface_tids
241 HRESULT
XSLTemplate_create(IUnknown
*outer
, void **ppObj
)
245 TRACE("(%p, %p)\n", outer
, ppObj
);
247 if(outer
) FIXME("support aggregation, outer\n");
249 This
= heap_alloc( sizeof (*This
) );
251 return E_OUTOFMEMORY
;
253 This
->IXSLTemplate_iface
.lpVtbl
= &XSLTemplateVtbl
;
256 init_dispex(&This
->dispex
, (IUnknown
*)&This
->IXSLTemplate_iface
, &xsltemplate_dispex
);
258 *ppObj
= &This
->IXSLTemplate_iface
;
260 TRACE("returning iface %p\n", *ppObj
);
265 /*** IXSLProcessor ***/
266 static HRESULT WINAPI
xslprocessor_QueryInterface(
267 IXSLProcessor
*iface
,
271 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
272 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppvObject
);
274 if ( IsEqualGUID( riid
, &IID_IXSLProcessor
) ||
275 IsEqualGUID( riid
, &IID_IDispatch
) ||
276 IsEqualGUID( riid
, &IID_IUnknown
) )
280 else if (dispex_query_interface(&This
->dispex
, riid
, ppvObject
))
282 return *ppvObject
? S_OK
: E_NOINTERFACE
;
286 FIXME("Unsupported interface %s\n", debugstr_guid(riid
));
288 return E_NOINTERFACE
;
291 IUnknown_AddRef((IUnknown
*)*ppvObject
);
295 static ULONG WINAPI
xslprocessor_AddRef( IXSLProcessor
*iface
)
297 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
298 return InterlockedIncrement( &This
->ref
);
301 static ULONG WINAPI
xslprocessor_Release( IXSLProcessor
*iface
)
303 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
306 ref
= InterlockedDecrement( &This
->ref
);
309 if (This
->input
) IXMLDOMNode_Release(This
->input
);
310 if (This
->output
) IStream_Release(This
->output
);
311 SysFreeString(This
->outstr
);
312 IXSLTemplate_Release(&This
->stylesheet
->IXSLTemplate_iface
);
313 release_dispex(&This
->dispex
);
320 static HRESULT WINAPI
xslprocessor_GetTypeInfoCount( IXSLProcessor
*iface
, UINT
* pctinfo
)
322 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
323 return IDispatchEx_GetTypeInfoCount(&This
->dispex
.IDispatchEx_iface
, pctinfo
);
326 static HRESULT WINAPI
xslprocessor_GetTypeInfo(
327 IXSLProcessor
*iface
,
328 UINT iTInfo
, LCID lcid
,
329 ITypeInfo
** ppTInfo
)
331 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
332 return IDispatchEx_GetTypeInfo(&This
->dispex
.IDispatchEx_iface
,
333 iTInfo
, lcid
, ppTInfo
);
336 static HRESULT WINAPI
xslprocessor_GetIDsOfNames(
337 IXSLProcessor
*iface
,
338 REFIID riid
, LPOLESTR
* rgszNames
,
339 UINT cNames
, LCID lcid
, DISPID
* rgDispId
)
341 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
342 return IDispatchEx_GetIDsOfNames(&This
->dispex
.IDispatchEx_iface
,
343 riid
, rgszNames
, cNames
, lcid
, rgDispId
);
346 static HRESULT WINAPI
xslprocessor_Invoke(
347 IXSLProcessor
*iface
,
348 DISPID dispIdMember
, REFIID riid
, LCID lcid
,
349 WORD wFlags
, DISPPARAMS
* pDispParams
, VARIANT
* pVarResult
,
350 EXCEPINFO
* pExcepInfo
, UINT
* puArgErr
)
352 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
353 return IDispatchEx_Invoke(&This
->dispex
.IDispatchEx_iface
,
354 dispIdMember
, riid
, lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
357 static HRESULT WINAPI
xslprocessor_put_input( IXSLProcessor
*iface
, VARIANT input
)
359 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
360 IXMLDOMNode
*input_node
;
363 TRACE("(%p)->(%s)\n", This
, debugstr_variant(&input
));
365 /* try IXMLDOMNode directly first */
366 if (V_VT(&input
) == VT_UNKNOWN
)
367 hr
= IUnknown_QueryInterface(V_UNKNOWN(&input
), &IID_IXMLDOMNode
, (void**)&input_node
);
368 else if (V_VT(&input
) == VT_DISPATCH
)
369 hr
= IDispatch_QueryInterface(V_DISPATCH(&input
), &IID_IXMLDOMNode
, (void**)&input_node
);
372 IXMLDOMDocument
*doc
;
374 hr
= DOMDocument_create(MSXML_DEFAULT
, NULL
, (void**)&doc
);
379 hr
= IXMLDOMDocument_load(doc
, input
, &b
);
381 hr
= IXMLDOMDocument_QueryInterface(doc
, &IID_IXMLDOMNode
, (void**)&input_node
);
382 IXMLDOMDocument_Release(doc
);
388 if (This
->input
) IXMLDOMNode_Release(This
->input
);
389 This
->input
= input_node
;
395 static HRESULT WINAPI
xslprocessor_get_input( IXSLProcessor
*iface
, VARIANT
*input
)
397 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
399 FIXME("(%p)->(%p): stub\n", This
, input
);
403 static HRESULT WINAPI
xslprocessor_get_ownerTemplate(
404 IXSLProcessor
*iface
,
405 IXSLTemplate
**template)
407 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
409 FIXME("(%p)->(%p): stub\n", This
, template);
413 static HRESULT WINAPI
xslprocessor_setStartMode(
414 IXSLProcessor
*iface
,
418 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
420 FIXME("(%p)->(%s %s): stub\n", This
, wine_dbgstr_w(p
), wine_dbgstr_w(uri
));
424 static HRESULT WINAPI
xslprocessor_get_startMode(
425 IXSLProcessor
*iface
,
428 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
430 FIXME("(%p)->(%p): stub\n", This
, p
);
434 static HRESULT WINAPI
xslprocessor_get_startModeURI(
435 IXSLProcessor
*iface
,
438 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
440 FIXME("(%p)->(%p): stub\n", This
, uri
);
444 static HRESULT WINAPI
xslprocessor_put_output(
445 IXSLProcessor
*iface
,
448 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
452 FIXME("(%p)->(%s): semi-stub\n", This
, debugstr_variant(&output
));
454 switch (V_VT(&output
))
461 hr
= IUnknown_QueryInterface(V_UNKNOWN(&output
), &IID_IStream
, (void**)&stream
);
469 if (This
->output
) IStream_Release(This
->output
);
470 This
->output
= stream
;
476 static HRESULT WINAPI
xslprocessor_get_output(
477 IXSLProcessor
*iface
,
480 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
482 TRACE("(%p)->(%p)\n", This
, output
);
484 if (!output
) return E_INVALIDARG
;
488 V_VT(output
) = VT_UNKNOWN
;
489 V_UNKNOWN(output
) = (IUnknown
*)This
->output
;
490 IStream_AddRef(This
->output
);
492 else if (This
->outstr
)
494 V_VT(output
) = VT_BSTR
;
495 V_BSTR(output
) = SysAllocString(This
->outstr
);
498 V_VT(output
) = VT_EMPTY
;
503 static HRESULT WINAPI
xslprocessor_transform(
504 IXSLProcessor
*iface
,
507 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
510 TRACE("(%p)->(%p)\n", This
, ret
);
512 if (!ret
) return E_INVALIDARG
;
514 SysFreeString(This
->outstr
);
515 hr
= IXMLDOMNode_transformNode(This
->input
, This
->stylesheet
->node
, &This
->outstr
);
522 /* output to stream */
523 hr
= IStream_Write(This
->output
, This
->outstr
, SysStringByteLen(This
->outstr
), &len
);
524 *ret
= len
== SysStringByteLen(This
->outstr
) ? VARIANT_TRUE
: VARIANT_FALSE
;
528 *ret
= VARIANT_FALSE
;
533 static HRESULT WINAPI
xslprocessor_reset( IXSLProcessor
*iface
)
535 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
537 FIXME("(%p): stub\n", This
);
541 static HRESULT WINAPI
xslprocessor_get_readyState(
542 IXSLProcessor
*iface
,
545 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
547 FIXME("(%p)->(%p): stub\n", This
, state
);
551 static HRESULT WINAPI
xslprocessor_addParameter(
552 IXSLProcessor
*iface
,
557 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
559 FIXME("(%p)->(%s %s %s): stub\n", This
, wine_dbgstr_w(p
), debugstr_variant(&var
),
564 static HRESULT WINAPI
xslprocessor_addObject(
565 IXSLProcessor
*iface
,
569 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
571 FIXME("(%p)->(%p %s): stub\n", This
, obj
, wine_dbgstr_w(uri
));
575 static HRESULT WINAPI
xslprocessor_get_stylesheet(
576 IXSLProcessor
*iface
,
579 xslprocessor
*This
= impl_from_IXSLProcessor( iface
);
581 FIXME("(%p)->(%p): stub\n", This
, node
);
585 static const struct IXSLProcessorVtbl XSLProcessorVtbl
=
587 xslprocessor_QueryInterface
,
589 xslprocessor_Release
,
590 xslprocessor_GetTypeInfoCount
,
591 xslprocessor_GetTypeInfo
,
592 xslprocessor_GetIDsOfNames
,
595 xslprocessor_put_input
,
596 xslprocessor_get_input
,
597 xslprocessor_get_ownerTemplate
,
598 xslprocessor_setStartMode
,
599 xslprocessor_get_startMode
,
600 xslprocessor_get_startModeURI
,
601 xslprocessor_put_output
,
602 xslprocessor_get_output
,
603 xslprocessor_transform
,
605 xslprocessor_get_readyState
,
606 xslprocessor_addParameter
,
607 xslprocessor_addObject
,
608 xslprocessor_get_stylesheet
611 static const tid_t xslprocessor_iface_tids
[] = {
616 static dispex_static_data_t xslprocessor_dispex
= {
620 xslprocessor_iface_tids
623 HRESULT
XSLProcessor_create(xsltemplate
*template, IXSLProcessor
**ppObj
)
627 TRACE("(%p)\n", ppObj
);
629 This
= heap_alloc( sizeof (*This
) );
631 return E_OUTOFMEMORY
;
633 This
->IXSLProcessor_iface
.lpVtbl
= &XSLProcessorVtbl
;
638 This
->stylesheet
= template;
639 IXSLTemplate_AddRef(&template->IXSLTemplate_iface
);
640 init_dispex(&This
->dispex
, (IUnknown
*)&This
->IXSLProcessor_iface
, &xslprocessor_dispex
);
642 *ppObj
= &This
->IXSLProcessor_iface
;
644 TRACE("returning iface %p\n", *ppObj
);
651 HRESULT
XSLTemplate_create(IUnknown
*pUnkOuter
, void **ppObj
)
653 MESSAGE("This program tried to use a XSLTemplate object, but\n"
654 "libxml2 support was not present at compile time.\n");