dlls/mshtml/omnavigator.c

   1 /*
   2  * Copyright 2008 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 typedef struct HTMLPluginsCollection HTMLPluginsCollection;
  35 typedef struct HTMLMimeTypesCollection HTMLMimeTypesCollection;
  36
  37 typedef struct {
  38     DispatchEx dispex;
  39     IOmNavigator IOmNavigator_iface;
  40
  41     LONG ref;
  42
  43     HTMLPluginsCollection *plugins;
  44     HTMLMimeTypesCollection *mime_types;
  45 } OmNavigator;
  46
  47 typedef struct {
  48     DispatchEx dispex;
  49     IHTMLDOMImplementation IHTMLDOMImplementation_iface;
  50
  51     LONG ref;
  52 } HTMLDOMImplementation;
  53
  54 static inline HTMLDOMImplementation *impl_from_IHTMLDOMImplementation(IHTMLDOMImplementation *iface)
  55 {
  56     return CONTAINING_RECORD(iface, HTMLDOMImplementation, IHTMLDOMImplementation_iface);
  57 }
  58
  59 static HRESULT WINAPI HTMLDOMImplementation_QueryInterface(IHTMLDOMImplementation *iface, REFIID riid, void **ppv)
  60 {
  61     HTMLDOMImplementation *This = impl_from_IHTMLDOMImplementation(iface);
  62
  63     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
  64
  65     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IHTMLDOMImplementation, riid)) {
  66         *ppv = &This->IHTMLDOMImplementation_iface;
  67     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
  68         return *ppv ? S_OK : E_NOINTERFACE;
  69     }else {
  70         WARN("Unsupported interface %s\n", debugstr_mshtml_guid(riid));
  71         *ppv = NULL;
  72         return E_NOINTERFACE;
  73     }
  74
  75     IUnknown_AddRef((IUnknown*)*ppv);
  76     return S_OK;
  77 }
  78
  79 static ULONG WINAPI HTMLDOMImplementation_AddRef(IHTMLDOMImplementation *iface)
  80 {
  81     HTMLDOMImplementation *This = impl_from_IHTMLDOMImplementation(iface);
  82     LONG ref = InterlockedIncrement(&This->ref);
  83
  84     TRACE("(%p) ref=%d\n", This, ref);
  85
  86     return ref;
  87 }
  88
  89 static ULONG WINAPI HTMLDOMImplementation_Release(IHTMLDOMImplementation *iface)
  90 {
  91     HTMLDOMImplementation *This = impl_from_IHTMLDOMImplementation(iface);
  92     LONG ref = InterlockedDecrement(&This->ref);
  93
  94     TRACE("(%p) ref=%d\n", This, ref);
  95
  96     if(!ref) {
  97         release_dispex(&This->dispex);
  98         heap_free(This);
  99     }
 100
 101     return ref;
 102 }
 103
 104 static HRESULT WINAPI HTMLDOMImplementation_GetTypeInfoCount(IHTMLDOMImplementation *iface, UINT *pctinfo)
 105 {
 106     HTMLDOMImplementation *This = impl_from_IHTMLDOMImplementation(iface);
 107
 108     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
 109 }
 110
 111 static HRESULT WINAPI HTMLDOMImplementation_GetTypeInfo(IHTMLDOMImplementation *iface, UINT iTInfo,
 112         LCID lcid, ITypeInfo **ppTInfo)
 113 {
 114     HTMLDOMImplementation *This = impl_from_IHTMLDOMImplementation(iface);
 115
 116     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 117 }
 118
 119 static HRESULT WINAPI HTMLDOMImplementation_GetIDsOfNames(IHTMLDOMImplementation *iface, REFIID riid,
 120         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
 121 {
 122     HTMLDOMImplementation *This = impl_from_IHTMLDOMImplementation(iface);
 123
 124     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames,
 125             cNames, lcid, rgDispId);
 126 }
 127
 128 static HRESULT WINAPI HTMLDOMImplementation_Invoke(IHTMLDOMImplementation *iface, DISPID dispIdMember,
 129         REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
 130         EXCEPINFO *pExcepInfo, UINT *puArgErr)
 131 {
 132     HTMLDOMImplementation *This = impl_from_IHTMLDOMImplementation(iface);
 133
 134     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid,
 135             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 136 }
 137
 138 static HRESULT WINAPI HTMLDOMImplementation_hasFeature(IHTMLDOMImplementation *iface, BSTR feature,
 139         VARIANT version, VARIANT_BOOL *pfHasFeature)
 140 {
 141     HTMLDOMImplementation *This = impl_from_IHTMLDOMImplementation(iface);
 142
 143     FIXME("(%p)->(%s %s %p) returning false\n", This, debugstr_w(feature), debugstr_variant(&version), pfHasFeature);
 144
 145     *pfHasFeature = VARIANT_FALSE;
 146     return S_OK;
 147 }
 148
 149 static const IHTMLDOMImplementationVtbl HTMLDOMImplementationVtbl = {
 150     HTMLDOMImplementation_QueryInterface,
 151     HTMLDOMImplementation_AddRef,
 152     HTMLDOMImplementation_Release,
 153     HTMLDOMImplementation_GetTypeInfoCount,
 154     HTMLDOMImplementation_GetTypeInfo,
 155     HTMLDOMImplementation_GetIDsOfNames,
 156     HTMLDOMImplementation_Invoke,
 157     HTMLDOMImplementation_hasFeature
 158 };
 159
 160 static const tid_t HTMLDOMImplementation_iface_tids[] = {
 161     IHTMLDOMImplementation_tid,
 162     0
 163 };
 164 static dispex_static_data_t HTMLDOMImplementation_dispex = {
 165     NULL,
 166     IHTMLDOMImplementation_tid,
 167     HTMLDOMImplementation_iface_tids
 168 };
 169
 170 HRESULT create_dom_implementation(IHTMLDOMImplementation **ret)
 171 {
 172     HTMLDOMImplementation *dom_implementation;
 173
 174     dom_implementation = heap_alloc_zero(sizeof(*dom_implementation));
 175     if(!dom_implementation)
 176         return E_OUTOFMEMORY;
 177
 178     dom_implementation->IHTMLDOMImplementation_iface.lpVtbl = &HTMLDOMImplementationVtbl;
 179     dom_implementation->ref = 1;
 180
 181     init_dispex(&dom_implementation->dispex, (IUnknown*)&dom_implementation->IHTMLDOMImplementation_iface,
 182             &HTMLDOMImplementation_dispex);
 183
 184     *ret = &dom_implementation->IHTMLDOMImplementation_iface;
 185     return S_OK;
 186 }
 187
 188 static inline OmHistory *impl_from_IOmHistory(IOmHistory *iface)
 189 {
 190     return CONTAINING_RECORD(iface, OmHistory, IOmHistory_iface);
 191 }
 192
 193 static HRESULT WINAPI OmHistory_QueryInterface(IOmHistory *iface, REFIID riid, void **ppv)
 194 {
 195     OmHistory *This = impl_from_IOmHistory(iface);
 196
 197     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 198
 199     if(IsEqualGUID(&IID_IUnknown, riid)) {
 200         *ppv = &This->IOmHistory_iface;
 201     }else if(IsEqualGUID(&IID_IOmHistory, riid)) {
 202         *ppv = &This->IOmHistory_iface;
 203     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
 204         return *ppv ? S_OK : E_NOINTERFACE;
 205     }else {
 206         WARN("Unsupported interface %s\n", debugstr_mshtml_guid(riid));
 207         *ppv = NULL;
 208         return E_NOINTERFACE;
 209     }
 210
 211     IUnknown_AddRef((IUnknown*)*ppv);
 212     return S_OK;
 213 }
 214
 215 static ULONG WINAPI OmHistory_AddRef(IOmHistory *iface)
 216 {
 217     OmHistory *This = impl_from_IOmHistory(iface);
 218     LONG ref = InterlockedIncrement(&This->ref);
 219
 220     TRACE("(%p) ref=%d\n", This, ref);
 221
 222     return ref;
 223 }
 224
 225 static ULONG WINAPI OmHistory_Release(IOmHistory *iface)
 226 {
 227     OmHistory *This = impl_from_IOmHistory(iface);
 228     LONG ref = InterlockedDecrement(&This->ref);
 229
 230     TRACE("(%p) ref=%d\n", This, ref);
 231
 232     if(!ref) {
 233         release_dispex(&This->dispex);
 234         heap_free(This);
 235     }
 236
 237     return ref;
 238 }
 239
 240 static HRESULT WINAPI OmHistory_GetTypeInfoCount(IOmHistory *iface, UINT *pctinfo)
 241 {
 242     OmHistory *This = impl_from_IOmHistory(iface);
 243     FIXME("(%p)->(%p)\n", This, pctinfo);
 244     return E_NOTIMPL;
 245 }
 246
 247 static HRESULT WINAPI OmHistory_GetTypeInfo(IOmHistory *iface, UINT iTInfo,
 248         LCID lcid, ITypeInfo **ppTInfo)
 249 {
 250     OmHistory *This = impl_from_IOmHistory(iface);
 251
 252     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 253 }
 254
 255 static HRESULT WINAPI OmHistory_GetIDsOfNames(IOmHistory *iface, REFIID riid, LPOLESTR *rgszNames, UINT cNames,
 256         LCID lcid, DISPID *rgDispId)
 257 {
 258     OmHistory *This = impl_from_IOmHistory(iface);
 259
 260     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
 261             lcid, rgDispId);
 262 }
 263
 264 static HRESULT WINAPI OmHistory_Invoke(IOmHistory *iface, DISPID dispIdMember, REFIID riid, LCID lcid,
 265         WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 266 {
 267     OmHistory *This = impl_from_IOmHistory(iface);
 268
 269     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
 270             pDispParams, pVarResult, pExcepInfo, puArgErr);
 271 }
 272
 273 static HRESULT WINAPI OmHistory_get_length(IOmHistory *iface, short *p)
 274 {
 275     OmHistory *This = impl_from_IOmHistory(iface);
 276
 277     TRACE("(%p)->(%p)\n", This, p);
 278
 279     if(!This->window || !This->window->base.outer_window->doc_obj
 280             || !This->window->base.outer_window->doc_obj->travel_log) {
 281         *p = 0;
 282     }else {
 283         *p = ITravelLog_CountEntries(This->window->base.outer_window->doc_obj->travel_log,
 284                 This->window->base.outer_window->doc_obj->browser_service);
 285     }
 286     return S_OK;
 287 }
 288
 289 static HRESULT WINAPI OmHistory_back(IOmHistory *iface, VARIANT *pvargdistance)
 290 {
 291     OmHistory *This = impl_from_IOmHistory(iface);
 292     FIXME("(%p)->(%s)\n", This, debugstr_variant(pvargdistance));
 293     return E_NOTIMPL;
 294 }
 295
 296 static HRESULT WINAPI OmHistory_forward(IOmHistory *iface, VARIANT *pvargdistance)
 297 {
 298     OmHistory *This = impl_from_IOmHistory(iface);
 299     FIXME("(%p)->(%s)\n", This, debugstr_variant(pvargdistance));
 300     return E_NOTIMPL;
 301 }
 302
 303 static HRESULT WINAPI OmHistory_go(IOmHistory *iface, VARIANT *pvargdistance)
 304 {
 305     OmHistory *This = impl_from_IOmHistory(iface);
 306     FIXME("(%p)->(%s)\n", This, debugstr_variant(pvargdistance));
 307     return E_NOTIMPL;
 308 }
 309
 310 static const IOmHistoryVtbl OmHistoryVtbl = {
 311     OmHistory_QueryInterface,
 312     OmHistory_AddRef,
 313     OmHistory_Release,
 314     OmHistory_GetTypeInfoCount,
 315     OmHistory_GetTypeInfo,
 316     OmHistory_GetIDsOfNames,
 317     OmHistory_Invoke,
 318     OmHistory_get_length,
 319     OmHistory_back,
 320     OmHistory_forward,
 321     OmHistory_go
 322 };
 323
 324 static const tid_t OmHistory_iface_tids[] = {
 325     IOmHistory_tid,
 326     0
 327 };
 328 static dispex_static_data_t OmHistory_dispex = {
 329     NULL,
 330     DispHTMLHistory_tid,
 331     OmHistory_iface_tids
 332 };
 333
 334
 335 HRESULT create_history(HTMLInnerWindow *window, OmHistory **ret)
 336 {
 337     OmHistory *history;
 338
 339     history = heap_alloc_zero(sizeof(*history));
 340     if(!history)
 341         return E_OUTOFMEMORY;
 342
 343     init_dispex(&history->dispex, (IUnknown*)&history->IOmHistory_iface, &OmHistory_dispex);
 344     history->IOmHistory_iface.lpVtbl = &OmHistoryVtbl;
 345     history->ref = 1;
 346
 347     history->window = window;
 348
 349     *ret = history;
 350     return S_OK;
 351 }
 352
 353 struct HTMLPluginsCollection {
 354     DispatchEx dispex;
 355     IHTMLPluginsCollection IHTMLPluginsCollection_iface;
 356
 357     LONG ref;
 358
 359     OmNavigator *navigator;
 360 };
 361
 362 static inline HTMLPluginsCollection *impl_from_IHTMLPluginsCollection(IHTMLPluginsCollection *iface)
 363 {
 364     return CONTAINING_RECORD(iface, HTMLPluginsCollection, IHTMLPluginsCollection_iface);
 365 }
 366
 367 static HRESULT WINAPI HTMLPluginsCollection_QueryInterface(IHTMLPluginsCollection *iface, REFIID riid, void **ppv)
 368 {
 369     HTMLPluginsCollection *This = impl_from_IHTMLPluginsCollection(iface);
 370
 371     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 372
 373     if(IsEqualGUID(&IID_IUnknown, riid)) {
 374         *ppv = &This->IHTMLPluginsCollection_iface;
 375     }else if(IsEqualGUID(&IID_IHTMLPluginsCollection, riid)) {
 376         *ppv = &This->IHTMLPluginsCollection_iface;
 377     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
 378         return *ppv ? S_OK : E_NOINTERFACE;
 379     }else {
 380         *ppv = NULL;
 381         WARN("Unsupported interface %s\n", debugstr_mshtml_guid(riid));
 382         return E_NOINTERFACE;
 383     }
 384
 385     IUnknown_AddRef((IUnknown*)*ppv);
 386     return S_OK;
 387 }
 388
 389 static ULONG WINAPI HTMLPluginsCollection_AddRef(IHTMLPluginsCollection *iface)
 390 {
 391     HTMLPluginsCollection *This = impl_from_IHTMLPluginsCollection(iface);
 392     LONG ref = InterlockedIncrement(&This->ref);
 393
 394     TRACE("(%p) ref=%d\n", This, ref);
 395
 396     return ref;
 397 }
 398
 399 static ULONG WINAPI HTMLPluginsCollection_Release(IHTMLPluginsCollection *iface)
 400 {
 401     HTMLPluginsCollection *This = impl_from_IHTMLPluginsCollection(iface);
 402     LONG ref = InterlockedDecrement(&This->ref);
 403
 404     TRACE("(%p) ref=%d\n", This, ref);
 405
 406     if(!ref) {
 407         if(This->navigator)
 408             This->navigator->plugins = NULL;
 409         release_dispex(&This->dispex);
 410         heap_free(This);
 411     }
 412
 413     return ref;
 414 }
 415
 416 static HRESULT WINAPI HTMLPluginsCollection_GetTypeInfoCount(IHTMLPluginsCollection *iface, UINT *pctinfo)
 417 {
 418     HTMLPluginsCollection *This = impl_from_IHTMLPluginsCollection(iface);
 419     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
 420 }
 421
 422 static HRESULT WINAPI HTMLPluginsCollection_GetTypeInfo(IHTMLPluginsCollection *iface, UINT iTInfo,
 423                                               LCID lcid, ITypeInfo **ppTInfo)
 424 {
 425     HTMLPluginsCollection *This = impl_from_IHTMLPluginsCollection(iface);
 426     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 427 }
 428
 429 static HRESULT WINAPI HTMLPluginsCollection_GetIDsOfNames(IHTMLPluginsCollection *iface, REFIID riid,
 430         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
 431 {
 432     HTMLPluginsCollection *This = impl_from_IHTMLPluginsCollection(iface);
 433     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
 434             lcid, rgDispId);
 435 }
 436
 437 static HRESULT WINAPI HTMLPluginsCollection_Invoke(IHTMLPluginsCollection *iface, DISPID dispIdMember,
 438         REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
 439         EXCEPINFO *pExcepInfo, UINT *puArgErr)
 440 {
 441     HTMLPluginsCollection *This = impl_from_IHTMLPluginsCollection(iface);
 442     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid,
 443             wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 444 }
 445
 446 static HRESULT WINAPI HTMLPluginsCollection_get_length(IHTMLPluginsCollection *iface, LONG *p)
 447 {
 448     HTMLPluginsCollection *This = impl_from_IHTMLPluginsCollection(iface);
 449
 450     TRACE("(%p)->(%p)\n", This, p);
 451
 452     /* IE always returns 0 here */
 453     *p = 0;
 454     return S_OK;
 455 }
 456
 457 static HRESULT WINAPI HTMLPluginsCollection_refresh(IHTMLPluginsCollection *iface, VARIANT_BOOL reload)
 458 {
 459     HTMLPluginsCollection *This = impl_from_IHTMLPluginsCollection(iface);
 460
 461     TRACE("(%p)->(%x)\n", This, reload);
 462
 463     /* Nothing to do here. */
 464     return S_OK;
 465 }
 466
 467 static const IHTMLPluginsCollectionVtbl HTMLPluginsCollectionVtbl = {
 468     HTMLPluginsCollection_QueryInterface,
 469     HTMLPluginsCollection_AddRef,
 470     HTMLPluginsCollection_Release,
 471     HTMLPluginsCollection_GetTypeInfoCount,
 472     HTMLPluginsCollection_GetTypeInfo,
 473     HTMLPluginsCollection_GetIDsOfNames,
 474     HTMLPluginsCollection_Invoke,
 475     HTMLPluginsCollection_get_length,
 476     HTMLPluginsCollection_refresh
 477 };
 478
 479 static const tid_t HTMLPluginsCollection_iface_tids[] = {
 480     IHTMLPluginsCollection_tid,
 481     0
 482 };
 483 static dispex_static_data_t HTMLPluginsCollection_dispex = {
 484     NULL,
 485     DispCPlugins_tid,
 486     HTMLPluginsCollection_iface_tids
 487 };
 488
 489 static HRESULT create_plugins_collection(OmNavigator *navigator, HTMLPluginsCollection **ret)
 490 {
 491     HTMLPluginsCollection *col;
 492
 493     col = heap_alloc_zero(sizeof(*col));
 494     if(!col)
 495         return E_OUTOFMEMORY;
 496
 497     col->IHTMLPluginsCollection_iface.lpVtbl = &HTMLPluginsCollectionVtbl;
 498     col->ref = 1;
 499     col->navigator = navigator;
 500
 501     init_dispex(&col->dispex, (IUnknown*)&col->IHTMLPluginsCollection_iface,
 502                 &HTMLPluginsCollection_dispex);
 503
 504     *ret = col;
 505     return S_OK;
 506 }
 507
 508 struct HTMLMimeTypesCollection {
 509     DispatchEx dispex;
 510     IHTMLMimeTypesCollection IHTMLMimeTypesCollection_iface;
 511
 512     LONG ref;
 513
 514     OmNavigator *navigator;
 515 };
 516
 517 static inline HTMLMimeTypesCollection *impl_from_IHTMLMimeTypesCollection(IHTMLMimeTypesCollection *iface)
 518 {
 519     return CONTAINING_RECORD(iface, HTMLMimeTypesCollection, IHTMLMimeTypesCollection_iface);
 520 }
 521
 522 static HRESULT WINAPI HTMLMimeTypesCollection_QueryInterface(IHTMLMimeTypesCollection *iface, REFIID riid, void **ppv)
 523 {
 524     HTMLMimeTypesCollection *This = impl_from_IHTMLMimeTypesCollection(iface);
 525
 526     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 527
 528     if(IsEqualGUID(&IID_IUnknown, riid)) {
 529         *ppv = &This->IHTMLMimeTypesCollection_iface;
 530     }else if(IsEqualGUID(&IID_IHTMLMimeTypesCollection, riid)) {
 531         *ppv = &This->IHTMLMimeTypesCollection_iface;
 532     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
 533         return *ppv ? S_OK : E_NOINTERFACE;
 534     }else {
 535         WARN("Unsupported interface %s\n", debugstr_mshtml_guid(riid));
 536         *ppv = NULL;
 537         return E_NOINTERFACE;
 538     }
 539
 540     IUnknown_AddRef((IUnknown*)*ppv);
 541     return S_OK;
 542 }
 543
 544 static ULONG WINAPI HTMLMimeTypesCollection_AddRef(IHTMLMimeTypesCollection *iface)
 545 {
 546     HTMLMimeTypesCollection *This = impl_from_IHTMLMimeTypesCollection(iface);
 547     LONG ref = InterlockedIncrement(&This->ref);
 548
 549     TRACE("(%p) ref=%d\n", This, ref);
 550
 551     return ref;
 552 }
 553
 554 static ULONG WINAPI HTMLMimeTypesCollection_Release(IHTMLMimeTypesCollection *iface)
 555 {
 556     HTMLMimeTypesCollection *This = impl_from_IHTMLMimeTypesCollection(iface);
 557     LONG ref = InterlockedDecrement(&This->ref);
 558
 559     TRACE("(%p) ref=%d\n", This, ref);
 560
 561     if(!ref) {
 562         if(This->navigator)
 563             This->navigator->mime_types = NULL;
 564         release_dispex(&This->dispex);
 565         heap_free(This);
 566     }
 567
 568     return ref;
 569 }
 570
 571 static HRESULT WINAPI HTMLMimeTypesCollection_GetTypeInfoCount(IHTMLMimeTypesCollection *iface, UINT *pctinfo)
 572 {
 573     HTMLMimeTypesCollection *This = impl_from_IHTMLMimeTypesCollection(iface);
 574     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
 575 }
 576
 577 static HRESULT WINAPI HTMLMimeTypesCollection_GetTypeInfo(IHTMLMimeTypesCollection *iface, UINT iTInfo,
 578                                               LCID lcid, ITypeInfo **ppTInfo)
 579 {
 580     HTMLMimeTypesCollection *This = impl_from_IHTMLMimeTypesCollection(iface);
 581     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 582 }
 583
 584 static HRESULT WINAPI HTMLMimeTypesCollection_GetIDsOfNames(IHTMLMimeTypesCollection *iface, REFIID riid,
 585         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
 586 {
 587     HTMLMimeTypesCollection *This = impl_from_IHTMLMimeTypesCollection(iface);
 588     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
 589             lcid, rgDispId);
 590 }
 591
 592 static HRESULT WINAPI HTMLMimeTypesCollection_Invoke(IHTMLMimeTypesCollection *iface, DISPID dispIdMember,
 593         REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
 594         EXCEPINFO *pExcepInfo, UINT *puArgErr)
 595 {
 596     HTMLMimeTypesCollection *This = impl_from_IHTMLMimeTypesCollection(iface);
 597     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid,
 598             wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 599 }
 600
 601 static HRESULT WINAPI HTMLMimeTypesCollection_get_length(IHTMLMimeTypesCollection *iface, LONG *p)
 602 {
 603     HTMLMimeTypesCollection *This = impl_from_IHTMLMimeTypesCollection(iface);
 604
 605     TRACE("(%p)->(%p)\n", This, p);
 606
 607     /* This is just a stub for compatibility with other browser in IE */
 608     *p = 0;
 609     return S_OK;
 610 }
 611
 612 static const IHTMLMimeTypesCollectionVtbl HTMLMimeTypesCollectionVtbl = {
 613     HTMLMimeTypesCollection_QueryInterface,
 614     HTMLMimeTypesCollection_AddRef,
 615     HTMLMimeTypesCollection_Release,
 616     HTMLMimeTypesCollection_GetTypeInfoCount,
 617     HTMLMimeTypesCollection_GetTypeInfo,
 618     HTMLMimeTypesCollection_GetIDsOfNames,
 619     HTMLMimeTypesCollection_Invoke,
 620     HTMLMimeTypesCollection_get_length
 621 };
 622
 623 static const tid_t HTMLMimeTypesCollection_iface_tids[] = {
 624     IHTMLMimeTypesCollection_tid,
 625     0
 626 };
 627 static dispex_static_data_t HTMLMimeTypesCollection_dispex = {
 628     NULL,
 629     IHTMLMimeTypesCollection_tid,
 630     HTMLMimeTypesCollection_iface_tids
 631 };
 632
 633 static HRESULT create_mime_types_collection(OmNavigator *navigator, HTMLMimeTypesCollection **ret)
 634 {
 635     HTMLMimeTypesCollection *col;
 636
 637     col = heap_alloc_zero(sizeof(*col));
 638     if(!col)
 639         return E_OUTOFMEMORY;
 640
 641     col->IHTMLMimeTypesCollection_iface.lpVtbl = &HTMLMimeTypesCollectionVtbl;
 642     col->ref = 1;
 643     col->navigator = navigator;
 644
 645     init_dispex(&col->dispex, (IUnknown*)&col->IHTMLMimeTypesCollection_iface,
 646                 &HTMLMimeTypesCollection_dispex);
 647
 648     *ret = col;
 649     return S_OK;
 650 }
 651
 652 static inline OmNavigator *impl_from_IOmNavigator(IOmNavigator *iface)
 653 {
 654     return CONTAINING_RECORD(iface, OmNavigator, IOmNavigator_iface);
 655 }
 656
 657 static HRESULT WINAPI OmNavigator_QueryInterface(IOmNavigator *iface, REFIID riid, void **ppv)
 658 {
 659     OmNavigator *This = impl_from_IOmNavigator(iface);
 660
 661     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 662
 663     if(IsEqualGUID(&IID_IUnknown, riid)) {
 664         *ppv = &This->IOmNavigator_iface;
 665     }else if(IsEqualGUID(&IID_IOmNavigator, riid)) {
 666         *ppv = &This->IOmNavigator_iface;
 667     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
 668         return *ppv ? S_OK : E_NOINTERFACE;
 669     }else {
 670         WARN("Unsupported interface %s\n", debugstr_mshtml_guid(riid));
 671         *ppv = NULL;
 672         return E_NOINTERFACE;
 673     }
 674
 675     IUnknown_AddRef((IUnknown*)*ppv);
 676     return S_OK;
 677 }
 678
 679 static ULONG WINAPI OmNavigator_AddRef(IOmNavigator *iface)
 680 {
 681     OmNavigator *This = impl_from_IOmNavigator(iface);
 682     LONG ref = InterlockedIncrement(&This->ref);
 683
 684     TRACE("(%p) ref=%d\n", This, ref);
 685
 686     return ref;
 687 }
 688
 689 static ULONG WINAPI OmNavigator_Release(IOmNavigator *iface)
 690 {
 691     OmNavigator *This = impl_from_IOmNavigator(iface);
 692     LONG ref = InterlockedDecrement(&This->ref);
 693
 694     TRACE("(%p) ref=%d\n", This, ref);
 695
 696     if(!ref) {
 697         if(This->plugins)
 698             This->plugins->navigator = NULL;
 699         if(This->mime_types)
 700             This->mime_types->navigator = NULL;
 701         release_dispex(&This->dispex);
 702         heap_free(This);
 703     }
 704
 705     return ref;
 706 }
 707
 708 static HRESULT WINAPI OmNavigator_GetTypeInfoCount(IOmNavigator *iface, UINT *pctinfo)
 709 {
 710     OmNavigator *This = impl_from_IOmNavigator(iface);
 711     FIXME("(%p)->(%p)\n", This, pctinfo);
 712     return E_NOTIMPL;
 713 }
 714
 715 static HRESULT WINAPI OmNavigator_GetTypeInfo(IOmNavigator *iface, UINT iTInfo,
 716                                               LCID lcid, ITypeInfo **ppTInfo)
 717 {
 718     OmNavigator *This = impl_from_IOmNavigator(iface);
 719
 720     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 721 }
 722
 723 static HRESULT WINAPI OmNavigator_GetIDsOfNames(IOmNavigator *iface, REFIID riid,
 724                                                 LPOLESTR *rgszNames, UINT cNames,
 725                                                 LCID lcid, DISPID *rgDispId)
 726 {
 727     OmNavigator *This = impl_from_IOmNavigator(iface);
 728
 729     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
 730             lcid, rgDispId);
 731 }
 732
 733 static HRESULT WINAPI OmNavigator_Invoke(IOmNavigator *iface, DISPID dispIdMember,
 734                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 735                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 736 {
 737     OmNavigator *This = impl_from_IOmNavigator(iface);
 738
 739     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
 740             pDispParams, pVarResult, pExcepInfo, puArgErr);
 741 }
 742
 743 static HRESULT WINAPI OmNavigator_get_appCodeName(IOmNavigator *iface, BSTR *p)
 744 {
 745     OmNavigator *This = impl_from_IOmNavigator(iface);
 746
 747     static const WCHAR mozillaW[] = {'M','o','z','i','l','l','a',0};
 748
 749     TRACE("(%p)->(%p)\n", This, p);
 750
 751     *p = SysAllocString(mozillaW);
 752     return S_OK;
 753 }
 754
 755 static HRESULT WINAPI OmNavigator_get_appName(IOmNavigator *iface, BSTR *p)
 756 {
 757     OmNavigator *This = impl_from_IOmNavigator(iface);
 758
 759     static const WCHAR app_nameW[] =
 760         {'M','i','c','r','o','s','o','f','t',' ',
 761          'I','n','t','e','r','n','e','t',' ',
 762          'E','x','p','l','o','r','e','r',0};
 763
 764     TRACE("(%p)->(%p)\n", This, p);
 765
 766     *p = SysAllocString(app_nameW);
 767     if(!*p)
 768         return E_OUTOFMEMORY;
 769
 770     return S_OK;
 771 }
 772
 773 static HRESULT WINAPI OmNavigator_get_appVersion(IOmNavigator *iface, BSTR *p)
 774 {
 775     OmNavigator *This = impl_from_IOmNavigator(iface);
 776
 777     char user_agent[512];
 778     DWORD size;
 779     HRESULT hres;
 780
 781     TRACE("(%p)->(%p)\n", This, p);
 782
 783     size = sizeof(user_agent);
 784     hres = ObtainUserAgentString(0, user_agent, &size);
 785     if(FAILED(hres))
 786         return hres;
 787
 788     if(strncmp(user_agent, "Mozilla/", 8)) {
 789         FIXME("Unsupported user agent\n");
 790         return E_FAIL;
 791     }
 792
 793     size = MultiByteToWideChar(CP_ACP, 0, user_agent+8, -1, NULL, 0);
 794     *p = SysAllocStringLen(NULL, size-1);
 795     if(!*p)
 796         return E_OUTOFMEMORY;
 797
 798     MultiByteToWideChar(CP_ACP, 0, user_agent+8, -1, *p, size);
 799     return S_OK;
 800 }
 801
 802 static HRESULT WINAPI OmNavigator_get_userAgent(IOmNavigator *iface, BSTR *p)
 803 {
 804     OmNavigator *This = impl_from_IOmNavigator(iface);
 805     char user_agent[512];
 806     DWORD size;
 807     HRESULT hres;
 808
 809     TRACE("(%p)->(%p)\n", This, p);
 810
 811     size = sizeof(user_agent);
 812     hres = ObtainUserAgentString(0, user_agent, &size);
 813     if(FAILED(hres))
 814         return hres;
 815
 816     size = MultiByteToWideChar(CP_ACP, 0, user_agent, -1, NULL, 0);
 817     *p = SysAllocStringLen(NULL, size-1);
 818     if(!*p)
 819         return E_OUTOFMEMORY;
 820
 821     MultiByteToWideChar(CP_ACP, 0, user_agent, -1, *p, size);
 822     return S_OK;
 823 }
 824
 825 static HRESULT WINAPI OmNavigator_javaEnabled(IOmNavigator *iface, VARIANT_BOOL *enabled)
 826 {
 827     OmNavigator *This = impl_from_IOmNavigator(iface);
 828
 829     FIXME("(%p)->(%p) semi-stub\n", This, enabled);
 830
 831     *enabled = VARIANT_TRUE;
 832     return S_OK;
 833 }
 834
 835 static HRESULT WINAPI OmNavigator_taintEnabled(IOmNavigator *iface, VARIANT_BOOL *enabled)
 836 {
 837     OmNavigator *This = impl_from_IOmNavigator(iface);
 838     FIXME("(%p)->(%p)\n", This, enabled);
 839     return E_NOTIMPL;
 840 }
 841
 842 static HRESULT WINAPI OmNavigator_get_mimeTypes(IOmNavigator *iface, IHTMLMimeTypesCollection **p)
 843 {
 844     OmNavigator *This = impl_from_IOmNavigator(iface);
 845
 846     TRACE("(%p)->(%p)\n", This, p);
 847
 848     if(!This->mime_types) {
 849         HRESULT hres;
 850
 851         hres = create_mime_types_collection(This, &This->mime_types);
 852         if(FAILED(hres))
 853             return hres;
 854     }else {
 855         IHTMLMimeTypesCollection_AddRef(&This->mime_types->IHTMLMimeTypesCollection_iface);
 856     }
 857
 858     *p = &This->mime_types->IHTMLMimeTypesCollection_iface;
 859     return S_OK;
 860 }
 861
 862 static HRESULT WINAPI OmNavigator_get_plugins(IOmNavigator *iface, IHTMLPluginsCollection **p)
 863 {
 864     OmNavigator *This = impl_from_IOmNavigator(iface);
 865
 866     TRACE("(%p)->(%p)\n", This, p);
 867
 868     if(!This->plugins) {
 869         HRESULT hres;
 870
 871         hres = create_plugins_collection(This, &This->plugins);
 872         if(FAILED(hres))
 873             return hres;
 874     }else {
 875         IHTMLPluginsCollection_AddRef(&This->plugins->IHTMLPluginsCollection_iface);
 876     }
 877
 878     *p = &This->plugins->IHTMLPluginsCollection_iface;
 879     return S_OK;
 880 }
 881
 882 static HRESULT WINAPI OmNavigator_get_cookieEnabled(IOmNavigator *iface, VARIANT_BOOL *p)
 883 {
 884     OmNavigator *This = impl_from_IOmNavigator(iface);
 885
 886     WARN("(%p)->(%p) semi-stub\n", This, p);
 887
 888     *p = VARIANT_TRUE;
 889     return S_OK;
 890 }
 891
 892 static HRESULT WINAPI OmNavigator_get_opsProfile(IOmNavigator *iface, IHTMLOpsProfile **p)
 893 {
 894     OmNavigator *This = impl_from_IOmNavigator(iface);
 895     FIXME("(%p)->(%p)\n", This, p);
 896     return E_NOTIMPL;
 897 }
 898
 899 static HRESULT WINAPI OmNavigator_toString(IOmNavigator *iface, BSTR *String)
 900 {
 901     OmNavigator *This = impl_from_IOmNavigator(iface);
 902
 903     static const WCHAR objectW[] = {'[','o','b','j','e','c','t',']',0};
 904
 905     TRACE("(%p)->(%p)\n", This, String);
 906
 907     if(!String)
 908         return E_INVALIDARG;
 909
 910     *String = SysAllocString(objectW);
 911     return *String ? S_OK : E_OUTOFMEMORY;
 912 }
 913
 914 static HRESULT WINAPI OmNavigator_get_cpuClass(IOmNavigator *iface, BSTR *p)
 915 {
 916     OmNavigator *This = impl_from_IOmNavigator(iface);
 917
 918     static const WCHAR cpu_classW[] =
 919 #ifdef _WIN64
 920         {'x','6','4',0};
 921 #else
 922         {'x','8','6',0};
 923 #endif
 924
 925     TRACE("(%p)->(%p)\n", This, p);
 926
 927     *p = SysAllocString(cpu_classW);
 928     return *p ? S_OK : E_OUTOFMEMORY;
 929 }
 930
 931 static HRESULT get_language_string(LCID lcid, BSTR *p)
 932 {
 933     BSTR ret;
 934     int len;
 935
 936     len = LCIDToLocaleName(lcid, NULL, 0, 0);
 937     if(!len) {
 938         WARN("LCIDToLocaleName failed: %u\n", GetLastError());
 939         return E_FAIL;
 940     }
 941
 942     ret = SysAllocStringLen(NULL, len-1);
 943     if(!ret)
 944         return E_OUTOFMEMORY;
 945
 946     len = LCIDToLocaleName(lcid, ret, len, 0);
 947     if(!len) {
 948         WARN("LCIDToLocaleName failed: %u\n", GetLastError());
 949         SysFreeString(ret);
 950         return E_FAIL;
 951     }
 952
 953     *p = ret;
 954     return S_OK;
 955 }
 956
 957 static HRESULT WINAPI OmNavigator_get_systemLanguage(IOmNavigator *iface, BSTR *p)
 958 {
 959     OmNavigator *This = impl_from_IOmNavigator(iface);
 960
 961     TRACE("(%p)->(%p)\n", This, p);
 962
 963     return get_language_string(LOCALE_SYSTEM_DEFAULT, p);
 964 }
 965
 966 static HRESULT WINAPI OmNavigator_get_browserLanguage(IOmNavigator *iface, BSTR *p)
 967 {
 968     OmNavigator *This = impl_from_IOmNavigator(iface);
 969
 970     TRACE("(%p)->(%p)\n", This, p);
 971
 972     return get_language_string(GetUserDefaultUILanguage(), p);
 973 }
 974
 975 static HRESULT WINAPI OmNavigator_get_userLanguage(IOmNavigator *iface, BSTR *p)
 976 {
 977     OmNavigator *This = impl_from_IOmNavigator(iface);
 978
 979     TRACE("(%p)->(%p)\n", This, p);
 980
 981     return get_language_string(LOCALE_USER_DEFAULT, p);
 982 }
 983
 984 static HRESULT WINAPI OmNavigator_get_platform(IOmNavigator *iface, BSTR *p)
 985 {
 986     OmNavigator *This = impl_from_IOmNavigator(iface);
 987
 988 #ifdef _WIN64
 989     static const WCHAR platformW[] = {'W','i','n','6','4',0};
 990 #else
 991     static const WCHAR platformW[] = {'W','i','n','3','2',0};
 992 #endif
 993
 994     TRACE("(%p)->(%p)\n", This, p);
 995
 996     *p = SysAllocString(platformW);
 997     return S_OK;
 998 }
 999
