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