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);
28 const IActiveScriptVtbl *lpIActiveScriptVtbl;
29 const IActiveScriptParseVtbl *lpIActiveScriptParseVtbl;
30 const IActiveScriptParseProcedure2Vtbl *lpIActiveScriptParseProcedure2Vtbl;
31 const IActiveScriptPropertyVtbl *lpIActiveScriptPropertyVtbl;
32 const IObjectSafetyVtbl *lpIObjectSafetyVtbl;
40 IActiveScriptSite *site;
42 parser_ctx_t *queue_head;
43 parser_ctx_t *queue_tail;
46 #define ACTSCRIPT(x) ((IActiveScript*) &(x)->lpIActiveScriptVtbl)
47 #define ASPARSE(x) ((IActiveScriptParse*) &(x)->lpIActiveScriptParseVtbl)
48 #define ASPARSEPROC(x) ((IActiveScriptParseProcedure2*) &(x)->lpIActiveScriptParseProcedure2Vtbl)
49 #define ACTSCPPROP(x) ((IActiveScriptProperty*) &(x)->lpIActiveScriptPropertyVtbl)
50 #define OBJSAFETY(x) ((IObjectSafety*) &(x)->lpIObjectSafetyVtbl)
52 void script_release(script_ctx_t *ctx)
57 jsheap_free(&ctx->tmp_heap);
61 static void change_state(JScript *This, SCRIPTSTATE state)
63 if(This->ctx->state == state)
66 This->ctx->state = state;
67 IActiveScriptSite_OnStateChange(This->site, state);
70 static inline BOOL is_started(script_ctx_t *ctx)
72 return ctx->state == SCRIPTSTATE_STARTED
73 || ctx->state == SCRIPTSTATE_CONNECTED
74 || ctx->state == SCRIPTSTATE_DISCONNECTED;
77 static HRESULT exec_global_code(JScript *This, parser_ctx_t *parser_ctx)
84 hres = create_exec_ctx((IDispatch*)_IDispatchEx_(This->ctx->script_disp), This->ctx->script_disp, NULL, &exec_ctx);
88 IActiveScriptSite_OnEnterScript(This->site);
90 memset(&jsexcept, 0, sizeof(jsexcept));
91 hres = exec_source(exec_ctx, parser_ctx, parser_ctx->source, &jsexcept, &var);
92 VariantClear(&jsexcept.var);
93 exec_release(exec_ctx);
97 IActiveScriptSite_OnLeaveScript(This->site);
102 static void clear_script_queue(JScript *This)
104 parser_ctx_t *iter, *iter2;
106 if(!This->queue_head)
109 iter = This->queue_head;
113 parser_release(iter);
117 This->queue_head = This->queue_tail = NULL;
120 static void exec_queued_code(JScript *This)
124 for(iter = This->queue_head; iter; iter = iter->next)
125 exec_global_code(This, iter);
127 clear_script_queue(This);
130 #define ACTSCRIPT_THIS(iface) DEFINE_THIS(JScript, IActiveScript, iface)
132 static HRESULT WINAPI JScript_QueryInterface(IActiveScript *iface, REFIID riid, void **ppv)
134 JScript *This = ACTSCRIPT_THIS(iface);
138 if(IsEqualGUID(riid, &IID_IUnknown)) {
139 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
140 *ppv = ACTSCRIPT(This);
141 }else if(IsEqualGUID(riid, &IID_IActiveScript)) {
142 TRACE("(%p)->(IID_IActiveScript %p)\n", This, ppv);
143 *ppv = ACTSCRIPT(This);
144 }else if(IsEqualGUID(riid, &IID_IActiveScriptParse)) {
145 TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This, ppv);
146 *ppv = ASPARSE(This);
147 }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure)) {
148 TRACE("(%p)->(IID_IActiveScriptParseProcedure %p)\n", This, ppv);
149 *ppv = ASPARSEPROC(This);
150 }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure2)) {
151 TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This, ppv);
152 *ppv = ASPARSEPROC(This);
153 }else if(IsEqualGUID(riid, &IID_IActiveScriptProperty)) {
154 TRACE("(%p)->(IID_IActiveScriptProperty %p)\n", This, ppv);
155 *ppv = ACTSCPPROP(This);
156 }else if(IsEqualGUID(riid, &IID_IObjectSafety)) {
157 TRACE("(%p)->(IID_IObjectSafety %p)\n", This, ppv);
158 *ppv = OBJSAFETY(This);
162 IUnknown_AddRef((IUnknown*)*ppv);
166 FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
167 return E_NOINTERFACE;
170 static ULONG WINAPI JScript_AddRef(IActiveScript *iface)
172 JScript *This = ACTSCRIPT_THIS(iface);
173 LONG ref = InterlockedIncrement(&This->ref);
175 TRACE("(%p) ref=%d\n", This, ref);
180 static ULONG WINAPI JScript_Release(IActiveScript *iface)
182 JScript *This = ACTSCRIPT_THIS(iface);
183 LONG ref = InterlockedDecrement(&This->ref);
185 TRACE("(%p) ref=%d\n", iface, ref);
188 if(This->ctx && This->ctx->state != SCRIPTSTATE_CLOSED)
189 IActiveScript_Close(ACTSCRIPT(This));
191 script_release(This->ctx);
199 static HRESULT WINAPI JScript_SetScriptSite(IActiveScript *iface,
200 IActiveScriptSite *pass)
202 JScript *This = ACTSCRIPT_THIS(iface);
206 TRACE("(%p)->(%p)\n", This, pass);
215 hres = IActiveScriptParse_InitNew(ASPARSE(This));
220 if(!This->ctx->script_disp) {
221 hres = create_dispex(This->ctx, NULL, NULL, &This->ctx->script_disp);
226 hres = init_global(This->ctx);
230 if(InterlockedCompareExchange(&This->thread_id, GetCurrentThreadId(), 0))
234 IActiveScriptSite_AddRef(This->site);
236 hres = IActiveScriptSite_GetLCID(This->site, &lcid);
238 This->ctx->lcid = lcid;
240 change_state(This, SCRIPTSTATE_INITIALIZED);
244 static HRESULT WINAPI JScript_GetScriptSite(IActiveScript *iface, REFIID riid,
247 JScript *This = ACTSCRIPT_THIS(iface);
248 FIXME("(%p)->()\n", This);
252 static HRESULT WINAPI JScript_SetScriptState(IActiveScript *iface, SCRIPTSTATE ss)
254 JScript *This = ACTSCRIPT_THIS(iface);
256 TRACE("(%p)->(%d)\n", This, ss);
258 if(!This->ctx || GetCurrentThreadId() != This->thread_id)
262 case SCRIPTSTATE_STARTED:
263 if(This->ctx->state == SCRIPTSTATE_CLOSED)
266 exec_queued_code(This);
269 FIXME("unimplemented state %d\n", ss);
273 change_state(This, ss);
277 static HRESULT WINAPI JScript_GetScriptState(IActiveScript *iface, SCRIPTSTATE *pssState)
279 JScript *This = ACTSCRIPT_THIS(iface);
281 TRACE("(%p)->(%p)\n", This, pssState);
286 if(!This->thread_id) {
287 *pssState = SCRIPTSTATE_UNINITIALIZED;
291 if(This->thread_id != GetCurrentThreadId())
294 *pssState = This->ctx ? This->ctx->state : SCRIPTSTATE_UNINITIALIZED;
298 static HRESULT WINAPI JScript_Close(IActiveScript *iface)
300 JScript *This = ACTSCRIPT_THIS(iface);
302 TRACE("(%p)->()\n", This);
304 if(This->thread_id != GetCurrentThreadId())
307 clear_script_queue(This);
309 if(This->ctx->named_items) {
310 named_item_t *iter, *iter2;
312 iter = This->ctx->named_items;
316 IDispatch_Release(iter->disp);
321 This->ctx->named_items = NULL;
325 change_state(This, SCRIPTSTATE_CLOSED);
327 if(This->ctx->script_disp) {
328 IDispatchEx_Release(_IDispatchEx_(This->ctx->script_disp));
329 This->ctx->script_disp = NULL;
332 if(This->ctx->global) {
333 IDispatchEx_Release(_IDispatchEx_(This->ctx->global));
334 This->ctx->global = NULL;
339 IActiveScriptSite_Release(This->site);
346 static HRESULT WINAPI JScript_AddNamedItem(IActiveScript *iface,
347 LPCOLESTR pstrName, DWORD dwFlags)
349 JScript *This = ACTSCRIPT_THIS(iface);
355 TRACE("(%p)->(%s %x)\n", This, debugstr_w(pstrName), dwFlags);
357 if(This->thread_id != GetCurrentThreadId() || !This->ctx || This->ctx->state == SCRIPTSTATE_CLOSED)
360 hres = IActiveScriptSite_GetItemInfo(This->site, pstrName, SCRIPTINFO_IUNKNOWN, &unk, NULL);
362 WARN("GetItemInfo failed: %08x\n", hres);
366 hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
367 IUnknown_Release(unk);
369 WARN("object does not implement IDispatch\n");
373 item = heap_alloc(sizeof(*item));
375 IDispatch_Release(disp);
376 return E_OUTOFMEMORY;
380 item->flags = dwFlags;
381 item->next = This->ctx->named_items;
382 This->ctx->named_items = item;
387 static HRESULT WINAPI JScript_AddTypeLib(IActiveScript *iface, REFGUID rguidTypeLib,
388 DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
390 JScript *This = ACTSCRIPT_THIS(iface);
391 FIXME("(%p)->()\n", This);
395 static HRESULT WINAPI JScript_GetScriptDispatch(IActiveScript *iface, LPCOLESTR pstrItemName,
398 JScript *This = ACTSCRIPT_THIS(iface);
400 TRACE("(%p)->(%p)\n", This, ppdisp);
405 if(This->thread_id != GetCurrentThreadId() || !This->ctx->script_disp) {
410 *ppdisp = (IDispatch*)_IDispatchEx_(This->ctx->script_disp);
411 IDispatch_AddRef(*ppdisp);
415 static HRESULT WINAPI JScript_GetCurrentScriptThreadID(IActiveScript *iface,
416 SCRIPTTHREADID *pstridThread)
418 JScript *This = ACTSCRIPT_THIS(iface);
419 FIXME("(%p)->()\n", This);
423 static HRESULT WINAPI JScript_GetScriptThreadID(IActiveScript *iface,
424 DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
426 JScript *This = ACTSCRIPT_THIS(iface);
427 FIXME("(%p)->()\n", This);
431 static HRESULT WINAPI JScript_GetScriptThreadState(IActiveScript *iface,
432 SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
434 JScript *This = ACTSCRIPT_THIS(iface);
435 FIXME("(%p)->()\n", This);
439 static HRESULT WINAPI JScript_InterruptScriptThread(IActiveScript *iface,
440 SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
442 JScript *This = ACTSCRIPT_THIS(iface);
443 FIXME("(%p)->()\n", This);
447 static HRESULT WINAPI JScript_Clone(IActiveScript *iface, IActiveScript **ppscript)
449 JScript *This = ACTSCRIPT_THIS(iface);
450 FIXME("(%p)->()\n", This);
454 #undef ACTSCRIPT_THIS
456 static const IActiveScriptVtbl JScriptVtbl = {
457 JScript_QueryInterface,
460 JScript_SetScriptSite,
461 JScript_GetScriptSite,
462 JScript_SetScriptState,
463 JScript_GetScriptState,
465 JScript_AddNamedItem,
467 JScript_GetScriptDispatch,
468 JScript_GetCurrentScriptThreadID,
469 JScript_GetScriptThreadID,
470 JScript_GetScriptThreadState,
471 JScript_InterruptScriptThread,
475 #define ASPARSE_THIS(iface) DEFINE_THIS(JScript, IActiveScriptParse, iface)
477 static HRESULT WINAPI JScriptParse_QueryInterface(IActiveScriptParse *iface, REFIID riid, void **ppv)
479 JScript *This = ASPARSE_THIS(iface);
480 return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
483 static ULONG WINAPI JScriptParse_AddRef(IActiveScriptParse *iface)
485 JScript *This = ASPARSE_THIS(iface);
486 return IActiveScript_AddRef(ACTSCRIPT(This));
489 static ULONG WINAPI JScriptParse_Release(IActiveScriptParse *iface)
491 JScript *This = ASPARSE_THIS(iface);
492 return IActiveScript_Release(ACTSCRIPT(This));
495 static HRESULT WINAPI JScriptParse_InitNew(IActiveScriptParse *iface)
497 JScript *This = ASPARSE_THIS(iface);
500 TRACE("(%p)\n", This);
505 ctx = heap_alloc_zero(sizeof(script_ctx_t));
507 return E_OUTOFMEMORY;
510 ctx->state = SCRIPTSTATE_UNINITIALIZED;
511 jsheap_init(&ctx->tmp_heap);
513 ctx = InterlockedCompareExchangePointer((void**)&This->ctx, ctx, NULL);
522 static HRESULT WINAPI JScriptParse_AddScriptlet(IActiveScriptParse *iface,
523 LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName,
524 LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter,
525 DWORD dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags,
526 BSTR *pbstrName, EXCEPINFO *pexcepinfo)
528 JScript *This = ASPARSE_THIS(iface);
529 FIXME("(%p)->(%s %s %s %s %s %s %x %u %x %p %p)\n", This, debugstr_w(pstrDefaultName),
530 debugstr_w(pstrCode), debugstr_w(pstrItemName), debugstr_w(pstrSubItemName),
531 debugstr_w(pstrEventName), debugstr_w(pstrDelimiter), dwSourceContextCookie,
532 ulStartingLineNumber, dwFlags, pbstrName, pexcepinfo);
536 static HRESULT WINAPI JScriptParse_ParseScriptText(IActiveScriptParse *iface,
537 LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext,
538 LPCOLESTR pstrDelimiter, DWORD dwSourceContextCookie, ULONG ulStartingLine,
539 DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
541 JScript *This = ASPARSE_THIS(iface);
542 parser_ctx_t *parser_ctx;
545 TRACE("(%p)->(%s %s %p %s %x %u %x %p %p)\n", This, debugstr_w(pstrCode),
546 debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
547 dwSourceContextCookie, ulStartingLine, dwFlags, pvarResult, pexcepinfo);
549 if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
552 hres = script_parse(This->ctx, pstrCode, &parser_ctx);
556 if(!is_started(This->ctx)) {
558 This->queue_tail = This->queue_tail->next = parser_ctx;
560 This->queue_head = This->queue_tail = parser_ctx;
564 hres = exec_global_code(This, parser_ctx);
565 parser_release(parser_ctx);
572 static const IActiveScriptParseVtbl JScriptParseVtbl = {
573 JScriptParse_QueryInterface,
575 JScriptParse_Release,
576 JScriptParse_InitNew,
577 JScriptParse_AddScriptlet,
578 JScriptParse_ParseScriptText
581 #define ASPARSEPROC_THIS(iface) DEFINE_THIS(JScript, IActiveScriptParseProcedure2, iface)
583 static HRESULT WINAPI JScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
585 JScript *This = ASPARSEPROC_THIS(iface);
586 return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
589 static ULONG WINAPI JScriptParseProcedure_AddRef(IActiveScriptParseProcedure2 *iface)
591 JScript *This = ASPARSEPROC_THIS(iface);
592 return IActiveScript_AddRef(ACTSCRIPT(This));
595 static ULONG WINAPI JScriptParseProcedure_Release(IActiveScriptParseProcedure2 *iface)
597 JScript *This = ASPARSEPROC_THIS(iface);
598 return IActiveScript_Release(ACTSCRIPT(This));
601 static HRESULT WINAPI JScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2 *iface,
602 LPCOLESTR pstrCode, LPCOLESTR pstrFormalParams, LPCOLESTR pstrProcedureName,
603 LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter,
604 DWORD dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, IDispatch **ppdisp)
606 JScript *This = ASPARSEPROC_THIS(iface);
607 parser_ctx_t *parser_ctx;
611 TRACE("(%p)->(%s %s %s %s %p %s %x %u %x %p)\n", This, debugstr_w(pstrCode), debugstr_w(pstrFormalParams),
612 debugstr_w(pstrProcedureName), debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
613 dwSourceContextCookie, ulStartingLineNumber, dwFlags, ppdisp);
615 if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
618 hres = script_parse(This->ctx, pstrCode, &parser_ctx);
620 WARN("Parse failed %08x\n", hres);
624 hres = create_source_function(parser_ctx, NULL, parser_ctx->source, NULL, NULL, 0, &dispex);
625 parser_release(parser_ctx);
629 *ppdisp = (IDispatch*)_IDispatchEx_(dispex);
633 #undef ASPARSEPROC_THIS
635 static const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl = {
636 JScriptParseProcedure_QueryInterface,
637 JScriptParseProcedure_AddRef,
638 JScriptParseProcedure_Release,
639 JScriptParseProcedure_ParseProcedureText,
642 #define ACTSCPPROP_THIS(iface) DEFINE_THIS(JScript, IActiveScriptProperty, iface)
644 static HRESULT WINAPI JScriptProperty_QueryInterface(IActiveScriptProperty *iface, REFIID riid, void **ppv)
646 JScript *This = ACTSCPPROP_THIS(iface);
647 return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
650 static ULONG WINAPI JScriptProperty_AddRef(IActiveScriptProperty *iface)
652 JScript *This = ACTSCPPROP_THIS(iface);
653 return IActiveScript_AddRef(ACTSCRIPT(This));
656 static ULONG WINAPI JScriptProperty_Release(IActiveScriptProperty *iface)
658 JScript *This = ACTSCPPROP_THIS(iface);
659 return IActiveScript_Release(ACTSCRIPT(This));
662 static HRESULT WINAPI JScriptProperty_GetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
663 VARIANT *pvarIndex, VARIANT *pvarValue)
665 JScript *This = ACTSCPPROP_THIS(iface);
666 FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
670 static HRESULT WINAPI JScriptProperty_SetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
671 VARIANT *pvarIndex, VARIANT *pvarValue)
673 JScript *This = ACTSCPPROP_THIS(iface);
674 FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
678 #undef ACTSCPPROP_THIS
680 static const IActiveScriptPropertyVtbl JScriptPropertyVtbl = {
681 JScriptProperty_QueryInterface,
682 JScriptProperty_AddRef,
683 JScriptProperty_Release,
684 JScriptProperty_GetProperty,
685 JScriptProperty_SetProperty
688 #define OBJSAFETY_THIS(iface) DEFINE_THIS(JScript, IObjectSafety, iface)
690 static HRESULT WINAPI JScriptSafety_QueryInterface(IObjectSafety *iface, REFIID riid, void **ppv)
692 JScript *This = OBJSAFETY_THIS(iface);
693 return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
696 static ULONG WINAPI JScriptSafety_AddRef(IObjectSafety *iface)
698 JScript *This = OBJSAFETY_THIS(iface);
699 return IActiveScript_AddRef(ACTSCRIPT(This));
702 static ULONG WINAPI JScriptSafety_Release(IObjectSafety *iface)
704 JScript *This = OBJSAFETY_THIS(iface);
705 return IActiveScript_Release(ACTSCRIPT(This));
708 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
710 static HRESULT WINAPI JScriptSafety_GetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
711 DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
713 JScript *This = OBJSAFETY_THIS(iface);
715 TRACE("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
717 if(!pdwSupportedOptions || !pdwEnabledOptions)
720 *pdwSupportedOptions = SUPPORTED_OPTIONS;
721 *pdwEnabledOptions = This->safeopt;
726 static HRESULT WINAPI JScriptSafety_SetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
727 DWORD dwOptionSetMask, DWORD dwEnabledOptions)
729 JScript *This = OBJSAFETY_THIS(iface);
731 TRACE("(%p)->(%s %x %x)\n", This, debugstr_guid(riid), dwOptionSetMask, dwEnabledOptions);
733 if(dwOptionSetMask & ~SUPPORTED_OPTIONS)
736 This->safeopt = dwEnabledOptions & dwEnabledOptions;
740 #undef OBJSAFETY_THIS
742 static const IObjectSafetyVtbl JScriptSafetyVtbl = {
743 JScriptSafety_QueryInterface,
744 JScriptSafety_AddRef,
745 JScriptSafety_Release,
746 JScriptSafety_GetInterfaceSafetyOptions,
747 JScriptSafety_SetInterfaceSafetyOptions
750 HRESULT WINAPI JScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *pUnkOuter,
751 REFIID riid, void **ppv)
756 TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppv);
760 ret = heap_alloc_zero(sizeof(*ret));
762 ret->lpIActiveScriptVtbl = &JScriptVtbl;
763 ret->lpIActiveScriptParseVtbl = &JScriptParseVtbl;
764 ret->lpIActiveScriptParseProcedure2Vtbl = &JScriptParseProcedureVtbl;
765 ret->lpIActiveScriptPropertyVtbl = &JScriptPropertyVtbl;
766 ret->lpIObjectSafetyVtbl = &JScriptSafetyVtbl;
768 ret->safeopt = INTERFACE_USES_DISPEX;
770 hres = IActiveScript_QueryInterface(ACTSCRIPT(ret), riid, ppv);
771 IActiveScript_Release(ACTSCRIPT(ret));