vbscript.c File Reference

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

Include dependency graph for vbscript.c:

Go to the source code of this file.

Classes
struct	VBScript
struct	VBScriptError
struct	AXSite

Macros
#define	CTXARG_T   DWORD
#define	IActiveScriptDebugVtbl   IActiveScriptDebug32Vtbl
#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 (vbscript)
static WCHAR *	heap_pool_strdup (heap_pool_t *heap, const WCHAR *str)
static void	change_state (VBScript *This, SCRIPTSTATE state)
static BOOL	is_started (VBScript *This)
static HRESULT	exec_global_code (script_ctx_t *ctx, vbscode_t *code, VARIANT *res)
static void	exec_queued_code (script_ctx_t *ctx)
static HRESULT	retrieve_named_item_disp (IActiveScriptSite *site, named_item_t *item)
named_item_t *	lookup_named_item (script_ctx_t *ctx, const WCHAR *name, unsigned flags)
static void	release_named_item_script_obj (named_item_t *item)
void	release_named_item (named_item_t *item)
static void	release_script (script_ctx_t *ctx)
static void	release_code_list (script_ctx_t *ctx)
static void	release_named_item_list (script_ctx_t *ctx)
static void	decrease_state (VBScript *This, SCRIPTSTATE state)
static struct vbcaller *	vbcaller_from_IServiceProvider (IServiceProvider *iface)
static HRESULT WINAPI	vbcaller_QueryInterface (IServiceProvider *iface, REFIID riid, void **ppv)
static ULONG WINAPI	vbcaller_AddRef (IServiceProvider *iface)
static ULONG WINAPI	vbcaller_Release (IServiceProvider *iface)
static HRESULT WINAPI	vbcaller_QueryService (IServiceProvider *iface, REFGUID guidService, REFIID riid, void **ppv)
static struct vbcaller *	create_vbcaller (void)
static VBScriptError *	impl_from_IActiveScriptError (IActiveScriptError *iface)
static HRESULT WINAPI	VBScriptError_QueryInterface (IActiveScriptError *iface, REFIID riid, void **ppv)
static ULONG WINAPI	VBScriptError_AddRef (IActiveScriptError *iface)
static ULONG WINAPI	VBScriptError_Release (IActiveScriptError *iface)
static HRESULT WINAPI	VBScriptError_GetExceptionInfo (IActiveScriptError *iface, EXCEPINFO *excepinfo)
static HRESULT WINAPI	VBScriptError_GetSourcePosition (IActiveScriptError *iface, DWORD *source_context, ULONG *line, LONG *character)
static HRESULT WINAPI	VBScriptError_GetSourceLineText (IActiveScriptError *iface, BSTR *source)
HRESULT	report_script_error (script_ctx_t *ctx, const vbscode_t *code, unsigned loc)
static VBScript *	impl_from_IActiveScript (IActiveScript *iface)
static HRESULT WINAPI	VBScript_QueryInterface (IActiveScript *iface, REFIID riid, void **ppv)
static ULONG WINAPI	VBScript_AddRef (IActiveScript *iface)
static ULONG WINAPI	VBScript_Release (IActiveScript *iface)
static HRESULT WINAPI	VBScript_SetScriptSite (IActiveScript *iface, IActiveScriptSite *pass)
static HRESULT WINAPI	VBScript_GetScriptSite (IActiveScript *iface, REFIID riid, void **ppvObject)
static HRESULT WINAPI	VBScript_SetScriptState (IActiveScript *iface, SCRIPTSTATE ss)
static HRESULT WINAPI	VBScript_GetScriptState (IActiveScript *iface, SCRIPTSTATE *pssState)
static HRESULT WINAPI	VBScript_Close (IActiveScript *iface)
static HRESULT WINAPI	VBScript_AddNamedItem (IActiveScript *iface, LPCOLESTR pstrName, DWORD dwFlags)
static HRESULT WINAPI	VBScript_AddTypeLib (IActiveScript *iface, REFGUID rguidTypeLib, DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
static HRESULT WINAPI	VBScript_GetScriptDispatch (IActiveScript *iface, LPCOLESTR pstrItemName, IDispatch **ppdisp)
static HRESULT WINAPI	VBScript_GetCurrentScriptThreadID (IActiveScript *iface, SCRIPTTHREADID *pstridThread)
static HRESULT WINAPI	VBScript_GetScriptThreadID (IActiveScript *iface, DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
static HRESULT WINAPI	VBScript_GetScriptThreadState (IActiveScript *iface, SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
static HRESULT WINAPI	VBScript_InterruptScriptThread (IActiveScript *iface, SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
static HRESULT WINAPI	VBScript_Clone (IActiveScript *iface, IActiveScript **ppscript)
static VBScript *	impl_from_IActiveScriptDebug (IActiveScriptDebug *iface)
static HRESULT WINAPI	VBScriptDebug_QueryInterface (IActiveScriptDebug *iface, REFIID riid, void **ppv)
static ULONG WINAPI	VBScriptDebug_AddRef (IActiveScriptDebug *iface)
static ULONG WINAPI	VBScriptDebug_Release (IActiveScriptDebug *iface)
static HRESULT WINAPI	VBScriptDebug_GetScriptTextAttributes (IActiveScriptDebug *iface, LPCOLESTR code, ULONG len, LPCOLESTR delimiter, DWORD flags, SOURCE_TEXT_ATTR *attr)
static HRESULT WINAPI	VBScriptDebug_GetScriptletTextAttributes (IActiveScriptDebug *iface, LPCOLESTR code, ULONG len, LPCOLESTR delimiter, DWORD flags, SOURCE_TEXT_ATTR *attr)
static HRESULT WINAPI	VBScriptDebug_EnumCodeContextsOfPosition (IActiveScriptDebug *iface, CTXARG_T source, ULONG offset, ULONG len, IEnumDebugCodeContexts **ret)
static VBScript *	impl_from_IActiveScriptParse (IActiveScriptParse *iface)
static HRESULT WINAPI	VBScriptParse_QueryInterface (IActiveScriptParse *iface, REFIID riid, void **ppv)
static ULONG WINAPI	VBScriptParse_AddRef (IActiveScriptParse *iface)
static ULONG WINAPI	VBScriptParse_Release (IActiveScriptParse *iface)
static HRESULT WINAPI	VBScriptParse_InitNew (IActiveScriptParse *iface)
static HRESULT WINAPI	VBScriptParse_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	VBScriptParse_ParseScriptText (IActiveScriptParse *iface, LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLine, DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
static VBScript *	impl_from_IActiveScriptParseProcedure2 (IActiveScriptParseProcedure2 *iface)
static HRESULT WINAPI	VBScriptParseProcedure_QueryInterface (IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
static ULONG WINAPI	VBScriptParseProcedure_AddRef (IActiveScriptParseProcedure2 *iface)
static ULONG WINAPI	VBScriptParseProcedure_Release (IActiveScriptParseProcedure2 *iface)
static HRESULT WINAPI	VBScriptParseProcedure_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 VBScript *	impl_from_IObjectSafety (IObjectSafety *iface)
static HRESULT WINAPI	VBScriptSafety_QueryInterface (IObjectSafety *iface, REFIID riid, void **ppv)
static ULONG WINAPI	VBScriptSafety_AddRef (IObjectSafety *iface)
static ULONG WINAPI	VBScriptSafety_Release (IObjectSafety *iface)
static HRESULT WINAPI	VBScriptSafety_GetInterfaceSafetyOptions (IObjectSafety *iface, REFIID riid, DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
static HRESULT WINAPI	VBScriptSafety_SetInterfaceSafetyOptions (IObjectSafety *iface, REFIID riid, DWORD dwOptionSetMask, DWORD dwEnabledOptions)
HRESULT WINAPI	VBScriptFactory_CreateInstance (IClassFactory *iface, IUnknown *pUnkOuter, REFIID riid, void **ppv)
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)

Variables
static const IServiceProviderVtbl	ServiceProviderVtbl
static const IActiveScriptErrorVtbl	VBScriptErrorVtbl
static const IActiveScriptVtbl	VBScriptVtbl
static const IActiveScriptDebugVtbl	VBScriptDebugVtbl
static const IActiveScriptParseVtbl	VBScriptParseVtbl
static const IActiveScriptParseProcedure2Vtbl	VBScriptParseProcedureVtbl
static const IObjectSafetyVtbl	VBScriptSafetyVtbl
static IServiceProviderVtbl	AXSiteVtbl

Macro Definition Documentation

CTXARG_T

#define CTXARG_T   DWORD

Definition at line 38 of file vbscript.c.

IActiveScriptDebugVtbl

#define IActiveScriptDebugVtbl   IActiveScriptDebug32Vtbl

Definition at line 39 of file vbscript.c.

IActiveScriptParseProcedure2Vtbl

#define IActiveScriptParseProcedure2Vtbl   IActiveScriptParseProcedure2_32Vtbl

Definition at line 41 of file vbscript.c.

IActiveScriptParseVtbl

#define IActiveScriptParseVtbl   IActiveScriptParse32Vtbl

Definition at line 40 of file vbscript.c.

SUPPORTED_OPTIONS

#define SUPPORTED_OPTIONS   (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)

Definition at line 1162 of file vbscript.c.

Function Documentation

AXSite_AddRef()

static ULONG WINAPI AXSite_AddRef ( IServiceProvider *  iface )

static

Definition at line 1286 of file vbscript.c.

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

AXSite_QueryInterface()

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

static

Definition at line 1266 of file vbscript.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 1309 of file vbscript.c.

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

AXSite_Release()

static ULONG WINAPI AXSite_Release ( IServiceProvider *  iface )

static

Definition at line 1296 of file vbscript.c.

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

change_state()

static void change_state ( VBScript *  This, SCRIPTSTATE  state  )

static

Definition at line 77 of file vbscript.c.

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

Referenced by decrease_state(), VBScript_SetScriptSite(), VBScript_SetScriptState(), and VBScriptParse_InitNew().

create_ax_site()

IUnknown * create_ax_site

(

script_ctx_t *

ctx

)

Definition at line 1326 of file vbscript.c.

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

create_vbcaller()

static struct vbcaller * create_vbcaller ( void  )

static

Definition at line 453 of file vbscript.c.

{
    struct vbcaller *ret;
 
    ret = malloc(sizeof(*ret));
    if(ret) {
        ret->IServiceProvider_iface.lpVtbl = &ServiceProviderVtbl;
        ret->ref = 1;
        ret->caller = SP_CALLER_UNINITIALIZED;
    }
    return ret;
}

Referenced by VBScriptFactory_CreateInstance().

decrease_state()

static void decrease_state ( VBScript *  This, SCRIPTSTATE  state  )

static

Definition at line 345 of file vbscript.c.

{
    switch(This->state) {
    case SCRIPTSTATE_CONNECTED:
        change_state(This, SCRIPTSTATE_DISCONNECTED);
        if(state == SCRIPTSTATE_DISCONNECTED)
            return;
        /* FALLTHROUGH */
    case SCRIPTSTATE_STARTED:
    case SCRIPTSTATE_DISCONNECTED:
        change_state(This, SCRIPTSTATE_INITIALIZED);
        /* FALLTHROUGH */
    case SCRIPTSTATE_INITIALIZED:
    case SCRIPTSTATE_UNINITIALIZED:
        change_state(This, state);
        if(state == SCRIPTSTATE_INITIALIZED)
            break;
        release_script(This->ctx);
        This->thread_id = 0;
        if(state == SCRIPTSTATE_CLOSED) {
            release_code_list(This->ctx);
            release_named_item_list(This->ctx);
        }
        break;
    case SCRIPTSTATE_CLOSED:
        break;
    DEFAULT_UNREACHABLE;
    }
}

Referenced by VBScript_Close(), VBScript_Release(), and VBScript_SetScriptState().

exec_global_code()

static HRESULT exec_global_code ( script_ctx_t *  ctx, vbscode_t *  code, VARIANT *  res  )

static

Definition at line 94 of file vbscript.c.

{
    ScriptDisp *obj = ctx->script_obj;
    function_t *func_iter, **new_funcs;
    dynamic_var_t *var, **new_vars;
    IServiceProvider *prev_caller;
    size_t cnt, i;
    HRESULT hres;
 
    if(code->named_item) {
        if(!code->named_item->script_obj) {
            hres = create_script_disp(ctx, &code->named_item->script_obj);
            if(FAILED(hres)) return hres;
        }
        obj = code->named_item->script_obj;
    }
 
    cnt = obj->global_vars_cnt + code->main_code.var_cnt;
    if (cnt > obj->global_vars_size)
    {
        if (obj->global_vars)
            new_vars = realloc(obj->global_vars, cnt * sizeof(*new_vars));
        else
            new_vars = malloc(cnt * sizeof(*new_vars));
        if (!new_vars)
            return E_OUTOFMEMORY;
        obj->global_vars = new_vars;
        obj->global_vars_size = cnt;
    }
 
    cnt = obj->global_funcs_cnt;
    for (func_iter = code->funcs; func_iter; func_iter = func_iter->next)
        cnt++;
    if (cnt > obj->global_funcs_size)
    {
        if (obj->global_funcs)
            new_funcs = realloc(obj->global_funcs, cnt * sizeof(*new_funcs));
        else
            new_funcs = malloc(cnt * sizeof(*new_funcs));
        if (!new_funcs)
            return E_OUTOFMEMORY;
        obj->global_funcs = new_funcs;
        obj->global_funcs_size = cnt;
    }
 
    for (i = 0; i < code->main_code.var_cnt; i++)
    {
        if (!(var = heap_pool_alloc(&obj->heap, sizeof(*var))))
            return E_OUTOFMEMORY;
 
        var->name = heap_pool_strdup(&obj->heap, code->main_code.vars[i].name);
        if (!var->name)
            return E_OUTOFMEMORY;
        V_VT(&var->v) = VT_EMPTY;
        var->is_const = FALSE;
        var->array = NULL;
 
        obj->global_vars[obj->global_vars_cnt + i] = var;
    }
 
    obj->global_vars_cnt += code->main_code.var_cnt;
 
    for (func_iter = code->funcs; func_iter; func_iter = func_iter->next)
    {
        for (i = 0; i < obj->global_funcs_cnt; i++)
        {
            if (!wcsicmp(obj->global_funcs[i]->name, func_iter->name))
            {
                /* global function already exists, replace it */
                obj->global_funcs[i] = func_iter;
                break;
            }
        }
        if (i == obj->global_funcs_cnt)
            obj->global_funcs[obj->global_funcs_cnt++] = func_iter;
    }
 
    if (code->classes)
    {
        class_desc_t *class = code->classes;
 
        while (1)
        {
            class->ctx = ctx;
            if (!class->next)
                break;
            class = class->next;
        }
 
        class->next = obj->classes;
        obj->classes = code->classes;
        code->last_class = class;
    }
 
    code->pending_exec = FALSE;
 
    prev_caller = ctx->vbcaller->caller;
    ctx->vbcaller->caller = SP_CALLER_UNINITIALIZED;
    hres = exec_script(ctx, TRUE, &code->main_code, NULL, NULL, res);
    ctx->vbcaller->caller = prev_caller;
    return hres;
}

Referenced by exec_queued_code(), and VBScriptParse_ParseScriptText().

exec_queued_code()

static void exec_queued_code ( script_ctx_t *  ctx )

static

Definition at line 197 of file vbscript.c.

{
    vbscode_t *iter;
 
    LIST_FOR_EACH_ENTRY(iter, &ctx->code_list, vbscode_t, entry) {
        if(iter->pending_exec)
            exec_global_code(ctx, iter, NULL);
    }
}

Referenced by VBScript_SetScriptState().

heap_pool_strdup()

static WCHAR * heap_pool_strdup ( heap_pool_t *  heap, const WCHAR *  str  )

inlinestatic

Definition at line 69 of file vbscript.c.

{
    size_t size = (lstrlenW(str) + 1) * sizeof(WCHAR);
    WCHAR *ret = heap_pool_alloc(heap, size);
    if (ret) memcpy(ret, str, size);
    return ret;
}

Referenced by exec_global_code().

impl_from_IActiveScript()

static VBScript * impl_from_IActiveScript ( IActiveScript *  iface )

inlinestatic

Definition at line 588 of file vbscript.c.

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

Referenced by VBScript_AddNamedItem(), VBScript_AddRef(), VBScript_AddTypeLib(), VBScript_Clone(), VBScript_Close(), VBScript_GetCurrentScriptThreadID(), VBScript_GetScriptDispatch(), VBScript_GetScriptSite(), VBScript_GetScriptState(), VBScript_GetScriptThreadID(), VBScript_GetScriptThreadState(), VBScript_InterruptScriptThread(), VBScript_QueryInterface(), VBScript_Release(), VBScript_SetScriptSite(), and VBScript_SetScriptState().

impl_from_IActiveScriptDebug()

static VBScript * impl_from_IActiveScriptDebug ( IActiveScriptDebug *  iface )

inlinestatic

Definition at line 931 of file vbscript.c.

{
    return CONTAINING_RECORD(iface, VBScript, IActiveScriptDebug_iface);
}

Referenced by VBScriptDebug_AddRef(), VBScriptDebug_EnumCodeContextsOfPosition(), VBScriptDebug_GetScriptletTextAttributes(), VBScriptDebug_GetScriptTextAttributes(), VBScriptDebug_QueryInterface(), and VBScriptDebug_Release().

impl_from_IActiveScriptError()

static VBScriptError * impl_from_IActiveScriptError ( IActiveScriptError *  iface )

inlinestatic

Definition at line 466 of file vbscript.c.

{
    return CONTAINING_RECORD(iface, VBScriptError, IActiveScriptError_iface);
}

Referenced by VBScriptError_AddRef(), VBScriptError_GetExceptionInfo(), VBScriptError_GetSourceLineText(), VBScriptError_GetSourcePosition(), VBScriptError_QueryInterface(), and VBScriptError_Release().

impl_from_IActiveScriptParse()

static VBScript * impl_from_IActiveScriptParse ( IActiveScriptParse *  iface )

inlinestatic

Definition at line 989 of file vbscript.c.

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

Referenced by VBScriptParse_AddRef(), VBScriptParse_AddScriptlet(), VBScriptParse_InitNew(), VBScriptParse_ParseScriptText(), VBScriptParse_QueryInterface(), and VBScriptParse_Release().

impl_from_IActiveScriptParseProcedure2()

static VBScript * impl_from_IActiveScriptParseProcedure2 ( IActiveScriptParseProcedure2 *  iface )

inlinestatic

Definition at line 1079 of file vbscript.c.

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

Referenced by VBScriptParseProcedure_AddRef(), VBScriptParseProcedure_ParseProcedureText(), VBScriptParseProcedure_QueryInterface(), and VBScriptParseProcedure_Release().

impl_from_IObjectSafety()

static VBScript * impl_from_IObjectSafety ( IObjectSafety *  iface )

inlinestatic

Definition at line 1139 of file vbscript.c.

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

Referenced by VBScriptSafety_AddRef(), VBScriptSafety_GetInterfaceSafetyOptions(), VBScriptSafety_QueryInterface(), VBScriptSafety_Release(), and VBScriptSafety_SetInterfaceSafetyOptions().

impl_from_IServiceProvider()

static AXSite * impl_from_IServiceProvider ( IServiceProvider *  iface )

inlinestatic

Definition at line 1261 of file vbscript.c.

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

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

is_started()

static BOOL is_started ( VBScript *  This )

inlinestatic

Definition at line 87 of file vbscript.c.

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

Referenced by VBScriptParse_ParseScriptText().

lookup_named_item()

named_item_t * lookup_named_item	(	script_ctx_t *	ctx,
		const WCHAR *	name,
		unsigned	flags
	)

Definition at line 228 of file vbscript.c.

{
    named_item_t *item;
    HRESULT hres;
 
    LIST_FOR_EACH_ENTRY(item, &ctx->named_items, named_item_t, entry) {
        if((item->flags & flags) == flags && !wcsicmp(item->name, name)) {
            if(!item->script_obj && !(item->flags & SCRIPTITEM_GLOBALMEMBERS)) {
                hres = create_script_disp(ctx, &item->script_obj);
                if(FAILED(hres)) return NULL;
            }
 
            if(!item->disp && (flags || !(item->flags & SCRIPTITEM_CODEONLY))) {
                hres = retrieve_named_item_disp(ctx->site, item);
                if(FAILED(hres)) continue;
            }
 
            return item;
        }
    }
 
    return NULL;
}

Referenced by VBScript_GetScriptDispatch().

release_code_list()

static void release_code_list ( script_ctx_t *  ctx )

static

Definition at line 326 of file vbscript.c.

{
    while(!list_empty(&ctx->code_list)) {
        vbscode_t *iter = LIST_ENTRY(list_head(&ctx->code_list), vbscode_t, entry);
 
        list_remove(&iter->entry);
        release_vbscode(iter);
    }
}

Referenced by decrease_state().

release_named_item()

void release_named_item

(

named_item_t *

item

)

Definition at line 261 of file vbscript.c.

{
    if(--item->ref) return;
 
    free(item->name);
    free(item);
}

Referenced by release_named_item_list(), and release_script().

release_named_item_list()

static void release_named_item_list ( script_ctx_t *  ctx )

static

Definition at line 336 of file vbscript.c.

{
    while(!list_empty(&ctx->named_items)) {
        named_item_t *iter = LIST_ENTRY(list_head(&ctx->named_items), named_item_t, entry);
        list_remove(&iter->entry);
        release_named_item(iter);
    }
}

Referenced by decrease_state().

release_named_item_script_obj()

static void release_named_item_script_obj ( named_item_t *  item )

static

Definition at line 252 of file vbscript.c.

{
    if(!item->script_obj) return;
 
    item->script_obj->ctx = NULL;
    IDispatchEx_Release(&item->script_obj->IDispatchEx_iface);
    item->script_obj = NULL;
}

Referenced by release_script().

release_script()

static void release_script ( script_ctx_t *  ctx )

static

Definition at line 269 of file vbscript.c.

{
    named_item_t *item, *item_next;
    vbscode_t *code, *code_next;
 
    collect_objects(ctx);
    clear_ei(&ctx->ei);
 
    LIST_FOR_EACH_ENTRY_SAFE(code, code_next, &ctx->code_list, vbscode_t, entry)
    {
        if(code->is_persistent)
        {
            code->pending_exec = TRUE;
            if(code->last_class) code->last_class->next = NULL;
            if(code->named_item) release_named_item_script_obj(code->named_item);
        }
        else
        {
            list_remove(&code->entry);
            release_vbscode(code);
        }
    }
 
    LIST_FOR_EACH_ENTRY_SAFE(item, item_next, &ctx->named_items, named_item_t, entry)
    {
        if(item->disp)
        {
            IDispatch_Release(item->disp);
            item->disp = NULL;
        }
        release_named_item_script_obj(item);
        if(!(item->flags & SCRIPTITEM_ISPERSISTENT))
        {
            list_remove(&item->entry);
            release_named_item(item);
        }
    }
 
    if(ctx->secmgr) {
        IInternetHostSecurityManager_Release(ctx->secmgr);
        ctx->secmgr = NULL;
    }
 
    if(ctx->site) {
        IActiveScriptSite_Release(ctx->site);
        ctx->site = NULL;
    }
 
    if(ctx->script_obj) {
        ScriptDisp *script_obj = ctx->script_obj;
 
        ctx->script_obj = NULL;
        script_obj->ctx = NULL;
        IDispatchEx_Release(&script_obj->IDispatchEx_iface);
    }
}

Referenced by decrease_state().

report_script_error()

HRESULT report_script_error	(	script_ctx_t *	ctx,
		const vbscode_t *	code,
		unsigned	loc
	)

Definition at line 558 of file vbscript.c.

{
    VBScriptError *error;
    const WCHAR *p, *nl;
    HRESULT hres, result;
 
    if(!(error = malloc(sizeof(*error))))
        return E_OUTOFMEMORY;
    error->IActiveScriptError_iface.lpVtbl = &VBScriptErrorVtbl;
 
    error->ref = 1;
    error->ei = ctx->ei;
    memset(&ctx->ei, 0, sizeof(ctx->ei));
    result = error->ei.scode;
 
    p = code->source;
    error->cookie = code->cookie;
    error->line = code->start_line;
    for(nl = p = code->source; p < code->source + loc; p++) {
        if(*p != '\n') continue;
        error->line++;
        nl = p + 1;
    }
    error->character = code->source + loc - nl;
 
    hres = IActiveScriptSite_OnScriptError(ctx->site, &error->IActiveScriptError_iface);
    IActiveScriptError_Release(&error->IActiveScriptError_iface);
    return hres == S_OK ? SCRIPT_E_REPORTED : result;
}

Referenced by compile_error(), and exec_script().

retrieve_named_item_disp()

static HRESULT retrieve_named_item_disp ( IActiveScriptSite *  site, named_item_t *  item  )

static

Definition at line 207 of file vbscript.c.

{
    IUnknown *unk;
    HRESULT hres;
 
    hres = IActiveScriptSite_GetItemInfo(site, item->name, SCRIPTINFO_IUNKNOWN, &unk, NULL);
    if(FAILED(hres)) {
        WARN("GetItemInfo failed: %08lx\n", hres);
        return hres;
    }
 
    hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&item->disp);
    IUnknown_Release(unk);
    if(FAILED(hres)) {
        WARN("object does not implement IDispatch\n");
        return hres;
    }
 
    return S_OK;
}

Referenced by lookup_named_item(), and VBScript_SetScriptSite().

vbcaller_AddRef()

static ULONG WINAPI vbcaller_AddRef ( IServiceProvider *  iface )

static

Definition at line 396 of file vbscript.c.

{
    struct vbcaller *This = vbcaller_from_IServiceProvider(iface);
    LONG ref = InterlockedIncrement(&This->ref);
 
    TRACE("(%p) ref=%ld\n", This, ref);
 
    return ref;
}

vbcaller_from_IServiceProvider()

static struct vbcaller * vbcaller_from_IServiceProvider ( IServiceProvider *  iface )

inlinestatic

Definition at line 375 of file vbscript.c.

{
    return CONTAINING_RECORD(iface, struct vbcaller, IServiceProvider_iface);
}

Referenced by vbcaller_AddRef(), vbcaller_QueryInterface(), vbcaller_QueryService(), and vbcaller_Release().

vbcaller_QueryInterface()

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

static

Definition at line 380 of file vbscript.c.

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

vbcaller_QueryService()

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

static

Definition at line 419 of file vbscript.c.

{
    struct vbcaller *This = vbcaller_from_IServiceProvider(iface);
 
    if(IsEqualGUID(guidService, &IID_IActiveScriptSite)) {
        TRACE("(%p)->(IID_IActiveScriptSite)\n", This);
        if(This->ctx->site)
            return IActiveScriptSite_QueryInterface(This->ctx->site, riid, ppv);
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    if(IsEqualGUID(guidService, &SID_GetCaller)) {
        TRACE("(%p)->(SID_GetCaller)\n", This);
        *ppv = NULL;
        if(!This->caller)
            return S_OK;
        return (This->caller == SP_CALLER_UNINITIALIZED) ? E_NOINTERFACE : IServiceProvider_QueryInterface(This->caller, riid, ppv);
    }
 
    FIXME("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
 
    *ppv = NULL;
    return E_NOINTERFACE;
}

vbcaller_Release()

static ULONG WINAPI vbcaller_Release ( IServiceProvider *  iface )

static

Definition at line 406 of file vbscript.c.

{
    struct vbcaller *This = vbcaller_from_IServiceProvider(iface);
    LONG ref = InterlockedDecrement(&This->ref);
 
    TRACE("(%p) ref=%ld\n", This, ref);
 
    if(!ref)
        free(This);
 
    return ref;
}

VBScript_AddNamedItem()

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

static

Definition at line 786 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScript(iface);
    named_item_t *item;
    IDispatch *disp = NULL;
    HRESULT hres;
 
    TRACE("(%p)->(%s %lx)\n", This, debugstr_w(pstrName), dwFlags);
 
    if(This->thread_id != GetCurrentThreadId() || !This->ctx->site)
        return E_UNEXPECTED;
 
    if(dwFlags & SCRIPTITEM_GLOBALMEMBERS) {
        IUnknown *unk;
 
        hres = IActiveScriptSite_GetItemInfo(This->ctx->site, pstrName, SCRIPTINFO_IUNKNOWN, &unk, NULL);
        if(FAILED(hres)) {
            WARN("GetItemInfo failed: %08lx\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;
        }
    }
 
    item = malloc(sizeof(*item));
    if(!item) {
        if(disp)
            IDispatch_Release(disp);
        return E_OUTOFMEMORY;
    }
 
    item->ref = 1;
    item->disp = disp;
    item->flags = dwFlags;
    item->script_obj = NULL;
    item->name = wcsdup(pstrName);
    if(!item->name) {
        if(disp)
            IDispatch_Release(disp);
        free(item);
        return E_OUTOFMEMORY;
    }
 
    list_add_tail(&This->ctx->named_items, &item->entry);
    return S_OK;
}

VBScript_AddRef()

static ULONG WINAPI VBScript_AddRef ( IActiveScript *  iface )

static

Definition at line 625 of file vbscript.c.

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

VBScript_AddTypeLib()

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

static

Definition at line 838 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScript(iface);
    FIXME("(%p)->(%s %ld %ld %ld)\n", This, debugstr_guid(rguidTypeLib), dwMajor, dwMinor, dwFlags);
    return E_NOTIMPL;
}

VBScript_Clone()

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

static

Definition at line 905 of file vbscript.c.

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

VBScript_Close()

static HRESULT WINAPI VBScript_Close ( IActiveScript *  iface )

static

Definition at line 773 of file vbscript.c.

{
    VBScript *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;
}

VBScript_GetCurrentScriptThreadID()

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

static

Definition at line 873 of file vbscript.c.

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

VBScript_GetScriptDispatch()

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

static

Definition at line 846 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScript(iface);
    ScriptDisp *script_obj;
 
    TRACE("(%p)->(%s %p)\n", This, debugstr_w(pstrItemName), ppdisp);
 
    if(!ppdisp)
        return E_POINTER;
 
    if(This->thread_id != GetCurrentThreadId() || !This->ctx->script_obj) {
        *ppdisp = NULL;
        return E_UNEXPECTED;
    }
 
    script_obj = This->ctx->script_obj;
    if(pstrItemName) {
        named_item_t *item = lookup_named_item(This->ctx, pstrItemName, 0);
        if(!item) return E_INVALIDARG;
        if(item->script_obj) script_obj = item->script_obj;
    }
 
    *ppdisp = (IDispatch*)&script_obj->IDispatchEx_iface;
    IDispatch_AddRef(*ppdisp);
    return S_OK;
}

VBScript_GetScriptSite()

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

static

Definition at line 703 of file vbscript.c.

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

VBScript_GetScriptState()

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

static

Definition at line 757 of file vbscript.c.

{
    VBScript *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->state;
    return S_OK;
}

VBScript_GetScriptThreadID()

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

static

Definition at line 881 of file vbscript.c.

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

VBScript_GetScriptThreadState()

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

static

Definition at line 889 of file vbscript.c.

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

VBScript_InterruptScriptThread()

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

static

Definition at line 897 of file vbscript.c.

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

VBScript_QueryInterface()

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

static

Definition at line 593 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScript(iface);
 
    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_IActiveScriptDebug)) {
        TRACE("(%p)->(IID_IActiveScriptDebug %p)\n", This, ppv);
        *ppv = &This->IActiveScriptDebug_iface;
    }else if(IsEqualGUID(riid, &IID_IActiveScriptParse)) {
        TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This, ppv);
        *ppv = &This->IActiveScriptParse_iface;
    }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure2)) {
        TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This, ppv);
        *ppv = &This->IActiveScriptParseProcedure2_iface;
    }else if(IsEqualGUID(riid, &IID_IObjectSafety)) {
        TRACE("(%p)->(IID_IObjectSafety %p)\n", This, ppv);
        *ppv = &This->IObjectSafety_iface;
    }else {
        WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    IUnknown_AddRef((IUnknown*)*ppv);
    return S_OK;
}

