dlls/mshtml/htmlhead.c

   1  /*
   2  * Copyright 2011 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include <stdarg.h>
  20
  21 #define COBJMACROS
  22
  23 #include "windef.h"
  24 #include "winbase.h"
  25 #include "winuser.h"
  26 #include "ole2.h"
  27 #include "mshtmdid.h"
  28
  29 #include "wine/debug.h"
  30
  31 #include "mshtml_private.h"
  32
  33 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  34
  35 struct HTMLTitleElement {
  36     HTMLElement element;
  37
  38     IHTMLTitleElement IHTMLTitleElement_iface;
  39 };
  40
  41 static inline HTMLTitleElement *impl_from_IHTMLTitleElement(IHTMLTitleElement *iface)
  42 {
  43     return CONTAINING_RECORD(iface, HTMLTitleElement, IHTMLTitleElement_iface);
  44 }
  45
  46 static HRESULT WINAPI HTMLTitleElement_QueryInterface(IHTMLTitleElement *iface,
  47                                                          REFIID riid, void **ppv)
  48 {
  49     HTMLTitleElement *This = impl_from_IHTMLTitleElement(iface);
  50
  51     return IHTMLDOMNode_QueryInterface(&This->element.node.IHTMLDOMNode_iface, riid, ppv);
  52 }
  53
  54 static ULONG WINAPI HTMLTitleElement_AddRef(IHTMLTitleElement *iface)
  55 {
  56     HTMLTitleElement *This = impl_from_IHTMLTitleElement(iface);
  57
  58     return IHTMLDOMNode_AddRef(&This->element.node.IHTMLDOMNode_iface);
  59 }
  60
  61 static ULONG WINAPI HTMLTitleElement_Release(IHTMLTitleElement *iface)
  62 {
  63     HTMLTitleElement *This = impl_from_IHTMLTitleElement(iface);
  64
  65     return IHTMLDOMNode_Release(&This->element.node.IHTMLDOMNode_iface);
  66 }
  67
  68 static HRESULT WINAPI HTMLTitleElement_GetTypeInfoCount(IHTMLTitleElement *iface, UINT *pctinfo)
  69 {
  70     HTMLTitleElement *This = impl_from_IHTMLTitleElement(iface);
  71
  72     return IDispatchEx_GetTypeInfoCount(&This->element.node.event_target.dispex.IDispatchEx_iface, pctinfo);
  73 }
  74
  75 static HRESULT WINAPI HTMLTitleElement_GetTypeInfo(IHTMLTitleElement *iface, UINT iTInfo,
  76         LCID lcid, ITypeInfo **ppTInfo)
  77 {
  78     HTMLTitleElement *This = impl_from_IHTMLTitleElement(iface);
  79
  80     return IDispatchEx_GetTypeInfo(&This->element.node.event_target.dispex.IDispatchEx_iface, iTInfo, lcid,
  81             ppTInfo);
  82 }
  83
  84 static HRESULT WINAPI HTMLTitleElement_GetIDsOfNames(IHTMLTitleElement *iface, REFIID riid,
  85         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
  86 {
  87     HTMLTitleElement *This = impl_from_IHTMLTitleElement(iface);
  88
  89     return IDispatchEx_GetIDsOfNames(&This->element.node.event_target.dispex.IDispatchEx_iface, riid, rgszNames,
  90             cNames, lcid, rgDispId);
  91 }
  92
  93 static HRESULT WINAPI HTMLTitleElement_Invoke(IHTMLTitleElement *iface, DISPID dispIdMember,
  94         REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
  95         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
  96 {
  97     HTMLTitleElement *This = impl_from_IHTMLTitleElement(iface);
  98
  99     return IDispatchEx_Invoke(&This->element.node.event_target.dispex.IDispatchEx_iface, dispIdMember, riid,
 100             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 101 }
 102
 103 static HRESULT WINAPI HTMLTitleElement_put_text(IHTMLTitleElement *iface, BSTR v)
 104 {
 105     HTMLTitleElement *This = impl_from_IHTMLTitleElement(iface);
 106     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 107     return E_NOTIMPL;
 108 }
 109
 110 static HRESULT WINAPI HTMLTitleElement_get_text(IHTMLTitleElement *iface, BSTR *p)
 111 {
 112     HTMLTitleElement *This = impl_from_IHTMLTitleElement(iface);
 113     FIXME("(%p)->(%p)\n", This, p);
 114     return E_NOTIMPL;
 115 }
 116
 117 static const IHTMLTitleElementVtbl HTMLTitleElementVtbl = {
 118     HTMLTitleElement_QueryInterface,
 119     HTMLTitleElement_AddRef,
 120     HTMLTitleElement_Release,
 121     HTMLTitleElement_GetTypeInfoCount,
 122     HTMLTitleElement_GetTypeInfo,
 123     HTMLTitleElement_GetIDsOfNames,
 124     HTMLTitleElement_Invoke,
 125     HTMLTitleElement_put_text,
 126     HTMLTitleElement_get_text
 127 };
 128
 129 static inline HTMLTitleElement *HTMLTitleElement_from_HTMLDOMNode(HTMLDOMNode *iface)
 130 {
 131     return CONTAINING_RECORD(iface, HTMLTitleElement, element.node);
 132 }
 133
 134 static HRESULT HTMLTitleElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
 135 {
 136     HTMLTitleElement *This = HTMLTitleElement_from_HTMLDOMNode(iface);
 137
 138     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 139
 140     if(IsEqualGUID(&IID_IHTMLTitleElement, riid))
 141         *ppv = &This->IHTMLTitleElement_iface;
 142     else
 143         return HTMLElement_QI(&This->element.node, riid, ppv);
 144
 145     IUnknown_AddRef((IUnknown*)*ppv);
 146     return S_OK;
 147 }
 148
 149 static void HTMLTitleElement_destructor(HTMLDOMNode *iface)
 150 {
 151     HTMLTitleElement *This = HTMLTitleElement_from_HTMLDOMNode(iface);
 152
 153     HTMLElement_destructor(&This->element.node);
 154 }
 155
 156 static const NodeImplVtbl HTMLTitleElementImplVtbl = {
 157     &CLSID_HTMLTitleElement,
 158     HTMLTitleElement_QI,
 159     HTMLTitleElement_destructor,
 160     HTMLElement_cpc,
 161     HTMLElement_clone,
 162     HTMLElement_handle_event,
 163     HTMLElement_get_attr_col
 164 };
 165
 166 static const tid_t HTMLTitleElement_iface_tids[] = {
 167     HTMLELEMENT_TIDS,
 168     IHTMLTitleElement_tid,
 169     0
 170 };
 171 static dispex_static_data_t HTMLTitleElement_dispex = {
 172     NULL,
 173     DispHTMLTitleElement_tid,
 174     HTMLTitleElement_iface_tids,
 175     HTMLElement_init_dispex_info
 176 };
 177
 178 HRESULT HTMLTitleElement_Create(HTMLDocumentNode *doc, nsIDOMHTMLElement *nselem, HTMLElement **elem)
 179 {
 180     HTMLTitleElement *ret;
 181
 182     ret = heap_alloc_zero(sizeof(*ret));
 183     if(!ret)
 184         return E_OUTOFMEMORY;
 185
 186     ret->IHTMLTitleElement_iface.lpVtbl = &HTMLTitleElementVtbl;
 187     ret->element.node.vtbl = &HTMLTitleElementImplVtbl;
 188
 189     HTMLElement_Init(&ret->element, doc, nselem, &HTMLTitleElement_dispex);
 190
 191     *elem = &ret->element;
 192     return S_OK;
 193 }
 194
 195 struct HTMLHtmlElement {
 196     HTMLElement element;
 197
 198     IHTMLHtmlElement IHTMLHtmlElement_iface;
 199 };
 200
 201 static inline HTMLHtmlElement *impl_from_IHTMLHtmlElement(IHTMLHtmlElement *iface)
 202 {
 203     return CONTAINING_RECORD(iface, HTMLHtmlElement, IHTMLHtmlElement_iface);
 204 }
 205
 206 static HRESULT WINAPI HTMLHtmlElement_QueryInterface(IHTMLHtmlElement *iface,
 207                                                          REFIID riid, void **ppv)
 208 {
 209     HTMLHtmlElement *This = impl_from_IHTMLHtmlElement(iface);
 210
 211     return IHTMLDOMNode_QueryInterface(&This->element.node.IHTMLDOMNode_iface, riid, ppv);
 212 }
 213
 214 static ULONG WINAPI HTMLHtmlElement_AddRef(IHTMLHtmlElement *iface)
 215 {
 216     HTMLHtmlElement *This = impl_from_IHTMLHtmlElement(iface);
 217
 218     return IHTMLDOMNode_AddRef(&This->element.node.IHTMLDOMNode_iface);
 219 }
 220
 221 static ULONG WINAPI HTMLHtmlElement_Release(IHTMLHtmlElement *iface)
 222 {
 223     HTMLHtmlElement *This = impl_from_IHTMLHtmlElement(iface);
 224
 225     return IHTMLDOMNode_Release(&This->element.node.IHTMLDOMNode_iface);
 226 }
 227
 228 static HRESULT WINAPI HTMLHtmlElement_GetTypeInfoCount(IHTMLHtmlElement *iface, UINT *pctinfo)
 229 {
 230     HTMLHtmlElement *This = impl_from_IHTMLHtmlElement(iface);
 231
 232     return IDispatchEx_GetTypeInfoCount(&This->element.node.event_target.dispex.IDispatchEx_iface, pctinfo);
 233 }
 234
 235 static HRESULT WINAPI HTMLHtmlElement_GetTypeInfo(IHTMLHtmlElement *iface, UINT iTInfo,
 236                                               LCID lcid, ITypeInfo **ppTInfo)
 237 {
 238     HTMLHtmlElement *This = impl_from_IHTMLHtmlElement(iface);
 239
 240     return IDispatchEx_GetTypeInfo(&This->element.node.event_target.dispex.IDispatchEx_iface, iTInfo, lcid,
 241             ppTInfo);
 242 }
 243
 244 static HRESULT WINAPI HTMLHtmlElement_GetIDsOfNames(IHTMLHtmlElement *iface, REFIID riid,
 245                                                 LPOLESTR *rgszNames, UINT cNames,
 246                                                 LCID lcid, DISPID *rgDispId)
 247 {
 248     HTMLHtmlElement *This = impl_from_IHTMLHtmlElement(iface);
 249
 250     return IDispatchEx_GetIDsOfNames(&This->element.node.event_target.dispex.IDispatchEx_iface, riid, rgszNames,
 251             cNames, lcid, rgDispId);
 252 }
 253
 254 static HRESULT WINAPI HTMLHtmlElement_Invoke(IHTMLHtmlElement *iface, DISPID dispIdMember,
 255                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 256                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 257 {
 258     HTMLHtmlElement *This = impl_from_IHTMLHtmlElement(iface);
 259
 260     return IDispatchEx_Invoke(&This->element.node.event_target.dispex.IDispatchEx_iface, dispIdMember, riid,
 261             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 262 }
 263
 264 static HRESULT WINAPI HTMLHtmlElement_put_version(IHTMLHtmlElement *iface, BSTR v)
 265 {
 266     HTMLHtmlElement *This = impl_from_IHTMLHtmlElement(iface);
 267     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 268     return E_NOTIMPL;
 269 }
 270
 271 static HRESULT WINAPI HTMLHtmlElement_get_version(IHTMLHtmlElement *iface, BSTR *p)
 272 {
 273     HTMLHtmlElement *This = impl_from_IHTMLHtmlElement(iface);
 274     FIXME("(%p)->(%p)\n", This, p);
 275     return E_NOTIMPL;
 276 }
 277
 278 static const IHTMLHtmlElementVtbl HTMLHtmlElementVtbl = {
 279     HTMLHtmlElement_QueryInterface,
 280     HTMLHtmlElement_AddRef,
 281     HTMLHtmlElement_Release,
 282     HTMLHtmlElement_GetTypeInfoCount,
 283     HTMLHtmlElement_GetTypeInfo,
 284     HTMLHtmlElement_GetIDsOfNames,
 285     HTMLHtmlElement_Invoke,
 286     HTMLHtmlElement_put_version,
 287     HTMLHtmlElement_get_version
 288 };
 289
 290 static inline HTMLHtmlElement *HTMLHtmlElement_from_HTMLDOMNode(HTMLDOMNode *iface)
 291 {
 292     return CONTAINING_RECORD(iface, HTMLHtmlElement, element.node);
 293 }
 294
 295 static HRESULT HTMLHtmlElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
 296 {
 297     HTMLHtmlElement *This = HTMLHtmlElement_from_HTMLDOMNode(iface);
 298
 299     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 300
 301     if(IsEqualGUID(&IID_IHTMLHtmlElement, riid))
 302         *ppv = &This->IHTMLHtmlElement_iface;
 303     else
 304         return HTMLElement_QI(&This->element.node, riid, ppv);
 305
 306     IUnknown_AddRef((IUnknown*)*ppv);
 307     return S_OK;
 308 }
 309
 310 static void HTMLHtmlElement_destructor(HTMLDOMNode *iface)
 311 {
 312     HTMLHtmlElement *This = HTMLHtmlElement_from_HTMLDOMNode(iface);
 313
 314     HTMLElement_destructor(&This->element.node);
 315 }
 316
 317 static BOOL HTMLHtmlElement_is_settable(HTMLDOMNode *iface, DISPID dispid)
 318 {
 319     switch(dispid) {
 320     case DISPID_IHTMLELEMENT_OUTERTEXT:
 321         return FALSE;
 322     default:
 323         return TRUE;
 324     }
 325 }
 326
 327 static const NodeImplVtbl HTMLHtmlElementImplVtbl = {
 328     &CLSID_HTMLHtmlElement,
 329     HTMLHtmlElement_QI,
 330     HTMLHtmlElement_destructor,
 331     HTMLElement_cpc,
 332     HTMLElement_clone,
 333     HTMLElement_handle_event,
 334     HTMLElement_get_attr_col,
 335     NULL,
 336     NULL,
 337     NULL,
 338     NULL,
 339     NULL,
 340     NULL,
 341     NULL,
 342     NULL,
 343     NULL,
 344     NULL,
 345     NULL,
 346     NULL,
 347     HTMLHtmlElement_is_settable
 348 };
 349
 350 static const tid_t HTMLHtmlElement_iface_tids[] = {
 351     HTMLELEMENT_TIDS,
 352     IHTMLHtmlElement_tid,
 353     0
 354 };
 355 static dispex_static_data_t HTMLHtmlElement_dispex = {
 356     NULL,
 357     DispHTMLHtmlElement_tid,
 358     HTMLHtmlElement_iface_tids,
 359     HTMLElement_init_dispex_info
 360 };
 361
 362 HRESULT HTMLHtmlElement_Create(HTMLDocumentNode *doc, nsIDOMHTMLElement *nselem, HTMLElement **elem)
 363 {
 364     HTMLHtmlElement *ret;
 365
 366     ret = heap_alloc_zero(sizeof(*ret));
 367     if(!ret)
 368         return E_OUTOFMEMORY;
 369
 370     ret->IHTMLHtmlElement_iface.lpVtbl = &HTMLHtmlElementVtbl;
 371     ret->element.node.vtbl = &HTMLHtmlElementImplVtbl;
 372
 373     HTMLElement_Init(&ret->element, doc, nselem, &HTMLHtmlElement_dispex);
 374
 375     *elem = &ret->element;
 376     return S_OK;
 377 }
 378
 379 struct HTMLHeadElement {
 380     HTMLElement element;
 381
 382     IHTMLHeadElement IHTMLHeadElement_iface;
 383 };
 384
 385 static inline HTMLHeadElement *impl_from_IHTMLHeadElement(IHTMLHeadElement *iface)
 386 {
 387     return CONTAINING_RECORD(iface, HTMLHeadElement, IHTMLHeadElement_iface);
 388 }
 389
 390 static HRESULT WINAPI HTMLHeadElement_QueryInterface(IHTMLHeadElement *iface,
 391                                                          REFIID riid, void **ppv)
 392 {
 393     HTMLHeadElement *This = impl_from_IHTMLHeadElement(iface);
 394
 395     return IHTMLDOMNode_QueryInterface(&This->element.node.IHTMLDOMNode_iface, riid, ppv);
 396 }
 397
 398 static ULONG WINAPI HTMLHeadElement_AddRef(IHTMLHeadElement *iface)
 399 {
 400     HTMLHeadElement *This = impl_from_IHTMLHeadElement(iface);
 401
 402     return IHTMLDOMNode_AddRef(&This->element.node.IHTMLDOMNode_iface);
 403 }
 404
 405 static ULONG WINAPI HTMLHeadElement_Release(IHTMLHeadElement *iface)
 406 {
 407     HTMLHeadElement *This = impl_from_IHTMLHeadElement(iface);
 408
 409     return IHTMLDOMNode_Release(&This->element.node.IHTMLDOMNode_iface);
 410 }
 411
 412 static HRESULT WINAPI HTMLHeadElement_GetTypeInfoCount(IHTMLHeadElement *iface, UINT *pctinfo)
 413 {
 414     HTMLHeadElement *This = impl_from_IHTMLHeadElement(iface);
 415
 416     return IDispatchEx_GetTypeInfoCount(&This->element.node.event_target.dispex.IDispatchEx_iface, pctinfo);
 417 }
 418
 419 static HRESULT WINAPI HTMLHeadElement_GetTypeInfo(IHTMLHeadElement *iface, UINT iTInfo,
 420                                               LCID lcid, ITypeInfo **ppTInfo)
 421 {
 422     HTMLHeadElement *This = impl_from_IHTMLHeadElement(iface);
 423
 424     return IDispatchEx_GetTypeInfo(&This->element.node.event_target.dispex.IDispatchEx_iface, iTInfo, lcid,
 425             ppTInfo);
 426 }
 427
 428 static HRESULT WINAPI HTMLHeadElement_GetIDsOfNames(IHTMLHeadElement *iface, REFIID riid,
 429                                                 LPOLESTR *rgszNames, UINT cNames,
 430                                                 LCID lcid, DISPID *rgDispId)
 431 {
 432     HTMLHeadElement *This = impl_from_IHTMLHeadElement(iface);
 433
 434     return IDispatchEx_GetIDsOfNames(&This->element.node.event_target.dispex.IDispatchEx_iface, riid, rgszNames,
 435             cNames, lcid, rgDispId);
 436 }
 437
 438 static HRESULT WINAPI HTMLHeadElement_Invoke(IHTMLHeadElement *iface, DISPID dispIdMember,
 439                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 440                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 441 {
 442     HTMLHeadElement *This = impl_from_IHTMLHeadElement(iface);
 443
 444     return IDispatchEx_Invoke(&This->element.node.event_target.dispex.IDispatchEx_iface, dispIdMember, riid,
 445             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 446 }
 447
 448 static HRESULT WINAPI HTMLHeadElement_put_profile(IHTMLHeadElement *iface, BSTR v)
 449 {
 450     HTMLHeadElement *This = impl_from_IHTMLHeadElement(iface);
 451     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 452     return E_NOTIMPL;
 453 }
 454
 455 static HRESULT WINAPI HTMLHeadElement_get_profile(IHTMLHeadElement *iface, BSTR *p)
 456 {
 457     HTMLHeadElement *This = impl_from_IHTMLHeadElement(iface);
 458     FIXME("(%p)->(%p)\n", This, p);
 459     return E_NOTIMPL;
 460 }
 461
 462 static const IHTMLHeadElementVtbl HTMLHeadElementVtbl = {
 463     HTMLHeadElement_QueryInterface,
 464     HTMLHeadElement_AddRef,
 465     HTMLHeadElement_Release,
 466     HTMLHeadElement_GetTypeInfoCount,
 467     HTMLHeadElement_GetTypeInfo,
 468     HTMLHeadElement_GetIDsOfNames,
 469     HTMLHeadElement_Invoke,
 470     HTMLHeadElement_put_profile,
 471     HTMLHeadElement_get_profile
 472 };
 473
 474 static inline HTMLHeadElement *impl_from_HTMLDOMNode(HTMLDOMNode *iface)
 475 {
 476     return CONTAINING_RECORD(iface, HTMLHeadElement, element.node);
 477 }
 478
 479 static HRESULT HTMLHeadElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
 480 {
 481     HTMLHeadElement *This = impl_from_HTMLDOMNode(iface);
 482
 483     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 484
 485     if(IsEqualGUID(&IID_IHTMLHeadElement, riid))
 486         *ppv = &This->IHTMLHeadElement_iface;
 487     else
 488         return HTMLElement_QI(&This->element.node, riid, ppv);
 489
 490     IUnknown_AddRef((IUnknown*)*ppv);
 491     return S_OK;
 492 }
 493
 494 static void HTMLHeadElement_destructor(HTMLDOMNode *iface)
 495 {
 496     HTMLHeadElement *This = impl_from_HTMLDOMNode(iface);
 497
 498     HTMLElement_destructor(&This->element.node);
 499 }
 500
 501 static const NodeImplVtbl HTMLHeadElementImplVtbl = {
 502     &CLSID_HTMLHeadElement,
 503     HTMLHeadElement_QI,
 504     HTMLHeadElement_destructor,
 505     HTMLElement_cpc,
 506     HTMLElement_clone,
 507     HTMLElement_handle_event,
 508     HTMLElement_get_attr_col
 509 };
 510
 511 static const tid_t HTMLHeadElement_iface_tids[] = {
 512     HTMLELEMENT_TIDS,
 513     IHTMLHeadElement_tid,
 514     0
 515 };
 516 static dispex_static_data_t HTMLHeadElement_dispex = {
 517     NULL,
 518     DispHTMLHeadElement_tid,
 519     HTMLHeadElement_iface_tids,
 520     HTMLElement_init_dispex_info
 521 };
 522
 523 HRESULT HTMLHeadElement_Create(HTMLDocumentNode *doc, nsIDOMHTMLElement *nselem, HTMLElement **elem)
 524 {
 525     HTMLHeadElement *ret;
 526
 527     ret = heap_alloc_zero(sizeof(*ret));
 528     if(!ret)
 529         return E_OUTOFMEMORY;
 530
 531     ret->IHTMLHeadElement_iface.lpVtbl = &HTMLHeadElementVtbl;
 532     ret->element.node.vtbl = &HTMLHeadElementImplVtbl;
 533
 534     HTMLElement_Init(&ret->element, doc, nselem, &HTMLHeadElement_dispex);
 535
 536     *elem = &ret->element;
 537     return S_OK;
 538 }