msvcrt: Implement _wfindnext64.
[wine] / dlls / msxml3 / nodelist.c
1 /*
2  *    Node list implementation
3  *
4  * Copyright 2005 Mike McCormack
5  *
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.
10  *
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.
15  *
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
19  */
20
21 #define COBJMACROS
22
23 #include "config.h"
24
25 #include <stdarg.h>
26 #ifdef HAVE_LIBXML2
27 # include <libxml/parser.h>
28 # include <libxml/xmlerror.h>
29 #endif
30
31 #include "windef.h"
32 #include "winbase.h"
33 #include "winuser.h"
34 #include "ole2.h"
35 #include "msxml6.h"
36
37 #include "msxml_private.h"
38
39 #include "wine/debug.h"
40
41 /* This file implements the object returned by childNodes property. Note that this is
42  * not the IXMLDOMNodeList returned by XPath querites - it's implemented in queryresult.c.
43  * They are different because the list returned by childNodes:
44  *  - is "live" - changes to the XML tree are automatically reflected in the list
45  *  - doesn't supports IXMLDOMSelection
46  *  - note that an attribute node have a text child in DOM but not in the XPath data model
47  *    thus the child is inaccessible by an XPath query
48  */
49
50 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
51
52 #ifdef HAVE_LIBXML2
53
54 typedef struct _xmlnodelist
55 {
56     IXMLDOMNodeList IXMLDOMNodeList_iface;
57     LONG ref;
58     xmlNodePtr parent;
59     xmlNodePtr current;
60 } xmlnodelist;
61
62 static inline xmlnodelist *impl_from_IXMLDOMNodeList( IXMLDOMNodeList *iface )
63 {
64     return CONTAINING_RECORD(iface, xmlnodelist, IXMLDOMNodeList_iface);
65 }
66
67 static HRESULT WINAPI xmlnodelist_QueryInterface(
68     IXMLDOMNodeList *iface,
69     REFIID riid,
70     void** ppvObject )
71 {
72     TRACE("(%p)->(%s %p)\n", iface, debugstr_guid(riid), ppvObject);
73
74     if ( IsEqualGUID( riid, &IID_IUnknown ) ||
75          IsEqualGUID( riid, &IID_IDispatch ) ||
76          IsEqualGUID( riid, &IID_IXMLDOMNodeList ) )
77     {
78         *ppvObject = iface;
79     }
80     else
81     {
82         FIXME("interface %s not implemented\n", debugstr_guid(riid));
83         *ppvObject = NULL;
84         return E_NOINTERFACE;
85     }
86
87     IXMLDOMNodeList_AddRef( iface );
88
89     return S_OK;
90 }
91
92 static ULONG WINAPI xmlnodelist_AddRef(
93     IXMLDOMNodeList *iface )
94 {
95     xmlnodelist *This = impl_from_IXMLDOMNodeList( iface );
96     return InterlockedIncrement( &This->ref );
97 }
98
99 static ULONG WINAPI xmlnodelist_Release(
100     IXMLDOMNodeList *iface )
101 {
102     xmlnodelist *This = impl_from_IXMLDOMNodeList( iface );
103     ULONG ref;
104
105     ref = InterlockedDecrement( &This->ref );
106     if ( ref == 0 )
107     {
108         xmldoc_release( This->parent->doc );
109         heap_free( This );
110     }
111
112     return ref;
113 }
114
115 static HRESULT WINAPI xmlnodelist_GetTypeInfoCount(
116     IXMLDOMNodeList *iface,
117     UINT* pctinfo )
118 {
119     xmlnodelist *This = impl_from_IXMLDOMNodeList( iface );
120
121     TRACE("(%p)->(%p)\n", This, pctinfo);
122
123     *pctinfo = 1;
124
125     return S_OK;
126 }
127
128 static HRESULT WINAPI xmlnodelist_GetTypeInfo(
129     IXMLDOMNodeList *iface,
130     UINT iTInfo,
131     LCID lcid,
132     ITypeInfo** ppTInfo )
133 {
134     xmlnodelist *This = impl_from_IXMLDOMNodeList( iface );
135     HRESULT hr;
136
137     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
138
139     hr = get_typeinfo(IXMLDOMNodeList_tid, ppTInfo);
140
141     return hr;
142 }
143
144 static HRESULT WINAPI xmlnodelist_GetIDsOfNames(
145     IXMLDOMNodeList *iface,
146     REFIID riid,
147     LPOLESTR* rgszNames,
148     UINT cNames,
149     LCID lcid,
150     DISPID* rgDispId )
151 {
152     xmlnodelist *This = impl_from_IXMLDOMNodeList( iface );
153     ITypeInfo *typeinfo;
154     HRESULT hr;
155
156     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
157           lcid, rgDispId);
158
159     if(!rgszNames || cNames == 0 || !rgDispId)
160         return E_INVALIDARG;
161
162     hr = get_typeinfo(IXMLDOMNodeList_tid, &typeinfo);
163     if(SUCCEEDED(hr))
164     {
165         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
166         ITypeInfo_Release(typeinfo);
167     }
168
169     return hr;
170 }
171
172 static HRESULT WINAPI xmlnodelist_Invoke(
173     IXMLDOMNodeList *iface,
174     DISPID dispIdMember,
175     REFIID riid,
176     LCID lcid,
177     WORD wFlags,
178     DISPPARAMS* pDispParams,
179     VARIANT* pVarResult,
180     EXCEPINFO* pExcepInfo,
181     UINT* puArgErr )
182 {
183     xmlnodelist *This = impl_from_IXMLDOMNodeList( iface );
184     ITypeInfo *typeinfo;
185     HRESULT hr;
186
187     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
188           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
189
190     hr = get_typeinfo(IXMLDOMNodeList_tid, &typeinfo);
191     if(SUCCEEDED(hr))
192     {
193         hr = ITypeInfo_Invoke(typeinfo, &This->IXMLDOMNodeList_iface, dispIdMember, wFlags,
194                 pDispParams, pVarResult, pExcepInfo, puArgErr);
195         ITypeInfo_Release(typeinfo);
196     }
197
198     return hr;
199 }
200
201 static HRESULT WINAPI xmlnodelist_get_item(
202         IXMLDOMNodeList* iface,
203         LONG index,
204         IXMLDOMNode** listItem)
205 {
206     xmlnodelist *This = impl_from_IXMLDOMNodeList( iface );
207     xmlNodePtr curr;
208     LONG nodeIndex = 0;
209
210     TRACE("(%p)->(%d %p)\n", This, index, listItem);
211
212     if(!listItem)
213         return E_INVALIDARG;
214
215     *listItem = NULL;
216
217     if (index < 0)
218         return S_FALSE;
219
220     curr = This->parent->children;
221     while(curr)
222     {
223         if(nodeIndex++ == index) break;
224         curr = curr->next;
225     }
226     if(!curr) return S_FALSE;
227
228     *listItem = create_node( curr );
229
230     return S_OK;
231 }
232
233 static HRESULT WINAPI xmlnodelist_get_length(
234         IXMLDOMNodeList* iface,
235         LONG* listLength)
236 {
237
238     xmlNodePtr curr;
239     LONG nodeCount = 0;
240
241     xmlnodelist *This = impl_from_IXMLDOMNodeList( iface );
242
243     TRACE("(%p)->(%p)\n", This, listLength);
244
245     if(!listLength)
246         return E_INVALIDARG;
247
248     curr = This->parent->children;
249     while (curr)
250     {
251         nodeCount++;
252         curr = curr->next;
253     }
254
255     *listLength = nodeCount;
256     return S_OK;
257 }
258
259 static HRESULT WINAPI xmlnodelist_nextNode(
260         IXMLDOMNodeList* iface,
261         IXMLDOMNode** nextItem)
262 {
263     xmlnodelist *This = impl_from_IXMLDOMNodeList( iface );
264
265     TRACE("(%p)->(%p)\n", This, nextItem );
266
267     if(!nextItem)
268         return E_INVALIDARG;
269
270     *nextItem = NULL;
271
272     if (!This->current)
273         return S_FALSE;
274
275     *nextItem = create_node( This->current );
276     This->current = This->current->next;
277     return S_OK;
278 }
279
280 static HRESULT WINAPI xmlnodelist_reset(
281         IXMLDOMNodeList* iface)
282 {
283     xmlnodelist *This = impl_from_IXMLDOMNodeList( iface );
284
285     TRACE("%p\n", This);
286     This->current = This->parent->children;
287     return S_OK;
288 }
289
290 static HRESULT WINAPI xmlnodelist__newEnum(
291         IXMLDOMNodeList* iface,
292         IUnknown** ppUnk)
293 {
294     xmlnodelist *This = impl_from_IXMLDOMNodeList( iface );
295     FIXME("(%p)->(%p)\n", This, ppUnk);
296     return E_NOTIMPL;
297 }
298
299
300 static const struct IXMLDOMNodeListVtbl xmlnodelist_vtbl =
301 {
302     xmlnodelist_QueryInterface,
303     xmlnodelist_AddRef,
304     xmlnodelist_Release,
305     xmlnodelist_GetTypeInfoCount,
306     xmlnodelist_GetTypeInfo,
307     xmlnodelist_GetIDsOfNames,
308     xmlnodelist_Invoke,
309     xmlnodelist_get_item,
310     xmlnodelist_get_length,
311     xmlnodelist_nextNode,
312     xmlnodelist_reset,
313     xmlnodelist__newEnum,
314 };
315
316 IXMLDOMNodeList* create_children_nodelist( xmlNodePtr node )
317 {
318     xmlnodelist *nodelist;
319
320     nodelist = heap_alloc( sizeof *nodelist );
321     if ( !nodelist )
322         return NULL;
323
324     nodelist->IXMLDOMNodeList_iface.lpVtbl = &xmlnodelist_vtbl;
325     nodelist->ref = 1;
326     nodelist->parent = node;
327     nodelist->current = node->children;
328
329     xmldoc_add_ref( node->doc );
330
331     return &nodelist->IXMLDOMNodeList_iface;
332 }
333
334 #endif