VBScript_Release()

static ULONG WINAPI VBScript_Release ( IActiveScript *  iface )

static

Definition at line 635 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScript(iface);
    LONG ref = InterlockedDecrement(&This->ref);
 
    TRACE("(%p) ref=%ld\n", iface, ref);
 
    if(!ref) {
        decrease_state(This, SCRIPTSTATE_CLOSED);
        detach_global_objects(This->ctx);
        IServiceProvider_Release(&This->ctx->vbcaller->IServiceProvider_iface);
        free(This->ctx);
        free(This);
    }
 
    return ref;
}

VBScript_SetScriptSite()

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

static

Definition at line 653 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScript(iface);
    LCID lcid = LOCALE_USER_DEFAULT;
    named_item_t *item;
    HRESULT hres;
 
    TRACE("(%p)->(%p)\n", This, pass);
 
    if(!pass)
        return E_POINTER;
 
    if(This->ctx->site)
        return E_UNEXPECTED;
 
    if(InterlockedCompareExchange(&This->thread_id, GetCurrentThreadId(), 0))
        return E_UNEXPECTED;
 
    /* Retrieve new dispatches for persistent named items */
    LIST_FOR_EACH_ENTRY(item, &This->ctx->named_items, named_item_t, entry)
    {
        if(!item->disp)
        {
            hres = retrieve_named_item_disp(pass, item);
            if(FAILED(hres)) return hres;
        }
 
        /* For some reason, CODEONLY flag is lost in re-initialized scripts */
        item->flags &= ~SCRIPTITEM_CODEONLY;
    }
 
    hres = create_script_disp(This->ctx, &This->ctx->script_obj);
    if(FAILED(hres))
        return hres;
 
    This->ctx->site = pass;
    IActiveScriptSite_AddRef(This->ctx->site);
 
    IActiveScriptSite_GetLCID(This->ctx->site, &lcid);
    This->ctx->lcid = IsValidLocale(lcid, 0) ? lcid : GetUserDefaultLCID();
    GetLocaleInfoW(lcid, LOCALE_IDEFAULTANSICODEPAGE | LOCALE_RETURN_NUMBER, (WCHAR *)&This->ctx->codepage,
            sizeof(This->ctx->codepage)/sizeof(WCHAR));
    if (!This->ctx->codepage)
        This->ctx->codepage = CP_UTF8;
 
    if(This->is_initialized)
        change_state(This, SCRIPTSTATE_INITIALIZED);
    return S_OK;
}

