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;
59 IActiveScriptSite *site;
61 parser_ctx_t *queue_head;
62 parser_ctx_t *queue_tail;
65 void script_release(script_ctx_t *ctx)
72 jsheap_free(&ctx->tmp_heap);
73 SysFreeString(ctx->last_match);
75 IServiceProvider_Release(&ctx->jscaller->IServiceProvider_iface);
80 static void change_state(JScript *This, SCRIPTSTATE state)
82 if(This->ctx->state == state)
85 This->ctx->state = state;
87 IActiveScriptSite_OnStateChange(This->site, state);
90 static inline BOOL is_started(script_ctx_t *ctx)
92 return ctx->state == SCRIPTSTATE_STARTED
93 || ctx->state == SCRIPTSTATE_CONNECTED
94 || ctx->state == SCRIPTSTATE_DISCONNECTED;
97 static HRESULT exec_global_code(JScript *This, parser_ctx_t *parser_ctx)
103 hres = create_exec_ctx(This->ctx, NULL, This->ctx->global, NULL, TRUE, &exec_ctx);
107 IActiveScriptSite_OnEnterScript(This->site);
109 memset(&jsexcept, 0, sizeof(jsexcept));
110 hres = exec_source(exec_ctx, parser_ctx, parser_ctx->source, FALSE, &jsexcept, NULL);
111 VariantClear(&jsexcept.var);
112 exec_release(exec_ctx);
114 IActiveScriptSite_OnLeaveScript(This->site);
118 static void clear_script_queue(JScript *This)
120 parser_ctx_t *iter, *iter2;
122 if(!This->queue_head)
125 iter = This->queue_head;
129 parser_release(iter);
133 This->queue_head = This->queue_tail = NULL;
136 static void exec_queued_code(JScript *This)
140 for(iter = This->queue_head; iter; iter = iter->next)
141 exec_global_code(This, iter);
143 clear_script_queue(This);
146 static HRESULT set_ctx_site(JScript *This)
150 This->ctx->lcid = This->lcid;
152 hres = init_global(This->ctx);
156 IActiveScriptSite_AddRef(This->site);
157 This->ctx->site = This->site;
159 change_state(This, SCRIPTSTATE_INITIALIZED);
163 static void decrease_state(JScript *This, SCRIPTSTATE state)
166 switch(This->ctx->state) {
167 case SCRIPTSTATE_CONNECTED:
168 change_state(This, SCRIPTSTATE_DISCONNECTED);
169 if(state == SCRIPTSTATE_DISCONNECTED)
172 case SCRIPTSTATE_STARTED:
173 case SCRIPTSTATE_DISCONNECTED:
174 clear_script_queue(This);
176 if(This->ctx->state == SCRIPTSTATE_DISCONNECTED)
177 change_state(This, SCRIPTSTATE_INITIALIZED);
178 if(state == SCRIPTSTATE_INITIALIZED)
181 case SCRIPTSTATE_INITIALIZED:
182 if(This->ctx->host_global) {
183 IDispatch_Release(This->ctx->host_global);
184 This->ctx->host_global = NULL;
187 if(This->ctx->named_items) {
188 named_item_t *iter, *iter2;
190 iter = This->ctx->named_items;
195 IDispatch_Release(iter->disp);
196 heap_free(iter->name);
201 This->ctx->named_items = NULL;
204 if(This->ctx->secmgr) {
205 IInternetHostSecurityManager_Release(This->ctx->secmgr);
206 This->ctx->secmgr = NULL;
209 if(This->ctx->site) {
210 IActiveScriptSite_Release(This->ctx->site);
211 This->ctx->site = NULL;
214 if(This->ctx->global) {
215 jsdisp_release(This->ctx->global);
216 This->ctx->global = NULL;
219 case SCRIPTSTATE_UNINITIALIZED:
220 change_state(This, state);
226 change_state(This, state);
227 }else if(state == SCRIPTSTATE_UNINITIALIZED) {
229 IActiveScriptSite_OnStateChange(This->site, state);
234 if(state == SCRIPTSTATE_UNINITIALIZED)
238 IActiveScriptSite_Release(This->site);
244 IServiceProvider IServiceProvider_iface;
248 IServiceProvider *sp;
251 static inline AXSite *impl_from_IServiceProvider(IServiceProvider *iface)
253 return CONTAINING_RECORD(iface, AXSite, IServiceProvider_iface);
256 static HRESULT WINAPI AXSite_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
258 AXSite *This = impl_from_IServiceProvider(iface);
260 if(IsEqualGUID(&IID_IUnknown, riid)) {
261 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
262 *ppv = &This->IServiceProvider_iface;
263 }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
264 TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
265 *ppv = &This->IServiceProvider_iface;
267 TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
269 return E_NOINTERFACE;
272 IUnknown_AddRef((IUnknown*)*ppv);
276 static ULONG WINAPI AXSite_AddRef(IServiceProvider *iface)
278 AXSite *This = impl_from_IServiceProvider(iface);
279 LONG ref = InterlockedIncrement(&This->ref);
281 TRACE("(%p) ref=%d\n", This, ref);
286 static ULONG WINAPI AXSite_Release(IServiceProvider *iface)
288 AXSite *This = impl_from_IServiceProvider(iface);
289 LONG ref = InterlockedDecrement(&This->ref);
291 TRACE("(%p) ref=%d\n", This, ref);
296 IServiceProvider_Release(This->sp);
304 static HRESULT WINAPI AXSite_QueryService(IServiceProvider *iface,
305 REFGUID guidService, REFIID riid, void **ppv)
307 AXSite *This = impl_from_IServiceProvider(iface);
309 TRACE("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
312 return E_NOINTERFACE;
314 return IServiceProvider_QueryService(This->sp, guidService, riid, ppv);
317 static IServiceProviderVtbl AXSiteVtbl = {
318 AXSite_QueryInterface,
324 IUnknown *create_ax_site(script_ctx_t *ctx)
326 IServiceProvider *sp = NULL;
330 hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IServiceProvider, (void**)&sp);
332 TRACE("Could not get IServiceProvider iface: %08x\n", hres);
335 ret = heap_alloc(sizeof(AXSite));
337 IServiceProvider_Release(sp);
341 ret->IServiceProvider_iface.lpVtbl = &AXSiteVtbl;
345 return (IUnknown*)&ret->IServiceProvider_iface;
348 static inline JScript *impl_from_IActiveScript(IActiveScript *iface)
350 return CONTAINING_RECORD(iface, JScript, IActiveScript_iface);
353 static HRESULT WINAPI JScript_QueryInterface(IActiveScript *iface, REFIID riid, void **ppv)
355 JScript *This = impl_from_IActiveScript(iface);
359 if(IsEqualGUID(riid, &IID_IUnknown)) {
360 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
361 *ppv = &This->IActiveScript_iface;
362 }else if(IsEqualGUID(riid, &IID_IActiveScript)) {
363 TRACE("(%p)->(IID_IActiveScript %p)\n", This, ppv);
364 *ppv = &This->IActiveScript_iface;
365 }else if(IsEqualGUID(riid, &IID_IActiveScriptParse)) {
366 TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This, ppv);
367 *ppv = &This->IActiveScriptParse_iface;
368 }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure)) {
369 TRACE("(%p)->(IID_IActiveScriptParseProcedure %p)\n", This, ppv);
370 *ppv = &This->IActiveScriptParseProcedure2_iface;
371 }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure2)) {
372 TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This, ppv);
373 *ppv = &This->IActiveScriptParseProcedure2_iface;
374 }else if(IsEqualGUID(riid, &IID_IActiveScriptProperty)) {
375 TRACE("(%p)->(IID_IActiveScriptProperty %p)\n", This, ppv);
376 *ppv = &This->IActiveScriptProperty_iface;
377 }else if(IsEqualGUID(riid, &IID_IObjectSafety)) {
378 TRACE("(%p)->(IID_IObjectSafety %p)\n", This, ppv);
379 *ppv = &This->IObjectSafety_iface;
380 }else if(IsEqualGUID(riid, &IID_IVariantChangeType)) {
381 TRACE("(%p)->(IID_IVariantChangeType %p)\n", This, ppv);
382 *ppv = &This->IVariantChangeType_iface;
386 IUnknown_AddRef((IUnknown*)*ppv);
390 FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
391 return E_NOINTERFACE;
394 static ULONG WINAPI JScript_AddRef(IActiveScript *iface)
396 JScript *This = impl_from_IActiveScript(iface);
397 LONG ref = InterlockedIncrement(&This->ref);
399 TRACE("(%p) ref=%d\n", This, ref);
404 static ULONG WINAPI JScript_Release(IActiveScript *iface)
406 JScript *This = impl_from_IActiveScript(iface);
407 LONG ref = InterlockedDecrement(&This->ref);
409 TRACE("(%p) ref=%d\n", iface, ref);
412 if(This->ctx && This->ctx->state != SCRIPTSTATE_CLOSED)
413 IActiveScript_Close(&This->IActiveScript_iface);
415 script_release(This->ctx);
423 static HRESULT WINAPI JScript_SetScriptSite(IActiveScript *iface,
424 IActiveScriptSite *pass)
426 JScript *This = impl_from_IActiveScript(iface);
430 TRACE("(%p)->(%p)\n", This, pass);
438 if(InterlockedCompareExchange(&This->thread_id, GetCurrentThreadId(), 0))
442 IActiveScriptSite_AddRef(This->site);
444 hres = IActiveScriptSite_GetLCID(This->site, &lcid);
448 return This->ctx ? set_ctx_site(This) : S_OK;
451 static HRESULT WINAPI JScript_GetScriptSite(IActiveScript *iface, REFIID riid,
454 JScript *This = impl_from_IActiveScript(iface);
455 FIXME("(%p)->()\n", This);
459 static HRESULT WINAPI JScript_SetScriptState(IActiveScript *iface, SCRIPTSTATE ss)
461 JScript *This = impl_from_IActiveScript(iface);
463 TRACE("(%p)->(%d)\n", This, ss);
465 if(This->thread_id && GetCurrentThreadId() != This->thread_id)
468 if(ss == SCRIPTSTATE_UNINITIALIZED) {
469 if(This->ctx && This->ctx->state == SCRIPTSTATE_CLOSED)
472 decrease_state(This, SCRIPTSTATE_UNINITIALIZED);
480 case SCRIPTSTATE_STARTED:
481 case SCRIPTSTATE_CONNECTED: /* FIXME */
482 if(This->ctx->state == SCRIPTSTATE_CLOSED)
485 exec_queued_code(This);
487 case SCRIPTSTATE_INITIALIZED:
488 FIXME("unimplemented SCRIPTSTATE_INITIALIZED\n");
491 FIXME("unimplemented state %d\n", ss);
495 change_state(This, ss);
499 static HRESULT WINAPI JScript_GetScriptState(IActiveScript *iface, SCRIPTSTATE *pssState)
501 JScript *This = impl_from_IActiveScript(iface);
503 TRACE("(%p)->(%p)\n", This, pssState);
508 if(This->thread_id && This->thread_id != GetCurrentThreadId())
511 *pssState = This->ctx ? This->ctx->state : SCRIPTSTATE_UNINITIALIZED;
515 static HRESULT WINAPI JScript_Close(IActiveScript *iface)
517 JScript *This = impl_from_IActiveScript(iface);
519 TRACE("(%p)->()\n", This);
521 if(This->thread_id && This->thread_id != GetCurrentThreadId())
524 decrease_state(This, SCRIPTSTATE_CLOSED);
528 static HRESULT WINAPI JScript_AddNamedItem(IActiveScript *iface,
529 LPCOLESTR pstrName, DWORD dwFlags)
531 JScript *This = impl_from_IActiveScript(iface);
533 IDispatch *disp = NULL;
536 TRACE("(%p)->(%s %x)\n", This, debugstr_w(pstrName), dwFlags);
538 if(This->thread_id != GetCurrentThreadId() || !This->ctx || This->ctx->state == SCRIPTSTATE_CLOSED)
541 if(dwFlags & SCRIPTITEM_GLOBALMEMBERS) {
544 hres = IActiveScriptSite_GetItemInfo(This->site, pstrName, SCRIPTINFO_IUNKNOWN, &unk, NULL);
546 WARN("GetItemInfo failed: %08x\n", hres);
550 hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
551 IUnknown_Release(unk);
553 WARN("object does not implement IDispatch\n");
557 if(This->ctx->host_global)
558 IDispatch_Release(This->ctx->host_global);
559 IDispatch_AddRef(disp);
560 This->ctx->host_global = disp;
563 item = heap_alloc(sizeof(*item));
566 IDispatch_Release(disp);
567 return E_OUTOFMEMORY;
571 item->flags = dwFlags;
572 item->name = heap_strdupW(pstrName);
575 IDispatch_Release(disp);
577 return E_OUTOFMEMORY;
580 item->next = This->ctx->named_items;
581 This->ctx->named_items = item;
586 static HRESULT WINAPI JScript_AddTypeLib(IActiveScript *iface, REFGUID rguidTypeLib,
587 DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
589 JScript *This = impl_from_IActiveScript(iface);
590 FIXME("(%p)->()\n", This);
594 static HRESULT WINAPI JScript_GetScriptDispatch(IActiveScript *iface, LPCOLESTR pstrItemName,
597 JScript *This = impl_from_IActiveScript(iface);
599 TRACE("(%p)->(%p)\n", This, ppdisp);
604 if(This->thread_id != GetCurrentThreadId() || !This->ctx->global) {
609 *ppdisp = to_disp(This->ctx->global);
610 IDispatch_AddRef(*ppdisp);
614 static HRESULT WINAPI JScript_GetCurrentScriptThreadID(IActiveScript *iface,
615 SCRIPTTHREADID *pstridThread)
617 JScript *This = impl_from_IActiveScript(iface);
618 FIXME("(%p)->()\n", This);
622 static HRESULT WINAPI JScript_GetScriptThreadID(IActiveScript *iface,
623 DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
625 JScript *This = impl_from_IActiveScript(iface);
626 FIXME("(%p)->()\n", This);
630 static HRESULT WINAPI JScript_GetScriptThreadState(IActiveScript *iface,
631 SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
633 JScript *This = impl_from_IActiveScript(iface);
634 FIXME("(%p)->()\n", This);
638 static HRESULT WINAPI JScript_InterruptScriptThread(IActiveScript *iface,
639 SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
641 JScript *This = impl_from_IActiveScript(iface);
642 FIXME("(%p)->()\n", This);
646 static HRESULT WINAPI JScript_Clone(IActiveScript *iface, IActiveScript **ppscript)
648 JScript *This = impl_from_IActiveScript(iface);
649 FIXME("(%p)->()\n", This);
653 static const IActiveScriptVtbl JScriptVtbl = {
654 JScript_QueryInterface,
657 JScript_SetScriptSite,
658 JScript_GetScriptSite,
659 JScript_SetScriptState,
660 JScript_GetScriptState,
662 JScript_AddNamedItem,
664 JScript_GetScriptDispatch,
665 JScript_GetCurrentScriptThreadID,
666 JScript_GetScriptThreadID,
667 JScript_GetScriptThreadState,
668 JScript_InterruptScriptThread,
672 static inline JScript *impl_from_IActiveScriptParse(IActiveScriptParse *iface)
674 return CONTAINING_RECORD(iface, JScript, IActiveScriptParse_iface);
677 static HRESULT WINAPI JScriptParse_QueryInterface(IActiveScriptParse *iface, REFIID riid, void **ppv)
679 JScript *This = impl_from_IActiveScriptParse(iface);
680 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
683 static ULONG WINAPI JScriptParse_AddRef(IActiveScriptParse *iface)
685 JScript *This = impl_from_IActiveScriptParse(iface);
686 return IActiveScript_AddRef(&This->IActiveScript_iface);
689 static ULONG WINAPI JScriptParse_Release(IActiveScriptParse *iface)
691 JScript *This = impl_from_IActiveScriptParse(iface);
692 return IActiveScript_Release(&This->IActiveScript_iface);
695 static HRESULT WINAPI JScriptParse_InitNew(IActiveScriptParse *iface)
697 JScript *This = impl_from_IActiveScriptParse(iface);
701 TRACE("(%p)\n", This);
706 ctx = heap_alloc_zero(sizeof(script_ctx_t));
708 return E_OUTOFMEMORY;
711 ctx->state = SCRIPTSTATE_UNINITIALIZED;
712 ctx->safeopt = This->safeopt;
713 ctx->version = This->version;
714 jsheap_init(&ctx->tmp_heap);
716 hres = create_jscaller(ctx);
722 ctx = InterlockedCompareExchangePointer((void**)&This->ctx, ctx, NULL);
728 return This->site ? set_ctx_site(This) : S_OK;
731 static HRESULT WINAPI JScriptParse_AddScriptlet(IActiveScriptParse *iface,
732 LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName,
733 LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter,
734 CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags,
735 BSTR *pbstrName, EXCEPINFO *pexcepinfo)
737 JScript *This = impl_from_IActiveScriptParse(iface);
738 FIXME("(%p)->(%s %s %s %s %s %s %s %u %x %p %p)\n", This, debugstr_w(pstrDefaultName),
739 debugstr_w(pstrCode), debugstr_w(pstrItemName), debugstr_w(pstrSubItemName),
740 debugstr_w(pstrEventName), debugstr_w(pstrDelimiter), wine_dbgstr_longlong(dwSourceContextCookie),
741 ulStartingLineNumber, dwFlags, pbstrName, pexcepinfo);
745 static HRESULT WINAPI JScriptParse_ParseScriptText(IActiveScriptParse *iface,
746 LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext,
747 LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLine,
748 DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
750 JScript *This = impl_from_IActiveScriptParse(iface);
751 parser_ctx_t *parser_ctx;
754 TRACE("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This, debugstr_w(pstrCode),
755 debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
756 wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLine, dwFlags, pvarResult, pexcepinfo);
758 if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
761 hres = script_parse(This->ctx, pstrCode, pstrDelimiter, &parser_ctx);
765 if(!is_started(This->ctx)) {
767 This->queue_tail = This->queue_tail->next = parser_ctx;
769 This->queue_head = This->queue_tail = parser_ctx;
773 hres = exec_global_code(This, parser_ctx);
774 parser_release(parser_ctx);
779 static const IActiveScriptParseVtbl JScriptParseVtbl = {
780 JScriptParse_QueryInterface,
782 JScriptParse_Release,
783 JScriptParse_InitNew,
784 JScriptParse_AddScriptlet,
785 JScriptParse_ParseScriptText
788 static inline JScript *impl_from_IActiveScriptParseProcedure2(IActiveScriptParseProcedure2 *iface)
790 return CONTAINING_RECORD(iface, JScript, IActiveScriptParseProcedure2_iface);
793 static HRESULT WINAPI JScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
795 JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
796 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
799 static ULONG WINAPI JScriptParseProcedure_AddRef(IActiveScriptParseProcedure2 *iface)
801 JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
802 return IActiveScript_AddRef(&This->IActiveScript_iface);
805 static ULONG WINAPI JScriptParseProcedure_Release(IActiveScriptParseProcedure2 *iface)
807 JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
808 return IActiveScript_Release(&This->IActiveScript_iface);
811 static HRESULT WINAPI JScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2 *iface,
812 LPCOLESTR pstrCode, LPCOLESTR pstrFormalParams, LPCOLESTR pstrProcedureName,
813 LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter,
814 CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, IDispatch **ppdisp)
816 JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
817 parser_ctx_t *parser_ctx;
821 TRACE("(%p)->(%s %s %s %s %p %s %s %u %x %p)\n", This, debugstr_w(pstrCode), debugstr_w(pstrFormalParams),
822 debugstr_w(pstrProcedureName), debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
823 wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLineNumber, dwFlags, ppdisp);
825 if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
828 hres = script_parse(This->ctx, pstrCode, pstrDelimiter, &parser_ctx);
830 WARN("Parse failed %08x\n", hres);
834 hres = create_source_function(parser_ctx, NULL, parser_ctx->source, NULL, NULL, 0, &dispex);
835 parser_release(parser_ctx);
839 *ppdisp = to_disp(dispex);
843 static const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl = {
844 JScriptParseProcedure_QueryInterface,
845 JScriptParseProcedure_AddRef,
846 JScriptParseProcedure_Release,
847 JScriptParseProcedure_ParseProcedureText,
850 static inline JScript *impl_from_IActiveScriptProperty(IActiveScriptProperty *iface)
852 return CONTAINING_RECORD(iface, JScript, IActiveScriptProperty_iface);
855 static HRESULT WINAPI JScriptProperty_QueryInterface(IActiveScriptProperty *iface, REFIID riid, void **ppv)
857 JScript *This = impl_from_IActiveScriptProperty(iface);
858 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
861 static ULONG WINAPI JScriptProperty_AddRef(IActiveScriptProperty *iface)
863 JScript *This = impl_from_IActiveScriptProperty(iface);
864 return IActiveScript_AddRef(&This->IActiveScript_iface);
867 static ULONG WINAPI JScriptProperty_Release(IActiveScriptProperty *iface)
869 JScript *This = impl_from_IActiveScriptProperty(iface);
870 return IActiveScript_Release(&This->IActiveScript_iface);
873 static HRESULT WINAPI JScriptProperty_GetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
874 VARIANT *pvarIndex, VARIANT *pvarValue)
876 JScript *This = impl_from_IActiveScriptProperty(iface);
877 FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
881 static HRESULT WINAPI JScriptProperty_SetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
882 VARIANT *pvarIndex, VARIANT *pvarValue)
884 JScript *This = impl_from_IActiveScriptProperty(iface);
886 TRACE("(%p)->(%x %s %s)\n", This, dwProperty, debugstr_variant(pvarIndex), debugstr_variant(pvarValue));
889 FIXME("unsupported pvarIndex\n");
892 case SCRIPTPROP_INVOKEVERSIONING:
893 if(V_VT(pvarValue) != VT_I4 || V_I4(pvarValue) < 0 || V_I4(pvarValue) > 15) {
894 WARN("invalid value %s\n", debugstr_variant(pvarValue));
898 This->version = V_I4(pvarValue);
901 FIXME("Unimplemented property %x\n", dwProperty);
908 static const IActiveScriptPropertyVtbl JScriptPropertyVtbl = {
909 JScriptProperty_QueryInterface,
910 JScriptProperty_AddRef,
911 JScriptProperty_Release,
912 JScriptProperty_GetProperty,
913 JScriptProperty_SetProperty
916 static inline JScript *impl_from_IObjectSafety(IObjectSafety *iface)
918 return CONTAINING_RECORD(iface, JScript, IObjectSafety_iface);
921 static HRESULT WINAPI JScriptSafety_QueryInterface(IObjectSafety *iface, REFIID riid, void **ppv)
923 JScript *This = impl_from_IObjectSafety(iface);
924 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
927 static ULONG WINAPI JScriptSafety_AddRef(IObjectSafety *iface)
929 JScript *This = impl_from_IObjectSafety(iface);
930 return IActiveScript_AddRef(&This->IActiveScript_iface);
933 static ULONG WINAPI JScriptSafety_Release(IObjectSafety *iface)
935 JScript *This = impl_from_IObjectSafety(iface);
936 return IActiveScript_Release(&This->IActiveScript_iface);
939 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
941 static HRESULT WINAPI JScriptSafety_GetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
942 DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
944 JScript *This = impl_from_IObjectSafety(iface);
946 TRACE("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
948 if(!pdwSupportedOptions || !pdwEnabledOptions)
951 *pdwSupportedOptions = SUPPORTED_OPTIONS;
952 *pdwEnabledOptions = This->safeopt;
957 static HRESULT WINAPI JScriptSafety_SetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
958 DWORD dwOptionSetMask, DWORD dwEnabledOptions)
960 JScript *This = impl_from_IObjectSafety(iface);
962 TRACE("(%p)->(%s %x %x)\n", This, debugstr_guid(riid), dwOptionSetMask, dwEnabledOptions);
964 if(dwOptionSetMask & ~SUPPORTED_OPTIONS)
967 This->safeopt = (dwEnabledOptions & dwOptionSetMask) | (This->safeopt & ~dwOptionSetMask) | INTERFACE_USES_DISPEX;
971 static const IObjectSafetyVtbl JScriptSafetyVtbl = {
972 JScriptSafety_QueryInterface,
973 JScriptSafety_AddRef,
974 JScriptSafety_Release,
975 JScriptSafety_GetInterfaceSafetyOptions,
976 JScriptSafety_SetInterfaceSafetyOptions
979 static inline JScript *impl_from_IVariantChangeType(IVariantChangeType *iface)
981 return CONTAINING_RECORD(iface, JScript, IVariantChangeType_iface);
984 static HRESULT WINAPI VariantChangeType_QueryInterface(IVariantChangeType *iface, REFIID riid, void **ppv)
986 JScript *This = impl_from_IVariantChangeType(iface);
987 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
990 static ULONG WINAPI VariantChangeType_AddRef(IVariantChangeType *iface)
992 JScript *This = impl_from_IVariantChangeType(iface);
993 return IActiveScript_AddRef(&This->IActiveScript_iface);
996 static ULONG WINAPI VariantChangeType_Release(IVariantChangeType *iface)
998 JScript *This = impl_from_IVariantChangeType(iface);
999 return IActiveScript_Release(&This->IActiveScript_iface);
1002 static HRESULT WINAPI VariantChangeType_ChangeType(IVariantChangeType *iface, VARIANT *dst, VARIANT *src, LCID lcid, VARTYPE vt)
1004 JScript *This = impl_from_IVariantChangeType(iface);
1005 FIXME("(%p)->(%p %s %x %d)\n", This, dst, debugstr_variant(src), lcid, vt);
1009 static const IVariantChangeTypeVtbl VariantChangeTypeVtbl = {
1010 VariantChangeType_QueryInterface,
1011 VariantChangeType_AddRef,
1012 VariantChangeType_Release,
1013 VariantChangeType_ChangeType
1016 HRESULT WINAPI JScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *pUnkOuter,
1017 REFIID riid, void **ppv)
1022 TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppv);
1026 return CLASS_E_NOAGGREGATION;
1031 ret = heap_alloc_zero(sizeof(*ret));
1033 return E_OUTOFMEMORY;
1035 ret->IActiveScript_iface.lpVtbl = &JScriptVtbl;
1036 ret->IActiveScriptParse_iface.lpVtbl = &JScriptParseVtbl;
1037 ret->IActiveScriptParseProcedure2_iface.lpVtbl = &JScriptParseProcedureVtbl;
1038 ret->IActiveScriptProperty_iface.lpVtbl = &JScriptPropertyVtbl;
1039 ret->IObjectSafety_iface.lpVtbl = &JScriptSafetyVtbl;
1040 ret->IVariantChangeType_iface.lpVtbl = &VariantChangeTypeVtbl;
1042 ret->safeopt = INTERFACE_USES_DISPEX;
1044 hres = IActiveScript_QueryInterface(&ret->IActiveScript_iface, riid, ppv);
1045 IActiveScript_Release(&ret->IActiveScript_iface);