921 lines
27 KiB
C
921 lines
27 KiB
C
/*
|
|
* 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 "config.h"
|
|
|
|
#include <stdarg.h>
|
|
|
|
#define COBJMACROS
|
|
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "winuser.h"
|
|
#include "ole2.h"
|
|
#include "activscp.h"
|
|
#include "activdbg.h"
|
|
#include "objsafe.h"
|
|
|
|
#include "wine/debug.h"
|
|
|
|
#include "mshtml_private.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
|
|
|
|
static const WCHAR windowW[] = {'w','i','n','d','o','w',0};
|
|
static const WCHAR emptyW[] = {0};
|
|
|
|
static const CLSID CLSID_JScript =
|
|
{0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
|
|
|
|
struct ScriptHost {
|
|
const IActiveScriptSiteVtbl *lpIActiveScriptSiteVtbl;
|
|
const IActiveScriptSiteInterruptPollVtbl *lpIActiveScriptSiteInterruptPollVtbl;
|
|
const IActiveScriptSiteWindowVtbl *lpIActiveScriptSiteWindowVtbl;
|
|
const IActiveScriptSiteDebug32Vtbl *lpIActiveScriptSiteDebug32Vtbl;
|
|
|
|
LONG ref;
|
|
|
|
IActiveScript *script;
|
|
IActiveScriptParse *parse;
|
|
IActiveScriptParseProcedure *parse_proc;
|
|
|
|
SCRIPTSTATE script_state;
|
|
|
|
HTMLWindow *window;
|
|
|
|
GUID guid;
|
|
struct list entry;
|
|
};
|
|
|
|
#define ACTSCPSITE(x) ((IActiveScriptSite*) &(x)->lpIActiveScriptSiteVtbl)
|
|
#define ACTSCPPOLL(x) (&(x)->lpIActiveScriptSiteInterruptPollVtbl)
|
|
#define ACTSCPWIN(x) (&(x)->lpIActiveScriptSiteWindowVtbl)
|
|
#define ACTSCPDBG32(x) (&(x)->lpIActiveScriptSiteDebug32Vtbl)
|
|
|
|
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 = IActiveScriptParse64_InitNew(script_host->parse);
|
|
if(FAILED(hres)) {
|
|
WARN("InitNew failed: %08x\n", hres);
|
|
return FALSE;
|
|
}
|
|
|
|
hres = IActiveScript_SetScriptSite(script_host->script, ACTSCPSITE(script_host));
|
|
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) {
|
|
IUnknown_Release(This->parse_proc);
|
|
This->parse_proc = NULL;
|
|
}
|
|
|
|
if(This->parse) {
|
|
IUnknown_Release(This->parse);
|
|
This->parse = NULL;
|
|
}
|
|
}
|
|
|
|
IActiveScript_Release(This->script);
|
|
This->script = NULL;
|
|
This->script_state = SCRIPTSTATE_UNINITIALIZED;
|
|
}
|
|
|
|
void connect_scripts(HTMLWindow *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);
|
|
}
|
|
}
|
|
|
|
#define ACTSCPSITE_THIS(iface) DEFINE_THIS(ScriptHost, IActiveScriptSite, iface)
|
|
|
|
static HRESULT WINAPI ActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
|
|
{
|
|
ScriptHost *This = ACTSCPSITE_THIS(iface);
|
|
|
|
*ppv = NULL;
|
|
|
|
if(IsEqualGUID(&IID_IUnknown, riid)) {
|
|
TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
|
|
*ppv = ACTSCPSITE(This);
|
|
}else if(IsEqualGUID(&IID_IActiveScriptSite, riid)) {
|
|
TRACE("(%p)->(IID_IActiveScriptSite %p)\n", This, ppv);
|
|
*ppv = ACTSCPSITE(This);
|
|
}else if(IsEqualGUID(&IID_IActiveScriptSiteInterruptPoll, riid)) {
|
|
TRACE("(%p)->(IID_IActiveScriptSiteInterruprtPoll %p)\n", This, ppv);
|
|
*ppv = ACTSCPPOLL(This);
|
|
}else if(IsEqualGUID(&IID_IActiveScriptSiteWindow, riid)) {
|
|
TRACE("(%p)->(IID_IActiveScriptSiteWindow %p)\n", This, ppv);
|
|
*ppv = ACTSCPWIN(This);
|
|
}else if(IsEqualGUID(&IID_IActiveScriptSiteDebug32, riid)) {
|
|
TRACE("(%p)->(IID_IActiveScriptSiteDebug32 %p)\n", This, ppv);
|
|
*ppv = ACTSCPDBG32(This);
|
|
}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 = ACTSCPSITE_THIS(iface);
|
|
LONG ref = InterlockedIncrement(&This->ref);
|
|
|
|
TRACE("(%p) ref=%d\n", This, ref);
|
|
|
|
return ref;
|
|
}
|
|
|
|
static ULONG WINAPI ActiveScriptSite_Release(IActiveScriptSite *iface)
|
|
{
|
|
ScriptHost *This = ACTSCPSITE_THIS(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 = ACTSCPSITE_THIS(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 = ACTSCPSITE_THIS(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*)HTMLWINDOW2(This->window);
|
|
IUnknown_AddRef(*ppiunkItem);
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI ActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
|
|
{
|
|
ScriptHost *This = ACTSCPSITE_THIS(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 = ACTSCPSITE_THIS(iface);
|
|
FIXME("(%p)->(%p %p)\n", This, pvarResult, pexcepinfo);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI ActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
|
|
{
|
|
ScriptHost *This = ACTSCPSITE_THIS(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 = ACTSCPSITE_THIS(iface);
|
|
FIXME("(%p)->(%p)\n", This, pscripterror);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI ActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
|
|
{
|
|
ScriptHost *This = ACTSCPSITE_THIS(iface);
|
|
|
|
TRACE("(%p)->()\n", This);
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
|
|
{
|
|
ScriptHost *This = ACTSCPSITE_THIS(iface);
|
|
|
|
TRACE("(%p)->()\n", This);
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
#undef ACTSCPSITE_THIS
|
|
|
|
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
|
|
};
|
|
|
|
#define ACTSCPPOLL_THIS(iface) DEFINE_THIS(ScriptHost, IActiveScriptSiteInterruptPoll, iface)
|
|
|
|
static HRESULT WINAPI ActiveScriptSiteInterruptPoll_QueryInterface(IActiveScriptSiteInterruptPoll *iface,
|
|
REFIID riid, void **ppv)
|
|
{
|
|
ScriptHost *This = ACTSCPPOLL_THIS(iface);
|
|
return IActiveScriptSite_QueryInterface(ACTSCPSITE(This), riid, ppv);
|
|
}
|
|
|
|
static ULONG WINAPI ActiveScriptSiteInterruptPoll_AddRef(IActiveScriptSiteInterruptPoll *iface)
|
|
{
|
|
ScriptHost *This = ACTSCPPOLL_THIS(iface);
|
|
return IActiveScriptSite_AddRef(ACTSCPSITE(This));
|
|
}
|
|
|
|
static ULONG WINAPI ActiveScriptSiteInterruptPoll_Release(IActiveScriptSiteInterruptPoll *iface)
|
|
{
|
|
ScriptHost *This = ACTSCPPOLL_THIS(iface);
|
|
return IActiveScriptSite_Release(ACTSCPSITE(This));
|
|
}
|
|
|
|
static HRESULT WINAPI ActiveScriptSiteInterruptPoll_QueryContinue(IActiveScriptSiteInterruptPoll *iface)
|
|
{
|
|
ScriptHost *This = ACTSCPPOLL_THIS(iface);
|
|
|
|
TRACE("(%p)\n", This);
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
#undef ACTSCPPOLL_THIS
|
|
|
|
static const IActiveScriptSiteInterruptPollVtbl ActiveScriptSiteInterruptPollVtbl = {
|
|
ActiveScriptSiteInterruptPoll_QueryInterface,
|
|
ActiveScriptSiteInterruptPoll_AddRef,
|
|
ActiveScriptSiteInterruptPoll_Release,
|
|
ActiveScriptSiteInterruptPoll_QueryContinue
|
|
};
|
|
|
|
#define ACTSCPWIN_THIS(iface) DEFINE_THIS(ScriptHost, IActiveScriptSiteWindow, iface)
|
|
|
|
static HRESULT WINAPI ActiveScriptSiteWindow_QueryInterface(IActiveScriptSiteWindow *iface,
|
|
REFIID riid, void **ppv)
|
|
{
|
|
ScriptHost *This = ACTSCPWIN_THIS(iface);
|
|
return IActiveScriptSite_QueryInterface(ACTSCPSITE(This), riid, ppv);
|
|
}
|
|
|
|
static ULONG WINAPI ActiveScriptSiteWindow_AddRef(IActiveScriptSiteWindow *iface)
|
|
{
|
|
ScriptHost *This = ACTSCPWIN_THIS(iface);
|
|
return IActiveScriptSite_AddRef(ACTSCPSITE(This));
|
|
}
|
|
|
|
static ULONG WINAPI ActiveScriptSiteWindow_Release(IActiveScriptSiteWindow *iface)
|
|
{
|
|
ScriptHost *This = ACTSCPWIN_THIS(iface);
|
|
return IActiveScriptSite_Release(ACTSCPSITE(This));
|
|
}
|
|
|
|
static HRESULT WINAPI ActiveScriptSiteWindow_GetWindow(IActiveScriptSiteWindow *iface, HWND *phwnd)
|
|
{
|
|
ScriptHost *This = ACTSCPWIN_THIS(iface);
|
|
FIXME("(%p)->(%p)\n", This, phwnd);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI ActiveScriptSiteWindow_EnableModeless(IActiveScriptSiteWindow *iface, BOOL fEnable)
|
|
{
|
|
ScriptHost *This = ACTSCPWIN_THIS(iface);
|
|
FIXME("(%p)->(%x)\n", This, fEnable);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
#undef ACTSCPWIN_THIS
|
|
|
|
static const IActiveScriptSiteWindowVtbl ActiveScriptSiteWindowVtbl = {
|
|
ActiveScriptSiteWindow_QueryInterface,
|
|
ActiveScriptSiteWindow_AddRef,
|
|
ActiveScriptSiteWindow_Release,
|
|
ActiveScriptSiteWindow_GetWindow,
|
|
ActiveScriptSiteWindow_EnableModeless
|
|
};
|
|
|
|
#define ACTSCPDBG32_THIS(iface) DEFINE_THIS(ScriptHost, IActiveScriptSiteDebug32, iface)
|
|
|
|
static HRESULT WINAPI ActiveScriptSiteDebug32_QueryInterface(IActiveScriptSiteDebug32 *iface,
|
|
REFIID riid, void **ppv)
|
|
{
|
|
ScriptHost *This = ACTSCPDBG32_THIS(iface);
|
|
return IActiveScriptSite_QueryInterface(ACTSCPSITE(This), riid, ppv);
|
|
}
|
|
|
|
static ULONG WINAPI ActiveScriptSiteDebug32_AddRef(IActiveScriptSiteDebug32 *iface)
|
|
{
|
|
ScriptHost *This = ACTSCPDBG32_THIS(iface);
|
|
return IActiveScriptSite_AddRef(ACTSCPSITE(This));
|
|
}
|
|
|
|
static ULONG WINAPI ActiveScriptSiteDebug32_Release(IActiveScriptSiteDebug32 *iface)
|
|
{
|
|
ScriptHost *This = ACTSCPDBG32_THIS(iface);
|
|
return IActiveScriptSite_Release(ACTSCPSITE(This));
|
|
}
|
|
|
|
static HRESULT WINAPI ActiveScriptSiteDebug32_GetDocumentContextFromPosition(IActiveScriptSiteDebug32 *iface,
|
|
DWORD dwSourceContext, ULONG uCharacterOffset, ULONG uNumChars, IDebugDocumentContext **ppsc)
|
|
{
|
|
ScriptHost *This = ACTSCPDBG32_THIS(iface);
|
|
FIXME("(%p)->(%x %u %u %p)\n", This, dwSourceContext, uCharacterOffset, uNumChars, ppsc);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI ActiveScriptSiteDebug32_GetApplication(IActiveScriptSiteDebug32 *iface, IDebugApplication32 **ppda)
|
|
{
|
|
ScriptHost *This = ACTSCPDBG32_THIS(iface);
|
|
FIXME("(%p)->(%p)\n", This, ppda);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI ActiveScriptSiteDebug32_GetRootApplicationNode(IActiveScriptSiteDebug32 *iface,
|
|
IDebugApplicationNode **ppdanRoot)
|
|
{
|
|
ScriptHost *This = ACTSCPDBG32_THIS(iface);
|
|
FIXME("(%p)->(%p)\n", This, ppdanRoot);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI ActiveScriptSiteDebug32_OnScriptErrorDebug(IActiveScriptSiteDebug32 *iface,
|
|
IActiveScriptErrorDebug *pErrorDebug, BOOL *pfEnterDebugger, BOOL *pfCallOnScriptErrorWhenContinuing)
|
|
{
|
|
ScriptHost *This = ACTSCPDBG32_THIS(iface);
|
|
FIXME("(%p)->(%p %p %p)\n", This, pErrorDebug, pfEnterDebugger, pfCallOnScriptErrorWhenContinuing);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
#undef ACTSCPDBG32_THIS
|
|
|
|
static const IActiveScriptSiteDebug32Vtbl ActiveScriptSiteDebug32Vtbl = {
|
|
ActiveScriptSiteDebug32_QueryInterface,
|
|
ActiveScriptSiteDebug32_AddRef,
|
|
ActiveScriptSiteDebug32_Release,
|
|
ActiveScriptSiteDebug32_GetDocumentContextFromPosition,
|
|
ActiveScriptSiteDebug32_GetApplication,
|
|
ActiveScriptSiteDebug32_GetRootApplicationNode,
|
|
ActiveScriptSiteDebug32_OnScriptErrorDebug
|
|
};
|
|
|
|
static ScriptHost *create_script_host(HTMLWindow *window, const GUID *guid)
|
|
{
|
|
ScriptHost *ret;
|
|
HRESULT hres;
|
|
|
|
ret = heap_alloc_zero(sizeof(*ret));
|
|
ret->lpIActiveScriptSiteVtbl = &ActiveScriptSiteVtbl;
|
|
ret->lpIActiveScriptSiteInterruptPollVtbl = &ActiveScriptSiteInterruptPollVtbl;
|
|
ret->lpIActiveScriptSiteWindowVtbl = &ActiveScriptSiteWindowVtbl;
|
|
ret->lpIActiveScriptSiteDebug32Vtbl = &ActiveScriptSiteDebug32Vtbl;
|
|
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;
|
|
}
|
|
|
|
static void parse_text(ScriptHost *script_host, LPCWSTR text)
|
|
{
|
|
EXCEPINFO excepinfo;
|
|
VARIANT var;
|
|
HRESULT hres;
|
|
|
|
static const WCHAR script_endW[] = {'<','/','S','C','R','I','P','T','>',0};
|
|
|
|
TRACE("%s\n", debugstr_w(text));
|
|
|
|
VariantInit(&var);
|
|
memset(&excepinfo, 0, sizeof(excepinfo));
|
|
hres = IActiveScriptParse64_ParseScriptText(script_host->parse, text, windowW, NULL, script_endW,
|
|
0, 0, SCRIPTTEXT_ISVISIBLE|SCRIPTTEXT_HOSTMANAGESSOURCE,
|
|
&var, &excepinfo);
|
|
if(FAILED(hres))
|
|
WARN("ParseScriptText failed: %08x\n", hres);
|
|
|
|
}
|
|
|
|
static void parse_extern_script(ScriptHost *script_host, LPCWSTR src)
|
|
{
|
|
IMoniker *mon;
|
|
char *buf;
|
|
WCHAR *text;
|
|
DWORD len, size=0;
|
|
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 = CreateURLMoniker(NULL, src, &mon);
|
|
if(FAILED(hres))
|
|
return;
|
|
|
|
hres = bind_mon_to_buffer(script_host->window->doc, mon, (void**)&buf, &size);
|
|
IMoniker_Release(mon);
|
|
if(FAILED(hres))
|
|
return;
|
|
|
|
len = MultiByteToWideChar(CP_ACP, 0, buf, size, NULL, 0);
|
|
text = heap_alloc((len+1)*sizeof(WCHAR));
|
|
MultiByteToWideChar(CP_ACP, 0, buf, size, text, len);
|
|
heap_free(buf);
|
|
text[len] = 0;
|
|
|
|
parse_text(script_host, text);
|
|
|
|
heap_free(text);
|
|
}
|
|
|
|
static void parse_inline_script(ScriptHost *script_host, nsIDOMHTMLScriptElement *nsscript)
|
|
{
|
|
const PRUnichar *text;
|
|
nsAString text_str;
|
|
nsresult nsres;
|
|
|
|
nsAString_Init(&text_str, NULL);
|
|
|
|
nsres = nsIDOMHTMLScriptElement_GetText(nsscript, &text_str);
|
|
|
|
if(NS_SUCCEEDED(nsres)) {
|
|
nsAString_GetData(&text_str, &text);
|
|
parse_text(script_host, text);
|
|
}else {
|
|
ERR("GetText failed: %08x\n", nsres);
|
|
}
|
|
|
|
nsAString_Finish(&text_str);
|
|
}
|
|
|
|
static void parse_script_elem(ScriptHost *script_host, nsIDOMHTMLScriptElement *nsscript)
|
|
{
|
|
const PRUnichar *src;
|
|
nsAString src_str;
|
|
nsresult nsres;
|
|
|
|
nsAString_Init(&src_str, NULL);
|
|
|
|
nsres = nsIDOMHTMLScriptElement_GetSrc(nsscript, &src_str);
|
|
nsAString_GetData(&src_str, &src);
|
|
|
|
if(NS_FAILED(nsres))
|
|
ERR("GetSrc failed: %08x\n", nsres);
|
|
else if(*src)
|
|
parse_extern_script(script_host, src);
|
|
else
|
|
parse_inline_script(script_host, nsscript);
|
|
|
|
nsAString_Finish(&src_str);
|
|
}
|
|
|
|
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};
|
|
|
|
/* FIXME: Handle more types */
|
|
if(!strcmpiW(type, text_javascriptW)) {
|
|
*guid = CLSID_JScript;
|
|
}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(nsIDOMHTMLScriptElement *nsscript, GUID *guid)
|
|
{
|
|
nsAString attr_str, 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);
|
|
}
|
|
|
|
nsAString_Init(&attr_str, languageW);
|
|
|
|
nsres = nsIDOMHTMLScriptElement_GetAttribute(nsscript, &attr_str, &val_str);
|
|
if(NS_SUCCEEDED(nsres)) {
|
|
const PRUnichar *language;
|
|
|
|
nsAString_GetData(&val_str, &language);
|
|
|
|
if(*language) {
|
|
ret = get_guid_from_language(language, guid);
|
|
}else {
|
|
*guid = CLSID_JScript;
|
|
ret = TRUE;
|
|
}
|
|
}else {
|
|
ERR("GetAttribute(language) failed: %08x\n", nsres);
|
|
}
|
|
|
|
nsAString_Finish(&attr_str);
|
|
nsAString_Finish(&val_str);
|
|
|
|
return ret;
|
|
}
|
|
|
|
static ScriptHost *get_script_host(HTMLWindow *window, const GUID *guid)
|
|
{
|
|
ScriptHost *iter;
|
|
|
|
if(IsEqualGUID(&CLSID_JScript, guid) && window->scriptmode != SCRIPTMODE_ACTIVESCRIPT) {
|
|
TRACE("Ignoring JScript\n");
|
|
return NULL;
|
|
}
|
|
|
|
LIST_FOR_EACH_ENTRY(iter, &window->script_hosts, ScriptHost, entry) {
|
|
if(IsEqualGUID(guid, &iter->guid))
|
|
return iter;
|
|
}
|
|
|
|
return create_script_host(window, guid);
|
|
}
|
|
|
|
void doc_insert_script(HTMLDocument *doc, nsIDOMHTMLScriptElement *nsscript)
|
|
{
|
|
ScriptHost *script_host;
|
|
GUID guid;
|
|
|
|
if(!get_script_guid(nsscript, &guid)) {
|
|
WARN("Could not find script GUID\n");
|
|
return;
|
|
}
|
|
|
|
script_host = get_script_host(doc->window, &guid);
|
|
if(!script_host)
|
|
return;
|
|
|
|
if(script_host->parse)
|
|
parse_script_elem(script_host, nsscript);
|
|
}
|
|
|
|
IDispatch *script_parse_event(HTMLDocument *doc, LPCWSTR text)
|
|
{
|
|
ScriptHost *script_host;
|
|
GUID guid = CLSID_JScript;
|
|
const WCHAR *ptr;
|
|
IDispatch *disp;
|
|
HRESULT hres;
|
|
|
|
static const WCHAR delimiterW[] = {'\"',0};
|
|
|
|
for(ptr = text; isalnumW(*ptr); ptr++);
|
|
if(*ptr == ':') {
|
|
LPWSTR language;
|
|
BOOL b;
|
|
|
|
language = heap_alloc((ptr-text+1)*sizeof(WCHAR));
|
|
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;
|
|
}
|
|
|
|
script_host = get_script_host(doc->window, &guid);
|
|
if(!script_host || !script_host->parse_proc)
|
|
return NULL;
|
|
|
|
hres = IActiveScriptParseProcedure64_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;
|
|
}
|
|
|
|
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;
|
|
}
|
|
|
|
BOOL find_global_prop(HTMLWindow *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, 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(HTMLWindow *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->nscontainer || !window->doc->nscontainer->webbrowser)
|
|
return;
|
|
|
|
nsres = nsIWebBrowser_QueryInterface(window->doc->nscontainer->webbrowser,
|
|
&IID_nsIWebBrowserSetup, (void**)&setup);
|
|
if(NS_SUCCEEDED(nsres)) {
|
|
nsres = nsIWebBrowserSetup_SetProperty(setup, SETUP_ALLOW_JAVASCRIPT,
|
|
window->scriptmode == SCRIPTMODE_GECKO);
|
|
nsIWebBrowserSetup_Release(setup);
|
|
}
|
|
|
|
if(NS_FAILED(nsres))
|
|
ERR("JavaScript setup failed: %08x\n", nsres);
|
|
}
|
|
|
|
void release_script_hosts(HTMLWindow *window)
|
|
{
|
|
ScriptHost *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;
|
|
IActiveScript_Release(ACTSCPSITE(iter));
|
|
}
|
|
}
|