jscript.c File Reference

#include <assert.h>
#include "jscript.h"
#include "engine.h"
#include "objsafe.h"
#include "wine/debug.h"

Include dependency graph for jscript.c:

Go to the source code of this file.

Classes
class	JScript
struct	AXSite

Macros
#define	CTXARG_T   DWORD
#define	IActiveScriptParseVtbl   IActiveScriptParse32Vtbl
#define	IActiveScriptParseProcedure2Vtbl   IActiveScriptParseProcedure2_32Vtbl
#define	SUPPORTED_OPTIONS   (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (jscript)
void	script_release (script_ctx_t *ctx)
static void	change_state (JScript *This, SCRIPTSTATE state)
static BOOL	is_started (script_ctx_t *ctx)
static HRESULT	exec_global_code (JScript *This, bytecode_t *code)
static void	clear_script_queue (JScript *This)
static void	exec_queued_code (JScript *This)
static HRESULT	set_ctx_site (JScript *This)
static void	decrease_state (JScript *This, SCRIPTSTATE state)
static AXSite *	impl_from_IServiceProvider (IServiceProvider *iface)
static HRESULT WINAPI	AXSite_QueryInterface (IServiceProvider *iface, REFIID riid, void **ppv)
static ULONG WINAPI	AXSite_AddRef (IServiceProvider *iface)
static ULONG WINAPI	AXSite_Release (IServiceProvider *iface)
static HRESULT WINAPI	AXSite_QueryService (IServiceProvider *iface, REFGUID guidService, REFIID riid, void **ppv)
IUnknown *	create_ax_site (script_ctx_t *ctx)
static JScript *	impl_from_IActiveScript (IActiveScript *iface)
static HRESULT WINAPI	JScript_QueryInterface (IActiveScript *iface, REFIID riid, void **ppv)
static ULONG WINAPI	JScript_AddRef (IActiveScript *iface)
static ULONG WINAPI	JScript_Release (IActiveScript *iface)
static HRESULT WINAPI	JScript_SetScriptSite (IActiveScript *iface, IActiveScriptSite *pass)
static HRESULT WINAPI	JScript_GetScriptSite (IActiveScript *iface, REFIID riid, void **ppvObject)
static HRESULT WINAPI	JScript_SetScriptState (IActiveScript *iface, SCRIPTSTATE ss)
static HRESULT WINAPI	JScript_GetScriptState (IActiveScript *iface, SCRIPTSTATE *pssState)
static HRESULT WINAPI	JScript_Close (IActiveScript *iface)
static HRESULT WINAPI	JScript_AddNamedItem (IActiveScript *iface, LPCOLESTR pstrName, DWORD dwFlags)
static HRESULT WINAPI	JScript_AddTypeLib (IActiveScript *iface, REFGUID rguidTypeLib, DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
static HRESULT WINAPI	JScript_GetScriptDispatch (IActiveScript *iface, LPCOLESTR pstrItemName, IDispatch **ppdisp)
static HRESULT WINAPI	JScript_GetCurrentScriptThreadID (IActiveScript *iface, SCRIPTTHREADID *pstridThread)
static HRESULT WINAPI	JScript_GetScriptThreadID (IActiveScript *iface, DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
static HRESULT WINAPI	JScript_GetScriptThreadState (IActiveScript *iface, SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
static HRESULT WINAPI	JScript_InterruptScriptThread (IActiveScript *iface, SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
static HRESULT WINAPI	JScript_Clone (IActiveScript *iface, IActiveScript **ppscript)
static JScript *	impl_from_IActiveScriptParse (IActiveScriptParse *iface)
static HRESULT WINAPI	JScriptParse_QueryInterface (IActiveScriptParse *iface, REFIID riid, void **ppv)
static ULONG WINAPI	JScriptParse_AddRef (IActiveScriptParse *iface)
static ULONG WINAPI	JScriptParse_Release (IActiveScriptParse *iface)
static HRESULT WINAPI	JScriptParse_InitNew (IActiveScriptParse *iface)
static HRESULT WINAPI	JScriptParse_AddScriptlet (IActiveScriptParse *iface, LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName, LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, BSTR *pbstrName, EXCEPINFO *pexcepinfo)
static HRESULT WINAPI	JScriptParse_ParseScriptText (IActiveScriptParse *iface, LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLine, DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
static JScript *	impl_from_IActiveScriptParseProcedure2 (IActiveScriptParseProcedure2 *iface)
static HRESULT WINAPI	JScriptParseProcedure_QueryInterface (IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
static ULONG WINAPI	JScriptParseProcedure_AddRef (IActiveScriptParseProcedure2 *iface)
static ULONG WINAPI	JScriptParseProcedure_Release (IActiveScriptParseProcedure2 *iface)
static HRESULT WINAPI	JScriptParseProcedure_ParseProcedureText (IActiveScriptParseProcedure2 *iface, LPCOLESTR pstrCode, LPCOLESTR pstrFormalParams, LPCOLESTR pstrProcedureName, LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, IDispatch **ppdisp)
static JScript *	impl_from_IActiveScriptProperty (IActiveScriptProperty *iface)
static HRESULT WINAPI	JScriptProperty_QueryInterface (IActiveScriptProperty *iface, REFIID riid, void **ppv)
static ULONG WINAPI	JScriptProperty_AddRef (IActiveScriptProperty *iface)
static ULONG WINAPI	JScriptProperty_Release (IActiveScriptProperty *iface)
static HRESULT WINAPI	JScriptProperty_GetProperty (IActiveScriptProperty *iface, DWORD dwProperty, VARIANT *pvarIndex, VARIANT *pvarValue)
static HRESULT WINAPI	JScriptProperty_SetProperty (IActiveScriptProperty *iface, DWORD dwProperty, VARIANT *pvarIndex, VARIANT *pvarValue)
static JScript *	impl_from_IObjectSafety (IObjectSafety *iface)
static HRESULT WINAPI	JScriptSafety_QueryInterface (IObjectSafety *iface, REFIID riid, void **ppv)
static ULONG WINAPI	JScriptSafety_AddRef (IObjectSafety *iface)
static ULONG WINAPI	JScriptSafety_Release (IObjectSafety *iface)
static HRESULT WINAPI	JScriptSafety_GetInterfaceSafetyOptions (IObjectSafety *iface, REFIID riid, DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
static HRESULT WINAPI	JScriptSafety_SetInterfaceSafetyOptions (IObjectSafety *iface, REFIID riid, DWORD dwOptionSetMask, DWORD dwEnabledOptions)
static JScript *	impl_from_IVariantChangeType (IVariantChangeType *iface)
static HRESULT WINAPI	VariantChangeType_QueryInterface (IVariantChangeType *iface, REFIID riid, void **ppv)
static ULONG WINAPI	VariantChangeType_AddRef (IVariantChangeType *iface)
static ULONG WINAPI	VariantChangeType_Release (IVariantChangeType *iface)
static HRESULT WINAPI	VariantChangeType_ChangeType (IVariantChangeType *iface, VARIANT *dst, VARIANT *src, LCID lcid, VARTYPE vt)
HRESULT	create_jscript_object (BOOL is_encode, REFIID riid, void **ppv)

Variables
static IServiceProviderVtbl	AXSiteVtbl
static const IActiveScriptVtbl	JScriptVtbl
static const IActiveScriptParseVtbl	JScriptParseVtbl
static const IActiveScriptParseProcedure2Vtbl	JScriptParseProcedureVtbl
static const IActiveScriptPropertyVtbl	JScriptPropertyVtbl
static const IObjectSafetyVtbl	JScriptSafetyVtbl
static const IVariantChangeTypeVtbl	VariantChangeTypeVtbl

Macro Definition Documentation

CTXARG_T

#define CTXARG_T   DWORD

Definition at line 37 of file jscript.c.

IActiveScriptParseProcedure2Vtbl

#define IActiveScriptParseProcedure2Vtbl   IActiveScriptParseProcedure2_32Vtbl

Definition at line 39 of file jscript.c.

IActiveScriptParseVtbl

#define IActiveScriptParseVtbl   IActiveScriptParse32Vtbl

Definition at line 38 of file jscript.c.

SUPPORTED_OPTIONS

#define SUPPORTED_OPTIONS   (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)

Definition at line 975 of file jscript.c.

Function Documentation

AXSite_AddRef()

static ULONG WINAPI AXSite_AddRef ( IServiceProvider *  iface )

static

Definition at line 276 of file jscript.c.

{
    AXSite *This = impl_from_IServiceProvider(iface);
    LONG ref = InterlockedIncrement(&This->ref);
 
    TRACE("(%p) ref=%d\n", This, ref);
 
    return ref;
}

AXSite_QueryInterface()

static HRESULT WINAPI AXSite_QueryInterface ( IServiceProvider *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 256 of file jscript.c.

{
    AXSite *This = impl_from_IServiceProvider(iface);
 
    if(IsEqualGUID(&IID_IUnknown, riid)) {
        TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
        *ppv = &This->IServiceProvider_iface;
    }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
        TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
        *ppv = &This->IServiceProvider_iface;
    }else {
        TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    IUnknown_AddRef((IUnknown*)*ppv);
    return S_OK;
}

AXSite_QueryService()

static HRESULT WINAPI AXSite_QueryService ( IServiceProvider *  iface, REFGUID  guidService, REFIID  riid, void **  ppv  )

static

Definition at line 304 of file jscript.c.

{
    AXSite *This = impl_from_IServiceProvider(iface);
 
    TRACE("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
 
    if(!This->sp)
        return E_NOINTERFACE;
 
    return IServiceProvider_QueryService(This->sp, guidService, riid, ppv);
}

AXSite_Release()

static ULONG WINAPI AXSite_Release ( IServiceProvider *  iface )

static

Definition at line 286 of file jscript.c.

{
    AXSite *This = impl_from_IServiceProvider(iface);
    LONG ref = InterlockedDecrement(&This->ref);
 
    TRACE("(%p) ref=%d\n", This, ref);
 
    if(!ref)
    {
        if(This->sp)
            IServiceProvider_Release(This->sp);
 
        heap_free(This);
    }
 
    return ref;
}

change_state()

static void change_state ( JScript *  This, SCRIPTSTATE  state  )

static

Definition at line 88 of file jscript.c.

{
    if(This->ctx->state == state)
        return;
 
    This->ctx->state = state;
    if(This->site)
        IActiveScriptSite_OnStateChange(This->site, state);
}

Referenced by decrease_state(), JScript_SetScriptState(), and set_ctx_site().

clear_script_queue()

static void clear_script_queue ( JScript *  This )

static

Definition at line 118 of file jscript.c.

{
    bytecode_t *iter, *iter2;
 
    if(!This->queue_head)
        return;
 
    iter = This->queue_head;
    while(iter) {
        iter2 = iter->next;
        iter->next = NULL;
        release_bytecode(iter);
        iter = iter2;
    }
 
    This->queue_head = This->queue_tail = NULL;
}

Referenced by decrease_state(), and exec_queued_code().

create_ax_site()

IUnknown * create_ax_site

(

script_ctx_t *

ctx

)

Definition at line 324 of file jscript.c.

{
    IServiceProvider *sp = NULL;
    AXSite *ret;
    HRESULT hres;
 
    hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IServiceProvider, (void**)&sp);
    if(FAILED(hres)) {
        TRACE("Could not get IServiceProvider iface: %08x\n", hres);
    }
 
    ret = heap_alloc(sizeof(AXSite));
    if(!ret) {
        IServiceProvider_Release(sp);
        return NULL;
    }
 
    ret->IServiceProvider_iface.lpVtbl = &AXSiteVtbl;
    ret->ref = 1;
    ret->sp = sp;
 
    return (IUnknown*)&ret->IServiceProvider_iface;
}

Referenced by create_activex_object(), and set_object_site().

create_jscript_object()

HRESULT create_jscript_object	(	BOOL	is_encode,
		REFIID	riid,
		void **	ppv
	)

Definition at line 1072 of file jscript.c.

{
    JScript *ret;
    HRESULT hres;
 
    ret = heap_alloc_zero(sizeof(*ret));
    if(!ret)
        return E_OUTOFMEMORY;
 
    lock_module();
 
    ret->IActiveScript_iface.lpVtbl = &JScriptVtbl;
    ret->IActiveScriptParse_iface.lpVtbl = &JScriptParseVtbl;
    ret->IActiveScriptParseProcedure2_iface.lpVtbl = &JScriptParseProcedureVtbl;
    ret->IActiveScriptProperty_iface.lpVtbl = &JScriptPropertyVtbl;
    ret->IObjectSafety_iface.lpVtbl = &JScriptSafetyVtbl;
    ret->IVariantChangeType_iface.lpVtbl = &VariantChangeTypeVtbl;
    ret->ref = 1;
    ret->safeopt = INTERFACE_USES_DISPEX;
    ret->is_encode = is_encode;
 
    hres = IActiveScript_QueryInterface(&ret->IActiveScript_iface, riid, ppv);
    IActiveScript_Release(&ret->IActiveScript_iface);
    return hres;
}

Referenced by JScriptEncodeFactory_CreateInstance(), and JScriptFactory_CreateInstance().

decrease_state()

static void decrease_state ( JScript *  This, SCRIPTSTATE  state  )

static

Definition at line 163 of file jscript.c.

{
    if(This->ctx) {
        switch(This->ctx->state) {
        case SCRIPTSTATE_CONNECTED:
            change_state(This, SCRIPTSTATE_DISCONNECTED);
            if(state == SCRIPTSTATE_DISCONNECTED)
                return;
            /* FALLTHROUGH */
        case SCRIPTSTATE_STARTED:
        case SCRIPTSTATE_DISCONNECTED:
            clear_script_queue(This);
 
            if(This->ctx->state == SCRIPTSTATE_DISCONNECTED)
                change_state(This, SCRIPTSTATE_INITIALIZED);
            if(state == SCRIPTSTATE_INITIALIZED)
                return;
            /* FALLTHROUGH */
        case SCRIPTSTATE_INITIALIZED:
            if(This->ctx->host_global) {
                IDispatch_Release(This->ctx->host_global);
                This->ctx->host_global = NULL;
            }
 
            if(This->ctx->named_items) {
                named_item_t *iter, *iter2;
 
                iter = This->ctx->named_items;
                while(iter) {
                    iter2 = iter->next;
 
                    if(iter->disp)
                        IDispatch_Release(iter->disp);
                    heap_free(iter->name);
                    heap_free(iter);
                    iter = iter2;
                }
 
                This->ctx->named_items = NULL;
            }
 
            if(This->ctx->secmgr) {
                IInternetHostSecurityManager_Release(This->ctx->secmgr);
                This->ctx->secmgr = NULL;
            }
 
            if(This->ctx->site) {
                IActiveScriptSite_Release(This->ctx->site);
                This->ctx->site = NULL;
            }
 
            if(This->ctx->global) {
                jsdisp_release(This->ctx->global);
                This->ctx->global = NULL;
            }
            /* FALLTHROUGH */
        case SCRIPTSTATE_UNINITIALIZED:
            change_state(This, state);
            break;
        default:
            assert(0);
        }
 
        change_state(This, state);
    }else if(state == SCRIPTSTATE_UNINITIALIZED) {
        if(This->site)
            IActiveScriptSite_OnStateChange(This->site, state);
    }else {
        FIXME("NULL ctx\n");
    }
 
    if(state == SCRIPTSTATE_UNINITIALIZED)
        This->thread_id = 0;
 
    if(This->site) {
        IActiveScriptSite_Release(This->site);
        This->site = NULL;
    }
}

Referenced by JScript_Close(), and JScript_SetScriptState().

exec_global_code()

static HRESULT exec_global_code ( JScript *  This, bytecode_t *  code  )

static

Definition at line 105 of file jscript.c.

{
    HRESULT hres;
 
    IActiveScriptSite_OnEnterScript(This->site);
 
    clear_ei(This->ctx);
    hres = exec_source(This->ctx, EXEC_GLOBAL, code, &code->global_code, NULL, NULL, NULL, This->ctx->global, 0, NULL, NULL);
 
    IActiveScriptSite_OnLeaveScript(This->site);
    return hres;
}

Referenced by exec_queued_code(), and JScriptParse_ParseScriptText().

exec_queued_code()

static void exec_queued_code ( JScript *  This )

static

Definition at line 136 of file jscript.c.

{
    bytecode_t *iter;
 
    for(iter = This->queue_head; iter; iter = iter->next)
        exec_global_code(This, iter);
 
    clear_script_queue(This);
}

Referenced by JScript_SetScriptState().

impl_from_IActiveScript()

static JScript * impl_from_IActiveScript ( IActiveScript *  iface )

inlinestatic

Definition at line 348 of file jscript.c.

{
    return CONTAINING_RECORD(iface, JScript, IActiveScript_iface);
}

Referenced by JScript_AddNamedItem(), JScript_AddRef(), JScript_AddTypeLib(), JScript_Clone(), JScript_Close(), JScript_GetCurrentScriptThreadID(), JScript_GetScriptDispatch(), JScript_GetScriptSite(), JScript_GetScriptState(), JScript_GetScriptThreadID(), JScript_GetScriptThreadState(), JScript_InterruptScriptThread(), JScript_QueryInterface(), JScript_Release(), JScript_SetScriptSite(), and JScript_SetScriptState().

impl_from_IActiveScriptParse()

static JScript * impl_from_IActiveScriptParse ( IActiveScriptParse *  iface )

inlinestatic

Definition at line 674 of file jscript.c.

{
    return CONTAINING_RECORD(iface, JScript, IActiveScriptParse_iface);
}

Referenced by JScriptParse_AddRef(), JScriptParse_AddScriptlet(), JScriptParse_InitNew(), JScriptParse_ParseScriptText(), JScriptParse_QueryInterface(), and JScriptParse_Release().

impl_from_IActiveScriptParseProcedure2()

static JScript * impl_from_IActiveScriptParseProcedure2 ( IActiveScriptParseProcedure2 *  iface )

inlinestatic

Definition at line 822 of file jscript.c.

{
    return CONTAINING_RECORD(iface, JScript, IActiveScriptParseProcedure2_iface);
}

Referenced by JScriptParseProcedure_AddRef(), JScriptParseProcedure_ParseProcedureText(), JScriptParseProcedure_QueryInterface(), and JScriptParseProcedure_Release().

impl_from_IActiveScriptProperty()

static JScript * impl_from_IActiveScriptProperty ( IActiveScriptProperty *  iface )

inlinestatic

Definition at line 884 of file jscript.c.

{
    return CONTAINING_RECORD(iface, JScript, IActiveScriptProperty_iface);
}

Referenced by JScriptProperty_AddRef(), JScriptProperty_GetProperty(), JScriptProperty_QueryInterface(), JScriptProperty_Release(), and JScriptProperty_SetProperty().

impl_from_IObjectSafety()

static JScript * impl_from_IObjectSafety ( IObjectSafety *  iface )

inlinestatic

Definition at line 952 of file jscript.c.

{
    return CONTAINING_RECORD(iface, JScript, IObjectSafety_iface);
}

Referenced by JScriptSafety_AddRef(), JScriptSafety_GetInterfaceSafetyOptions(), JScriptSafety_QueryInterface(), JScriptSafety_Release(), and JScriptSafety_SetInterfaceSafetyOptions().

impl_from_IServiceProvider()

static AXSite * impl_from_IServiceProvider ( IServiceProvider *  iface )

inlinestatic

Definition at line 251 of file jscript.c.

{
    return CONTAINING_RECORD(iface, AXSite, IServiceProvider_iface);
}

Referenced by AXSite_AddRef(), AXSite_QueryInterface(), AXSite_QueryService(), and AXSite_Release().

impl_from_IVariantChangeType()

static JScript * impl_from_IVariantChangeType ( IVariantChangeType *  iface )

inlinestatic

Definition at line 1015 of file jscript.c.

{
    return CONTAINING_RECORD(iface, JScript, IVariantChangeType_iface);
}

Referenced by VariantChangeType_AddRef(), VariantChangeType_ChangeType(), VariantChangeType_QueryInterface(), and VariantChangeType_Release().

is_started()

static BOOL is_started ( script_ctx_t *  ctx )

inlinestatic

Definition at line 98 of file jscript.c.

{
    return ctx->state == SCRIPTSTATE_STARTED
        || ctx->state == SCRIPTSTATE_CONNECTED
        || ctx->state == SCRIPTSTATE_DISCONNECTED;
}

Referenced by JScriptParse_ParseScriptText().

JScript_AddNamedItem()

static HRESULT WINAPI JScript_AddNamedItem ( IActiveScript *  iface, LPCOLESTR  pstrName, DWORD  dwFlags  )

static

Definition at line 530 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
    named_item_t *item;
    IDispatch *disp = NULL;
    HRESULT hres;
 
    TRACE("(%p)->(%s %x)\n", This, debugstr_w(pstrName), dwFlags);
 
    if(This->thread_id != GetCurrentThreadId() || !This->ctx || This->ctx->state == SCRIPTSTATE_CLOSED)
        return E_UNEXPECTED;
 
    if(dwFlags & SCRIPTITEM_GLOBALMEMBERS) {
        IUnknown *unk;
 
        hres = IActiveScriptSite_GetItemInfo(This->site, pstrName, SCRIPTINFO_IUNKNOWN, &unk, NULL);
        if(FAILED(hres)) {
            WARN("GetItemInfo failed: %08x\n", hres);
            return hres;
        }
 
        hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
        IUnknown_Release(unk);
        if(FAILED(hres)) {
            WARN("object does not implement IDispatch\n");
            return hres;
        }
 
        if(This->ctx->host_global)
            IDispatch_Release(This->ctx->host_global);
        IDispatch_AddRef(disp);
        This->ctx->host_global = disp;
    }
 
    item = heap_alloc(sizeof(*item));
    if(!item) {
        if(disp)
            IDispatch_Release(disp);
        return E_OUTOFMEMORY;
    }
 
    item->disp = disp;
    item->flags = dwFlags;
    item->name = heap_strdupW(pstrName);
    if(!item->name) {
        if(disp)
            IDispatch_Release(disp);
        heap_free(item);
        return E_OUTOFMEMORY;
    }
 
    item->next = This->ctx->named_items;
    This->ctx->named_items = item;
 
    return S_OK;
}

JScript_AddRef()

static ULONG WINAPI JScript_AddRef ( IActiveScript *  iface )

static

Definition at line 394 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
    LONG ref = InterlockedIncrement(&This->ref);
 
    TRACE("(%p) ref=%d\n", This, ref);
 
    return ref;
}

JScript_AddTypeLib()

static HRESULT WINAPI JScript_AddTypeLib ( IActiveScript *  iface, REFGUID  rguidTypeLib, DWORD  dwMajor, DWORD  dwMinor, DWORD  dwFlags  )

static

Definition at line 588 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
    FIXME("(%p)->()\n", This);
    return E_NOTIMPL;
}

JScript_Clone()

static HRESULT WINAPI JScript_Clone ( IActiveScript *  iface, IActiveScript **  ppscript  )

static

Definition at line 648 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
    FIXME("(%p)->()\n", This);
    return E_NOTIMPL;
}

JScript_Close()

static HRESULT WINAPI JScript_Close ( IActiveScript *  iface )

static

Definition at line 517 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
 
    TRACE("(%p)->()\n", This);
 
    if(This->thread_id && This->thread_id != GetCurrentThreadId())
        return E_UNEXPECTED;
 
    decrease_state(This, SCRIPTSTATE_CLOSED);
    return S_OK;
}

JScript_GetCurrentScriptThreadID()

static HRESULT WINAPI JScript_GetCurrentScriptThreadID ( IActiveScript *  iface, SCRIPTTHREADID *  pstridThread  )

static

Definition at line 616 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
    FIXME("(%p)->()\n", This);
    return E_NOTIMPL;
}

JScript_GetScriptDispatch()

static HRESULT WINAPI JScript_GetScriptDispatch ( IActiveScript *  iface, LPCOLESTR  pstrItemName, IDispatch **  ppdisp  )

static

Definition at line 596 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
 
    TRACE("(%p)->(%p)\n", This, ppdisp);
 
    if(!ppdisp)
        return E_POINTER;
 
    if(This->thread_id != GetCurrentThreadId() || !This->ctx->global) {
        *ppdisp = NULL;
        return E_UNEXPECTED;
    }
 
    *ppdisp = to_disp(This->ctx->global);
    IDispatch_AddRef(*ppdisp);
    return S_OK;
}

JScript_GetScriptSite()

static HRESULT WINAPI JScript_GetScriptSite ( IActiveScript *  iface, REFIID  riid, void **  ppvObject  )

static

Definition at line 453 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
    FIXME("(%p)->()\n", This);
    return E_NOTIMPL;
}

