git.oblomov.eu Git - wine/blob - dlls/mshtml/htmlelem.c

   1 /*
   2  * Copyright 2006 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
  20 #include <stdarg.h>
  21
  22 #define COBJMACROS
  23
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "winuser.h"
  27 #include "winreg.h"
  28 #include "ole2.h"
  29 #include "shlwapi.h"
  30
  31 #include "wine/debug.h"
  32
  33 #include "mshtml_private.h"
  34 #include "htmlevent.h"
  35 #include "htmlstyle.h"
  36
  37 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  38
  39 static const WCHAR aW[]        = {'A',0};
  40 static const WCHAR bodyW[]     = {'B','O','D','Y',0};
  41 static const WCHAR embedW[]    = {'E','M','B','E','D',0};
  42 static const WCHAR formW[]     = {'F','O','R','M',0};
  43 static const WCHAR frameW[]    = {'F','R','A','M','E',0};
  44 static const WCHAR headW[]     = {'H','E','A','D',0};
  45 static const WCHAR iframeW[]   = {'I','F','R','A','M','E',0};
  46 static const WCHAR imgW[]      = {'I','M','G',0};
  47 static const WCHAR inputW[]    = {'I','N','P','U','T',0};
  48 static const WCHAR metaW[]     = {'M','E','T','A',0};
  49 static const WCHAR objectW[]   = {'O','B','J','E','C','T',0};
  50 static const WCHAR optionW[]   = {'O','P','T','I','O','N',0};
  51 static const WCHAR scriptW[]   = {'S','C','R','I','P','T',0};
  52 static const WCHAR selectW[]   = {'S','E','L','E','C','T',0};
  53 static const WCHAR styleW[]    = {'S','T','Y','L','E',0};
  54 static const WCHAR tableW[]    = {'T','A','B','L','E',0};
  55 static const WCHAR tdW[]       = {'T','D',0};
  56 static const WCHAR textareaW[] = {'T','E','X','T','A','R','E','A',0};
  57 static const WCHAR title_tagW[]= {'T','I','T','L','E',0};
  58 static const WCHAR trW[]       = {'T','R',0};
  59
  60 typedef struct {
  61     const WCHAR *name;
  62     HRESULT (*constructor)(HTMLDocumentNode*,nsIDOMHTMLElement*,HTMLElement**);
  63 } tag_desc_t;
  64
  65 static const tag_desc_t tag_descs[] = {
  66     {aW,         HTMLAnchorElement_Create},
  67     {bodyW,      HTMLBodyElement_Create},
  68     {embedW,     HTMLEmbedElement_Create},
  69     {formW,      HTMLFormElement_Create},
  70     {frameW,     HTMLFrameElement_Create},
  71     {headW,      HTMLHeadElement_Create},
  72     {iframeW,    HTMLIFrame_Create},
  73     {imgW,       HTMLImgElement_Create},
  74     {inputW,     HTMLInputElement_Create},
  75     {metaW,      HTMLMetaElement_Create},
  76     {objectW,    HTMLObjectElement_Create},
  77     {optionW,    HTMLOptionElement_Create},
  78     {scriptW,    HTMLScriptElement_Create},
  79     {selectW,    HTMLSelectElement_Create},
  80     {styleW,     HTMLStyleElement_Create},
  81     {tableW,     HTMLTable_Create},
  82     {tdW,        HTMLTableCell_Create},
  83     {textareaW,  HTMLTextAreaElement_Create},
  84     {title_tagW, HTMLTitleElement_Create},
  85     {trW,        HTMLTableRow_Create}
  86 };
  87
  88 static const tag_desc_t *get_tag_desc(const WCHAR *tag_name)
  89 {
  90     DWORD min=0, max=sizeof(tag_descs)/sizeof(*tag_descs)-1, i;
  91     int r;
  92
  93     while(min <= max) {
  94         i = (min+max)/2;
  95         r = strcmpW(tag_name, tag_descs[i].name);
  96         if(!r)
  97             return tag_descs+i;
  98
  99         if(r < 0)
 100             max = i-1;
 101         else
 102             min = i+1;
 103     }
 104
 105     return NULL;
 106 }
 107
 108 HRESULT replace_node_by_html(nsIDOMHTMLDocument *nsdoc, nsIDOMNode *nsnode, const WCHAR *html)
 109 {
 110     nsIDOMDocumentFragment *nsfragment;
 111     nsIDOMNode *nsparent;
 112     nsIDOMRange *range;
 113     nsAString html_str;
 114     nsresult nsres;
 115     HRESULT hres = S_OK;
 116
 117     nsres = nsIDOMHTMLDocument_CreateRange(nsdoc, &range);
 118     if(NS_FAILED(nsres)) {
 119         ERR("CreateRange failed: %08x\n", nsres);
 120         return E_FAIL;
 121     }
 122
 123     nsAString_InitDepend(&html_str, html);
 124     nsIDOMRange_CreateContextualFragment(range, &html_str, &nsfragment);
 125     nsIDOMRange_Release(range);
 126     nsAString_Finish(&html_str);
 127     if(NS_FAILED(nsres)) {
 128         ERR("CreateContextualFragment failed: %08x\n", nsres);
 129         return E_FAIL;
 130     }
 131
 132     nsres = nsIDOMNode_GetParentNode(nsnode, &nsparent);
 133     if(NS_SUCCEEDED(nsres) && nsparent) {
 134         nsIDOMNode *nstmp;
 135
 136         nsres = nsIDOMNode_ReplaceChild(nsparent, (nsIDOMNode*)nsfragment, nsnode, &nstmp);
 137         nsIDOMNode_Release(nsparent);
 138         if(NS_FAILED(nsres)) {
 139             ERR("ReplaceChild failed: %08x\n", nsres);
 140             hres = E_FAIL;
 141         }else if(nstmp) {
 142             nsIDOMNode_Release(nstmp);
 143         }
 144     }else {
 145         ERR("GetParentNode failed: %08x\n", nsres);
 146         hres = E_FAIL;
 147     }
 148
 149     nsIDOMDocumentFragment_Release(nsfragment);
 150     return hres;
 151 }
 152
 153 typedef struct
 154 {
 155     DispatchEx dispex;
 156     IHTMLFiltersCollection IHTMLFiltersCollection_iface;
 157
 158     LONG ref;
 159 } HTMLFiltersCollection;
 160
 161 static inline HTMLFiltersCollection *impl_from_IHTMLFiltersCollection(IHTMLFiltersCollection *iface)
 162 {
 163     return CONTAINING_RECORD(iface, HTMLFiltersCollection, IHTMLFiltersCollection_iface);
 164 }
 165
 166 static IHTMLFiltersCollection *HTMLFiltersCollection_Create(void);
 167
 168 static inline HTMLElement *impl_from_IHTMLElement(IHTMLElement *iface)
 169 {
 170     return CONTAINING_RECORD(iface, HTMLElement, IHTMLElement_iface);
 171 }
 172
 173 HRESULT create_nselem(HTMLDocumentNode *doc, const WCHAR *tag, nsIDOMHTMLElement **ret)
 174 {
 175     nsIDOMElement *nselem;
 176     nsAString tag_str;
 177     nsresult nsres;
 178
 179     if(!doc->nsdoc) {
 180         WARN("NULL nsdoc\n");
 181         return E_UNEXPECTED;
 182     }
 183
 184     nsAString_InitDepend(&tag_str, tag);
 185     nsres = nsIDOMDocument_CreateElement(doc->nsdoc, &tag_str, &nselem);
 186     nsAString_Finish(&tag_str);
 187     if(NS_FAILED(nsres)) {
 188         ERR("CreateElement failed: %08x\n", nsres);
 189         return E_FAIL;
 190     }
 191
 192     nsres = nsIDOMElement_QueryInterface(nselem, &IID_nsIDOMHTMLElement, (void**)ret);
 193     nsIDOMElement_Release(nselem);
 194     if(NS_FAILED(nsres)) {
 195         ERR("Could not get nsIDOMHTMLElement iface: %08x\n", nsres);
 196         return E_FAIL;
 197     }
 198
 199     return S_OK;
 200 }
 201
 202 static HRESULT WINAPI HTMLElement_QueryInterface(IHTMLElement *iface,
 203                                                  REFIID riid, void **ppv)
 204 {
 205     HTMLElement *This = impl_from_IHTMLElement(iface);
 206
 207     return IHTMLDOMNode_QueryInterface(&This->node.IHTMLDOMNode_iface, riid, ppv);
 208 }
 209
 210 static ULONG WINAPI HTMLElement_AddRef(IHTMLElement *iface)
 211 {
 212     HTMLElement *This = impl_from_IHTMLElement(iface);
 213
 214     return IHTMLDOMNode_AddRef(&This->node.IHTMLDOMNode_iface);
 215 }
 216
 217 static ULONG WINAPI HTMLElement_Release(IHTMLElement *iface)
 218 {
 219     HTMLElement *This = impl_from_IHTMLElement(iface);
 220
 221     return IHTMLDOMNode_Release(&This->node.IHTMLDOMNode_iface);
 222 }
 223
 224 static HRESULT WINAPI HTMLElement_GetTypeInfoCount(IHTMLElement *iface, UINT *pctinfo)
 225 {
 226     HTMLElement *This = impl_from_IHTMLElement(iface);
 227     return IDispatchEx_GetTypeInfoCount(&This->node.dispex.IDispatchEx_iface, pctinfo);
 228 }
 229
 230 static HRESULT WINAPI HTMLElement_GetTypeInfo(IHTMLElement *iface, UINT iTInfo,
 231                                               LCID lcid, ITypeInfo **ppTInfo)
 232 {
 233     HTMLElement *This = impl_from_IHTMLElement(iface);
 234     return IDispatchEx_GetTypeInfo(&This->node.dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 235 }
 236
 237 static HRESULT WINAPI HTMLElement_GetIDsOfNames(IHTMLElement *iface, REFIID riid,
 238                                                 LPOLESTR *rgszNames, UINT cNames,
 239                                                 LCID lcid, DISPID *rgDispId)
 240 {
 241     HTMLElement *This = impl_from_IHTMLElement(iface);
 242     return IDispatchEx_GetIDsOfNames(&This->node.dispex.IDispatchEx_iface, riid, rgszNames, cNames,
 243             lcid, rgDispId);
 244 }
 245
 246 static HRESULT WINAPI HTMLElement_Invoke(IHTMLElement *iface, DISPID dispIdMember,
 247                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 248                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 249 {
 250     HTMLElement *This = impl_from_IHTMLElement(iface);
 251     return IDispatchEx_Invoke(&This->node.dispex.IDispatchEx_iface, dispIdMember, riid, lcid,
 252             wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 253 }
 254
 255 static HRESULT WINAPI HTMLElement_setAttribute(IHTMLElement *iface, BSTR strAttributeName,
 256                                                VARIANT AttributeValue, LONG lFlags)
 257 {
 258     HTMLElement *This = impl_from_IHTMLElement(iface);
 259     HRESULT hres;
 260     DISPID dispid, dispidNamed = DISPID_PROPERTYPUT;
 261     DISPPARAMS dispParams;
 262     EXCEPINFO excep;
 263
 264     TRACE("(%p)->(%s %s %08x)\n", This, debugstr_w(strAttributeName), debugstr_variant(&AttributeValue), lFlags);
 265
 266     hres = IDispatchEx_GetDispID(&This->node.dispex.IDispatchEx_iface, strAttributeName,
 267             fdexNameCaseInsensitive | fdexNameEnsure, &dispid);
 268     if(FAILED(hres))
 269         return hres;
 270
 271     dispParams.cArgs = 1;
 272     dispParams.cNamedArgs = 1;
 273     dispParams.rgdispidNamedArgs = &dispidNamed;
 274     dispParams.rgvarg = &AttributeValue;
 275
 276     hres = IDispatchEx_InvokeEx(&This->node.dispex.IDispatchEx_iface, dispid,
 277             LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYPUT, &dispParams, NULL, &excep, NULL);
 278     return hres;
 279 }
 280
 281 static HRESULT WINAPI HTMLElement_getAttribute(IHTMLElement *iface, BSTR strAttributeName,
 282                                                LONG lFlags, VARIANT *AttributeValue)
 283 {
 284     HTMLElement *This = impl_from_IHTMLElement(iface);
 285     DISPID dispid;
 286     HRESULT hres;
 287     DISPPARAMS dispParams = {NULL, NULL, 0, 0};
 288     EXCEPINFO excep;
 289
 290     TRACE("(%p)->(%s %08x %p)\n", This, debugstr_w(strAttributeName), lFlags, AttributeValue);
 291
 292     hres = IDispatchEx_GetDispID(&This->node.dispex.IDispatchEx_iface, strAttributeName,
 293             fdexNameCaseInsensitive, &dispid);
 294     if(hres == DISP_E_UNKNOWNNAME) {
 295         V_VT(AttributeValue) = VT_NULL;
 296         return S_OK;
 297     }
 298
 299     if(FAILED(hres)) {
 300         V_VT(AttributeValue) = VT_NULL;
 301         return hres;
 302     }
 303
 304     hres = IDispatchEx_InvokeEx(&This->node.dispex.IDispatchEx_iface, dispid, LOCALE_SYSTEM_DEFAULT,
 305             DISPATCH_PROPERTYGET, &dispParams, AttributeValue, &excep, NULL);
 306
 307     return hres;
 308 }
 309
 310 static HRESULT WINAPI HTMLElement_removeAttribute(IHTMLElement *iface, BSTR strAttributeName,
 311                                                   LONG lFlags, VARIANT_BOOL *pfSuccess)
 312 {
 313     HTMLElement *This = impl_from_IHTMLElement(iface);
 314
 315     TRACE("(%p)->(%s %x %p)\n", This, debugstr_w(strAttributeName), lFlags, pfSuccess);
 316
 317     return remove_prop(&This->node.dispex, strAttributeName, pfSuccess);
 318 }
 319
 320 static HRESULT WINAPI HTMLElement_put_className(IHTMLElement *iface, BSTR v)
 321 {
 322     HTMLElement *This = impl_from_IHTMLElement(iface);
 323     nsAString classname_str;
 324     nsresult nsres;
 325
 326     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 327
 328     if(!This->nselem) {
 329         FIXME("NULL nselem\n");
 330         return E_NOTIMPL;
 331     }
 332
 333     nsAString_InitDepend(&classname_str, v);
 334     nsres = nsIDOMHTMLElement_SetClassName(This->nselem, &classname_str);
 335     nsAString_Finish(&classname_str);
 336     if(NS_FAILED(nsres))
 337         ERR("SetClassName failed: %08x\n", nsres);
 338
 339     return S_OK;
 340 }
 341
 342 static HRESULT WINAPI HTMLElement_get_className(IHTMLElement *iface, BSTR *p)
 343 {
 344     HTMLElement *This = impl_from_IHTMLElement(iface);
 345     nsAString class_str;
 346     nsresult nsres;
 347
 348     TRACE("(%p)->(%p)\n", This, p);
 349
 350     if(!This->nselem) {
 351         FIXME("NULL nselem\n");
 352         return E_NOTIMPL;
 353     }
 354
 355     nsAString_Init(&class_str, NULL);
 356     nsres = nsIDOMHTMLElement_GetClassName(This->nselem, &class_str);
 357     return return_nsstr(nsres, &class_str, p);
 358 }
 359
 360 static HRESULT WINAPI HTMLElement_put_id(IHTMLElement *iface, BSTR v)
 361 {
 362     HTMLElement *This = impl_from_IHTMLElement(iface);
 363     nsAString id_str;
 364     nsresult nsres;
 365
 366     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 367
 368     if(!This->nselem) {
 369         FIXME("nselem == NULL\n");
 370         return S_OK;
 371     }
 372
 373     nsAString_InitDepend(&id_str, v);
 374     nsres = nsIDOMHTMLElement_SetId(This->nselem, &id_str);
 375     nsAString_Finish(&id_str);
 376     if(NS_FAILED(nsres))
 377         ERR("SetId failed: %08x\n", nsres);
 378
 379     return S_OK;
 380 }
 381
 382 static HRESULT WINAPI HTMLElement_get_id(IHTMLElement *iface, BSTR *p)
 383 {
 384     HTMLElement *This = impl_from_IHTMLElement(iface);
 385     nsAString id_str;
 386     nsresult nsres;
 387
 388     TRACE("(%p)->(%p)\n", This, p);
 389
 390     if(!This->nselem) {
 391         *p = NULL;
 392         return S_OK;
 393     }
 394
 395     nsAString_Init(&id_str, NULL);
 396     nsres = nsIDOMHTMLElement_GetId(This->nselem, &id_str);
 397     return return_nsstr(nsres, &id_str, p);
 398 }
 399
 400 static HRESULT WINAPI HTMLElement_get_tagName(IHTMLElement *iface, BSTR *p)
 401 {
 402     HTMLElement *This = impl_from_IHTMLElement(iface);
 403     nsAString tag_str;
 404     nsresult nsres;
 405
 406     TRACE("(%p)->(%p)\n", This, p);
 407
 408     if(!This->nselem) {
 409         static const WCHAR comment_tagW[] = {'!',0};
 410
 411         WARN("NULL nselem, assuming comment\n");
 412
 413         *p = SysAllocString(comment_tagW);
 414         return *p ? S_OK : E_OUTOFMEMORY;
 415     }
 416
 417     nsAString_Init(&tag_str, NULL);
 418     nsres = nsIDOMHTMLElement_GetTagName(This->nselem, &tag_str);
 419     return return_nsstr(nsres, &tag_str, p);
 420 }
 421
 422 static HRESULT WINAPI HTMLElement_get_parentElement(IHTMLElement *iface, IHTMLElement **p)
 423 {
 424     HTMLElement *This = impl_from_IHTMLElement(iface);
 425     IHTMLDOMNode *node;
 426     HRESULT hres;
 427
 428     TRACE("(%p)->(%p)\n", This, p);
 429
 430     hres = IHTMLDOMNode_get_parentNode(&This->node.IHTMLDOMNode_iface, &node);
 431     if(FAILED(hres))
 432         return hres;
 433
 434     hres = IHTMLDOMNode_QueryInterface(node, &IID_IHTMLElement, (void**)p);
 435     IHTMLDOMNode_Release(node);
 436     if(FAILED(hres))
 437         *p = NULL;
 438
 439     return S_OK;
 440 }
 441
 442 static HRESULT WINAPI HTMLElement_get_style(IHTMLElement *iface, IHTMLStyle **p)
 443 {
 444     HTMLElement *This = impl_from_IHTMLElement(iface);
 445
 446     TRACE("(%p)->(%p)\n", This, p);
 447
 448     if(!This->style) {
 449         nsIDOMElementCSSInlineStyle *nselemstyle;
 450         nsIDOMCSSStyleDeclaration *nsstyle;
 451         nsresult nsres;
 452         HRESULT hres;
 453
 454         if(!This->nselem) {
 455             FIXME("NULL nselem\n");
 456             return E_NOTIMPL;
 457         }
 458
 459         nsres = nsIDOMHTMLElement_QueryInterface(This->nselem, &IID_nsIDOMElementCSSInlineStyle,
 460                 (void**)&nselemstyle);
 461         if(NS_FAILED(nsres)) {
 462             ERR("Could not get nsIDOMCSSStyleDeclaration interface: %08x\n", nsres);
 463             return E_FAIL;
 464         }
 465
 466         nsres = nsIDOMElementCSSInlineStyle_GetStyle(nselemstyle, &nsstyle);
 467         nsIDOMElementCSSInlineStyle_Release(nselemstyle);
 468         if(NS_FAILED(nsres)) {
 469             ERR("GetStyle failed: %08x\n", nsres);
 470             return E_FAIL;
 471         }
 472
 473         hres = HTMLStyle_Create(This, nsstyle, &This->style);
 474         nsIDOMCSSStyleDeclaration_Release(nsstyle);
 475         if(FAILED(hres))
 476             return hres;
 477     }
 478
 479     *p = &This->style->IHTMLStyle_iface;
 480     IHTMLStyle_AddRef(*p);
 481     return S_OK;
 482 }
 483
 484 static HRESULT WINAPI HTMLElement_put_onhelp(IHTMLElement *iface, VARIANT v)
 485 {
 486     HTMLElement *This = impl_from_IHTMLElement(iface);
 487     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
 488     return E_NOTIMPL;
 489 }
 490
 491 static HRESULT WINAPI HTMLElement_get_onhelp(IHTMLElement *iface, VARIANT *p)
 492 {
 493     HTMLElement *This = impl_from_IHTMLElement(iface);
 494     FIXME("(%p)->(%p)\n", This, p);
 495     return E_NOTIMPL;
 496 }
 497
 498 static HRESULT WINAPI HTMLElement_put_onclick(IHTMLElement *iface, VARIANT v)
 499 {
 500     HTMLElement *This = impl_from_IHTMLElement(iface);
 501
 502     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 503
 504     return set_node_event(&This->node, EVENTID_CLICK, &v);
 505 }
 506
 507 static HRESULT WINAPI HTMLElement_get_onclick(IHTMLElement *iface, VARIANT *p)
 508 {
 509     HTMLElement *This = impl_from_IHTMLElement(iface);
 510
 511     TRACE("(%p)->(%p)\n", This, p);
 512
 513     return get_node_event(&This->node, EVENTID_CLICK, p);
 514 }
 515
 516 static HRESULT WINAPI HTMLElement_put_ondblclick(IHTMLElement *iface, VARIANT v)
 517 {
 518     HTMLElement *This = impl_from_IHTMLElement(iface);
 519
 520     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
 521
 522     return set_node_event(&This->node, EVENTID_DBLCLICK, &v);
 523 }
 524
 525 static HRESULT WINAPI HTMLElement_get_ondblclick(IHTMLElement *iface, VARIANT *p)
 526 {
 527     HTMLElement *This = impl_from_IHTMLElement(iface);
 528
 529     TRACE("(%p)->(%p)\n", This, p);
 530
 531     return get_node_event(&This->node, EVENTID_DBLCLICK, p);
 532 }
 533
 534 static HRESULT WINAPI HTMLElement_put_onkeydown(IHTMLElement *iface, VARIANT v)
 535 {
 536     HTMLElement *This = impl_from_IHTMLElement(iface);
 537
 538     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 539
 540     return set_node_event(&This->node, EVENTID_KEYDOWN, &v);
 541 }
 542
 543 static HRESULT WINAPI HTMLElement_get_onkeydown(IHTMLElement *iface, VARIANT *p)
 544 {
 545     HTMLElement *This = impl_from_IHTMLElement(iface);
 546
 547     TRACE("(%p)->(%p)\n", This, p);
 548
 549     return get_node_event(&This->node, EVENTID_KEYDOWN, p);
 550 }
 551
 552 static HRESULT WINAPI HTMLElement_put_onkeyup(IHTMLElement *iface, VARIANT v)
 553 {
 554     HTMLElement *This = impl_from_IHTMLElement(iface);
 555
 556     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 557
 558     return set_node_event(&This->node, EVENTID_KEYUP, &v);
 559 }
 560
 561 static HRESULT WINAPI HTMLElement_get_onkeyup(IHTMLElement *iface, VARIANT *p)
 562 {
 563     HTMLElement *This = impl_from_IHTMLElement(iface);
 564     FIXME("(%p)->(%p)\n", This, p);
 565     return E_NOTIMPL;
 566 }
 567
 568 static HRESULT WINAPI HTMLElement_put_onkeypress(IHTMLElement *iface, VARIANT v)
 569 {
 570     HTMLElement *This = impl_from_IHTMLElement(iface);
 571     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
 572     return E_NOTIMPL;
 573 }
 574
 575 static HRESULT WINAPI HTMLElement_get_onkeypress(IHTMLElement *iface, VARIANT *p)
 576 {
 577     HTMLElement *This = impl_from_IHTMLElement(iface);
 578     FIXME("(%p)->(%p)\n", This, p);
 579     return E_NOTIMPL;
 580 }
 581
 582 static HRESULT WINAPI HTMLElement_put_onmouseout(IHTMLElement *iface, VARIANT v)
 583 {
 584     HTMLElement *This = impl_from_IHTMLElement(iface);
 585
 586     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 587
 588     return set_node_event(&This->node, EVENTID_MOUSEOUT, &v);
 589 }
 590
 591 static HRESULT WINAPI HTMLElement_get_onmouseout(IHTMLElement *iface, VARIANT *p)
 592 {
 593     HTMLElement *This = impl_from_IHTMLElement(iface);
 594
 595     TRACE("(%p)->(%p)\n", This, p);
 596
 597     return get_node_event(&This->node, EVENTID_MOUSEOUT, p);
 598 }
 599
 600 static HRESULT WINAPI HTMLElement_put_onmouseover(IHTMLElement *iface, VARIANT v)
 601 {
 602     HTMLElement *This = impl_from_IHTMLElement(iface);
 603
 604     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 605
 606     return set_node_event(&This->node, EVENTID_MOUSEOVER, &v);
 607 }
 608
 609 static HRESULT WINAPI HTMLElement_get_onmouseover(IHTMLElement *iface, VARIANT *p)
 610 {
 611     HTMLElement *This = impl_from_IHTMLElement(iface);
 612
 613     TRACE("(%p)->(%p)\n", This, p);
 614
 615     return get_node_event(&This->node, EVENTID_MOUSEOVER, p);
 616 }
 617
 618 static HRESULT WINAPI HTMLElement_put_onmousemove(IHTMLElement *iface, VARIANT v)
 619 {
 620     HTMLElement *This = impl_from_IHTMLElement(iface);
 621
 622     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 623
 624     return set_node_event(&This->node, EVENTID_MOUSEMOVE, &v);
 625 }
 626
 627 static HRESULT WINAPI HTMLElement_get_onmousemove(IHTMLElement *iface, VARIANT *p)
 628 {
 629     HTMLElement *This = impl_from_IHTMLElement(iface);
 630
 631     TRACE("(%p)->(%p)\n", This, p);
 632
 633     return get_node_event(&This->node, EVENTID_MOUSEMOVE, p);
 634 }
 635
 636 static HRESULT WINAPI HTMLElement_put_onmousedown(IHTMLElement *iface, VARIANT v)
 637 {
 638     HTMLElement *This = impl_from_IHTMLElement(iface);
 639
 640     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 641
 642     return set_node_event(&This->node, EVENTID_MOUSEDOWN, &v);
 643 }
 644
 645 static HRESULT WINAPI HTMLElement_get_onmousedown(IHTMLElement *iface, VARIANT *p)
 646 {
 647     HTMLElement *This = impl_from_IHTMLElement(iface);
 648
 649     TRACE("(%p)->(%p)\n", This, p);
 650
 651     return get_node_event(&This->node, EVENTID_MOUSEDOWN, p);
 652 }
 653
 654 static HRESULT WINAPI HTMLElement_put_onmouseup(IHTMLElement *iface, VARIANT v)
 655 {
 656     HTMLElement *This = impl_from_IHTMLElement(iface);
 657
 658     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 659
 660     return set_node_event(&This->node, EVENTID_MOUSEUP, &v);
 661 }
 662
 663 static HRESULT WINAPI HTMLElement_get_onmouseup(IHTMLElement *iface, VARIANT *p)
 664 {
 665     HTMLElement *This = impl_from_IHTMLElement(iface);
 666
 667     TRACE("(%p)->(%p)\n", This, p);
 668
 669     return get_node_event(&This->node, EVENTID_MOUSEUP, p);
 670 }
 671
 672 static HRESULT WINAPI HTMLElement_get_document(IHTMLElement *iface, IDispatch **p)
 673 {
 674     HTMLElement *This = impl_from_IHTMLElement(iface);
 675
 676     TRACE("(%p)->(%p)\n", This, p);
 677
 678     if(!p)
 679         return E_POINTER;
 680
 681     if(This->node.vtbl->get_document)
 682         return This->node.vtbl->get_document(&This->node, p);
 683
 684     *p = (IDispatch*)&This->node.doc->basedoc.IHTMLDocument2_iface;
 685     IDispatch_AddRef(*p);
 686     return S_OK;
 687 }
 688
 689 static const WCHAR titleW[] = {'t','i','t','l','e',0};
 690
 691 static HRESULT WINAPI HTMLElement_put_title(IHTMLElement *iface, BSTR v)
 692 {
 693     HTMLElement *This = impl_from_IHTMLElement(iface);
 694     nsAString title_str;
 695     nsresult nsres;
 696
 697     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 698
 699     if(!This->nselem) {
 700         VARIANT *var;
 701         HRESULT hres;
 702
 703         hres = dispex_get_dprop_ref(&This->node.dispex, titleW, TRUE, &var);
 704         if(FAILED(hres))
 705             return hres;
 706
 707         VariantClear(var);
 708         V_VT(var) = VT_BSTR;
 709         V_BSTR(var) = v ? SysAllocString(v) : NULL;
 710         return S_OK;
 711     }
 712
 713     nsAString_InitDepend(&title_str, v);
 714     nsres = nsIDOMHTMLElement_SetTitle(This->nselem, &title_str);
 715     nsAString_Finish(&title_str);
 716     if(NS_FAILED(nsres))
 717         ERR("SetTitle failed: %08x\n", nsres);
 718
 719     return S_OK;
 720 }
 721
 722 static HRESULT WINAPI HTMLElement_get_title(IHTMLElement *iface, BSTR *p)
 723 {
 724     HTMLElement *This = impl_from_IHTMLElement(iface);
 725     nsAString title_str;
 726     nsresult nsres;
 727
 728     TRACE("(%p)->(%p)\n", This, p);
 729
 730     if(!This->nselem) {
 731         VARIANT *var;
 732         HRESULT hres;
 733
 734         hres = dispex_get_dprop_ref(&This->node.dispex, titleW, FALSE, &var);
 735         if(hres == DISP_E_UNKNOWNNAME) {
 736             *p = NULL;
 737         }else if(V_VT(var) != VT_BSTR) {
 738             FIXME("title = %s\n", debugstr_variant(var));
 739             return E_FAIL;
 740         }else {
 741             *p = V_BSTR(var) ? SysAllocString(V_BSTR(var)) : NULL;
 742         }
 743
 744         return S_OK;
 745     }
 746
 747     nsAString_Init(&title_str, NULL);
 748     nsres = nsIDOMHTMLElement_GetTitle(This->nselem, &title_str);
 749     return return_nsstr(nsres, &title_str, p);
 750 }
 751
 752 static HRESULT WINAPI HTMLElement_put_language(IHTMLElement *iface, BSTR v)
 753 {
 754     HTMLElement *This = impl_from_IHTMLElement(iface);
 755     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 756     return E_NOTIMPL;
 757 }
 758
 759 static HRESULT WINAPI HTMLElement_get_language(IHTMLElement *iface, BSTR *p)
 760 {
 761     HTMLElement *This = impl_from_IHTMLElement(iface);
 762     FIXME("(%p)->(%p)\n", This, p);
 763     return E_NOTIMPL;
 764 }
 765
 766 static HRESULT WINAPI HTMLElement_put_onselectstart(IHTMLElement *iface, VARIANT v)
 767 {
 768     HTMLElement *This = impl_from_IHTMLElement(iface);
 769
 770     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
 771
 772     return set_node_event(&This->node, EVENTID_SELECTSTART, &v);
 773 }
 774
 775 static HRESULT WINAPI HTMLElement_get_onselectstart(IHTMLElement *iface, VARIANT *p)
 776 {
 777     HTMLElement *This = impl_from_IHTMLElement(iface);
 778
 779     TRACE("(%p)->(%p)\n", This, p);
 780
 781     return get_node_event(&This->node, EVENTID_SELECTSTART, p);
 782 }
 783
 784 static HRESULT WINAPI HTMLElement_scrollIntoView(IHTMLElement *iface, VARIANT varargStart)
 785 {
 786     HTMLElement *This = impl_from_IHTMLElement(iface);
 787     FIXME("(%p)->(%s)\n", This, debugstr_variant(&varargStart));
 788     return E_NOTIMPL;
 789 }
 790
 791 static HRESULT WINAPI HTMLElement_contains(IHTMLElement *iface, IHTMLElement *pChild,
 792                                            VARIANT_BOOL *pfResult)
 793 {
 794     HTMLElement *This = impl_from_IHTMLElement(iface);
 795     FIXME("(%p)->(%p %p)\n", This, pChild, pfResult);
 796     return E_NOTIMPL;
 797 }
 798
 799 static HRESULT WINAPI HTMLElement_get_sourceIndex(IHTMLElement *iface, LONG *p)
 800 {
 801     HTMLElement *This = impl_from_IHTMLElement(iface);
 802     FIXME("(%p)->(%p)\n", This, p);
 803     return E_NOTIMPL;
 804 }
 805
 806 static HRESULT WINAPI HTMLElement_get_recordNumber(IHTMLElement *iface, VARIANT *p)
 807 {
 808     HTMLElement *This = impl_from_IHTMLElement(iface);
 809     FIXME("(%p)->(%p)\n", This, p);
 810     return E_NOTIMPL;
 811 }
 812
 813 static HRESULT WINAPI HTMLElement_put_lang(IHTMLElement *iface, BSTR v)
 814 {
 815     HTMLElement *This = impl_from_IHTMLElement(iface);
 816     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 817     return E_NOTIMPL;
 818 }
 819
 820 static HRESULT WINAPI HTMLElement_get_lang(IHTMLElement *iface, BSTR *p)
 821 {
 822     HTMLElement *This = impl_from_IHTMLElement(iface);
 823     FIXME("(%p)->(%p)\n", This, p);
 824     return E_NOTIMPL;
 825 }
 826
 827 static HRESULT WINAPI HTMLElement_get_offsetLeft(IHTMLElement *iface, LONG *p)
 828 {
 829     HTMLElement *This = impl_from_IHTMLElement(iface);
 830     PRInt32 off_left = 0;
 831     nsresult nsres;
 832
 833     TRACE("(%p)->(%p)\n", This, p);
 834
 835     nsres = nsIDOMHTMLElement_GetOffsetLeft(This->nselem, &off_left);
 836     if(NS_FAILED(nsres)) {
 837         ERR("GetOffsetLeft failed: %08x\n", nsres);
 838         return E_FAIL;
 839     }
 840
 841     *p = off_left;
 842     return S_OK;
 843 }
 844
 845 static HRESULT WINAPI HTMLElement_get_offsetTop(IHTMLElement *iface, LONG *p)
 846 {
 847     HTMLElement *This = impl_from_IHTMLElement(iface);
 848     PRInt32 top = 0;
 849     nsresult nsres;
 850
 851     TRACE("(%p)->(%p)\n", This, p);
 852
 853     nsres = nsIDOMHTMLElement_GetOffsetTop(This->nselem, &top);
 854     if(NS_FAILED(nsres)) {
 855         ERR("GetOffsetTop failed: %08x\n", nsres);
 856         return E_FAIL;
 857     }
 858
 859     *p = top;
 860     return S_OK;
 861 }
 862
 863 static HRESULT WINAPI HTMLElement_get_offsetWidth(IHTMLElement *iface, LONG *p)
 864 {
 865     HTMLElement *This = impl_from_IHTMLElement(iface);
 866     PRInt32 offset = 0;
 867     nsresult nsres;
 868
 869     TRACE("(%p)->(%p)\n", This, p);
 870
 871     nsres = nsIDOMHTMLElement_GetOffsetWidth(This->nselem, &offset);
 872     if(NS_FAILED(nsres)) {
 873         ERR("GetOffsetWidth failed: %08x\n", nsres);
 874         return E_FAIL;
 875     }
 876
 877     *p = offset;
 878     return S_OK;
 879 }
 880
 881 static HRESULT WINAPI HTMLElement_get_offsetHeight(IHTMLElement *iface, LONG *p)
 882 {
 883     HTMLElement *This = impl_from_IHTMLElement(iface);
 884     PRInt32 offset = 0;
 885     nsresult nsres;
 886
 887     TRACE("(%p)->(%p)\n", This, p);
 888
 889     nsres = nsIDOMHTMLElement_GetOffsetHeight(This->nselem, &offset);
 890     if(NS_FAILED(nsres)) {
 891         ERR("GetOffsetHeight failed: %08x\n", nsres);
 892         return E_FAIL;
 893     }
 894
 895     *p = offset;
 896     return S_OK;
 897 }
 898
 899 static HRESULT WINAPI HTMLElement_get_offsetParent(IHTMLElement *iface, IHTMLElement **p)
 900 {
 901     HTMLElement *This = impl_from_IHTMLElement(iface);
 902     nsIDOMElement *nsparent;
 903     nsresult nsres;
 904     HRESULT hres;
 905
 906     TRACE("(%p)->(%p)\n", This, p);
 907
 908     nsres = nsIDOMHTMLElement_GetOffsetParent(This->nselem, &nsparent);
 909     if(NS_FAILED(nsres)) {
 910         ERR("GetOffsetParent failed: %08x\n", nsres);
 911         return E_FAIL;
 912     }
 913
 914     if(nsparent) {
 915         HTMLDOMNode *node;
 916
 917         hres = get_node(This->node.doc, (nsIDOMNode*)nsparent, TRUE, &node);
 918         nsIDOMElement_Release(nsparent);
 919         if(FAILED(hres))
 920             return hres;
 921
 922         hres = IHTMLDOMNode_QueryInterface(&node->IHTMLDOMNode_iface, &IID_IHTMLElement, (void**)p);
 923         node_release(node);
 924     }else {
 925         *p = NULL;
 926         hres = S_OK;
 927     }
 928
 929     return hres;
 930 }
 931
 932 static HRESULT WINAPI HTMLElement_put_innerHTML(IHTMLElement *iface, BSTR v)
 933 {
 934     HTMLElement *This = impl_from_IHTMLElement(iface);
 935     nsAString html_str;
 936     nsresult nsres;
 937
 938     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 939
 940     if(!This->nselem) {
 941         FIXME("NULL nselem\n");
 942         return E_NOTIMPL;
 943     }
 944
 945     nsAString_InitDepend(&html_str, v);
 946     nsres = nsIDOMHTMLElement_SetInnerHTML(This->nselem, &html_str);
 947     nsAString_Finish(&html_str);
 948     if(NS_FAILED(nsres)) {
 949         FIXME("SetInnerHtml failed %08x\n", nsres);
 950         return E_FAIL;
 951     }
 952
 953     return S_OK;
 954 }
 955
 956 static HRESULT WINAPI HTMLElement_get_innerHTML(IHTMLElement *iface, BSTR *p)
 957 {
 958     HTMLElement *This = impl_from_IHTMLElement(iface);
 959     nsAString html_str;
 960     nsresult nsres;
 961
 962     TRACE("(%p)->(%p)\n", This, p);
 963
 964     if(!This->nselem) {
 965         FIXME("NULL nselem\n");
 966         return E_NOTIMPL;
 967     }
 968
 969     nsAString_Init(&html_str, NULL);
 970     nsres = nsIDOMHTMLElement_GetInnerHTML(This->nselem, &html_str);
 971     return return_nsstr(nsres, &html_str, p);
 972 }
 973
 974 static HRESULT WINAPI HTMLElement_put_innerText(IHTMLElement *iface, BSTR v)
 975 {
 976     HTMLElement *This = impl_from_IHTMLElement(iface);
 977     nsIDOMNode *nschild, *tmp;
 978     nsIDOMText *text_node;
 979     nsAString text_str;
 980     nsresult nsres;
 981
 982     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 983
 984     while(1) {
 985         nsres = nsIDOMHTMLElement_GetLastChild(This->nselem, &nschild);
 986         if(NS_FAILED(nsres)) {
 987             ERR("GetLastChild failed: %08x\n", nsres);
 988             return E_FAIL;
 989         }
 990         if(!nschild)
 991             break;
 992
 993         nsres = nsIDOMHTMLElement_RemoveChild(This->nselem, nschild, &tmp);
 994         nsIDOMNode_Release(nschild);
 995         if(NS_FAILED(nsres)) {
 996             ERR("RemoveChild failed: %08x\n", nsres);
 997             return E_FAIL;
 998         }
 999         nsIDOMNode_Release(tmp);
1000     }
1001
1002     nsAString_InitDepend(&text_str, v);
1003     nsres = nsIDOMHTMLDocument_CreateTextNode(This->node.doc->nsdoc, &text_str, &text_node);
1004     nsAString_Finish(&text_str);
1005     if(NS_FAILED(nsres)) {
1006         ERR("CreateTextNode failed: %08x\n", nsres);
1007         return E_FAIL;
1008     }
1009
1010     nsres = nsIDOMHTMLElement_AppendChild(This->nselem, (nsIDOMNode*)text_node, &tmp);
1011     if(NS_FAILED(nsres)) {
1012         ERR("AppendChild failed: %08x\n", nsres);
1013         return E_FAIL;
1014     }
1015
1016     nsIDOMNode_Release(tmp);
1017     return S_OK;
1018 }
1019
1020 static HRESULT WINAPI HTMLElement_get_innerText(IHTMLElement *iface, BSTR *p)
1021 {
1022     HTMLElement *This = impl_from_IHTMLElement(iface);
1023
1024     TRACE("(%p)->(%p)\n", This, p);
1025
1026     return get_node_text(&This->node, p);
1027 }
1028
1029 static HRESULT WINAPI HTMLElement_put_outerHTML(IHTMLElement *iface, BSTR v)
1030 {
1031     HTMLElement *This = impl_from_IHTMLElement(iface);
1032
1033     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
1034
1035     return replace_node_by_html(This->node.doc->nsdoc, This->node.nsnode, v);
1036 }
1037
1038 static HRESULT WINAPI HTMLElement_get_outerHTML(IHTMLElement *iface, BSTR *p)
1039 {
1040     HTMLElement *This = impl_from_IHTMLElement(iface);
1041     nsAString html_str;
1042     HRESULT hres;
1043
1044     WARN("(%p)->(%p) semi-stub\n", This, p);
1045
1046     nsAString_Init(&html_str, NULL);
1047     hres = nsnode_to_nsstring(This->node.nsnode, &html_str);
1048     if(SUCCEEDED(hres)) {
1049         const PRUnichar *html;
1050
1051         nsAString_GetData(&html_str, &html);
1052         *p = SysAllocString(html);
1053         if(!*p)
1054             hres = E_OUTOFMEMORY;
1055     }
1056
1057     nsAString_Finish(&html_str);
1058
1059     TRACE("ret %s\n", debugstr_w(*p));
1060     return hres;
1061 }
1062
1063 static HRESULT WINAPI HTMLElement_put_outerText(IHTMLElement *iface, BSTR v)
1064 {
1065     HTMLElement *This = impl_from_IHTMLElement(iface);
1066     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
1067     return E_NOTIMPL;
1068 }
1069
1070 static HRESULT WINAPI HTMLElement_get_outerText(IHTMLElement *iface, BSTR *p)
1071 {
1072     HTMLElement *This = impl_from_IHTMLElement(iface);
1073     FIXME("(%p)->(%p)\n", This, p);
1074     return E_NOTIMPL;
1075 }
1076
1077 static HRESULT HTMLElement_InsertAdjacentNode(HTMLElement *This, BSTR where, nsIDOMNode *nsnode)
1078 {
1079     static const WCHAR wszBeforeBegin[] = {'b','e','f','o','r','e','B','e','g','i','n',0};
1080     static const WCHAR wszAfterBegin[] = {'a','f','t','e','r','B','e','g','i','n',0};
1081     static const WCHAR wszBeforeEnd[] = {'b','e','f','o','r','e','E','n','d',0};
1082     static const WCHAR wszAfterEnd[] = {'a','f','t','e','r','E','n','d',0};
1083     nsresult nsres;
1084
1085     if (!strcmpiW(where, wszBeforeBegin))
1086     {
1087         nsIDOMNode *unused;
1088         nsIDOMNode *parent;
1089         nsres = nsIDOMNode_GetParentNode(This->node.nsnode, &parent);
1090         if (!parent) return E_INVALIDARG;
1091         nsres = nsIDOMNode_InsertBefore(parent, nsnode, This->node.nsnode, &unused);
1092         if (unused) nsIDOMNode_Release(unused);
1093         nsIDOMNode_Release(parent);
1094     }
1095     else if (!strcmpiW(where, wszAfterBegin))
1096     {
1097         nsIDOMNode *unused;
1098         nsIDOMNode *first_child;
1099         nsIDOMNode_GetFirstChild(This->node.nsnode, &first_child);
1100         nsres = nsIDOMNode_InsertBefore(This->node.nsnode, nsnode, first_child, &unused);
1101         if (unused) nsIDOMNode_Release(unused);
1102         if (first_child) nsIDOMNode_Release(first_child);
1103     }
1104     else if (!strcmpiW(where, wszBeforeEnd))
1105     {
1106         nsIDOMNode *unused;
1107         nsres = nsIDOMNode_AppendChild(This->node.nsnode, nsnode, &unused);
1108         if (unused) nsIDOMNode_Release(unused);
1109     }
1110     else if (!strcmpiW(where, wszAfterEnd))
1111     {
1112         nsIDOMNode *unused;
1113         nsIDOMNode *next_sibling;
1114         nsIDOMNode *parent;
1115         nsIDOMNode_GetParentNode(This->node.nsnode, &parent);
1116         if (!parent) return E_INVALIDARG;
1117
1118         nsIDOMNode_GetNextSibling(This->node.nsnode, &next_sibling);
1119         if (next_sibling)
1120         {
1121             nsres = nsIDOMNode_InsertBefore(parent, nsnode, next_sibling, &unused);
1122             nsIDOMNode_Release(next_sibling);
1123         }
1124         else
1125             nsres = nsIDOMNode_AppendChild(parent, nsnode, &unused);
1126         nsIDOMNode_Release(parent);
1127         if (unused) nsIDOMNode_Release(unused);
1128     }
1129     else
1130     {
1131         ERR("invalid where: %s\n", debugstr_w(where));
1132         return E_INVALIDARG;
1133     }
1134
1135     if (NS_FAILED(nsres))
1136         return E_FAIL;
1137     else
1138         return S_OK;
1139 }
1140
1141 static HRESULT WINAPI HTMLElement_insertAdjacentHTML(IHTMLElement *iface, BSTR where,
1142                                                      BSTR html)
1143 {
1144     HTMLElement *This = impl_from_IHTMLElement(iface);
1145     nsIDOMRange *range;
1146     nsIDOMNode *nsnode;
1147     nsAString ns_html;
1148     nsresult nsres;
1149     HRESULT hr;
1150
1151     TRACE("(%p)->(%s %s)\n", This, debugstr_w(where), debugstr_w(html));
1152
1153     if(!This->node.doc->nsdoc) {
1154         WARN("NULL nsdoc\n");
1155         return E_UNEXPECTED;
1156     }
1157
1158     nsres = nsIDOMHTMLDocument_CreateRange(This->node.doc->nsdoc, &range);
1159     if(NS_FAILED(nsres))
1160     {
1161         ERR("CreateRange failed: %08x\n", nsres);
1162         return E_FAIL;
1163     }
1164
1165     nsIDOMRange_SetStartBefore(range, This->node.nsnode);
1166
1167     nsAString_InitDepend(&ns_html, html);
1168     nsres = nsIDOMRange_CreateContextualFragment(range, &ns_html, (nsIDOMDocumentFragment **)&nsnode);
1169     nsAString_Finish(&ns_html);
1170     nsIDOMRange_Release(range);
1171
1172     if(NS_FAILED(nsres) || !nsnode)
1173     {
1174         ERR("CreateTextNode failed: %08x\n", nsres);
1175         return E_FAIL;
1176     }
1177
1178     hr = HTMLElement_InsertAdjacentNode(This, where, nsnode);
1179     nsIDOMNode_Release(nsnode);
1180
1181     return hr;
1182 }
1183
1184 static HRESULT WINAPI HTMLElement_insertAdjacentText(IHTMLElement *iface, BSTR where,
1185                                                      BSTR text)
1186 {
1187     HTMLElement *This = impl_from_IHTMLElement(iface);
1188     nsIDOMNode *nsnode;
1189     nsAString ns_text;
1190     nsresult nsres;
1191     HRESULT hr;
1192
1193     TRACE("(%p)->(%s %s)\n", This, debugstr_w(where), debugstr_w(text));
1194
1195     if(!This->node.doc->nsdoc) {
1196         WARN("NULL nsdoc\n");
1197         return E_UNEXPECTED;
1198     }
1199
1200
1201     nsAString_InitDepend(&ns_text, text);
1202     nsres = nsIDOMDocument_CreateTextNode(This->node.doc->nsdoc, &ns_text, (nsIDOMText **)&nsnode);
1203     nsAString_Finish(&ns_text);
1204
1205     if(NS_FAILED(nsres) || !nsnode)
1206     {
1207         ERR("CreateTextNode failed: %08x\n", nsres);
1208         return E_FAIL;
1209     }
1210
1211     hr = HTMLElement_InsertAdjacentNode(This, where, nsnode);
1212     nsIDOMNode_Release(nsnode);
1213
1214     return hr;
1215 }
1216
1217 static HRESULT WINAPI HTMLElement_get_parentTextEdit(IHTMLElement *iface, IHTMLElement **p)
1218 {
1219     HTMLElement *This = impl_from_IHTMLElement(iface);
1220     FIXME("(%p)->(%p)\n", This, p);
1221     return E_NOTIMPL;
1222 }
1223
1224 static HRESULT WINAPI HTMLElement_get_isTextEdit(IHTMLElement *iface, VARIANT_BOOL *p)
1225 {
1226     HTMLElement *This = impl_from_IHTMLElement(iface);
1227     FIXME("(%p)->(%p)\n", This, p);
1228     return E_NOTIMPL;
1229 }
1230
1231 static HRESULT WINAPI HTMLElement_click(IHTMLElement *iface)
1232 {
1233     HTMLElement *This = impl_from_IHTMLElement(iface);
1234
1235     TRACE("(%p)\n", This);
1236
1237     return call_fire_event(&This->node, EVENTID_CLICK);
1238 }
1239
1240 static HRESULT WINAPI HTMLElement_get_filters(IHTMLElement *iface,
1241                                               IHTMLFiltersCollection **p)
1242 {
1243     HTMLElement *This = impl_from_IHTMLElement(iface);
1244     TRACE("(%p)->(%p)\n", This, p);
1245
1246     if(!p)
1247         return E_POINTER;
1248
1249     *p = HTMLFiltersCollection_Create();
1250
1251     return S_OK;
1252 }
1253
1254 static HRESULT WINAPI HTMLElement_put_ondragstart(IHTMLElement *iface, VARIANT v)
1255 {
1256     HTMLElement *This = impl_from_IHTMLElement(iface);
1257     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1258     return E_NOTIMPL;
1259 }
1260
1261 static HRESULT WINAPI HTMLElement_get_ondragstart(IHTMLElement *iface, VARIANT *p)
1262 {
1263     HTMLElement *This = impl_from_IHTMLElement(iface);
1264     FIXME("(%p)->(%p)\n", This, p);
1265     return E_NOTIMPL;
1266 }
1267
1268 static HRESULT WINAPI HTMLElement_toString(IHTMLElement *iface, BSTR *String)
1269 {
1270     HTMLElement *This = impl_from_IHTMLElement(iface);
1271     FIXME("(%p)->(%p)\n", This, String);
1272     return E_NOTIMPL;
1273 }
1274
1275 static HRESULT WINAPI HTMLElement_put_onbeforeupdate(IHTMLElement *iface, VARIANT v)
1276 {
1277     HTMLElement *This = impl_from_IHTMLElement(iface);
1278     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1279     return E_NOTIMPL;
1280 }
1281
1282 static HRESULT WINAPI HTMLElement_get_onbeforeupdate(IHTMLElement *iface, VARIANT *p)
1283 {
1284     HTMLElement *This = impl_from_IHTMLElement(iface);
1285     FIXME("(%p)->(%p)\n", This, p);
1286     return E_NOTIMPL;
1287 }
1288
1289 static HRESULT WINAPI HTMLElement_put_onafterupdate(IHTMLElement *iface, VARIANT v)
1290 {
1291     HTMLElement *This = impl_from_IHTMLElement(iface);
1292     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1293     return E_NOTIMPL;
1294 }
1295
1296 static HRESULT WINAPI HTMLElement_get_onafterupdate(IHTMLElement *iface, VARIANT *p)
1297 {
1298     HTMLElement *This = impl_from_IHTMLElement(iface);
1299     FIXME("(%p)->(%p)\n", This, p);
1300     return E_NOTIMPL;
1301 }
1302
1303 static HRESULT WINAPI HTMLElement_put_onerrorupdate(IHTMLElement *iface, VARIANT v)
1304 {
1305     HTMLElement *This = impl_from_IHTMLElement(iface);
1306     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1307     return E_NOTIMPL;
1308 }
1309
1310 static HRESULT WINAPI HTMLElement_get_onerrorupdate(IHTMLElement *iface, VARIANT *p)
1311 {
1312     HTMLElement *This = impl_from_IHTMLElement(iface);
1313     FIXME("(%p)->(%p)\n", This, p);
1314     return E_NOTIMPL;
1315 }
1316
1317 static HRESULT WINAPI HTMLElement_put_onrowexit(IHTMLElement *iface, VARIANT v)
1318 {
1319     HTMLElement *This = impl_from_IHTMLElement(iface);
1320     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1321     return E_NOTIMPL;
1322 }
1323
1324 static HRESULT WINAPI HTMLElement_get_onrowexit(IHTMLElement *iface, VARIANT *p)
1325 {
1326     HTMLElement *This = impl_from_IHTMLElement(iface);
1327     FIXME("(%p)->(%p)\n", This, p);
1328     return E_NOTIMPL;
1329 }
1330
1331 static HRESULT WINAPI HTMLElement_put_onrowenter(IHTMLElement *iface, VARIANT v)
1332 {
1333     HTMLElement *This = impl_from_IHTMLElement(iface);
1334     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1335     return E_NOTIMPL;
1336 }
1337
1338 static HRESULT WINAPI HTMLElement_get_onrowenter(IHTMLElement *iface, VARIANT *p)
1339 {
1340     HTMLElement *This = impl_from_IHTMLElement(iface);
1341     FIXME("(%p)->(%p)\n", This, p);
1342     return E_NOTIMPL;
1343 }
1344
1345 static HRESULT WINAPI HTMLElement_put_ondatasetchanged(IHTMLElement *iface, VARIANT v)
1346 {
1347     HTMLElement *This = impl_from_IHTMLElement(iface);
1348     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1349     return E_NOTIMPL;
1350 }
1351
1352 static HRESULT WINAPI HTMLElement_get_ondatasetchanged(IHTMLElement *iface, VARIANT *p)
1353 {
1354     HTMLElement *This = impl_from_IHTMLElement(iface);
1355     FIXME("(%p)->(%p)\n", This, p);
1356     return E_NOTIMPL;
1357 }
1358
1359 static HRESULT WINAPI HTMLElement_put_ondataavailable(IHTMLElement *iface, VARIANT v)
1360 {
1361     HTMLElement *This = impl_from_IHTMLElement(iface);
1362     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1363     return E_NOTIMPL;
1364 }
1365
1366 static HRESULT WINAPI HTMLElement_get_ondataavailable(IHTMLElement *iface, VARIANT *p)
1367 {
1368     HTMLElement *This = impl_from_IHTMLElement(iface);
1369     FIXME("(%p)->(%p)\n", This, p);
1370     return E_NOTIMPL;
1371 }
1372
1373 static HRESULT WINAPI HTMLElement_put_ondatasetcomplete(IHTMLElement *iface, VARIANT v)
1374 {
1375     HTMLElement *This = impl_from_IHTMLElement(iface);
1376     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1377     return E_NOTIMPL;
1378 }
1379
1380 static HRESULT WINAPI HTMLElement_get_ondatasetcomplete(IHTMLElement *iface, VARIANT *p)
1381 {
1382     HTMLElement *This = impl_from_IHTMLElement(iface);
1383     FIXME("(%p)->(%p)\n", This, p);
1384     return E_NOTIMPL;
1385 }
1386
1387 static HRESULT WINAPI HTMLElement_put_onfilterchange(IHTMLElement *iface, VARIANT v)
1388 {
1389     HTMLElement *This = impl_from_IHTMLElement(iface);
1390     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
1391     return E_NOTIMPL;
1392 }
1393
1394 static HRESULT WINAPI HTMLElement_get_onfilterchange(IHTMLElement *iface, VARIANT *p)
1395 {
1396     HTMLElement *This = impl_from_IHTMLElement(iface);
1397     FIXME("(%p)->(%p)\n", This, p);
1398     return E_NOTIMPL;
1399 }
1400
1401 static HRESULT WINAPI HTMLElement_get_children(IHTMLElement *iface, IDispatch **p)
1402 {
1403     HTMLElement *This = impl_from_IHTMLElement(iface);
1404     nsIDOMNodeList *nsnode_list;
1405     nsresult nsres;
1406
1407     TRACE("(%p)->(%p)\n", This, p);
1408
1409     nsres = nsIDOMNode_GetChildNodes(This->node.nsnode, &nsnode_list);
1410     if(NS_FAILED(nsres)) {
1411         ERR("GetChildNodes failed: %08x\n", nsres);
1412         return E_FAIL;
1413     }
1414
1415     *p = (IDispatch*)create_collection_from_nodelist(This->node.doc,
1416             (IUnknown*)&This->IHTMLElement_iface, nsnode_list);
1417
1418     nsIDOMNodeList_Release(nsnode_list);
1419     return S_OK;
1420 }
1421
1422 static HRESULT WINAPI HTMLElement_get_all(IHTMLElement *iface, IDispatch **p)
1423 {
1424     HTMLElement *This = impl_from_IHTMLElement(iface);
1425
1426     TRACE("(%p)->(%p)\n", This, p);
1427
1428     *p = (IDispatch*)create_all_collection(&This->node, FALSE);
1429     return S_OK;
1430 }
1431
1432 static const IHTMLElementVtbl HTMLElementVtbl = {
1433     HTMLElement_QueryInterface,
1434     HTMLElement_AddRef,
1435     HTMLElement_Release,
1436     HTMLElement_GetTypeInfoCount,
1437     HTMLElement_GetTypeInfo,
1438     HTMLElement_GetIDsOfNames,
1439     HTMLElement_Invoke,
1440     HTMLElement_setAttribute,
1441     HTMLElement_getAttribute,
1442     HTMLElement_removeAttribute,
1443     HTMLElement_put_className,
1444     HTMLElement_get_className,
1445     HTMLElement_put_id,
1446     HTMLElement_get_id,
1447     HTMLElement_get_tagName,
1448     HTMLElement_get_parentElement,
1449     HTMLElement_get_style,
1450     HTMLElement_put_onhelp,
1451     HTMLElement_get_onhelp,
1452     HTMLElement_put_onclick,
1453     HTMLElement_get_onclick,
1454     HTMLElement_put_ondblclick,
1455     HTMLElement_get_ondblclick,
1456     HTMLElement_put_onkeydown,
1457     HTMLElement_get_onkeydown,
1458     HTMLElement_put_onkeyup,
1459     HTMLElement_get_onkeyup,
1460     HTMLElement_put_onkeypress,
1461     HTMLElement_get_onkeypress,
1462     HTMLElement_put_onmouseout,
1463     HTMLElement_get_onmouseout,
1464     HTMLElement_put_onmouseover,
1465     HTMLElement_get_onmouseover,
1466     HTMLElement_put_onmousemove,
1467     HTMLElement_get_onmousemove,
1468     HTMLElement_put_onmousedown,
1469     HTMLElement_get_onmousedown,
1470     HTMLElement_put_onmouseup,
1471     HTMLElement_get_onmouseup,
1472     HTMLElement_get_document,
1473     HTMLElement_put_title,
1474     HTMLElement_get_title,
1475     HTMLElement_put_language,
1476     HTMLElement_get_language,
1477     HTMLElement_put_onselectstart,
1478     HTMLElement_get_onselectstart,
1479     HTMLElement_scrollIntoView,
1480     HTMLElement_contains,
1481     HTMLElement_get_sourceIndex,
1482     HTMLElement_get_recordNumber,
1483     HTMLElement_put_lang,
1484     HTMLElement_get_lang,
1485     HTMLElement_get_offsetLeft,
1486     HTMLElement_get_offsetTop,
1487     HTMLElement_get_offsetWidth,
1488     HTMLElement_get_offsetHeight,
1489     HTMLElement_get_offsetParent,
1490     HTMLElement_put_innerHTML,
1491     HTMLElement_get_innerHTML,
1492     HTMLElement_put_innerText,
1493     HTMLElement_get_innerText,
1494     HTMLElement_put_outerHTML,
1495     HTMLElement_get_outerHTML,
1496     HTMLElement_put_outerText,
1497     HTMLElement_get_outerText,
1498     HTMLElement_insertAdjacentHTML,
1499     HTMLElement_insertAdjacentText,
1500     HTMLElement_get_parentTextEdit,
1501     HTMLElement_get_isTextEdit,
1502     HTMLElement_click,
1503     HTMLElement_get_filters,
1504     HTMLElement_put_ondragstart,
1505     HTMLElement_get_ondragstart,
1506     HTMLElement_toString,
1507     HTMLElement_put_onbeforeupdate,
1508     HTMLElement_get_onbeforeupdate,
1509     HTMLElement_put_onafterupdate,
1510     HTMLElement_get_onafterupdate,
1511     HTMLElement_put_onerrorupdate,
1512     HTMLElement_get_onerrorupdate,
1513     HTMLElement_put_onrowexit,
1514     HTMLElement_get_onrowexit,
1515     HTMLElement_put_onrowenter,
1516     HTMLElement_get_onrowenter,
1517     HTMLElement_put_ondatasetchanged,
1518     HTMLElement_get_ondatasetchanged,
1519     HTMLElement_put_ondataavailable,
1520     HTMLElement_get_ondataavailable,
1521     HTMLElement_put_ondatasetcomplete,
1522     HTMLElement_get_ondatasetcomplete,
1523     HTMLElement_put_onfilterchange,
1524     HTMLElement_get_onfilterchange,
1525     HTMLElement_get_children,
1526     HTMLElement_get_all
1527 };
1528
1529 HTMLElement *unsafe_impl_from_IHTMLElement(IHTMLElement *iface)
1530 {
1531     return iface->lpVtbl == &HTMLElementVtbl ? impl_from_IHTMLElement(iface) : NULL;
1532 }
1533
1534 static inline HTMLElement *impl_from_HTMLDOMNode(HTMLDOMNode *iface)
1535 {
1536     return CONTAINING_RECORD(iface, HTMLElement, node);
1537 }
1538
1539 HRESULT HTMLElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
1540 {
1541     HTMLElement *This = impl_from_HTMLDOMNode(iface);
1542
1543     *ppv =  NULL;
1544
1545     if(IsEqualGUID(&IID_IUnknown, riid)) {
1546         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
1547         *ppv = &This->IHTMLElement_iface;
1548     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
1549         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
1550         *ppv = &This->IHTMLElement_iface;
1551     }else if(IsEqualGUID(&IID_IHTMLElement, riid)) {
1552         TRACE("(%p)->(IID_IHTMLElement %p)\n", This, ppv);
1553         *ppv = &This->IHTMLElement_iface;
1554     }else if(IsEqualGUID(&IID_IHTMLElement2, riid)) {
1555         TRACE("(%p)->(IID_IHTMLElement2 %p)\n", This, ppv);
1556         *ppv = &This->IHTMLElement2_iface;
1557     }else if(IsEqualGUID(&IID_IHTMLElement3, riid)) {
1558         TRACE("(%p)->(IID_IHTMLElement3 %p)\n", This, ppv);
1559         *ppv = &This->IHTMLElement3_iface;
1560     }else if(IsEqualGUID(&IID_IHTMLElement4, riid)) {
1561         TRACE("(%p)->(IID_IHTMLElement4 %p)\n", This, ppv);
1562         *ppv = &This->IHTMLElement4_iface;
1563     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
1564         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
1565         *ppv = &This->cp_container.IConnectionPointContainer_iface;
1566     }
1567
1568     if(*ppv) {
1569         IHTMLElement_AddRef(&This->IHTMLElement_iface);
1570         return S_OK;
1571     }
1572
1573     return HTMLDOMNode_QI(&This->node, riid, ppv);
1574 }
1575
1576 void HTMLElement_destructor(HTMLDOMNode *iface)
1577 {
1578     HTMLElement *This = impl_from_HTMLDOMNode(iface);
1579
1580     ConnectionPointContainer_Destroy(&This->cp_container);
1581
1582     if(This->nselem)
1583         nsIDOMHTMLElement_Release(This->nselem);
1584     if(This->style) {
1585         This->style->elem = NULL;
1586         IHTMLStyle_Release(&This->style->IHTMLStyle_iface);
1587     }
1588     if(This->attrs) {
1589         HTMLDOMAttribute *attr;
1590
1591         LIST_FOR_EACH_ENTRY(attr, &This->attrs->attrs, HTMLDOMAttribute, entry)
1592             attr->elem = NULL;
1593
1594         This->attrs->elem = NULL;
1595         IHTMLAttributeCollection_Release(&This->attrs->IHTMLAttributeCollection_iface);
1596     }
1597
1598     heap_free(This->filter);
1599
1600     HTMLDOMNode_destructor(&This->node);
1601 }
1602
1603 HRESULT HTMLElement_clone(HTMLDOMNode *iface, nsIDOMNode *nsnode, HTMLDOMNode **ret)
1604 {
1605     HTMLElement *This = impl_from_HTMLDOMNode(iface);
1606     HTMLElement *new_elem;
1607     HRESULT hres;
1608
1609     hres = HTMLElement_Create(This->node.doc, nsnode, FALSE, &new_elem);
1610     if(FAILED(hres))
1611         return hres;
1612
1613     if(This->filter) {
1614         new_elem->filter = heap_strdupW(This->filter);
1615         if(!new_elem->filter) {
1616             IHTMLElement_Release(&This->IHTMLElement_iface);
1617             return E_OUTOFMEMORY;
1618         }
1619     }
1620
1621     IHTMLElement_AddRef(&new_elem->IHTMLElement_iface);
1622     *ret = &new_elem->node;
1623     return S_OK;
1624 }
1625
1626 static const NodeImplVtbl HTMLElementImplVtbl = {
1627     HTMLElement_QI,
1628     HTMLElement_destructor,
1629     HTMLElement_clone,
1630     HTMLElement_get_attr_col
1631 };
1632
1633 static inline HTMLElement *impl_from_DispatchEx(DispatchEx *iface)
1634 {
1635     return CONTAINING_RECORD(iface, HTMLElement, node.dispex);
1636 }
1637
1638 static HRESULT HTMLElement_get_dispid(DispatchEx *dispex, BSTR name,
1639         DWORD grfdex, DISPID *pid)
1640 {
1641     HTMLElement *This = impl_from_DispatchEx(dispex);
1642
1643     if(This->node.vtbl->get_dispid)
1644         return This->node.vtbl->get_dispid(&This->node, name, grfdex, pid);
1645
1646     return DISP_E_UNKNOWNNAME;
1647 }
1648
1649 static HRESULT HTMLElement_invoke(DispatchEx *dispex, DISPID id, LCID lcid,
1650         WORD flags, DISPPARAMS *params, VARIANT *res, EXCEPINFO *ei,
1651         IServiceProvider *caller)
1652 {
1653     HTMLElement *This = impl_from_DispatchEx(dispex);
1654
1655     if(This->node.vtbl->invoke)
1656         return This->node.vtbl->invoke(&This->node, id, lcid, flags,
1657                 params, res, ei, caller);
1658
1659     ERR("(%p): element has no invoke method\n", This);
1660     return E_NOTIMPL;
1661 }
1662
1663 static HRESULT HTMLElement_populate_props(DispatchEx *dispex)
1664 {
1665     HTMLElement *This = impl_from_DispatchEx(dispex);
1666     nsIDOMNamedNodeMap *attrs;
1667     nsIDOMNode *node;
1668     nsAString nsstr;
1669     const PRUnichar *str;
1670     BSTR name;
1671     VARIANT value;
1672     unsigned i;
1673     PRUint32 len;
1674     DISPID id;
1675     nsresult nsres;
1676     HRESULT hres;
1677
1678     if(!This->nselem)
1679         return S_FALSE;
1680
1681     nsres = nsIDOMHTMLElement_GetAttributes(This->nselem, &attrs);
1682     if(NS_FAILED(nsres))
1683         return E_FAIL;
1684
1685     nsres = nsIDOMNamedNodeMap_GetLength(attrs, &len);
1686     if(NS_FAILED(nsres)) {
1687         nsIDOMNamedNodeMap_Release(attrs);
1688         return E_FAIL;
1689     }
1690
1691     nsAString_Init(&nsstr, NULL);
1692     for(i=0; i<len; i++) {
1693         nsres = nsIDOMNamedNodeMap_Item(attrs, i, &node);
1694         if(NS_FAILED(nsres))
1695             continue;
1696
1697         nsres = nsIDOMNode_GetNodeName(node, &nsstr);
1698         if(NS_FAILED(nsres)) {
1699             nsIDOMNode_Release(node);
1700             continue;
1701         }
1702
1703         nsAString_GetData(&nsstr, &str);
1704         name = SysAllocString(str);
1705         if(!name) {
1706             nsIDOMNode_Release(node);
1707             continue;
1708         }
1709
1710         hres = IDispatchEx_GetDispID(&dispex->IDispatchEx_iface, name, fdexNameCaseInsensitive, &id);
1711         if(hres != DISP_E_UNKNOWNNAME) {
1712             nsIDOMNode_Release(node);
1713             SysFreeString(name);
1714             continue;
1715         }
1716
1717         nsres = nsIDOMNode_GetNodeValue(node, &nsstr);
1718         nsIDOMNode_Release(node);
1719         if(NS_FAILED(nsres)) {
1720             SysFreeString(name);
1721             continue;
1722         }
1723
1724         nsAString_GetData(&nsstr, &str);
1725         V_VT(&value) = VT_BSTR;
1726         if(*str) {
1727             V_BSTR(&value) = SysAllocString(str);
1728             if(!V_BSTR(&value)) {
1729                 SysFreeString(name);
1730                 continue;
1731             }
1732         } else
1733             V_BSTR(&value) = NULL;
1734
1735         IHTMLElement_setAttribute(&This->IHTMLElement_iface, name, value, 0);
1736         SysFreeString(name);
1737         VariantClear(&value);
1738     }
1739     nsAString_Finish(&nsstr);
1740
1741     nsIDOMNamedNodeMap_Release(attrs);
1742     return S_OK;
1743 }
1744
1745 static const tid_t HTMLElement_iface_tids[] = {
1746     HTMLELEMENT_TIDS,
1747     0
1748 };
1749
1750 static dispex_static_data_vtbl_t HTMLElement_dispex_vtbl = {
1751     NULL,
1752     HTMLElement_get_dispid,
1753     HTMLElement_invoke,
1754     HTMLElement_populate_props
1755 };
1756
1757 static dispex_static_data_t HTMLElement_dispex = {
1758     &HTMLElement_dispex_vtbl,
1759     DispHTMLUnknownElement_tid,
1760     NULL,
1761     HTMLElement_iface_tids
1762 };
1763
1764 void HTMLElement_Init(HTMLElement *This, HTMLDocumentNode *doc, nsIDOMHTMLElement *nselem, dispex_static_data_t *dispex_data)
1765 {
1766     This->IHTMLElement_iface.lpVtbl = &HTMLElementVtbl;
1767
1768     HTMLElement2_Init(This);
1769     HTMLElement3_Init(This);
1770
1771     if(dispex_data && !dispex_data->vtbl)
1772         dispex_data->vtbl = &HTMLElement_dispex_vtbl;
1773     init_dispex(&This->node.dispex, (IUnknown*)&This->IHTMLElement_iface,
1774             dispex_data ? dispex_data : &HTMLElement_dispex);
1775
1776     if(nselem)
1777         nsIDOMHTMLElement_AddRef(nselem);
1778     This->nselem = nselem;
1779
1780     HTMLDOMNode_Init(doc, &This->node, (nsIDOMNode*)nselem);
1781
1782     ConnectionPointContainer_Init(&This->cp_container, (IUnknown*)&This->IHTMLElement_iface);
1783 }
1784
1785 HRESULT HTMLElement_Create(HTMLDocumentNode *doc, nsIDOMNode *nsnode, BOOL use_generic, HTMLElement **ret)
1786 {
1787     nsIDOMHTMLElement *nselem;
1788     nsAString class_name_str;
1789     const PRUnichar *class_name;
1790     const tag_desc_t *tag;
1791     HTMLElement *elem;
1792     nsresult nsres;
1793     HRESULT hres;
1794
1795     nsres = nsIDOMNode_QueryInterface(nsnode, &IID_nsIDOMHTMLElement, (void**)&nselem);
1796     if(NS_FAILED(nsres))
1797         return E_FAIL;
1798
1799     nsAString_Init(&class_name_str, NULL);
1800     nsIDOMHTMLElement_GetTagName(nselem, &class_name_str);
1801
1802     nsAString_GetData(&class_name_str, &class_name);
1803
1804     tag = get_tag_desc(class_name);
1805     if(tag) {
1806         hres = tag->constructor(doc, nselem, &elem);
1807     }else if(use_generic) {
1808         hres = HTMLGenericElement_Create(doc, nselem, &elem);
1809     }else {
1810         elem = heap_alloc_zero(sizeof(HTMLElement));
1811         if(elem) {
1812             HTMLElement_Init(elem, doc, nselem, &HTMLElement_dispex);
1813             elem->node.vtbl = &HTMLElementImplVtbl;
1814             hres = S_OK;
1815         }else {
1816             hres = E_OUTOFMEMORY;
1817         }
1818     }
1819
1820     TRACE("%s ret %p\n", debugstr_w(class_name), elem);
1821
1822     nsIDOMElement_Release(nselem);
1823     nsAString_Finish(&class_name_str);
1824     if(FAILED(hres))
1825         return hres;
1826
1827     *ret = elem;
1828     return S_OK;
1829 }
1830
1831 /* interface IHTMLFiltersCollection */
1832 static HRESULT WINAPI HTMLFiltersCollection_QueryInterface(IHTMLFiltersCollection *iface, REFIID riid, void **ppv)
1833 {
1834     HTMLFiltersCollection *This = impl_from_IHTMLFiltersCollection(iface);
1835
1836     TRACE("%p %s %p\n", This, debugstr_guid( riid ), ppv );
1837
1838     if(IsEqualGUID(&IID_IUnknown, riid)) {
1839         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
1840         *ppv = &This->IHTMLFiltersCollection_iface;
1841     }else if(IsEqualGUID(&IID_IHTMLFiltersCollection, riid)) {
1842         TRACE("(%p)->(IID_IHTMLFiltersCollection %p)\n", This, ppv);
1843         *ppv = &This->IHTMLFiltersCollection_iface;
1844     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
1845         return *ppv ? S_OK : E_NOINTERFACE;
1846     }
1847
1848     if(*ppv) {
1849         IUnknown_AddRef((IUnknown*)*ppv);
1850         return S_OK;
1851     }
1852
1853     FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
1854     return E_NOINTERFACE;
1855 }
1856
1857 static ULONG WINAPI HTMLFiltersCollection_AddRef(IHTMLFiltersCollection *iface)
1858 {
1859     HTMLFiltersCollection *This = impl_from_IHTMLFiltersCollection(iface);
1860     LONG ref = InterlockedIncrement(&This->ref);
1861
1862     TRACE("(%p) ref=%d\n", This, ref);
1863
1864     return ref;
1865 }
1866
1867 static ULONG WINAPI HTMLFiltersCollection_Release(IHTMLFiltersCollection *iface)
1868 {
1869     HTMLFiltersCollection *This = impl_from_IHTMLFiltersCollection(iface);
1870     LONG ref = InterlockedDecrement(&This->ref);
1871
1872     TRACE("(%p) ref=%d\n", This, ref);
1873
1874     if(!ref)
1875     {
1876         heap_free(This);
1877     }
1878
1879     return ref;
1880 }
1881
1882 static HRESULT WINAPI HTMLFiltersCollection_GetTypeInfoCount(IHTMLFiltersCollection *iface, UINT *pctinfo)
1883 {
1884     HTMLFiltersCollection *This = impl_from_IHTMLFiltersCollection(iface);
1885     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
1886 }
1887
1888 static HRESULT WINAPI HTMLFiltersCollection_GetTypeInfo(IHTMLFiltersCollection *iface,
1889                                     UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
1890 {
1891     HTMLFiltersCollection *This = impl_from_IHTMLFiltersCollection(iface);
1892     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
1893 }
1894
1895 static HRESULT WINAPI HTMLFiltersCollection_GetIDsOfNames(IHTMLFiltersCollection *iface,
1896                                     REFIID riid, LPOLESTR *rgszNames, UINT cNames,
1897                                     LCID lcid, DISPID *rgDispId)
1898 {
1899     HTMLFiltersCollection *This = impl_from_IHTMLFiltersCollection(iface);
1900     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
1901             lcid, rgDispId);
1902 }
1903
1904 static HRESULT WINAPI HTMLFiltersCollection_Invoke(IHTMLFiltersCollection *iface, DISPID dispIdMember, REFIID riid,
1905                                     LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
1906                                     EXCEPINFO *pExcepInfo, UINT *puArgErr)
1907 {
1908     HTMLFiltersCollection *This = impl_from_IHTMLFiltersCollection(iface);
1909     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid,
1910             wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
1911 }
1912
1913 static HRESULT WINAPI HTMLFiltersCollection_get_length(IHTMLFiltersCollection *iface, LONG *p)
1914 {
1915     HTMLFiltersCollection *This = impl_from_IHTMLFiltersCollection(iface);
1916
1917     if(!p)
1918         return E_POINTER;
1919
1920     FIXME("(%p)->(%p) Always returning 0\n", This, p);
1921     *p = 0;
1922
1923     return S_OK;
1924 }
1925
1926 static HRESULT WINAPI HTMLFiltersCollection_get__newEnum(IHTMLFiltersCollection *iface, IUnknown **p)
1927 {
1928     HTMLFiltersCollection *This = impl_from_IHTMLFiltersCollection(iface);
1929     FIXME("(%p)->(%p)\n", This, p);
1930     return E_NOTIMPL;
1931 }
1932
1933 static HRESULT WINAPI HTMLFiltersCollection_item(IHTMLFiltersCollection *iface, VARIANT *pvarIndex, VARIANT *pvarResult)
1934 {
1935     HTMLFiltersCollection *This = impl_from_IHTMLFiltersCollection(iface);
1936     FIXME("(%p)->(%p, %p)\n", This, pvarIndex, pvarResult);
1937     return E_NOTIMPL;
1938 }
1939
1940 static const IHTMLFiltersCollectionVtbl HTMLFiltersCollectionVtbl = {
1941     HTMLFiltersCollection_QueryInterface,
1942     HTMLFiltersCollection_AddRef,
1943     HTMLFiltersCollection_Release,
1944     HTMLFiltersCollection_GetTypeInfoCount,
1945     HTMLFiltersCollection_GetTypeInfo,
1946     HTMLFiltersCollection_GetIDsOfNames,
1947     HTMLFiltersCollection_Invoke,
1948     HTMLFiltersCollection_get_length,
1949     HTMLFiltersCollection_get__newEnum,
1950     HTMLFiltersCollection_item
1951 };
1952
1953 static HRESULT HTMLFiltersCollection_get_dispid(DispatchEx *dispex, BSTR name, DWORD flags, DISPID *dispid)
1954 {
1955     WCHAR *ptr;
1956     int idx = 0;
1957
1958     for(ptr = name; *ptr && isdigitW(*ptr); ptr++)
1959         idx = idx*10 + (*ptr-'0');
1960     if(*ptr)
1961         return DISP_E_UNKNOWNNAME;
1962
1963     *dispid = MSHTML_DISPID_CUSTOM_MIN + idx;
1964     TRACE("ret %x\n", *dispid);
1965     return S_OK;
1966 }
1967
1968 static HRESULT HTMLFiltersCollection_invoke(DispatchEx *dispex, DISPID id, LCID lcid, WORD flags, DISPPARAMS *params,
1969         VARIANT *res, EXCEPINFO *ei, IServiceProvider *caller)
1970 {
1971     TRACE("(%p)->(%x %x %x %p %p %p)\n", dispex, id, lcid, flags, params, res, ei);
1972
1973     V_VT(res) = VT_DISPATCH;
1974     V_DISPATCH(res) = NULL;
1975
1976     FIXME("always returning NULL\n");
1977
1978     return S_OK;
1979 }
1980
1981 static const dispex_static_data_vtbl_t HTMLFiltersCollection_dispex_vtbl = {
1982     NULL,
1983     HTMLFiltersCollection_get_dispid,
1984     HTMLFiltersCollection_invoke,
1985     NULL
1986 };
1987
1988 static const tid_t HTMLFiltersCollection_iface_tids[] = {
1989     IHTMLFiltersCollection_tid,
1990     0
1991 };
1992 static dispex_static_data_t HTMLFiltersCollection_dispex = {
1993     &HTMLFiltersCollection_dispex_vtbl,
1994     IHTMLFiltersCollection_tid,
1995     NULL,
1996     HTMLFiltersCollection_iface_tids
1997 };
1998
1999 static IHTMLFiltersCollection *HTMLFiltersCollection_Create(void)
2000 {
2001     HTMLFiltersCollection *ret = heap_alloc(sizeof(HTMLFiltersCollection));
2002
2003     ret->IHTMLFiltersCollection_iface.lpVtbl = &HTMLFiltersCollectionVtbl;
2004     ret->ref = 1;
2005
2006     init_dispex(&ret->dispex, (IUnknown*)&ret->IHTMLFiltersCollection_iface,
2007             &HTMLFiltersCollection_dispex);
2008
2009     return &ret->IHTMLFiltersCollection_iface;
2010 }
2011
2012 /* interface IHTMLAttributeCollection */
2013 static inline HTMLAttributeCollection *impl_from_IHTMLAttributeCollection(IHTMLAttributeCollection *iface)
2014 {
2015     return CONTAINING_RECORD(iface, HTMLAttributeCollection, IHTMLAttributeCollection_iface);
2016 }
2017
2018 static HRESULT WINAPI HTMLAttributeCollection_QueryInterface(IHTMLAttributeCollection *iface, REFIID riid, void **ppv)
2019 {
2020     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection(iface);
2021
2022     *ppv = NULL;
2023
2024     if(IsEqualGUID(&IID_IUnknown, riid)) {
2025         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
2026         *ppv = &This->IHTMLAttributeCollection_iface;
2027     }else if(IsEqualGUID(&IID_IHTMLAttributeCollection, riid)) {
2028         TRACE("(%p)->(IID_IHTMLAttributeCollection %p)\n", This, ppv);
2029         *ppv = &This->IHTMLAttributeCollection_iface;
2030     }else if(IsEqualGUID(&IID_IHTMLAttributeCollection2, riid)) {
2031         TRACE("(%p)->(IID_IHTMLAttributeCollection2 %p)\n", This, ppv);
2032         *ppv = &This->IHTMLAttributeCollection2_iface;
2033     }else if(IsEqualGUID(&IID_IHTMLAttributeCollection3, riid)) {
2034         TRACE("(%p)->(IID_IHTMLAttributeCollection3 %p)\n", This, ppv);
2035         *ppv = &This->IHTMLAttributeCollection3_iface;
2036     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
2037         return *ppv ? S_OK : E_NOINTERFACE;
2038     }
2039
2040     if(*ppv) {
2041         IUnknown_AddRef((IUnknown*)*ppv);
2042         return S_OK;
2043     }
2044
2045     WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
2046     return E_NOINTERFACE;
2047 }
2048
2049 static ULONG WINAPI HTMLAttributeCollection_AddRef(IHTMLAttributeCollection *iface)
2050 {
2051     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection(iface);
2052     LONG ref = InterlockedIncrement(&This->ref);
2053
2054     TRACE("(%p) ref=%d\n", This, ref);
2055
2056     return ref;
2057 }
2058
2059 static ULONG WINAPI HTMLAttributeCollection_Release(IHTMLAttributeCollection *iface)
2060 {
2061     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection(iface);
2062     LONG ref = InterlockedDecrement(&This->ref);
2063
2064     TRACE("(%p) ref=%d\n", This, ref);
2065
2066     if(!ref) {
2067         while(!list_empty(&This->attrs)) {
2068             HTMLDOMAttribute *attr = LIST_ENTRY(list_head(&This->attrs), HTMLDOMAttribute, entry);
2069
2070             list_remove(&attr->entry);
2071             attr->elem = NULL;
2072             IHTMLDOMAttribute_Release(&attr->IHTMLDOMAttribute_iface);
2073         }
2074
2075         heap_free(This);
2076     }
2077
2078     return ref;
2079 }
2080
2081 static HRESULT WINAPI HTMLAttributeCollection_GetTypeInfoCount(IHTMLAttributeCollection *iface, UINT *pctinfo)
2082 {
2083     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection(iface);
2084     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
2085 }
2086
2087 static HRESULT WINAPI HTMLAttributeCollection_GetTypeInfo(IHTMLAttributeCollection *iface, UINT iTInfo,
2088         LCID lcid, ITypeInfo **ppTInfo)
2089 {
2090     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection(iface);
2091     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
2092 }
2093
2094 static HRESULT WINAPI HTMLAttributeCollection_GetIDsOfNames(IHTMLAttributeCollection *iface, REFIID riid,
2095         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
2096 {
2097     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection(iface);
2098     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
2099             lcid, rgDispId);
2100 }
2101
2102 static HRESULT WINAPI HTMLAttributeCollection_Invoke(IHTMLAttributeCollection *iface, DISPID dispIdMember,
2103         REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
2104         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
2105 {
2106     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection(iface);
2107     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid,
2108             wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
2109 }
2110
2111 static HRESULT get_attr_dispid_by_idx(HTMLAttributeCollection *This, LONG *idx, DISPID *dispid)
2112 {
2113     IDispatchEx *dispex = &This->elem->node.dispex.IDispatchEx_iface;
2114     DISPID id = DISPID_STARTENUM;
2115     LONG len = -1;
2116     HRESULT hres;
2117
2118     FIXME("filter non-enumerable attributes out\n");
2119
2120     while(1) {
2121         hres = IDispatchEx_GetNextDispID(dispex, fdexEnumAll, id, &id);
2122         if(FAILED(hres))
2123             return hres;
2124         else if(hres == S_FALSE)
2125             break;
2126
2127         len++;
2128         if(len == *idx)
2129             break;
2130     }
2131
2132     if(dispid) {
2133         *dispid = id;
2134         return *idx==len ? S_OK : DISP_E_UNKNOWNNAME;
2135     }
2136
2137     *idx = len+1;
2138     return S_OK;
2139 }
2140
2141 static inline HRESULT get_attr_dispid_by_name(HTMLAttributeCollection *This, BSTR name, DISPID *id)
2142 {
2143     HRESULT hres;
2144
2145     if(name[0]>='0' && name[0]<='9') {
2146         WCHAR *end_ptr;
2147         LONG idx;
2148
2149         idx = strtoulW(name, &end_ptr, 10);
2150         if(!*end_ptr) {
2151             hres = get_attr_dispid_by_idx(This, &idx, id);
2152             if(SUCCEEDED(hres))
2153                 return hres;
2154         }
2155     }
2156
2157     if(!This->elem) {
2158         WARN("NULL elem\n");
2159         return E_UNEXPECTED;
2160     }
2161
2162     hres = IDispatchEx_GetDispID(&This->elem->node.dispex.IDispatchEx_iface,
2163             name, fdexNameCaseInsensitive, id);
2164     return hres;
2165 }
2166
2167 static inline HRESULT get_domattr(HTMLAttributeCollection *This, DISPID id, LONG *list_pos, HTMLDOMAttribute **attr)
2168 {
2169     HTMLDOMAttribute *iter;
2170     LONG pos = 0;
2171     HRESULT hres;
2172
2173     *attr = NULL;
2174     LIST_FOR_EACH_ENTRY(iter, &This->attrs, HTMLDOMAttribute, entry) {
2175         if(iter->dispid == id) {
2176             *attr = iter;
2177             break;
2178         }
2179         pos++;
2180     }
2181
2182     if(!*attr) {
2183         if(!This->elem) {
2184             WARN("NULL elem\n");
2185             return E_UNEXPECTED;
2186         }
2187
2188         pos++;
2189         hres = HTMLDOMAttribute_Create(This->elem, id, attr);
2190         if(FAILED(hres))
2191             return hres;
2192     }
2193
2194     IHTMLDOMAttribute_AddRef(&(*attr)->IHTMLDOMAttribute_iface);
2195     if(list_pos)
2196         *list_pos = pos;
2197     return S_OK;
2198 }
2199
2200 static HRESULT WINAPI HTMLAttributeCollection_get_length(IHTMLAttributeCollection *iface, LONG *p)
2201 {
2202     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection(iface);
2203     HRESULT hres;
2204
2205     TRACE("(%p)->(%p)\n", This, p);
2206
2207     *p = -1;
2208     hres = get_attr_dispid_by_idx(This, p, NULL);
2209     return hres;
2210 }
2211
2212 static HRESULT WINAPI HTMLAttributeCollection__newEnum(IHTMLAttributeCollection *iface, IUnknown **p)
2213 {
2214     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection(iface);
2215     FIXME("(%p)->(%p)\n", This, p);
2216     return E_NOTIMPL;
2217 }
2218
2219 static HRESULT WINAPI HTMLAttributeCollection_item(IHTMLAttributeCollection *iface, VARIANT *name, IDispatch **ppItem)
2220 {
2221     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection(iface);
2222     HTMLDOMAttribute *attr;
2223     DISPID id;
2224     HRESULT hres;
2225
2226     TRACE("(%p)->(%s %p)\n", This, debugstr_variant(name), ppItem);
2227
2228     switch(V_VT(name)) {
2229     case VT_I4:
2230         hres = get_attr_dispid_by_idx(This, &V_I4(name), &id);
2231         break;
2232     case VT_BSTR:
2233         hres = get_attr_dispid_by_name(This, V_BSTR(name), &id);
2234         break;
2235     default:
2236         FIXME("unsupported name %s\n", debugstr_variant(name));
2237         hres = E_NOTIMPL;
2238     }
2239     if(hres == DISP_E_UNKNOWNNAME)
2240         return E_INVALIDARG;
2241     if(FAILED(hres))
2242         return hres;
2243
2244     hres = get_domattr(This, id, NULL, &attr);
2245     if(FAILED(hres))
2246         return hres;
2247
2248     *ppItem = (IDispatch*)&attr->IHTMLDOMAttribute_iface;
2249     return S_OK;
2250 }
2251
2252 static const IHTMLAttributeCollectionVtbl HTMLAttributeCollectionVtbl = {
2253     HTMLAttributeCollection_QueryInterface,
2254     HTMLAttributeCollection_AddRef,
2255     HTMLAttributeCollection_Release,
2256     HTMLAttributeCollection_GetTypeInfoCount,
2257     HTMLAttributeCollection_GetTypeInfo,
2258     HTMLAttributeCollection_GetIDsOfNames,
2259     HTMLAttributeCollection_Invoke,
2260     HTMLAttributeCollection_get_length,
2261     HTMLAttributeCollection__newEnum,
2262     HTMLAttributeCollection_item
2263 };
2264
2265 static inline HTMLAttributeCollection *impl_from_IHTMLAttributeCollection2(IHTMLAttributeCollection2 *iface)
2266 {
2267     return CONTAINING_RECORD(iface, HTMLAttributeCollection, IHTMLAttributeCollection2_iface);
2268 }
2269
2270 static HRESULT WINAPI HTMLAttributeCollection2_QueryInterface(IHTMLAttributeCollection2 *iface, REFIID riid, void **ppv)
2271 {
2272     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection2(iface);
2273     return IHTMLAttributeCollection_QueryInterface(&This->IHTMLAttributeCollection_iface, riid, ppv);
2274 }
2275
2276 static ULONG WINAPI HTMLAttributeCollection2_AddRef(IHTMLAttributeCollection2 *iface)
2277 {
2278     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection2(iface);
2279     return IHTMLAttributeCollection_AddRef(&This->IHTMLAttributeCollection_iface);
2280 }
2281
2282 static ULONG WINAPI HTMLAttributeCollection2_Release(IHTMLAttributeCollection2 *iface)
2283 {
2284     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection2(iface);
2285     return IHTMLAttributeCollection_Release(&This->IHTMLAttributeCollection_iface);
2286 }
2287
2288 static HRESULT WINAPI HTMLAttributeCollection2_GetTypeInfoCount(IHTMLAttributeCollection2 *iface, UINT *pctinfo)
2289 {
2290     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection2(iface);
2291     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
2292 }
2293
2294 static HRESULT WINAPI HTMLAttributeCollection2_GetTypeInfo(IHTMLAttributeCollection2 *iface, UINT iTInfo,
2295         LCID lcid, ITypeInfo **ppTInfo)
2296 {
2297     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection2(iface);
2298     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
2299 }
2300
2301 static HRESULT WINAPI HTMLAttributeCollection2_GetIDsOfNames(IHTMLAttributeCollection2 *iface, REFIID riid,
2302         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
2303 {
2304     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection2(iface);
2305     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
2306             lcid, rgDispId);
2307 }
2308
2309 static HRESULT WINAPI HTMLAttributeCollection2_Invoke(IHTMLAttributeCollection2 *iface, DISPID dispIdMember,
2310         REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
2311         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
2312 {
2313     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection2(iface);
2314     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid,
2315             wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
2316 }
2317
2318 static HRESULT WINAPI HTMLAttributeCollection2_getNamedItem(IHTMLAttributeCollection2 *iface, BSTR bstrName,
2319         IHTMLDOMAttribute **newretNode)
2320 {
2321     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection2(iface);
2322     HTMLDOMAttribute *attr;
2323     DISPID id;
2324     HRESULT hres;
2325
2326     TRACE("(%p)->(%s %p)\n", This, debugstr_w(bstrName), newretNode);
2327
2328     hres = get_attr_dispid_by_name(This, bstrName, &id);
2329     if(hres == DISP_E_UNKNOWNNAME) {
2330         *newretNode = NULL;
2331         return S_OK;
2332     } else if(FAILED(hres)) {
2333         return hres;
2334     }
2335
2336     hres = get_domattr(This, id, NULL, &attr);
2337     if(FAILED(hres))
2338         return hres;
2339
2340     *newretNode = &attr->IHTMLDOMAttribute_iface;
2341     return S_OK;
2342 }
2343
2344 static HRESULT WINAPI HTMLAttributeCollection2_setNamedItem(IHTMLAttributeCollection2 *iface,
2345         IHTMLDOMAttribute *ppNode, IHTMLDOMAttribute **newretNode)
2346 {
2347     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection2(iface);
2348     FIXME("(%p)->(%p %p)\n", This, ppNode, newretNode);
2349     return E_NOTIMPL;
2350 }
2351
2352 static HRESULT WINAPI HTMLAttributeCollection2_removeNamedItem(IHTMLAttributeCollection2 *iface,
2353         BSTR bstrName, IHTMLDOMAttribute **newretNode)
2354 {
2355     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection2(iface);
2356     FIXME("(%p)->(%s %p)\n", This, debugstr_w(bstrName), newretNode);
2357     return E_NOTIMPL;
2358 }
2359
2360 static const IHTMLAttributeCollection2Vtbl HTMLAttributeCollection2Vtbl = {
2361     HTMLAttributeCollection2_QueryInterface,
2362     HTMLAttributeCollection2_AddRef,
2363     HTMLAttributeCollection2_Release,
2364     HTMLAttributeCollection2_GetTypeInfoCount,
2365     HTMLAttributeCollection2_GetTypeInfo,
2366     HTMLAttributeCollection2_GetIDsOfNames,
2367     HTMLAttributeCollection2_Invoke,
2368     HTMLAttributeCollection2_getNamedItem,
2369     HTMLAttributeCollection2_setNamedItem,
2370     HTMLAttributeCollection2_removeNamedItem
2371 };
2372
2373 static inline HTMLAttributeCollection *impl_from_IHTMLAttributeCollection3(IHTMLAttributeCollection3 *iface)
2374 {
2375     return CONTAINING_RECORD(iface, HTMLAttributeCollection, IHTMLAttributeCollection3_iface);
2376 }
2377
2378 static HRESULT WINAPI HTMLAttributeCollection3_QueryInterface(IHTMLAttributeCollection3 *iface, REFIID riid, void **ppv)
2379 {
2380     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection3(iface);
2381     return IHTMLAttributeCollection_QueryInterface(&This->IHTMLAttributeCollection_iface, riid, ppv);
2382 }
2383
2384 static ULONG WINAPI HTMLAttributeCollection3_AddRef(IHTMLAttributeCollection3 *iface)
2385 {
2386     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection3(iface);
2387     return IHTMLAttributeCollection_AddRef(&This->IHTMLAttributeCollection_iface);
2388 }
2389
2390 static ULONG WINAPI HTMLAttributeCollection3_Release(IHTMLAttributeCollection3 *iface)
2391 {
2392     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection3(iface);
2393     return IHTMLAttributeCollection_Release(&This->IHTMLAttributeCollection_iface);
2394 }
2395
2396 static HRESULT WINAPI HTMLAttributeCollection3_GetTypeInfoCount(IHTMLAttributeCollection3 *iface, UINT *pctinfo)
2397 {
2398     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection3(iface);
2399     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
2400 }
2401
2402 static HRESULT WINAPI HTMLAttributeCollection3_GetTypeInfo(IHTMLAttributeCollection3 *iface, UINT iTInfo,
2403         LCID lcid, ITypeInfo **ppTInfo)
2404 {
2405     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection3(iface);
2406     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
2407 }
2408
2409 static HRESULT WINAPI HTMLAttributeCollection3_GetIDsOfNames(IHTMLAttributeCollection3 *iface, REFIID riid,
2410         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
2411 {
2412     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection3(iface);
2413     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
2414             lcid, rgDispId);
2415 }
2416
2417 static HRESULT WINAPI HTMLAttributeCollection3_Invoke(IHTMLAttributeCollection3 *iface, DISPID dispIdMember,
2418         REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
2419         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
2420 {
2421     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection3(iface);
2422     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid,
2423             wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
2424 }
2425
2426 static HRESULT WINAPI HTMLAttributeCollection3_getNamedItem(IHTMLAttributeCollection3 *iface, BSTR bstrName,
2427         IHTMLDOMAttribute **ppNodeOut)
2428 {
2429     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection3(iface);
2430     return IHTMLAttributeCollection2_getNamedItem(&This->IHTMLAttributeCollection2_iface, bstrName, ppNodeOut);
2431 }
2432
2433 static HRESULT WINAPI HTMLAttributeCollection3_setNamedItem(IHTMLAttributeCollection3 *iface,
2434         IHTMLDOMAttribute *pNodeIn, IHTMLDOMAttribute **ppNodeOut)
2435 {
2436     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection3(iface);
2437     FIXME("(%p)->(%p %p)\n", This, pNodeIn, ppNodeOut);
2438     return E_NOTIMPL;
2439 }
2440
2441 static HRESULT WINAPI HTMLAttributeCollection3_removeNamedItem(IHTMLAttributeCollection3 *iface,
2442         BSTR bstrName, IHTMLDOMAttribute **ppNodeOut)
2443 {
2444     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection3(iface);
2445     FIXME("(%p)->(%s %p)\n", This, debugstr_w(bstrName), ppNodeOut);
2446     return E_NOTIMPL;
2447 }
2448
2449 static HRESULT WINAPI HTMLAttributeCollection3_item(IHTMLAttributeCollection3 *iface, LONG index, IHTMLDOMAttribute **ppNodeOut)
2450 {
2451     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection3(iface);
2452     HTMLDOMAttribute *attr;
2453     DISPID id;
2454     HRESULT hres;
2455
2456     TRACE("(%p)->(%d %p)\n", This, index, ppNodeOut);
2457
2458     hres = get_attr_dispid_by_idx(This, &index, &id);
2459     if(hres == DISP_E_UNKNOWNNAME)
2460         return E_INVALIDARG;
2461     if(FAILED(hres))
2462         return hres;
2463
2464     hres = get_domattr(This, id, NULL, &attr);
2465     if(FAILED(hres))
2466         return hres;
2467
2468     *ppNodeOut = &attr->IHTMLDOMAttribute_iface;
2469     return S_OK;
2470 }
2471
2472 static HRESULT WINAPI HTMLAttributeCollection3_get_length(IHTMLAttributeCollection3 *iface, LONG *p)
2473 {
2474     HTMLAttributeCollection *This = impl_from_IHTMLAttributeCollection3(iface);
2475     return IHTMLAttributeCollection_get_length(&This->IHTMLAttributeCollection_iface, p);
2476 }
2477
2478 static const IHTMLAttributeCollection3Vtbl HTMLAttributeCollection3Vtbl = {
2479     HTMLAttributeCollection3_QueryInterface,
2480     HTMLAttributeCollection3_AddRef,
2481     HTMLAttributeCollection3_Release,
2482     HTMLAttributeCollection3_GetTypeInfoCount,
2483     HTMLAttributeCollection3_GetTypeInfo,
2484     HTMLAttributeCollection3_GetIDsOfNames,
2485     HTMLAttributeCollection3_Invoke,
2486     HTMLAttributeCollection3_getNamedItem,
2487     HTMLAttributeCollection3_setNamedItem,
2488     HTMLAttributeCollection3_removeNamedItem,
2489     HTMLAttributeCollection3_item,
2490     HTMLAttributeCollection3_get_length
2491 };
2492
2493 static inline HTMLAttributeCollection *HTMLAttributeCollection_from_DispatchEx(DispatchEx *iface)
2494 {
2495     return CONTAINING_RECORD(iface, HTMLAttributeCollection, dispex);
2496 }
2497
2498 static HRESULT HTMLAttributeCollection_get_dispid(DispatchEx *dispex, BSTR name, DWORD flags, DISPID *dispid)
2499 {
2500     HTMLAttributeCollection *This = HTMLAttributeCollection_from_DispatchEx(dispex);
2501     HTMLDOMAttribute *attr;
2502     LONG pos;
2503     HRESULT hres;
2504
2505     TRACE("(%p)->(%s %x %p)\n", This, debugstr_w(name), flags, dispid);
2506
2507     hres = get_attr_dispid_by_name(This, name, dispid);
2508     if(FAILED(hres))
2509         return hres;
2510
2511     hres = get_domattr(This, *dispid, &pos, &attr);
2512     if(FAILED(hres))
2513         return hres;
2514     IHTMLDOMAttribute_Release(&attr->IHTMLDOMAttribute_iface);
2515
2516     *dispid = MSHTML_DISPID_CUSTOM_MIN+pos;
2517     return S_OK;
2518 }
2519
2520 static HRESULT HTMLAttributeCollection_invoke(DispatchEx *dispex, DISPID id, LCID lcid,
2521         WORD flags, DISPPARAMS *params, VARIANT *res, EXCEPINFO *ei, IServiceProvider *caller)
2522 {
2523     HTMLAttributeCollection *This = HTMLAttributeCollection_from_DispatchEx(dispex);
2524
2525     TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This, id, lcid, flags, params, res, ei, caller);
2526
2527     switch(flags) {
2528     case DISPATCH_PROPERTYGET: {
2529         HTMLDOMAttribute *iter;
2530
2531         id = id-MSHTML_DISPID_CUSTOM_MIN+1;
2532
2533         LIST_FOR_EACH_ENTRY(iter, &This->attrs, HTMLDOMAttribute, entry) {
2534             if(!(--id))
2535                 break;
2536         }
2537         if(id)
2538             return E_INVALIDARG;
2539
2540         IHTMLDOMAttribute_AddRef(&iter->IHTMLDOMAttribute_iface);
2541         V_VT(res) = VT_DISPATCH;
2542         V_DISPATCH(res) = (IDispatch*)&iter->IHTMLDOMAttribute_iface;
2543         return S_OK;
2544     }
2545
2546     default:
2547         FIXME("unimplemented flags %x\n", flags);
2548         return E_NOTIMPL;
2549     }
2550 }
2551
2552 static const dispex_static_data_vtbl_t HTMLAttributeCollection_dispex_vtbl = {
2553     NULL,
2554     HTMLAttributeCollection_get_dispid,
2555     HTMLAttributeCollection_invoke,
2556     NULL
2557 };
2558
2559 static const tid_t HTMLAttributeCollection_iface_tids[] = {
2560     IHTMLAttributeCollection_tid,
2561     IHTMLAttributeCollection2_tid,
2562     IHTMLAttributeCollection3_tid,
2563     0
2564 };
2565
2566 static dispex_static_data_t HTMLAttributeCollection_dispex = {
2567     &HTMLAttributeCollection_dispex_vtbl,
2568     DispHTMLAttributeCollection_tid,
2569     NULL,
2570     HTMLAttributeCollection_iface_tids
2571 };
2572
2573 HRESULT HTMLElement_get_attr_col(HTMLDOMNode *iface, HTMLAttributeCollection **ac)
2574 {
2575     HTMLElement *This = impl_from_HTMLDOMNode(iface);
2576
2577     if(This->attrs) {
2578         IHTMLAttributeCollection_AddRef(&This->attrs->IHTMLAttributeCollection_iface);
2579         *ac = This->attrs;
2580         return S_OK;
2581     }
2582
2583     This->attrs = heap_alloc_zero(sizeof(HTMLAttributeCollection));
2584     if(!This->attrs)
2585         return E_OUTOFMEMORY;
2586
2587     This->attrs->IHTMLAttributeCollection_iface.lpVtbl = &HTMLAttributeCollectionVtbl;
2588     This->attrs->IHTMLAttributeCollection2_iface.lpVtbl = &HTMLAttributeCollection2Vtbl;
2589     This->attrs->IHTMLAttributeCollection3_iface.lpVtbl = &HTMLAttributeCollection3Vtbl;
2590     This->attrs->ref = 2;
2591
2592     This->attrs->elem = This;
2593     list_init(&This->attrs->attrs);
2594     init_dispex(&This->attrs->dispex, (IUnknown*)&This->attrs->IHTMLAttributeCollection_iface,
2595             &HTMLAttributeCollection_dispex);
2596
2597     *ac = This->attrs;
2598     return S_OK;
2599 }