msxml3/tests: Fix test crashes running old versions.
[wine] / dlls / msxml3 / domimpl.c
1 /*
2  *    DOM Document Implementation implementation
3  *
4  * Copyright 2007 Alistair Leslie-Hughes
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 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
42
43 #ifdef HAVE_LIBXML2
44
45 typedef struct _domimpl
46 {
47     DispatchEx dispex;
48     IXMLDOMImplementation IXMLDOMImplementation_iface;
49     LONG ref;
50 } domimpl;
51
52 static inline domimpl *impl_from_IXMLDOMImplementation( IXMLDOMImplementation *iface )
53 {
54     return CONTAINING_RECORD(iface, domimpl, IXMLDOMImplementation_iface);
55 }
56
57 static HRESULT WINAPI dimimpl_QueryInterface(
58     IXMLDOMImplementation *iface,
59     REFIID riid,
60     void** ppvObject )
61 {
62     domimpl *This = impl_from_IXMLDOMImplementation( iface );
63     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
64
65     if ( IsEqualGUID( riid, &IID_IXMLDOMImplementation ) ||
66          IsEqualGUID( riid, &IID_IDispatch ) ||
67          IsEqualGUID( riid, &IID_IUnknown ) )
68     {
69         *ppvObject = iface;
70     }
71     else if (dispex_query_interface(&This->dispex, riid, ppvObject))
72     {
73         return *ppvObject ? S_OK : E_NOINTERFACE;
74     }
75     else
76     {
77         TRACE("Unsupported interface %s\n", debugstr_guid(riid));
78         *ppvObject = NULL;
79         return E_NOINTERFACE;
80     }
81
82     IXMLDOMImplementation_AddRef( iface );
83
84     return S_OK;
85 }
86
87 static ULONG WINAPI dimimpl_AddRef(
88     IXMLDOMImplementation *iface )
89 {
90     domimpl *This = impl_from_IXMLDOMImplementation( iface );
91     ULONG ref = InterlockedIncrement( &This->ref );
92     TRACE("(%p)->(%d)\n", This, ref);
93     return ref;
94 }
95
96 static ULONG WINAPI dimimpl_Release(
97     IXMLDOMImplementation *iface )
98 {
99     domimpl *This = impl_from_IXMLDOMImplementation( iface );
100     ULONG ref = InterlockedDecrement( &This->ref );
101
102     TRACE("(%p)->(%d)\n", This, ref);
103     if ( ref == 0 )
104     {
105         release_dispex(&This->dispex);
106         heap_free( This );
107     }
108
109     return ref;
110 }
111
112 static HRESULT WINAPI dimimpl_GetTypeInfoCount(
113     IXMLDOMImplementation *iface,
114     UINT* pctinfo )
115 {
116     domimpl *This = impl_from_IXMLDOMImplementation( iface );
117     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
118 }
119
120 static HRESULT WINAPI dimimpl_GetTypeInfo(
121     IXMLDOMImplementation *iface,
122     UINT iTInfo, LCID lcid,
123     ITypeInfo** ppTInfo )
124 {
125     domimpl *This = impl_from_IXMLDOMImplementation( iface );
126     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface,
127         iTInfo, lcid, ppTInfo);
128 }
129
130 static HRESULT WINAPI dimimpl_GetIDsOfNames(
131     IXMLDOMImplementation *iface,
132     REFIID riid, LPOLESTR* rgszNames,
133     UINT cNames, LCID lcid, DISPID* rgDispId )
134 {
135     domimpl *This = impl_from_IXMLDOMImplementation( iface );
136     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface,
137         riid, rgszNames, cNames, lcid, rgDispId);
138 }
139
140 static HRESULT WINAPI dimimpl_Invoke(
141     IXMLDOMImplementation *iface,
142     DISPID dispIdMember, REFIID riid, LCID lcid,
143     WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,
144     EXCEPINFO* pExcepInfo, UINT* puArgErr )
145 {
146     domimpl *This = impl_from_IXMLDOMImplementation( iface );
147     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface,
148         dispIdMember, riid, lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
149 }
150
151 static HRESULT WINAPI dimimpl_hasFeature(IXMLDOMImplementation* This, BSTR feature, BSTR version, VARIANT_BOOL *hasFeature)
152 {
153     static const WCHAR bVersion[] = {'1','.','0',0};
154     static const WCHAR bXML[] = {'X','M','L',0};
155     static const WCHAR bDOM[] = {'D','O','M',0};
156     static const WCHAR bMSDOM[] = {'M','S','-','D','O','M',0};
157     BOOL bValidFeature = FALSE;
158     BOOL bValidVersion = FALSE;
159
160     TRACE("(%p)->(%s %s %p)\n", This, debugstr_w(feature), debugstr_w(version), hasFeature);
161
162     if(!feature || !hasFeature)
163         return E_INVALIDARG;
164
165     *hasFeature = VARIANT_FALSE;
166
167     if(!version || lstrcmpiW(version, bVersion) == 0)
168         bValidVersion = TRUE;
169
170     if(lstrcmpiW(feature, bXML) == 0 || lstrcmpiW(feature, bDOM) == 0 || lstrcmpiW(feature, bMSDOM) == 0)
171         bValidFeature = TRUE;
172
173     if(bValidVersion && bValidFeature)
174         *hasFeature = VARIANT_TRUE;
175
176     return S_OK;
177 }
178
179 static const struct IXMLDOMImplementationVtbl dimimpl_vtbl =
180 {
181     dimimpl_QueryInterface,
182     dimimpl_AddRef,
183     dimimpl_Release,
184     dimimpl_GetTypeInfoCount,
185     dimimpl_GetTypeInfo,
186     dimimpl_GetIDsOfNames,
187     dimimpl_Invoke,
188     dimimpl_hasFeature
189 };
190
191 static const tid_t dimimpl_iface_tids[] = {
192     IXMLDOMImplementation_tid,
193     0
194 };
195
196 static dispex_static_data_t dimimpl_dispex = {
197     NULL,
198     IXMLDOMImplementation_tid,
199     NULL,
200     dimimpl_iface_tids
201 };
202
203 IUnknown* create_doc_Implementation(void)
204 {
205     domimpl *This;
206
207     This = heap_alloc( sizeof *This );
208     if ( !This )
209         return NULL;
210
211     This->IXMLDOMImplementation_iface.lpVtbl = &dimimpl_vtbl;
212     This->ref = 1;
213     init_dispex(&This->dispex, (IUnknown*)&This->IXMLDOMImplementation_iface, &dimimpl_dispex);
214
215     return (IUnknown*)&This->IXMLDOMImplementation_iface;
216 }
217
218 #endif