2 * Copyright 2008 Jacek Caban for CodeWeavers
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.
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.
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
32 #include "wine/debug.h"
34 #include "mshtml_private.h"
36 WINE_DEFAULT_DEBUG_CHANNEL(mshtml
);
40 #define CTXARG_T DWORDLONG
41 #define IActiveScriptSiteDebugVtbl IActiveScriptSiteDebug64Vtbl
43 #define IActiveScriptParse_Release IActiveScriptParse64_Release
44 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
45 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
46 #define IActiveScriptParseProcedure_Release IActiveScriptParseProcedure64_Release
47 #define IActiveScriptParseProcedure_ParseProcedureText IActiveScriptParseProcedure64_ParseProcedureText
51 #define CTXARG_T DWORD
52 #define IActiveScriptSiteDebugVtbl IActiveScriptSiteDebug32Vtbl
54 #define IActiveScriptParse_Release IActiveScriptParse32_Release
55 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
56 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
57 #define IActiveScriptParseProcedure_Release IActiveScriptParseProcedure32_Release
58 #define IActiveScriptParseProcedure_ParseProcedureText IActiveScriptParseProcedure32_ParseProcedureText
62 static const WCHAR windowW
[] = {'w','i','n','d','o','w',0};
63 static const WCHAR emptyW
[] = {0};
65 static const CLSID CLSID_JScript
=
66 {0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
67 static const CLSID CLSID_VBScript
=
68 {0xb54f3741,0x5b07,0x11cf,{0xa4,0xb0,0x00,0xaa,0x00,0x4a,0x55,0xe8}};
71 IActiveScriptSite IActiveScriptSite_iface
;
72 IActiveScriptSiteInterruptPoll IActiveScriptSiteInterruptPoll_iface
;
73 IActiveScriptSiteWindow IActiveScriptSiteWindow_iface
;
74 IActiveScriptSiteDebug IActiveScriptSiteDebug_iface
;
75 IServiceProvider IServiceProvider_iface
;
79 IActiveScript
*script
;
80 IActiveScriptParse
*parse
;
81 IActiveScriptParseProcedure
*parse_proc
;
83 SCRIPTSTATE script_state
;
85 HTMLInnerWindow
*window
;
91 static void set_script_prop(ScriptHost
*script_host
, DWORD property
, VARIANT
*val
)
93 IActiveScriptProperty
*script_prop
;
96 hres
= IActiveScript_QueryInterface(script_host
->script
, &IID_IActiveScriptProperty
,
97 (void**)&script_prop
);
99 WARN("Could not get IActiveScriptProperty iface: %08x\n", hres
);
103 hres
= IActiveScriptProperty_SetProperty(script_prop
, property
, NULL
, val
);
104 IActiveScriptProperty_Release(script_prop
);
106 WARN("SetProperty(%x) failed: %08x\n", property
, hres
);
109 static BOOL
init_script_engine(ScriptHost
*script_host
)
111 IObjectSafety
*safety
;
113 DWORD supported_opts
=0, enabled_opts
=0;
117 hres
= IActiveScript_QueryInterface(script_host
->script
, &IID_IActiveScriptParse
, (void**)&script_host
->parse
);
119 WARN("Could not get IActiveScriptHost: %08x\n", hres
);
123 hres
= IActiveScript_QueryInterface(script_host
->script
, &IID_IObjectSafety
, (void**)&safety
);
125 FIXME("Could not get IObjectSafety: %08x\n", hres
);
129 hres
= IObjectSafety_GetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
, &supported_opts
, &enabled_opts
);
131 FIXME("GetInterfaceSafetyOptions failed: %08x\n", hres
);
132 }else if(!(supported_opts
& INTERFACE_USES_DISPEX
)) {
133 FIXME("INTERFACE_USES_DISPEX is not supported\n");
135 hres
= IObjectSafety_SetInterfaceSafetyOptions(safety
, &IID_IActiveScriptParse
,
136 INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
,
137 INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
);
139 FIXME("SetInterfaceSafetyOptions failed: %08x\n", hres
);
142 IObjectSafety_Release(safety
);
148 set_script_prop(script_host
, SCRIPTPROP_INVOKEVERSIONING
, &var
);
150 V_VT(&var
) = VT_BOOL
;
151 V_BOOL(&var
) = VARIANT_TRUE
;
152 set_script_prop(script_host
, SCRIPTPROP_HACK_TRIDENTEVENTSINK
, &var
);
154 hres
= IActiveScriptParse_InitNew(script_host
->parse
);
156 WARN("InitNew failed: %08x\n", hres
);
160 hres
= IActiveScript_SetScriptSite(script_host
->script
, &script_host
->IActiveScriptSite_iface
);
162 WARN("SetScriptSite failed: %08x\n", hres
);
163 IActiveScript_Close(script_host
->script
);
167 hres
= IActiveScript_GetScriptState(script_host
->script
, &state
);
169 WARN("GetScriptState failed: %08x\n", hres
);
170 else if(state
!= SCRIPTSTATE_INITIALIZED
)
171 FIXME("state = %x\n", state
);
173 hres
= IActiveScript_SetScriptState(script_host
->script
, SCRIPTSTATE_STARTED
);
175 WARN("Starting script failed: %08x\n", hres
);
179 hres
= IActiveScript_AddNamedItem(script_host
->script
, windowW
,
180 SCRIPTITEM_ISVISIBLE
|SCRIPTITEM_ISSOURCE
|SCRIPTITEM_GLOBALMEMBERS
);
181 if(SUCCEEDED(hres
)) {
182 V_VT(&var
) = VT_BOOL
;
183 V_BOOL(&var
) = VARIANT_TRUE
;
184 set_script_prop(script_host
, SCRIPTPROP_ABBREVIATE_GLOBALNAME_RESOLUTION
, &var
);
186 WARN("AddNamedItem failed: %08x\n", hres
);
189 hres
= IActiveScript_QueryInterface(script_host
->script
, &IID_IActiveScriptParseProcedure2
,
190 (void**)&script_host
->parse_proc
);
192 /* FIXME: QI for IActiveScriptParseProcedure */
193 WARN("Could not get IActiveScriptParseProcedure iface: %08x\n", hres
);
199 static void release_script_engine(ScriptHost
*This
)
204 switch(This
->script_state
) {
205 case SCRIPTSTATE_CONNECTED
:
206 IActiveScript_SetScriptState(This
->script
, SCRIPTSTATE_DISCONNECTED
);
208 case SCRIPTSTATE_STARTED
:
209 case SCRIPTSTATE_DISCONNECTED
:
210 case SCRIPTSTATE_INITIALIZED
:
211 IActiveScript_Close(This
->script
);
214 if(This
->parse_proc
) {
215 IActiveScriptParseProcedure_Release(This
->parse_proc
);
216 This
->parse_proc
= NULL
;
220 IActiveScriptParse_Release(This
->parse
);
225 IActiveScript_Release(This
->script
);
227 This
->script_state
= SCRIPTSTATE_UNINITIALIZED
;
230 void connect_scripts(HTMLInnerWindow
*window
)
234 LIST_FOR_EACH_ENTRY(iter
, &window
->script_hosts
, ScriptHost
, entry
) {
235 if(iter
->script_state
== SCRIPTSTATE_STARTED
)
236 IActiveScript_SetScriptState(iter
->script
, SCRIPTSTATE_CONNECTED
);
240 static inline ScriptHost
*impl_from_IActiveScriptSite(IActiveScriptSite
*iface
)
242 return CONTAINING_RECORD(iface
, ScriptHost
, IActiveScriptSite_iface
);
245 static HRESULT WINAPI
ActiveScriptSite_QueryInterface(IActiveScriptSite
*iface
, REFIID riid
, void **ppv
)
247 ScriptHost
*This
= impl_from_IActiveScriptSite(iface
);
251 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
252 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
253 *ppv
= &This
->IActiveScriptSite_iface
;
254 }else if(IsEqualGUID(&IID_IActiveScriptSite
, riid
)) {
255 TRACE("(%p)->(IID_IActiveScriptSite %p)\n", This
, ppv
);
256 *ppv
= &This
->IActiveScriptSite_iface
;
257 }else if(IsEqualGUID(&IID_IActiveScriptSiteInterruptPoll
, riid
)) {
258 TRACE("(%p)->(IID_IActiveScriptSiteInterruprtPoll %p)\n", This
, ppv
);
259 *ppv
= &This
->IActiveScriptSiteInterruptPoll_iface
;
260 }else if(IsEqualGUID(&IID_IActiveScriptSiteWindow
, riid
)) {
261 TRACE("(%p)->(IID_IActiveScriptSiteWindow %p)\n", This
, ppv
);
262 *ppv
= &This
->IActiveScriptSiteWindow_iface
;
263 }else if(IsEqualGUID(&IID_IActiveScriptSiteDebug
, riid
)) {
264 TRACE("(%p)->(IID_IActiveScriptSiteDebug %p)\n", This
, ppv
);
265 *ppv
= &This
->IActiveScriptSiteDebug_iface
;
266 }else if(IsEqualGUID(&IID_IServiceProvider
, riid
)) {
267 TRACE("(%p)->(IID_IServiceProvider %p)\n", This
, ppv
);
268 *ppv
= &This
->IServiceProvider_iface
;
269 }else if(IsEqualGUID(&IID_ICanHandleException
, riid
)) {
270 TRACE("(%p)->(IID_ICanHandleException not supported %p)\n", This
, ppv
);
271 return E_NOINTERFACE
;
273 FIXME("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
274 return E_NOINTERFACE
;
277 IUnknown_AddRef((IUnknown
*)*ppv
);
281 static ULONG WINAPI
ActiveScriptSite_AddRef(IActiveScriptSite
*iface
)
283 ScriptHost
*This
= impl_from_IActiveScriptSite(iface
);
284 LONG ref
= InterlockedIncrement(&This
->ref
);
286 TRACE("(%p) ref=%d\n", This
, ref
);
291 static ULONG WINAPI
ActiveScriptSite_Release(IActiveScriptSite
*iface
)
293 ScriptHost
*This
= impl_from_IActiveScriptSite(iface
);
294 LONG ref
= InterlockedDecrement(&This
->ref
);
296 TRACE("(%p) ref=%d\n", This
, ref
);
299 release_script_engine(This
);
301 list_remove(&This
->entry
);
308 static HRESULT WINAPI
ActiveScriptSite_GetLCID(IActiveScriptSite
*iface
, LCID
*plcid
)
310 ScriptHost
*This
= impl_from_IActiveScriptSite(iface
);
312 TRACE("(%p)->(%p)\n", This
, plcid
);
314 *plcid
= GetUserDefaultLCID();
318 static HRESULT WINAPI
ActiveScriptSite_GetItemInfo(IActiveScriptSite
*iface
, LPCOLESTR pstrName
,
319 DWORD dwReturnMask
, IUnknown
**ppiunkItem
, ITypeInfo
**ppti
)
321 ScriptHost
*This
= impl_from_IActiveScriptSite(iface
);
323 TRACE("(%p)->(%s %x %p %p)\n", This
, debugstr_w(pstrName
), dwReturnMask
, ppiunkItem
, ppti
);
325 if(dwReturnMask
!= SCRIPTINFO_IUNKNOWN
) {
326 FIXME("Unsupported mask %x\n", dwReturnMask
);
332 if(strcmpW(pstrName
, windowW
))
333 return DISP_E_MEMBERNOTFOUND
;
338 /* FIXME: Return proxy object */
339 *ppiunkItem
= (IUnknown
*)&This
->window
->base
.IHTMLWindow2_iface
;
340 IUnknown_AddRef(*ppiunkItem
);
345 static HRESULT WINAPI
ActiveScriptSite_GetDocVersionString(IActiveScriptSite
*iface
, BSTR
*pbstrVersion
)
347 ScriptHost
*This
= impl_from_IActiveScriptSite(iface
);
348 FIXME("(%p)->(%p)\n", This
, pbstrVersion
);
352 static HRESULT WINAPI
ActiveScriptSite_OnScriptTerminate(IActiveScriptSite
*iface
,
353 const VARIANT
*pvarResult
, const EXCEPINFO
*pexcepinfo
)
355 ScriptHost
*This
= impl_from_IActiveScriptSite(iface
);
356 FIXME("(%p)->(%p %p)\n", This
, pvarResult
, pexcepinfo
);
360 static HRESULT WINAPI
ActiveScriptSite_OnStateChange(IActiveScriptSite
*iface
, SCRIPTSTATE ssScriptState
)
362 ScriptHost
*This
= impl_from_IActiveScriptSite(iface
);
364 TRACE("(%p)->(%x)\n", This
, ssScriptState
);
366 This
->script_state
= ssScriptState
;
370 static HRESULT WINAPI
ActiveScriptSite_OnScriptError(IActiveScriptSite
*iface
, IActiveScriptError
*pscripterror
)
372 ScriptHost
*This
= impl_from_IActiveScriptSite(iface
);
373 FIXME("(%p)->(%p)\n", This
, pscripterror
);
377 static HRESULT WINAPI
ActiveScriptSite_OnEnterScript(IActiveScriptSite
*iface
)
379 ScriptHost
*This
= impl_from_IActiveScriptSite(iface
);
381 TRACE("(%p)->()\n", This
);
386 static HRESULT WINAPI
ActiveScriptSite_OnLeaveScript(IActiveScriptSite
*iface
)
388 ScriptHost
*This
= impl_from_IActiveScriptSite(iface
);
390 TRACE("(%p)->()\n", This
);
395 static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl
= {
396 ActiveScriptSite_QueryInterface
,
397 ActiveScriptSite_AddRef
,
398 ActiveScriptSite_Release
,
399 ActiveScriptSite_GetLCID
,
400 ActiveScriptSite_GetItemInfo
,
401 ActiveScriptSite_GetDocVersionString
,
402 ActiveScriptSite_OnScriptTerminate
,
403 ActiveScriptSite_OnStateChange
,
404 ActiveScriptSite_OnScriptError
,
405 ActiveScriptSite_OnEnterScript
,
406 ActiveScriptSite_OnLeaveScript
409 static inline ScriptHost
*impl_from_IActiveScriptSiteInterruptPoll(IActiveScriptSiteInterruptPoll
*iface
)
411 return CONTAINING_RECORD(iface
, ScriptHost
, IActiveScriptSiteInterruptPoll_iface
);
414 static HRESULT WINAPI
ActiveScriptSiteInterruptPoll_QueryInterface(IActiveScriptSiteInterruptPoll
*iface
,
415 REFIID riid
, void **ppv
)
417 ScriptHost
*This
= impl_from_IActiveScriptSiteInterruptPoll(iface
);
418 return IActiveScriptSite_QueryInterface(&This
->IActiveScriptSite_iface
, riid
, ppv
);
421 static ULONG WINAPI
ActiveScriptSiteInterruptPoll_AddRef(IActiveScriptSiteInterruptPoll
*iface
)
423 ScriptHost
*This
= impl_from_IActiveScriptSiteInterruptPoll(iface
);
424 return IActiveScriptSite_AddRef(&This
->IActiveScriptSite_iface
);
427 static ULONG WINAPI
ActiveScriptSiteInterruptPoll_Release(IActiveScriptSiteInterruptPoll
*iface
)
429 ScriptHost
*This
= impl_from_IActiveScriptSiteInterruptPoll(iface
);
430 return IActiveScriptSite_Release(&This
->IActiveScriptSite_iface
);
433 static HRESULT WINAPI
ActiveScriptSiteInterruptPoll_QueryContinue(IActiveScriptSiteInterruptPoll
*iface
)
435 ScriptHost
*This
= impl_from_IActiveScriptSiteInterruptPoll(iface
);
437 TRACE("(%p)\n", This
);
442 static const IActiveScriptSiteInterruptPollVtbl ActiveScriptSiteInterruptPollVtbl
= {
443 ActiveScriptSiteInterruptPoll_QueryInterface
,
444 ActiveScriptSiteInterruptPoll_AddRef
,
445 ActiveScriptSiteInterruptPoll_Release
,
446 ActiveScriptSiteInterruptPoll_QueryContinue
449 static inline ScriptHost
*impl_from_IActiveScriptSiteWindow(IActiveScriptSiteWindow
*iface
)
451 return CONTAINING_RECORD(iface
, ScriptHost
, IActiveScriptSiteWindow_iface
);
454 static HRESULT WINAPI
ActiveScriptSiteWindow_QueryInterface(IActiveScriptSiteWindow
*iface
,
455 REFIID riid
, void **ppv
)
457 ScriptHost
*This
= impl_from_IActiveScriptSiteWindow(iface
);
458 return IActiveScriptSite_QueryInterface(&This
->IActiveScriptSite_iface
, riid
, ppv
);
461 static ULONG WINAPI
ActiveScriptSiteWindow_AddRef(IActiveScriptSiteWindow
*iface
)
463 ScriptHost
*This
= impl_from_IActiveScriptSiteWindow(iface
);
464 return IActiveScriptSite_AddRef(&This
->IActiveScriptSite_iface
);
467 static ULONG WINAPI
ActiveScriptSiteWindow_Release(IActiveScriptSiteWindow
*iface
)
469 ScriptHost
*This
= impl_from_IActiveScriptSiteWindow(iface
);
470 return IActiveScriptSite_Release(&This
->IActiveScriptSite_iface
);
473 static HRESULT WINAPI
ActiveScriptSiteWindow_GetWindow(IActiveScriptSiteWindow
*iface
, HWND
*phwnd
)
475 ScriptHost
*This
= impl_from_IActiveScriptSiteWindow(iface
);
476 FIXME("(%p)->(%p)\n", This
, phwnd
);
480 static HRESULT WINAPI
ActiveScriptSiteWindow_EnableModeless(IActiveScriptSiteWindow
*iface
, BOOL fEnable
)
482 ScriptHost
*This
= impl_from_IActiveScriptSiteWindow(iface
);
483 FIXME("(%p)->(%x)\n", This
, fEnable
);
487 static const IActiveScriptSiteWindowVtbl ActiveScriptSiteWindowVtbl
= {
488 ActiveScriptSiteWindow_QueryInterface
,
489 ActiveScriptSiteWindow_AddRef
,
490 ActiveScriptSiteWindow_Release
,
491 ActiveScriptSiteWindow_GetWindow
,
492 ActiveScriptSiteWindow_EnableModeless
495 static inline ScriptHost
*impl_from_IActiveScriptSiteDebug(IActiveScriptSiteDebug
*iface
)
497 return CONTAINING_RECORD(iface
, ScriptHost
, IActiveScriptSiteDebug_iface
);
500 static HRESULT WINAPI
ActiveScriptSiteDebug_QueryInterface(IActiveScriptSiteDebug
*iface
,
501 REFIID riid
, void **ppv
)
503 ScriptHost
*This
= impl_from_IActiveScriptSiteDebug(iface
);
504 return IActiveScriptSite_QueryInterface(&This
->IActiveScriptSite_iface
, riid
, ppv
);
507 static ULONG WINAPI
ActiveScriptSiteDebug_AddRef(IActiveScriptSiteDebug
*iface
)
509 ScriptHost
*This
= impl_from_IActiveScriptSiteDebug(iface
);
510 return IActiveScriptSite_AddRef(&This
->IActiveScriptSite_iface
);
513 static ULONG WINAPI
ActiveScriptSiteDebug_Release(IActiveScriptSiteDebug
*iface
)
515 ScriptHost
*This
= impl_from_IActiveScriptSiteDebug(iface
);
516 return IActiveScriptSite_Release(&This
->IActiveScriptSite_iface
);
519 static HRESULT WINAPI
ActiveScriptSiteDebug_GetDocumentContextFromPosition(IActiveScriptSiteDebug
*iface
,
520 CTXARG_T dwSourceContext
, ULONG uCharacterOffset
, ULONG uNumChars
, IDebugDocumentContext
**ppsc
)
522 ScriptHost
*This
= impl_from_IActiveScriptSiteDebug(iface
);
523 FIXME("(%p)->(%s %u %u %p)\n", This
, wine_dbgstr_longlong(dwSourceContext
), uCharacterOffset
,
528 static HRESULT WINAPI
ActiveScriptSiteDebug_GetApplication(IActiveScriptSiteDebug
*iface
, IDebugApplication
**ppda
)
530 ScriptHost
*This
= impl_from_IActiveScriptSiteDebug(iface
);
531 FIXME("(%p)->(%p)\n", This
, ppda
);
535 static HRESULT WINAPI
ActiveScriptSiteDebug_GetRootApplicationNode(IActiveScriptSiteDebug
*iface
,
536 IDebugApplicationNode
**ppdanRoot
)
538 ScriptHost
*This
= impl_from_IActiveScriptSiteDebug(iface
);
539 FIXME("(%p)->(%p)\n", This
, ppdanRoot
);
543 static HRESULT WINAPI
ActiveScriptSiteDebug_OnScriptErrorDebug(IActiveScriptSiteDebug
*iface
,
544 IActiveScriptErrorDebug
*pErrorDebug
, BOOL
*pfEnterDebugger
, BOOL
*pfCallOnScriptErrorWhenContinuing
)
546 ScriptHost
*This
= impl_from_IActiveScriptSiteDebug(iface
);
547 FIXME("(%p)->(%p %p %p)\n", This
, pErrorDebug
, pfEnterDebugger
, pfCallOnScriptErrorWhenContinuing
);
551 static const IActiveScriptSiteDebugVtbl ActiveScriptSiteDebugVtbl
= {
552 ActiveScriptSiteDebug_QueryInterface
,
553 ActiveScriptSiteDebug_AddRef
,
554 ActiveScriptSiteDebug_Release
,
555 ActiveScriptSiteDebug_GetDocumentContextFromPosition
,
556 ActiveScriptSiteDebug_GetApplication
,
557 ActiveScriptSiteDebug_GetRootApplicationNode
,
558 ActiveScriptSiteDebug_OnScriptErrorDebug
561 static inline ScriptHost
*impl_from_IServiceProvider(IServiceProvider
*iface
)
563 return CONTAINING_RECORD(iface
, ScriptHost
, IServiceProvider_iface
);
566 static HRESULT WINAPI
ASServiceProvider_QueryInterface(IServiceProvider
*iface
, REFIID riid
, void **ppv
)
568 ScriptHost
*This
= impl_from_IServiceProvider(iface
);
569 return IActiveScriptSite_QueryInterface(&This
->IActiveScriptSite_iface
, riid
, ppv
);
572 static ULONG WINAPI
ASServiceProvider_AddRef(IServiceProvider
*iface
)
574 ScriptHost
*This
= impl_from_IServiceProvider(iface
);
575 return IActiveScriptSite_AddRef(&This
->IActiveScriptSite_iface
);
578 static ULONG WINAPI
ASServiceProvider_Release(IServiceProvider
*iface
)
580 ScriptHost
*This
= impl_from_IServiceProvider(iface
);
581 return IActiveScriptSite_Release(&This
->IActiveScriptSite_iface
);
584 static HRESULT WINAPI
ASServiceProvider_QueryService(IServiceProvider
*iface
, REFGUID guidService
,
585 REFIID riid
, void **ppv
)
587 ScriptHost
*This
= impl_from_IServiceProvider(iface
);
589 if(IsEqualGUID(&SID_SInternetHostSecurityManager
, guidService
)) {
590 TRACE("(%p)->(SID_SInternetHostSecurityManager)\n", This
);
592 if(!This
->window
|| !This
->window
->doc
)
593 return E_NOINTERFACE
;
595 return IInternetHostSecurityManager_QueryInterface(&This
->window
->doc
->IInternetHostSecurityManager_iface
,
599 FIXME("(%p)->(%s %s %p)\n", This
, debugstr_guid(guidService
), debugstr_guid(riid
), ppv
);
600 return E_NOINTERFACE
;
603 static const IServiceProviderVtbl ASServiceProviderVtbl
= {
604 ASServiceProvider_QueryInterface
,
605 ASServiceProvider_AddRef
,
606 ASServiceProvider_Release
,
607 ASServiceProvider_QueryService
610 static ScriptHost
*create_script_host(HTMLInnerWindow
*window
, const GUID
*guid
)
615 ret
= heap_alloc_zero(sizeof(*ret
));
616 ret
->IActiveScriptSite_iface
.lpVtbl
= &ActiveScriptSiteVtbl
;
617 ret
->IActiveScriptSiteInterruptPoll_iface
.lpVtbl
= &ActiveScriptSiteInterruptPollVtbl
;
618 ret
->IActiveScriptSiteWindow_iface
.lpVtbl
= &ActiveScriptSiteWindowVtbl
;
619 ret
->IActiveScriptSiteDebug_iface
.lpVtbl
= &ActiveScriptSiteDebugVtbl
;
620 ret
->IServiceProvider_iface
.lpVtbl
= &ASServiceProviderVtbl
;
622 ret
->window
= window
;
623 ret
->script_state
= SCRIPTSTATE_UNINITIALIZED
;
626 list_add_tail(&window
->script_hosts
, &ret
->entry
);
628 hres
= CoCreateInstance(&ret
->guid
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
629 &IID_IActiveScript
, (void**)&ret
->script
);
631 WARN("Could not load script engine: %08x\n", hres
);
632 else if(!init_script_engine(ret
))
633 release_script_engine(ret
);
638 static void parse_text(ScriptHost
*script_host
, LPCWSTR text
)
644 static const WCHAR script_endW
[] = {'<','/','S','C','R','I','P','T','>',0};
646 TRACE("%s\n", debugstr_w(text
));
649 memset(&excepinfo
, 0, sizeof(excepinfo
));
651 hres
= IActiveScriptParse_ParseScriptText(script_host
->parse
, text
, windowW
, NULL
, script_endW
,
652 0, 0, SCRIPTTEXT_ISVISIBLE
|SCRIPTTEXT_HOSTMANAGESSOURCE
,
657 WARN("<<< %08x\n", hres
);
661 static void parse_extern_script(ScriptHost
*script_host
, LPCWSTR src
)
669 static const WCHAR wine_schemaW
[] = {'w','i','n','e',':'};
671 if(strlenW(src
) > sizeof(wine_schemaW
)/sizeof(WCHAR
) && !memcmp(src
, wine_schemaW
, sizeof(wine_schemaW
)))
672 src
+= sizeof(wine_schemaW
)/sizeof(WCHAR
);
674 hres
= CreateURLMoniker(NULL
, src
, &mon
);
678 hres
= bind_mon_to_buffer(script_host
->window
, mon
, (void**)&buf
, &size
);
679 IMoniker_Release(mon
);
683 len
= MultiByteToWideChar(CP_ACP
, 0, buf
, size
, NULL
, 0);
684 text
= heap_alloc((len
+1)*sizeof(WCHAR
));
685 MultiByteToWideChar(CP_ACP
, 0, buf
, size
, text
, len
);
689 parse_text(script_host
, text
);
694 static void parse_inline_script(ScriptHost
*script_host
, nsIDOMHTMLScriptElement
*nsscript
)
696 const PRUnichar
*text
;
700 nsAString_Init(&text_str
, NULL
);
702 nsres
= nsIDOMHTMLScriptElement_GetText(nsscript
, &text_str
);
704 if(NS_SUCCEEDED(nsres
)) {
705 nsAString_GetData(&text_str
, &text
);
706 parse_text(script_host
, text
);
708 ERR("GetText failed: %08x\n", nsres
);
711 nsAString_Finish(&text_str
);
714 static void parse_script_elem(ScriptHost
*script_host
, nsIDOMHTMLScriptElement
*nsscript
)
716 const PRUnichar
*src
;
720 nsAString_Init(&src_str
, NULL
);
722 nsres
= nsIDOMHTMLScriptElement_GetSrc(nsscript
, &src_str
);
723 nsAString_GetData(&src_str
, &src
);
726 ERR("GetSrc failed: %08x\n", nsres
);
728 parse_extern_script(script_host
, src
);
730 parse_inline_script(script_host
, nsscript
);
732 nsAString_Finish(&src_str
);
735 static BOOL
get_guid_from_type(LPCWSTR type
, GUID
*guid
)
737 const WCHAR text_javascriptW
[] =
738 {'t','e','x','t','/','j','a','v','a','s','c','r','i','p','t',0};
739 const WCHAR text_vbscriptW
[] =
740 {'t','e','x','t','/','v','b','s','c','r','i','p','t',0};
742 /* FIXME: Handle more types */
743 if(!strcmpiW(type
, text_javascriptW
)) {
744 *guid
= CLSID_JScript
;
745 }else if(!strcmpiW(type
, text_vbscriptW
)) {
746 *guid
= CLSID_VBScript
;
748 FIXME("Unknown type %s\n", debugstr_w(type
));
755 static BOOL
get_guid_from_language(LPCWSTR type
, GUID
*guid
)
759 hres
= CLSIDFromProgID(type
, guid
);
763 /* FIXME: Check CATID_ActiveScriptParse */
768 static BOOL
get_script_guid(nsIDOMHTMLScriptElement
*nsscript
, GUID
*guid
)
770 nsAString attr_str
, val_str
;
774 static const PRUnichar languageW
[] = {'l','a','n','g','u','a','g','e',0};
776 nsAString_Init(&val_str
, NULL
);
778 nsres
= nsIDOMHTMLScriptElement_GetType(nsscript
, &val_str
);
779 if(NS_SUCCEEDED(nsres
)) {
780 const PRUnichar
*type
;
782 nsAString_GetData(&val_str
, &type
);
784 ret
= get_guid_from_type(type
, guid
);
785 nsAString_Finish(&val_str
);
789 ERR("GetType failed: %08x\n", nsres
);
792 nsAString_InitDepend(&attr_str
, languageW
);
793 nsres
= nsIDOMHTMLScriptElement_GetAttribute(nsscript
, &attr_str
, &val_str
);
794 nsAString_Finish(&attr_str
);
795 if(NS_SUCCEEDED(nsres
)) {
796 const PRUnichar
*language
;
798 nsAString_GetData(&val_str
, &language
);
801 ret
= get_guid_from_language(language
, guid
);
803 *guid
= CLSID_JScript
;
807 ERR("GetAttribute(language) failed: %08x\n", nsres
);
810 nsAString_Finish(&val_str
);
815 static ScriptHost
*get_script_host(HTMLInnerWindow
*window
, const GUID
*guid
)
819 LIST_FOR_EACH_ENTRY(iter
, &window
->script_hosts
, ScriptHost
, entry
) {
820 if(IsEqualGUID(guid
, &iter
->guid
))
824 return create_script_host(window
, guid
);
827 void doc_insert_script(HTMLInnerWindow
*window
, nsIDOMHTMLScriptElement
*nsscript
)
829 ScriptHost
*script_host
;
832 if(!get_script_guid(nsscript
, &guid
)) {
833 WARN("Could not find script GUID\n");
837 if(IsEqualGUID(&CLSID_JScript
, &guid
)
838 && (!window
->base
.outer_window
|| window
->base
.outer_window
->scriptmode
!= SCRIPTMODE_ACTIVESCRIPT
)) {
839 TRACE("Ignoring JScript\n");
843 script_host
= get_script_host(window
, &guid
);
847 if(script_host
->parse
)
848 parse_script_elem(script_host
, nsscript
);
851 IDispatch
*script_parse_event(HTMLInnerWindow
*window
, LPCWSTR text
)
853 ScriptHost
*script_host
;
854 GUID guid
= CLSID_JScript
;
859 static const WCHAR delimiterW
[] = {'\"',0};
861 for(ptr
= text
; isalnumW(*ptr
); ptr
++);
866 language
= heap_alloc((ptr
-text
+1)*sizeof(WCHAR
));
867 memcpy(language
, text
, (ptr
-text
)*sizeof(WCHAR
));
868 language
[ptr
-text
] = 0;
870 b
= get_guid_from_language(language
, &guid
);
875 WARN("Could not find language\n");
884 if(IsEqualGUID(&CLSID_JScript
, &guid
)
885 && (!window
->base
.outer_window
|| window
->base
.outer_window
->scriptmode
!= SCRIPTMODE_ACTIVESCRIPT
)) {
886 TRACE("Ignoring JScript\n");
890 script_host
= get_script_host(window
, &guid
);
891 if(!script_host
|| !script_host
->parse_proc
)
894 hres
= IActiveScriptParseProcedure_ParseProcedureText(script_host
->parse_proc
, ptr
, NULL
, emptyW
,
895 NULL
, NULL
, delimiterW
, 0 /* FIXME */, 0,
896 SCRIPTPROC_HOSTMANAGESSOURCE
|SCRIPTPROC_IMPLICIT_THIS
|SCRIPTPROC_IMPLICIT_PARENTS
, &disp
);
898 WARN("ParseProcedureText failed: %08x\n", hres
);
902 TRACE("ret %p\n", disp
);
906 HRESULT
exec_script(HTMLInnerWindow
*window
, const WCHAR
*code
, const WCHAR
*lang
, VARIANT
*ret
)
908 ScriptHost
*script_host
;
913 static const WCHAR delimW
[] = {'"',0};
915 if(!get_guid_from_language(lang
, &guid
)) {
916 WARN("Could not find script GUID\n");
917 return CO_E_CLASSSTRING
;
920 script_host
= get_script_host(window
, &guid
);
922 FIXME("No script host\n");
926 if(!script_host
->parse
) {
927 FIXME("script_host->parse == NULL\n");
931 memset(&ei
, 0, sizeof(ei
));
933 hres
= IActiveScriptParse_ParseScriptText(script_host
->parse
, code
, NULL
, NULL
, delimW
, 0, 0, SCRIPTTEXT_ISVISIBLE
, ret
, &ei
);
937 WARN("<<< %08x\n", hres
);
942 IDispatch
*get_script_disp(ScriptHost
*script_host
)
947 if(!script_host
->script
)
950 hres
= IActiveScript_GetScriptDispatch(script_host
->script
, windowW
, &disp
);
957 BOOL
find_global_prop(HTMLInnerWindow
*window
, BSTR name
, DWORD flags
, ScriptHost
**ret_host
, DISPID
*ret_id
)
964 LIST_FOR_EACH_ENTRY(iter
, &window
->script_hosts
, ScriptHost
, entry
) {
965 disp
= get_script_disp(iter
);
969 hres
= IDispatch_QueryInterface(disp
, &IID_IDispatchEx
, (void**)&dispex
);
970 if(SUCCEEDED(hres
)) {
971 hres
= IDispatchEx_GetDispID(dispex
, name
, flags
& (~fdexNameEnsure
), ret_id
);
972 IDispatchEx_Release(dispex
);
974 FIXME("No IDispatchEx\n");
978 IDispatch_Release(disp
);
979 if(SUCCEEDED(hres
)) {
988 static BOOL
is_jscript_available(void)
990 static BOOL available
, checked
;
994 HRESULT hres
= CoGetClassObject(&CLSID_JScript
, CLSCTX_INPROC_SERVER
, NULL
, &IID_IUnknown
, (void**)&unk
);
996 if(SUCCEEDED(hres
)) {
998 IUnknown_Release(unk
);
1008 void set_script_mode(HTMLOuterWindow
*window
, SCRIPTMODE mode
)
1010 nsIWebBrowserSetup
*setup
;
1013 if(mode
== SCRIPTMODE_ACTIVESCRIPT
&& !is_jscript_available()) {
1014 TRACE("jscript.dll not available\n");
1015 window
->scriptmode
= SCRIPTMODE_GECKO
;
1019 window
->scriptmode
= mode
;
1021 if(!window
->doc_obj
->nscontainer
|| !window
->doc_obj
->nscontainer
->webbrowser
)
1024 nsres
= nsIWebBrowser_QueryInterface(window
->doc_obj
->nscontainer
->webbrowser
,
1025 &IID_nsIWebBrowserSetup
, (void**)&setup
);
1026 if(NS_SUCCEEDED(nsres
)) {
1027 nsres
= nsIWebBrowserSetup_SetProperty(setup
, SETUP_ALLOW_JAVASCRIPT
,
1028 window
->scriptmode
== SCRIPTMODE_GECKO
);
1029 nsIWebBrowserSetup_Release(setup
);
1032 if(NS_FAILED(nsres
))
1033 ERR("JavaScript setup failed: %08x\n", nsres
);
1036 void release_script_hosts(HTMLInnerWindow
*window
)
1040 while(!list_empty(&window
->script_hosts
)) {
1041 iter
= LIST_ENTRY(list_head(&window
->script_hosts
), ScriptHost
, entry
);
1043 release_script_engine(iter
);
1044 list_remove(&iter
->entry
);
1045 iter
->window
= NULL
;
1046 IActiveScriptSite_Release(&iter
->IActiveScriptSite_iface
);