msxml3: IXMLDOMNode_put_nodeValue: Use variant coercion.
[wine] / dlls / msxml3 / queryresult.c
1 /*
2  *    XPath query result node list implementation (TODO: XSLPattern support)
3  *
4  * Copyright 2005 Mike McCormack
5  * Copyright 2007 Mikolaj Zalewski
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20  */
21
22 #define COBJMACROS
23
24 #include "config.h"
25
26 #include <stdarg.h>
27 #include "windef.h"
28 #include "winbase.h"
29 #include "winuser.h"
30 #include "ole2.h"
31 #include "msxml2.h"
32
33 #include "msxml_private.h"
34
35 #include "wine/debug.h"
36
37 /* This file implements the object returned by a XPath query. Note that this is
38  * not the IXMLDOMNodeList returned by childNodes - it's implemented in nodelist.c.
39  * They are different because the list returned by XPath queries:
40  *  - is static - gives the results for the XML tree as it existed during the
41  *    execution of the query
42  *  - supports IXMLDOMSelection (TODO)
43  *
44  * TODO: XSLPattern support
45  */
46
47 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
48
49 #ifdef HAVE_LIBXML2
50
51 #include <libxml/xpath.h>
52
53 typedef struct _queryresult
54 {
55     DispatchEx dispex;
56     const struct IXMLDOMNodeListVtbl *lpVtbl;
57     LONG ref;
58     xmlNodePtr node;
59     xmlXPathObjectPtr result;
60     int resultPos;
61 } queryresult;
62
63 static inline queryresult *impl_from_IXMLDOMNodeList( IXMLDOMNodeList *iface )
64 {
65     return (queryresult *)((char*)iface - FIELD_OFFSET(queryresult, lpVtbl));
66 }
67
68 #define XMLQUERYRES(x)  ((IXMLDOMNodeList*)&(x)->lpVtbl)
69
70 static HRESULT WINAPI queryresult_QueryInterface(
71     IXMLDOMNodeList *iface,
72     REFIID riid,
73     void** ppvObject )
74 {
75     queryresult *This = impl_from_IXMLDOMNodeList( iface );
76
77     TRACE("%p %s %p\n", iface, debugstr_guid(riid), ppvObject);
78
79     if(!ppvObject)
80         return E_INVALIDARG;
81
82     if ( IsEqualGUID( riid, &IID_IUnknown ) ||
83          IsEqualGUID( riid, &IID_IXMLDOMNodeList ) )
84     {
85         *ppvObject = iface;
86     }
87     else if(dispex_query_interface(&This->dispex, riid, ppvObject))
88     {
89         return *ppvObject ? S_OK : E_NOINTERFACE;
90     }
91     else
92     {
93         FIXME("interface %s not implemented\n", debugstr_guid(riid));
94         *ppvObject = NULL;
95         return E_NOINTERFACE;
96     }
97
98     IXMLDOMNodeList_AddRef( iface );
99
100     return S_OK;
101 }
102
103 static ULONG WINAPI queryresult_AddRef(
104     IXMLDOMNodeList *iface )
105 {
106     queryresult *This = impl_from_IXMLDOMNodeList( iface );
107     return InterlockedIncrement( &This->ref );
108 }
109
110 static ULONG WINAPI queryresult_Release(
111     IXMLDOMNodeList *iface )
112 {
113     queryresult *This = impl_from_IXMLDOMNodeList( iface );
114     ULONG ref;
115
116     ref = InterlockedDecrement(&This->ref);
117     if ( ref == 0 )
118     {
119         xmlXPathFreeObject(This->result);
120         xmldoc_release(This->node->doc);
121         heap_free(This);
122     }
123
124     return ref;
125 }
126
127 static HRESULT WINAPI queryresult_GetTypeInfoCount(
128     IXMLDOMNodeList *iface,
129     UINT* pctinfo )
130 {
131     queryresult *This = impl_from_IXMLDOMNodeList( iface );
132
133     TRACE("(%p)->(%p)\n", This, pctinfo);
134
135     *pctinfo = 1;
136
137     return S_OK;
138 }
139
140 static HRESULT WINAPI queryresult_GetTypeInfo(
141     IXMLDOMNodeList *iface,
142     UINT iTInfo,
143     LCID lcid,
144     ITypeInfo** ppTInfo )
145 {
146     queryresult *This = impl_from_IXMLDOMNodeList( iface );
147     HRESULT hr;
148
149     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
150
151     hr = get_typeinfo(IXMLDOMNodeList_tid, ppTInfo);
152
153     return hr;
154 }
155
156 static HRESULT WINAPI queryresult_GetIDsOfNames(
157     IXMLDOMNodeList *iface,
158     REFIID riid,
159     LPOLESTR* rgszNames,
160     UINT cNames,
161     LCID lcid,
162     DISPID* rgDispId )
163 {
164     queryresult *This = impl_from_IXMLDOMNodeList( iface );
165     ITypeInfo *typeinfo;
166     HRESULT hr;
167
168     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
169           lcid, rgDispId);
170
171     if(!rgszNames || cNames == 0 || !rgDispId)
172         return E_INVALIDARG;
173
174     hr = get_typeinfo(IXMLDOMNodeList_tid, &typeinfo);
175     if(SUCCEEDED(hr))
176     {
177         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
178         ITypeInfo_Release(typeinfo);
179     }
180
181     return hr;
182 }
183
184 static HRESULT WINAPI queryresult_Invoke(
185     IXMLDOMNodeList *iface,
186     DISPID dispIdMember,
187     REFIID riid,
188     LCID lcid,
189     WORD wFlags,
190     DISPPARAMS* pDispParams,
191     VARIANT* pVarResult,
192     EXCEPINFO* pExcepInfo,
193     UINT* puArgErr )
194 {
195     queryresult *This = impl_from_IXMLDOMNodeList( iface );
196     ITypeInfo *typeinfo;
197     HRESULT hr;
198
199     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
200           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
201
202     hr = get_typeinfo(IXMLDOMNodeList_tid, &typeinfo);
203     if(SUCCEEDED(hr))
204     {
205         hr = ITypeInfo_Invoke(typeinfo, &(This->lpVtbl), dispIdMember, wFlags, pDispParams,
206                 pVarResult, pExcepInfo, puArgErr);
207         ITypeInfo_Release(typeinfo);
208     }
209
210     return hr;
211 }
212
213 static HRESULT WINAPI queryresult_get_item(
214         IXMLDOMNodeList* iface,
215         long index,
216         IXMLDOMNode** listItem)
217 {
218     queryresult *This = impl_from_IXMLDOMNodeList( iface );
219
220     TRACE("%p %ld\n", This, index);
221
222     if(!listItem)
223         return E_INVALIDARG;
224
225     *listItem = NULL;
226
227     if (index < 0 || index >= xmlXPathNodeSetGetLength(This->result->nodesetval))
228         return S_FALSE;
229
230     *listItem = create_node(This->result->nodesetval->nodeTab[index]);
231     This->resultPos = index + 1;
232
233     return S_OK;
234 }
235
236 static HRESULT WINAPI queryresult_get_length(
237         IXMLDOMNodeList* iface,
238         long* listLength)
239 {
240     queryresult *This = impl_from_IXMLDOMNodeList( iface );
241
242     TRACE("%p\n", This);
243
244     if(!listLength)
245         return E_INVALIDARG;
246
247     *listLength = xmlXPathNodeSetGetLength(This->result->nodesetval);
248     return S_OK;
249 }
250
251 static HRESULT WINAPI queryresult_nextNode(
252         IXMLDOMNodeList* iface,
253         IXMLDOMNode** nextItem)
254 {
255     queryresult *This = impl_from_IXMLDOMNodeList( iface );
256
257     TRACE("%p %p\n", This, nextItem );
258
259     if(!nextItem)
260         return E_INVALIDARG;
261
262     *nextItem = NULL;
263
264     if (This->resultPos >= xmlXPathNodeSetGetLength(This->result->nodesetval))
265         return S_FALSE;
266
267     *nextItem = create_node(This->result->nodesetval->nodeTab[This->resultPos]);
268     This->resultPos++;
269     return S_OK;
270 }
271
272 static HRESULT WINAPI queryresult_reset(
273         IXMLDOMNodeList* iface)
274 {
275     queryresult *This = impl_from_IXMLDOMNodeList( iface );
276
277     TRACE("%p\n", This);
278     This->resultPos = 0;
279     return S_OK;
280 }
281
282 static HRESULT WINAPI queryresult__newEnum(
283         IXMLDOMNodeList* iface,
284         IUnknown** ppUnk)
285 {
286     FIXME("\n");
287     return E_NOTIMPL;
288 }
289
290
291 static const struct IXMLDOMNodeListVtbl queryresult_vtbl =
292 {
293     queryresult_QueryInterface,
294     queryresult_AddRef,
295     queryresult_Release,
296     queryresult_GetTypeInfoCount,
297     queryresult_GetTypeInfo,
298     queryresult_GetIDsOfNames,
299     queryresult_Invoke,
300     queryresult_get_item,
301     queryresult_get_length,
302     queryresult_nextNode,
303     queryresult_reset,
304     queryresult__newEnum,
305 };
306
307 static HRESULT queryresult_get_dispid(IUnknown *iface, BSTR name, DWORD flags, DISPID *dispid)
308 {
309     queryresult *This = impl_from_IXMLDOMNodeList( (IXMLDOMNodeList*)iface );
310     WCHAR *ptr;
311     DWORD idx=0;
312
313     for(ptr = name; *ptr && isdigitW(*ptr); ptr++)
314         idx = idx*10 + (*ptr-'0');
315     if(*ptr)
316         return DISP_E_UNKNOWNNAME;
317
318     if(idx >= xmlXPathNodeSetGetLength(This->result->nodesetval))
319         return DISP_E_UNKNOWNNAME;
320
321     *dispid = MSXML_DISPID_CUSTOM_MIN + idx;
322     TRACE("ret %x\n", *dispid);
323     return S_OK;
324 }
325
326 static HRESULT queryresult_invoke(IUnknown *iface, DISPID id, LCID lcid, WORD flags, DISPPARAMS *params,
327         VARIANT *res, EXCEPINFO *ei)
328 {
329     queryresult *This = impl_from_IXMLDOMNodeList( (IXMLDOMNodeList*)iface );
330
331     TRACE("(%p)->(%x %x %x %p %p %p)\n", This, id, lcid, flags, params, res, ei);
332
333     V_VT(res) = VT_DISPATCH;
334     V_DISPATCH(res) = NULL;
335
336     switch(flags)
337     {
338         case INVOKE_PROPERTYGET:
339         {
340             IXMLDOMNode *disp = NULL;
341
342             queryresult_get_item(XMLQUERYRES(This), id - MSXML_DISPID_CUSTOM_MIN, &disp);
343             V_DISPATCH(res) = (IDispatch*)disp;
344             break;
345         }
346         default:
347         {
348             FIXME("unimplemented flags %x\n", flags);
349             break;
350         }
351     }
352
353     TRACE("ret %p\n", V_DISPATCH(res));
354
355     return S_OK;
356 }
357
358 static const dispex_static_data_vtbl_t queryresult_dispex_vtbl = {
359     queryresult_get_dispid,
360     queryresult_invoke
361 };
362
363 static const tid_t queryresult_iface_tids[] = {
364     IXMLDOMNodeList_tid,
365     0
366 };
367 static dispex_static_data_t queryresult_dispex = {
368     &queryresult_dispex_vtbl,
369     IXMLDOMNodeList_tid,
370     NULL,
371     queryresult_iface_tids
372 };
373
374 HRESULT queryresult_create(xmlNodePtr node, LPWSTR szQuery, IXMLDOMNodeList **out)
375 {
376     queryresult *This = heap_alloc_zero(sizeof(queryresult));
377     xmlXPathContextPtr ctxt = xmlXPathNewContext(node->doc);
378     xmlChar *str = xmlChar_from_wchar(szQuery);
379     HRESULT hr;
380
381
382     TRACE("(%p, %s, %p)\n", node, wine_dbgstr_w(szQuery), out);
383
384     *out = NULL;
385     if (This == NULL || ctxt == NULL || str == NULL)
386     {
387         hr = E_OUTOFMEMORY;
388         goto cleanup;
389     }
390
391     This->lpVtbl = &queryresult_vtbl;
392     This->ref = 1;
393     This->resultPos = 0;
394     This->node = node;
395     xmldoc_add_ref(This->node->doc);
396
397     ctxt->node = node;
398     This->result = xmlXPathEval(str, ctxt);
399     if (!This->result || This->result->type != XPATH_NODESET)
400     {
401         hr = E_FAIL;
402         goto cleanup;
403     }
404
405     init_dispex(&This->dispex, (IUnknown*)&This->lpVtbl, &queryresult_dispex);
406
407     *out = (IXMLDOMNodeList *) &This->lpVtbl;
408     hr = S_OK;
409     TRACE("found %d matches\n", xmlXPathNodeSetGetLength(This->result->nodesetval));
410
411 cleanup:
412     if (This != NULL && FAILED(hr))
413         IXMLDOMNodeList_Release( (IXMLDOMNodeList*) &This->lpVtbl );
414     if (ctxt != NULL)
415         xmlXPathFreeContext(ctxt);
416     HeapFree(GetProcessHeap(), 0, str);
417     return hr;
418 }
419
420 #endif