VBScript_SetScriptState()

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

static

Definition at line 711 of file vbscript.c.

{
    VBScript *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->state == SCRIPTSTATE_CLOSED)
            return E_UNEXPECTED;
 
        decrease_state(This, SCRIPTSTATE_UNINITIALIZED);
        return S_OK;
    }
 
    if(!This->is_initialized || (!This->ctx->site && ss != SCRIPTSTATE_CLOSED))
        return E_UNEXPECTED;
 
    switch(ss) {
    case SCRIPTSTATE_STARTED:
    case SCRIPTSTATE_CONNECTED: /* FIXME */
        if(This->state == SCRIPTSTATE_CLOSED)
            return E_UNEXPECTED;
 
        exec_queued_code(This->ctx);
        break;
    case SCRIPTSTATE_INITIALIZED:
        decrease_state(This, SCRIPTSTATE_INITIALIZED);
        return S_OK;
    case SCRIPTSTATE_CLOSED:
        decrease_state(This, SCRIPTSTATE_CLOSED);
        return S_OK;
    case SCRIPTSTATE_DISCONNECTED:
        FIXME("unimplemented SCRIPTSTATE_DISCONNECTED\n");
        return S_OK;
    default:
        FIXME("unimplemented state %d\n", ss);
        return E_NOTIMPL;
    }
 
    change_state(This, ss);
    return S_OK;
}

