wined3d: Create a relative addressing token for 1.x shaders in the frontend.
[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 #include "windef.h"
27 #include "winbase.h"
28 #include "winuser.h"
29 #include "ole2.h"
30 #include "msxml2.h"
31
32 #include "msxml_private.h"
33
34 #include "wine/debug.h"
35
36 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
37
38 #ifdef HAVE_LIBXML2
39
40 typedef struct _domimpl
41 {
42     const struct IXMLDOMImplementationVtbl *lpVtbl;
43     LONG ref;
44 } domimpl;
45
46 static inline domimpl *impl_from_IXMLDOMImplementation( IXMLDOMImplementation *iface )
47 {
48     return (domimpl *)((char*)iface - FIELD_OFFSET(domimpl, lpVtbl));
49 }
50
51 static HRESULT WINAPI dimimpl_QueryInterface(
52     IXMLDOMImplementation *iface,
53     REFIID riid,
54     void** ppvObject )
55 {
56     domimpl *This = impl_from_IXMLDOMImplementation( iface );
57     TRACE("%p %s %p\n", This, debugstr_guid(riid), ppvObject);
58
59     if ( IsEqualGUID( riid, &IID_IXMLDOMImplementation ) ||
60          IsEqualGUID( riid, &IID_IDispatch ) ||
61          IsEqualGUID( riid, &IID_IUnknown ) )
62     {
63         *ppvObject = iface;
64     }
65     else
66     {
67         FIXME("Unsupported interface %s\n", debugstr_guid(riid));
68         return E_NOINTERFACE;
69     }
70
71     IXMLDOMImplementation_AddRef( iface );
72
73     return S_OK;
74 }
75
76 static ULONG WINAPI dimimpl_AddRef(
77     IXMLDOMImplementation *iface )
78 {
79     domimpl *This = impl_from_IXMLDOMImplementation( iface );
80     return InterlockedIncrement( &This->ref );
81 }
82
83 static ULONG WINAPI dimimpl_Release(
84     IXMLDOMImplementation *iface )
85 {
86     domimpl *This = impl_from_IXMLDOMImplementation( iface );
87     ULONG ref;
88
89     ref = InterlockedDecrement( &This->ref );
90     if ( ref == 0 )
91     {
92         HeapFree( GetProcessHeap(), 0, This );
93     }
94
95     return ref;
96 }
97
98 static HRESULT WINAPI dimimpl_GetTypeInfoCount(
99     IXMLDOMImplementation *iface,
100     UINT* pctinfo )
101 {
102     domimpl *This = impl_from_IXMLDOMImplementation( iface );
103
104     TRACE("(%p)->(%p)\n", This, pctinfo);
105
106     *pctinfo = 1;
107
108     return S_OK;
109 }
110
111 static HRESULT WINAPI dimimpl_GetTypeInfo(
112     IXMLDOMImplementation *iface,
113     UINT iTInfo, LCID lcid,
114     ITypeInfo** ppTInfo )
115 {
116     domimpl *This = impl_from_IXMLDOMImplementation( iface );
117     HRESULT hr;
118
119     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
120
121     hr = get_typeinfo(IXMLDOMImplementation_tid, ppTInfo);
122
123     return hr;
124 }
125
126 static HRESULT WINAPI dimimpl_GetIDsOfNames(
127     IXMLDOMImplementation *iface,
128     REFIID riid, LPOLESTR* rgszNames,
129     UINT cNames, LCID lcid, DISPID* rgDispId )
130 {
131     domimpl *This = impl_from_IXMLDOMImplementation( iface );
132     ITypeInfo *typeinfo;
133     HRESULT hr;
134
135     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
136           lcid, rgDispId);
137
138     if(!rgszNames || cNames == 0 || !rgDispId)
139         return E_INVALIDARG;
140
141     hr = get_typeinfo(IXMLDOMImplementation_tid, &typeinfo);
142     if(SUCCEEDED(hr))
143     {
144         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
145         ITypeInfo_Release(typeinfo);
146     }
147
148     return hr;
149 }
150
151 static HRESULT WINAPI dimimpl_Invoke(
152     IXMLDOMImplementation *iface,
153     DISPID dispIdMember, REFIID riid, LCID lcid,
154     WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,
155     EXCEPINFO* pExcepInfo, UINT* puArgErr )
156 {
157     domimpl *This = impl_from_IXMLDOMImplementation( iface );
158     ITypeInfo *typeinfo;
159     HRESULT hr;
160
161     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
162           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
163
164     hr = get_typeinfo(IXMLDOMImplementation_tid, &typeinfo);
165     if(SUCCEEDED(hr))
166     {
167         hr = ITypeInfo_Invoke(typeinfo, &(This->lpVtbl), dispIdMember, wFlags, pDispParams,
168                 pVarResult, pExcepInfo, puArgErr);
169         ITypeInfo_Release(typeinfo);
170     }
171
172     return hr;
173 }
174
175 static HRESULT WINAPI dimimpl_hasFeature(IXMLDOMImplementation* This, BSTR feature, BSTR version, VARIANT_BOOL *hasFeature)
176 {
177     static const WCHAR bVersion[] = {'1','.','0',0};
178     static const WCHAR bXML[] = {'X','M','L',0};
179     static const WCHAR bDOM[] = {'D','O','M',0};
180     static const WCHAR bMSDOM[] = {'M','S','-','D','O','M',0};
181     BOOL bValidFeature = FALSE;
182     BOOL bValidVersion = FALSE;
183
184     TRACE("feature(%s) version (%s)\n", debugstr_w(feature), debugstr_w(version));
185
186     if(!feature || !hasFeature)
187         return E_INVALIDARG;
188
189     *hasFeature = VARIANT_FALSE;
190
191     if(!version || lstrcmpiW(version, bVersion) == 0)
192         bValidVersion = TRUE;
193
194     if(lstrcmpiW(feature, bXML) == 0 || lstrcmpiW(feature, bDOM) == 0 || lstrcmpiW(feature, bMSDOM) == 0)
195         bValidFeature = TRUE;
196
197     if(bValidVersion && bValidFeature)
198         *hasFeature = VARIANT_TRUE;
199
200     return S_OK;
201 }
202
203 static const struct IXMLDOMImplementationVtbl dimimpl_vtbl =
204 {
205     dimimpl_QueryInterface,
206     dimimpl_AddRef,
207     dimimpl_Release,
208     dimimpl_GetTypeInfoCount,
209     dimimpl_GetTypeInfo,
210     dimimpl_GetIDsOfNames,
211     dimimpl_Invoke,
212     dimimpl_hasFeature
213 };
214
215 IUnknown* create_doc_Implementation(void)
216 {
217     domimpl *This;
218
219     This = HeapAlloc( GetProcessHeap(), 0, sizeof *This );
220     if ( !This )
221         return NULL;
222
223     This->lpVtbl = &dimimpl_vtbl;
224     This->ref = 1;
225
226     return (IUnknown*) &This->lpVtbl;
227 }
228
229 #endif