git.oblomov.eu Git - wine/blob - dlls/msxml3/parseerror.c

   1 /*
   2  *    ParseError implementation
   3  *
   4  * Copyright 2005 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
  22 #define COBJMACROS
  23
  24 #include "config.h"
  25
  26 #include <stdarg.h>
  27 #include "windef.h"
  28 #include "winbase.h"
  29 #include "winerror.h"
  30 #include "winuser.h"
  31 #include "ole2.h"
  32 #include "msxml6.h"
  33
  34 #include "msxml_private.h"
  35
  36 #include "wine/debug.h"
  37
  38 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
  39
  40 typedef struct
  41 {
  42     IXMLDOMParseError IXMLDOMParseError_iface;
  43     LONG ref;
  44     LONG code, line, linepos, filepos;
  45     BSTR url, reason, srcText;
  46 } parse_error_t;
  47
  48 static inline parse_error_t *impl_from_IXMLDOMParseError( IXMLDOMParseError *iface )
  49 {
  50     return CONTAINING_RECORD(iface, parse_error_t, IXMLDOMParseError_iface);
  51 }
  52
  53 static HRESULT WINAPI parseError_QueryInterface(
  54     IXMLDOMParseError *iface,
  55     REFIID riid,
  56     void** ppvObject )
  57 {
  58     TRACE("(%p)->(%s %p)\n", iface, debugstr_guid(riid), ppvObject);
  59
  60     if ( IsEqualGUID( riid, &IID_IUnknown ) ||
  61          IsEqualGUID( riid, &IID_IDispatch ) ||
  62          IsEqualGUID( riid, &IID_IXMLDOMParseError ) )
  63     {
  64         *ppvObject = iface;
  65     }
  66     else
  67     {
  68         FIXME("interface %s not implemented\n", debugstr_guid(riid));
  69         return E_NOINTERFACE;
  70     }
  71
  72     IXMLDOMParseError_AddRef( iface );
  73
  74     return S_OK;
  75 }
  76
  77 static ULONG WINAPI parseError_AddRef(
  78     IXMLDOMParseError *iface )
  79 {
  80     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
  81     ULONG ref = InterlockedIncrement( &This->ref );
  82     TRACE("(%p) ref now %d\n", This, ref);
  83     return ref;
  84 }
  85
  86 static ULONG WINAPI parseError_Release(
  87     IXMLDOMParseError *iface )
  88 {
  89     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
  90     ULONG ref;
  91
  92     ref = InterlockedDecrement( &This->ref );
  93     TRACE("(%p) ref now %d\n", This, ref);
  94     if ( ref == 0 )
  95     {
  96         SysFreeString(This->url);
  97         SysFreeString(This->reason);
  98         SysFreeString(This->srcText);
  99         heap_free( This );
 100     }
 101
 102     return ref;
 103 }
 104
 105 static HRESULT WINAPI parseError_GetTypeInfoCount(
 106     IXMLDOMParseError *iface,
 107     UINT* pctinfo )
 108 {
 109     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
 110
 111     TRACE("(%p)->(%p)\n", This, pctinfo);
 112
 113     *pctinfo = 1;
 114
 115     return S_OK;
 116 }
 117
 118 static HRESULT WINAPI parseError_GetTypeInfo(
 119     IXMLDOMParseError *iface,
 120     UINT iTInfo,
 121     LCID lcid,
 122     ITypeInfo** ppTInfo )
 123 {
 124     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
 125     HRESULT hr;
 126
 127     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
 128
 129     hr = get_typeinfo(IXMLDOMParseError_tid, ppTInfo);
 130
 131     return hr;
 132 }
 133
 134 static HRESULT WINAPI parseError_GetIDsOfNames(
 135     IXMLDOMParseError *iface,
 136     REFIID riid,
 137     LPOLESTR* rgszNames,
 138     UINT cNames,
 139     LCID lcid,
 140     DISPID* rgDispId )
 141 {
 142     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
 143     ITypeInfo *typeinfo;
 144     HRESULT hr;
 145
 146     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 147           lcid, rgDispId);
 148
 149     if(!rgszNames || cNames == 0 || !rgDispId)
 150         return E_INVALIDARG;
 151
 152     hr = get_typeinfo(IXMLDOMParseError_tid, &typeinfo);
 153     if(SUCCEEDED(hr))
 154     {
 155         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
 156         ITypeInfo_Release(typeinfo);
 157     }
 158
 159     return hr;
 160 }
 161
 162 static HRESULT WINAPI parseError_Invoke(
 163     IXMLDOMParseError *iface,
 164     DISPID dispIdMember,
 165     REFIID riid,
 166     LCID lcid,
 167     WORD wFlags,
 168     DISPPARAMS* pDispParams,
 169     VARIANT* pVarResult,
 170     EXCEPINFO* pExcepInfo,
 171     UINT* puArgErr )
 172 {
 173     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
 174     ITypeInfo *typeinfo;
 175     HRESULT hr;
 176
 177     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 178           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 179
 180     hr = get_typeinfo(IXMLDOMParseError_tid, &typeinfo);
 181     if(SUCCEEDED(hr))
 182     {
 183         hr = ITypeInfo_Invoke(typeinfo, &This->IXMLDOMParseError_iface, dispIdMember, wFlags,
 184                 pDispParams, pVarResult, pExcepInfo, puArgErr);
 185         ITypeInfo_Release(typeinfo);
 186     }
 187
 188     return hr;
 189 }
 190
 191 static HRESULT WINAPI parseError_get_errorCode(
 192     IXMLDOMParseError *iface,
 193     LONG *code )
 194 {
 195     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
 196     TRACE("(%p)->(%p)\n", This, code);
 197
 198     *code = This->code;
 199
 200     if(This->code == 0)
 201         return S_FALSE;
 202
 203     return S_OK;
 204 }
 205
 206 static HRESULT WINAPI parseError_get_url(
 207     IXMLDOMParseError *iface,
 208     BSTR *url )
 209 {
 210     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
 211     FIXME("(%p)->(%p)\n", This, url);
 212     return E_NOTIMPL;
 213 }
 214
 215 static HRESULT WINAPI parseError_get_reason(
 216     IXMLDOMParseError *iface,
 217     BSTR *reason )
 218 {
 219     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
 220     TRACE("(%p)->(%p)\n", This, reason);
 221
 222     if(!This->reason)
 223     {
 224         *reason = NULL;
 225         return S_FALSE;
 226     }
 227     *reason = SysAllocString(This->reason);
 228     return S_OK;
 229 }
 230
 231 static HRESULT WINAPI parseError_get_srcText(
 232     IXMLDOMParseError *iface,
 233     BSTR *srcText )
 234 {
 235     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
 236     FIXME("(%p)->(%p)\n", This, srcText);
 237     return E_NOTIMPL;
 238 }
 239
 240 static HRESULT WINAPI parseError_get_line(
 241     IXMLDOMParseError *iface,
 242     LONG *line )
 243 {
 244     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
 245     FIXME("(%p)->(%p)\n", This, line);
 246     return E_NOTIMPL;
 247 }
 248
 249 static HRESULT WINAPI parseError_get_linepos(
 250     IXMLDOMParseError *iface,
 251     LONG *linepos )
 252 {
 253     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
 254     FIXME("(%p)->(%p)\n", This, linepos);
 255     return E_NOTIMPL;
 256 }
 257
 258 static HRESULT WINAPI parseError_get_filepos(
 259     IXMLDOMParseError *iface,
 260     LONG *filepos )
 261 {
 262     parse_error_t *This = impl_from_IXMLDOMParseError( iface );
 263     FIXME("(%p)->(%p)\n", This, filepos);
 264     return E_NOTIMPL;
 265 }
 266
 267 static const struct IXMLDOMParseErrorVtbl parseError_vtbl =
 268 {
 269     parseError_QueryInterface,
 270     parseError_AddRef,
 271     parseError_Release,
 272     parseError_GetTypeInfoCount,
 273     parseError_GetTypeInfo,
 274     parseError_GetIDsOfNames,
 275     parseError_Invoke,
 276     parseError_get_errorCode,
 277     parseError_get_url,
 278     parseError_get_reason,
 279     parseError_get_srcText,
 280     parseError_get_line,
 281     parseError_get_linepos,
 282     parseError_get_filepos
 283 };
 284
 285 IXMLDOMParseError *create_parseError( LONG code, BSTR url, BSTR reason, BSTR srcText,
 286                                       LONG line, LONG linepos, LONG filepos )
 287 {
 288     parse_error_t *This;
 289
 290     This = heap_alloc( sizeof(*This) );
 291     if ( !This )
 292         return NULL;
 293
 294     This->IXMLDOMParseError_iface.lpVtbl = &parseError_vtbl;
 295     This->ref = 1;
 296
 297     This->code = code;
 298     This->url = url;
 299     This->reason = reason;
 300     This->srcText = srcText;
 301     This->line = line;
 302     This->linepos = linepos;
 303     This->filepos = filepos;
 304
 305     return &This->IXMLDOMParseError_iface;
 306 }