Something went wrong. Try again.
Reactos
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605/* * Copyright 2008 Jacek Caban for CodeWeavers * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA */
#include "mshtml_private.h"
#include <activdbg.h>
#ifdef _WIN64
#define CTXARG_T DWORDLONG#define IActiveScriptSiteDebugVtbl IActiveScriptSiteDebug64Vtbl
#define IActiveScriptParse_Release IActiveScriptParse64_Release#define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew#define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText#define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_64_Release#define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_64_ParseProcedureText
#else
#define CTXARG_T DWORD#define IActiveScriptSiteDebugVtbl IActiveScriptSiteDebug32Vtbl
#define IActiveScriptParse_Release IActiveScriptParse32_Release#define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew#define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText#define IActiveScriptParseProcedure2_Release IActiveScriptParseProcedure2_32_Release#define IActiveScriptParseProcedure2_ParseProcedureText IActiveScriptParseProcedure2_32_ParseProcedureText
#endif
static const WCHAR documentW[] = {'d','o','c','u','m','e','n','t',0};static const WCHAR windowW[] = {'w','i','n','d','o','w',0};static const WCHAR script_endW[] = {'<','/','S','C','R','I','P','T','>',0};static const WCHAR emptyW[] = {0};
struct ScriptHost { IActiveScriptSite IActiveScriptSite_iface; IActiveScriptSiteInterruptPoll IActiveScriptSiteInterruptPoll_iface; IActiveScriptSiteWindow IActiveScriptSiteWindow_iface; IActiveScriptSiteUIControl IActiveScriptSiteUIControl_iface; IActiveScriptSiteDebug IActiveScriptSiteDebug_iface; IServiceProvider IServiceProvider_iface;
LONG ref;
IActiveScript *script; IActiveScriptParse *parse; IActiveScriptParseProcedure2 *parse_proc;
SCRIPTSTATE script_state;
HTMLInnerWindow *window;
GUID guid; struct list entry;};
static void set_script_prop(ScriptHost *script_host, DWORD property, VARIANT *val){ IActiveScriptProperty *script_prop; HRESULT hres;
hres = IActiveScript_QueryInterface(script_host->script, &IID_IActiveScriptProperty, (void**)&script_prop); if(FAILED(hres)) { WARN("Could not get IActiveScriptProperty iface: %08x\n", hres); return; }
hres = IActiveScriptProperty_SetProperty(script_prop, property, NULL, val); IActiveScriptProperty_Release(script_prop); if(FAILED(hres)) WARN("SetProperty(%x) failed: %08x\n", property, hres);}
static BOOL init_script_engine(ScriptHost *script_host){ IObjectSafety *safety; SCRIPTSTATE state; DWORD supported_opts=0, enabled_opts=0; VARIANT var; HRESULT hres;
hres = IActiveScript_QueryInterface(script_host->script, &IID_IActiveScriptParse, (void**)&script_host->parse); if(FAILED(hres)) { WARN("Could not get IActiveScriptHost: %08x\n", hres); return FALSE; }
hres = IActiveScript_QueryInterface(script_host->script, &IID_IObjectSafety, (void**)&safety); if(FAILED(hres)) { FIXME("Could not get IObjectSafety: %08x\n", hres); return FALSE; }
hres = IObjectSafety_GetInterfaceSafetyOptions(safety, &IID_IActiveScriptParse, &supported_opts, &enabled_opts); if(FAILED(hres)) { FIXME("GetInterfaceSafetyOptions failed: %08x\n", hres); }else if(!(supported_opts & INTERFACE_USES_DISPEX)) { FIXME("INTERFACE_USES_DISPEX is not supported\n"); }else { hres = IObjectSafety_SetInterfaceSafetyOptions(safety, &IID_IActiveScriptParse, INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER, INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER); if(FAILED(hres)) FIXME("SetInterfaceSafetyOptions failed: %08x\n", hres); }
IObjectSafety_Release(safety); if(FAILED(hres)) return FALSE;
V_VT(&var) = VT_I4; V_I4(&var) = 1; set_script_prop(script_host, SCRIPTPROP_INVOKEVERSIONING, &var);
V_VT(&var) = VT_BOOL; V_BOOL(&var) = VARIANT_TRUE; set_script_prop(script_host, SCRIPTPROP_HACK_TRIDENTEVENTSINK, &var);
hres = IActiveScriptParse_InitNew(script_host->parse); if(FAILED(hres)) { WARN("InitNew failed: %08x\n", hres); return FALSE; }
hres = IActiveScript_SetScriptSite(script_host->script, &script_host->IActiveScriptSite_iface); if(FAILED(hres)) { WARN("SetScriptSite failed: %08x\n", hres); IActiveScript_Close(script_host->script); return FALSE; }
hres = IActiveScript_GetScriptState(script_host->script, &state); if(FAILED(hres)) WARN("GetScriptState failed: %08x\n", hres); else if(state != SCRIPTSTATE_INITIALIZED) FIXME("state = %x\n", state);
hres = IActiveScript_SetScriptState(script_host->script, SCRIPTSTATE_STARTED); if(FAILED(hres)) { WARN("Starting script failed: %08x\n", hres); return FALSE; }
hres = IActiveScript_AddNamedItem(script_host->script, windowW, SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS); if(SUCCEEDED(hres)) { V_VT(&var) = VT_BOOL; V_BOOL(&var) = VARIANT_TRUE; set_script_prop(script_host, SCRIPTPROP_ABBREVIATE_GLOBALNAME_RESOLUTION, &var); }else { WARN("AddNamedItem failed: %08x\n", hres); }
hres = IActiveScript_QueryInterface(script_host->script, &IID_IActiveScriptParseProcedure2, (void**)&script_host->parse_proc); if(FAILED(hres)) { /* FIXME: QI for IActiveScriptParseProcedure */ WARN("Could not get IActiveScriptParseProcedure iface: %08x\n", hres); }
return TRUE;}
static void release_script_engine(ScriptHost *This){ if(!This->script) return;
switch(This->script_state) { case SCRIPTSTATE_CONNECTED: IActiveScript_SetScriptState(This->script, SCRIPTSTATE_DISCONNECTED);
case SCRIPTSTATE_STARTED: case SCRIPTSTATE_DISCONNECTED: case SCRIPTSTATE_INITIALIZED: IActiveScript_Close(This->script);
default: if(This->parse_proc) { IActiveScriptParseProcedure2_Release(This->parse_proc); This->parse_proc = NULL; }
if(This->parse) { IActiveScriptParse_Release(This->parse); This->parse = NULL; } }
IActiveScript_Release(This->script); This->script = NULL; This->script_state = SCRIPTSTATE_UNINITIALIZED;}
void connect_scripts(HTMLInnerWindow *window){ ScriptHost *iter;
LIST_FOR_EACH_ENTRY(iter, &window->script_hosts, ScriptHost, entry) { if(iter->script_state == SCRIPTSTATE_STARTED) IActiveScript_SetScriptState(iter->script, SCRIPTSTATE_CONNECTED); }}
static inline ScriptHost *impl_from_IActiveScriptSite(IActiveScriptSite *iface){ return CONTAINING_RECORD(iface, ScriptHost, IActiveScriptSite_iface);}
static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv){ ScriptHost *This = impl_from_IActiveScriptSite(iface);
*ppv = NULL;
if(IsEqualGUID(&IID_IUnknown, riid)) { TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv); *ppv = &This->IActiveScriptSite_iface; }else if(IsEqualGUID(&IID_IActiveScriptSite, riid)) { TRACE("(%p)->(IID_IActiveScriptSite %p)\n", This, ppv); *ppv = &This->IActiveScriptSite_iface; }else if(IsEqualGUID(&IID_IActiveScriptSiteInterruptPoll, riid)) { TRACE("(%p)->(IID_IActiveScriptSiteInterruprtPoll %p)\n", This, ppv); *ppv = &This->IActiveScriptSiteInterruptPoll_iface; }else if(IsEqualGUID(&IID_IActiveScriptSiteWindow, riid)) { TRACE("(%p)->(IID_IActiveScriptSiteWindow %p)\n", This, ppv); *ppv = &This->IActiveScriptSiteWindow_iface; }else if(IsEqualGUID(&IID_IActiveScriptSiteUIControl, riid)) { TRACE("(%p)->(IID_IActiveScriptSiteUIControl %p)\n", This, ppv); *ppv = &This->IActiveScriptSiteUIControl_iface; }else if(IsEqualGUID(&IID_IActiveScriptSiteDebug, riid)) { TRACE("(%p)->(IID_IActiveScriptSiteDebug %p)\n", This, ppv); *ppv = &This->IActiveScriptSiteDebug_iface; }else if(IsEqualGUID(&IID_IServiceProvider, riid)) { TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv); *ppv = &This->IServiceProvider_iface; }else if(IsEqualGUID(&IID_ICanHandleException, riid)) { TRACE("(%p)->(IID_ICanHandleException not supported %p)\n", This, ppv); return E_NOINTERFACE; }else { FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv); return E_NOINTERFACE; }
IUnknown_AddRef((IUnknown*)*ppv); return S_OK;}
static ULONG WINAPI ActiveScriptSite_AddRef(IActiveScriptSite *iface){ ScriptHost *This = impl_from_IActiveScriptSite(iface); LONG ref = InterlockedIncrement(&This->ref);
TRACE("(%p) ref=%d\n", This, ref);
return ref;}
static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface){ ScriptHost *This = impl_from_IActiveScriptSite(iface); LONG ref = InterlockedDecrement(&This->ref);
TRACE("(%p) ref=%d\n", This, ref);
if(!ref) { release_script_engine(This); if(This->window) list_remove(&This->entry); heap_free(This); }
return ref;}
static HRESULT WINAPI ActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid){ ScriptHost *This = impl_from_IActiveScriptSite(iface);
TRACE("(%p)->(%p)\n", This, plcid);
*plcid = GetUserDefaultLCID(); return S_OK;}
static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti){ ScriptHost *This = impl_from_IActiveScriptSite(iface);
TRACE("(%p)->(%s %x %p %p)\n", This, debugstr_w(pstrName), dwReturnMask, ppiunkItem, ppti);
if(dwReturnMask != SCRIPTINFO_IUNKNOWN) { FIXME("Unsupported mask %x\n", dwReturnMask); return E_NOTIMPL; }
*ppiunkItem = NULL;
if(strcmpW(pstrName, windowW)) return DISP_E_MEMBERNOTFOUND;
if(!This->window) return E_FAIL;
/* FIXME: Return proxy object */ *ppiunkItem = (IUnknown*)&This->window->base.IHTMLWindow2_iface; IUnknown_AddRef(*ppiunkItem);
return S_OK;}
static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion){ ScriptHost *This = impl_from_IActiveScriptSite(iface); FIXME("(%p)->(%p)\n", This, pbstrVersion); return E_NOTIMPL;}
static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface, const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo){ ScriptHost *This = impl_from_IActiveScriptSite(iface); FIXME("(%p)->(%p %p)\n", This, pvarResult, pexcepinfo); return E_NOTIMPL;}
static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState){ ScriptHost *This = impl_from_IActiveScriptSite(iface);
TRACE("(%p)->(%x)\n", This, ssScriptState);
This->script_state = ssScriptState; return S_OK;}
static HRESULT WINAPI ActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror){ ScriptHost *This = impl_from_IActiveScriptSite(iface); FIXME("(%p)->(%p)\n", This, pscripterror); return E_NOTIMPL;}
static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface){ ScriptHost *This = impl_from_IActiveScriptSite(iface);
TRACE("(%p)->()\n", This);
return S_OK;}
static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface){ ScriptHost *This = impl_from_IActiveScriptSite(iface);
TRACE("(%p)->()\n", This);
return S_OK;}
static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = { ActiveScriptSite_QueryInterface, ActiveScriptSite_AddRef, ActiveScriptSite_Release, ActiveScriptSite_GetLCID, ActiveScriptSite_GetItemInfo, ActiveScriptSite_GetDocVersionString, ActiveScriptSite_OnScriptTerminate, ActiveScriptSite_OnStateChange, ActiveScriptSite_OnScriptError, ActiveScriptSite_OnEnterScript, ActiveScriptSite_OnLeaveScript};
static inline ScriptHost *impl_from_IActiveScriptSiteInterruptPoll(IActiveScriptSiteInterruptPoll *iface){ return CONTAINING_RECORD(iface, ScriptHost, IActiveScriptSiteInterruptPoll_iface);}
static HRESULT WINAPI ActiveScriptSiteInterruptPoll_QueryInterface(IActiveScriptSiteInterruptPoll *iface, REFIID riid, void **ppv){ ScriptHost *This = impl_from_IActiveScriptSiteInterruptPoll(iface); return IActiveScriptSite_QueryInterface(&This->IActiveScriptSite_iface, riid, ppv);}
static ULONG WINAPI ActiveScriptSiteInterruptPoll_AddRef(IActiveScriptSiteInterruptPoll *iface){ ScriptHost *This = impl_from_IActiveScriptSiteInterruptPoll(iface); return IActiveScriptSite_AddRef(&This->IActiveScriptSite_iface);}
static ULONG WINAPI ActiveScriptSiteInterruptPoll_Release(IActiveScriptSiteInterruptPoll *iface){ ScriptHost *This = impl_from_IActiveScriptSiteInterruptPoll(iface); return IActiveScriptSite_Release(&This->IActiveScriptSite_iface);}
static HRESULT WINAPI ActiveScriptSiteInterruptPoll_QueryContinue(IActiveScriptSiteInterruptPoll *iface){ ScriptHost *This = impl_from_IActiveScriptSiteInterruptPoll(iface);
TRACE("(%p)\n", This);
return S_OK;}
static const IActiveScriptSiteInterruptPollVtbl ActiveScriptSiteInterruptPollVtbl = { ActiveScriptSiteInterruptPoll_QueryInterface, ActiveScriptSiteInterruptPoll_AddRef, ActiveScriptSiteInterruptPoll_Release, ActiveScriptSiteInterruptPoll_QueryContinue};
static inline ScriptHost *impl_from_IActiveScriptSiteWindow(IActiveScriptSiteWindow *iface){ return CONTAINING_RECORD(iface, ScriptHost, IActiveScriptSiteWindow_iface);}
static HRESULT WINAPI ActiveScriptSiteWindow_QueryInterface(IActiveScriptSiteWindow *iface, REFIID riid, void **ppv){ ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface); return IActiveScriptSite_QueryInterface(&This->IActiveScriptSite_iface, riid, ppv);}
static ULONG WINAPI ActiveScriptSiteWindow_AddRef(IActiveScriptSiteWindow *iface){ ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface); return IActiveScriptSite_AddRef(&This->IActiveScriptSite_iface);}
static ULONG WINAPI ActiveScriptSiteWindow_Release(IActiveScriptSiteWindow *iface){ ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface); return IActiveScriptSite_Release(&This->IActiveScriptSite_iface);}
static HRESULT WINAPI ActiveScriptSiteWindow_GetWindow(IActiveScriptSiteWindow *iface, HWND *phwnd){ ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface);
TRACE("(%p)->(%p)\n", This, phwnd);
if(!This->window || !This->window->base.outer_window || !This->window->base.outer_window->doc_obj) return E_UNEXPECTED;
*phwnd = This->window->base.outer_window->doc_obj->hwnd; return S_OK;}
static HRESULT WINAPI ActiveScriptSiteWindow_EnableModeless(IActiveScriptSiteWindow *iface, BOOL fEnable){ ScriptHost *This = impl_from_IActiveScriptSiteWindow(iface); FIXME("(%p)->(%x)\n", This, fEnable); return S_OK;}
static const IActiveScriptSiteWindowVtbl ActiveScriptSiteWindowVtbl = { ActiveScriptSiteWindow_QueryInterface, ActiveScriptSiteWindow_AddRef, ActiveScriptSiteWindow_Release, ActiveScriptSiteWindow_GetWindow, ActiveScriptSiteWindow_EnableModeless};
static inline ScriptHost *impl_from_IActiveScriptSiteUIControl(IActiveScriptSiteUIControl *iface){ return CONTAINING_RECORD(iface, ScriptHost, IActiveScriptSiteUIControl_iface);}
static HRESULT WINAPI ActiveScriptSiteUIControl_QueryInterface(IActiveScriptSiteUIControl *iface, REFIID riid, void **ppv){ ScriptHost *This = impl_from_IActiveScriptSiteUIControl(iface); return IActiveScriptSite_QueryInterface(&This->IActiveScriptSite_iface, riid, ppv);}
static ULONG WINAPI ActiveScriptSiteUIControl_AddRef(IActiveScriptSiteUIControl *iface){ ScriptHost *This = impl_from_IActiveScriptSiteUIControl(iface); return IActiveScriptSite_AddRef(&This->IActiveScriptSite_iface);}
static ULONG WINAPI ActiveScriptSiteUIControl_Release(IActiveScriptSiteUIControl *iface){ ScriptHost *This = impl_from_IActiveScriptSiteUIControl(iface); return IActiveScriptSite_Release(&This->IActiveScriptSite_iface);}
static HRESULT WINAPI ActiveScriptSiteUIControl_GetUIBehavior(IActiveScriptSiteUIControl *iface, SCRIPTUICITEM UicItem, SCRIPTUICHANDLING *pUicHandling){ ScriptHost *This = impl_from_IActiveScriptSiteUIControl(iface);
WARN("(%p)->(%d %p) semi-stub\n", This, UicItem, pUicHandling);
*pUicHandling = SCRIPTUICHANDLING_ALLOW; return S_OK;}
static const IActiveScriptSiteUIControlVtbl ActiveScriptSiteUIControlVtbl = { ActiveScriptSiteUIControl_QueryInterface, ActiveScriptSiteUIControl_AddRef, ActiveScriptSiteUIControl_Release, ActiveScriptSiteUIControl_GetUIBehavior};
static inline ScriptHost *impl_from_IActiveScriptSiteDebug(IActiveScriptSiteDebug *iface){ return CONTAINING_RECORD(iface, ScriptHost, IActiveScriptSiteDebug_iface);}
static HRESULT WINAPI ActiveScriptSiteDebug_QueryInterface(IActiveScriptSiteDebug *iface, REFIID riid, void **ppv){ ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface); return IActiveScriptSite_QueryInterface(&This->IActiveScriptSite_iface, riid, ppv);}
static ULONG WINAPI ActiveScriptSiteDebug_AddRef(IActiveScriptSiteDebug *iface){ ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface); return IActiveScriptSite_AddRef(&This->IActiveScriptSite_iface);}
static ULONG WINAPI ActiveScriptSiteDebug_Release(IActiveScriptSiteDebug *iface){ ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface); return IActiveScriptSite_Release(&This->IActiveScriptSite_iface);}
static HRESULT WINAPI ActiveScriptSiteDebug_GetDocumentContextFromPosition(IActiveScriptSiteDebug *iface, CTXARG_T dwSourceContext, ULONG uCharacterOffset, ULONG uNumChars, IDebugDocumentContext **ppsc){ ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface); FIXME("(%p)->(%s %u %u %p)\n", This, wine_dbgstr_longlong(dwSourceContext), uCharacterOffset, uNumChars, ppsc); return E_NOTIMPL;}
static HRESULT WINAPI ActiveScriptSiteDebug_GetApplication(IActiveScriptSiteDebug *iface, IDebugApplication **ppda){ ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface); FIXME("(%p)->(%p)\n", This, ppda); return E_NOTIMPL;}
static HRESULT WINAPI ActiveScriptSiteDebug_GetRootApplicationNode(IActiveScriptSiteDebug *iface, IDebugApplicationNode **ppdanRoot){ ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface); FIXME("(%p)->(%p)\n", This, ppdanRoot); return E_NOTIMPL;}
static HRESULT WINAPI ActiveScriptSiteDebug_OnScriptErrorDebug(IActiveScriptSiteDebug *iface, IActiveScriptErrorDebug *pErrorDebug, BOOL *pfEnterDebugger, BOOL *pfCallOnScriptErrorWhenContinuing){ ScriptHost *This = impl_from_IActiveScriptSiteDebug(iface); FIXME("(%p)->(%p %p %p)\n", This, pErrorDebug, pfEnterDebugger, pfCallOnScriptErrorWhenContinuing); return E_NOTIMPL;}
static const IActiveScriptSiteDebugVtbl ActiveScriptSiteDebugVtbl = { ActiveScriptSiteDebug_QueryInterface, ActiveScriptSiteDebug_AddRef, ActiveScriptSiteDebug_Release, ActiveScriptSiteDebug_GetDocumentContextFromPosition, ActiveScriptSiteDebug_GetApplication, ActiveScriptSiteDebug_GetRootApplicationNode, ActiveScriptSiteDebug_OnScriptErrorDebug};
static inline ScriptHost *impl_from_IServiceProvider(IServiceProvider *iface){ return CONTAINING_RECORD(iface, ScriptHost, IServiceProvider_iface);}
static HRESULT WINAPI ASServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv){ ScriptHost *This = impl_from_IServiceProvider(iface); return IActiveScriptSite_QueryInterface(&This->IActiveScriptSite_iface, riid, ppv);}
static ULONG WINAPI ASServiceProvider_AddRef(IServiceProvider *iface){ ScriptHost *This = impl_from_IServiceProvider(iface); return IActiveScriptSite_AddRef(&This->IActiveScriptSite_iface);}
static ULONG WINAPI ASServiceProvider_Release(IServiceProvider *iface){ ScriptHost *This = impl_from_IServiceProvider(iface); return IActiveScriptSite_Release(&This->IActiveScriptSite_iface);}
static HRESULT WINAPI ASServiceProvider_QueryService(IServiceProvider *iface, REFGUID guidService, REFIID riid, void **ppv){ ScriptHost *This = impl_from_IServiceProvider(iface);
if(IsEqualGUID(&SID_SInternetHostSecurityManager, guidService)) { TRACE("(%p)->(SID_SInternetHostSecurityManager)\n", This);
if(!This->window || !This->window->doc) return E_NOINTERFACE;
return IInternetHostSecurityManager_QueryInterface(&This->window->doc->IInternetHostSecurityManager_iface, riid, ppv); }
if(IsEqualGUID(&SID_SContainerDispatch, guidService)) { TRACE("(%p)->(SID_SContainerDispatch)\n", This);
if(!This->window || !This->window->doc) return E_NOINTERFACE;
return IHTMLDocument2_QueryInterface(&This->window->doc->basedoc.IHTMLDocument2_iface, riid, ppv); }
FIXME("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv); return E_NOINTERFACE;}
static const IServiceProviderVtbl ASServiceProviderVtbl = { ASServiceProvider_QueryInterface, ASServiceProvider_AddRef, ASServiceProvider_Release, ASServiceProvider_QueryService};
static ScriptHost *create_script_host(HTMLInnerWindow *window, const GUID *guid){ ScriptHost *ret; HRESULT hres;
ret = heap_alloc_zero(sizeof(*ret)); if(!ret) return NULL;
ret->IActiveScriptSite_iface.lpVtbl = &ActiveScriptSiteVtbl; ret->IActiveScriptSiteInterruptPoll_iface.lpVtbl = &ActiveScriptSiteInterruptPollVtbl; ret->IActiveScriptSiteWindow_iface.lpVtbl = &ActiveScriptSiteWindowVtbl; ret->IActiveScriptSiteUIControl_iface.lpVtbl = &ActiveScriptSiteUIControlVtbl; ret->IActiveScriptSiteDebug_iface.lpVtbl = &ActiveScriptSiteDebugVtbl; ret->IServiceProvider_iface.lpVtbl = &ASServiceProviderVtbl; ret->ref = 1; ret->window = window; ret->script_state = SCRIPTSTATE_UNINITIALIZED;
ret->guid = *guid; list_add_tail(&window->script_hosts, &ret->entry);
hres = CoCreateInstance(&ret->guid, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER, &IID_IActiveScript, (void**)&ret->script); if(FAILED(hres)) WARN("Could not load script engine: %08x\n", hres); else if(!init_script_engine(ret)) release_script_engine(ret);
return ret;}
typedef struct { task_t header; HTMLScriptElement *elem;} fire_readystatechange_task_t;
static void fire_readystatechange_proc(task_t *_task){ fire_readystatechange_task_t *task = (fire_readystatechange_task_t*)_task;
if(!task->elem->pending_readystatechange_event) return;
task->elem->pending_readystatechange_event = FALSE; fire_event(task->elem->element.node.doc, EVENTID_READYSTATECHANGE, FALSE, task->elem->element.node.nsnode, NULL, NULL);}
static void fire_readystatechange_task_destr(task_t *_task){ fire_readystatechange_task_t *task = (fire_readystatechange_task_t*)_task;
IHTMLScriptElement_Release(&task->elem->IHTMLScriptElement_iface);}
static void set_script_elem_readystate(HTMLScriptElement *script_elem, READYSTATE readystate){ script_elem->readystate = readystate;
if(readystate != READYSTATE_INTERACTIVE) { if(!script_elem->element.node.doc->window->parser_callback_cnt) { fire_readystatechange_task_t *task; HRESULT hres;
if(script_elem->pending_readystatechange_event) return;
task = heap_alloc(sizeof(*task)); if(!task) return;
IHTMLScriptElement_AddRef(&script_elem->IHTMLScriptElement_iface); task->elem = script_elem;
hres = push_task(&task->header, fire_readystatechange_proc, fire_readystatechange_task_destr, script_elem->element.node.doc->window->task_magic); if(SUCCEEDED(hres)) script_elem->pending_readystatechange_event = TRUE; }else { script_elem->pending_readystatechange_event = FALSE; fire_event(script_elem->element.node.doc, EVENTID_READYSTATECHANGE, FALSE, script_elem->element.node.nsnode, NULL, NULL); } }}
static void parse_elem_text(ScriptHost *script_host, HTMLScriptElement *script_elem, LPCWSTR text){ EXCEPINFO excepinfo; VARIANT var; HRESULT hres;
TRACE("%s\n", debugstr_w(text));
set_script_elem_readystate(script_elem, READYSTATE_INTERACTIVE);
VariantInit(&var); memset(&excepinfo, 0, sizeof(excepinfo)); TRACE(">>>\n"); hres = IActiveScriptParse_ParseScriptText(script_host->parse, text, windowW, NULL, script_endW, 0, 0, SCRIPTTEXT_ISVISIBLE|SCRIPTTEXT_HOSTMANAGESSOURCE, &var, &excepinfo); if(SUCCEEDED(hres)) TRACE("<<<\n"); else WARN("<<< %08x\n", hres);
}
typedef struct { BSCallback bsc;
HTMLScriptElement *script_elem; DWORD scheme;
DWORD size; char *buf; HRESULT hres;} ScriptBSC;
static inline ScriptBSC *impl_from_BSCallback(BSCallback *iface){ return CONTAINING_RECORD(iface, ScriptBSC, bsc);}
static void ScriptBSC_destroy(BSCallback *bsc){ ScriptBSC *This = impl_from_BSCallback(bsc);
if(This->script_elem) { IHTMLScriptElement_Release(&This->script_elem->IHTMLScriptElement_iface); This->script_elem = NULL; }
heap_free(This->buf); heap_free(This);}
static HRESULT ScriptBSC_init_bindinfo(BSCallback *bsc){ return S_OK;}
static HRESULT ScriptBSC_start_binding(BSCallback *bsc){ ScriptBSC *This = impl_from_BSCallback(bsc);
/* FIXME: We should find a better to decide if 'loading' state is supposed to be used by the protocol. */ if(This->scheme == URL_SCHEME_HTTPS || This->scheme == URL_SCHEME_HTTP) set_script_elem_readystate(This->script_elem, READYSTATE_LOADING);
return S_OK;}
static HRESULT ScriptBSC_stop_binding(BSCallback *bsc, HRESULT result){ ScriptBSC *This = impl_from_BSCallback(bsc);
This->hres = result;
if(SUCCEEDED(result)) { if(This->script_elem->readystate == READYSTATE_LOADING) set_script_elem_readystate(This->script_elem, READYSTATE_LOADED); }else { FIXME("binding failed %08x\n", result); heap_free(This->buf); This->buf = NULL; This->size = 0; }
IHTMLScriptElement_Release(&This->script_elem->IHTMLScriptElement_iface); This->script_elem = NULL; return S_OK;}
static HRESULT ScriptBSC_read_data(BSCallback *bsc, IStream *stream){ ScriptBSC *This = impl_from_BSCallback(bsc); DWORD readed; HRESULT hres;
if(!This->buf) { This->buf = heap_alloc(128); if(!This->buf) return E_OUTOFMEMORY; This->size = 128; }
do { if(This->bsc.readed >= This->size) { void *new_buf; new_buf = heap_realloc(This->buf, This->size << 1); if(!new_buf) return E_OUTOFMEMORY; This->size <<= 1; This->buf = new_buf; }
hres = read_stream(&This->bsc, stream, This->buf+This->bsc.readed, This->size-This->bsc.readed, &readed); }while(hres == S_OK);
return S_OK;}
static HRESULT ScriptBSC_on_progress(BSCallback *bsc, ULONG status_code, LPCWSTR status_text){ return S_OK;}
static HRESULT ScriptBSC_on_response(BSCallback *bsc, DWORD response_code, LPCWSTR response_headers){ return S_OK;}
static HRESULT ScriptBSC_beginning_transaction(BSCallback *bsc, WCHAR **additional_headers){ return S_FALSE;}
static const BSCallbackVtbl ScriptBSCVtbl = { ScriptBSC_destroy, ScriptBSC_init_bindinfo, ScriptBSC_start_binding, ScriptBSC_stop_binding, ScriptBSC_read_data, ScriptBSC_on_progress, ScriptBSC_on_response, ScriptBSC_beginning_transaction};
static HRESULT bind_script_to_text(HTMLInnerWindow *window, IUri *uri, HTMLScriptElement *script_elem, WCHAR **ret){ UINT cp = CP_UTF8; ScriptBSC *bsc; IMoniker *mon; WCHAR *text; HRESULT hres;
hres = CreateURLMonikerEx2(NULL, uri, &mon, URL_MK_UNIFORM); if(FAILED(hres)) return hres;
bsc = heap_alloc_zero(sizeof(*bsc)); if(!bsc) { IMoniker_Release(mon); return E_OUTOFMEMORY; }
init_bscallback(&bsc->bsc, &ScriptBSCVtbl, mon, 0); IMoniker_Release(mon); bsc->hres = E_FAIL;
hres = IUri_GetScheme(uri, &bsc->scheme); if(FAILED(hres)) bsc->scheme = URL_SCHEME_UNKNOWN;
IHTMLScriptElement_AddRef(&script_elem->IHTMLScriptElement_iface); bsc->script_elem = script_elem;
hres = start_binding(window, &bsc->bsc, NULL); if(SUCCEEDED(hres)) hres = bsc->hres; if(FAILED(hres)) { IBindStatusCallback_Release(&bsc->bsc.IBindStatusCallback_iface); return hres; }
if(!bsc->bsc.readed) { *ret = NULL; return S_OK; }
switch(bsc->bsc.bom) { case BOM_UTF16: if(bsc->bsc.readed % sizeof(WCHAR)) { FIXME("The buffer is not a valid utf16 string\n"); hres = E_FAIL; break; }
text = heap_alloc(bsc->bsc.readed+sizeof(WCHAR)); if(!text) { hres = E_OUTOFMEMORY; break; }
memcpy(text, bsc->buf, bsc->bsc.readed); text[bsc->bsc.readed/sizeof(WCHAR)] = 0; break;
default: /* FIXME: Try to use charset from HTTP headers first */ cp = get_document_charset(window->doc); /* fall through */ case BOM_UTF8: { DWORD len;
len = MultiByteToWideChar(cp, 0, bsc->buf, bsc->bsc.readed, NULL, 0); text = heap_alloc((len+1)*sizeof(WCHAR)); if(!text) { hres = E_OUTOFMEMORY; break; }
MultiByteToWideChar(cp, 0, bsc->buf, bsc->bsc.readed, text, len); text[len] = 0; } }
IBindStatusCallback_Release(&bsc->bsc.IBindStatusCallback_iface); if(FAILED(hres)) return hres;
*ret = text; return S_OK;}
static void parse_extern_script(ScriptHost *script_host, HTMLScriptElement *script_elem, LPCWSTR src){ WCHAR *text; IUri *uri; HRESULT hres;
static const WCHAR wine_schemaW[] = {'w','i','n','e',':'};
if(strlenW(src) > sizeof(wine_schemaW)/sizeof(WCHAR) && !memcmp(src, wine_schemaW, sizeof(wine_schemaW))) src += sizeof(wine_schemaW)/sizeof(WCHAR);
hres = create_uri(src, 0, &uri); if(FAILED(hres)) return;
hres = bind_script_to_text(script_host->window, uri, script_elem, &text); IUri_Release(uri); if(FAILED(hres) || !text) return;
parse_elem_text(script_host, script_elem, text);
heap_free(text);}
static void parse_inline_script(ScriptHost *script_host, HTMLScriptElement *script_elem){ const PRUnichar *text; nsAString text_str; nsresult nsres;
nsAString_Init(&text_str, NULL); nsres = nsIDOMHTMLScriptElement_GetText(script_elem->nsscript, &text_str); nsAString_GetData(&text_str, &text);
if(NS_FAILED(nsres)) { ERR("GetText failed: %08x\n", nsres); }else if(*text) { parse_elem_text(script_host, script_elem, text); }
nsAString_Finish(&text_str);}
static void parse_script_elem(ScriptHost *script_host, HTMLScriptElement *script_elem){ nsAString src_str, event_str; const PRUnichar *src; nsresult nsres;
nsAString_Init(&event_str, NULL); nsres = nsIDOMHTMLScriptElement_GetEvent(script_elem->nsscript, &event_str); if(NS_SUCCEEDED(nsres)) { const PRUnichar *event;
nsAString_GetData(&event_str, &event); if(*event) { TRACE("deferring event %s script evaluation\n", debugstr_w(event)); nsAString_Finish(&event_str); return; } }else { ERR("GetEvent failed: %08x\n", nsres); } nsAString_Finish(&event_str);
nsAString_Init(&src_str, NULL); nsres = nsIDOMHTMLScriptElement_GetSrc(script_elem->nsscript, &src_str); nsAString_GetData(&src_str, &src);
if(NS_FAILED(nsres)) { ERR("GetSrc failed: %08x\n", nsres); }else if(*src) { script_elem->parsed = TRUE; parse_extern_script(script_host, script_elem, src); }else { parse_inline_script(script_host, script_elem); }
nsAString_Finish(&src_str);
set_script_elem_readystate(script_elem, READYSTATE_COMPLETE);}
static GUID get_default_script_guid(HTMLInnerWindow *window){ /* If not specified, we should use very first script host that was created for the page (or JScript if none) */ return list_empty(&window->script_hosts) ? CLSID_JScript : LIST_ENTRY(list_head(&window->script_hosts), ScriptHost, entry)->guid;}
static BOOL get_guid_from_type(LPCWSTR type, GUID *guid){ const WCHAR text_javascriptW[] = {'t','e','x','t','/','j','a','v','a','s','c','r','i','p','t',0}; const WCHAR text_jscriptW[] = {'t','e','x','t','/','j','s','c','r','i','p','t',0}; const WCHAR text_vbscriptW[] = {'t','e','x','t','/','v','b','s','c','r','i','p','t',0};
/* FIXME: Handle more types */ if(!strcmpiW(type, text_javascriptW) || !strcmpiW(type, text_jscriptW)) { *guid = CLSID_JScript; }else if(!strcmpiW(type, text_vbscriptW)) { *guid = CLSID_VBScript; }else { FIXME("Unknown type %s\n", debugstr_w(type)); return FALSE; }
return TRUE;}
static BOOL get_guid_from_language(LPCWSTR type, GUID *guid){ HRESULT hres;
hres = CLSIDFromProgID(type, guid); if(FAILED(hres)) return FALSE;
/* FIXME: Check CATID_ActiveScriptParse */
return TRUE;}
static BOOL get_script_guid(HTMLInnerWindow *window, nsIDOMHTMLScriptElement *nsscript, GUID *guid){ nsIDOMHTMLElement *nselem; const PRUnichar *language; nsAString val_str; BOOL ret = FALSE; nsresult nsres;
static const PRUnichar languageW[] = {'l','a','n','g','u','a','g','e',0};
nsAString_Init(&val_str, NULL);
nsres = nsIDOMHTMLScriptElement_GetType(nsscript, &val_str); if(NS_SUCCEEDED(nsres)) { const PRUnichar *type;
nsAString_GetData(&val_str, &type); if(*type) { ret = get_guid_from_type(type, guid); nsAString_Finish(&val_str); return ret; } }else { ERR("GetType failed: %08x\n", nsres); }
nsres = nsIDOMHTMLScriptElement_QueryInterface(nsscript, &IID_nsIDOMHTMLElement, (void**)&nselem); assert(nsres == NS_OK);
nsres = get_elem_attr_value(nselem, languageW, &val_str, &language); nsIDOMHTMLElement_Release(nselem); if(NS_SUCCEEDED(nsres)) { if(*language) { ret = get_guid_from_language(language, guid); }else { *guid = get_default_script_guid(window); ret = TRUE; } nsAString_Finish(&val_str); }
return ret;}
static ScriptHost *get_script_host(HTMLInnerWindow *window, const GUID *guid){ ScriptHost *iter;
LIST_FOR_EACH_ENTRY(iter, &window->script_hosts, ScriptHost, entry) { if(IsEqualGUID(guid, &iter->guid)) return iter; }
return create_script_host(window, guid);}
static ScriptHost *get_elem_script_host(HTMLInnerWindow *window, HTMLScriptElement *script_elem){ GUID guid;
if(!get_script_guid(window, script_elem->nsscript, &guid)) { WARN("Could not find script GUID\n"); return NULL; }
if(IsEqualGUID(&CLSID_JScript, &guid) && (!window->base.outer_window || window->base.outer_window->scriptmode != SCRIPTMODE_ACTIVESCRIPT)) { TRACE("Ignoring JScript\n"); return NULL; }
return get_script_host(window, &guid);}
void doc_insert_script(HTMLInnerWindow *window, HTMLScriptElement *script_elem){ ScriptHost *script_host;
script_host = get_elem_script_host(window, script_elem); if(!script_host) return;
if(script_host->parse) parse_script_elem(script_host, script_elem);}
IDispatch *script_parse_event(HTMLInnerWindow *window, LPCWSTR text){ ScriptHost *script_host; GUID guid; const WCHAR *ptr; IDispatch *disp; HRESULT hres;
static const WCHAR delimiterW[] = {'\"',0};
TRACE("%s\n", debugstr_w(text));
for(ptr = text; isalnumW(*ptr); ptr++); if(*ptr == ':') { LPWSTR language; BOOL b;
language = heap_alloc((ptr-text+1)*sizeof(WCHAR)); if(!language) return NULL;
memcpy(language, text, (ptr-text)*sizeof(WCHAR)); language[ptr-text] = 0;
b = get_guid_from_language(language, &guid);
heap_free(language);
if(!b) { WARN("Could not find language\n"); return NULL; }
ptr++; }else { ptr = text; guid = get_default_script_guid(window); }
if(IsEqualGUID(&CLSID_JScript, &guid) && (!window->base.outer_window || window->base.outer_window->scriptmode != SCRIPTMODE_ACTIVESCRIPT)) { TRACE("Ignoring JScript\n"); return NULL; }
script_host = get_script_host(window, &guid); if(!script_host || !script_host->parse_proc) return NULL;
hres = IActiveScriptParseProcedure2_ParseProcedureText(script_host->parse_proc, ptr, NULL, emptyW, NULL, NULL, delimiterW, 0 /* FIXME */, 0, SCRIPTPROC_HOSTMANAGESSOURCE|SCRIPTPROC_IMPLICIT_THIS|SCRIPTPROC_IMPLICIT_PARENTS, &disp); if(FAILED(hres)) { WARN("ParseProcedureText failed: %08x\n", hres); return NULL; }
TRACE("ret %p\n", disp); return disp;}
HRESULT exec_script(HTMLInnerWindow *window, const WCHAR *code, const WCHAR *lang, VARIANT *ret){ ScriptHost *script_host; EXCEPINFO ei; GUID guid; HRESULT hres;
static const WCHAR delimW[] = {'"',0};
if(!get_guid_from_language(lang, &guid)) { WARN("Could not find script GUID\n"); return CO_E_CLASSSTRING; }
script_host = get_script_host(window, &guid); if(!script_host) { FIXME("No script host\n"); return E_FAIL; }
if(!script_host->parse) { FIXME("script_host->parse == NULL\n"); return E_FAIL; }
memset(&ei, 0, sizeof(ei)); TRACE(">>>\n"); hres = IActiveScriptParse_ParseScriptText(script_host->parse, code, NULL, NULL, delimW, 0, 0, SCRIPTTEXT_ISVISIBLE, ret, &ei); if(SUCCEEDED(hres)) TRACE("<<<\n"); else WARN("<<< %08x\n", hres);
return hres;}
IDispatch *get_script_disp(ScriptHost *script_host){ IDispatch *disp; HRESULT hres;
if(!script_host->script) return NULL;
hres = IActiveScript_GetScriptDispatch(script_host->script, windowW, &disp); if(FAILED(hres)) return NULL;
return disp;}
static EventTarget *find_event_target(HTMLDocumentNode *doc, HTMLScriptElement *script_elem){ EventTarget *event_target = NULL; const PRUnichar *target_id; nsAString target_id_str; nsresult nsres; HRESULT hres;
nsAString_Init(&target_id_str, NULL); nsres = nsIDOMHTMLScriptElement_GetHtmlFor(script_elem->nsscript, &target_id_str); if(NS_FAILED(nsres)) { ERR("GetScriptFor failed: %08x\n", nsres); nsAString_Finish(&target_id_str); return NULL; }
nsAString_GetData(&target_id_str, &target_id); if(!*target_id) { FIXME("Empty for attribute\n"); }else if(!strcmpW(target_id, documentW)) { event_target = &doc->node.event_target; htmldoc_addref(&doc->basedoc); }else if(!strcmpW(target_id, windowW)) { if(doc->window) { event_target = &doc->window->event_target; IDispatchEx_AddRef(&event_target->dispex.IDispatchEx_iface); } }else { HTMLElement *target_elem;
hres = get_doc_elem_by_id(doc, target_id, &target_elem); if(SUCCEEDED(hres) && target_elem) { event_target = &target_elem->node.event_target; } }
nsAString_Finish(&target_id_str); return event_target;}
static BOOL parse_event_str(WCHAR *event, const WCHAR **args){ WCHAR *ptr;
TRACE("%s\n", debugstr_w(event));
for(ptr = event; isalnumW(*ptr); ptr++); if(!*ptr) { *args = NULL; return TRUE; }
if(*ptr != '(') return FALSE;
*ptr++ = 0; *args = ptr; while(isalnumW(*ptr) || isspaceW(*ptr) || *ptr == ',') ptr++;
if(*ptr != ')') return FALSE;
*ptr++ = 0; return !*ptr;}
static IDispatch *parse_event_elem(HTMLDocumentNode *doc, HTMLScriptElement *script_elem, WCHAR **ret_event){ ScriptHost *script_host; WCHAR *event = NULL; const WCHAR *args; nsAString nsstr; IDispatch *disp; nsresult nsres; HRESULT hres;
if(script_elem->parsed) return NULL;
script_host = get_elem_script_host(doc->window, script_elem); if(!script_host || !script_host->parse_proc) return NULL;
nsAString_Init(&nsstr, NULL); nsres = nsIDOMHTMLScriptElement_GetEvent(script_elem->nsscript, &nsstr); if(NS_SUCCEEDED(nsres)) { const PRUnichar *event_val;
nsAString_GetData(&nsstr, &event_val); event = heap_strdupW(event_val); } nsAString_Finish(&nsstr); if(!event) return NULL;
if(!parse_event_str(event, &args)) { WARN("parsing %s failed\n", debugstr_w(event)); heap_free(event); return NULL; }
nsAString_Init(&nsstr, NULL); nsres = nsIDOMHTMLScriptElement_GetText(script_elem->nsscript, &nsstr); if(NS_SUCCEEDED(nsres)) { const PRUnichar *text;
nsAString_GetData(&nsstr, &text); hres = IActiveScriptParseProcedure2_ParseProcedureText(script_host->parse_proc, text, args, emptyW, NULL, NULL, script_endW, 0, 0, SCRIPTPROC_HOSTMANAGESSOURCE|SCRIPTPROC_IMPLICIT_THIS|SCRIPTPROC_IMPLICIT_PARENTS, &disp); if(FAILED(hres)) disp = NULL; }else { ERR("GetText failed: %08x\n", nsres); disp = NULL; } nsAString_Finish(&nsstr); if(!disp) { heap_free(event); return NULL; }
*ret_event = event; return disp;}
void bind_event_scripts(HTMLDocumentNode *doc){ HTMLPluginContainer *plugin_container; nsIDOMHTMLScriptElement *nsscript; HTMLScriptElement *script_elem; EventTarget *event_target; nsIDOMNodeList *node_list; nsIDOMNode *script_node; nsAString selector_str; IDispatch *event_disp; UINT32 length, i; WCHAR *event; nsresult nsres; HRESULT hres;
static const PRUnichar selectorW[] = {'s','c','r','i','p','t','[','e','v','e','n','t',']',0};
TRACE("%p\n", doc);
if(!doc->nsdoc) return;
nsAString_InitDepend(&selector_str, selectorW); nsres = nsIDOMHTMLDocument_QuerySelectorAll(doc->nsdoc, &selector_str, &node_list); nsAString_Finish(&selector_str); if(NS_FAILED(nsres)) { ERR("QuerySelectorAll failed: %08x\n", nsres); return; }
if(!node_list) return;
nsres = nsIDOMNodeList_GetLength(node_list, &length); assert(nsres == NS_OK);
for(i=0; i < length; i++) { nsres = nsIDOMNodeList_Item(node_list, i, &script_node); if(NS_FAILED(nsres) || !script_node) { ERR("Item(%d) failed: %08x\n", i, nsres); continue; }
nsres = nsIDOMNode_QueryInterface(script_node, &IID_nsIDOMHTMLScriptElement, (void**)&nsscript); assert(nsres == NS_OK); nsIDOMNode_Release(script_node);
hres = script_elem_from_nsscript(doc, nsscript, &script_elem); if(FAILED(hres)) continue;
event_disp = parse_event_elem(doc, script_elem, &event); if(event_disp) { event_target = find_event_target(doc, script_elem); if(event_target) { hres = IDispatchEx_QueryInterface(&event_target->dispex.IDispatchEx_iface, &IID_HTMLPluginContainer, (void**)&plugin_container); if(SUCCEEDED(hres)) bind_activex_event(doc, plugin_container, event, event_disp); else bind_target_event(doc, event_target, event, event_disp);
IDispatchEx_Release(&event_target->dispex.IDispatchEx_iface); if(plugin_container) node_release(&plugin_container->element.node); }
heap_free(event); IDispatch_Release(event_disp); }
IHTMLScriptElement_Release(&script_elem->IHTMLScriptElement_iface); }
nsIDOMNodeList_Release(node_list);}
BOOL find_global_prop(HTMLInnerWindow *window, BSTR name, DWORD flags, ScriptHost **ret_host, DISPID *ret_id){ IDispatchEx *dispex; IDispatch *disp; ScriptHost *iter; HRESULT hres;
LIST_FOR_EACH_ENTRY(iter, &window->script_hosts, ScriptHost, entry) { disp = get_script_disp(iter); if(!disp) continue;
hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex); if(SUCCEEDED(hres)) { hres = IDispatchEx_GetDispID(dispex, name, flags & (~fdexNameEnsure), ret_id); IDispatchEx_Release(dispex); }else { FIXME("No IDispatchEx\n"); hres = E_NOTIMPL; }
IDispatch_Release(disp); if(SUCCEEDED(hres)) { *ret_host = iter; return TRUE; } }
return FALSE;}
static BOOL is_jscript_available(void){ static BOOL available, checked;
if(!checked) { IUnknown *unk; HRESULT hres = CoGetClassObject(&CLSID_JScript, CLSCTX_INPROC_SERVER, NULL, &IID_IUnknown, (void**)&unk);
if(SUCCEEDED(hres)) { available = TRUE; IUnknown_Release(unk); }else { available = FALSE; } checked = TRUE; }
return available;}
void set_script_mode(HTMLOuterWindow *window, SCRIPTMODE mode){ nsIWebBrowserSetup *setup; nsresult nsres;
if(mode == SCRIPTMODE_ACTIVESCRIPT && !is_jscript_available()) { TRACE("jscript.dll not available\n"); window->scriptmode = SCRIPTMODE_GECKO; return; }
window->scriptmode = mode;
if(!window->doc_obj->nscontainer || !window->doc_obj->nscontainer->webbrowser) return;
nsres = nsIWebBrowser_QueryInterface(window->doc_obj->nscontainer->webbrowser, &IID_nsIWebBrowserSetup, (void**)&setup); if(NS_SUCCEEDED(nsres)) { nsres = nsIWebBrowserSetup_SetProperty(setup, SETUP_ALLOW_JAVASCRIPT, window->scriptmode == SCRIPTMODE_GECKO);
if(NS_SUCCEEDED(nsres)) nsres = nsIWebBrowserSetup_SetProperty(setup, SETUP_DISABLE_NOSCRIPT, TRUE);
nsIWebBrowserSetup_Release(setup); }
if(NS_FAILED(nsres)) ERR("JavaScript setup failed: %08x\n", nsres);}
void release_script_hosts(HTMLInnerWindow *window){ script_queue_entry_t *queue_iter; ScriptHost *iter;
while(!list_empty(&window->script_queue)) { queue_iter = LIST_ENTRY(list_head(&window->script_queue), script_queue_entry_t, entry);
list_remove(&queue_iter->entry); IHTMLScriptElement_Release(&queue_iter->script->IHTMLScriptElement_iface); heap_free(queue_iter); }
while(!list_empty(&window->script_hosts)) { iter = LIST_ENTRY(list_head(&window->script_hosts), ScriptHost, entry);
release_script_engine(iter); list_remove(&iter->entry); iter->window = NULL; IActiveScriptSite_Release(&iter->IActiveScriptSite_iface); }}