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
25 #include "wine/debug.h"
27 WINE_DEFAULT_DEBUG_CHANNEL(jscript
);
31 #define CTXARG_T DWORDLONG
32 #define IActiveScriptParseVtbl IActiveScriptParse64Vtbl
33 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_64Vtbl
37 #define CTXARG_T DWORD
38 #define IActiveScriptParseVtbl IActiveScriptParse32Vtbl
39 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_32Vtbl
44 IActiveScript IActiveScript_iface
;
45 IActiveScriptParse IActiveScriptParse_iface
;
46 IActiveScriptParseProcedure2 IActiveScriptParseProcedure2_iface
;
47 IActiveScriptProperty IActiveScriptProperty_iface
;
48 IObjectSafety IObjectSafety_iface
;
49 IVariantChangeType IVariantChangeType_iface
;
62 IActiveScriptSite
*site
;
64 struct list persistent_code
;
65 struct list queued_code
;
69 IActiveScriptError IActiveScriptError_iface
;
74 void script_release(script_ctx_t
*ctx
)
79 jsval_release(ctx
->acc
);
82 heap_pool_free(&ctx
->tmp_heap
);
84 jsstr_release(ctx
->last_match
);
85 assert(!ctx
->stack_top
);
86 heap_free(ctx
->stack
);
88 ctx
->jscaller
->ctx
= NULL
;
89 IServiceProvider_Release(&ctx
->jscaller
->IServiceProvider_iface
);
94 static void change_state(JScript
*This
, SCRIPTSTATE state
)
96 if(This
->ctx
->state
== state
)
99 This
->ctx
->state
= state
;
101 IActiveScriptSite_OnStateChange(This
->site
, state
);
104 static inline BOOL
is_started(script_ctx_t
*ctx
)
106 return ctx
->state
== SCRIPTSTATE_STARTED
107 || ctx
->state
== SCRIPTSTATE_CONNECTED
108 || ctx
->state
== SCRIPTSTATE_DISCONNECTED
;
111 HRESULT
create_named_item_script_obj(script_ctx_t
*ctx
, named_item_t
*item
)
113 static const builtin_info_t disp_info
= {
121 return create_dispex(ctx
, &disp_info
, NULL
, &item
->script_obj
);
124 static void release_named_item_script_obj(named_item_t
*item
)
126 if(!item
->script_obj
) return;
128 jsdisp_release(item
->script_obj
);
129 item
->script_obj
= NULL
;
132 static HRESULT
retrieve_named_item_disp(IActiveScriptSite
*site
, named_item_t
*item
)
140 hr
= IActiveScriptSite_GetItemInfo(site
, item
->name
, SCRIPTINFO_IUNKNOWN
, &unk
, NULL
);
142 WARN("GetItemInfo failed: %08x\n", hr
);
146 hr
= IUnknown_QueryInterface(unk
, &IID_IDispatch
, (void**)&item
->disp
);
147 IUnknown_Release(unk
);
149 WARN("object does not implement IDispatch\n");
156 named_item_t
*lookup_named_item(script_ctx_t
*ctx
, const WCHAR
*item_name
, unsigned flags
)
161 LIST_FOR_EACH_ENTRY(item
, &ctx
->named_items
, named_item_t
, entry
) {
162 if((item
->flags
& flags
) == flags
&& !wcscmp(item
->name
, item_name
)) {
163 if(!item
->script_obj
&& !(item
->flags
& SCRIPTITEM_GLOBALMEMBERS
)) {
164 hr
= create_named_item_script_obj(ctx
, item
);
165 if(FAILED(hr
)) return NULL
;
168 if(!item
->disp
&& (flags
|| !(item
->flags
& SCRIPTITEM_CODEONLY
))) {
169 hr
= retrieve_named_item_disp(ctx
->site
, item
);
170 if(FAILED(hr
)) continue;
180 void release_named_item(named_item_t
*item
)
182 if(--item
->ref
) return;
184 heap_free(item
->name
);
188 static inline JScriptError
*impl_from_IActiveScriptError(IActiveScriptError
*iface
)
190 return CONTAINING_RECORD(iface
, JScriptError
, IActiveScriptError_iface
);
193 static HRESULT WINAPI
JScriptError_QueryInterface(IActiveScriptError
*iface
, REFIID riid
, void **ppv
)
195 JScriptError
*This
= impl_from_IActiveScriptError(iface
);
197 if(IsEqualGUID(riid
, &IID_IUnknown
)) {
198 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
199 *ppv
= &This
->IActiveScriptError_iface
;
200 }else if(IsEqualGUID(riid
, &IID_IActiveScriptError
)) {
201 TRACE("(%p)->(IID_IActiveScriptError %p)\n", This
, ppv
);
202 *ppv
= &This
->IActiveScriptError_iface
;
204 FIXME("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
206 return E_NOINTERFACE
;
209 IUnknown_AddRef((IUnknown
*)*ppv
);
213 static ULONG WINAPI
JScriptError_AddRef(IActiveScriptError
*iface
)
215 JScriptError
*This
= impl_from_IActiveScriptError(iface
);
216 LONG ref
= InterlockedIncrement(&This
->ref
);
218 TRACE("(%p) ref=%d\n", This
, ref
);
223 static ULONG WINAPI
JScriptError_Release(IActiveScriptError
*iface
)
225 JScriptError
*This
= impl_from_IActiveScriptError(iface
);
226 LONG ref
= InterlockedDecrement(&This
->ref
);
228 TRACE("(%p) ref=%d\n", This
, ref
);
238 static HRESULT WINAPI
JScriptError_GetExceptionInfo(IActiveScriptError
*iface
, EXCEPINFO
*excepinfo
)
240 JScriptError
*This
= impl_from_IActiveScriptError(iface
);
242 TRACE("(%p)->(%p)\n", This
, excepinfo
);
247 memset(excepinfo
, 0, sizeof(*excepinfo
));
248 excepinfo
->scode
= This
->ei
.error
;
250 jsstr_to_bstr(This
->ei
.source
, &excepinfo
->bstrSource
);
252 jsstr_to_bstr(This
->ei
.message
, &excepinfo
->bstrDescription
);
256 static HRESULT WINAPI
JScriptError_GetSourcePosition(IActiveScriptError
*iface
, DWORD
*source_context
, ULONG
*line
, LONG
*character
)
258 JScriptError
*This
= impl_from_IActiveScriptError(iface
);
259 bytecode_t
*code
= This
->ei
.code
;
260 unsigned line_pos
, char_pos
;
262 TRACE("(%p)->(%p %p %p)\n", This
, source_context
, line
, character
);
265 FIXME("unknown position\n");
270 *source_context
= This
->ei
.code
->source_context
;
271 if(!line
&& !character
)
274 line_pos
= get_location_line(code
, This
->ei
.loc
, &char_pos
);
278 *character
= char_pos
;
282 static HRESULT WINAPI
JScriptError_GetSourceLineText(IActiveScriptError
*iface
, BSTR
*source
)
284 JScriptError
*This
= impl_from_IActiveScriptError(iface
);
286 TRACE("(%p)->(%p)\n", This
, source
);
296 return jsstr_to_bstr(This
->ei
.line
, source
);
299 static const IActiveScriptErrorVtbl JScriptErrorVtbl
= {
300 JScriptError_QueryInterface
,
302 JScriptError_Release
,
303 JScriptError_GetExceptionInfo
,
304 JScriptError_GetSourcePosition
,
305 JScriptError_GetSourceLineText
308 void reset_ei(jsexcept_t
*ei
)
311 if(ei
->valid_value
) {
312 jsval_release(ei
->value
);
313 ei
->valid_value
= FALSE
;
316 release_bytecode(ei
->code
);
321 jsstr_release(ei
->source
);
325 jsstr_release(ei
->message
);
329 jsstr_release(ei
->line
);
334 void enter_script(script_ctx_t
*ctx
, jsexcept_t
*ei
)
336 memset(ei
, 0, sizeof(*ei
));
339 TRACE("ctx %p ei %p prev %p\n", ctx
, ei
, ei
->prev
);
342 HRESULT
leave_script(script_ctx_t
*ctx
, HRESULT result
)
344 jsexcept_t
*ei
= ctx
->ei
;
345 BOOL enter_notified
= ei
->enter_notified
;
348 TRACE("ctx %p ei %p prev %p\n", ctx
, ei
, ei
->prev
);
351 if(result
== DISP_E_EXCEPTION
) {
358 WARN("%08x\n", result
);
359 if(ctx
->site
&& (error
= heap_alloc(sizeof(*error
)))) {
362 error
->IActiveScriptError_iface
.lpVtbl
= &JScriptErrorVtbl
;
365 memset(ei
, 0, sizeof(*ei
));
367 hres
= IActiveScriptSite_OnScriptError(ctx
->site
, &error
->IActiveScriptError_iface
);
368 IActiveScriptError_Release(&error
->IActiveScriptError_iface
);
370 result
= SCRIPT_E_REPORTED
;
373 if(enter_notified
&& ctx
->site
)
374 IActiveScriptSite_OnLeaveScript(ctx
->site
);
379 static void clear_script_queue(JScript
*This
)
381 while(!list_empty(&This
->queued_code
))
383 bytecode_t
*iter
= LIST_ENTRY(list_head(&This
->queued_code
), bytecode_t
, entry
);
384 list_remove(&iter
->entry
);
385 if (iter
->is_persistent
)
386 list_add_tail(&This
->persistent_code
, &iter
->entry
);
388 release_bytecode(iter
);
392 static void clear_persistent_code_list(JScript
*This
)
394 while(!list_empty(&This
->persistent_code
))
396 bytecode_t
*iter
= LIST_ENTRY(list_head(&This
->persistent_code
), bytecode_t
, entry
);
397 list_remove(&iter
->entry
);
398 release_bytecode(iter
);
402 static void release_persistent_script_objs(JScript
*This
)
406 LIST_FOR_EACH_ENTRY(iter
, &This
->persistent_code
, bytecode_t
, entry
)
408 release_named_item_script_obj(iter
->named_item
);
411 static void release_named_item_list(JScript
*This
)
413 while(!list_empty(&This
->ctx
->named_items
)) {
414 named_item_t
*iter
= LIST_ENTRY(list_head(&This
->ctx
->named_items
), named_item_t
, entry
);
415 list_remove(&iter
->entry
);
416 release_named_item(iter
);
420 static void exec_queued_code(JScript
*This
)
426 LIST_FOR_EACH_ENTRY(iter
, &This
->queued_code
, bytecode_t
, entry
) {
427 enter_script(This
->ctx
, &ei
);
428 hres
= exec_source(This
->ctx
, EXEC_GLOBAL
, iter
, &iter
->global_code
, NULL
, NULL
, NULL
, 0, NULL
, NULL
);
429 leave_script(This
->ctx
, hres
);
434 clear_script_queue(This
);
437 static void decrease_state(JScript
*This
, SCRIPTSTATE state
)
439 named_item_t
*item
, *item_next
;
442 switch(This
->ctx
->state
) {
443 case SCRIPTSTATE_CONNECTED
:
444 change_state(This
, SCRIPTSTATE_DISCONNECTED
);
445 if(state
== SCRIPTSTATE_DISCONNECTED
)
448 case SCRIPTSTATE_STARTED
:
449 case SCRIPTSTATE_DISCONNECTED
:
450 clear_script_queue(This
);
452 if(This
->ctx
->state
== SCRIPTSTATE_DISCONNECTED
)
453 change_state(This
, SCRIPTSTATE_INITIALIZED
);
454 if(state
== SCRIPTSTATE_INITIALIZED
)
457 case SCRIPTSTATE_INITIALIZED
:
458 clear_script_queue(This
);
459 release_persistent_script_objs(This
);
461 LIST_FOR_EACH_ENTRY_SAFE(item
, item_next
, &This
->ctx
->named_items
, named_item_t
, entry
)
465 IDispatch_Release(item
->disp
);
468 release_named_item_script_obj(item
);
469 if(!(item
->flags
& SCRIPTITEM_ISPERSISTENT
))
471 list_remove(&item
->entry
);
472 release_named_item(item
);
476 if(This
->ctx
->secmgr
) {
477 IInternetHostSecurityManager_Release(This
->ctx
->secmgr
);
478 This
->ctx
->secmgr
= NULL
;
481 if(This
->ctx
->site
) {
482 IActiveScriptSite_Release(This
->ctx
->site
);
483 This
->ctx
->site
= NULL
;
486 if(This
->ctx
->map_prototype
) {
487 jsdisp_release(This
->ctx
->map_prototype
);
488 This
->ctx
->map_prototype
= NULL
;
491 if(This
->ctx
->set_prototype
) {
492 jsdisp_release(This
->ctx
->set_prototype
);
493 This
->ctx
->set_prototype
= NULL
;
496 if(This
->ctx
->object_prototype
) {
497 jsdisp_release(This
->ctx
->object_prototype
);
498 This
->ctx
->object_prototype
= NULL
;
501 if(This
->ctx
->global
) {
502 jsdisp_release(This
->ctx
->global
);
503 This
->ctx
->global
= NULL
;
506 case SCRIPTSTATE_UNINITIALIZED
:
507 change_state(This
, state
);
513 change_state(This
, state
);
514 }else if(state
== SCRIPTSTATE_UNINITIALIZED
) {
516 IActiveScriptSite_OnStateChange(This
->site
, state
);
521 if(state
== SCRIPTSTATE_UNINITIALIZED
|| state
== SCRIPTSTATE_CLOSED
)
525 IActiveScriptSite_Release(This
->site
);
531 IServiceProvider IServiceProvider_iface
;
535 IServiceProvider
*sp
;
538 static inline AXSite
*impl_from_IServiceProvider(IServiceProvider
*iface
)
540 return CONTAINING_RECORD(iface
, AXSite
, IServiceProvider_iface
);
543 static HRESULT WINAPI
AXSite_QueryInterface(IServiceProvider
*iface
, REFIID riid
, void **ppv
)
545 AXSite
*This
= impl_from_IServiceProvider(iface
);
547 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
548 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
549 *ppv
= &This
->IServiceProvider_iface
;
550 }else if(IsEqualGUID(&IID_IServiceProvider
, riid
)) {
551 TRACE("(%p)->(IID_IServiceProvider %p)\n", This
, ppv
);
552 *ppv
= &This
->IServiceProvider_iface
;
554 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
556 return E_NOINTERFACE
;
559 IUnknown_AddRef((IUnknown
*)*ppv
);
563 static ULONG WINAPI
AXSite_AddRef(IServiceProvider
*iface
)
565 AXSite
*This
= impl_from_IServiceProvider(iface
);
566 LONG ref
= InterlockedIncrement(&This
->ref
);
568 TRACE("(%p) ref=%d\n", This
, ref
);
573 static ULONG WINAPI
AXSite_Release(IServiceProvider
*iface
)
575 AXSite
*This
= impl_from_IServiceProvider(iface
);
576 LONG ref
= InterlockedDecrement(&This
->ref
);
578 TRACE("(%p) ref=%d\n", This
, ref
);
583 IServiceProvider_Release(This
->sp
);
591 static HRESULT WINAPI
AXSite_QueryService(IServiceProvider
*iface
,
592 REFGUID guidService
, REFIID riid
, void **ppv
)
594 AXSite
*This
= impl_from_IServiceProvider(iface
);
596 TRACE("(%p)->(%s %s %p)\n", This
, debugstr_guid(guidService
), debugstr_guid(riid
), ppv
);
599 return E_NOINTERFACE
;
601 return IServiceProvider_QueryService(This
->sp
, guidService
, riid
, ppv
);
604 static IServiceProviderVtbl AXSiteVtbl
= {
605 AXSite_QueryInterface
,
611 IUnknown
*create_ax_site(script_ctx_t
*ctx
)
613 IServiceProvider
*sp
= NULL
;
617 hres
= IActiveScriptSite_QueryInterface(ctx
->site
, &IID_IServiceProvider
, (void**)&sp
);
619 TRACE("Could not get IServiceProvider iface: %08x\n", hres
);
622 ret
= heap_alloc(sizeof(AXSite
));
624 IServiceProvider_Release(sp
);
628 ret
->IServiceProvider_iface
.lpVtbl
= &AXSiteVtbl
;
632 return (IUnknown
*)&ret
->IServiceProvider_iface
;
635 static inline JScript
*impl_from_IActiveScript(IActiveScript
*iface
)
637 return CONTAINING_RECORD(iface
, JScript
, IActiveScript_iface
);
640 static HRESULT WINAPI
JScript_QueryInterface(IActiveScript
*iface
, REFIID riid
, void **ppv
)
642 JScript
*This
= impl_from_IActiveScript(iface
);
646 if(IsEqualGUID(riid
, &IID_IUnknown
)) {
647 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
648 *ppv
= &This
->IActiveScript_iface
;
649 }else if(IsEqualGUID(riid
, &IID_IActiveScript
)) {
650 TRACE("(%p)->(IID_IActiveScript %p)\n", This
, ppv
);
651 *ppv
= &This
->IActiveScript_iface
;
652 }else if(IsEqualGUID(riid
, &IID_IActiveScriptParse
)) {
653 TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This
, ppv
);
654 *ppv
= &This
->IActiveScriptParse_iface
;
655 }else if(IsEqualGUID(riid
, &IID_IActiveScriptParseProcedure
)) {
656 TRACE("(%p)->(IID_IActiveScriptParseProcedure %p)\n", This
, ppv
);
657 *ppv
= &This
->IActiveScriptParseProcedure2_iface
;
658 }else if(IsEqualGUID(riid
, &IID_IActiveScriptParseProcedure2
)) {
659 TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This
, ppv
);
660 *ppv
= &This
->IActiveScriptParseProcedure2_iface
;
661 }else if(IsEqualGUID(riid
, &IID_IActiveScriptProperty
)) {
662 TRACE("(%p)->(IID_IActiveScriptProperty %p)\n", This
, ppv
);
663 *ppv
= &This
->IActiveScriptProperty_iface
;
664 }else if(IsEqualGUID(riid
, &IID_IObjectSafety
)) {
665 TRACE("(%p)->(IID_IObjectSafety %p)\n", This
, ppv
);
666 *ppv
= &This
->IObjectSafety_iface
;
667 }else if(IsEqualGUID(riid
, &IID_IVariantChangeType
)) {
668 TRACE("(%p)->(IID_IVariantChangeType %p)\n", This
, ppv
);
669 *ppv
= &This
->IVariantChangeType_iface
;
673 IUnknown_AddRef((IUnknown
*)*ppv
);
677 FIXME("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
678 return E_NOINTERFACE
;
681 static ULONG WINAPI
JScript_AddRef(IActiveScript
*iface
)
683 JScript
*This
= impl_from_IActiveScript(iface
);
684 LONG ref
= InterlockedIncrement(&This
->ref
);
686 TRACE("(%p) ref=%d\n", This
, ref
);
691 static ULONG WINAPI
JScript_Release(IActiveScript
*iface
)
693 JScript
*This
= impl_from_IActiveScript(iface
);
694 LONG ref
= InterlockedDecrement(&This
->ref
);
696 TRACE("(%p) ref=%d\n", iface
, ref
);
699 if(This
->ctx
&& This
->ctx
->state
!= SCRIPTSTATE_CLOSED
)
700 IActiveScript_Close(&This
->IActiveScript_iface
);
702 This
->ctx
->active_script
= NULL
;
703 script_release(This
->ctx
);
712 static HRESULT WINAPI
JScript_SetScriptSite(IActiveScript
*iface
,
713 IActiveScriptSite
*pass
)
715 JScript
*This
= impl_from_IActiveScript(iface
);
720 TRACE("(%p)->(%p)\n", This
, pass
);
728 if(InterlockedCompareExchange(&This
->thread_id
, GetCurrentThreadId(), 0))
732 script_ctx_t
*ctx
= heap_alloc_zero(sizeof(script_ctx_t
));
734 return E_OUTOFMEMORY
;
737 ctx
->state
= SCRIPTSTATE_UNINITIALIZED
;
738 ctx
->active_script
= &This
->IActiveScript_iface
;
739 ctx
->safeopt
= This
->safeopt
;
740 ctx
->version
= This
->version
;
741 ctx
->html_mode
= This
->html_mode
;
742 ctx
->acc
= jsval_undefined();
743 list_init(&ctx
->named_items
);
744 heap_pool_init(&ctx
->tmp_heap
);
746 hres
= create_jscaller(ctx
);
752 ctx
->last_match
= jsstr_empty();
754 ctx
= InterlockedCompareExchangePointer((void**)&This
->ctx
, ctx
, NULL
);
761 /* Retrieve new dispatches for persistent named items */
762 LIST_FOR_EACH_ENTRY(item
, &This
->ctx
->named_items
, named_item_t
, entry
)
766 hres
= retrieve_named_item_disp(pass
, item
);
767 if(FAILED(hres
)) return hres
;
770 /* For some reason, CODEONLY flag is lost in re-initialized scripts */
771 item
->flags
&= ~SCRIPTITEM_CODEONLY
;
775 IActiveScriptSite_AddRef(This
->site
);
777 hres
= IActiveScriptSite_GetLCID(This
->site
, &lcid
);
781 This
->ctx
->lcid
= This
->lcid
;
783 hres
= init_global(This
->ctx
);
787 IActiveScriptSite_AddRef(This
->site
);
788 This
->ctx
->site
= This
->site
;
790 if(This
->is_initialized
)
791 change_state(This
, SCRIPTSTATE_INITIALIZED
);
795 static HRESULT WINAPI
JScript_GetScriptSite(IActiveScript
*iface
, REFIID riid
,
798 JScript
*This
= impl_from_IActiveScript(iface
);
799 FIXME("(%p)->()\n", This
);
803 static HRESULT WINAPI
JScript_SetScriptState(IActiveScript
*iface
, SCRIPTSTATE ss
)
805 JScript
*This
= impl_from_IActiveScript(iface
);
807 TRACE("(%p)->(%d)\n", This
, ss
);
809 if(This
->thread_id
&& GetCurrentThreadId() != This
->thread_id
)
812 if(ss
== SCRIPTSTATE_UNINITIALIZED
) {
813 if(This
->ctx
&& This
->ctx
->state
== SCRIPTSTATE_CLOSED
)
816 decrease_state(This
, SCRIPTSTATE_UNINITIALIZED
);
817 list_move_tail(&This
->queued_code
, &This
->persistent_code
);
821 if(!This
->is_initialized
|| !This
->ctx
)
825 case SCRIPTSTATE_STARTED
:
826 case SCRIPTSTATE_CONNECTED
: /* FIXME */
827 if(This
->ctx
->state
== SCRIPTSTATE_CLOSED
)
830 exec_queued_code(This
);
832 case SCRIPTSTATE_INITIALIZED
:
833 FIXME("unimplemented SCRIPTSTATE_INITIALIZED\n");
836 FIXME("unimplemented state %d\n", ss
);
840 change_state(This
, ss
);
844 static HRESULT WINAPI
JScript_GetScriptState(IActiveScript
*iface
, SCRIPTSTATE
*pssState
)
846 JScript
*This
= impl_from_IActiveScript(iface
);
848 TRACE("(%p)->(%p)\n", This
, pssState
);
853 if(This
->thread_id
&& This
->thread_id
!= GetCurrentThreadId())
856 *pssState
= This
->ctx
? This
->ctx
->state
: SCRIPTSTATE_UNINITIALIZED
;
860 static HRESULT WINAPI
JScript_Close(IActiveScript
*iface
)
862 JScript
*This
= impl_from_IActiveScript(iface
);
864 TRACE("(%p)->()\n", This
);
866 if(This
->thread_id
&& This
->thread_id
!= GetCurrentThreadId())
869 decrease_state(This
, SCRIPTSTATE_CLOSED
);
870 clear_persistent_code_list(This
);
871 release_named_item_list(This
);
875 static HRESULT WINAPI
JScript_AddNamedItem(IActiveScript
*iface
,
876 LPCOLESTR pstrName
, DWORD dwFlags
)
878 JScript
*This
= impl_from_IActiveScript(iface
);
880 IDispatch
*disp
= NULL
;
883 TRACE("(%p)->(%s %x)\n", This
, debugstr_w(pstrName
), dwFlags
);
885 if(This
->thread_id
!= GetCurrentThreadId() || !This
->ctx
|| This
->ctx
->state
== SCRIPTSTATE_CLOSED
)
888 if(dwFlags
& SCRIPTITEM_GLOBALMEMBERS
) {
891 hres
= IActiveScriptSite_GetItemInfo(This
->site
, pstrName
, SCRIPTINFO_IUNKNOWN
, &unk
, NULL
);
893 WARN("GetItemInfo failed: %08x\n", hres
);
897 hres
= IUnknown_QueryInterface(unk
, &IID_IDispatch
, (void**)&disp
);
898 IUnknown_Release(unk
);
900 WARN("object does not implement IDispatch\n");
905 item
= heap_alloc(sizeof(*item
));
908 IDispatch_Release(disp
);
909 return E_OUTOFMEMORY
;
914 item
->flags
= dwFlags
;
915 item
->script_obj
= NULL
;
916 item
->name
= heap_strdupW(pstrName
);
919 IDispatch_Release(disp
);
921 return E_OUTOFMEMORY
;
924 list_add_tail(&This
->ctx
->named_items
, &item
->entry
);
928 static HRESULT WINAPI
JScript_AddTypeLib(IActiveScript
*iface
, REFGUID rguidTypeLib
,
929 DWORD dwMajor
, DWORD dwMinor
, DWORD dwFlags
)
931 JScript
*This
= impl_from_IActiveScript(iface
);
932 FIXME("(%p)->()\n", This
);
936 static HRESULT WINAPI
JScript_GetScriptDispatch(IActiveScript
*iface
, LPCOLESTR pstrItemName
,
939 JScript
*This
= impl_from_IActiveScript(iface
);
940 jsdisp_t
*script_obj
;
942 TRACE("(%p)->(%s %p)\n", This
, debugstr_w(pstrItemName
), ppdisp
);
947 if(This
->thread_id
!= GetCurrentThreadId() || !This
->ctx
->global
) {
952 script_obj
= This
->ctx
->global
;
954 named_item_t
*item
= lookup_named_item(This
->ctx
, pstrItemName
, 0);
955 if(!item
) return E_INVALIDARG
;
956 if(item
->script_obj
) script_obj
= item
->script_obj
;
959 *ppdisp
= to_disp(script_obj
);
960 IDispatch_AddRef(*ppdisp
);
964 static HRESULT WINAPI
JScript_GetCurrentScriptThreadID(IActiveScript
*iface
,
965 SCRIPTTHREADID
*pstridThread
)
967 JScript
*This
= impl_from_IActiveScript(iface
);
968 FIXME("(%p)->()\n", This
);
972 static HRESULT WINAPI
JScript_GetScriptThreadID(IActiveScript
*iface
,
973 DWORD dwWin32ThreadId
, SCRIPTTHREADID
*pstidThread
)
975 JScript
*This
= impl_from_IActiveScript(iface
);
976 FIXME("(%p)->()\n", This
);
980 static HRESULT WINAPI
JScript_GetScriptThreadState(IActiveScript
*iface
,
981 SCRIPTTHREADID stidThread
, SCRIPTTHREADSTATE
*pstsState
)
983 JScript
*This
= impl_from_IActiveScript(iface
);
984 FIXME("(%p)->()\n", This
);
988 static HRESULT WINAPI
JScript_InterruptScriptThread(IActiveScript
*iface
,
989 SCRIPTTHREADID stidThread
, const EXCEPINFO
*pexcepinfo
, DWORD dwFlags
)
991 JScript
*This
= impl_from_IActiveScript(iface
);
992 FIXME("(%p)->()\n", This
);
996 static HRESULT WINAPI
JScript_Clone(IActiveScript
*iface
, IActiveScript
**ppscript
)
998 JScript
*This
= impl_from_IActiveScript(iface
);
999 FIXME("(%p)->()\n", This
);
1003 static const IActiveScriptVtbl JScriptVtbl
= {
1004 JScript_QueryInterface
,
1007 JScript_SetScriptSite
,
1008 JScript_GetScriptSite
,
1009 JScript_SetScriptState
,
1010 JScript_GetScriptState
,
1012 JScript_AddNamedItem
,
1014 JScript_GetScriptDispatch
,
1015 JScript_GetCurrentScriptThreadID
,
1016 JScript_GetScriptThreadID
,
1017 JScript_GetScriptThreadState
,
1018 JScript_InterruptScriptThread
,
1022 static inline JScript
*impl_from_IActiveScriptParse(IActiveScriptParse
*iface
)
1024 return CONTAINING_RECORD(iface
, JScript
, IActiveScriptParse_iface
);
1027 static HRESULT WINAPI
JScriptParse_QueryInterface(IActiveScriptParse
*iface
, REFIID riid
, void **ppv
)
1029 JScript
*This
= impl_from_IActiveScriptParse(iface
);
1030 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
1033 static ULONG WINAPI
JScriptParse_AddRef(IActiveScriptParse
*iface
)
1035 JScript
*This
= impl_from_IActiveScriptParse(iface
);
1036 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
1039 static ULONG WINAPI
JScriptParse_Release(IActiveScriptParse
*iface
)
1041 JScript
*This
= impl_from_IActiveScriptParse(iface
);
1042 return IActiveScript_Release(&This
->IActiveScript_iface
);
1045 static HRESULT WINAPI
JScriptParse_InitNew(IActiveScriptParse
*iface
)
1047 JScript
*This
= impl_from_IActiveScriptParse(iface
);
1049 TRACE("(%p)\n", This
);
1051 if(This
->is_initialized
)
1052 return E_UNEXPECTED
;
1053 This
->is_initialized
= TRUE
;
1056 change_state(This
, SCRIPTSTATE_INITIALIZED
);
1060 static HRESULT WINAPI
JScriptParse_AddScriptlet(IActiveScriptParse
*iface
,
1061 LPCOLESTR pstrDefaultName
, LPCOLESTR pstrCode
, LPCOLESTR pstrItemName
,
1062 LPCOLESTR pstrSubItemName
, LPCOLESTR pstrEventName
, LPCOLESTR pstrDelimiter
,
1063 CTXARG_T dwSourceContextCookie
, ULONG ulStartingLineNumber
, DWORD dwFlags
,
1064 BSTR
*pbstrName
, EXCEPINFO
*pexcepinfo
)
1066 JScript
*This
= impl_from_IActiveScriptParse(iface
);
1067 FIXME("(%p)->(%s %s %s %s %s %s %s %u %x %p %p)\n", This
, debugstr_w(pstrDefaultName
),
1068 debugstr_w(pstrCode
), debugstr_w(pstrItemName
), debugstr_w(pstrSubItemName
),
1069 debugstr_w(pstrEventName
), debugstr_w(pstrDelimiter
), wine_dbgstr_longlong(dwSourceContextCookie
),
1070 ulStartingLineNumber
, dwFlags
, pbstrName
, pexcepinfo
);
1074 static HRESULT WINAPI
JScriptParse_ParseScriptText(IActiveScriptParse
*iface
,
1075 LPCOLESTR pstrCode
, LPCOLESTR pstrItemName
, IUnknown
*punkContext
,
1076 LPCOLESTR pstrDelimiter
, CTXARG_T dwSourceContextCookie
, ULONG ulStartingLine
,
1077 DWORD dwFlags
, VARIANT
*pvarResult
, EXCEPINFO
*pexcepinfo
)
1079 JScript
*This
= impl_from_IActiveScriptParse(iface
);
1080 named_item_t
*item
= NULL
;
1085 TRACE("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This
, debugstr_w(pstrCode
),
1086 debugstr_w(pstrItemName
), punkContext
, debugstr_w(pstrDelimiter
),
1087 wine_dbgstr_longlong(dwSourceContextCookie
), ulStartingLine
, dwFlags
, pvarResult
, pexcepinfo
);
1089 if(This
->thread_id
!= GetCurrentThreadId() || This
->ctx
->state
== SCRIPTSTATE_CLOSED
)
1090 return E_UNEXPECTED
;
1093 item
= lookup_named_item(This
->ctx
, pstrItemName
, 0);
1095 WARN("Unknown context %s\n", debugstr_w(pstrItemName
));
1096 return E_INVALIDARG
;
1098 if(!item
->script_obj
) item
= NULL
;
1101 enter_script(This
->ctx
, &ei
);
1102 hres
= compile_script(This
->ctx
, pstrCode
, dwSourceContextCookie
, ulStartingLine
, NULL
, pstrDelimiter
,
1103 (dwFlags
& SCRIPTTEXT_ISEXPRESSION
) != 0, This
->is_encode
, item
, &code
);
1105 return leave_script(This
->ctx
, hres
);
1107 if(dwFlags
& SCRIPTTEXT_ISEXPRESSION
) {
1110 hres
= exec_source(This
->ctx
, EXEC_GLOBAL
, code
, &code
->global_code
, NULL
, NULL
, NULL
, 0, NULL
, &r
);
1111 if(SUCCEEDED(hres
)) {
1113 hres
= jsval_to_variant(r
, pvarResult
);
1117 return leave_script(This
->ctx
, hres
);
1120 code
->is_persistent
= (dwFlags
& SCRIPTTEXT_ISPERSISTENT
) != 0;
1123 * Although pvarResult is not really used without SCRIPTTEXT_ISEXPRESSION flag, if it's not NULL,
1124 * script is executed immediately, even if it's not in started state yet.
1126 if(!pvarResult
&& !is_started(This
->ctx
)) {
1127 list_add_tail(&This
->queued_code
, &code
->entry
);
1129 hres
= exec_source(This
->ctx
, EXEC_GLOBAL
, code
, &code
->global_code
, NULL
, NULL
, NULL
, 0, NULL
, NULL
);
1130 if(code
->is_persistent
)
1131 list_add_tail(&This
->persistent_code
, &code
->entry
);
1133 release_bytecode(code
);
1136 if(FAILED(hres
= leave_script(This
->ctx
, hres
)))
1140 V_VT(pvarResult
) = VT_EMPTY
;
1144 static const IActiveScriptParseVtbl JScriptParseVtbl
= {
1145 JScriptParse_QueryInterface
,
1146 JScriptParse_AddRef
,
1147 JScriptParse_Release
,
1148 JScriptParse_InitNew
,
1149 JScriptParse_AddScriptlet
,
1150 JScriptParse_ParseScriptText
1153 static inline JScript
*impl_from_IActiveScriptParseProcedure2(IActiveScriptParseProcedure2
*iface
)
1155 return CONTAINING_RECORD(iface
, JScript
, IActiveScriptParseProcedure2_iface
);
1158 static HRESULT WINAPI
JScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2
*iface
, REFIID riid
, void **ppv
)
1160 JScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
1161 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
1164 static ULONG WINAPI
JScriptParseProcedure_AddRef(IActiveScriptParseProcedure2
*iface
)
1166 JScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
1167 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
1170 static ULONG WINAPI
JScriptParseProcedure_Release(IActiveScriptParseProcedure2
*iface
)
1172 JScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
1173 return IActiveScript_Release(&This
->IActiveScript_iface
);
1176 static HRESULT WINAPI
JScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2
*iface
,
1177 LPCOLESTR pstrCode
, LPCOLESTR pstrFormalParams
, LPCOLESTR pstrProcedureName
,
1178 LPCOLESTR pstrItemName
, IUnknown
*punkContext
, LPCOLESTR pstrDelimiter
,
1179 CTXARG_T dwSourceContextCookie
, ULONG ulStartingLineNumber
, DWORD dwFlags
, IDispatch
**ppdisp
)
1181 JScript
*This
= impl_from_IActiveScriptParseProcedure2(iface
);
1182 named_item_t
*item
= NULL
;
1188 TRACE("(%p)->(%s %s %s %s %p %s %s %u %x %p)\n", This
, debugstr_w(pstrCode
), debugstr_w(pstrFormalParams
),
1189 debugstr_w(pstrProcedureName
), debugstr_w(pstrItemName
), punkContext
, debugstr_w(pstrDelimiter
),
1190 wine_dbgstr_longlong(dwSourceContextCookie
), ulStartingLineNumber
, dwFlags
, ppdisp
);
1192 if(This
->thread_id
!= GetCurrentThreadId() || This
->ctx
->state
== SCRIPTSTATE_CLOSED
)
1193 return E_UNEXPECTED
;
1196 item
= lookup_named_item(This
->ctx
, pstrItemName
, 0);
1198 WARN("Unknown context %s\n", debugstr_w(pstrItemName
));
1199 return E_INVALIDARG
;
1201 if(!item
->script_obj
) item
= NULL
;
1204 enter_script(This
->ctx
, &ei
);
1205 hres
= compile_script(This
->ctx
, pstrCode
, dwSourceContextCookie
, ulStartingLineNumber
, pstrFormalParams
,
1206 pstrDelimiter
, FALSE
, This
->is_encode
, item
, &code
);
1208 hres
= create_source_function(This
->ctx
, code
, &code
->global_code
, NULL
, &dispex
);
1209 release_bytecode(code
);
1210 hres
= leave_script(This
->ctx
, hres
);
1214 *ppdisp
= to_disp(dispex
);
1218 static const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl
= {
1219 JScriptParseProcedure_QueryInterface
,
1220 JScriptParseProcedure_AddRef
,
1221 JScriptParseProcedure_Release
,
1222 JScriptParseProcedure_ParseProcedureText
,
1225 static inline JScript
*impl_from_IActiveScriptProperty(IActiveScriptProperty
*iface
)
1227 return CONTAINING_RECORD(iface
, JScript
, IActiveScriptProperty_iface
);
1230 static HRESULT WINAPI
JScriptProperty_QueryInterface(IActiveScriptProperty
*iface
, REFIID riid
, void **ppv
)
1232 JScript
*This
= impl_from_IActiveScriptProperty(iface
);
1233 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
1236 static ULONG WINAPI
JScriptProperty_AddRef(IActiveScriptProperty
*iface
)
1238 JScript
*This
= impl_from_IActiveScriptProperty(iface
);
1239 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
1242 static ULONG WINAPI
JScriptProperty_Release(IActiveScriptProperty
*iface
)
1244 JScript
*This
= impl_from_IActiveScriptProperty(iface
);
1245 return IActiveScript_Release(&This
->IActiveScript_iface
);
1248 static HRESULT WINAPI
JScriptProperty_GetProperty(IActiveScriptProperty
*iface
, DWORD dwProperty
,
1249 VARIANT
*pvarIndex
, VARIANT
*pvarValue
)
1251 JScript
*This
= impl_from_IActiveScriptProperty(iface
);
1252 FIXME("(%p)->(%x %p %p)\n", This
, dwProperty
, pvarIndex
, pvarValue
);
1256 static HRESULT WINAPI
JScriptProperty_SetProperty(IActiveScriptProperty
*iface
, DWORD dwProperty
,
1257 VARIANT
*pvarIndex
, VARIANT
*pvarValue
)
1259 JScript
*This
= impl_from_IActiveScriptProperty(iface
);
1261 TRACE("(%p)->(%x %s %s)\n", This
, dwProperty
, debugstr_variant(pvarIndex
), debugstr_variant(pvarValue
));
1264 FIXME("unsupported pvarIndex\n");
1266 switch(dwProperty
) {
1267 case SCRIPTPROP_INVOKEVERSIONING
:
1268 if(V_VT(pvarValue
) != VT_I4
|| V_I4(pvarValue
) < 0
1269 || (V_I4(pvarValue
) > 15 && !(V_I4(pvarValue
) & SCRIPTLANGUAGEVERSION_HTML
))) {
1270 WARN("invalid value %s\n", debugstr_variant(pvarValue
));
1271 return E_INVALIDARG
;
1274 This
->version
= V_I4(pvarValue
) & 0x1ff;
1275 This
->html_mode
= (V_I4(pvarValue
) & SCRIPTLANGUAGEVERSION_HTML
) != 0;
1278 FIXME("Unimplemented property %x\n", dwProperty
);
1285 static const IActiveScriptPropertyVtbl JScriptPropertyVtbl
= {
1286 JScriptProperty_QueryInterface
,
1287 JScriptProperty_AddRef
,
1288 JScriptProperty_Release
,
1289 JScriptProperty_GetProperty
,
1290 JScriptProperty_SetProperty
1293 static inline JScript
*impl_from_IObjectSafety(IObjectSafety
*iface
)
1295 return CONTAINING_RECORD(iface
, JScript
, IObjectSafety_iface
);
1298 static HRESULT WINAPI
JScriptSafety_QueryInterface(IObjectSafety
*iface
, REFIID riid
, void **ppv
)
1300 JScript
*This
= impl_from_IObjectSafety(iface
);
1301 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
1304 static ULONG WINAPI
JScriptSafety_AddRef(IObjectSafety
*iface
)
1306 JScript
*This
= impl_from_IObjectSafety(iface
);
1307 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
1310 static ULONG WINAPI
JScriptSafety_Release(IObjectSafety
*iface
)
1312 JScript
*This
= impl_from_IObjectSafety(iface
);
1313 return IActiveScript_Release(&This
->IActiveScript_iface
);
1316 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
1318 static HRESULT WINAPI
JScriptSafety_GetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
1319 DWORD
*pdwSupportedOptions
, DWORD
*pdwEnabledOptions
)
1321 JScript
*This
= impl_from_IObjectSafety(iface
);
1323 TRACE("(%p)->(%s %p %p)\n", This
, debugstr_guid(riid
), pdwSupportedOptions
, pdwEnabledOptions
);
1325 if(!pdwSupportedOptions
|| !pdwEnabledOptions
)
1328 *pdwSupportedOptions
= SUPPORTED_OPTIONS
;
1329 *pdwEnabledOptions
= This
->safeopt
;
1334 static HRESULT WINAPI
JScriptSafety_SetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
1335 DWORD dwOptionSetMask
, DWORD dwEnabledOptions
)
1337 JScript
*This
= impl_from_IObjectSafety(iface
);
1339 TRACE("(%p)->(%s %x %x)\n", This
, debugstr_guid(riid
), dwOptionSetMask
, dwEnabledOptions
);
1341 if(dwOptionSetMask
& ~SUPPORTED_OPTIONS
)
1344 This
->safeopt
= (dwEnabledOptions
& dwOptionSetMask
) | (This
->safeopt
& ~dwOptionSetMask
) | INTERFACE_USES_DISPEX
;
1348 static const IObjectSafetyVtbl JScriptSafetyVtbl
= {
1349 JScriptSafety_QueryInterface
,
1350 JScriptSafety_AddRef
,
1351 JScriptSafety_Release
,
1352 JScriptSafety_GetInterfaceSafetyOptions
,
1353 JScriptSafety_SetInterfaceSafetyOptions
1356 static inline JScript
*impl_from_IVariantChangeType(IVariantChangeType
*iface
)
1358 return CONTAINING_RECORD(iface
, JScript
, IVariantChangeType_iface
);
1361 static HRESULT WINAPI
VariantChangeType_QueryInterface(IVariantChangeType
*iface
, REFIID riid
, void **ppv
)
1363 JScript
*This
= impl_from_IVariantChangeType(iface
);
1364 return IActiveScript_QueryInterface(&This
->IActiveScript_iface
, riid
, ppv
);
1367 static ULONG WINAPI
VariantChangeType_AddRef(IVariantChangeType
*iface
)
1369 JScript
*This
= impl_from_IVariantChangeType(iface
);
1370 return IActiveScript_AddRef(&This
->IActiveScript_iface
);
1373 static ULONG WINAPI
VariantChangeType_Release(IVariantChangeType
*iface
)
1375 JScript
*This
= impl_from_IVariantChangeType(iface
);
1376 return IActiveScript_Release(&This
->IActiveScript_iface
);
1379 static HRESULT WINAPI
VariantChangeType_ChangeType(IVariantChangeType
*iface
, VARIANT
*dst
, VARIANT
*src
, LCID lcid
, VARTYPE vt
)
1381 JScript
*This
= impl_from_IVariantChangeType(iface
);
1386 TRACE("(%p)->(%p %s %x %s)\n", This
, dst
, debugstr_variant(src
), lcid
, debugstr_vt(vt
));
1389 FIXME("Object uninitialized\n");
1390 return E_UNEXPECTED
;
1393 enter_script(This
->ctx
, &ei
);
1394 hres
= variant_change_type(This
->ctx
, &res
, src
, vt
);
1395 hres
= leave_script(This
->ctx
, hres
);
1399 hres
= VariantClear(dst
);
1409 static const IVariantChangeTypeVtbl VariantChangeTypeVtbl
= {
1410 VariantChangeType_QueryInterface
,
1411 VariantChangeType_AddRef
,
1412 VariantChangeType_Release
,
1413 VariantChangeType_ChangeType
1416 HRESULT
create_jscript_object(BOOL is_encode
, REFIID riid
, void **ppv
)
1421 ret
= heap_alloc_zero(sizeof(*ret
));
1423 return E_OUTOFMEMORY
;
1427 ret
->IActiveScript_iface
.lpVtbl
= &JScriptVtbl
;
1428 ret
->IActiveScriptParse_iface
.lpVtbl
= &JScriptParseVtbl
;
1429 ret
->IActiveScriptParseProcedure2_iface
.lpVtbl
= &JScriptParseProcedureVtbl
;
1430 ret
->IActiveScriptProperty_iface
.lpVtbl
= &JScriptPropertyVtbl
;
1431 ret
->IObjectSafety_iface
.lpVtbl
= &JScriptSafetyVtbl
;
1432 ret
->IVariantChangeType_iface
.lpVtbl
= &VariantChangeTypeVtbl
;
1434 ret
->safeopt
= INTERFACE_USES_DISPEX
;
1435 ret
->is_encode
= is_encode
;
1436 list_init(&ret
->persistent_code
);
1437 list_init(&ret
->queued_code
);
1439 hres
= IActiveScript_QueryInterface(&ret
->IActiveScript_iface
, riid
, ppv
);
1440 IActiveScript_Release(&ret
->IActiveScript_iface
);