JScript_GetScriptState()

static HRESULT WINAPI JScript_GetScriptState ( IActiveScript *  iface, SCRIPTSTATE *  pssState  )

static

Definition at line 501 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
 
    TRACE("(%p)->(%p)\n", This, pssState);
 
    if(!pssState)
        return E_POINTER;
 
    if(This->thread_id && This->thread_id != GetCurrentThreadId())
        return E_UNEXPECTED;
 
    *pssState = This->ctx ? This->ctx->state : SCRIPTSTATE_UNINITIALIZED;
    return S_OK;
}

JScript_GetScriptThreadID()

static HRESULT WINAPI JScript_GetScriptThreadID ( IActiveScript *  iface, DWORD  dwWin32ThreadId, SCRIPTTHREADID *  pstidThread  )

static

Definition at line 624 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
    FIXME("(%p)->()\n", This);
    return E_NOTIMPL;
}

JScript_GetScriptThreadState()

static HRESULT WINAPI JScript_GetScriptThreadState ( IActiveScript *  iface, SCRIPTTHREADID  stidThread, SCRIPTTHREADSTATE *  pstsState  )

static

Definition at line 632 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
    FIXME("(%p)->()\n", This);
    return E_NOTIMPL;
}

JScript_InterruptScriptThread()

static HRESULT WINAPI JScript_InterruptScriptThread ( IActiveScript *  iface, SCRIPTTHREADID  stidThread, const EXCEPINFO *  pexcepinfo, DWORD  dwFlags  )