1000 static HRESULT WINAPI OmNavigator_get_appMinorVersion(IOmNavigator *iface, BSTR *p)
1001 {
1002     OmNavigator *This = impl_from_IOmNavigator(iface);
1003
1004     static const WCHAR zeroW[] = {'0',0};
1005
1006     TRACE("(%p)->(%p)\n", This, p);
1007
1008     /* NOTE: MSIE returns "0" or values like ";SP2;". Returning "0" should be enough. */
1009     *p = SysAllocString(zeroW);
1010     return S_OK;
1011 }
1012
1013 static HRESULT WINAPI OmNavigator_get_connectionSpeed(IOmNavigator *iface, LONG *p)
1014 {
1015     OmNavigator *This = impl_from_IOmNavigator(iface);
1016     FIXME("(%p)->(%p)\n", This, p);
1017     return E_NOTIMPL;
1018 }
1019
1020 static HRESULT WINAPI OmNavigator_get_onLine(IOmNavigator *iface, VARIANT_BOOL *p)
1021 {
1022     OmNavigator *This = impl_from_IOmNavigator(iface);
1023
1024     WARN("(%p)->(%p) semi-stub, returning true\n", This, p);
1025
1026     *p = VARIANT_TRUE;
1027     return S_OK;
1028 }
1029
1030 static HRESULT WINAPI OmNavigator_get_userProfile(IOmNavigator *iface, IHTMLOpsProfile **p)
1031 {
1032     OmNavigator *This = impl_from_IOmNavigator(iface);
1033     FIXME("(%p)->(%p)\n", This, p);
1034     return E_NOTIMPL;
1035 }
1036
1037 static const IOmNavigatorVtbl OmNavigatorVtbl = {
1038     OmNavigator_QueryInterface,
1039     OmNavigator_AddRef,
1040     OmNavigator_Release,
1041     OmNavigator_GetTypeInfoCount,
1042     OmNavigator_GetTypeInfo,
1043     OmNavigator_GetIDsOfNames,
1044     OmNavigator_Invoke,
1045     OmNavigator_get_appCodeName,
1046     OmNavigator_get_appName,
1047     OmNavigator_get_appVersion,
1048     OmNavigator_get_userAgent,
1049     OmNavigator_javaEnabled,
1050     OmNavigator_taintEnabled,
1051     OmNavigator_get_mimeTypes,
1052     OmNavigator_get_plugins,
1053     OmNavigator_get_cookieEnabled,
1054     OmNavigator_get_opsProfile,
1055     OmNavigator_toString,
1056     OmNavigator_get_cpuClass,
1057     OmNavigator_get_systemLanguage,
1058     OmNavigator_get_browserLanguage,
1059     OmNavigator_get_userLanguage,
1060     OmNavigator_get_platform,
1061     OmNavigator_get_appMinorVersion,
1062     OmNavigator_get_connectionSpeed,
1063     OmNavigator_get_onLine,
1064     OmNavigator_get_userProfile
1065 };
1066
1067 static const tid_t OmNavigator_iface_tids[] = {
1068     IOmNavigator_tid,
1069     0
1070 };
1071 static dispex_static_data_t OmNavigator_dispex = {
1072     NULL,
1073     DispHTMLNavigator_tid,
1074     OmNavigator_iface_tids
1075 };
1076
1077 IOmNavigator *OmNavigator_Create(void)
1078 {
1079     OmNavigator *ret;
1080
1081     ret = heap_alloc_zero(sizeof(*ret));
1082     if(!ret)
1083         return NULL;
1084
1085     ret->IOmNavigator_iface.lpVtbl = &OmNavigatorVtbl;
1086     ret->ref = 1;
1087
1088     init_dispex(&ret->dispex, (IUnknown*)&ret->IOmNavigator_iface, &OmNavigator_dispex);
1089
1090     return &ret->IOmNavigator_iface;
1091 }