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