static

Definition at line 640 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
    FIXME("(%p)->()\n", This);
    return E_NOTIMPL;
}

JScript_QueryInterface()

static HRESULT WINAPI JScript_QueryInterface ( IActiveScript *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 353 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
 
    *ppv = NULL;
 
    if(IsEqualGUID(riid, &IID_IUnknown)) {
        TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
        *ppv = &This->IActiveScript_iface;
    }else if(IsEqualGUID(riid, &IID_IActiveScript)) {
        TRACE("(%p)->(IID_IActiveScript %p)\n", This, ppv);
        *ppv = &This->IActiveScript_iface;
    }else if(IsEqualGUID(riid, &IID_IActiveScriptParse)) {
        TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This, ppv);
        *ppv = &This->IActiveScriptParse_iface;
    }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure)) {
        TRACE("(%p)->(IID_IActiveScriptParseProcedure %p)\n", This, ppv);
        *ppv = &This->IActiveScriptParseProcedure2_iface;
    }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure2)) {
        TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This, ppv);
        *ppv = &This->IActiveScriptParseProcedure2_iface;
    }else if(IsEqualGUID(riid, &IID_IActiveScriptProperty)) {
        TRACE("(%p)->(IID_IActiveScriptProperty %p)\n", This, ppv);
        *ppv = &This->IActiveScriptProperty_iface;
    }else if(IsEqualGUID(riid, &IID_IObjectSafety)) {
        TRACE("(%p)->(IID_IObjectSafety %p)\n", This, ppv);
        *ppv = &This->IObjectSafety_iface;
    }else if(IsEqualGUID(riid, &IID_IVariantChangeType)) {
        TRACE("(%p)->(IID_IVariantChangeType %p)\n", This, ppv);
        *ppv = &This->IVariantChangeType_iface;
    }
 
    if(*ppv) {
        IUnknown_AddRef((IUnknown*)*ppv);
        return S_OK;
    }
 
    FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
    return E_NOINTERFACE;
}

