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