dlls/mshtml/htmlstylesheet.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 #include <stdarg.h>
  20 #include <assert.h>
  21
  22 #define COBJMACROS
  23
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "winuser.h"
  27 #include "ole2.h"
  28
  29 #include "wine/debug.h"
  30
  31 #include "mshtml_private.h"
  32
  33 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  34
  35 struct HTMLStyleSheet {
  36     DispatchEx dispex;
  37     IHTMLStyleSheet IHTMLStyleSheet_iface;
  38     IHTMLStyleSheet4 IHTMLStyleSheet4_iface;
  39
  40     LONG ref;
  41
  42     nsIDOMCSSStyleSheet *nsstylesheet;
  43 };
  44
  45 struct HTMLStyleSheetsCollection {
  46     DispatchEx dispex;
  47     IHTMLStyleSheetsCollection IHTMLStyleSheetsCollection_iface;
  48
  49     LONG ref;
  50
  51     nsIDOMStyleSheetList *nslist;
  52 };
  53
  54 struct HTMLStyleSheetRulesCollection {
  55     DispatchEx dispex;
  56     IHTMLStyleSheetRulesCollection IHTMLStyleSheetRulesCollection_iface;
  57
  58     LONG ref;
  59
  60     nsIDOMCSSRuleList *nslist;
  61 };
  62
  63 struct HTMLStyleSheetRule {
  64     DispatchEx dispex;
  65     IHTMLStyleSheetRule IHTMLStyleSheetRule_iface;
  66
  67     LONG ref;
  68
  69     nsIDOMCSSRule *nsstylesheetrule;
  70 };
  71
  72 static inline HTMLStyleSheetRule *impl_from_IHTMLStyleSheetRule(IHTMLStyleSheetRule *iface)
  73 {
  74     return CONTAINING_RECORD(iface, HTMLStyleSheetRule, IHTMLStyleSheetRule_iface);
  75 }
  76
  77 static HRESULT WINAPI HTMLStyleSheetRule_QueryInterface(IHTMLStyleSheetRule *iface,
  78         REFIID riid, void **ppv)
  79 {
  80     HTMLStyleSheetRule *This = impl_from_IHTMLStyleSheetRule(iface);
  81
  82     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
  83
  84     if (IsEqualGUID(&IID_IUnknown, riid))
  85         *ppv = &This->IHTMLStyleSheetRule_iface;
  86     else if (IsEqualGUID(&IID_IHTMLStyleSheetRule, riid))
  87         *ppv = &This->IHTMLStyleSheetRule_iface;
  88     else if (dispex_query_interface(&This->dispex, riid, ppv))
  89         return *ppv ? S_OK : E_NOINTERFACE;
  90     else
  91     {
  92         *ppv = NULL;
  93         FIXME("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
  94         return E_NOINTERFACE;
  95     }
  96
  97     IUnknown_AddRef((IUnknown *)*ppv);
  98     return S_OK;
  99 }
 100
 101 static ULONG WINAPI HTMLStyleSheetRule_AddRef(IHTMLStyleSheetRule *iface)
 102 {
 103     HTMLStyleSheetRule *This = impl_from_IHTMLStyleSheetRule(iface);
 104     LONG ref = InterlockedIncrement(&This->ref);
 105
 106     TRACE("(%p) ref=%d\n", This, ref);
 107
 108     return ref;
 109 }
 110
 111 static ULONG WINAPI HTMLStyleSheetRule_Release(IHTMLStyleSheetRule *iface)
 112 {
 113     HTMLStyleSheetRule *This = impl_from_IHTMLStyleSheetRule(iface);
 114     LONG ref = InterlockedDecrement(&This->ref);
 115
 116     TRACE("(%p) ref=%d\n", This, ref);
 117
 118     if(!ref) {
 119         release_dispex(&This->dispex);
 120         if(This->nsstylesheetrule)
 121             nsIDOMCSSRule_Release(This->nsstylesheetrule);
 122         heap_free(This);
 123     }
 124
 125     return ref;
 126 }
 127
 128 static HRESULT WINAPI HTMLStyleSheetRule_GetTypeInfoCount(
 129         IHTMLStyleSheetRule *iface, UINT *pctinfo)
 130 {
 131     HTMLStyleSheetRule *This = impl_from_IHTMLStyleSheetRule(iface);
 132     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
 133 }
 134
 135 static HRESULT WINAPI HTMLStyleSheetRule_GetTypeInfo(IHTMLStyleSheetRule *iface,
 136         UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
 137 {
 138     HTMLStyleSheetRule *This = impl_from_IHTMLStyleSheetRule(iface);
 139     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 140 }
 141
 142 static HRESULT WINAPI HTMLStyleSheetRule_GetIDsOfNames(IHTMLStyleSheetRule *iface,
 143         REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
 144 {
 145     HTMLStyleSheetRule *This = impl_from_IHTMLStyleSheetRule(iface);
 146     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
 147             lcid, rgDispId);
 148 }
 149
 150 static HRESULT WINAPI HTMLStyleSheetRule_Invoke(IHTMLStyleSheetRule *iface,
 151         DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 152         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 153 {
 154     HTMLStyleSheetRule *This = impl_from_IHTMLStyleSheetRule(iface);
 155     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
 156             pDispParams, pVarResult, pExcepInfo, puArgErr);
 157 }
 158
 159 static HRESULT WINAPI HTMLStyleSheetRule_put_selectorText(IHTMLStyleSheetRule *iface, BSTR v)
 160 {
 161     HTMLStyleSheetRule *This = impl_from_IHTMLStyleSheetRule(iface);
 162     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 163     return E_NOTIMPL;
 164 }
 165
 166 static HRESULT WINAPI HTMLStyleSheetRule_get_selectorText(IHTMLStyleSheetRule *iface, BSTR *p)
 167 {
 168     HTMLStyleSheetRule *This = impl_from_IHTMLStyleSheetRule(iface);
 169     FIXME("(%p)->(%p)\n", This, p);
 170     return E_NOTIMPL;
 171 }
 172
 173 static HRESULT WINAPI HTMLStyleSheetRule_get_style(IHTMLStyleSheetRule *iface, IHTMLRuleStyle **p)
 174 {
 175     HTMLStyleSheetRule *This = impl_from_IHTMLStyleSheetRule(iface);
 176     FIXME("(%p)->(%p)\n", This, p);
 177     return E_NOTIMPL;
 178 }
 179
 180 static HRESULT WINAPI HTMLStyleSheetRule_get_readOnly(IHTMLStyleSheetRule *iface, VARIANT_BOOL *p)
 181 {
 182     HTMLStyleSheetRule *This = impl_from_IHTMLStyleSheetRule(iface);
 183     FIXME("(%p)->(%p)\n", This, p);
 184     return E_NOTIMPL;
 185 }
 186
 187 static const IHTMLStyleSheetRuleVtbl HTMLStyleSheetRuleVtbl = {
 188     HTMLStyleSheetRule_QueryInterface,
 189     HTMLStyleSheetRule_AddRef,
 190     HTMLStyleSheetRule_Release,
 191     HTMLStyleSheetRule_GetTypeInfoCount,
 192     HTMLStyleSheetRule_GetTypeInfo,
 193     HTMLStyleSheetRule_GetIDsOfNames,
 194     HTMLStyleSheetRule_Invoke,
 195     HTMLStyleSheetRule_put_selectorText,
 196     HTMLStyleSheetRule_get_selectorText,
 197     HTMLStyleSheetRule_get_style,
 198     HTMLStyleSheetRule_get_readOnly
 199 };
 200
 201 static const tid_t HTMLStyleSheetRule_iface_tids[] = {
 202     IHTMLStyleSheetRule_tid,
 203     0
 204 };
 205 static dispex_static_data_t HTMLStyleSheetRule_dispex = {
 206     NULL,
 207     DispHTMLStyleSheetRule_tid,
 208     HTMLStyleSheetRule_iface_tids
 209 };
 210
 211 static HRESULT create_style_sheet_rule(nsIDOMCSSRule *nsstylesheetrule, compat_mode_t compat_mode,
 212                                        IHTMLStyleSheetRule **ret)
 213 {
 214     HTMLStyleSheetRule *rule;
 215     nsresult nsres;
 216
 217     if(!(rule = heap_alloc(sizeof(*rule))))
 218         return E_OUTOFMEMORY;
 219
 220     rule->IHTMLStyleSheetRule_iface.lpVtbl = &HTMLStyleSheetRuleVtbl;
 221     rule->ref = 1;
 222     rule->nsstylesheetrule = NULL;
 223
 224     init_dispatch(&rule->dispex, (IUnknown *)&rule->IHTMLStyleSheetRule_iface, &HTMLStyleSheetRule_dispex,
 225                   compat_mode);
 226
 227     if (nsstylesheetrule)
 228     {
 229         nsres = nsIDOMCSSRule_QueryInterface(nsstylesheetrule, &IID_nsIDOMCSSRule,
 230                 (void **)&rule->nsstylesheetrule);
 231         if (NS_FAILED(nsres))
 232             ERR("Could not get nsIDOMCSSRule interface: %08x\n", nsres);
 233     }
 234
 235     *ret = &rule->IHTMLStyleSheetRule_iface;
 236     return S_OK;
 237 }
 238
 239 static inline HTMLStyleSheetRulesCollection *impl_from_IHTMLStyleSheetRulesCollection(IHTMLStyleSheetRulesCollection *iface)
 240 {
 241     return CONTAINING_RECORD(iface, HTMLStyleSheetRulesCollection, IHTMLStyleSheetRulesCollection_iface);
 242 }
 243
 244 static HRESULT WINAPI HTMLStyleSheetRulesCollection_QueryInterface(IHTMLStyleSheetRulesCollection *iface,
 245         REFIID riid, void **ppv)
 246 {
 247     HTMLStyleSheetRulesCollection *This = impl_from_IHTMLStyleSheetRulesCollection(iface);
 248
 249     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 250
 251     if(IsEqualGUID(&IID_IUnknown, riid)) {
 252         *ppv = &This->IHTMLStyleSheetRulesCollection_iface;
 253     }else if(IsEqualGUID(&IID_IHTMLStyleSheetRulesCollection, riid)) {
 254         *ppv = &This->IHTMLStyleSheetRulesCollection_iface;
 255     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
 256         return *ppv ? S_OK : E_NOINTERFACE;
 257     }else {
 258         *ppv = NULL;
 259         FIXME("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 260         return E_NOINTERFACE;
 261     }
 262
 263     IUnknown_AddRef((IUnknown*)*ppv);
 264     return S_OK;
 265 }
 266
 267 static ULONG WINAPI HTMLStyleSheetRulesCollection_AddRef(IHTMLStyleSheetRulesCollection *iface)
 268 {
 269     HTMLStyleSheetRulesCollection *This = impl_from_IHTMLStyleSheetRulesCollection(iface);
 270     LONG ref = InterlockedIncrement(&This->ref);
 271
 272     TRACE("(%p) ref=%d\n", This, ref);
 273
 274     return ref;
 275 }
 276
 277 static ULONG WINAPI HTMLStyleSheetRulesCollection_Release(IHTMLStyleSheetRulesCollection *iface)
 278 {
 279     HTMLStyleSheetRulesCollection *This = impl_from_IHTMLStyleSheetRulesCollection(iface);
 280     LONG ref = InterlockedDecrement(&This->ref);
 281
 282     TRACE("(%p) ref=%d\n", This, ref);
 283
 284     if(!ref) {
 285         release_dispex(&This->dispex);
 286         if(This->nslist)
 287             nsIDOMCSSRuleList_Release(This->nslist);
 288         heap_free(This);
 289     }
 290
 291     return ref;
 292 }
 293
 294 static HRESULT WINAPI HTMLStyleSheetRulesCollection_GetTypeInfoCount(
 295         IHTMLStyleSheetRulesCollection *iface, UINT *pctinfo)
 296 {
 297     HTMLStyleSheetRulesCollection *This = impl_from_IHTMLStyleSheetRulesCollection(iface);
 298     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
 299 }
 300
 301 static HRESULT WINAPI HTMLStyleSheetRulesCollection_GetTypeInfo(IHTMLStyleSheetRulesCollection *iface,
 302         UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
 303 {
 304     HTMLStyleSheetRulesCollection *This = impl_from_IHTMLStyleSheetRulesCollection(iface);
 305     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 306 }
 307
 308 static HRESULT WINAPI HTMLStyleSheetRulesCollection_GetIDsOfNames(IHTMLStyleSheetRulesCollection *iface,
 309         REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
 310 {
 311     HTMLStyleSheetRulesCollection *This = impl_from_IHTMLStyleSheetRulesCollection(iface);
 312     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
 313             lcid, rgDispId);
 314 }
 315
 316 static HRESULT WINAPI HTMLStyleSheetRulesCollection_Invoke(IHTMLStyleSheetRulesCollection *iface,
 317         DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 318         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 319 {
 320     HTMLStyleSheetRulesCollection *This = impl_from_IHTMLStyleSheetRulesCollection(iface);
 321     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
 322             pDispParams, pVarResult, pExcepInfo, puArgErr);
 323 }
 324
 325 static HRESULT WINAPI HTMLStyleSheetRulesCollection_get_length(IHTMLStyleSheetRulesCollection *iface,
 326         LONG *p)
 327 {
 328     HTMLStyleSheetRulesCollection *This = impl_from_IHTMLStyleSheetRulesCollection(iface);
 329     UINT32 len = 0;
 330
 331     TRACE("(%p)->(%p)\n", This, p);
 332
 333     if(This->nslist) {
 334         nsresult nsres;
 335
 336         nsres = nsIDOMCSSRuleList_GetLength(This->nslist, &len);
 337         if(NS_FAILED(nsres))
 338             ERR("GetLength failed: %08x\n", nsres);
 339     }
 340
 341     *p = len;
 342     return S_OK;
 343 }
 344
 345 static HRESULT WINAPI HTMLStyleSheetRulesCollection_item(IHTMLStyleSheetRulesCollection *iface,
 346         LONG index, IHTMLStyleSheetRule **p)
 347 {
 348     HTMLStyleSheetRulesCollection *This = impl_from_IHTMLStyleSheetRulesCollection(iface);
 349     nsIDOMCSSRule *nsstylesheetrule;
 350     nsresult nsres;
 351
 352     TRACE("(%p)->(%d %p)\n", This, index, p);
 353
 354     nsres = nsIDOMCSSRuleList_Item(This->nslist, index, &nsstylesheetrule);
 355     if(NS_FAILED(nsres))
 356         return map_nsresult(nsres);
 357     if(!nsstylesheetrule)
 358         return E_INVALIDARG;
 359
 360     return create_style_sheet_rule(nsstylesheetrule, dispex_compat_mode(&This->dispex), p);
 361 }
 362
 363 static const IHTMLStyleSheetRulesCollectionVtbl HTMLStyleSheetRulesCollectionVtbl = {
 364     HTMLStyleSheetRulesCollection_QueryInterface,
 365     HTMLStyleSheetRulesCollection_AddRef,
 366     HTMLStyleSheetRulesCollection_Release,
 367     HTMLStyleSheetRulesCollection_GetTypeInfoCount,
 368     HTMLStyleSheetRulesCollection_GetTypeInfo,
 369     HTMLStyleSheetRulesCollection_GetIDsOfNames,
 370     HTMLStyleSheetRulesCollection_Invoke,
 371     HTMLStyleSheetRulesCollection_get_length,
 372     HTMLStyleSheetRulesCollection_item
 373 };
 374
 375 static const tid_t HTMLStyleSheetRulesCollection_iface_tids[] = {
 376     IHTMLStyleSheetRulesCollection_tid,
 377     0
 378 };
 379 static dispex_static_data_t HTMLStyleSheetRulesCollection_dispex = {
 380     NULL,
 381     DispHTMLStyleSheetRulesCollection_tid,
 382     HTMLStyleSheetRulesCollection_iface_tids
 383 };
 384
 385 static HRESULT create_style_sheet_rules_collection(nsIDOMCSSRuleList *nslist, compat_mode_t compat_mode,
 386                                                    IHTMLStyleSheetRulesCollection **ret)
 387 {
 388     HTMLStyleSheetRulesCollection *collection;
 389
 390     if(!(collection = heap_alloc(sizeof(*collection))))
 391         return E_OUTOFMEMORY;
 392
 393     collection->IHTMLStyleSheetRulesCollection_iface.lpVtbl = &HTMLStyleSheetRulesCollectionVtbl;
 394     collection->ref = 1;
 395     collection->nslist = nslist;
 396
 397     init_dispatch(&collection->dispex, (IUnknown*)&collection->IHTMLStyleSheetRulesCollection_iface,
 398                   &HTMLStyleSheetRulesCollection_dispex, compat_mode);
 399
 400     if(nslist)
 401         nsIDOMCSSRuleList_AddRef(nslist);
 402
 403     *ret = &collection->IHTMLStyleSheetRulesCollection_iface;
 404     return S_OK;
 405 }
 406
 407 static inline HTMLStyleSheetsCollection *impl_from_IHTMLStyleSheetsCollection(IHTMLStyleSheetsCollection *iface)
 408 {
 409     return CONTAINING_RECORD(iface, HTMLStyleSheetsCollection, IHTMLStyleSheetsCollection_iface);
 410 }
 411
 412 static HRESULT WINAPI HTMLStyleSheetsCollection_QueryInterface(IHTMLStyleSheetsCollection *iface,
 413          REFIID riid, void **ppv)
 414 {
 415     HTMLStyleSheetsCollection *This = impl_from_IHTMLStyleSheetsCollection(iface);
 416
 417     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 418
 419     if(IsEqualGUID(&IID_IUnknown, riid)) {
 420         *ppv = &This->IHTMLStyleSheetsCollection_iface;
 421     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
 422         *ppv = &This->IHTMLStyleSheetsCollection_iface;
 423     }else if(IsEqualGUID(&IID_IHTMLStyleSheetsCollection, riid)) {
 424         *ppv = &This->IHTMLStyleSheetsCollection_iface;
 425     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
 426         return *ppv ? S_OK : E_NOINTERFACE;
 427     }else {
 428         *ppv = NULL;
 429         WARN("unsupported %s\n", debugstr_mshtml_guid(riid));
 430         return E_NOINTERFACE;
 431     }
 432
 433     IUnknown_AddRef((IUnknown*)*ppv);
 434     return S_OK;
 435 }
 436
 437 static ULONG WINAPI HTMLStyleSheetsCollection_AddRef(IHTMLStyleSheetsCollection *iface)
 438 {
 439     HTMLStyleSheetsCollection *This = impl_from_IHTMLStyleSheetsCollection(iface);
 440     LONG ref = InterlockedIncrement(&This->ref);
 441
 442     TRACE("(%p) ref=%d\n", This, ref);
 443
 444     return ref;
 445 }
 446
 447 static ULONG WINAPI HTMLStyleSheetsCollection_Release(IHTMLStyleSheetsCollection *iface)
 448 {
 449     HTMLStyleSheetsCollection *This = impl_from_IHTMLStyleSheetsCollection(iface);
 450     LONG ref = InterlockedDecrement(&This->ref);
 451
 452     TRACE("(%p) ref=%d\n", This, ref);
 453
 454     if(!ref) {
 455         release_dispex(&This->dispex);
 456         if(This->nslist)
 457             nsIDOMStyleSheetList_Release(This->nslist);
 458         heap_free(This);
 459     }
 460
 461     return ref;
 462 }
 463
 464 static HRESULT WINAPI HTMLStyleSheetsCollection_GetTypeInfoCount(IHTMLStyleSheetsCollection *iface,
 465         UINT *pctinfo)
 466 {
 467     HTMLStyleSheetsCollection *This = impl_from_IHTMLStyleSheetsCollection(iface);
 468     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
 469 }
 470
 471 static HRESULT WINAPI HTMLStyleSheetsCollection_GetTypeInfo(IHTMLStyleSheetsCollection *iface,
 472         UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
 473 {
 474     HTMLStyleSheetsCollection *This = impl_from_IHTMLStyleSheetsCollection(iface);
 475     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 476 }
 477
 478 static HRESULT WINAPI HTMLStyleSheetsCollection_GetIDsOfNames(IHTMLStyleSheetsCollection *iface,
 479         REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
 480 {
 481     HTMLStyleSheetsCollection *This = impl_from_IHTMLStyleSheetsCollection(iface);
 482     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
 483             lcid, rgDispId);
 484 }
 485
 486 static HRESULT WINAPI HTMLStyleSheetsCollection_Invoke(IHTMLStyleSheetsCollection *iface,
 487         DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 488         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 489 {
 490     HTMLStyleSheetsCollection *This = impl_from_IHTMLStyleSheetsCollection(iface);
 491     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid,
 492             wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 493 }
 494
 495 static HRESULT WINAPI HTMLStyleSheetsCollection_get_length(IHTMLStyleSheetsCollection *iface,
 496         LONG *p)
 497 {
 498     HTMLStyleSheetsCollection *This = impl_from_IHTMLStyleSheetsCollection(iface);
 499     UINT32 len = 0;
 500
 501     TRACE("(%p)->(%p)\n", This, p);
 502
 503     if(This->nslist)
 504         nsIDOMStyleSheetList_GetLength(This->nslist, &len);
 505
 506     *p = len;
 507     return S_OK;
 508 }
 509
 510 static HRESULT WINAPI HTMLStyleSheetsCollection_get__newEnum(IHTMLStyleSheetsCollection *iface,
 511         IUnknown **p)
 512 {
 513     HTMLStyleSheetsCollection *This = impl_from_IHTMLStyleSheetsCollection(iface);
 514     FIXME("(%p)->(%p)\n", This, p);
 515     return E_NOTIMPL;
 516 }
 517
 518 static HRESULT WINAPI HTMLStyleSheetsCollection_item(IHTMLStyleSheetsCollection *iface,
 519         VARIANT *pvarIndex, VARIANT *pvarResult)
 520 {
 521     HTMLStyleSheetsCollection *This = impl_from_IHTMLStyleSheetsCollection(iface);
 522
 523     TRACE("(%p)->(%s %p)\n", This, debugstr_variant(pvarIndex), pvarResult);
 524
 525     switch(V_VT(pvarIndex)) {
 526     case VT_I4: {
 527         nsIDOMStyleSheet *nsstylesheet;
 528         IHTMLStyleSheet *stylesheet;
 529         nsresult nsres;
 530         HRESULT hres;
 531
 532         TRACE("index=%d\n", V_I4(pvarIndex));
 533
 534         nsres = nsIDOMStyleSheetList_Item(This->nslist, V_I4(pvarIndex), &nsstylesheet);
 535         if(NS_FAILED(nsres) || !nsstylesheet) {
 536             WARN("Item failed: %08x\n", nsres);
 537             V_VT(pvarResult) = VT_EMPTY;
 538             return E_INVALIDARG;
 539         }
 540
 541         hres = create_style_sheet(nsstylesheet, dispex_compat_mode(&This->dispex), &stylesheet);
 542         if(FAILED(hres))
 543             return hres;
 544
 545         V_VT(pvarResult) = VT_DISPATCH;
 546         V_DISPATCH(pvarResult) = (IDispatch*)stylesheet;
 547         return S_OK;
 548     }
 549
 550     case VT_BSTR:
 551         FIXME("id=%s not implemented\n", debugstr_w(V_BSTR(pvarResult)));
 552         return E_NOTIMPL;
 553
 554     default:
 555         WARN("Invalid index %s\n", debugstr_variant(pvarIndex));
 556     }
 557
 558     return E_INVALIDARG;
 559 }
 560
 561 static const IHTMLStyleSheetsCollectionVtbl HTMLStyleSheetsCollectionVtbl = {
 562     HTMLStyleSheetsCollection_QueryInterface,
 563     HTMLStyleSheetsCollection_AddRef,
 564     HTMLStyleSheetsCollection_Release,
 565     HTMLStyleSheetsCollection_GetTypeInfoCount,
 566     HTMLStyleSheetsCollection_GetTypeInfo,
 567     HTMLStyleSheetsCollection_GetIDsOfNames,
 568     HTMLStyleSheetsCollection_Invoke,
 569     HTMLStyleSheetsCollection_get_length,
 570     HTMLStyleSheetsCollection_get__newEnum,
 571     HTMLStyleSheetsCollection_item
 572 };
 573
 574 static const tid_t HTMLStyleSheetsCollection_iface_tids[] = {
 575     IHTMLStyleSheetsCollection_tid,
 576     0
 577 };
 578 static dispex_static_data_t HTMLStyleSheetsCollection_dispex = {
 579     NULL,
 580     DispHTMLStyleSheetsCollection_tid,
 581     HTMLStyleSheetsCollection_iface_tids
 582 };
 583
 584 HRESULT create_style_sheet_collection(nsIDOMStyleSheetList *nslist, compat_mode_t compat_mode,
 585                                       IHTMLStyleSheetsCollection **ret)
 586 {
 587     HTMLStyleSheetsCollection *collection;
 588
 589     if(!(collection = heap_alloc(sizeof(HTMLStyleSheetsCollection))))
 590         return E_OUTOFMEMORY;
 591
 592     collection->IHTMLStyleSheetsCollection_iface.lpVtbl = &HTMLStyleSheetsCollectionVtbl;
 593     collection->ref = 1;
 594
 595     if(nslist)
 596         nsIDOMStyleSheetList_AddRef(nslist);
 597     collection->nslist = nslist;
 598
 599     init_dispatch(&collection->dispex, (IUnknown*)&collection->IHTMLStyleSheetsCollection_iface,
 600                   &HTMLStyleSheetsCollection_dispex, compat_mode);
 601
 602     *ret = &collection->IHTMLStyleSheetsCollection_iface;
 603     return S_OK;
 604 }
 605
 606 static inline HTMLStyleSheet *impl_from_IHTMLStyleSheet(IHTMLStyleSheet *iface)
 607 {
 608     return CONTAINING_RECORD(iface, HTMLStyleSheet, IHTMLStyleSheet_iface);
 609 }
 610
 611 static HRESULT WINAPI HTMLStyleSheet_QueryInterface(IHTMLStyleSheet *iface, REFIID riid, void **ppv)
 612 {
 613     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 614
 615     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 616
 617     if(IsEqualGUID(&IID_IUnknown, riid)) {
 618         *ppv = &This->IHTMLStyleSheet_iface;
 619     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
 620         *ppv = &This->IHTMLStyleSheet_iface;
 621     }else if(IsEqualGUID(&IID_IHTMLStyleSheet, riid)) {
 622         *ppv = &This->IHTMLStyleSheet_iface;
 623     }else if(IsEqualGUID(&IID_IHTMLStyleSheet4, riid)) {
 624         *ppv = &This->IHTMLStyleSheet4_iface;
 625     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
 626         return *ppv ? S_OK : E_NOINTERFACE;
 627     }else {
 628         *ppv = NULL;
 629         WARN("unsupported %s\n", debugstr_mshtml_guid(riid));
 630         return E_NOINTERFACE;
 631     }
 632
 633     IUnknown_AddRef((IUnknown*)*ppv);
 634     return S_OK;
 635 }
 636
 637 static ULONG WINAPI HTMLStyleSheet_AddRef(IHTMLStyleSheet *iface)
 638 {
 639     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 640     LONG ref = InterlockedIncrement(&This->ref);
 641
 642     TRACE("(%p) ref=%d\n", This, ref);
 643
 644     return ref;
 645 }
 646
 647 static ULONG WINAPI HTMLStyleSheet_Release(IHTMLStyleSheet *iface)
 648 {
 649     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 650     LONG ref = InterlockedDecrement(&This->ref);
 651
 652     TRACE("(%p) ref=%d\n", This, ref);
 653
 654     if(!ref) {
 655         release_dispex(&This->dispex);
 656         if(This->nsstylesheet)
 657             nsIDOMCSSStyleSheet_Release(This->nsstylesheet);
 658         heap_free(This);
 659     }
 660
 661     return ref;
 662 }
 663
 664 static HRESULT WINAPI HTMLStyleSheet_GetTypeInfoCount(IHTMLStyleSheet *iface, UINT *pctinfo)
 665 {
 666     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 667     TRACE("(%p)->(%p)\n", This, pctinfo);
 668     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
 669 }
 670
 671 static HRESULT WINAPI HTMLStyleSheet_GetTypeInfo(IHTMLStyleSheet *iface, UINT iTInfo,
 672                                               LCID lcid, ITypeInfo **ppTInfo)
 673 {
 674     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 675     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 676 }
 677
 678 static HRESULT WINAPI HTMLStyleSheet_GetIDsOfNames(IHTMLStyleSheet *iface, REFIID riid,
 679                                                 LPOLESTR *rgszNames, UINT cNames,
 680                                                 LCID lcid, DISPID *rgDispId)
 681 {
 682     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 683     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames, lcid, rgDispId);
 684 }
 685
 686 static HRESULT WINAPI HTMLStyleSheet_Invoke(IHTMLStyleSheet *iface, DISPID dispIdMember,
 687                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 688                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 689 {
 690     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 691     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid, wFlags, pDispParams,
 692             pVarResult, pExcepInfo, puArgErr);
 693 }
 694
 695 static HRESULT WINAPI HTMLStyleSheet_put_title(IHTMLStyleSheet *iface, BSTR v)
 696 {
 697     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 698     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 699     return E_NOTIMPL;
 700 }
 701
 702 static HRESULT WINAPI HTMLStyleSheet_get_title(IHTMLStyleSheet *iface, BSTR *p)
 703 {
 704     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 705     FIXME("(%p)->(%p)\n", This, p);
 706     return E_NOTIMPL;
 707 }
 708
 709 static HRESULT WINAPI HTMLStyleSheet_get_parentStyleSheet(IHTMLStyleSheet *iface,
 710                                                           IHTMLStyleSheet **p)
 711 {
 712     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 713     FIXME("(%p)->(%p)\n", This, p);
 714     return E_NOTIMPL;
 715 }
 716
 717 static HRESULT WINAPI HTMLStyleSheet_get_owningElement(IHTMLStyleSheet *iface, IHTMLElement **p)
 718 {
 719     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 720     FIXME("(%p)->(%p)\n", This, p);
 721     return E_NOTIMPL;
 722 }
 723
 724 static HRESULT WINAPI HTMLStyleSheet_put_disabled(IHTMLStyleSheet *iface, VARIANT_BOOL v)
 725 {
 726     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 727     FIXME("(%p)->(%x)\n", This, v);
 728     return E_NOTIMPL;
 729 }
 730
 731 static HRESULT WINAPI HTMLStyleSheet_get_disabled(IHTMLStyleSheet *iface, VARIANT_BOOL *p)
 732 {
 733     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 734     FIXME("(%p)->(%p)\n", This, p);
 735     return E_NOTIMPL;
 736 }
 737
 738 static HRESULT WINAPI HTMLStyleSheet_get_readOnly(IHTMLStyleSheet *iface, VARIANT_BOOL *p)
 739 {
 740     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 741     FIXME("(%p)->(%p)\n", This, p);
 742     return E_NOTIMPL;
 743 }
 744
 745 static HRESULT WINAPI HTMLStyleSheet_get_imports(IHTMLStyleSheet *iface,
 746                                                  IHTMLStyleSheetsCollection **p)
 747 {
 748     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 749     FIXME("(%p)->(%p)\n", This, p);
 750     return E_NOTIMPL;
 751 }
 752
 753 static HRESULT WINAPI HTMLStyleSheet_put_href(IHTMLStyleSheet *iface, BSTR v)
 754 {
 755     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 756     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 757     return E_NOTIMPL;
 758 }
 759
 760 static HRESULT WINAPI HTMLStyleSheet_get_href(IHTMLStyleSheet *iface, BSTR *p)
 761 {
 762     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 763     nsAString href_str;
 764     nsresult nsres;
 765
 766     TRACE("(%p)->(%p)\n", This, p);
 767
 768     nsAString_Init(&href_str, NULL);
 769     nsres = nsIDOMCSSStyleSheet_GetHref(This->nsstylesheet, &href_str);
 770     return return_nsstr(nsres, &href_str, p);
 771 }
 772
 773 static HRESULT WINAPI HTMLStyleSheet_get_type(IHTMLStyleSheet *iface, BSTR *p)
 774 {
 775     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 776     FIXME("(%p)->(%p)\n", This, p);
 777     return E_NOTIMPL;
 778 }
 779
 780 static HRESULT WINAPI HTMLStyleSheet_get_id(IHTMLStyleSheet *iface, BSTR *p)
 781 {
 782     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 783     FIXME("(%p)->(%p)\n", This, p);
 784     return E_NOTIMPL;
 785 }
 786
 787 static HRESULT WINAPI HTMLStyleSheet_addImport(IHTMLStyleSheet *iface, BSTR bstrURL,
 788                                                LONG lIndex, LONG *plIndex)
 789 {
 790     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 791     FIXME("(%p)->(%s %d %p)\n", This, debugstr_w(bstrURL), lIndex, plIndex);
 792     return E_NOTIMPL;
 793 }
 794
 795 static HRESULT WINAPI HTMLStyleSheet_addRule(IHTMLStyleSheet *iface, BSTR bstrSelector,
 796                                              BSTR bstrStyle, LONG lIndex, LONG *plIndex)
 797 {
 798     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 799     FIXME("(%p)->(%s %s %d %p)\n", This, debugstr_w(bstrSelector), debugstr_w(bstrStyle),
 800           lIndex, plIndex);
 801     return E_NOTIMPL;
 802 }
 803
 804 static HRESULT WINAPI HTMLStyleSheet_removeImport(IHTMLStyleSheet *iface, LONG lIndex)
 805 {
 806     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 807     FIXME("(%p)->(%d)\n", This, lIndex);
 808     return E_NOTIMPL;
 809 }
 810
 811 static HRESULT WINAPI HTMLStyleSheet_removeRule(IHTMLStyleSheet *iface, LONG lIndex)
 812 {
 813     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 814     FIXME("(%p)->(%d)\n", This, lIndex);
 815     return E_NOTIMPL;
 816 }
 817
 818 static HRESULT WINAPI HTMLStyleSheet_put_media(IHTMLStyleSheet *iface, BSTR v)
 819 {
 820     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 821     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 822     return E_NOTIMPL;
 823 }
 824
 825 static HRESULT WINAPI HTMLStyleSheet_get_media(IHTMLStyleSheet *iface, BSTR *p)
 826 {
 827     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 828     FIXME("(%p)->(%p)\n", This, p);
 829     return E_NOTIMPL;
 830 }
 831
 832 static HRESULT WINAPI HTMLStyleSheet_put_cssText(IHTMLStyleSheet *iface, BSTR v)
 833 {
 834     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 835     nsresult nsres;
 836
 837     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 838
 839     do {
 840         nsres = nsIDOMCSSStyleSheet_DeleteRule(This->nsstylesheet, 0);
 841     }while(NS_SUCCEEDED(nsres));
 842
 843     if(v && *v) {
 844         nsAString nsstr;
 845         UINT32 idx;
 846
 847         /* FIXME: This won't work for multiple rules in the string. */
 848         nsAString_InitDepend(&nsstr, v);
 849         nsres = nsIDOMCSSStyleSheet_InsertRule(This->nsstylesheet, &nsstr, 0, &idx);
 850         nsAString_Finish(&nsstr);
 851         if(NS_FAILED(nsres)) {
 852             FIXME("InsertRule failed for string %s. Probably multiple rules passed.\n", debugstr_w(v));
 853             return E_FAIL;
 854         }
 855     }
 856
 857     return S_OK;
 858 }
 859
 860 static HRESULT WINAPI HTMLStyleSheet_get_cssText(IHTMLStyleSheet *iface, BSTR *p)
 861 {
 862     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 863     nsIDOMCSSRuleList *nslist = NULL;
 864     nsIDOMCSSRule *nsrule;
 865     nsAString nsstr;
 866     UINT32 len;
 867     nsresult nsres;
 868
 869     TRACE("(%p)->(%p)\n", This, p);
 870
 871     nsres = nsIDOMCSSStyleSheet_GetCssRules(This->nsstylesheet, &nslist);
 872     if(NS_FAILED(nsres)) {
 873         ERR("GetCssRules failed: %08x\n", nsres);
 874         return E_FAIL;
 875     }
 876
 877     nsres = nsIDOMCSSRuleList_GetLength(nslist, &len);
 878     assert(nsres == NS_OK);
 879
 880     if(len) {
 881         nsres = nsIDOMCSSRuleList_Item(nslist, 0, &nsrule);
 882         if(NS_FAILED(nsres))
 883             ERR("Item failed: %08x\n", nsres);
 884     }
 885
 886     nsIDOMCSSRuleList_Release(nslist);
 887     if(NS_FAILED(nsres))
 888         return E_FAIL;
 889
 890     if(!len) {
 891         *p = NULL;
 892         return S_OK;
 893     }
 894
 895     nsAString_Init(&nsstr, NULL);
 896     nsres = nsIDOMCSSRule_GetCssText(nsrule, &nsstr);
 897     nsIDOMCSSRule_Release(nsrule);
 898     return return_nsstr(nsres, &nsstr, p);
 899 }
 900
 901 static HRESULT WINAPI HTMLStyleSheet_get_rules(IHTMLStyleSheet *iface,
 902                                                IHTMLStyleSheetRulesCollection **p)
 903 {
 904     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet(iface);
 905     nsIDOMCSSRuleList *nslist = NULL;
 906     nsresult nsres;
 907     HRESULT hres;
 908
 909     TRACE("(%p)->(%p)\n", This, p);
 910
 911     nsres = nsIDOMCSSStyleSheet_GetCssRules(This->nsstylesheet, &nslist);
 912     if(NS_FAILED(nsres)) {
 913         ERR("GetCssRules failed: %08x\n", nsres);
 914         return E_FAIL;
 915     }
 916
 917     hres = create_style_sheet_rules_collection(nslist, dispex_compat_mode(&This->dispex), p);
 918     nsIDOMCSSRuleList_Release(nslist);
 919     return hres;
 920 }
 921
 922 static const IHTMLStyleSheetVtbl HTMLStyleSheetVtbl = {
 923     HTMLStyleSheet_QueryInterface,
 924     HTMLStyleSheet_AddRef,
 925     HTMLStyleSheet_Release,
 926     HTMLStyleSheet_GetTypeInfoCount,
 927     HTMLStyleSheet_GetTypeInfo,
 928     HTMLStyleSheet_GetIDsOfNames,
 929     HTMLStyleSheet_Invoke,
 930     HTMLStyleSheet_put_title,
 931     HTMLStyleSheet_get_title,
 932     HTMLStyleSheet_get_parentStyleSheet,
 933     HTMLStyleSheet_get_owningElement,
 934     HTMLStyleSheet_put_disabled,
 935     HTMLStyleSheet_get_disabled,
 936     HTMLStyleSheet_get_readOnly,
 937     HTMLStyleSheet_get_imports,
 938     HTMLStyleSheet_put_href,
 939     HTMLStyleSheet_get_href,
 940     HTMLStyleSheet_get_type,
 941     HTMLStyleSheet_get_id,
 942     HTMLStyleSheet_addImport,
 943     HTMLStyleSheet_addRule,
 944     HTMLStyleSheet_removeImport,
 945     HTMLStyleSheet_removeRule,
 946     HTMLStyleSheet_put_media,
 947     HTMLStyleSheet_get_media,
 948     HTMLStyleSheet_put_cssText,
 949     HTMLStyleSheet_get_cssText,
 950     HTMLStyleSheet_get_rules
 951 };
 952
 953 static inline HTMLStyleSheet *impl_from_IHTMLStyleSheet4(IHTMLStyleSheet4 *iface)
 954 {
 955     return CONTAINING_RECORD(iface, HTMLStyleSheet, IHTMLStyleSheet4_iface);
 956 }
 957
 958 static HRESULT WINAPI HTMLStyleSheet4_QueryInterface(IHTMLStyleSheet4 *iface, REFIID riid, void **ppv)
 959 {
 960     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
 961     return IHTMLStyleSheet_QueryInterface(&This->IHTMLStyleSheet_iface, riid, ppv);
 962 }
 963
 964 static ULONG WINAPI HTMLStyleSheet4_AddRef(IHTMLStyleSheet4 *iface)
 965 {
 966     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
 967     return IHTMLStyleSheet_AddRef(&This->IHTMLStyleSheet_iface);
 968 }
 969
 970 static ULONG WINAPI HTMLStyleSheet4_Release(IHTMLStyleSheet4 *iface)
 971 {
 972     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
 973     return IHTMLStyleSheet_Release(&This->IHTMLStyleSheet_iface);
 974 }
 975
 976 static HRESULT WINAPI HTMLStyleSheet4_GetTypeInfoCount(IHTMLStyleSheet4 *iface, UINT *pctinfo)
 977 {
 978     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
 979     TRACE("(%p)->(%p)\n", This, pctinfo);
 980     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
 981 }
 982
 983 static HRESULT WINAPI HTMLStyleSheet4_GetTypeInfo(IHTMLStyleSheet4 *iface, UINT iTInfo,
 984                                                   LCID lcid, ITypeInfo **ppTInfo)
 985 {
 986     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
 987     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 988 }
 989
 990 static HRESULT WINAPI HTMLStyleSheet4_GetIDsOfNames(IHTMLStyleSheet4 *iface, REFIID riid,
 991                                                     LPOLESTR *rgszNames, UINT cNames,
 992                                                     LCID lcid, DISPID *rgDispId)
 993 {
 994     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
 995     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames, lcid, rgDispId);
 996 }
 997
 998 static HRESULT WINAPI HTMLStyleSheet4_Invoke(IHTMLStyleSheet4 *iface, DISPID dispIdMember,
 999                                              REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
1000                                              VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
1001 {
1002     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
1003     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid, wFlags, pDispParams,
1004                               pVarResult, pExcepInfo, puArgErr);
1005 }
1006
1007 static HRESULT WINAPI HTMLStyleSheet4_get_type(IHTMLStyleSheet4 *iface, BSTR *p)
1008 {
1009     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
1010     TRACE("(%p)->(%p)\n", This, p);
1011     return IHTMLStyleSheet_get_type(&This->IHTMLStyleSheet_iface, p);
1012 }
1013
1014 static HRESULT WINAPI HTMLStyleSheet4_get_href(IHTMLStyleSheet4 *iface, VARIANT *p)
1015 {
1016     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
1017     nsAString href_str;
1018     nsresult nsres;
1019
1020     TRACE("(%p)->(%p)\n", This, p);
1021
1022     nsAString_Init(&href_str, NULL);
1023     nsres = nsIDOMCSSStyleSheet_GetHref(This->nsstylesheet, &href_str);
1024     return return_nsstr_variant(nsres, &href_str, 0, p);
1025 }
1026
1027 static HRESULT WINAPI HTMLStyleSheet4_get_title(IHTMLStyleSheet4 *iface, BSTR *p)
1028 {
1029     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
1030     FIXME("(%p)->(%p)\n", This, p);
1031     return E_NOTIMPL;
1032 }
1033
1034 static HRESULT WINAPI HTMLStyleSheet4_get_ownerNode(IHTMLStyleSheet4 *iface, IHTMLElement **p)
1035 {
1036     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
1037     FIXME("(%p)->(%p)\n", This, p);
1038     return E_NOTIMPL;
1039 }
1040
1041 static HRESULT WINAPI HTMLStyleSheet4_get_ownerRule(IHTMLStyleSheet4 *iface, IHTMLCSSRule **p)
1042 {
1043     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
1044     FIXME("(%p)->(%p)\n", This, p);
1045     return E_NOTIMPL;
1046 }
1047
1048 static HRESULT WINAPI HTMLStyleSheet4_get_cssRules(IHTMLStyleSheet4 *iface, IHTMLStyleSheetRulesCollection **p)
1049 {
1050     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
1051     TRACE("(%p)->(%p)\n", This, p);
1052     return IHTMLStyleSheet_get_rules(&This->IHTMLStyleSheet_iface, p);
1053 }
1054
1055 static HRESULT WINAPI HTMLStyleSheet4_get_media(IHTMLStyleSheet4 *iface, VARIANT *p)
1056 {
1057     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
1058     FIXME("(%p)->(%p)\n", This, p);
1059     return E_NOTIMPL;
1060 }
1061
1062 static HRESULT WINAPI HTMLStyleSheet4_insertRule(IHTMLStyleSheet4 *iface, BSTR rule, LONG index, LONG *p)
1063 {
1064     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
1065     UINT32 new_index = 0;
1066     nsAString nsstr;
1067     nsresult nsres;
1068
1069     TRACE("(%p)->(%s %d %p)\n", This, debugstr_w(rule), index, p);
1070
1071     nsAString_InitDepend(&nsstr, rule);
1072     nsres = nsIDOMCSSStyleSheet_InsertRule(This->nsstylesheet, &nsstr, index, &new_index);
1073     if(NS_FAILED(nsres)) WARN("failed: %08x\n", nsres);
1074     nsAString_Finish(&nsstr);
1075     *p = new_index;
1076     return map_nsresult(nsres);
1077 }
1078
1079 static HRESULT WINAPI HTMLStyleSheet4_deleteRule(IHTMLStyleSheet4 *iface, LONG index)
1080 {
1081     HTMLStyleSheet *This = impl_from_IHTMLStyleSheet4(iface);
1082     FIXME("(%p)->(%d)\n", This, index);
1083     return E_NOTIMPL;
1084 }
1085
1086 static const IHTMLStyleSheet4Vtbl HTMLStyleSheet4Vtbl = {
1087     HTMLStyleSheet4_QueryInterface,
1088     HTMLStyleSheet4_AddRef,
1089     HTMLStyleSheet4_Release,
1090     HTMLStyleSheet4_GetTypeInfoCount,
1091     HTMLStyleSheet4_GetTypeInfo,
1092     HTMLStyleSheet4_GetIDsOfNames,
1093     HTMLStyleSheet4_Invoke,
1094     HTMLStyleSheet4_get_type,
1095     HTMLStyleSheet4_get_href,
1096     HTMLStyleSheet4_get_title,
1097     HTMLStyleSheet4_get_ownerNode,
1098     HTMLStyleSheet4_get_ownerRule,
1099     HTMLStyleSheet4_get_cssRules,
1100     HTMLStyleSheet4_get_media,
1101     HTMLStyleSheet4_insertRule,
1102     HTMLStyleSheet4_deleteRule,
1103 };
1104
1105 static void HTMLStyleSheet_init_dispex_info(dispex_data_t *info, compat_mode_t mode)
1106 {
1107     if(mode >= COMPAT_MODE_IE9)
1108         dispex_info_add_interface(info, IHTMLStyleSheet4_tid, NULL);
1109 }
1110
1111 static const tid_t HTMLStyleSheet_iface_tids[] = {
1112     IHTMLStyleSheet_tid,
1113     0
1114 };
1115 static dispex_static_data_t HTMLStyleSheet_dispex = {
1116     NULL,
1117     DispHTMLStyleSheet_tid,
1118     HTMLStyleSheet_iface_tids,
1119     HTMLStyleSheet_init_dispex_info
1120 };
1121
1122 HRESULT create_style_sheet(nsIDOMStyleSheet *nsstylesheet, compat_mode_t compat_mode, IHTMLStyleSheet **ret)
1123 {
1124     HTMLStyleSheet *style_sheet;
1125     nsresult nsres;
1126
1127     if(!(style_sheet = heap_alloc(sizeof(HTMLStyleSheet))))
1128         return E_OUTOFMEMORY;
1129
1130     style_sheet->IHTMLStyleSheet_iface.lpVtbl = &HTMLStyleSheetVtbl;
1131     style_sheet->IHTMLStyleSheet4_iface.lpVtbl = &HTMLStyleSheet4Vtbl;
1132     style_sheet->ref = 1;
1133     style_sheet->nsstylesheet = NULL;
1134
1135     init_dispatch(&style_sheet->dispex, (IUnknown*)&style_sheet->IHTMLStyleSheet_iface,
1136                   &HTMLStyleSheet_dispex, compat_mode);
1137
1138     if(nsstylesheet) {
1139         nsres = nsIDOMStyleSheet_QueryInterface(nsstylesheet, &IID_nsIDOMCSSStyleSheet,
1140                 (void**)&style_sheet->nsstylesheet);
1141         if(NS_FAILED(nsres))
1142             ERR("Could not get nsICSSStyleSheet interface: %08x\n", nsres);
1143     }
1144
1145     *ret = &style_sheet->IHTMLStyleSheet_iface;
1146     return S_OK;
1147 }