JScript_Release()

static ULONG WINAPI JScript_Release ( IActiveScript *  iface )

static

Definition at line 404 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
    LONG ref = InterlockedDecrement(&This->ref);
 
    TRACE("(%p) ref=%d\n", iface, ref);
 
    if(!ref) {
        if(This->ctx && This->ctx->state != SCRIPTSTATE_CLOSED)
            IActiveScript_Close(&This->IActiveScript_iface);
        if(This->ctx) {
            This->ctx->active_script = NULL;
            script_release(This->ctx);
        }
        heap_free(This);
        unlock_module();
    }
 
    return ref;
}

JScript_SetScriptSite()

static HRESULT WINAPI JScript_SetScriptSite ( IActiveScript *  iface, IActiveScriptSite *  pass  )

static

Definition at line 425 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
    LCID lcid;
    HRESULT hres;
 
    TRACE("(%p)->(%p)\n", This, pass);
 
    if(!pass)
        return E_POINTER;
 
    if(This->site)
        return E_UNEXPECTED;
 
    if(InterlockedCompareExchange(&This->thread_id, GetCurrentThreadId(), 0))
        return E_UNEXPECTED;
 
    This->site = pass;
    IActiveScriptSite_AddRef(This->site);
 
    hres = IActiveScriptSite_GetLCID(This->site, &lcid);
    if(hres == S_OK)
        This->lcid = lcid;
 
    return This->ctx ? set_ctx_site(This) : S_OK;
}

