dlls/mshtml/script.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 "config.h"
  20
  21 #include <stdarg.h>
  22 #include <assert.h>
  23
  24 #define COBJMACROS
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winuser.h"
  29 #include "ole2.h"
  30 #include "activscp.h"
  31 #include "activdbg.h"
  32 #include "shlwapi.h"
  33
  34 #include "wine/debug.h"
  35
  36 #include "mshtml_private.h"
  37 #include "htmlscript.h"
  38 #include "pluginhost.h"
  39 #include "htmlevent.h"
  40 #include "binding.h"
  41
  42 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  43
  44 #ifdef _WIN64
  45
  46 #define CTXARG_T DWORDLONG
  47 #define IActiveScriptSiteDebugVtbl IActiveScriptSiteDebug64Vtbl
  48
  49 #define IActiveScriptParse_Release IActiveScriptParse64_Release
  50 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
  51 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
  52 #define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_64_Release
  53 #define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_64_ParseProcedureText
  54
  55 #else
  56
  57 #define CTXARG_T DWORD
  58 #define IActiveScriptSiteDebugVtbl IActiveScriptSiteDebug32Vtbl
  59
  60 #define IActiveScriptParse_Release IActiveScriptParse32_Release
  61 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
  62 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
  63 #define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_32_Release
  64 #define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_32_ParseProcedureText
  65
  66 #endif
  67
  68 static const WCHAR documentW[] = {'d','o','c','u','m','e','n','t',0};
  69 static const WCHAR windowW[] = {'w','i','n','d','o','w',0};
  70 static const WCHAR script_endW[] = {'<','/','S','C','R','I','P','T','>',0};
  71 static const WCHAR emptyW[] = {0};
  72
  73 struct ScriptHost {
  74     IActiveScriptSite              IActiveScriptSite_iface;
  75     IActiveScriptSiteInterruptPoll IActiveScriptSiteInterruptPoll_iface;
  76     IActiveScriptSiteWindow        IActiveScriptSiteWindow_iface;
  77     IActiveScriptSiteUIControl     IActiveScriptSiteUIControl_iface;
  78     IActiveScriptSiteDebug         IActiveScriptSiteDebug_iface;
  79     IServiceProvider               IServiceProvider_iface;
  80
  81     LONG ref;
  82
  83     IActiveScript *script;
  84     IActiveScriptParse *parse;
  85     IActiveScriptParseProcedure2 *parse_proc;
  86
  87     SCRIPTSTATE script_state;
  88
  89     HTMLInnerWindow *window;
  90
  91     GUID guid;
  92     struct list entry;
  93 };
  94
  95 static void set_script_prop(ScriptHost *script_host, DWORD property, VARIANT *val)
  96 {
  97     IActiveScriptProperty *script_prop;
  98     HRESULT hres;
  99
 100     hres = IActiveScript_QueryInterface(script_host->script, &IID_IActiveScriptProperty,
 101             (void**)&script_prop);
 102     if(FAILED(hres)) {
 103         WARN("Could not get IActiveScriptProperty iface: %08x\n", hres);
 104         return;
 105     }
 106
 107     hres = IActiveScriptProperty_SetProperty(script_prop, property, NULL, val);
 108     IActiveScriptProperty_Release(script_prop);
 109     if(FAILED(hres))
 110         WARN("SetProperty(%x) failed: %08x\n", property, hres);
 111 }
 112
 113 static BOOL init_script_engine(ScriptHost *script_host)
 114 {
 115     IObjectSafety *safety;
 116     SCRIPTSTATE state;
 117     DWORD supported_opts=0, enabled_opts=0;
 118     VARIANT var;
 119     HRESULT hres;
 120
 121     hres = IActiveScript_QueryInterface(script_host->script, &IID_IActiveScriptParse, (void**)&script_host->parse);
 122     if(FAILED(hres)) {
 123         WARN("Could not get IActiveScriptHost: %08x\n", hres);
 124         return FALSE;
 125     }
 126
 127     hres = IActiveScript_QueryInterface(script_host->script, &IID_IObjectSafety, (void**)&safety);
 128     if(FAILED(hres)) {
 129         FIXME("Could not get IObjectSafety: %08x\n", hres);
 130         return FALSE;
 131     }
 132
 133     hres = IObjectSafety_GetInterfaceSafetyOptions(safety, &IID_IActiveScriptParse, &supported_opts, &enabled_opts);
 134     if(FAILED(hres)) {
 135         FIXME("GetInterfaceSafetyOptions failed: %08x\n", hres);
 136     }else if(!(supported_opts & INTERFACE_USES_DISPEX)) {
 137         FIXME("INTERFACE_USES_DISPEX is not supported\n");
 138     }else {
 139         hres = IObjectSafety_SetInterfaceSafetyOptions(safety, &IID_IActiveScriptParse,
 140                 INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER,
 141                 INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER);
 142         if(FAILED(hres))
 143             FIXME("SetInterfaceSafetyOptions failed: %08x\n", hres);
 144     }
 145
 146     IObjectSafety_Release(safety);
 147     if(FAILED(hres))
 148         return FALSE;
 149
 150     V_VT(&var) = VT_I4;
 151     V_I4(&var) = 1;
 152     set_script_prop(script_host, SCRIPTPROP_INVOKEVERSIONING, &var);
 153
 154     V_VT(&var) = VT_BOOL;
 155     V_BOOL(&var) = VARIANT_TRUE;
 156     set_script_prop(script_host, SCRIPTPROP_HACK_TRIDENTEVENTSINK, &var);
 157
 158     hres = IActiveScriptParse_InitNew(script_host->parse);
 159     if(FAILED(hres)) {
 160         WARN("InitNew failed: %08x\n", hres);
 161         return FALSE;
 162     }
 163
 164     hres = IActiveScript_SetScriptSite(script_host->script, &script_host->IActiveScriptSite_iface);
 165     if(FAILED(hres)) {
 166         WARN("SetScriptSite failed: %08x\n", hres);
 167         IActiveScript_Close(script_host->script);
 168         return FALSE;
 169     }
 170
 171     hres = IActiveScript_GetScriptState(script_host->script, &state);
 172     if(FAILED(hres))
 173         WARN("GetScriptState failed: %08x\n", hres);
 174     else if(state != SCRIPTSTATE_INITIALIZED)
 175         FIXME("state = %x\n", state);
 176
 177     hres = IActiveScript_SetScriptState(script_host->script, SCRIPTSTATE_STARTED);
 178     if(FAILED(hres)) {
 179         WARN("Starting script failed: %08x\n", hres);
 180         return FALSE;
 181     }
 182
 183     hres = IActiveScript_AddNamedItem(script_host->script, windowW,
 184             SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
 185     if(SUCCEEDED(hres)) {
 186         V_VT(&var) = VT_BOOL;
 187         V_BOOL(&var) = VARIANT_TRUE;
 188         set_script_prop(script_host, SCRIPTPROP_ABBREVIATE_GLOBALNAME_RESOLUTION, &var);
 189     }else {
 190        WARN("AddNamedItem failed: %08x\n", hres);
 191     }
 192
 193     hres = IActiveScript_QueryInterface(script_host->script, &IID_IActiveScriptParseProcedure2,
 194                                         (void**)&script_host->parse_proc);
 195     if(FAILED(hres)) {
 196         /* FIXME: QI for IActiveScriptParseProcedure */
 197         WARN("Could not get IActiveScriptParseProcedure iface: %08x\n", hres);
 198     }
 199
 200     return TRUE;
 201 }
 202
 203 static void release_script_engine(ScriptHost *This)
 204 {
 205     if(!This->script)
 206         return;
 207
 208     switch(This->script_state) {
 209     case SCRIPTSTATE_CONNECTED:
 210         IActiveScript_SetScriptState(This->script, SCRIPTSTATE_DISCONNECTED);
 211
 212     case SCRIPTSTATE_STARTED:
 213     case SCRIPTSTATE_DISCONNECTED:
 214     case SCRIPTSTATE_INITIALIZED:
 215         IActiveScript_Close(This->script);
 216
 217     default:
 218         if(This->parse_proc) {
 219             IActiveScriptParseProcedure2_Release(This->parse_proc);
 220             This->parse_proc = NULL;
 221         }
 222
 223         if(This->parse) {
 224             IActiveScriptParse_Release(This->parse);
 225             This->parse = NULL;
 226         }
 227     }
 228
 229     IActiveScript_Release(This->script);
 230     This->script = NULL;
 231     This->script_state = SCRIPTSTATE_UNINITIALIZED;
 232 }
 233
 234 void connect_scripts(HTMLInnerWindow *window)
 235 {
 236     ScriptHost *iter;
 237
 238     LIST_FOR_EACH_ENTRY(iter, &window->script_hosts, ScriptHost, entry) {
 239         if(iter->script_state == SCRIPTSTATE_STARTED)
 240             IActiveScript_SetScriptState(iter->script, SCRIPTSTATE_CONNECTED);
 241     }
 242 }
 243
 244 static inline ScriptHost *impl_from_IActiveScriptSite(IActiveScriptSite *iface)
 245 {
 246     return CONTAINING_RECORD(iface, ScriptHost, IActiveScriptSite_iface);
 247 }
 248
 249 static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
 250 {
 251     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 252
 253     *ppv = NULL;
 254
 255     if(IsEqualGUID(&IID_IUnknown, riid)) {
 256         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 257         *ppv = &This->IActiveScriptSite_iface;
 258     }else if(IsEqualGUID(&IID_IActiveScriptSite, riid)) {
 259         TRACE("(%p)->(IID_IActiveScriptSite %p)\n", This, ppv);
 260         *ppv = &This->IActiveScriptSite_iface;
 261     }else if(IsEqualGUID(&IID_IActiveScriptSiteInterruptPoll, riid)) {
 262         TRACE("(%p)->(IID_IActiveScriptSiteInterruprtPoll %p)\n", This, ppv);
 263         *ppv = &This->IActiveScriptSiteInterruptPoll_iface;
 264     }else if(IsEqualGUID(&IID_IActiveScriptSiteWindow, riid)) {
 265         TRACE("(%p)->(IID_IActiveScriptSiteWindow %p)\n", This, ppv);
 266         *ppv = &This->IActiveScriptSiteWindow_iface;
 267     }else if(IsEqualGUID(&IID_IActiveScriptSiteUIControl, riid)) {
 268         TRACE("(%p)->(IID_IActiveScriptSiteUIControl %p)\n", This, ppv);
 269         *ppv = &This->IActiveScriptSiteUIControl_iface;
 270     }else if(IsEqualGUID(&IID_IActiveScriptSiteDebug, riid)) {
 271         TRACE("(%p)->(IID_IActiveScriptSiteDebug %p)\n", This, ppv);
 272         *ppv = &This->IActiveScriptSiteDebug_iface;
 273     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
 274         TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
 275         *ppv = &This->IServiceProvider_iface;
 276     }else if(IsEqualGUID(&IID_ICanHandleException, riid)) {
 277         TRACE("(%p)->(IID_ICanHandleException not supported %p)\n", This, ppv);
 278         return E_NOINTERFACE;
 279     }else {
 280         FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 281         return E_NOINTERFACE;
 282     }
 283
 284     IUnknown_AddRef((IUnknown*)*ppv);
 285     return S_OK;
 286 }
 287
 288 static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface)
 289 {
 290     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 291     LONG ref = InterlockedIncrement(&This->ref);
 292
 293     TRACE("(%p) ref=%d\n", This, ref);
 294
 295     return ref;
 296 }
 297
 298 static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
 299 {
 300     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 301     LONG ref = InterlockedDecrement(&This->ref);
 302
 303     TRACE("(%p) ref=%d\n", This, ref);
 304
 305     if(!ref) {
 306         release_script_engine(This);
 307         if(This->window)
 308             list_remove(&This->entry);
 309         heap_free(This);
 310     }
 311
 312     return ref;
 313 }
 314
 315 static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
 316 {
 317     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 318
 319     TRACE("(%p)->(%p)\n", This, plcid);
 320
 321     *plcid = GetUserDefaultLCID();
 322     return S_OK;
 323 }
 324
 325 static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName,
 326         DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
 327 {
 328     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 329
 330     TRACE("(%p)->(%s %x %p %p)\n", This, debugstr_w(pstrName), dwReturnMask, ppiunkItem, ppti);
 331
 332     if(dwReturnMask != SCRIPTINFO_IUNKNOWN) {
 333         FIXME("Unsupported mask %x\n", dwReturnMask);
 334         return E_NOTIMPL;
 335     }
 336
 337     *ppiunkItem = NULL;
 338
 339     if(strcmpW(pstrName, windowW))
 340         return DISP_E_MEMBERNOTFOUND;
 341
 342     if(!This->window)
 343         return E_FAIL;
 344
 345     /* FIXME: Return proxy object */
 346     *ppiunkItem = (IUnknown*)&This->window->base.IHTMLWindow2_iface;
 347     IUnknown_AddRef(*ppiunkItem);
 348
 349     return S_OK;
 350 }
 351
 352 static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
 353 {
 354     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 355     FIXME("(%p)->(%p)\n", This, pbstrVersion);
 356     return E_NOTIMPL;
 357 }
 358
 359 static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface,
 360         const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
 361 {
 362     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 363     FIXME("(%p)->(%p %p)\n", This, pvarResult, pexcepinfo);
 364     return E_NOTIMPL;
 365 }
 366
 367 static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
 368 {
 369     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 370
 371     TRACE("(%p)->(%x)\n", This, ssScriptState);
 372
 373     This->script_state = ssScriptState;
 374     return S_OK;
 375 }
 376
 377 static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
 378 {
 379     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 380     FIXME("(%p)->(%p)\n", This, pscripterror);
 381     return E_NOTIMPL;
 382 }
 383
 384 static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
 385 {
 386     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 387
 388     TRACE("(%p)->()\n", This);
 389
 390     return S_OK;
 391 }
 392
 393 static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
 394 {
 395     ScriptHost *This = impl_from_IActiveScriptSite(iface);
 396
 397     TRACE("(%p)->()\n", This);
 398
 399     return S_OK;
 400 }
 401
 402 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = {
 403     ActiveScriptSite_QueryInterface,
 404     ActiveScriptSite_AddRef,
 405     ActiveScriptSite_Release,
 406     ActiveScriptSite_GetLCID,
 407     ActiveScriptSite_GetItemInfo,
 408     ActiveScriptSite_GetDocVersionString,
 409     ActiveScriptSite_OnScriptTerminate,
 410     ActiveScriptSite_OnStateChange,
 411     ActiveScriptSite_OnScriptError,
 412     ActiveScriptSite_OnEnterScript,
 413     ActiveScriptSite_OnLeaveScript
 414 };
 415
 416 static inline ScriptHost *impl_from_IActiveScriptSiteInterruptPoll(IActiveScriptSiteInterruptPoll *iface)
 417 {
 418     return CONTAINING_RECORD(iface, ScriptHost, IActiveScriptSiteInterruptPoll_iface);
 419 }
 420
 421 static HRESULT WINAPI ActiveScriptSiteInterruptPoll_QueryInterface(IActiveScriptSiteInterruptPoll *iface,
 422         REFIID riid, void **ppv)
 423 {
 424     ScriptHost *This = impl_from_IActiveScriptSiteInterruptPoll(iface);
 425     return IActiveScriptSite_QueryInterface(&This->IActiveScriptSite_iface, riid, ppv);
 426 }
 427
 428 static ULONG WINAPI ActiveScriptSiteInterruptPoll_AddRef(IActiveScriptSiteInterruptPoll *iface)
 429 {
 430     ScriptHost *This = impl_from_IActiveScriptSiteInterruptPoll(iface);
 431     return IActiveScriptSite_AddRef(&This->IActiveScriptSite_iface);
 432 }
 433
 434 static ULONG WINAPI ActiveScriptSiteInterruptPoll_Release(IActiveScriptSiteInterruptPoll *iface)
 435 {
 436     ScriptHost *This = impl_from_IActiveScriptSiteInterruptPoll(iface);
 437     return IActiveScriptSite_Release(&This->IActiveScriptSite_iface);
 438 }
 439
 440 static HRESULT WINAPI ActiveScriptSiteInterruptPoll_QueryContinue(IActiveScriptSiteInterruptPoll *iface)
 441 {
 442     ScriptHost *This = impl_from_IActiveScriptSiteInterruptPoll(iface);
 443
 444     TRACE("(%p)\n", This);
 445
 446     return S_OK;
 447 }
 448
 449 static const IActiveScriptSiteInterruptPollVtbl ActiveScriptSiteInterruptPollVtbl = {
 450     ActiveScriptSiteInterruptPoll_QueryInterface,
 451     ActiveScriptSiteInterruptPoll_AddRef,
 452     ActiveScriptSiteInterruptPoll_Release,
 453     ActiveScriptSiteInterruptPoll_QueryContinue
 454 };
 455
 456 static inline ScriptHost *impl_from_IActiveScriptSiteWindow(IActiveScriptSiteWindow *iface)
 457 {
 458     return CONTAINING_RECORD(iface, ScriptHost, IActiveScriptSiteWindow_iface);
 459 }
 460
 461 static HRESULT WINAPI ActiveScriptSiteWindow_QueryInterface(IActiveScriptSiteWindow *iface,
 462         REFIID riid, void **ppv)
 463 {
 464     ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface);
 465     return IActiveScriptSite_QueryInterface(&This->IActiveScriptSite_iface, riid, ppv);
 466 }
 467
 468 static ULONG WINAPI ActiveScriptSiteWindow_AddRef(IActiveScriptSiteWindow *iface)
 469 {
 470     ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface);
 471     return IActiveScriptSite_AddRef(&This->IActiveScriptSite_iface);
 472 }
 473
 474 static ULONG WINAPI ActiveScriptSiteWindow_Release(IActiveScriptSiteWindow *iface)
 475 {
 476     ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface);
 477     return IActiveScriptSite_Release(&This->IActiveScriptSite_iface);
 478 }
 479
 480 static HRESULT WINAPI ActiveScriptSiteWindow_GetWindow(IActiveScriptSiteWindow *iface, HWND *phwnd)
 481 {
 482     ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface);
 483
 484     TRACE("(%p)->(%p)\n", This, phwnd);
 485
 486     if(!This->window || !This->window->base.outer_window || !This->window->base.outer_window->doc_obj)
 487         return E_UNEXPECTED;
 488
 489     *phwnd = This->window->base.outer_window->doc_obj->hwnd;
 490     return S_OK;
 491 }
 492
 493 static HRESULT WINAPI ActiveScriptSiteWindow_EnableModeless(IActiveScriptSiteWindow *iface, BOOL fEnable)
 494 {
 495     ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface);
 496     FIXME("(%p)->(%x)\n", This, fEnable);
 497     return S_OK;
 498 }
 499
 500 static const IActiveScriptSiteWindowVtbl ActiveScriptSiteWindowVtbl = {
 501     ActiveScriptSiteWindow_QueryInterface,
 502     ActiveScriptSiteWindow_AddRef,
 503     ActiveScriptSiteWindow_Release,
 504     ActiveScriptSiteWindow_GetWindow,
 505     ActiveScriptSiteWindow_EnableModeless
 506 };
 507
 508 static inline ScriptHost *impl_from_IActiveScriptSiteUIControl(IActiveScriptSiteUIControl *iface)
 509 {
 510     return CONTAINING_RECORD(iface, ScriptHost, IActiveScriptSiteUIControl_iface);
 511 }
 512
 513 static HRESULT WINAPI ActiveScriptSiteUIControl_QueryInterface(IActiveScriptSiteUIControl *iface, REFIID riid, void **ppv)
 514 {
 515     ScriptHost *This = impl_from_IActiveScriptSiteUIControl(iface);
 516     return IActiveScriptSite_QueryInterface(&This->IActiveScriptSite_iface, riid, ppv);
 517 }
 518
 519 static ULONG WINAPI ActiveScriptSiteUIControl_AddRef(IActiveScriptSiteUIControl *iface)
 520 {
 521     ScriptHost *This = impl_from_IActiveScriptSiteUIControl(iface);
 522     return IActiveScriptSite_AddRef(&This->IActiveScriptSite_iface);
 523 }
 524
 525 static ULONG WINAPI ActiveScriptSiteUIControl_Release(IActiveScriptSiteUIControl *iface)
 526 {
 527     ScriptHost *This = impl_from_IActiveScriptSiteUIControl(iface);
 528     return IActiveScriptSite_Release(&This->IActiveScriptSite_iface);
 529 }
 530
 531 static HRESULT WINAPI ActiveScriptSiteUIControl_GetUIBehavior(IActiveScriptSiteUIControl *iface, SCRIPTUICITEM UicItem,
 532         SCRIPTUICHANDLING *pUicHandling)
 533 {
 534     ScriptHost *This = impl_from_IActiveScriptSiteUIControl(iface);
 535
 536     WARN("(%p)->(%d %p) semi-stub\n", This, UicItem, pUicHandling);
 537
 538     *pUicHandling = SCRIPTUICHANDLING_ALLOW;
 539     return S_OK;
 540 }
 541
 542 static const IActiveScriptSiteUIControlVtbl ActiveScriptSiteUIControlVtbl = {
 543     ActiveScriptSiteUIControl_QueryInterface,
 544     ActiveScriptSiteUIControl_AddRef,
 545     ActiveScriptSiteUIControl_Release,
 546     ActiveScriptSiteUIControl_GetUIBehavior
 547 };
 548
 549 static inline ScriptHost *impl_from_IActiveScriptSiteDebug(IActiveScriptSiteDebug *iface)
 550 {
 551     return CONTAINING_RECORD(iface, ScriptHost, IActiveScriptSiteDebug_iface);
 552 }
 553
 554 static HRESULT WINAPI ActiveScriptSiteDebug_QueryInterface(IActiveScriptSiteDebug *iface,
 555         REFIID riid, void **ppv)
 556 {
 557     ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface);
 558     return IActiveScriptSite_QueryInterface(&This->IActiveScriptSite_iface, riid, ppv);
 559 }
 560
 561 static ULONG WINAPI ActiveScriptSiteDebug_AddRef(IActiveScriptSiteDebug *iface)
 562 {
 563     ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface);
 564     return IActiveScriptSite_AddRef(&This->IActiveScriptSite_iface);
 565 }
 566
 567 static ULONG WINAPI ActiveScriptSiteDebug_Release(IActiveScriptSiteDebug *iface)
 568 {
 569     ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface);
 570     return IActiveScriptSite_Release(&This->IActiveScriptSite_iface);
 571 }
 572
 573 static HRESULT WINAPI ActiveScriptSiteDebug_GetDocumentContextFromPosition(IActiveScriptSiteDebug *iface,
 574             CTXARG_T dwSourceContext, ULONG uCharacterOffset, ULONG uNumChars, IDebugDocumentContext **ppsc)
 575 {
 576     ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface);
 577     FIXME("(%p)->(%s %u %u %p)\n", This, wine_dbgstr_longlong(dwSourceContext), uCharacterOffset,
 578           uNumChars, ppsc);
 579     return E_NOTIMPL;
 580 }
 581
 582 static HRESULT WINAPI ActiveScriptSiteDebug_GetApplication(IActiveScriptSiteDebug *iface, IDebugApplication **ppda)
 583 {
 584     ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface);
 585     FIXME("(%p)->(%p)\n", This, ppda);
 586     return E_NOTIMPL;
 587 }
 588
 589 static HRESULT WINAPI ActiveScriptSiteDebug_GetRootApplicationNode(IActiveScriptSiteDebug *iface,
 590             IDebugApplicationNode **ppdanRoot)
 591 {
 592     ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface);
 593     FIXME("(%p)->(%p)\n", This, ppdanRoot);
 594     return E_NOTIMPL;
 595 }
 596
 597 static HRESULT WINAPI ActiveScriptSiteDebug_OnScriptErrorDebug(IActiveScriptSiteDebug *iface,
 598             IActiveScriptErrorDebug *pErrorDebug, BOOL *pfEnterDebugger, BOOL *pfCallOnScriptErrorWhenContinuing)
 599 {
 600     ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface);
 601     FIXME("(%p)->(%p %p %p)\n", This, pErrorDebug, pfEnterDebugger, pfCallOnScriptErrorWhenContinuing);
 602     return E_NOTIMPL;
 603 }
 604
 605 static const IActiveScriptSiteDebugVtbl ActiveScriptSiteDebugVtbl = {
 606     ActiveScriptSiteDebug_QueryInterface,
 607     ActiveScriptSiteDebug_AddRef,
 608     ActiveScriptSiteDebug_Release,
 609     ActiveScriptSiteDebug_GetDocumentContextFromPosition,
 610     ActiveScriptSiteDebug_GetApplication,
 611     ActiveScriptSiteDebug_GetRootApplicationNode,
 612     ActiveScriptSiteDebug_OnScriptErrorDebug
 613 };
 614
 615 static inline ScriptHost *impl_from_IServiceProvider(IServiceProvider *iface)
 616 {
 617     return CONTAINING_RECORD(iface, ScriptHost, IServiceProvider_iface);
 618 }
 619
 620 static HRESULT WINAPI ASServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
 621 {
 622     ScriptHost *This = impl_from_IServiceProvider(iface);
 623     return IActiveScriptSite_QueryInterface(&This->IActiveScriptSite_iface, riid, ppv);
 624 }
 625
 626 static ULONG WINAPI ASServiceProvider_AddRef(IServiceProvider *iface)
 627 {
 628     ScriptHost *This = impl_from_IServiceProvider(iface);
 629     return IActiveScriptSite_AddRef(&This->IActiveScriptSite_iface);
 630 }
 631
 632 static ULONG WINAPI ASServiceProvider_Release(IServiceProvider *iface)
 633 {
 634     ScriptHost *This = impl_from_IServiceProvider(iface);
 635     return IActiveScriptSite_Release(&This->IActiveScriptSite_iface);
 636 }
 637
 638 static HRESULT WINAPI ASServiceProvider_QueryService(IServiceProvider *iface, REFGUID guidService,
 639         REFIID riid, void **ppv)
 640 {
 641     ScriptHost *This = impl_from_IServiceProvider(iface);
 642
 643     if(IsEqualGUID(&SID_SInternetHostSecurityManager, guidService)) {
 644         TRACE("(%p)->(SID_SInternetHostSecurityManager)\n", This);
 645
 646         if(!This->window || !This->window->doc)
 647             return E_NOINTERFACE;
 648
 649         return IInternetHostSecurityManager_QueryInterface(&This->window->doc->IInternetHostSecurityManager_iface,
 650                 riid, ppv);
 651     }
 652
 653     if(IsEqualGUID(&SID_SContainerDispatch, guidService)) {
 654         TRACE("(%p)->(SID_SContainerDispatch)\n", This);
 655
 656         if(!This->window || !This->window->doc)
 657             return E_NOINTERFACE;
 658
 659         return IHTMLDocument2_QueryInterface(&This->window->doc->basedoc.IHTMLDocument2_iface, riid, ppv);
 660     }
 661
 662     FIXME("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
 663     return E_NOINTERFACE;
 664 }
 665
 666 static const IServiceProviderVtbl ASServiceProviderVtbl = {
 667     ASServiceProvider_QueryInterface,
 668     ASServiceProvider_AddRef,
 669     ASServiceProvider_Release,
 670     ASServiceProvider_QueryService
 671 };
 672
 673 static ScriptHost *create_script_host(HTMLInnerWindow *window, const GUID *guid)
 674 {
 675     ScriptHost *ret;
 676     HRESULT hres;
 677
 678     ret = heap_alloc_zero(sizeof(*ret));
 679     if(!ret)
 680         return NULL;
 681
 682     ret->IActiveScriptSite_iface.lpVtbl = &ActiveScriptSiteVtbl;
 683     ret->IActiveScriptSiteInterruptPoll_iface.lpVtbl = &ActiveScriptSiteInterruptPollVtbl;
 684     ret->IActiveScriptSiteWindow_iface.lpVtbl = &ActiveScriptSiteWindowVtbl;
 685     ret->IActiveScriptSiteUIControl_iface.lpVtbl = &ActiveScriptSiteUIControlVtbl;
 686     ret->IActiveScriptSiteDebug_iface.lpVtbl = &ActiveScriptSiteDebugVtbl;
 687     ret->IServiceProvider_iface.lpVtbl = &ASServiceProviderVtbl;
 688     ret->ref = 1;
 689     ret->window = window;
 690     ret->script_state = SCRIPTSTATE_UNINITIALIZED;
 691
 692     ret->guid = *guid;
 693     list_add_tail(&window->script_hosts, &ret->entry);
 694
 695     hres = CoCreateInstance(&ret->guid, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 696             &IID_IActiveScript, (void**)&ret->script);
 697     if(FAILED(hres))
 698         WARN("Could not load script engine: %08x\n", hres);
 699     else if(!init_script_engine(ret))
 700         release_script_engine(ret);
 701
 702     return ret;
 703 }
 704
 705 typedef struct {
 706     task_t header;
 707     HTMLScriptElement *elem;
 708 } fire_readystatechange_task_t;
 709
 710 static void fire_readystatechange_proc(task_t *_task)
 711 {
 712     fire_readystatechange_task_t *task = (fire_readystatechange_task_t*)_task;
 713
 714     if(!task->elem->pending_readystatechange_event)
 715         return;
 716
 717     task->elem->pending_readystatechange_event = FALSE;
 718     fire_event(task->elem->element.node.doc, EVENTID_READYSTATECHANGE, FALSE, task->elem->element.node.nsnode, NULL, NULL);
 719 }
 720
 721 static void fire_readystatechange_task_destr(task_t *_task)
 722 {
 723     fire_readystatechange_task_t *task = (fire_readystatechange_task_t*)_task;
 724
 725     IHTMLScriptElement_Release(&task->elem->IHTMLScriptElement_iface);
 726 }
 727
 728 static void set_script_elem_readystate(HTMLScriptElement *script_elem, READYSTATE readystate)
 729 {
 730     script_elem->readystate = readystate;
 731
 732     if(readystate != READYSTATE_INTERACTIVE) {
 733         if(!script_elem->element.node.doc->window->parser_callback_cnt) {
 734             fire_readystatechange_task_t *task;
 735             HRESULT hres;
 736
 737             if(script_elem->pending_readystatechange_event)
 738                 return;
 739
 740             task = heap_alloc(sizeof(*task));
 741             if(!task)
 742                 return;
 743
 744             IHTMLScriptElement_AddRef(&script_elem->IHTMLScriptElement_iface);
 745             task->elem = script_elem;
 746
 747             hres = push_task(&task->header, fire_readystatechange_proc, fire_readystatechange_task_destr,
 748                     script_elem->element.node.doc->window->task_magic);
 749             if(SUCCEEDED(hres))
 750                 script_elem->pending_readystatechange_event = TRUE;
 751         }else {
 752             script_elem->pending_readystatechange_event = FALSE;
 753             fire_event(script_elem->element.node.doc, EVENTID_READYSTATECHANGE, FALSE,
 754                     script_elem->element.node.nsnode, NULL, NULL);
 755         }
 756     }
 757 }
 758
 759 static void parse_elem_text(ScriptHost *script_host, HTMLScriptElement *script_elem, LPCWSTR text)
 760 {
 761     EXCEPINFO excepinfo;
 762     VARIANT var;
 763     HRESULT hres;
 764
 765     TRACE("%s\n", debugstr_w(text));
 766
 767     set_script_elem_readystate(script_elem, READYSTATE_INTERACTIVE);
 768
 769     VariantInit(&var);
 770     memset(&excepinfo, 0, sizeof(excepinfo));
 771     TRACE(">>>\n");
 772     hres = IActiveScriptParse_ParseScriptText(script_host->parse, text, windowW, NULL, script_endW,
 773                                               0, 0, SCRIPTTEXT_ISVISIBLE|SCRIPTTEXT_HOSTMANAGESSOURCE,
 774                                               &var, &excepinfo);
 775     if(SUCCEEDED(hres))
 776         TRACE("<<<\n");
 777     else
 778         WARN("<<< %08x\n", hres);
 779
 780 }
 781
 782 typedef struct {
 783     BSCallback bsc;
 784
 785     HTMLScriptElement *script_elem;
 786     DWORD scheme;
 787
 788     DWORD size;
 789     char *buf;
 790     HRESULT hres;
 791 } ScriptBSC;
 792
 793 static inline ScriptBSC *impl_from_BSCallback(BSCallback *iface)
 794 {
 795     return CONTAINING_RECORD(iface, ScriptBSC, bsc);
 796 }
 797
 798 static void ScriptBSC_destroy(BSCallback *bsc)
 799 {
 800     ScriptBSC *This = impl_from_BSCallback(bsc);
 801
 802     if(This->script_elem) {
 803         IHTMLScriptElement_Release(&This->script_elem->IHTMLScriptElement_iface);
 804         This->script_elem = NULL;
 805     }
 806
 807     heap_free(This->buf);
 808     heap_free(This);
 809 }
 810
 811 static HRESULT ScriptBSC_init_bindinfo(BSCallback *bsc)
 812 {
 813     return S_OK;
 814 }
 815
 816 static HRESULT ScriptBSC_start_binding(BSCallback *bsc)
 817 {
 818     ScriptBSC *This = impl_from_BSCallback(bsc);
 819
 820     /* FIXME: We should find a better to decide if 'loading' state is supposed to be used by the protocol. */
 821     if(This->scheme == URL_SCHEME_HTTPS || This->scheme == URL_SCHEME_HTTP)
 822         set_script_elem_readystate(This->script_elem, READYSTATE_LOADING);
 823
 824     return S_OK;
 825 }
 826
 827 static HRESULT ScriptBSC_stop_binding(BSCallback *bsc, HRESULT result)
 828 {
 829     ScriptBSC *This = impl_from_BSCallback(bsc);
 830
 831     This->hres = result;
 832
 833     if(SUCCEEDED(result)) {
 834         if(This->script_elem->readystate == READYSTATE_LOADING)
 835             set_script_elem_readystate(This->script_elem, READYSTATE_LOADED);
 836     }else {
 837         FIXME("binding failed %08x\n", result);
 838         heap_free(This->buf);
 839         This->buf = NULL;
 840         This->size = 0;
 841     }
 842
 843     IHTMLScriptElement_Release(&This->script_elem->IHTMLScriptElement_iface);
 844     This->script_elem = NULL;
 845     return S_OK;
 846 }
 847
 848 static HRESULT ScriptBSC_read_data(BSCallback *bsc, IStream *stream)
 849 {
 850     ScriptBSC *This = impl_from_BSCallback(bsc);
 851     DWORD readed;
 852     HRESULT hres;
 853
 854     if(!This->buf) {
 855         This->buf = heap_alloc(128);
 856         if(!This->buf)
 857             return E_OUTOFMEMORY;
 858         This->size = 128;
 859     }
 860
 861     do {
 862         if(This->bsc.readed >= This->size) {
 863           void *new_buf;
 864           new_buf = heap_realloc(This->buf, This->size << 1);
 865           if(!new_buf)
 866             return E_OUTOFMEMORY;
 867             This->size <<= 1;
 868             This->buf = new_buf;
 869         }
 870
 871         hres = read_stream(&This->bsc, stream, This->buf+This->bsc.readed, This->size-This->bsc.readed, &readed);
 872     }while(hres == S_OK);
 873
 874     return S_OK;
 875 }
 876
 877 static HRESULT ScriptBSC_on_progress(BSCallback *bsc, ULONG status_code, LPCWSTR status_text)
 878 {
 879     return S_OK;
 880 }
 881
 882 static HRESULT ScriptBSC_on_response(BSCallback *bsc, DWORD response_code,
 883         LPCWSTR response_headers)
 884 {
 885     return S_OK;
 886 }
 887
 888 static HRESULT ScriptBSC_beginning_transaction(BSCallback *bsc, WCHAR **additional_headers)
 889 {
 890     return S_FALSE;
 891 }
 892
 893 static const BSCallbackVtbl ScriptBSCVtbl = {
 894     ScriptBSC_destroy,
 895     ScriptBSC_init_bindinfo,
 896     ScriptBSC_start_binding,
 897     ScriptBSC_stop_binding,
 898     ScriptBSC_read_data,
 899     ScriptBSC_on_progress,
 900     ScriptBSC_on_response,
 901     ScriptBSC_beginning_transaction
 902 };
 903
 904
 905 static HRESULT bind_script_to_text(HTMLInnerWindow *window, IUri *uri, HTMLScriptElement *script_elem, WCHAR **ret)
 906 {
 907     UINT cp = CP_UTF8;
 908     ScriptBSC *bsc;
 909     IMoniker *mon;
 910     WCHAR *text;
 911     HRESULT hres;
 912
 913     hres = CreateURLMonikerEx2(NULL, uri, &mon, URL_MK_UNIFORM);
 914     if(FAILED(hres))
 915         return hres;
 916
 917     bsc = heap_alloc_zero(sizeof(*bsc));
 918     if(!bsc) {
 919         IMoniker_Release(mon);
 920         return E_OUTOFMEMORY;
 921     }
 922
 923     init_bscallback(&bsc->bsc, &ScriptBSCVtbl, mon, 0);
 924     IMoniker_Release(mon);
 925     bsc->hres = E_FAIL;
 926
 927     hres = IUri_GetScheme(uri, &bsc->scheme);
 928     if(FAILED(hres))
 929         bsc->scheme = URL_SCHEME_UNKNOWN;
 930
 931     IHTMLScriptElement_AddRef(&script_elem->IHTMLScriptElement_iface);
 932     bsc->script_elem = script_elem;
 933
 934     hres = start_binding(window, &bsc->bsc, NULL);
 935     if(SUCCEEDED(hres))
 936         hres = bsc->hres;
 937     if(FAILED(hres)) {
 938         IBindStatusCallback_Release(&bsc->bsc.IBindStatusCallback_iface);
 939         return hres;
 940     }
 941
 942     if(!bsc->bsc.readed) {
 943         *ret = NULL;
 944         return S_OK;
 945     }
 946
 947     switch(bsc->bsc.bom) {
 948     case BOM_UTF16:
 949         if(bsc->bsc.readed % sizeof(WCHAR)) {
 950             FIXME("The buffer is not a valid utf16 string\n");
 951             hres = E_FAIL;
 952             break;
 953         }
 954
 955         text = heap_alloc(bsc->bsc.readed+sizeof(WCHAR));
 956         if(!text) {
 957             hres = E_OUTOFMEMORY;
 958             break;
 959         }
 960
 961         memcpy(text, bsc->buf, bsc->bsc.readed);
 962         text[bsc->bsc.readed/sizeof(WCHAR)] = 0;
 963         break;
 964
 965     default:
 966         /* FIXME: Try to use charset from HTTP headers first */
 967         cp = get_document_charset(window->doc);
 968         /* fall through */
 969     case BOM_UTF8: {
 970         DWORD len;
 971
 972         len = MultiByteToWideChar(cp, 0, bsc->buf, bsc->bsc.readed, NULL, 0);
 973         text = heap_alloc((len+1)*sizeof(WCHAR));
 974         if(!text) {
 975             hres = E_OUTOFMEMORY;
 976             break;
 977         }
 978
 979         MultiByteToWideChar(cp, 0, bsc->buf, bsc->bsc.readed, text, len);
 980         text[len] = 0;
 981     }
 982     }
 983
 984     IBindStatusCallback_Release(&bsc->bsc.IBindStatusCallback_iface);
 985     if(FAILED(hres))
 986         return hres;
 987
 988     *ret = text;
 989     return S_OK;
 990 }
 991
 992 static void parse_extern_script(ScriptHost *script_host, HTMLScriptElement *script_elem, LPCWSTR src)
 993 {
 994     WCHAR *text;
 995     IUri *uri;
 996     HRESULT hres;
 997
 998     static const WCHAR wine_schemaW[] = {'w','i','n','e',':'};
 999
1000     if(strlenW(src) > sizeof(wine_schemaW)/sizeof(WCHAR) && !memcmp(src, wine_schemaW, sizeof(wine_schemaW)))
1001         src += sizeof(wine_schemaW)/sizeof(WCHAR);
1002
1003     hres = create_uri(src, 0, &uri);
1004     if(FAILED(hres))
1005         return;
1006
1007     hres = bind_script_to_text(script_host->window, uri, script_elem, &text);
1008     IUri_Release(uri);
1009     if(FAILED(hres) || !text)
1010         return;
1011
1012     parse_elem_text(script_host, script_elem, text);
1013
1014     heap_free(text);
1015 }
1016
1017 static void parse_inline_script(ScriptHost *script_host, HTMLScriptElement *script_elem)
1018 {
1019     const PRUnichar *text;
1020     nsAString text_str;
1021     nsresult nsres;
1022
1023     nsAString_Init(&text_str, NULL);
1024     nsres = nsIDOMHTMLScriptElement_GetText(script_elem->nsscript, &text_str);
1025     nsAString_GetData(&text_str, &text);
1026
1027     if(NS_FAILED(nsres)) {
1028         ERR("GetText failed: %08x\n", nsres);
1029     }else if(*text) {
1030         parse_elem_text(script_host, script_elem, text);
1031     }
1032
1033     nsAString_Finish(&text_str);
1034 }
1035
1036 static void parse_script_elem(ScriptHost *script_host, HTMLScriptElement *script_elem)
1037 {
1038     nsAString src_str, event_str;
1039     const PRUnichar *src;
1040     nsresult nsres;
1041
1042     nsAString_Init(&event_str, NULL);
1043     nsres = nsIDOMHTMLScriptElement_GetEvent(script_elem->nsscript, &event_str);
1044     if(NS_SUCCEEDED(nsres)) {
1045         const PRUnichar *event;
1046
1047         nsAString_GetData(&event_str, &event);
1048         if(*event) {
1049             TRACE("deferring event %s script evaluation\n", debugstr_w(event));
1050             nsAString_Finish(&event_str);
1051             return;
1052         }
1053     }else {
1054         ERR("GetEvent failed: %08x\n", nsres);
1055     }
1056     nsAString_Finish(&event_str);
1057
1058     nsAString_Init(&src_str, NULL);
1059     nsres = nsIDOMHTMLScriptElement_GetSrc(script_elem->nsscript, &src_str);
1060     nsAString_GetData(&src_str, &src);
1061
1062     if(NS_FAILED(nsres)) {
1063         ERR("GetSrc failed: %08x\n", nsres);
1064     }else if(*src) {
1065         script_elem->parsed = TRUE;
1066         parse_extern_script(script_host, script_elem, src);
1067     }else {
1068         parse_inline_script(script_host, script_elem);
1069     }
1070
1071     nsAString_Finish(&src_str);
1072
1073     set_script_elem_readystate(script_elem, READYSTATE_COMPLETE);
1074 }
1075
1076 static GUID get_default_script_guid(HTMLInnerWindow *window)
1077 {
1078     /* If not specified, we should use very first script host that was created for the page (or JScript if none) */
1079     return list_empty(&window->script_hosts)
1080         ? CLSID_JScript
1081         : LIST_ENTRY(list_head(&window->script_hosts), ScriptHost, entry)->guid;
1082 }
1083
1084 static BOOL get_guid_from_type(LPCWSTR type, GUID *guid)
1085 {
1086     const WCHAR text_javascriptW[] =
1087         {'t','e','x','t','/','j','a','v','a','s','c','r','i','p','t',0};
1088     const WCHAR text_jscriptW[] =
1089         {'t','e','x','t','/','j','s','c','r','i','p','t',0};
1090     const WCHAR text_vbscriptW[] =
1091         {'t','e','x','t','/','v','b','s','c','r','i','p','t',0};
1092
1093     /* FIXME: Handle more types */
1094     if(!strcmpiW(type, text_javascriptW) || !strcmpiW(type, text_jscriptW)) {
1095         *guid = CLSID_JScript;
1096     }else if(!strcmpiW(type, text_vbscriptW)) {
1097         *guid = CLSID_VBScript;
1098     }else {
1099         FIXME("Unknown type %s\n", debugstr_w(type));
1100         return FALSE;
1101     }
1102
1103     return TRUE;
1104 }
1105
1106 static BOOL get_guid_from_language(LPCWSTR type, GUID *guid)
1107 {
1108     HRESULT hres;
1109
1110     hres = CLSIDFromProgID(type, guid);
1111     if(FAILED(hres))
1112         return FALSE;
1113
1114     /* FIXME: Check CATID_ActiveScriptParse */
1115
1116     return TRUE;
1117 }
1118
1119 static BOOL get_script_guid(HTMLInnerWindow *window, nsIDOMHTMLScriptElement *nsscript, GUID *guid)
1120 {
1121     nsIDOMHTMLElement *nselem;
1122     const PRUnichar *language;
1123     nsAString val_str;
1124     BOOL ret = FALSE;
1125     nsresult nsres;
1126
1127     static const PRUnichar languageW[] = {'l','a','n','g','u','a','g','e',0};
1128
1129     nsAString_Init(&val_str, NULL);
1130
1131     nsres = nsIDOMHTMLScriptElement_GetType(nsscript, &val_str);
1132     if(NS_SUCCEEDED(nsres)) {
1133         const PRUnichar *type;
1134
1135         nsAString_GetData(&val_str, &type);
1136         if(*type) {
1137             ret = get_guid_from_type(type, guid);
1138             nsAString_Finish(&val_str);
1139             return ret;
1140         }
1141     }else {
1142         ERR("GetType failed: %08x\n", nsres);
1143     }
1144
1145     nsres = nsIDOMHTMLScriptElement_QueryInterface(nsscript, &IID_nsIDOMHTMLElement, (void**)&nselem);
1146     assert(nsres == NS_OK);
1147
1148     nsres = get_elem_attr_value(nselem, languageW, &val_str, &language);
1149     nsIDOMHTMLElement_Release(nselem);
1150     if(NS_SUCCEEDED(nsres)) {
1151         if(*language) {
1152             ret = get_guid_from_language(language, guid);
1153         }else {
1154             *guid = get_default_script_guid(window);
1155             ret = TRUE;
1156         }
1157         nsAString_Finish(&val_str);
1158     }
1159
1160     return ret;
1161 }
1162
1163 static ScriptHost *get_script_host(HTMLInnerWindow *window, const GUID *guid)
1164 {
1165     ScriptHost *iter;
1166
1167     LIST_FOR_EACH_ENTRY(iter, &window->script_hosts, ScriptHost, entry) {
1168         if(IsEqualGUID(guid, &iter->guid))
1169             return iter;
1170     }
1171
1172     return create_script_host(window, guid);
1173 }
1174
1175 static ScriptHost *get_elem_script_host(HTMLInnerWindow *window, HTMLScriptElement *script_elem)
1176 {
1177     GUID guid;
1178
1179     if(!get_script_guid(window, script_elem->nsscript, &guid)) {
1180         WARN("Could not find script GUID\n");
1181         return NULL;
1182     }
1183
1184     if(IsEqualGUID(&CLSID_JScript, &guid)
1185        && (!window->base.outer_window || window->base.outer_window->scriptmode != SCRIPTMODE_ACTIVESCRIPT)) {
1186         TRACE("Ignoring JScript\n");
1187         return NULL;
1188     }
1189
1190     return get_script_host(window, &guid);
1191 }
1192
1193 void doc_insert_script(HTMLInnerWindow *window, HTMLScriptElement *script_elem)
1194 {
1195     ScriptHost *script_host;
1196
1197     script_host = get_elem_script_host(window, script_elem);
1198     if(!script_host)
1199         return;
1200
1201     if(script_host->parse)
1202         parse_script_elem(script_host, script_elem);
1203 }
1204
1205 IDispatch *script_parse_event(HTMLInnerWindow *window, LPCWSTR text)
1206 {
1207     ScriptHost *script_host;
1208     GUID guid;
1209     const WCHAR *ptr;
1210     IDispatch *disp;
1211     HRESULT hres;
1212
1213     static const WCHAR delimiterW[] = {'\"',0};
1214
1215     TRACE("%s\n", debugstr_w(text));
1216
1217     for(ptr = text; isalnumW(*ptr); ptr++);
1218     if(*ptr == ':') {
1219         LPWSTR language;
1220         BOOL b;
1221
1222         language = heap_alloc((ptr-text+1)*sizeof(WCHAR));
1223         if(!language)
1224             return NULL;
1225
1226         memcpy(language, text, (ptr-text)*sizeof(WCHAR));
1227         language[ptr-text] = 0;
1228
1229         b = get_guid_from_language(language, &guid);
1230
1231         heap_free(language);
1232
1233         if(!b) {
1234             WARN("Could not find language\n");
1235             return NULL;
1236         }
1237
1238         ptr++;
1239     }else {
1240         ptr = text;
1241         guid = get_default_script_guid(window);
1242     }
1243
1244     if(IsEqualGUID(&CLSID_JScript, &guid)
1245        && (!window->base.outer_window || window->base.outer_window->scriptmode != SCRIPTMODE_ACTIVESCRIPT)) {
1246         TRACE("Ignoring JScript\n");
1247         return NULL;
1248     }
1249
1250     script_host = get_script_host(window, &guid);
1251     if(!script_host || !script_host->parse_proc)
1252         return NULL;
1253
1254     hres = IActiveScriptParseProcedure2_ParseProcedureText(script_host->parse_proc, ptr, NULL, emptyW,
1255             NULL, NULL, delimiterW, 0 /* FIXME */, 0,
1256             SCRIPTPROC_HOSTMANAGESSOURCE|SCRIPTPROC_IMPLICIT_THIS|SCRIPTPROC_IMPLICIT_PARENTS, &disp);
1257     if(FAILED(hres)) {
1258         WARN("ParseProcedureText failed: %08x\n", hres);
1259         return NULL;
1260     }
1261
1262     TRACE("ret %p\n", disp);
1263     return disp;
1264 }
1265
1266 HRESULT exec_script(HTMLInnerWindow *window, const WCHAR *code, const WCHAR *lang, VARIANT *ret)
1267 {
1268     ScriptHost *script_host;
1269     EXCEPINFO ei;
1270     GUID guid;
1271     HRESULT hres;
1272
1273     static const WCHAR delimW[] = {'"',0};
1274
1275     if(!get_guid_from_language(lang, &guid)) {
1276         WARN("Could not find script GUID\n");
1277         return CO_E_CLASSSTRING;
1278     }
1279
1280     script_host = get_script_host(window, &guid);
1281     if(!script_host) {
1282         FIXME("No script host\n");
1283         return E_FAIL;
1284     }
1285
1286     if(!script_host->parse) {
1287         FIXME("script_host->parse == NULL\n");
1288         return E_FAIL;
1289     }
1290
1291     memset(&ei, 0, sizeof(ei));
1292     TRACE(">>>\n");
1293     hres = IActiveScriptParse_ParseScriptText(script_host->parse, code, NULL, NULL, delimW, 0, 0, SCRIPTTEXT_ISVISIBLE, ret, &ei);
1294     if(SUCCEEDED(hres))
1295         TRACE("<<<\n");
1296     else
1297         WARN("<<< %08x\n", hres);
1298
1299     return hres;
1300 }
1301
1302 IDispatch *get_script_disp(ScriptHost *script_host)
1303 {
1304     IDispatch *disp;
1305     HRESULT hres;
1306
1307     if(!script_host->script)
1308         return NULL;
1309
1310     hres = IActiveScript_GetScriptDispatch(script_host->script, windowW, &disp);
1311     if(FAILED(hres))
1312         return NULL;
1313
1314     return disp;
1315 }
1316
1317 static EventTarget *find_event_target(HTMLDocumentNode *doc, HTMLScriptElement *script_elem)
1318 {
1319     EventTarget *event_target = NULL;
1320     const PRUnichar *target_id;
1321     nsAString target_id_str;
1322     nsresult nsres;
1323     HRESULT hres;
1324
1325     nsAString_Init(&target_id_str, NULL);
1326     nsres = nsIDOMHTMLScriptElement_GetHtmlFor(script_elem->nsscript, &target_id_str);
1327     if(NS_FAILED(nsres)) {
1328         ERR("GetScriptFor failed: %08x\n", nsres);
1329         nsAString_Finish(&target_id_str);
1330         return NULL;
1331     }
1332
1333     nsAString_GetData(&target_id_str, &target_id);
1334     if(!*target_id) {
1335         FIXME("Empty for attribute\n");
1336     }else if(!strcmpW(target_id, documentW)) {
1337         event_target = &doc->node.event_target;
1338         htmldoc_addref(&doc->basedoc);
1339     }else if(!strcmpW(target_id, windowW)) {
1340         if(doc->window) {
1341             event_target = &doc->window->event_target;
1342             IDispatchEx_AddRef(&event_target->dispex.IDispatchEx_iface);
1343         }
1344     }else {
1345         HTMLElement *target_elem;
1346
1347         hres = get_doc_elem_by_id(doc, target_id, &target_elem);
1348         if(SUCCEEDED(hres) && target_elem) {
1349             event_target = &target_elem->node.event_target;
1350         }
1351     }
1352
1353     nsAString_Finish(&target_id_str);
1354     return event_target;
1355 }
1356
1357 static BOOL parse_event_str(WCHAR *event, const WCHAR **args)
1358 {
1359     WCHAR *ptr;
1360
1361     TRACE("%s\n", debugstr_w(event));
1362
1363     for(ptr = event; isalnumW(*ptr); ptr++);
1364     if(!*ptr) {
1365         *args = NULL;
1366         return TRUE;
1367     }
1368
1369     if(*ptr != '(')
1370         return FALSE;
1371
1372     *ptr++ = 0;
1373     *args = ptr;
1374     while(isalnumW(*ptr) || isspaceW(*ptr) || *ptr == ',')
1375         ptr++;
1376
1377     if(*ptr != ')')
1378         return FALSE;
1379
1380     *ptr++ = 0;
1381     return !*ptr;
1382 }
1383
1384 static IDispatch *parse_event_elem(HTMLDocumentNode *doc, HTMLScriptElement *script_elem, WCHAR **ret_event)
1385 {
1386     ScriptHost *script_host;
1387     WCHAR *event = NULL;
1388     const WCHAR *args;
1389     nsAString nsstr;
1390     IDispatch *disp;
1391     nsresult nsres;
1392     HRESULT hres;
1393
1394     if(script_elem->parsed)
1395         return NULL;
1396
1397     script_host = get_elem_script_host(doc->window, script_elem);
1398     if(!script_host || !script_host->parse_proc)
1399         return NULL;
1400
1401     nsAString_Init(&nsstr, NULL);
1402     nsres = nsIDOMHTMLScriptElement_GetEvent(script_elem->nsscript, &nsstr);
1403     if(NS_SUCCEEDED(nsres)) {
1404         const PRUnichar *event_val;
1405
1406         nsAString_GetData(&nsstr, &event_val);
1407         event = heap_strdupW(event_val);
1408     }
1409     nsAString_Finish(&nsstr);
1410     if(!event)
1411         return NULL;
1412
1413     if(!parse_event_str(event, &args)) {
1414         WARN("parsing %s failed\n", debugstr_w(event));
1415         heap_free(event);
1416         return NULL;
1417     }
1418
1419     nsAString_Init(&nsstr, NULL);
1420     nsres = nsIDOMHTMLScriptElement_GetText(script_elem->nsscript, &nsstr);
1421     if(NS_SUCCEEDED(nsres)) {
1422         const PRUnichar *text;
1423
1424         nsAString_GetData(&nsstr, &text);
1425         hres = IActiveScriptParseProcedure2_ParseProcedureText(script_host->parse_proc, text, args,
1426                 emptyW, NULL, NULL, script_endW, 0, 0,
1427                 SCRIPTPROC_HOSTMANAGESSOURCE|SCRIPTPROC_IMPLICIT_THIS|SCRIPTPROC_IMPLICIT_PARENTS, &disp);
1428         if(FAILED(hres))
1429             disp = NULL;
1430     }else {
1431         ERR("GetText failed: %08x\n", nsres);
1432         disp = NULL;
1433     }
1434     nsAString_Finish(&nsstr);
1435     if(!disp) {
1436         heap_free(event);
1437         return NULL;
1438     }
1439
1440     *ret_event = event;
1441     return disp;
1442 }
1443
1444 void bind_event_scripts(HTMLDocumentNode *doc)
1445 {
1446     HTMLPluginContainer *plugin_container;
1447     nsIDOMHTMLScriptElement *nsscript;
1448     HTMLScriptElement *script_elem;
1449     EventTarget *event_target;
1450     nsIDOMNodeList *node_list;
1451     nsIDOMNode *script_node;
1452     nsAString selector_str;
1453     IDispatch *event_disp;
1454     UINT32 length, i;
1455     WCHAR *event;
1456     nsresult nsres;
1457     HRESULT hres;
1458
1459     static const PRUnichar selectorW[] = {'s','c','r','i','p','t','[','e','v','e','n','t',']',0};
1460
1461     TRACE("%p\n", doc);
1462
1463     if(!doc->nsdoc)
1464         return;
1465
1466     nsAString_InitDepend(&selector_str, selectorW);
1467     nsres = nsIDOMHTMLDocument_QuerySelectorAll(doc->nsdoc, &selector_str, &node_list);
1468     nsAString_Finish(&selector_str);
1469     if(NS_FAILED(nsres)) {
1470         ERR("QuerySelectorAll failed: %08x\n", nsres);
1471         return;
1472     }
1473
1474     if(!node_list)
1475         return;
1476
1477     nsres = nsIDOMNodeList_GetLength(node_list, &length);
1478     assert(nsres == NS_OK);
1479
1480     for(i=0; i < length; i++) {
1481         nsres = nsIDOMNodeList_Item(node_list, i, &script_node);
1482         if(NS_FAILED(nsres) || !script_node) {
1483             ERR("Item(%d) failed: %08x\n", i, nsres);
1484             continue;
1485         }
1486
1487         nsres = nsIDOMNode_QueryInterface(script_node, &IID_nsIDOMHTMLScriptElement, (void**)&nsscript);
1488         assert(nsres == NS_OK);
1489         nsIDOMNode_Release(script_node);
1490
1491         hres = script_elem_from_nsscript(doc, nsscript, &script_elem);
1492         if(FAILED(hres))
1493             continue;
1494
1495         event_disp = parse_event_elem(doc, script_elem, &event);
1496         if(event_disp) {
1497             event_target = find_event_target(doc, script_elem);
1498             if(event_target) {
1499                 hres = IDispatchEx_QueryInterface(&event_target->dispex.IDispatchEx_iface, &IID_HTMLPluginContainer,
1500                         (void**)&plugin_container);
1501                 if(SUCCEEDED(hres))
1502                     bind_activex_event(doc, plugin_container, event, event_disp);
1503                 else
1504                     bind_target_event(doc, event_target, event, event_disp);
1505
1506                 IDispatchEx_Release(&event_target->dispex.IDispatchEx_iface);
1507                 if(plugin_container)
1508                     node_release(&plugin_container->element.node);
1509             }
1510
1511             heap_free(event);
1512             IDispatch_Release(event_disp);
1513         }
1514
1515         IHTMLScriptElement_Release(&script_elem->IHTMLScriptElement_iface);
1516     }
1517
1518     nsIDOMNodeList_Release(node_list);
1519 }
1520
1521 BOOL find_global_prop(HTMLInnerWindow *window, BSTR name, DWORD flags, ScriptHost **ret_host, DISPID *ret_id)
1522 {
1523     IDispatchEx *dispex;
1524     IDispatch *disp;
1525     ScriptHost *iter;
1526     HRESULT hres;
1527
1528     LIST_FOR_EACH_ENTRY(iter, &window->script_hosts, ScriptHost, entry) {
1529         disp = get_script_disp(iter);
1530         if(!disp)
1531             continue;
1532
1533         hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
1534         if(SUCCEEDED(hres)) {
1535             hres = IDispatchEx_GetDispID(dispex, name, flags & (~fdexNameEnsure), ret_id);
1536             IDispatchEx_Release(dispex);
1537         }else {
1538             FIXME("No IDispatchEx\n");
1539             hres = E_NOTIMPL;
1540         }
1541
1542         IDispatch_Release(disp);
1543         if(SUCCEEDED(hres)) {
1544             *ret_host = iter;
1545             return TRUE;
1546         }
1547     }
1548
1549     return FALSE;
1550 }
1551
1552 static BOOL is_jscript_available(void)
1553 {
1554     static BOOL available, checked;
1555
1556     if(!checked) {
1557         IUnknown *unk;
1558         HRESULT hres = CoGetClassObject(&CLSID_JScript, CLSCTX_INPROC_SERVER, NULL, &IID_IUnknown, (void**)&unk);
1559
1560         if(SUCCEEDED(hres)) {
1561             available = TRUE;
1562             IUnknown_Release(unk);
1563         }else {
1564             available = FALSE;
1565         }
1566         checked = TRUE;
1567     }
1568
1569     return available;
1570 }
1571
1572 void set_script_mode(HTMLOuterWindow *window, SCRIPTMODE mode)
1573 {
1574     nsIWebBrowserSetup *setup;
1575     nsresult nsres;
1576
1577     if(mode == SCRIPTMODE_ACTIVESCRIPT && !is_jscript_available()) {
1578         TRACE("jscript.dll not available\n");
1579         window->scriptmode = SCRIPTMODE_GECKO;
1580         return;
1581     }
1582
1583     window->scriptmode = mode;
1584
1585     if(!window->doc_obj->nscontainer || !window->doc_obj->nscontainer->webbrowser)
1586         return;
1587
1588     nsres = nsIWebBrowser_QueryInterface(window->doc_obj->nscontainer->webbrowser,
1589             &IID_nsIWebBrowserSetup, (void**)&setup);
1590     if(NS_SUCCEEDED(nsres)) {
1591         nsres = nsIWebBrowserSetup_SetProperty(setup, SETUP_ALLOW_JAVASCRIPT,
1592                 window->scriptmode == SCRIPTMODE_GECKO);
1593
1594         if(NS_SUCCEEDED(nsres))
1595             nsres = nsIWebBrowserSetup_SetProperty(setup, SETUP_DISABLE_NOSCRIPT, TRUE);
1596
1597         nsIWebBrowserSetup_Release(setup);
1598     }
1599
1600     if(NS_FAILED(nsres))
1601         ERR("JavaScript setup failed: %08x\n", nsres);
1602 }
1603
1604 void release_script_hosts(HTMLInnerWindow *window)
1605 {
1606     script_queue_entry_t *queue_iter;
1607     ScriptHost *iter;
1608
1609     while(!list_empty(&window->script_queue)) {
1610         queue_iter = LIST_ENTRY(list_head(&window->script_queue), script_queue_entry_t, entry);
1611
1612         list_remove(&queue_iter->entry);
1613         IHTMLScriptElement_Release(&queue_iter->script->IHTMLScriptElement_iface);
1614         heap_free(queue_iter);
1615     }
1616
1617     while(!list_empty(&window->script_hosts)) {
1618         iter = LIST_ENTRY(list_head(&window->script_hosts), ScriptHost, entry);
1619
1620         release_script_engine(iter);
1621         list_remove(&iter->entry);
1622         iter->window = NULL;
1623         IActiveScriptSite_Release(&iter->IActiveScriptSite_iface);
1624     }
1625 }