VBScriptDebug_AddRef()

static ULONG WINAPI VBScriptDebug_AddRef ( IActiveScriptDebug *  iface )

static

Definition at line 942 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScriptDebug(iface);
    return IActiveScript_AddRef(&This->IActiveScript_iface);
}

VBScriptDebug_EnumCodeContextsOfPosition()

static HRESULT WINAPI VBScriptDebug_EnumCodeContextsOfPosition ( IActiveScriptDebug *  iface, CTXARG_T  source, ULONG  offset, ULONG  len, IEnumDebugCodeContexts **  ret  )

static

Definition at line 972 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScriptDebug(iface);
    FIXME("(%p)->(%s %lu %lu %p)\n", This, wine_dbgstr_longlong(source), offset, len, ret);
    return E_NOTIMPL;
}

VBScriptDebug_GetScriptletTextAttributes()

static HRESULT WINAPI VBScriptDebug_GetScriptletTextAttributes ( IActiveScriptDebug *  iface, LPCOLESTR  code, ULONG  len, LPCOLESTR  delimiter, DWORD  flags, SOURCE_TEXT_ATTR *  attr  )

static

Definition at line 963 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScriptDebug(iface);
    FIXME("(%p)->(%s %lu %s %#lx %p)\n", This, debugstr_w(code), len,
          debugstr_w(delimiter), flags, attr);
    return E_NOTIMPL;
}