JScript_SetScriptState()

static HRESULT WINAPI JScript_SetScriptState ( IActiveScript *  iface, SCRIPTSTATE  ss  )

static

Definition at line 461 of file jscript.c.

{
    JScript *This = impl_from_IActiveScript(iface);
 
    TRACE("(%p)->(%d)\n", This, ss);
 
    if(This->thread_id && GetCurrentThreadId() != This->thread_id)
        return E_UNEXPECTED;
 
    if(ss == SCRIPTSTATE_UNINITIALIZED) {
        if(This->ctx && This->ctx->state == SCRIPTSTATE_CLOSED)
            return E_UNEXPECTED;
 
        decrease_state(This, SCRIPTSTATE_UNINITIALIZED);
        return S_OK;
    }
 
    if(!This->ctx)
        return E_UNEXPECTED;
 
    switch(ss) {
    case SCRIPTSTATE_STARTED:
    case SCRIPTSTATE_CONNECTED: /* FIXME */
        if(This->ctx->state == SCRIPTSTATE_CLOSED)
            return E_UNEXPECTED;
 
        exec_queued_code(This);
        break;
    case SCRIPTSTATE_INITIALIZED:
        FIXME("unimplemented SCRIPTSTATE_INITIALIZED\n");
        return S_OK;
    default:
        FIXME("unimplemented state %d\n", ss);
        return E_NOTIMPL;
    }
 
    change_state(This, ss);
    return S_OK;
}

