2 * Copyright 2011 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
25 #include "wine/debug.h"
27 WINE_DEFAULT_DEBUG_CHANNEL(vbscript
);
31 #define CTXARG_T DWORDLONG
32 #define IActiveScriptDebugVtbl IActiveScriptDebug64Vtbl
33 #define IActiveScriptParseVtbl IActiveScriptParse64Vtbl
34 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_64Vtbl
38 #define CTXARG_T DWORD
39 #define IActiveScriptDebugVtbl IActiveScriptDebug32Vtbl
40 #define IActiveScriptParseVtbl IActiveScriptParse32Vtbl
41 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_32Vtbl
46 IActiveScript IActiveScript_iface
;
47 IActiveScriptDebug IActiveScriptDebug_iface
;
48 IActiveScriptParse IActiveScriptParse_iface
;
49 IActiveScriptParseProcedure2 IActiveScriptParseProcedure2_iface
;
50 IObjectSafety IObjectSafety_iface
;
56 IActiveScriptSite
*site
;
62 static void change_state(VBScript
*This
, SCRIPTSTATE state
)
64 if(This
->state
== state
)
69 IActiveScriptSite_OnStateChange(This
->site
, state
);
72 static inline BOOL
is_started(VBScript
*This
)
74 return This
->state
== SCRIPTSTATE_STARTED
75 || This
->state
== SCRIPTSTATE_CONNECTED
76 || This
->state
== SCRIPTSTATE_DISCONNECTED
;
79 static HRESULT
exec_global_code(script_ctx_t
*ctx
, vbscode_t
*code
)
83 code
->pending_exec
= FALSE
;
85 IActiveScriptSite_OnEnterScript(ctx
->site
);
86 hres
= exec_script(ctx
, &code
->main_code
, NULL
, NULL
, NULL
);
87 IActiveScriptSite_OnLeaveScript(ctx
->site
);
92 static void exec_queued_code(script_ctx_t
*ctx
)
96 LIST_FOR_EACH_ENTRY(iter
, &ctx
->code_list
, vbscode_t
, entry
) {
97 if(iter
->pending_exec
)
98 exec_global_code(ctx
, iter
);
102 IDispatch
*lookup_named_item(script_ctx_t
*ctx
, const WCHAR
*name
, unsigned flags
)
107 LIST_FOR_EACH_ENTRY(item
, &ctx
->named_items
, named_item_t
, entry
) {
108 if((item
->flags
& flags
) == flags
&& !strcmpiW(item
->name
, name
)) {
112 hres
= IActiveScriptSite_GetItemInfo(ctx
->site
, item
->name
,
113 SCRIPTINFO_IUNKNOWN
, &unk
, NULL
);
115 WARN("GetItemInfo failed: %08x\n", hres
);
119 hres
= IUnknown_QueryInterface(unk
, &IID_IDispatch
, (void**)&item
->disp
);
120 IUnknown_Release(unk
);
122 WARN("object does not implement IDispatch\n");
134 static HRESULT
set_ctx_site(VBScript
*This
)
138 This
->ctx
->lcid
= This
->lcid
;
140 hres
= init_global(This
->ctx
);
144 IActiveScriptSite_AddRef(This
->site
);
145 This
->ctx
->site
= This
->site
;
147 change_state(This
, SCRIPTSTATE_INITIALIZED
);
151 static void release_script(script_ctx_t
*ctx
)
153 class_desc_t
*class_desc
;
155 collect_objects(ctx
);
157 release_dynamic_vars(ctx
->global_vars
);
158 ctx
->global_vars
= NULL
;
160 while(!list_empty(&ctx
->named_items
)) {
161 named_item_t
*iter
= LIST_ENTRY(list_head(&ctx
->named_items
), named_item_t
, entry
);
163 list_remove(&iter
->entry
);
165 IDispatch_Release(iter
->disp
);
166 heap_free(iter
->name
);
171 class_desc
= ctx
->procs
;
172 ctx
->procs
= class_desc
->next
;
174 heap_free(class_desc
);
177 if(ctx
->host_global
) {
178 IDispatch_Release(ctx
->host_global
);
179 ctx
->host_global
= NULL
;
183 IInternetHostSecurityManager_Release(ctx
->secmgr
);
188 IActiveScriptSite_Release(ctx
->site
);
193 IDispatchEx_Release(&ctx
->err_obj
->IDispatchEx_iface
);
197 if(ctx
->global_obj
) {
198 IDispatchEx_Release(&ctx
->global_obj
->IDispatchEx_iface
);
199 ctx
->global_obj
= NULL
;
202 if(ctx
->script_obj
) {
203 ScriptDisp
*script_obj
= ctx
->script_obj
;
205 ctx
->script_obj
= NULL
;
206 script_obj
->ctx
= NULL
;
207 IDispatchEx_Release(&script_obj
->IDispatchEx_iface
);
210 heap_pool_free(&ctx
->heap
);
211 heap_pool_init(&ctx
->heap
);
214 static void destroy_script(script_ctx_t
*ctx
)
216 while(!list_empty(&ctx
->code_list
))
217 release_vbscode(LIST_ENTRY(list_head(&ctx
->code_list
), vbscode_t
, entry
));
223 static void decrease_state(VBScript
*This
, SCRIPTSTATE state
)
225 switch(This
->state
) {
226 case SCRIPTSTATE_CONNECTED
:
227 change_state(This
, SCRIPTSTATE_DISCONNECTED
);
228 if(state
== SCRIPTSTATE_DISCONNECTED
)
231 case SCRIPTSTATE_STARTED
:
232 case SCRIPTSTATE_DISCONNECTED
:
233 if(This
->state
== SCRIPTSTATE_DISCONNECTED
)
234 change_state(This
, SCRIPTSTATE_INITIALIZED
);
235 if(state
== SCRIPTSTATE_INITIALIZED
)
238 case SCRIPTSTATE_INITIALIZED
:
239 case SCRIPTSTATE_UNINITIALIZED
:
240 change_state(This
, state
);
243 IActiveScriptSite_Release(This
->site
);
248 release_script(This
->ctx
);
252 case SCRIPTSTATE_CLOSED
:
258 static inline VBScript
*impl_from_IActiveScript(IActiveScript
*iface
)
260 return CONTAINING_RECORD(iface
, VBScript
, IActiveScript_iface
);
263 static HRESULT WINAPI
VBScript_QueryInterface(IActiveScript
*iface
, REFIID riid
, void **ppv
)
265 VBScript
*This
= impl_from_IActiveScript(iface
);
267 if(IsEqualGUID(riid
, &IID_IUnknown
)) {
268 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
269 *ppv
= &This
->IActiveScript_iface
;
270 }else if(IsEqualGUID(riid
, &IID_IActiveScript
)) {
271 TRACE("(%p)->(IID_IActiveScript %p)\n", This
, ppv
);
272 *ppv
= &This
->IActiveScript_iface
;
273 }else if(IsEqualGUID(riid
, &IID_IActiveScriptDebug
)) {
274 TRACE("(%p)->(IID_IActiveScriptDebug %p)\n", This
, ppv
);
275 *ppv
= &This
->IActiveScriptDebug_iface
;
276 }else if(IsEqualGUID(riid
, &IID_IActiveScriptParse
)) {
277 TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This
, ppv
);
278 *ppv
= &This
->IActiveScriptParse_iface
;
279 }else if(IsEqualGUID(riid
, &IID_IActiveScriptParseProcedure2
)) {
280 TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This
, ppv
);
281 *ppv
= &This
->IActiveScriptParseProcedure2_iface
;
282 }else if(IsEqualGUID(riid
, &IID_IObjectSafety
)) {
283 TRACE("(%p)->(IID_IObjectSafety %p)\n", This
, ppv
);
284 *ppv
= &This
->IObjectSafety_iface
;
286 FIXME("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
288 return E_NOINTERFACE
;
291 IUnknown_AddRef((IUnknown
*)*ppv
);
295 static ULONG WINAPI
VBScript_AddRef(IActiveScript
*iface
)
297 VBScript
*This
= impl_from_IActiveScript(iface
);
298 LONG ref
= InterlockedIncrement(&This
->ref
);
300 TRACE("(%p) ref=%d\n", This
, ref
);
305 static ULONG WINAPI
VBScript_Release(IActiveScript
*iface
)
307 VBScript
*This
= impl_from_IActiveScript(iface
);
308 LONG ref
= InterlockedDecrement(&This
->ref
);
310 TRACE("(%p) ref=%d\n", iface
, ref
);
314 decrease_state(This
, SCRIPTSTATE_CLOSED
);
315 destroy_script(This
->ctx
);
319 IActiveScriptSite_Release(This
->site
);
326 static HRESULT WINAPI
VBScript_SetScriptSite(IActiveScript
*iface
, IActiveScriptSite
*pass
)
328 VBScript
*This
= impl_from_IActiveScript(iface
);
332 TRACE("(%p)->(%p)\n", This
, pass
);
340 if(InterlockedCompareExchange(&This
->thread_id
, GetCurrentThreadId(), 0))
344 IActiveScriptSite_AddRef(This
->site
);
346 hres
= IActiveScriptSite_GetLCID(This
->site
, &lcid
);
350 return This
->ctx
? set_ctx_site(This
) : S_OK
;
353 static HRESULT WINAPI
VBScript_GetScriptSite(IActiveScript
*iface
, REFIID riid
,
356 VBScript
*This
= impl_from_IActiveScript(iface
);
357 FIXME("(%p)->()\n", This
);
361 static HRESULT WINAPI
VBScript_SetScriptState(IActiveScript
*iface
, SCRIPTSTATE ss
)
363 VBScript
*This
= impl_from_IActiveScript(iface
);
365 TRACE("(%p)->(%d)\n", This
, ss
);
367 if(This
->thread_id
&& GetCurrentThreadId() != This
->thread_id
)
370 if(ss
== SCRIPTSTATE_UNINITIALIZED
) {
371 if(This
->state
== SCRIPTSTATE_CLOSED
)
374 decrease_state(This
, SCRIPTSTATE_UNINITIALIZED
);
382 case SCRIPTSTATE_STARTED
:
383 case SCRIPTSTATE_CONNECTED
: /* FIXME */
384 if(This
->state
== SCRIPTSTATE_CLOSED
)
387 exec_queued_code(This
->ctx
);
389 case SCRIPTSTATE_INITIALIZED
:
390 FIXME("unimplemented SCRIPTSTATE_INITIALIZED\n");
392 case SCRIPTSTATE_DISCONNECTED
:
393 FIXME("unimplemented SCRIPTSTATE_DISCONNECTED\n");
396 FIXME("unimplemented state %d\n", ss
);
400 change_state(This
, ss
);
404 static HRESULT WINAPI
VBScript_GetScriptState(IActiveScript
*iface
, SCRIPTSTATE
*pssState
)
406 VBScript
*This
= impl_from_IActiveScript(iface
);
408 TRACE("(%p)->(%p)\n", This
, pssState
);
413 if(This
->thread_id
&& This
->thread_id
!= GetCurrentThreadId())
416 *pssState
= This
->state
;
420 static HRESULT WINAPI
VBScript_Close(IActiveScript
*iface
)
422 VBScript
*This
= impl_from_IActiveScript(iface
);
424 TRACE("(%p)->()\n", This
);
426 if(This
->thread_id
&& This
->thread_id
!= GetCurrentThreadId())
429 decrease_state(This
, SCRIPTSTATE_CLOSED
);
433 static HRESULT WINAPI
VBScript_AddNamedItem(IActiveScript
*iface
, LPCOLESTR pstrName
, DWORD dwFlags
)
435 VBScript
*This
= impl_from_IActiveScript(iface
);
437 IDispatch
*disp
= NULL
;
440 TRACE("(%p)->(%s %x)\n", This
, debugstr_w(pstrName
), dwFlags
);
442 if(This
->thread_id
!= GetCurrentThreadId() || !This
->ctx
|| This
->state
== SCRIPTSTATE_CLOSED
)
445 if(dwFlags
& SCRIPTITEM_GLOBALMEMBERS
) {
448 hres
= IActiveScriptSite_GetItemInfo(This
->site
, pstrName
, SCRIPTINFO_IUNKNOWN
, &unk
, NULL
);
450 WARN("GetItemInfo failed: %08x\n", hres
);
454 hres
= IUnknown_QueryInterface(unk
, &IID_IDispatch
, (void**)&disp
);
455 IUnknown_Release(unk
);
457 WARN("object does not implement IDispatch\n");
461 if(This
->ctx
->host_global
)
462 IDispatch_Release(This
->ctx
->host_global
);
463 IDispatch_AddRef(disp
);
464 This
->ctx
->host_global
= disp
;
467 item
= heap_alloc(sizeof(*item
));
470 IDispatch_Release(disp
);
471 return E_OUTOFMEMORY
;
475 item
->flags
= dwFlags
;
476 item
->name
= heap_strdupW(pstrName
);
479 IDispatch_Release(disp
);
481 return E_OUTOFMEMORY
;
484 list_add_tail(&This
->ctx
->named_items
, &item
->entry
);
488 static HRESULT WINAPI
VBScript_AddTypeLib(IActiveScript
*iface
, REFGUID rguidTypeLib
,
489 DWORD dwMajor
, DWORD dwMinor
, DWORD dwFlags
)
491 VBScript
*This
= impl_from_IActiveScript(iface
);
492 FIXME("(%p)->()\n", This
);
496 static HRESULT WINAPI
VBScript_GetScriptDispatch(IActiveScript
*iface
, LPCOLESTR pstrItemName
, IDispatch
**ppdisp
)
498 VBScript
*This
= impl_from_IActiveScript(iface
);
500 TRACE("(%p)->(%p)\n", This
, ppdisp
);
505 if(This
->thread_id
!= GetCurrentThreadId() || !This
->ctx
|| !This
->ctx
->script_obj
) {
510 *ppdisp
= (IDispatch
*)&This
->ctx
->script_obj
->IDispatchEx_iface
;
511 IDispatch_AddRef(*ppdisp
);
515 static HRESULT WINAPI
VBScript_GetCurrentScriptThreadID(IActiveScript
*iface
,
516 SCRIPTTHREADID
*pstridThread
)
518 VBScript
*This
= impl_from_IActiveScript(iface
);
519 FIXME("(%p)->()\n", This
);
523 static HRESULT WINAPI
VBScript_GetScriptThreadID(IActiveScript
*iface
,
524 DWORD dwWin32ThreadId
, SCRIPTTHREADID
*pstidThread
)
526 VBScript
*This
= impl_from_IActiveScript(iface
);
527 FIXME("(%p)->()\n", This
);
531 static HRESULT WINAPI
VBScript_GetScriptThreadState(IActiveScript
*iface
,
532 SCRIPTTHREADID stidThread
, SCRIPTTHREADSTATE
*pstsState
)
534 VBScript
*This
= impl_from_IActiveScript(iface
);
535 FIXME("(%p)->()\n", This
);
539 static HRESULT WINAPI
VBScript_InterruptScriptThread(IActiveScript
*iface
,
540 SCRIPTTHREADID stidThread
, const EXCEPINFO
*pexcepinfo
, DWORD dwFlags
)
542 VBScript
*This
= impl_from_IActiveScript(iface
);
543 FIXME("(%p)->()\n", This
);
547 static HRESULT WINAPI
VBScript_Clone(IActiveScript
*iface
, IActiveScript
**ppscript
)
549 VBScript
*This
= impl_from_IActiveScript(iface
);
550 FIXME("(%p)->()\n", This
);
554 static const IActiveScriptVtbl VBScriptVtbl
= {
555 VBScript_QueryInterface
,
558 VBScript_SetScriptSite
,
559 VBScript_GetScriptSite
,
560 VBScript_SetScriptState
,
561 VBScript_GetScriptState
,
563 VBScript_AddNamedItem
,
565 VBScript_GetScriptDispatch
,
566 VBScript_GetCurrentScriptThreadID
,
567 VBScript_GetScriptThreadID
,
568 VBScript_GetScriptThreadState
,
569 VBScript_InterruptScriptThread
,
573 static inline VBScript
*impl_from_IActiveScriptDebug(IActiveScriptDebug
*iface
)
575 return CONTAINING_RECORD(iface
, VBScript
, IActiveScriptDebug_iface
);
578 static HRESULT WINAPI
VBScriptDebug_QueryInterface(IActiveScriptDebug
*iface
, REFIID riid
, void **ppv
)
580 VBScript
*This
= impl_from_IActiveScriptDebug(iface
);
581 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
584 static ULONG WINAPI
VBScriptDebug_AddRef(IActiveScriptDebug
*iface
)
586 VBScript
*This
= impl_from_IActiveScriptDebug(iface
);
587 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
590 static ULONG WINAPI
VBScriptDebug_Release(IActiveScriptDebug
*iface
)
592 VBScript
*This
= impl_from_IActiveScriptDebug(iface
);
593 return IActiveScript_Release(&This
->IActiveScript_iface
);
596 static HRESULT WINAPI
VBScriptDebug_GetScriptTextAttributes(IActiveScriptDebug
*iface
,
597 LPCOLESTR code
, ULONG len
, LPCOLESTR delimiter
, DWORD flags
, SOURCE_TEXT_ATTR
*attr
)
599 VBScript
*This
= impl_from_IActiveScriptDebug(iface
);
600 FIXME("(%p)->(%s %u %s %#x %p)\n", This
, debugstr_w(code
), len
,
601 debugstr_w(delimiter
), flags
, attr
);
605 static HRESULT WINAPI
VBScriptDebug_GetScriptletTextAttributes(IActiveScriptDebug
*iface
,
606 LPCOLESTR code
, ULONG len
, LPCOLESTR delimiter
, DWORD flags
, SOURCE_TEXT_ATTR
*attr
)
608 VBScript
*This
= impl_from_IActiveScriptDebug(iface
);
609 FIXME("(%p)->(%s %u %s %#x %p)\n", This
, debugstr_w(code
), len
,
610 debugstr_w(delimiter
), flags
, attr
);
614 static HRESULT WINAPI
VBScriptDebug_EnumCodeContextsOfPosition(IActiveScriptDebug
*iface
,
615 CTXARG_T source
, ULONG offset
, ULONG len
, IEnumDebugCodeContexts
**ret
)
617 VBScript
*This
= impl_from_IActiveScriptDebug(iface
);
618 FIXME("(%p)->(%s %u %u %p)\n", This
, wine_dbgstr_longlong(source
), offset
, len
, ret
);
622 static const IActiveScriptDebugVtbl VBScriptDebugVtbl
= {
623 VBScriptDebug_QueryInterface
,
624 VBScriptDebug_AddRef
,
625 VBScriptDebug_Release
,
626 VBScriptDebug_GetScriptTextAttributes
,
627 VBScriptDebug_GetScriptletTextAttributes
,
628 VBScriptDebug_EnumCodeContextsOfPosition
,
631 static inline VBScript
*impl_from_IActiveScriptParse(IActiveScriptParse
*iface
)
633 return CONTAINING_RECORD(iface
, VBScript
, IActiveScriptParse_iface
);
636 static HRESULT WINAPI
VBScriptParse_QueryInterface(IActiveScriptParse
*iface
, REFIID riid
, void **ppv
)
638 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
639 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
642 static ULONG WINAPI
VBScriptParse_AddRef(IActiveScriptParse
*iface
)
644 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
645 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
648 static ULONG WINAPI
VBScriptParse_Release(IActiveScriptParse
*iface
)
650 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
651 return IActiveScript_Release(&This
->IActiveScript_iface
);
654 static HRESULT WINAPI
VBScriptParse_InitNew(IActiveScriptParse
*iface
)
656 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
657 script_ctx_t
*ctx
, *old_ctx
;
659 TRACE("(%p)\n", This
);
664 ctx
= heap_alloc_zero(sizeof(script_ctx_t
));
666 return E_OUTOFMEMORY
;
668 ctx
->safeopt
= This
->safeopt
;
669 heap_pool_init(&ctx
->heap
);
670 list_init(&ctx
->objects
);
671 list_init(&ctx
->code_list
);
672 list_init(&ctx
->named_items
);
674 old_ctx
= InterlockedCompareExchangePointer((void**)&This
->ctx
, ctx
, NULL
);
680 return This
->site
? set_ctx_site(This
) : S_OK
;
683 static HRESULT WINAPI
VBScriptParse_AddScriptlet(IActiveScriptParse
*iface
,
684 LPCOLESTR pstrDefaultName
, LPCOLESTR pstrCode
, LPCOLESTR pstrItemName
,
685 LPCOLESTR pstrSubItemName
, LPCOLESTR pstrEventName
, LPCOLESTR pstrDelimiter
,
686 CTXARG_T dwSourceContextCookie
, ULONG ulStartingLineNumber
, DWORD dwFlags
,
687 BSTR
*pbstrName
, EXCEPINFO
*pexcepinfo
)
689 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
690 FIXME("(%p)->(%s %s %s %s %s %s %s %u %x %p %p)\n", This
, debugstr_w(pstrDefaultName
),
691 debugstr_w(pstrCode
), debugstr_w(pstrItemName
), debugstr_w(pstrSubItemName
),
692 debugstr_w(pstrEventName
), debugstr_w(pstrDelimiter
), wine_dbgstr_longlong(dwSourceContextCookie
),
693 ulStartingLineNumber
, dwFlags
, pbstrName
, pexcepinfo
);
697 static HRESULT WINAPI
VBScriptParse_ParseScriptText(IActiveScriptParse
*iface
,
698 LPCOLESTR pstrCode
, LPCOLESTR pstrItemName
, IUnknown
*punkContext
,
699 LPCOLESTR pstrDelimiter
, CTXARG_T dwSourceContextCookie
, ULONG ulStartingLine
,
700 DWORD dwFlags
, VARIANT
*pvarResult
, EXCEPINFO
*pexcepinfo
)
702 VBScript
*This
= impl_from_IActiveScriptParse(iface
);
703 IDispatch
*context
= NULL
;
707 TRACE("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This
, debugstr_w(pstrCode
),
708 debugstr_w(pstrItemName
), punkContext
, debugstr_w(pstrDelimiter
),
709 wine_dbgstr_longlong(dwSourceContextCookie
), ulStartingLine
, dwFlags
, pvarResult
, pexcepinfo
);
711 if(This
->thread_id
!= GetCurrentThreadId() || This
->state
== SCRIPTSTATE_CLOSED
)
715 context
= lookup_named_item(This
->ctx
, pstrItemName
, 0);
717 WARN("Inknown context %s\n", debugstr_w(pstrItemName
));
722 hres
= compile_script(This
->ctx
, pstrCode
, pstrDelimiter
, &code
);
727 IDispatch_AddRef(code
->context
= context
);
729 if(!is_started(This
)) {
730 code
->pending_exec
= TRUE
;
734 return exec_global_code(This
->ctx
, code
);
737 static const IActiveScriptParseVtbl VBScriptParseVtbl
= {
738 VBScriptParse_QueryInterface
,
739 VBScriptParse_AddRef
,
740 VBScriptParse_Release
,
741 VBScriptParse_InitNew
,
742 VBScriptParse_AddScriptlet
,
743 VBScriptParse_ParseScriptText
746 static inline VBScript
*impl_from_IActiveScriptParseProcedure2(IActiveScriptParseProcedure2
*iface
)
748 return CONTAINING_RECORD(iface
, VBScript
, IActiveScriptParseProcedure2_iface
);
751 static HRESULT WINAPI
VBScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2
*iface
, REFIID riid
, void **ppv
)
753 VBScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
754 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
757 static ULONG WINAPI
VBScriptParseProcedure_AddRef(IActiveScriptParseProcedure2
*iface
)
759 VBScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
760 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
763 static ULONG WINAPI
VBScriptParseProcedure_Release(IActiveScriptParseProcedure2
*iface
)
765 VBScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
766 return IActiveScript_Release(&This
->IActiveScript_iface
);
769 static HRESULT WINAPI
VBScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2
*iface
,
770 LPCOLESTR pstrCode
, LPCOLESTR pstrFormalParams
, LPCOLESTR pstrProcedureName
,
771 LPCOLESTR pstrItemName
, IUnknown
*punkContext
, LPCOLESTR pstrDelimiter
,
772 CTXARG_T dwSourceContextCookie
, ULONG ulStartingLineNumber
, DWORD dwFlags
, IDispatch
**ppdisp
)
774 VBScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
778 TRACE("(%p)->(%s %s %s %s %p %s %s %u %x %p)\n", This
, debugstr_w(pstrCode
), debugstr_w(pstrFormalParams
),
779 debugstr_w(pstrProcedureName
), debugstr_w(pstrItemName
), punkContext
, debugstr_w(pstrDelimiter
),
780 wine_dbgstr_longlong(dwSourceContextCookie
), ulStartingLineNumber
, dwFlags
, ppdisp
);
782 if(This
->thread_id
!= GetCurrentThreadId() || This
->state
== SCRIPTSTATE_CLOSED
)
785 hres
= compile_script(This
->ctx
, pstrCode
, pstrDelimiter
, &code
);
789 return create_procedure_disp(This
->ctx
, code
, ppdisp
);
792 static const IActiveScriptParseProcedure2Vtbl VBScriptParseProcedureVtbl
= {
793 VBScriptParseProcedure_QueryInterface
,
794 VBScriptParseProcedure_AddRef
,
795 VBScriptParseProcedure_Release
,
796 VBScriptParseProcedure_ParseProcedureText
,
799 static inline VBScript
*impl_from_IObjectSafety(IObjectSafety
*iface
)
801 return CONTAINING_RECORD(iface
, VBScript
, IObjectSafety_iface
);
804 static HRESULT WINAPI
VBScriptSafety_QueryInterface(IObjectSafety
*iface
, REFIID riid
, void **ppv
)
806 VBScript
*This
= impl_from_IObjectSafety(iface
);
807 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
810 static ULONG WINAPI
VBScriptSafety_AddRef(IObjectSafety
*iface
)
812 VBScript
*This
= impl_from_IObjectSafety(iface
);
813 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
816 static ULONG WINAPI
VBScriptSafety_Release(IObjectSafety
*iface
)
818 VBScript
*This
= impl_from_IObjectSafety(iface
);
819 return IActiveScript_Release(&This
->IActiveScript_iface
);
822 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
824 static HRESULT WINAPI
VBScriptSafety_GetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
825 DWORD
*pdwSupportedOptions
, DWORD
*pdwEnabledOptions
)
827 VBScript
*This
= impl_from_IObjectSafety(iface
);
829 TRACE("(%p)->(%s %p %p)\n", This
, debugstr_guid(riid
), pdwSupportedOptions
, pdwEnabledOptions
);
831 if(!pdwSupportedOptions
|| !pdwEnabledOptions
)
834 *pdwSupportedOptions
= SUPPORTED_OPTIONS
;
835 *pdwEnabledOptions
= This
->safeopt
;
839 static HRESULT WINAPI
VBScriptSafety_SetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
840 DWORD dwOptionSetMask
, DWORD dwEnabledOptions
)
842 VBScript
*This
= impl_from_IObjectSafety(iface
);
844 TRACE("(%p)->(%s %x %x)\n", This
, debugstr_guid(riid
), dwOptionSetMask
, dwEnabledOptions
);
846 if(dwOptionSetMask
& ~SUPPORTED_OPTIONS
)
849 This
->safeopt
= (dwEnabledOptions
& dwOptionSetMask
) | (This
->safeopt
& ~dwOptionSetMask
) | INTERFACE_USES_DISPEX
;
853 static const IObjectSafetyVtbl VBScriptSafetyVtbl
= {
854 VBScriptSafety_QueryInterface
,
855 VBScriptSafety_AddRef
,
856 VBScriptSafety_Release
,
857 VBScriptSafety_GetInterfaceSafetyOptions
,
858 VBScriptSafety_SetInterfaceSafetyOptions
861 HRESULT WINAPI
VBScriptFactory_CreateInstance(IClassFactory
*iface
, IUnknown
*pUnkOuter
, REFIID riid
, void **ppv
)
866 TRACE("(%p %s %p)\n", pUnkOuter
, debugstr_guid(riid
), ppv
);
868 ret
= heap_alloc_zero(sizeof(*ret
));
870 return E_OUTOFMEMORY
;
872 ret
->IActiveScript_iface
.lpVtbl
= &VBScriptVtbl
;
873 ret
->IActiveScriptDebug_iface
.lpVtbl
= &VBScriptDebugVtbl
;
874 ret
->IActiveScriptParse_iface
.lpVtbl
= &VBScriptParseVtbl
;
875 ret
->IActiveScriptParseProcedure2_iface
.lpVtbl
= &VBScriptParseProcedureVtbl
;
876 ret
->IObjectSafety_iface
.lpVtbl
= &VBScriptSafetyVtbl
;
879 ret
->state
= SCRIPTSTATE_UNINITIALIZED
;
880 ret
->safeopt
= INTERFACE_USES_DISPEX
;
882 hres
= IActiveScript_QueryInterface(&ret
->IActiveScript_iface
, riid
, ppv
);
883 IActiveScript_Release(&ret
->IActiveScript_iface
);
888 IServiceProvider IServiceProvider_iface
;
892 IServiceProvider
*sp
;
895 static inline AXSite
*impl_from_IServiceProvider(IServiceProvider
*iface
)
897 return CONTAINING_RECORD(iface
, AXSite
, IServiceProvider_iface
);
900 static HRESULT WINAPI
AXSite_QueryInterface(IServiceProvider
*iface
, REFIID riid
, void **ppv
)
902 AXSite
*This
= impl_from_IServiceProvider(iface
);
904 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
905 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
906 *ppv
= &This
->IServiceProvider_iface
;
907 }else if(IsEqualGUID(&IID_IServiceProvider
, riid
)) {
908 TRACE("(%p)->(IID_IServiceProvider %p)\n", This
, ppv
);
909 *ppv
= &This
->IServiceProvider_iface
;
911 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
913 return E_NOINTERFACE
;
916 IUnknown_AddRef((IUnknown
*)*ppv
);
920 static ULONG WINAPI
AXSite_AddRef(IServiceProvider
*iface
)
922 AXSite
*This
= impl_from_IServiceProvider(iface
);
923 LONG ref
= InterlockedIncrement(&This
->ref
);
925 TRACE("(%p) ref=%d\n", This
, ref
);
930 static ULONG WINAPI
AXSite_Release(IServiceProvider
*iface
)
932 AXSite
*This
= impl_from_IServiceProvider(iface
);
933 LONG ref
= InterlockedDecrement(&This
->ref
);
935 TRACE("(%p) ref=%d\n", This
, ref
);
943 static HRESULT WINAPI
AXSite_QueryService(IServiceProvider
*iface
,
944 REFGUID guidService
, REFIID riid
, void **ppv
)
946 AXSite
*This
= impl_from_IServiceProvider(iface
);
948 TRACE("(%p)->(%s %s %p)\n", This
, debugstr_guid(guidService
), debugstr_guid(riid
), ppv
);
950 return IServiceProvider_QueryService(This
->sp
, guidService
, riid
, ppv
);
953 static IServiceProviderVtbl AXSiteVtbl
= {
954 AXSite_QueryInterface
,
960 IUnknown
*create_ax_site(script_ctx_t
*ctx
)
962 IServiceProvider
*sp
;
966 hres
= IActiveScriptSite_QueryInterface(ctx
->site
, &IID_IServiceProvider
, (void**)&sp
);
968 ERR("Could not get IServiceProvider iface: %08x\n", hres
);
972 ret
= heap_alloc(sizeof(*ret
));
974 IServiceProvider_Release(sp
);
978 ret
->IServiceProvider_iface
.lpVtbl
= &AXSiteVtbl
;
982 return (IUnknown
*)&ret
->IServiceProvider_iface
;