VBScriptDebug_GetScriptTextAttributes()

static HRESULT WINAPI VBScriptDebug_GetScriptTextAttributes ( IActiveScriptDebug *  iface, LPCOLESTR  code, ULONG  len, LPCOLESTR  delimiter, DWORD  flags, SOURCE_TEXT_ATTR *  attr  )

static

Definition at line 954 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScriptDebug(iface);
    FIXME("(%p)->(%s %lu %s %#lx %p)\n", This, debugstr_w(code), len,
          debugstr_w(delimiter), flags, attr);
    return E_NOTIMPL;
}

VBScriptDebug_QueryInterface()

static HRESULT WINAPI VBScriptDebug_QueryInterface ( IActiveScriptDebug *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 936 of file vbscript.c.

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

VBScriptDebug_Release()

static ULONG WINAPI VBScriptDebug_Release ( IActiveScriptDebug *  iface )

static

Definition at line 948 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScriptDebug(iface);
    return IActiveScript_Release(&This->IActiveScript_iface);
}

VBScriptError_AddRef()

static ULONG WINAPI VBScriptError_AddRef ( IActiveScriptError *  iface )

static

Definition at line 491 of file vbscript.c.

{
    VBScriptError *This = impl_from_IActiveScriptError(iface);
    LONG ref = InterlockedIncrement(&This->ref);
 
    TRACE("(%p) ref=%ld\n", This, ref);
 
    return ref;
}