JScriptParse_AddRef()

static ULONG WINAPI JScriptParse_AddRef ( IActiveScriptParse *  iface )

static

Definition at line 685 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptParse(iface);
    return IActiveScript_AddRef(&This->IActiveScript_iface);
}

JScriptParse_AddScriptlet()

static HRESULT WINAPI JScriptParse_AddScriptlet ( IActiveScriptParse *  iface, LPCOLESTR  pstrDefaultName, LPCOLESTR  pstrCode, LPCOLESTR  pstrItemName, LPCOLESTR  pstrSubItemName, LPCOLESTR  pstrEventName, LPCOLESTR  pstrDelimiter, CTXARG_T  dwSourceContextCookie, ULONG  ulStartingLineNumber, DWORD  dwFlags, BSTR *  pbstrName, EXCEPINFO *  pexcepinfo  )

static

Definition at line 739 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptParse(iface);
    FIXME("(%p)->(%s %s %s %s %s %s %s %u %x %p %p)\n", This, debugstr_w(pstrDefaultName),
          debugstr_w(pstrCode), debugstr_w(pstrItemName), debugstr_w(pstrSubItemName),
          debugstr_w(pstrEventName), debugstr_w(pstrDelimiter), wine_dbgstr_longlong(dwSourceContextCookie),
          ulStartingLineNumber, dwFlags, pbstrName, pexcepinfo);
    return E_NOTIMPL;
}

JScriptParse_InitNew()

static HRESULT WINAPI JScriptParse_InitNew ( IActiveScriptParse *  iface )

static

Definition at line 697 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptParse(iface);
    script_ctx_t *ctx;
    HRESULT hres;
 
    TRACE("(%p)\n", This);
 
    if(This->ctx)
        return E_UNEXPECTED;
 
    ctx = heap_alloc_zero(sizeof(script_ctx_t));
    if(!ctx)
        return E_OUTOFMEMORY;
 
    ctx->ref = 1;
    ctx->state = SCRIPTSTATE_UNINITIALIZED;
    ctx->active_script = &This->IActiveScript_iface;
    ctx->safeopt = This->safeopt;
    ctx->version = This->version;
    ctx->html_mode = This->html_mode;
    ctx->ei.val = jsval_undefined();
    ctx->acc = jsval_undefined();
    heap_pool_init(&ctx->tmp_heap);
 
    hres = create_jscaller(ctx);
    if(FAILED(hres)) {
        heap_free(ctx);
        return hres;
    }
 
    ctx->last_match = jsstr_empty();
 
    ctx = InterlockedCompareExchangePointer((void**)&This->ctx, ctx, NULL);
    if(ctx) {
        script_release(ctx);
        return E_UNEXPECTED;
    }
 
    return This->site ? set_ctx_site(This) : S_OK;
}

JScriptParse_ParseScriptText()

static HRESULT WINAPI JScriptParse_ParseScriptText ( IActiveScriptParse *  iface, LPCOLESTR  pstrCode, LPCOLESTR  pstrItemName, IUnknown *  punkContext, LPCOLESTR  pstrDelimiter, CTXARG_T  dwSourceContextCookie, ULONG  ulStartingLine, DWORD  dwFlags, VARIANT *  pvarResult, EXCEPINFO *  pexcepinfo  )

static

Definition at line 753 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptParse(iface);
    bytecode_t *code;
    HRESULT hres;
 
    TRACE("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This, debugstr_w(pstrCode),
          debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
          wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLine, dwFlags, pvarResult, pexcepinfo);
 
    if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
        return E_UNEXPECTED;
 
    hres = compile_script(This->ctx, pstrCode, NULL, pstrDelimiter, (dwFlags & SCRIPTTEXT_ISEXPRESSION) != 0,
            This->is_encode, &code);
    if(FAILED(hres))
        return hres;
 
    if(dwFlags & SCRIPTTEXT_ISEXPRESSION) {
        jsval_t r;
 
        IActiveScriptSite_OnEnterScript(This->site);
 
        clear_ei(This->ctx);
        hres = exec_source(This->ctx, EXEC_GLOBAL, code, &code->global_code, NULL, NULL, NULL, This->ctx->global, 0, NULL, &r);
        if(SUCCEEDED(hres)) {
            if(pvarResult)
                hres = jsval_to_variant(r, pvarResult);
            jsval_release(r);
        }
 
        IActiveScriptSite_OnLeaveScript(This->site);
        return hres;
    }
 
    /*
     * Although pvarResult is not really used without SCRIPTTEXT_ISEXPRESSION flag, if it's not NULL,
     * script is executed immediately, even if it's not in started state yet.
     */
    if(!pvarResult && !is_started(This->ctx)) {
        if(This->queue_tail)
            This->queue_tail = This->queue_tail->next = code;
        else
            This->queue_head = This->queue_tail = code;
        return S_OK;
    }
 
    hres = exec_global_code(This, code);
    release_bytecode(code);
    if(FAILED(hres))
        return hres;
 
    if(pvarResult)
        V_VT(pvarResult) = VT_EMPTY;
    return S_OK;
}

JScriptParse_QueryInterface()

static HRESULT WINAPI JScriptParse_QueryInterface ( IActiveScriptParse *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 679 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptParse(iface);
    return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
}

JScriptParse_Release()

static ULONG WINAPI JScriptParse_Release ( IActiveScriptParse *  iface )

static

Definition at line 691 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptParse(iface);
    return IActiveScript_Release(&This->IActiveScript_iface);
}

JScriptParseProcedure_AddRef()

static ULONG WINAPI JScriptParseProcedure_AddRef ( IActiveScriptParseProcedure2 *  iface )

static

Definition at line 833 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
    return IActiveScript_AddRef(&This->IActiveScript_iface);
}

JScriptParseProcedure_ParseProcedureText()

static HRESULT WINAPI JScriptParseProcedure_ParseProcedureText ( IActiveScriptParseProcedure2 *  iface, LPCOLESTR  pstrCode, LPCOLESTR  pstrFormalParams, LPCOLESTR  pstrProcedureName, LPCOLESTR  pstrItemName, IUnknown *  punkContext, LPCOLESTR  pstrDelimiter, CTXARG_T  dwSourceContextCookie, ULONG  ulStartingLineNumber, DWORD  dwFlags, IDispatch **  ppdisp  )

