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