VBScriptError_GetExceptionInfo()

static HRESULT WINAPI VBScriptError_GetExceptionInfo ( IActiveScriptError *  iface, EXCEPINFO *  excepinfo  )

static

Definition at line 514 of file vbscript.c.

{
    VBScriptError *This = impl_from_IActiveScriptError(iface);
 
    TRACE("(%p)->(%p)\n", This, excepinfo);
 
    *excepinfo = This->ei;
    excepinfo->bstrSource = SysAllocString(This->ei.bstrSource);
    excepinfo->bstrDescription = SysAllocString(This->ei.bstrDescription);
    excepinfo->bstrHelpFile = SysAllocString(This->ei.bstrHelpFile);
    return S_OK;
}

VBScriptError_GetSourceLineText()

static HRESULT WINAPI VBScriptError_GetSourceLineText ( IActiveScriptError *  iface, BSTR *  source  )

static

Definition at line 542 of file vbscript.c.

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

VBScriptError_GetSourcePosition()

static HRESULT WINAPI VBScriptError_GetSourcePosition ( IActiveScriptError *  iface, DWORD *  source_context, ULONG *  line, LONG *  character  )

static

Definition at line 527 of file vbscript.c.

{
    VBScriptError *This = impl_from_IActiveScriptError(iface);
 
    TRACE("(%p)->(%p %p %p)\n", This, source_context, line, character);
 
    if(source_context)
        *source_context = This->cookie;
    if(line)
        *line = This->line;
    if(character)
        *character = This->character;
    return S_OK;
}