static

Definition at line 845 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
    bytecode_t *code;
    jsdisp_t *dispex;
    HRESULT hres;
 
    TRACE("(%p)->(%s %s %s %s %p %s %s %u %x %p)\n", This, debugstr_w(pstrCode), debugstr_w(pstrFormalParams),
          debugstr_w(pstrProcedureName), debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
          wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLineNumber, dwFlags, ppdisp);
 
    if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
        return E_UNEXPECTED;
 
    hres = compile_script(This->ctx, pstrCode, pstrFormalParams, pstrDelimiter, FALSE, This->is_encode, &code);
    if(FAILED(hres)) {
        WARN("Parse failed %08x\n", hres);
        return hres;
    }
 
    hres = create_source_function(This->ctx, code, &code->global_code, NULL,  &dispex);
    release_bytecode(code);
    if(FAILED(hres))
        return hres;
 
    *ppdisp = to_disp(dispex);
    return S_OK;
}

JScriptParseProcedure_QueryInterface()

static HRESULT WINAPI JScriptParseProcedure_QueryInterface ( IActiveScriptParseProcedure2 *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 827 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
    return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
}

JScriptParseProcedure_Release()

static ULONG WINAPI JScriptParseProcedure_Release ( IActiveScriptParseProcedure2 *  iface )

static

Definition at line 839 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
    return IActiveScript_Release(&This->IActiveScript_iface);
}

JScriptProperty_AddRef()

static ULONG WINAPI JScriptProperty_AddRef ( IActiveScriptProperty *  iface )

static

Definition at line 895 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptProperty(iface);
    return IActiveScript_AddRef(&This->IActiveScript_iface);
}

JScriptProperty_GetProperty()

static HRESULT WINAPI JScriptProperty_GetProperty ( IActiveScriptProperty *  iface, DWORD  dwProperty, VARIANT *  pvarIndex, VARIANT *  pvarValue  )

static

Definition at line 907 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptProperty(iface);
    FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
    return E_NOTIMPL;
}

JScriptProperty_QueryInterface()

static HRESULT WINAPI JScriptProperty_QueryInterface ( IActiveScriptProperty *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 889 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptProperty(iface);
    return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
}

JScriptProperty_Release()

static ULONG WINAPI JScriptProperty_Release ( IActiveScriptProperty *  iface )

static

Definition at line 901 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptProperty(iface);
    return IActiveScript_Release(&This->IActiveScript_iface);
}

JScriptProperty_SetProperty()

static HRESULT WINAPI JScriptProperty_SetProperty ( IActiveScriptProperty *  iface, DWORD  dwProperty, VARIANT *  pvarIndex, VARIANT *  pvarValue  )

static

Definition at line 915 of file jscript.c.

{
    JScript *This = impl_from_IActiveScriptProperty(iface);
 
    TRACE("(%p)->(%x %s %s)\n", This, dwProperty, debugstr_variant(pvarIndex), debugstr_variant(pvarValue));
 
    if(pvarIndex)
        FIXME("unsupported pvarIndex\n");
 
    switch(dwProperty) {
    case SCRIPTPROP_INVOKEVERSIONING:
        if(V_VT(pvarValue) != VT_I4 || V_I4(pvarValue) < 0
           || (V_I4(pvarValue) > 15 && !(V_I4(pvarValue) & SCRIPTLANGUAGEVERSION_HTML))) {
            WARN("invalid value %s\n", debugstr_variant(pvarValue));
            return E_INVALIDARG;
        }
 
        This->version = V_I4(pvarValue) & 0x1ff;
        This->html_mode = (V_I4(pvarValue) & SCRIPTLANGUAGEVERSION_HTML) != 0;
        break;
    default:
        FIXME("Unimplemented property %x\n", dwProperty);
        return E_NOTIMPL;
    }
 
    return S_OK;
}

JScriptSafety_AddRef()

static ULONG WINAPI JScriptSafety_AddRef ( IObjectSafety *  iface )

static

Definition at line 963 of file jscript.c.

{
    JScript *This = impl_from_IObjectSafety(iface);
    return IActiveScript_AddRef(&This->IActiveScript_iface);
}

JScriptSafety_GetInterfaceSafetyOptions()

static HRESULT WINAPI JScriptSafety_GetInterfaceSafetyOptions ( IObjectSafety *  iface, REFIID  riid, DWORD *  pdwSupportedOptions, DWORD *  pdwEnabledOptions  )

static

Definition at line 977 of file jscript.c.

