dll/win32/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 "msxml2.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 }