VBScriptError_QueryInterface()

static HRESULT WINAPI VBScriptError_QueryInterface ( IActiveScriptError *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 471 of file vbscript.c.

{
    VBScriptError *This = impl_from_IActiveScriptError(iface);
 
    if(IsEqualGUID(riid, &IID_IUnknown)) {
        TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
        *ppv = &This->IActiveScriptError_iface;
    }else if(IsEqualGUID(riid, &IID_IActiveScriptError)) {
        TRACE("(%p)->(IID_IActiveScriptError %p)\n", This, ppv);
        *ppv = &This->IActiveScriptError_iface;
    }else {
        FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    IUnknown_AddRef((IUnknown*)*ppv);
    return S_OK;
}

VBScriptError_Release()

static ULONG WINAPI VBScriptError_Release ( IActiveScriptError *  iface )

static

Definition at line 501 of file vbscript.c.

{
    VBScriptError *This = impl_from_IActiveScriptError(iface);
    LONG ref = InterlockedDecrement(&This->ref);
 
    TRACE("(%p) ref=%ld\n", This, ref);
 
    if(!ref)
        free(This);
 
    return ref;
}

VBScriptFactory_CreateInstance()

HRESULT WINAPI VBScriptFactory_CreateInstance	(	IClassFactory *	iface,
		IUnknown *	pUnkOuter,
		REFIID	riid,
		void **	ppv
	)

Definition at line 1201 of file vbscript.c.

{
    struct vbcaller *vbcaller;
    script_ctx_t *ctx;
    VBScript *ret;
    HRESULT hres;
 
    TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppv);
 
    ret = calloc(1, sizeof(*ret));
    if(!ret)
        return E_OUTOFMEMORY;
 
    if(!(vbcaller = create_vbcaller())) {
        free(ret);
        return E_OUTOFMEMORY;
    }
 
    ret->IActiveScript_iface.lpVtbl = &VBScriptVtbl;
    ret->IActiveScriptDebug_iface.lpVtbl = &VBScriptDebugVtbl;
    ret->IActiveScriptParse_iface.lpVtbl = &VBScriptParseVtbl;
    ret->IActiveScriptParseProcedure2_iface.lpVtbl = &VBScriptParseProcedureVtbl;
    ret->IObjectSafety_iface.lpVtbl = &VBScriptSafetyVtbl;
 
    ret->ref = 1;
    ret->state = SCRIPTSTATE_UNINITIALIZED;
 
    ctx = ret->ctx = calloc(1, sizeof(*ctx));
    if(!ctx) {
        IServiceProvider_Release(&vbcaller->IServiceProvider_iface);
        free(ret);
        return E_OUTOFMEMORY;
    }
 
    vbcaller->ctx = ctx;
    ctx->vbcaller = vbcaller;
    ctx->safeopt = INTERFACE_USES_DISPEX;
    list_init(&ctx->objects);
    list_init(&ctx->code_list);
    list_init(&ctx->named_items);
 
    hres = init_global(ctx);
    if(FAILED(hres)) {
        IActiveScript_Release(&ret->IActiveScript_iface);
        return hres;
    }
 
    hres = IActiveScript_QueryInterface(&ret->IActiveScript_iface, riid, ppv);
    IActiveScript_Release(&ret->IActiveScript_iface);
    return hres;
}

VBScriptParse_AddRef()

static ULONG WINAPI VBScriptParse_AddRef ( IActiveScriptParse *  iface )

static

Definition at line 1000 of file vbscript.c.

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

VBScriptParse_AddScriptlet()

static HRESULT WINAPI VBScriptParse_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 1027 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScriptParse(iface);
    FIXME("(%p)->(%s %s %s %s %s %s %s %lu %lx %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;
}

VBScriptParse_InitNew()

static HRESULT WINAPI VBScriptParse_InitNew ( IActiveScriptParse *  iface )

static

Definition at line 1012 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScriptParse(iface);
 
    TRACE("(%p)\n", This);
 
    if(This->is_initialized)
        return E_UNEXPECTED;
    This->is_initialized = TRUE;
 
    if(This->ctx->site)
        change_state(This, SCRIPTSTATE_INITIALIZED);
    return S_OK;
}

VBScriptParse_ParseScriptText()

static HRESULT WINAPI VBScriptParse_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 1041 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScriptParse(iface);
    vbscode_t *code;
    HRESULT hres;
 
    TRACE("(%p)->(%s %s %p %s %s %lu %lx %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->state == SCRIPTSTATE_CLOSED)
        return E_UNEXPECTED;
 
    hres = compile_script(This->ctx, pstrCode, pstrItemName, pstrDelimiter, dwSourceContextCookie,
                          ulStartingLine, dwFlags, &code);
    if(FAILED(hres))
        return hres;
 
    if(!(dwFlags & SCRIPTTEXT_ISEXPRESSION) && !is_started(This)) {
        code->pending_exec = TRUE;
        return S_OK;
    }
 
    return exec_global_code(This->ctx, code, pvarResult);
}