{
    JScript *This = impl_from_IObjectSafety(iface);
 
    TRACE("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
 
    if(!pdwSupportedOptions || !pdwEnabledOptions)
        return E_POINTER;
 
    *pdwSupportedOptions = SUPPORTED_OPTIONS;
    *pdwEnabledOptions = This->safeopt;
 
    return S_OK;
}

JScriptSafety_QueryInterface()

static HRESULT WINAPI JScriptSafety_QueryInterface ( IObjectSafety *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 957 of file jscript.c.

{
    JScript *This = impl_from_IObjectSafety(iface);
    return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
}

JScriptSafety_Release()

static ULONG WINAPI JScriptSafety_Release ( IObjectSafety *  iface )

static

Definition at line 969 of file jscript.c.

{
    JScript *This = impl_from_IObjectSafety(iface);
    return IActiveScript_Release(&This->IActiveScript_iface);
}

JScriptSafety_SetInterfaceSafetyOptions()

static HRESULT WINAPI JScriptSafety_SetInterfaceSafetyOptions ( IObjectSafety *  iface, REFIID  riid, DWORD  dwOptionSetMask, DWORD  dwEnabledOptions  )

static

Definition at line 993 of file jscript.c.

{
    JScript *This = impl_from_IObjectSafety(iface);
 
    TRACE("(%p)->(%s %x %x)\n", This, debugstr_guid(riid), dwOptionSetMask, dwEnabledOptions);
 
    if(dwOptionSetMask & ~SUPPORTED_OPTIONS)
        return E_FAIL;
 
    This->safeopt = (dwEnabledOptions & dwOptionSetMask) | (This->safeopt & ~dwOptionSetMask) | INTERFACE_USES_DISPEX;
    return S_OK;
}

script_release()

void script_release

(

script_ctx_t *

ctx

)

Definition at line 67 of file jscript.c.

{
    if(--ctx->ref)
        return;
 
    jsval_release(ctx->acc);
    clear_ei(ctx);
    if(ctx->cc)
        release_cc(ctx->cc);
    heap_pool_free(&ctx->tmp_heap);
    if(ctx->last_match)
        jsstr_release(ctx->last_match);
    assert(!ctx->stack_top);
    heap_free(ctx->stack);
 
    ctx->jscaller->ctx = NULL;
    IServiceProvider_Release(&ctx->jscaller->IServiceProvider_iface);
 
    heap_free(ctx);
}

Referenced by JScript_Release(), JScriptParse_InitNew(), and jsdisp_free().

set_ctx_site()

static HRESULT set_ctx_site ( JScript *  This )

static

Definition at line 146 of file jscript.c.

{
    HRESULT hres;
 
    This->ctx->lcid = This->lcid;
 
    hres = init_global(This->ctx);
    if(FAILED(hres))
        return hres;
 
    IActiveScriptSite_AddRef(This->site);
    This->ctx->site = This->site;
 
    change_state(This, SCRIPTSTATE_INITIALIZED);
    return S_OK;
}

Referenced by JScript_SetScriptSite(), and JScriptParse_InitNew().

VariantChangeType_AddRef()

static ULONG WINAPI VariantChangeType_AddRef ( IVariantChangeType *  iface )

static

Definition at line 1026 of file jscript.c.

{
    JScript *This = impl_from_IVariantChangeType(iface);
    return IActiveScript_AddRef(&This->IActiveScript_iface);
}

VariantChangeType_ChangeType()

static HRESULT WINAPI VariantChangeType_ChangeType ( IVariantChangeType *  iface, VARIANT *  dst, VARIANT *  src, LCID  lcid, VARTYPE  vt  )

static

Definition at line 1038 of file jscript.c.

{
    JScript *This = impl_from_IVariantChangeType(iface);
    VARIANT res;
    HRESULT hres;
 
    TRACE("(%p)->(%p %p%s %x %d)\n", This, dst, src, debugstr_variant(src), lcid, vt);
 
    if(!This->ctx) {
        FIXME("Object uninitialized\n");
        return E_UNEXPECTED;
    }
 
    hres = variant_change_type(This->ctx, &res, src, vt);
    if(FAILED(hres))
        return hres;
 
    hres = VariantClear(dst);
    if(FAILED(hres)) {
        VariantClear(&res);
        return hres;
    }
 
    *dst = res;
    return S_OK;
}

VariantChangeType_QueryInterface()

static HRESULT WINAPI VariantChangeType_QueryInterface ( IVariantChangeType *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 1020 of file jscript.c.

{
    JScript *This = impl_from_IVariantChangeType(iface);
    return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
}

VariantChangeType_Release()

static ULONG WINAPI VariantChangeType_Release ( IVariantChangeType *  iface )

static

Definition at line 1032 of file jscript.c.

{
    JScript *This = impl_from_IVariantChangeType(iface);
    return IActiveScript_Release(&This->IActiveScript_iface);
}

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

jscript

)

Variable Documentation

AXSiteVtbl

IServiceProviderVtbl AXSiteVtbl

static

Initial value:

= {
    AXSite_QueryInterface,
    AXSite_AddRef,
    AXSite_Release,
    AXSite_QueryService
}

Definition at line 317 of file jscript.c.

Referenced by create_ax_site().

JScriptParseProcedureVtbl

const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl

static

Initial value:

= {
    JScriptParseProcedure_QueryInterface,
    JScriptParseProcedure_AddRef,
    JScriptParseProcedure_Release,
    JScriptParseProcedure_ParseProcedureText,
}

Definition at line 877 of file jscript.c.

Referenced by create_jscript_object().

JScriptParseVtbl

const IActiveScriptParseVtbl JScriptParseVtbl

static

Initial value:

= {
    JScriptParse_QueryInterface,
    JScriptParse_AddRef,
    JScriptParse_Release,
    JScriptParse_InitNew,
    JScriptParse_AddScriptlet,
    JScriptParse_ParseScriptText
}

Definition at line 813 of file jscript.c.

Referenced by create_jscript_object().

JScriptPropertyVtbl

const IActiveScriptPropertyVtbl JScriptPropertyVtbl

static

Initial value:

= {
    JScriptProperty_QueryInterface,
    JScriptProperty_AddRef,
    JScriptProperty_Release,
    JScriptProperty_GetProperty,
    JScriptProperty_SetProperty
}

Definition at line 944 of file jscript.c.

Referenced by create_jscript_object().

JScriptSafetyVtbl

const IObjectSafetyVtbl JScriptSafetyVtbl

static

Initial value:

= {
    JScriptSafety_QueryInterface,
    JScriptSafety_AddRef,
    JScriptSafety_Release,
    JScriptSafety_GetInterfaceSafetyOptions,
    JScriptSafety_SetInterfaceSafetyOptions
}

Definition at line 1007 of file jscript.c.

Referenced by create_jscript_object().

JScriptVtbl

const IActiveScriptVtbl JScriptVtbl

static

Initial value:

= {
    JScript_QueryInterface,
    JScript_AddRef,
    JScript_Release,
    JScript_SetScriptSite,
    JScript_GetScriptSite,
    JScript_SetScriptState,
    JScript_GetScriptState,
    JScript_Close,
    JScript_AddNamedItem,
    JScript_AddTypeLib,
    JScript_GetScriptDispatch,
    JScript_GetCurrentScriptThreadID,
    JScript_GetScriptThreadID,
    JScript_GetScriptThreadState,
    JScript_InterruptScriptThread,
    JScript_Clone
}

Definition at line 655 of file jscript.c.

Referenced by create_jscript_object().

VariantChangeTypeVtbl

const IVariantChangeTypeVtbl VariantChangeTypeVtbl

static

Initial value:

= {
    VariantChangeType_QueryInterface,
    VariantChangeType_AddRef,
    VariantChangeType_Release,
    VariantChangeType_ChangeType
}

Definition at line 1065 of file jscript.c.

Referenced by create_jscript_object().