msxml3: Implement ::get_responseXML().
[wine] / dlls / msxml3 / schema.c
1 /*
2  * Schema cache implementation
3  *
4  * Copyright 2007 Huw Davies
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 #include "windef.h"
27 #include "winbase.h"
28 #include "winuser.h"
29 #include "ole2.h"
30 #include "msxml6.h"
31
32 #include "wine/debug.h"
33
34 #include "msxml_private.h"
35
36 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
37
38
39 typedef struct
40 {
41     const struct IXMLDOMSchemaCollectionVtbl *lpVtbl;
42     LONG ref;
43 } schema_t;
44
45 static inline schema_t *impl_from_IXMLDOMSchemaCollection( IXMLDOMSchemaCollection *iface )
46 {
47     return (schema_t *)((char*)iface - FIELD_OFFSET(schema_t, lpVtbl));
48 }
49
50 static HRESULT WINAPI schema_cache_QueryInterface( IXMLDOMSchemaCollection *iface, REFIID riid, void** ppvObject )
51 {
52     schema_t *This = impl_from_IXMLDOMSchemaCollection( iface );
53
54     TRACE("(%p)->(%s %p)\n", This, debugstr_guid( riid ), ppvObject );
55
56     if ( IsEqualIID( riid, &IID_IUnknown ) ||
57          IsEqualIID( riid, &IID_IDispatch ) ||
58          IsEqualIID( riid, &IID_IXMLDOMSchemaCollection ) )
59     {
60         *ppvObject = iface;
61     }
62     else
63     {
64         FIXME("interface %s not implemented\n", debugstr_guid(riid));
65         return E_NOINTERFACE;
66     }
67
68     IXMLDOMSchemaCollection_AddRef( iface );
69
70     return S_OK;
71 }
72
73 static ULONG WINAPI schema_cache_AddRef( IXMLDOMSchemaCollection *iface )
74 {
75     schema_t *This = impl_from_IXMLDOMSchemaCollection( iface );
76     LONG ref = InterlockedIncrement( &This->ref );
77     TRACE("%p new ref %d\n", This, ref);
78     return ref;
79 }
80
81 static ULONG WINAPI schema_cache_Release( IXMLDOMSchemaCollection *iface )
82 {
83     schema_t *This = impl_from_IXMLDOMSchemaCollection( iface );
84     LONG ref = InterlockedDecrement( &This->ref );
85     TRACE("%p new ref %d\n", This, ref);
86
87     if ( ref == 0 )
88     {
89         heap_free( This );
90     }
91
92     return ref;
93 }
94
95 static HRESULT WINAPI schema_cache_GetTypeInfoCount( IXMLDOMSchemaCollection *iface, UINT* pctinfo )
96 {
97     schema_t *This = impl_from_IXMLDOMSchemaCollection( iface );
98
99     TRACE("(%p)->(%p)\n", This, pctinfo);
100
101     *pctinfo = 1;
102
103     return S_OK;
104 }
105
106 static HRESULT WINAPI schema_cache_GetTypeInfo( IXMLDOMSchemaCollection *iface,
107                                                 UINT iTInfo, LCID lcid, ITypeInfo** ppTInfo )
108 {
109     schema_t *This = impl_from_IXMLDOMSchemaCollection( iface );
110     HRESULT hr;
111
112     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
113
114     hr = get_typeinfo(IXMLDOMSchemaCollection_tid, ppTInfo);
115
116     return hr;
117 }
118
119 static HRESULT WINAPI schema_cache_GetIDsOfNames( IXMLDOMSchemaCollection *iface,
120                                                   REFIID riid,
121                                                   LPOLESTR* rgszNames,
122                                                   UINT cNames,
123                                                   LCID lcid,
124                                                   DISPID* rgDispId )
125 {
126     schema_t *This = impl_from_IXMLDOMSchemaCollection( iface );
127     ITypeInfo *typeinfo;
128     HRESULT hr;
129
130     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
131           lcid, rgDispId);
132
133     if(!rgszNames || cNames == 0 || !rgDispId)
134         return E_INVALIDARG;
135
136     hr = get_typeinfo(IXMLDOMSchemaCollection_tid, &typeinfo);
137     if(SUCCEEDED(hr))
138     {
139         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
140         ITypeInfo_Release(typeinfo);
141     }
142
143     return hr;
144 }
145
146 static HRESULT WINAPI schema_cache_Invoke( IXMLDOMSchemaCollection *iface,
147                                            DISPID dispIdMember,
148                                            REFIID riid,
149                                            LCID lcid,
150                                            WORD wFlags,
151                                            DISPPARAMS* pDispParams,
152                                            VARIANT* pVarResult,
153                                            EXCEPINFO* pExcepInfo,
154                                            UINT* puArgErr )
155 {
156     schema_t *This = impl_from_IXMLDOMSchemaCollection( iface );
157     ITypeInfo *typeinfo;
158     HRESULT hr;
159
160     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
161           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
162
163     hr = get_typeinfo(IXMLDOMSchemaCollection_tid, &typeinfo);
164     if(SUCCEEDED(hr))
165     {
166         hr = ITypeInfo_Invoke(typeinfo, &(This->lpVtbl), dispIdMember, wFlags, pDispParams,
167                 pVarResult, pExcepInfo, puArgErr);
168         ITypeInfo_Release(typeinfo);
169     }
170
171     return hr;
172 }
173
174 static HRESULT WINAPI schema_cache_add( IXMLDOMSchemaCollection *iface, BSTR uri, VARIANT var )
175 {
176     FIXME("(%p)->(%s, var(vt %x)): stub\n", iface, debugstr_w(uri), V_VT(&var));
177     return S_OK;
178 }
179
180 static HRESULT WINAPI schema_cache_get( IXMLDOMSchemaCollection *iface, BSTR uri, IXMLDOMNode **node )
181 {
182     FIXME("stub\n");
183     return E_NOTIMPL;
184 }
185
186 static HRESULT WINAPI schema_cache_remove( IXMLDOMSchemaCollection *iface, BSTR uri )
187 {
188     FIXME("stub\n");
189     return E_NOTIMPL;
190 }
191
192 static HRESULT WINAPI schema_cache_get_length( IXMLDOMSchemaCollection *iface, LONG *length )
193 {
194     FIXME("stub\n");
195     return E_NOTIMPL;
196 }
197
198 static HRESULT WINAPI schema_cache_get_namespaceURI( IXMLDOMSchemaCollection *iface, LONG index, BSTR *len )
199 {
200     FIXME("stub\n");
201     return E_NOTIMPL;
202 }
203
204 static HRESULT WINAPI schema_cache_addCollection( IXMLDOMSchemaCollection *iface, IXMLDOMSchemaCollection *otherCollection )
205 {
206     FIXME("stub\n");
207     return E_NOTIMPL;
208 }
209
210 static HRESULT WINAPI schema_cache_get__newEnum( IXMLDOMSchemaCollection *iface, IUnknown **ppUnk )
211 {
212     FIXME("stub\n");
213     return E_NOTIMPL;
214 }
215
216 static const struct IXMLDOMSchemaCollectionVtbl schema_vtbl =
217 {
218     schema_cache_QueryInterface,
219     schema_cache_AddRef,
220     schema_cache_Release,
221     schema_cache_GetTypeInfoCount,
222     schema_cache_GetTypeInfo,
223     schema_cache_GetIDsOfNames,
224     schema_cache_Invoke,
225     schema_cache_add,
226     schema_cache_get,
227     schema_cache_remove,
228     schema_cache_get_length,
229     schema_cache_get_namespaceURI,
230     schema_cache_addCollection,
231     schema_cache_get__newEnum
232 };
233
234 HRESULT SchemaCache_create(IUnknown *pUnkOuter, LPVOID *ppObj)
235 {
236     schema_t *schema = heap_alloc( sizeof (*schema) );
237     if( !schema )
238         return E_OUTOFMEMORY;
239
240     schema->lpVtbl = &schema_vtbl;
241     schema->ref = 1;
242
243     *ppObj = &schema->lpVtbl;
244     return S_OK;
245 }