VBScriptParse_QueryInterface()

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

static

Definition at line 994 of file vbscript.c.

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

VBScriptParse_Release()

static ULONG WINAPI VBScriptParse_Release ( IActiveScriptParse *  iface )

static

Definition at line 1006 of file vbscript.c.

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

VBScriptParseProcedure_AddRef()

static ULONG WINAPI VBScriptParseProcedure_AddRef ( IActiveScriptParseProcedure2 *  iface )

static

Definition at line 1090 of file vbscript.c.

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

VBScriptParseProcedure_ParseProcedureText()

static HRESULT WINAPI VBScriptParseProcedure_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 1102 of file vbscript.c.

{
    VBScript *This = impl_from_IActiveScriptParseProcedure2(iface);
    class_desc_t *desc;
    vbdisp_t *vbdisp;
    HRESULT hres;
 
    TRACE("(%p)->(%s %s %s %s %p %s %s %lu %lx %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->state == SCRIPTSTATE_CLOSED)
        return E_UNEXPECTED;
 
    hres = compile_procedure(This->ctx, pstrCode, pstrItemName, pstrDelimiter, dwSourceContextCookie,
                             ulStartingLineNumber, dwFlags, &desc);
    if(FAILED(hres))
        return hres;
 
    hres = create_vbdisp(desc, &vbdisp);
    if(FAILED(hres))
        return hres;
 
    *ppdisp = (IDispatch*)&vbdisp->IDispatchEx_iface;
    return S_OK;
}

VBScriptParseProcedure_QueryInterface()

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

static

Definition at line 1084 of file vbscript.c.

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

VBScriptParseProcedure_Release()

static ULONG WINAPI VBScriptParseProcedure_Release ( IActiveScriptParseProcedure2 *  iface )

static

Definition at line 1096 of file vbscript.c.

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

VBScriptSafety_AddRef()

static ULONG WINAPI VBScriptSafety_AddRef ( IObjectSafety *  iface )

static

Definition at line 1150 of file vbscript.c.

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

VBScriptSafety_GetInterfaceSafetyOptions()

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

static

Definition at line 1164 of file vbscript.c.

{
    VBScript *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->ctx->safeopt;
    return S_OK;
}

VBScriptSafety_QueryInterface()

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

static

Definition at line 1144 of file vbscript.c.

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

VBScriptSafety_Release()

static ULONG WINAPI VBScriptSafety_Release ( IObjectSafety *  iface )

static

Definition at line 1156 of file vbscript.c.

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

VBScriptSafety_SetInterfaceSafetyOptions()

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

static

Definition at line 1179 of file vbscript.c.

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

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

vbscript

)

Variable Documentation

AXSiteVtbl

IServiceProviderVtbl AXSiteVtbl

static

Initial value:

= {
    AXSite_QueryInterface,
    AXSite_AddRef,
    AXSite_Release,
    AXSite_QueryService
}

Definition at line 1319 of file vbscript.c.

Referenced by create_ax_site().

ServiceProviderVtbl

const IServiceProviderVtbl ServiceProviderVtbl

static

Initial value:

= {
    vbcaller_QueryInterface,
    vbcaller_AddRef,
    vbcaller_Release,
    vbcaller_QueryService
}

Definition at line 446 of file vbscript.c.

Referenced by create_vbcaller().

VBScriptDebugVtbl

const IActiveScriptDebugVtbl VBScriptDebugVtbl

static

Initial value:

= {
    VBScriptDebug_QueryInterface,
    VBScriptDebug_AddRef,
    VBScriptDebug_Release,
    VBScriptDebug_GetScriptTextAttributes,
    VBScriptDebug_GetScriptletTextAttributes,
    VBScriptDebug_EnumCodeContextsOfPosition,
}

Definition at line 980 of file vbscript.c.

Referenced by VBScriptFactory_CreateInstance().

VBScriptErrorVtbl

const IActiveScriptErrorVtbl VBScriptErrorVtbl

static

Initial value:

= {
    VBScriptError_QueryInterface,
    VBScriptError_AddRef,
    VBScriptError_Release,
    VBScriptError_GetExceptionInfo,
    VBScriptError_GetSourcePosition,
    VBScriptError_GetSourceLineText
}

Definition at line 549 of file vbscript.c.

Referenced by report_script_error().

VBScriptParseProcedureVtbl

const IActiveScriptParseProcedure2Vtbl VBScriptParseProcedureVtbl

static

Initial value:

= {
    VBScriptParseProcedure_QueryInterface,
    VBScriptParseProcedure_AddRef,
    VBScriptParseProcedure_Release,
    VBScriptParseProcedure_ParseProcedureText,
}

Definition at line 1132 of file vbscript.c.

Referenced by VBScriptFactory_CreateInstance().

VBScriptParseVtbl

const IActiveScriptParseVtbl VBScriptParseVtbl

static

Initial value:

= {
    VBScriptParse_QueryInterface,
    VBScriptParse_AddRef,
    VBScriptParse_Release,
    VBScriptParse_InitNew,
    VBScriptParse_AddScriptlet,
    VBScriptParse_ParseScriptText
}

Definition at line 1070 of file vbscript.c.

Referenced by VBScriptFactory_CreateInstance().

VBScriptSafetyVtbl

const IObjectSafetyVtbl VBScriptSafetyVtbl

static

Initial value:

= {
    VBScriptSafety_QueryInterface,
    VBScriptSafety_AddRef,
    VBScriptSafety_Release,
    VBScriptSafety_GetInterfaceSafetyOptions,
    VBScriptSafety_SetInterfaceSafetyOptions
}

Definition at line 1193 of file vbscript.c.

Referenced by VBScriptFactory_CreateInstance().

VBScriptVtbl

const IActiveScriptVtbl VBScriptVtbl

static

Initial value:

= {
    VBScript_QueryInterface,
    VBScript_AddRef,
    VBScript_Release,
    VBScript_SetScriptSite,
    VBScript_GetScriptSite,
    VBScript_SetScriptState,
    VBScript_GetScriptState,
    VBScript_Close,
    VBScript_AddNamedItem,
    VBScript_AddTypeLib,
    VBScript_GetScriptDispatch,
    VBScript_GetCurrentScriptThreadID,
    VBScript_GetScriptThreadID,
    VBScript_GetScriptThreadState,
    VBScript_InterruptScriptThread,
    VBScript_Clone
}

Definition at line 912 of file vbscript.c.

Referenced by VBScriptFactory_CreateInstance().