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
23 #include "wine/debug.h"
25 WINE_DEFAULT_DEBUG_CHANNEL(jscript
);
29 #define CTXARG_T DWORDLONG
30 #define IActiveScriptParseVtbl IActiveScriptParse64Vtbl
31 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_64Vtbl
35 #define CTXARG_T DWORD
36 #define IActiveScriptParseVtbl IActiveScriptParse32Vtbl
37 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_32Vtbl
42 IActiveScript IActiveScript_iface
;
43 IActiveScriptParse IActiveScriptParse_iface
;
44 IActiveScriptParseProcedure2 IActiveScriptParseProcedure2_iface
;
45 IActiveScriptProperty IActiveScriptProperty_iface
;
46 IObjectSafety IObjectSafety_iface
;
56 IActiveScriptSite
*site
;
58 parser_ctx_t
*queue_head
;
59 parser_ctx_t
*queue_tail
;
62 void script_release(script_ctx_t
*ctx
)
69 jsheap_free(&ctx
->tmp_heap
);
70 SysFreeString(ctx
->last_match
);
74 static void change_state(JScript
*This
, SCRIPTSTATE state
)
76 if(This
->ctx
->state
== state
)
79 This
->ctx
->state
= state
;
80 IActiveScriptSite_OnStateChange(This
->site
, state
);
83 static inline BOOL
is_started(script_ctx_t
*ctx
)
85 return ctx
->state
== SCRIPTSTATE_STARTED
86 || ctx
->state
== SCRIPTSTATE_CONNECTED
87 || ctx
->state
== SCRIPTSTATE_DISCONNECTED
;
90 static HRESULT
exec_global_code(JScript
*This
, parser_ctx_t
*parser_ctx
)
96 hres
= create_exec_ctx(This
->ctx
, NULL
, This
->ctx
->global
, NULL
, TRUE
, &exec_ctx
);
100 IActiveScriptSite_OnEnterScript(This
->site
);
102 memset(&jsexcept
, 0, sizeof(jsexcept
));
103 hres
= exec_source(exec_ctx
, parser_ctx
, parser_ctx
->source
, FALSE
, &jsexcept
, NULL
);
104 VariantClear(&jsexcept
.var
);
105 exec_release(exec_ctx
);
107 IActiveScriptSite_OnLeaveScript(This
->site
);
111 static void clear_script_queue(JScript
*This
)
113 parser_ctx_t
*iter
, *iter2
;
115 if(!This
->queue_head
)
118 iter
= This
->queue_head
;
122 parser_release(iter
);
126 This
->queue_head
= This
->queue_tail
= NULL
;
129 static void exec_queued_code(JScript
*This
)
133 for(iter
= This
->queue_head
; iter
; iter
= iter
->next
)
134 exec_global_code(This
, iter
);
136 clear_script_queue(This
);
139 static HRESULT
set_ctx_site(JScript
*This
)
143 This
->ctx
->lcid
= This
->lcid
;
145 hres
= init_global(This
->ctx
);
149 IActiveScriptSite_AddRef(This
->site
);
150 This
->ctx
->site
= This
->site
;
152 change_state(This
, SCRIPTSTATE_INITIALIZED
);
157 IServiceProvider IServiceProvider_iface
;
161 IServiceProvider
*sp
;
164 static inline AXSite
*impl_from_IServiceProvider(IServiceProvider
*iface
)
166 return CONTAINING_RECORD(iface
, AXSite
, IServiceProvider_iface
);
169 static HRESULT WINAPI
AXSite_QueryInterface(IServiceProvider
*iface
, REFIID riid
, void **ppv
)
171 AXSite
*This
= impl_from_IServiceProvider(iface
);
173 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
174 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
175 *ppv
= &This
->IServiceProvider_iface
;
176 }else if(IsEqualGUID(&IID_IServiceProvider
, riid
)) {
177 TRACE("(%p)->(IID_IServiceProvider %p)\n", This
, ppv
);
178 *ppv
= &This
->IServiceProvider_iface
;
180 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
182 return E_NOINTERFACE
;
185 IUnknown_AddRef((IUnknown
*)*ppv
);
189 static ULONG WINAPI
AXSite_AddRef(IServiceProvider
*iface
)
191 AXSite
*This
= impl_from_IServiceProvider(iface
);
192 LONG ref
= InterlockedIncrement(&This
->ref
);
194 TRACE("(%p) ref=%d\n", This
, ref
);
199 static ULONG WINAPI
AXSite_Release(IServiceProvider
*iface
)
201 AXSite
*This
= impl_from_IServiceProvider(iface
);
202 LONG ref
= InterlockedDecrement(&This
->ref
);
204 TRACE("(%p) ref=%d\n", This
, ref
);
212 static HRESULT WINAPI
AXSite_QueryService(IServiceProvider
*iface
,
213 REFGUID guidService
, REFIID riid
, void **ppv
)
215 AXSite
*This
= impl_from_IServiceProvider(iface
);
217 TRACE("(%p)->(%s %s %p)\n", This
, debugstr_guid(guidService
), debugstr_guid(riid
), ppv
);
219 return IServiceProvider_QueryService(This
->sp
, guidService
, riid
, ppv
);
222 static IServiceProviderVtbl AXSiteVtbl
= {
223 AXSite_QueryInterface
,
229 IUnknown
*create_ax_site(script_ctx_t
*ctx
)
231 IServiceProvider
*sp
;
235 hres
= IActiveScriptSite_QueryInterface(ctx
->site
, &IID_IServiceProvider
, (void**)&sp
);
237 ERR("Could not get IServiceProvider iface: %08x\n", hres
);
241 ret
= heap_alloc(sizeof(AXSite
));
243 IServiceProvider_Release(sp
);
247 ret
->IServiceProvider_iface
.lpVtbl
= &AXSiteVtbl
;
251 return (IUnknown
*)&ret
->IServiceProvider_iface
;
254 static inline JScript
*impl_from_IActiveScript(IActiveScript
*iface
)
256 return CONTAINING_RECORD(iface
, JScript
, IActiveScript_iface
);
259 static HRESULT WINAPI
JScript_QueryInterface(IActiveScript
*iface
, REFIID riid
, void **ppv
)
261 JScript
*This
= impl_from_IActiveScript(iface
);
265 if(IsEqualGUID(riid
, &IID_IUnknown
)) {
266 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
267 *ppv
= &This
->IActiveScript_iface
;
268 }else if(IsEqualGUID(riid
, &IID_IActiveScript
)) {
269 TRACE("(%p)->(IID_IActiveScript %p)\n", This
, ppv
);
270 *ppv
= &This
->IActiveScript_iface
;
271 }else if(IsEqualGUID(riid
, &IID_IActiveScriptParse
)) {
272 TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This
, ppv
);
273 *ppv
= &This
->IActiveScriptParse_iface
;
274 }else if(IsEqualGUID(riid
, &IID_IActiveScriptParseProcedure
)) {
275 TRACE("(%p)->(IID_IActiveScriptParseProcedure %p)\n", This
, ppv
);
276 *ppv
= &This
->IActiveScriptParseProcedure2_iface
;
277 }else if(IsEqualGUID(riid
, &IID_IActiveScriptParseProcedure2
)) {
278 TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This
, ppv
);
279 *ppv
= &This
->IActiveScriptParseProcedure2_iface
;
280 }else if(IsEqualGUID(riid
, &IID_IActiveScriptProperty
)) {
281 TRACE("(%p)->(IID_IActiveScriptProperty %p)\n", This
, ppv
);
282 *ppv
= &This
->IActiveScriptProperty_iface
;
283 }else if(IsEqualGUID(riid
, &IID_IObjectSafety
)) {
284 TRACE("(%p)->(IID_IObjectSafety %p)\n", This
, ppv
);
285 *ppv
= &This
->IObjectSafety_iface
;
289 IUnknown_AddRef((IUnknown
*)*ppv
);
293 FIXME("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
294 return E_NOINTERFACE
;
297 static ULONG WINAPI
JScript_AddRef(IActiveScript
*iface
)
299 JScript
*This
= impl_from_IActiveScript(iface
);
300 LONG ref
= InterlockedIncrement(&This
->ref
);
302 TRACE("(%p) ref=%d\n", This
, ref
);
307 static ULONG WINAPI
JScript_Release(IActiveScript
*iface
)
309 JScript
*This
= impl_from_IActiveScript(iface
);
310 LONG ref
= InterlockedDecrement(&This
->ref
);
312 TRACE("(%p) ref=%d\n", iface
, ref
);
315 if(This
->ctx
&& This
->ctx
->state
!= SCRIPTSTATE_CLOSED
)
316 IActiveScript_Close(&This
->IActiveScript_iface
);
318 script_release(This
->ctx
);
326 static HRESULT WINAPI
JScript_SetScriptSite(IActiveScript
*iface
,
327 IActiveScriptSite
*pass
)
329 JScript
*This
= impl_from_IActiveScript(iface
);
333 TRACE("(%p)->(%p)\n", This
, pass
);
341 if(InterlockedCompareExchange(&This
->thread_id
, GetCurrentThreadId(), 0))
345 IActiveScriptSite_AddRef(This
->site
);
347 hres
= IActiveScriptSite_GetLCID(This
->site
, &lcid
);
351 return This
->ctx
? set_ctx_site(This
) : S_OK
;
354 static HRESULT WINAPI
JScript_GetScriptSite(IActiveScript
*iface
, REFIID riid
,
357 JScript
*This
= impl_from_IActiveScript(iface
);
358 FIXME("(%p)->()\n", This
);
362 static HRESULT WINAPI
JScript_SetScriptState(IActiveScript
*iface
, SCRIPTSTATE ss
)
364 JScript
*This
= impl_from_IActiveScript(iface
);
366 TRACE("(%p)->(%d)\n", This
, ss
);
368 if(!This
->ctx
|| GetCurrentThreadId() != This
->thread_id
)
372 case SCRIPTSTATE_STARTED
:
373 case SCRIPTSTATE_CONNECTED
: /* FIXME */
374 if(This
->ctx
->state
== SCRIPTSTATE_CLOSED
)
377 exec_queued_code(This
);
379 case SCRIPTSTATE_INITIALIZED
:
380 FIXME("unimplemented SCRIPTSTATE_INITIALIZED\n");
383 FIXME("unimplemented state %d\n", ss
);
387 change_state(This
, ss
);
391 static HRESULT WINAPI
JScript_GetScriptState(IActiveScript
*iface
, SCRIPTSTATE
*pssState
)
393 JScript
*This
= impl_from_IActiveScript(iface
);
395 TRACE("(%p)->(%p)\n", This
, pssState
);
400 if(!This
->thread_id
) {
401 *pssState
= SCRIPTSTATE_UNINITIALIZED
;
405 if(This
->thread_id
!= GetCurrentThreadId())
408 *pssState
= This
->ctx
? This
->ctx
->state
: SCRIPTSTATE_UNINITIALIZED
;
412 static HRESULT WINAPI
JScript_Close(IActiveScript
*iface
)
414 JScript
*This
= impl_from_IActiveScript(iface
);
416 TRACE("(%p)->()\n", This
);
418 if(This
->thread_id
!= GetCurrentThreadId())
422 if(This
->ctx
->state
== SCRIPTSTATE_CONNECTED
)
423 change_state(This
, SCRIPTSTATE_DISCONNECTED
);
425 clear_script_queue(This
);
427 if(This
->ctx
->state
== SCRIPTSTATE_DISCONNECTED
)
428 change_state(This
, SCRIPTSTATE_INITIALIZED
);
430 if(This
->ctx
->host_global
) {
431 IDispatch_Release(This
->ctx
->host_global
);
432 This
->ctx
->host_global
= NULL
;
435 if(This
->ctx
->named_items
) {
436 named_item_t
*iter
, *iter2
;
438 iter
= This
->ctx
->named_items
;
443 IDispatch_Release(iter
->disp
);
444 heap_free(iter
->name
);
449 This
->ctx
->named_items
= NULL
;
452 if(This
->ctx
->secmgr
) {
453 IInternetHostSecurityManager_Release(This
->ctx
->secmgr
);
454 This
->ctx
->secmgr
= NULL
;
457 if(This
->ctx
->site
) {
458 IActiveScriptSite_Release(This
->ctx
->site
);
459 This
->ctx
->site
= NULL
;
463 change_state(This
, SCRIPTSTATE_CLOSED
);
465 if(This
->ctx
->global
) {
466 jsdisp_release(This
->ctx
->global
);
467 This
->ctx
->global
= NULL
;
472 IActiveScriptSite_Release(This
->site
);
479 static HRESULT WINAPI
JScript_AddNamedItem(IActiveScript
*iface
,
480 LPCOLESTR pstrName
, DWORD dwFlags
)
482 JScript
*This
= impl_from_IActiveScript(iface
);
484 IDispatch
*disp
= NULL
;
487 TRACE("(%p)->(%s %x)\n", This
, debugstr_w(pstrName
), dwFlags
);
489 if(This
->thread_id
!= GetCurrentThreadId() || !This
->ctx
|| This
->ctx
->state
== SCRIPTSTATE_CLOSED
)
492 if(dwFlags
& SCRIPTITEM_GLOBALMEMBERS
) {
495 hres
= IActiveScriptSite_GetItemInfo(This
->site
, pstrName
, SCRIPTINFO_IUNKNOWN
, &unk
, NULL
);
497 WARN("GetItemInfo failed: %08x\n", hres
);
501 hres
= IUnknown_QueryInterface(unk
, &IID_IDispatch
, (void**)&disp
);
502 IUnknown_Release(unk
);
504 WARN("object does not implement IDispatch\n");
508 if(This
->ctx
->host_global
)
509 IDispatch_Release(This
->ctx
->host_global
);
510 IDispatch_AddRef(disp
);
511 This
->ctx
->host_global
= disp
;
514 item
= heap_alloc(sizeof(*item
));
517 IDispatch_Release(disp
);
518 return E_OUTOFMEMORY
;
522 item
->flags
= dwFlags
;
523 item
->name
= heap_strdupW(pstrName
);
525 IDispatch_Release(disp
);
527 return E_OUTOFMEMORY
;
530 item
->next
= This
->ctx
->named_items
;
531 This
->ctx
->named_items
= item
;
536 static HRESULT WINAPI
JScript_AddTypeLib(IActiveScript
*iface
, REFGUID rguidTypeLib
,
537 DWORD dwMajor
, DWORD dwMinor
, DWORD dwFlags
)
539 JScript
*This
= impl_from_IActiveScript(iface
);
540 FIXME("(%p)->()\n", This
);
544 static HRESULT WINAPI
JScript_GetScriptDispatch(IActiveScript
*iface
, LPCOLESTR pstrItemName
,
547 JScript
*This
= impl_from_IActiveScript(iface
);
549 TRACE("(%p)->(%p)\n", This
, ppdisp
);
554 if(This
->thread_id
!= GetCurrentThreadId() || !This
->ctx
->global
) {
559 *ppdisp
= to_disp(This
->ctx
->global
);
560 IDispatch_AddRef(*ppdisp
);
564 static HRESULT WINAPI
JScript_GetCurrentScriptThreadID(IActiveScript
*iface
,
565 SCRIPTTHREADID
*pstridThread
)
567 JScript
*This
= impl_from_IActiveScript(iface
);
568 FIXME("(%p)->()\n", This
);
572 static HRESULT WINAPI
JScript_GetScriptThreadID(IActiveScript
*iface
,
573 DWORD dwWin32ThreadId
, SCRIPTTHREADID
*pstidThread
)
575 JScript
*This
= impl_from_IActiveScript(iface
);
576 FIXME("(%p)->()\n", This
);
580 static HRESULT WINAPI
JScript_GetScriptThreadState(IActiveScript
*iface
,
581 SCRIPTTHREADID stidThread
, SCRIPTTHREADSTATE
*pstsState
)
583 JScript
*This
= impl_from_IActiveScript(iface
);
584 FIXME("(%p)->()\n", This
);
588 static HRESULT WINAPI
JScript_InterruptScriptThread(IActiveScript
*iface
,
589 SCRIPTTHREADID stidThread
, const EXCEPINFO
*pexcepinfo
, DWORD dwFlags
)
591 JScript
*This
= impl_from_IActiveScript(iface
);
592 FIXME("(%p)->()\n", This
);
596 static HRESULT WINAPI
JScript_Clone(IActiveScript
*iface
, IActiveScript
**ppscript
)
598 JScript
*This
= impl_from_IActiveScript(iface
);
599 FIXME("(%p)->()\n", This
);
603 static const IActiveScriptVtbl JScriptVtbl
= {
604 JScript_QueryInterface
,
607 JScript_SetScriptSite
,
608 JScript_GetScriptSite
,
609 JScript_SetScriptState
,
610 JScript_GetScriptState
,
612 JScript_AddNamedItem
,
614 JScript_GetScriptDispatch
,
615 JScript_GetCurrentScriptThreadID
,
616 JScript_GetScriptThreadID
,
617 JScript_GetScriptThreadState
,
618 JScript_InterruptScriptThread
,
622 static inline JScript
*impl_from_IActiveScriptParse(IActiveScriptParse
*iface
)
624 return CONTAINING_RECORD(iface
, JScript
, IActiveScriptParse_iface
);
627 static HRESULT WINAPI
JScriptParse_QueryInterface(IActiveScriptParse
*iface
, REFIID riid
, void **ppv
)
629 JScript
*This
= impl_from_IActiveScriptParse(iface
);
630 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
633 static ULONG WINAPI
JScriptParse_AddRef(IActiveScriptParse
*iface
)
635 JScript
*This
= impl_from_IActiveScriptParse(iface
);
636 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
639 static ULONG WINAPI
JScriptParse_Release(IActiveScriptParse
*iface
)
641 JScript
*This
= impl_from_IActiveScriptParse(iface
);
642 return IActiveScript_Release(&This
->IActiveScript_iface
);
645 static HRESULT WINAPI
JScriptParse_InitNew(IActiveScriptParse
*iface
)
647 JScript
*This
= impl_from_IActiveScriptParse(iface
);
650 TRACE("(%p)\n", This
);
655 ctx
= heap_alloc_zero(sizeof(script_ctx_t
));
657 return E_OUTOFMEMORY
;
660 ctx
->state
= SCRIPTSTATE_UNINITIALIZED
;
661 ctx
->safeopt
= This
->safeopt
;
662 ctx
->version
= This
->version
;
663 jsheap_init(&ctx
->tmp_heap
);
665 ctx
= InterlockedCompareExchangePointer((void**)&This
->ctx
, ctx
, NULL
);
671 return This
->site
? set_ctx_site(This
) : S_OK
;
674 static HRESULT WINAPI
JScriptParse_AddScriptlet(IActiveScriptParse
*iface
,
675 LPCOLESTR pstrDefaultName
, LPCOLESTR pstrCode
, LPCOLESTR pstrItemName
,
676 LPCOLESTR pstrSubItemName
, LPCOLESTR pstrEventName
, LPCOLESTR pstrDelimiter
,
677 CTXARG_T dwSourceContextCookie
, ULONG ulStartingLineNumber
, DWORD dwFlags
,
678 BSTR
*pbstrName
, EXCEPINFO
*pexcepinfo
)
680 JScript
*This
= impl_from_IActiveScriptParse(iface
);
681 FIXME("(%p)->(%s %s %s %s %s %s %s %u %x %p %p)\n", This
, debugstr_w(pstrDefaultName
),
682 debugstr_w(pstrCode
), debugstr_w(pstrItemName
), debugstr_w(pstrSubItemName
),
683 debugstr_w(pstrEventName
), debugstr_w(pstrDelimiter
), wine_dbgstr_longlong(dwSourceContextCookie
),
684 ulStartingLineNumber
, dwFlags
, pbstrName
, pexcepinfo
);
688 static HRESULT WINAPI
JScriptParse_ParseScriptText(IActiveScriptParse
*iface
,
689 LPCOLESTR pstrCode
, LPCOLESTR pstrItemName
, IUnknown
*punkContext
,
690 LPCOLESTR pstrDelimiter
, CTXARG_T dwSourceContextCookie
, ULONG ulStartingLine
,
691 DWORD dwFlags
, VARIANT
*pvarResult
, EXCEPINFO
*pexcepinfo
)
693 JScript
*This
= impl_from_IActiveScriptParse(iface
);
694 parser_ctx_t
*parser_ctx
;
697 TRACE("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This
, debugstr_w(pstrCode
),
698 debugstr_w(pstrItemName
), punkContext
, debugstr_w(pstrDelimiter
),
699 wine_dbgstr_longlong(dwSourceContextCookie
), ulStartingLine
, dwFlags
, pvarResult
, pexcepinfo
);
701 if(This
->thread_id
!= GetCurrentThreadId() || This
->ctx
->state
== SCRIPTSTATE_CLOSED
)
704 hres
= script_parse(This
->ctx
, pstrCode
, pstrDelimiter
, &parser_ctx
);
708 if(!is_started(This
->ctx
)) {
710 This
->queue_tail
= This
->queue_tail
->next
= parser_ctx
;
712 This
->queue_head
= This
->queue_tail
= parser_ctx
;
716 hres
= exec_global_code(This
, parser_ctx
);
717 parser_release(parser_ctx
);
722 static const IActiveScriptParseVtbl JScriptParseVtbl
= {
723 JScriptParse_QueryInterface
,
725 JScriptParse_Release
,
726 JScriptParse_InitNew
,
727 JScriptParse_AddScriptlet
,
728 JScriptParse_ParseScriptText
731 static inline JScript
*impl_from_IActiveScriptParseProcedure2(IActiveScriptParseProcedure2
*iface
)
733 return CONTAINING_RECORD(iface
, JScript
, IActiveScriptParseProcedure2_iface
);
736 static HRESULT WINAPI
JScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2
*iface
, REFIID riid
, void **ppv
)
738 JScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
739 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
742 static ULONG WINAPI
JScriptParseProcedure_AddRef(IActiveScriptParseProcedure2
*iface
)
744 JScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
745 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
748 static ULONG WINAPI
JScriptParseProcedure_Release(IActiveScriptParseProcedure2
*iface
)
750 JScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
751 return IActiveScript_Release(&This
->IActiveScript_iface
);
754 static HRESULT WINAPI
JScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2
*iface
,
755 LPCOLESTR pstrCode
, LPCOLESTR pstrFormalParams
, LPCOLESTR pstrProcedureName
,
756 LPCOLESTR pstrItemName
, IUnknown
*punkContext
, LPCOLESTR pstrDelimiter
,
757 CTXARG_T dwSourceContextCookie
, ULONG ulStartingLineNumber
, DWORD dwFlags
, IDispatch
**ppdisp
)
759 JScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
760 parser_ctx_t
*parser_ctx
;
764 TRACE("(%p)->(%s %s %s %s %p %s %s %u %x %p)\n", This
, debugstr_w(pstrCode
), debugstr_w(pstrFormalParams
),
765 debugstr_w(pstrProcedureName
), debugstr_w(pstrItemName
), punkContext
, debugstr_w(pstrDelimiter
),
766 wine_dbgstr_longlong(dwSourceContextCookie
), ulStartingLineNumber
, dwFlags
, ppdisp
);
768 if(This
->thread_id
!= GetCurrentThreadId() || This
->ctx
->state
== SCRIPTSTATE_CLOSED
)
771 hres
= script_parse(This
->ctx
, pstrCode
, pstrDelimiter
, &parser_ctx
);
773 WARN("Parse failed %08x\n", hres
);
777 hres
= create_source_function(parser_ctx
, NULL
, parser_ctx
->source
, NULL
, NULL
, 0, &dispex
);
778 parser_release(parser_ctx
);
782 *ppdisp
= to_disp(dispex
);
786 static const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl
= {
787 JScriptParseProcedure_QueryInterface
,
788 JScriptParseProcedure_AddRef
,
789 JScriptParseProcedure_Release
,
790 JScriptParseProcedure_ParseProcedureText
,
793 static inline JScript
*impl_from_IActiveScriptProperty(IActiveScriptProperty
*iface
)
795 return CONTAINING_RECORD(iface
, JScript
, IActiveScriptProperty_iface
);
798 static HRESULT WINAPI
JScriptProperty_QueryInterface(IActiveScriptProperty
*iface
, REFIID riid
, void **ppv
)
800 JScript
*This
= impl_from_IActiveScriptProperty(iface
);
801 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
804 static ULONG WINAPI
JScriptProperty_AddRef(IActiveScriptProperty
*iface
)
806 JScript
*This
= impl_from_IActiveScriptProperty(iface
);
807 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
810 static ULONG WINAPI
JScriptProperty_Release(IActiveScriptProperty
*iface
)
812 JScript
*This
= impl_from_IActiveScriptProperty(iface
);
813 return IActiveScript_Release(&This
->IActiveScript_iface
);
816 static HRESULT WINAPI
JScriptProperty_GetProperty(IActiveScriptProperty
*iface
, DWORD dwProperty
,
817 VARIANT
*pvarIndex
, VARIANT
*pvarValue
)
819 JScript
*This
= impl_from_IActiveScriptProperty(iface
);
820 FIXME("(%p)->(%x %p %p)\n", This
, dwProperty
, pvarIndex
, pvarValue
);
824 static HRESULT WINAPI
JScriptProperty_SetProperty(IActiveScriptProperty
*iface
, DWORD dwProperty
,
825 VARIANT
*pvarIndex
, VARIANT
*pvarValue
)
827 JScript
*This
= impl_from_IActiveScriptProperty(iface
);
829 TRACE("(%p)->(%x %s %s)\n", This
, dwProperty
, debugstr_variant(pvarIndex
), debugstr_variant(pvarValue
));
832 FIXME("unsupported pvarIndex\n");
835 case SCRIPTPROP_INVOKEVERSIONING
:
836 if(V_VT(pvarValue
) != VT_I4
|| V_I4(pvarValue
) < 0 || V_I4(pvarValue
) > 15) {
837 WARN("invalid value %s\n", debugstr_variant(pvarValue
));
841 This
->version
= V_I4(pvarValue
);
844 FIXME("Unimplemented property %x\n", dwProperty
);
851 static const IActiveScriptPropertyVtbl JScriptPropertyVtbl
= {
852 JScriptProperty_QueryInterface
,
853 JScriptProperty_AddRef
,
854 JScriptProperty_Release
,
855 JScriptProperty_GetProperty
,
856 JScriptProperty_SetProperty
859 static inline JScript
*impl_from_IObjectSafety(IObjectSafety
*iface
)
861 return CONTAINING_RECORD(iface
, JScript
, IObjectSafety_iface
);
864 static HRESULT WINAPI
JScriptSafety_QueryInterface(IObjectSafety
*iface
, REFIID riid
, void **ppv
)
866 JScript
*This
= impl_from_IObjectSafety(iface
);
867 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
870 static ULONG WINAPI
JScriptSafety_AddRef(IObjectSafety
*iface
)
872 JScript
*This
= impl_from_IObjectSafety(iface
);
873 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
876 static ULONG WINAPI
JScriptSafety_Release(IObjectSafety
*iface
)
878 JScript
*This
= impl_from_IObjectSafety(iface
);
879 return IActiveScript_Release(&This
->IActiveScript_iface
);
882 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
884 static HRESULT WINAPI
JScriptSafety_GetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
885 DWORD
*pdwSupportedOptions
, DWORD
*pdwEnabledOptions
)
887 JScript
*This
= impl_from_IObjectSafety(iface
);
889 TRACE("(%p)->(%s %p %p)\n", This
, debugstr_guid(riid
), pdwSupportedOptions
, pdwEnabledOptions
);
891 if(!pdwSupportedOptions
|| !pdwEnabledOptions
)
894 *pdwSupportedOptions
= SUPPORTED_OPTIONS
;
895 *pdwEnabledOptions
= This
->safeopt
;
900 static HRESULT WINAPI
JScriptSafety_SetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
901 DWORD dwOptionSetMask
, DWORD dwEnabledOptions
)
903 JScript
*This
= impl_from_IObjectSafety(iface
);
905 TRACE("(%p)->(%s %x %x)\n", This
, debugstr_guid(riid
), dwOptionSetMask
, dwEnabledOptions
);
907 if(dwOptionSetMask
& ~SUPPORTED_OPTIONS
)
910 This
->safeopt
= dwEnabledOptions
& dwEnabledOptions
;
914 static const IObjectSafetyVtbl JScriptSafetyVtbl
= {
915 JScriptSafety_QueryInterface
,
916 JScriptSafety_AddRef
,
917 JScriptSafety_Release
,
918 JScriptSafety_GetInterfaceSafetyOptions
,
919 JScriptSafety_SetInterfaceSafetyOptions
922 HRESULT WINAPI
JScriptFactory_CreateInstance(IClassFactory
*iface
, IUnknown
*pUnkOuter
,
923 REFIID riid
, void **ppv
)
928 TRACE("(%p %s %p)\n", pUnkOuter
, debugstr_guid(riid
), ppv
);
932 ret
= heap_alloc_zero(sizeof(*ret
));
934 return E_OUTOFMEMORY
;
936 ret
->IActiveScript_iface
.lpVtbl
= &JScriptVtbl
;
937 ret
->IActiveScriptParse_iface
.lpVtbl
= &JScriptParseVtbl
;
938 ret
->IActiveScriptParseProcedure2_iface
.lpVtbl
= &JScriptParseProcedureVtbl
;
939 ret
->IActiveScriptProperty_iface
.lpVtbl
= &JScriptPropertyVtbl
;
940 ret
->IObjectSafety_iface
.lpVtbl
= &JScriptSafetyVtbl
;
942 ret
->safeopt
= INTERFACE_USES_DISPEX
;
944 hres
= IActiveScript_QueryInterface(&ret
->IActiveScript_iface
, riid
, ppv
);
945 IActiveScript_Release(&ret
->IActiveScript_iface
);