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;
41 IActiveScriptSite *site;
43 parser_ctx_t *queue_head;
44 parser_ctx_t *queue_tail;
47 #define ACTSCRIPT(x) ((IActiveScript*) &(x)->lpIActiveScriptVtbl)
48 #define ASPARSE(x) ((IActiveScriptParse*) &(x)->lpIActiveScriptParseVtbl)
49 #define ASPARSEPROC(x) ((IActiveScriptParseProcedure2*) &(x)->lpIActiveScriptParseProcedure2Vtbl)
50 #define ACTSCPPROP(x) ((IActiveScriptProperty*) &(x)->lpIActiveScriptPropertyVtbl)
51 #define OBJSAFETY(x) ((IObjectSafety*) &(x)->lpIObjectSafetyVtbl)
53 void script_release(script_ctx_t *ctx)
58 jsheap_free(&ctx->tmp_heap);
62 static void change_state(JScript *This, SCRIPTSTATE state)
64 if(This->ctx->state == state)
67 This->ctx->state = state;
68 IActiveScriptSite_OnStateChange(This->site, state);
71 static inline BOOL is_started(script_ctx_t *ctx)
73 return ctx->state == SCRIPTSTATE_STARTED
74 || ctx->state == SCRIPTSTATE_CONNECTED
75 || ctx->state == SCRIPTSTATE_DISCONNECTED;
78 static HRESULT exec_global_code(JScript *This, parser_ctx_t *parser_ctx)
85 hres = create_exec_ctx((IDispatch*)_IDispatchEx_(This->ctx->script_disp), This->ctx->script_disp, NULL, &exec_ctx);
89 IActiveScriptSite_OnEnterScript(This->site);
91 memset(&jsexcept, 0, sizeof(jsexcept));
92 hres = exec_source(exec_ctx, parser_ctx, parser_ctx->source, &jsexcept, &var);
93 VariantClear(&jsexcept.var);
94 exec_release(exec_ctx);
98 IActiveScriptSite_OnLeaveScript(This->site);
103 static void clear_script_queue(JScript *This)
105 parser_ctx_t *iter, *iter2;
107 if(!This->queue_head)
110 iter = This->queue_head;
114 parser_release(iter);
118 This->queue_head = This->queue_tail = NULL;
121 static void exec_queued_code(JScript *This)
125 for(iter = This->queue_head; iter; iter = iter->next)
126 exec_global_code(This, iter);
128 clear_script_queue(This);
131 static HRESULT set_ctx_site(JScript *This)
135 This->ctx->lcid = This->lcid;
137 if(!This->ctx->script_disp) {
138 hres = create_dispex(This->ctx, NULL, NULL, &This->ctx->script_disp);
143 hres = init_global(This->ctx);
147 change_state(This, SCRIPTSTATE_INITIALIZED);
151 #define ACTSCRIPT_THIS(iface) DEFINE_THIS(JScript, IActiveScript, iface)
153 static HRESULT WINAPI JScript_QueryInterface(IActiveScript *iface, REFIID riid, void **ppv)
155 JScript *This = ACTSCRIPT_THIS(iface);
159 if(IsEqualGUID(riid, &IID_IUnknown)) {
160 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
161 *ppv = ACTSCRIPT(This);
162 }else if(IsEqualGUID(riid, &IID_IActiveScript)) {
163 TRACE("(%p)->(IID_IActiveScript %p)\n", This, ppv);
164 *ppv = ACTSCRIPT(This);
165 }else if(IsEqualGUID(riid, &IID_IActiveScriptParse)) {
166 TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This, ppv);
167 *ppv = ASPARSE(This);
168 }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure)) {
169 TRACE("(%p)->(IID_IActiveScriptParseProcedure %p)\n", This, ppv);
170 *ppv = ASPARSEPROC(This);
171 }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure2)) {
172 TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This, ppv);
173 *ppv = ASPARSEPROC(This);
174 }else if(IsEqualGUID(riid, &IID_IActiveScriptProperty)) {
175 TRACE("(%p)->(IID_IActiveScriptProperty %p)\n", This, ppv);
176 *ppv = ACTSCPPROP(This);
177 }else if(IsEqualGUID(riid, &IID_IObjectSafety)) {
178 TRACE("(%p)->(IID_IObjectSafety %p)\n", This, ppv);
179 *ppv = OBJSAFETY(This);
183 IUnknown_AddRef((IUnknown*)*ppv);
187 FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
188 return E_NOINTERFACE;
191 static ULONG WINAPI JScript_AddRef(IActiveScript *iface)
193 JScript *This = ACTSCRIPT_THIS(iface);
194 LONG ref = InterlockedIncrement(&This->ref);
196 TRACE("(%p) ref=%d\n", This, ref);
201 static ULONG WINAPI JScript_Release(IActiveScript *iface)
203 JScript *This = ACTSCRIPT_THIS(iface);
204 LONG ref = InterlockedDecrement(&This->ref);
206 TRACE("(%p) ref=%d\n", iface, ref);
209 if(This->ctx && This->ctx->state != SCRIPTSTATE_CLOSED)
210 IActiveScript_Close(ACTSCRIPT(This));
212 script_release(This->ctx);
220 static HRESULT WINAPI JScript_SetScriptSite(IActiveScript *iface,
221 IActiveScriptSite *pass)
223 JScript *This = ACTSCRIPT_THIS(iface);
227 TRACE("(%p)->(%p)\n", This, pass);
235 if(InterlockedCompareExchange(&This->thread_id, GetCurrentThreadId(), 0))
239 IActiveScriptSite_AddRef(This->site);
241 hres = IActiveScriptSite_GetLCID(This->site, &lcid);
243 This->ctx->lcid = lcid;
245 return This->ctx ? set_ctx_site(This) : S_OK;
248 static HRESULT WINAPI JScript_GetScriptSite(IActiveScript *iface, REFIID riid,
251 JScript *This = ACTSCRIPT_THIS(iface);
252 FIXME("(%p)->()\n", This);
256 static HRESULT WINAPI JScript_SetScriptState(IActiveScript *iface, SCRIPTSTATE ss)
258 JScript *This = ACTSCRIPT_THIS(iface);
260 TRACE("(%p)->(%d)\n", This, ss);
262 if(!This->ctx || GetCurrentThreadId() != This->thread_id)
266 case SCRIPTSTATE_STARTED:
267 case SCRIPTSTATE_CONNECTED: /* FIXME */
268 if(This->ctx->state == SCRIPTSTATE_CLOSED)
271 exec_queued_code(This);
274 FIXME("unimplemented state %d\n", ss);
278 change_state(This, ss);
282 static HRESULT WINAPI JScript_GetScriptState(IActiveScript *iface, SCRIPTSTATE *pssState)
284 JScript *This = ACTSCRIPT_THIS(iface);
286 TRACE("(%p)->(%p)\n", This, pssState);
291 if(!This->thread_id) {
292 *pssState = SCRIPTSTATE_UNINITIALIZED;
296 if(This->thread_id != GetCurrentThreadId())
299 *pssState = This->ctx ? This->ctx->state : SCRIPTSTATE_UNINITIALIZED;
303 static HRESULT WINAPI JScript_Close(IActiveScript *iface)
305 JScript *This = ACTSCRIPT_THIS(iface);
307 TRACE("(%p)->()\n", This);
309 if(This->thread_id != GetCurrentThreadId())
313 if(This->ctx->state == SCRIPTSTATE_CONNECTED)
314 change_state(This, SCRIPTSTATE_DISCONNECTED);
316 clear_script_queue(This);
318 if(This->ctx->state == SCRIPTSTATE_DISCONNECTED)
319 change_state(This, SCRIPTSTATE_INITIALIZED);
321 if(This->ctx->named_items) {
322 named_item_t *iter, *iter2;
324 iter = This->ctx->named_items;
328 IDispatch_Release(iter->disp);
333 This->ctx->named_items = NULL;
337 change_state(This, SCRIPTSTATE_CLOSED);
339 if(This->ctx->script_disp) {
340 IDispatchEx_Release(_IDispatchEx_(This->ctx->script_disp));
341 This->ctx->script_disp = NULL;
344 if(This->ctx->global) {
345 IDispatchEx_Release(_IDispatchEx_(This->ctx->global));
346 This->ctx->global = NULL;
351 IActiveScriptSite_Release(This->site);
358 static HRESULT WINAPI JScript_AddNamedItem(IActiveScript *iface,
359 LPCOLESTR pstrName, DWORD dwFlags)
361 JScript *This = ACTSCRIPT_THIS(iface);
367 TRACE("(%p)->(%s %x)\n", This, debugstr_w(pstrName), dwFlags);
369 if(This->thread_id != GetCurrentThreadId() || !This->ctx || This->ctx->state == SCRIPTSTATE_CLOSED)
372 hres = IActiveScriptSite_GetItemInfo(This->site, pstrName, SCRIPTINFO_IUNKNOWN, &unk, NULL);
374 WARN("GetItemInfo failed: %08x\n", hres);
378 hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
379 IUnknown_Release(unk);
381 WARN("object does not implement IDispatch\n");
385 item = heap_alloc(sizeof(*item));
387 IDispatch_Release(disp);
388 return E_OUTOFMEMORY;
392 item->flags = dwFlags;
393 item->next = This->ctx->named_items;
394 This->ctx->named_items = item;
399 static HRESULT WINAPI JScript_AddTypeLib(IActiveScript *iface, REFGUID rguidTypeLib,
400 DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
402 JScript *This = ACTSCRIPT_THIS(iface);
403 FIXME("(%p)->()\n", This);
407 static HRESULT WINAPI JScript_GetScriptDispatch(IActiveScript *iface, LPCOLESTR pstrItemName,
410 JScript *This = ACTSCRIPT_THIS(iface);
412 TRACE("(%p)->(%p)\n", This, ppdisp);
417 if(This->thread_id != GetCurrentThreadId() || !This->ctx->script_disp) {
422 *ppdisp = (IDispatch*)_IDispatchEx_(This->ctx->script_disp);
423 IDispatch_AddRef(*ppdisp);
427 static HRESULT WINAPI JScript_GetCurrentScriptThreadID(IActiveScript *iface,
428 SCRIPTTHREADID *pstridThread)
430 JScript *This = ACTSCRIPT_THIS(iface);
431 FIXME("(%p)->()\n", This);
435 static HRESULT WINAPI JScript_GetScriptThreadID(IActiveScript *iface,
436 DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
438 JScript *This = ACTSCRIPT_THIS(iface);
439 FIXME("(%p)->()\n", This);
443 static HRESULT WINAPI JScript_GetScriptThreadState(IActiveScript *iface,
444 SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
446 JScript *This = ACTSCRIPT_THIS(iface);
447 FIXME("(%p)->()\n", This);
451 static HRESULT WINAPI JScript_InterruptScriptThread(IActiveScript *iface,
452 SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
454 JScript *This = ACTSCRIPT_THIS(iface);
455 FIXME("(%p)->()\n", This);
459 static HRESULT WINAPI JScript_Clone(IActiveScript *iface, IActiveScript **ppscript)
461 JScript *This = ACTSCRIPT_THIS(iface);
462 FIXME("(%p)->()\n", This);
466 #undef ACTSCRIPT_THIS
468 static const IActiveScriptVtbl JScriptVtbl = {
469 JScript_QueryInterface,
472 JScript_SetScriptSite,
473 JScript_GetScriptSite,
474 JScript_SetScriptState,
475 JScript_GetScriptState,
477 JScript_AddNamedItem,
479 JScript_GetScriptDispatch,
480 JScript_GetCurrentScriptThreadID,
481 JScript_GetScriptThreadID,
482 JScript_GetScriptThreadState,
483 JScript_InterruptScriptThread,
487 #define ASPARSE_THIS(iface) DEFINE_THIS(JScript, IActiveScriptParse, iface)
489 static HRESULT WINAPI JScriptParse_QueryInterface(IActiveScriptParse *iface, REFIID riid, void **ppv)
491 JScript *This = ASPARSE_THIS(iface);
492 return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
495 static ULONG WINAPI JScriptParse_AddRef(IActiveScriptParse *iface)
497 JScript *This = ASPARSE_THIS(iface);
498 return IActiveScript_AddRef(ACTSCRIPT(This));
501 static ULONG WINAPI JScriptParse_Release(IActiveScriptParse *iface)
503 JScript *This = ASPARSE_THIS(iface);
504 return IActiveScript_Release(ACTSCRIPT(This));
507 static HRESULT WINAPI JScriptParse_InitNew(IActiveScriptParse *iface)
509 JScript *This = ASPARSE_THIS(iface);
512 TRACE("(%p)\n", This);
517 ctx = heap_alloc_zero(sizeof(script_ctx_t));
519 return E_OUTOFMEMORY;
522 ctx->state = SCRIPTSTATE_UNINITIALIZED;
523 jsheap_init(&ctx->tmp_heap);
525 ctx = InterlockedCompareExchangePointer((void**)&This->ctx, ctx, NULL);
531 return This->site ? set_ctx_site(This) : S_OK;
534 static HRESULT WINAPI JScriptParse_AddScriptlet(IActiveScriptParse *iface,
535 LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName,
536 LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter,
537 DWORD dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags,
538 BSTR *pbstrName, EXCEPINFO *pexcepinfo)
540 JScript *This = ASPARSE_THIS(iface);
541 FIXME("(%p)->(%s %s %s %s %s %s %x %u %x %p %p)\n", This, debugstr_w(pstrDefaultName),
542 debugstr_w(pstrCode), debugstr_w(pstrItemName), debugstr_w(pstrSubItemName),
543 debugstr_w(pstrEventName), debugstr_w(pstrDelimiter), dwSourceContextCookie,
544 ulStartingLineNumber, dwFlags, pbstrName, pexcepinfo);
548 static HRESULT WINAPI JScriptParse_ParseScriptText(IActiveScriptParse *iface,
549 LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext,
550 LPCOLESTR pstrDelimiter, DWORD dwSourceContextCookie, ULONG ulStartingLine,
551 DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
553 JScript *This = ASPARSE_THIS(iface);
554 parser_ctx_t *parser_ctx;
557 TRACE("(%p)->(%s %s %p %s %x %u %x %p %p)\n", This, debugstr_w(pstrCode),
558 debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
559 dwSourceContextCookie, ulStartingLine, dwFlags, pvarResult, pexcepinfo);
561 if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
564 hres = script_parse(This->ctx, pstrCode, &parser_ctx);
568 if(!is_started(This->ctx)) {
570 This->queue_tail = This->queue_tail->next = parser_ctx;
572 This->queue_head = This->queue_tail = parser_ctx;
576 hres = exec_global_code(This, parser_ctx);
577 parser_release(parser_ctx);
584 static const IActiveScriptParseVtbl JScriptParseVtbl = {
585 JScriptParse_QueryInterface,
587 JScriptParse_Release,
588 JScriptParse_InitNew,
589 JScriptParse_AddScriptlet,
590 JScriptParse_ParseScriptText
593 #define ASPARSEPROC_THIS(iface) DEFINE_THIS(JScript, IActiveScriptParseProcedure2, iface)
595 static HRESULT WINAPI JScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
597 JScript *This = ASPARSEPROC_THIS(iface);
598 return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
601 static ULONG WINAPI JScriptParseProcedure_AddRef(IActiveScriptParseProcedure2 *iface)
603 JScript *This = ASPARSEPROC_THIS(iface);
604 return IActiveScript_AddRef(ACTSCRIPT(This));
607 static ULONG WINAPI JScriptParseProcedure_Release(IActiveScriptParseProcedure2 *iface)
609 JScript *This = ASPARSEPROC_THIS(iface);
610 return IActiveScript_Release(ACTSCRIPT(This));
613 static HRESULT WINAPI JScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2 *iface,
614 LPCOLESTR pstrCode, LPCOLESTR pstrFormalParams, LPCOLESTR pstrProcedureName,
615 LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter,
616 DWORD dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, IDispatch **ppdisp)
618 JScript *This = ASPARSEPROC_THIS(iface);
619 parser_ctx_t *parser_ctx;
623 TRACE("(%p)->(%s %s %s %s %p %s %x %u %x %p)\n", This, debugstr_w(pstrCode), debugstr_w(pstrFormalParams),
624 debugstr_w(pstrProcedureName), debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
625 dwSourceContextCookie, ulStartingLineNumber, dwFlags, ppdisp);
627 if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
630 hres = script_parse(This->ctx, pstrCode, &parser_ctx);
632 WARN("Parse failed %08x\n", hres);
636 hres = create_source_function(parser_ctx, NULL, parser_ctx->source, NULL, NULL, 0, &dispex);
637 parser_release(parser_ctx);
641 *ppdisp = (IDispatch*)_IDispatchEx_(dispex);
645 #undef ASPARSEPROC_THIS
647 static const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl = {
648 JScriptParseProcedure_QueryInterface,
649 JScriptParseProcedure_AddRef,
650 JScriptParseProcedure_Release,
651 JScriptParseProcedure_ParseProcedureText,
654 #define ACTSCPPROP_THIS(iface) DEFINE_THIS(JScript, IActiveScriptProperty, iface)
656 static HRESULT WINAPI JScriptProperty_QueryInterface(IActiveScriptProperty *iface, REFIID riid, void **ppv)
658 JScript *This = ACTSCPPROP_THIS(iface);
659 return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
662 static ULONG WINAPI JScriptProperty_AddRef(IActiveScriptProperty *iface)
664 JScript *This = ACTSCPPROP_THIS(iface);
665 return IActiveScript_AddRef(ACTSCRIPT(This));
668 static ULONG WINAPI JScriptProperty_Release(IActiveScriptProperty *iface)
670 JScript *This = ACTSCPPROP_THIS(iface);
671 return IActiveScript_Release(ACTSCRIPT(This));
674 static HRESULT WINAPI JScriptProperty_GetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
675 VARIANT *pvarIndex, VARIANT *pvarValue)
677 JScript *This = ACTSCPPROP_THIS(iface);
678 FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
682 static HRESULT WINAPI JScriptProperty_SetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
683 VARIANT *pvarIndex, VARIANT *pvarValue)
685 JScript *This = ACTSCPPROP_THIS(iface);
686 FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
690 #undef ACTSCPPROP_THIS
692 static const IActiveScriptPropertyVtbl JScriptPropertyVtbl = {
693 JScriptProperty_QueryInterface,
694 JScriptProperty_AddRef,
695 JScriptProperty_Release,
696 JScriptProperty_GetProperty,
697 JScriptProperty_SetProperty
700 #define OBJSAFETY_THIS(iface) DEFINE_THIS(JScript, IObjectSafety, iface)
702 static HRESULT WINAPI JScriptSafety_QueryInterface(IObjectSafety *iface, REFIID riid, void **ppv)
704 JScript *This = OBJSAFETY_THIS(iface);
705 return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
708 static ULONG WINAPI JScriptSafety_AddRef(IObjectSafety *iface)
710 JScript *This = OBJSAFETY_THIS(iface);
711 return IActiveScript_AddRef(ACTSCRIPT(This));
714 static ULONG WINAPI JScriptSafety_Release(IObjectSafety *iface)
716 JScript *This = OBJSAFETY_THIS(iface);
717 return IActiveScript_Release(ACTSCRIPT(This));
720 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
722 static HRESULT WINAPI JScriptSafety_GetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
723 DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
725 JScript *This = OBJSAFETY_THIS(iface);
727 TRACE("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
729 if(!pdwSupportedOptions || !pdwEnabledOptions)
732 *pdwSupportedOptions = SUPPORTED_OPTIONS;
733 *pdwEnabledOptions = This->safeopt;
738 static HRESULT WINAPI JScriptSafety_SetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
739 DWORD dwOptionSetMask, DWORD dwEnabledOptions)
741 JScript *This = OBJSAFETY_THIS(iface);
743 TRACE("(%p)->(%s %x %x)\n", This, debugstr_guid(riid), dwOptionSetMask, dwEnabledOptions);
745 if(dwOptionSetMask & ~SUPPORTED_OPTIONS)
748 This->safeopt = dwEnabledOptions & dwEnabledOptions;
752 #undef OBJSAFETY_THIS
754 static const IObjectSafetyVtbl JScriptSafetyVtbl = {
755 JScriptSafety_QueryInterface,
756 JScriptSafety_AddRef,
757 JScriptSafety_Release,
758 JScriptSafety_GetInterfaceSafetyOptions,
759 JScriptSafety_SetInterfaceSafetyOptions
762 HRESULT WINAPI JScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *pUnkOuter,
763 REFIID riid, void **ppv)
768 TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppv);
772 ret = heap_alloc_zero(sizeof(*ret));
774 return E_OUTOFMEMORY;
776 ret->lpIActiveScriptVtbl = &JScriptVtbl;
777 ret->lpIActiveScriptParseVtbl = &JScriptParseVtbl;
778 ret->lpIActiveScriptParseProcedure2Vtbl = &JScriptParseProcedureVtbl;
779 ret->lpIActiveScriptPropertyVtbl = &JScriptPropertyVtbl;
780 ret->lpIObjectSafetyVtbl = &JScriptSafetyVtbl;
782 ret->safeopt = INTERFACE_USES_DISPEX;
784 hres = IActiveScript_QueryInterface(ACTSCRIPT(ret), riid, ppv);
785 IActiveScript_Release(ACTSCRIPT(ret));