run.c File Reference

#include <stdio.h>
#include <initguid.h>
#include <windows.h>
#include <psapi.h>
#include <oaidl.h>
#include "wine/test.h"

Include dependency graph for run.c:

Go to the source code of this file.

Macros
#define	COBJMACROS
#define	CONST_VTABLE
#define	PSAPI_VERSION   1
#define	DEFINE_EXPECT(func)    static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
#define	SET_EXPECT(func)    expect_ ## func = TRUE
#define	CLEAR_CALLED(func)    expect_ ## func = called_ ## func = FALSE
#define	CHECK_EXPECT2(func)
#define	CHECK_EXPECT(func)
#define	CHECK_CALLED(func)
#define	DISPID_TESTOBJ_OK   10000
#define	DISPID_TESTOBJ_TRACE   10001
#define	DISPID_TESTOBJ_REPORTSUCCESS   10002
#define	DISPID_TESTOBJ_WSCRIPTFULLNAME   10003
#define	DISPID_TESTOBJ_WSCRIPTPATH   10004
#define	DISPID_TESTOBJ_WSCRIPTSCRIPTNAME   10005
#define	DISPID_TESTOBJ_WSCRIPTSCRIPTFULLNAME   10006
#define	TESTOBJ_CLSID   "{178fc166-f585-4e24-9c13-4bb7faf80646}"

Functions
	DEFINE_EXPECT (reportSuccess)
static int	strcmp_wa (LPCWSTR strw, const char *stra)
static const WCHAR *	mystrrchr (const WCHAR *str, WCHAR ch)
static BSTR	a2bstr (const char *str)
static HRESULT WINAPI	Dispatch_QueryInterface (IDispatch *iface, REFIID riid, void **ppv)
static ULONG WINAPI	Dispatch_AddRef (IDispatch *iface)
static ULONG WINAPI	Dispatch_Release (IDispatch *iface)
static HRESULT WINAPI	Dispatch_GetTypeInfoCount (IDispatch *iface, UINT *pctinfo)
static HRESULT WINAPI	Dispatch_GetTypeInfo (IDispatch *iface, UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
static HRESULT WINAPI	Dispatch_GetIDsOfNames (IDispatch *iface, REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
static HRESULT WINAPI	Dispatch_Invoke (IDispatch *iface, DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pdp, VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
static HRESULT WINAPI	ClassFactory_QueryInterface (IClassFactory *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ClassFactory_AddRef (IClassFactory *iface)
static ULONG WINAPI	ClassFactory_Release (IClassFactory *iface)
static HRESULT WINAPI	ClassFactory_CreateInstance (IClassFactory *iface, IUnknown *outer, REFIID riid, void **ppv)
static HRESULT WINAPI	ClassFactory_LockServer (IClassFactory *iface, BOOL dolock)
static void	run_script_file (const char *file_name, DWORD expected_exit_code)
static void	run_script (const char *name, const char *script_data, size_t script_size, DWORD expected_exit_code)
static void	run_simple_script (const char *script, DWORD expected_exit_code)
static BOOL WINAPI	test_enum_proc (HMODULE module, LPCSTR type, LPSTR name, LONG_PTR param)
static BOOL	init_key (const char *key_name, const char *def_value, BOOL init)
static BOOL	init_registry (BOOL init)
static BOOL	register_activex (void)
	START_TEST (run)

Variables
static const GUID	CLSID_TestObj
static const char *	script_name
static HANDLE	wscript_process
static IDispatchVtbl	testobj_vtbl
static IDispatch	testobj = { &testobj_vtbl }
static const IClassFactoryVtbl	ClassFactoryVtbl
static IClassFactory	testobj_cf = { &ClassFactoryVtbl }

Macro Definition Documentation

CHECK_CALLED

#define CHECK_CALLED

(

func

)

Value:

    do { \
        ok(called_ ## func, "expected " #func "\n"); \
        expect_ ## func = called_ ## func = FALSE; \
    }while(0)

Definition at line 53 of file run.c.

CHECK_EXPECT

#define CHECK_EXPECT

(

func

)

Value:

    do { \
        CHECK_EXPECT2(func); \
        expect_ ## func = FALSE; \
    }while(0)

Definition at line 47 of file run.c.

CHECK_EXPECT2

#define CHECK_EXPECT2

(

func

)

Value:

    do { \
        ok(expect_ ##func, "unexpected call " #func "\n"); \
        called_ ## func = TRUE; \
    }while(0)

Definition at line 41 of file run.c.

CLEAR_CALLED

#define CLEAR_CALLED

(

func

)

expect_ ## func = called_ ## func = FALSE

Definition at line 38 of file run.c.

COBJMACROS

#define COBJMACROS

Definition at line 21 of file run.c.

CONST_VTABLE

#define CONST_VTABLE

Definition at line 22 of file run.c.

DEFINE_EXPECT

#define DEFINE_EXPECT

(

func

)

static BOOL expect_ ## func = FALSE, called_ ## func = FALSE

Definition at line 32 of file run.c.

DISPID_TESTOBJ_OK

#define DISPID_TESTOBJ_OK   10000

Definition at line 61 of file run.c.

DISPID_TESTOBJ_REPORTSUCCESS

#define DISPID_TESTOBJ_REPORTSUCCESS   10002

Definition at line 63 of file run.c.

DISPID_TESTOBJ_TRACE

#define DISPID_TESTOBJ_TRACE   10001

Definition at line 62 of file run.c.

DISPID_TESTOBJ_WSCRIPTFULLNAME

#define DISPID_TESTOBJ_WSCRIPTFULLNAME   10003

Definition at line 64 of file run.c.

DISPID_TESTOBJ_WSCRIPTPATH

#define DISPID_TESTOBJ_WSCRIPTPATH   10004

Definition at line 65 of file run.c.

DISPID_TESTOBJ_WSCRIPTSCRIPTFULLNAME

#define DISPID_TESTOBJ_WSCRIPTSCRIPTFULLNAME   10006

Definition at line 67 of file run.c.

DISPID_TESTOBJ_WSCRIPTSCRIPTNAME

#define DISPID_TESTOBJ_WSCRIPTSCRIPTNAME   10005

Definition at line 66 of file run.c.

PSAPI_VERSION

#define PSAPI_VERSION   1

Definition at line 24 of file run.c.

SET_EXPECT

#define SET_EXPECT

(

func

)

expect_ ## func = TRUE

Definition at line 35 of file run.c.

TESTOBJ_CLSID

#define TESTOBJ_CLSID   "{178fc166-f585-4e24-9c13-4bb7faf80646}"

Definition at line 69 of file run.c.

Function Documentation

a2bstr()

static BSTR a2bstr ( const char *  str )

static

Definition at line 95 of file run.c.

{
    BSTR ret;
    int len;
 
    len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
    ret = SysAllocStringLen(NULL, len-1);
    MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
 
    return ret;
}

ClassFactory_AddRef()

static ULONG WINAPI ClassFactory_AddRef ( IClassFactory *  iface )

static

Definition at line 312 of file run.c.

{
    return 2;
}

ClassFactory_CreateInstance()

static HRESULT WINAPI ClassFactory_CreateInstance ( IClassFactory *  iface, IUnknown *  outer, REFIID  riid, void **  ppv  )

static

Definition at line 322 of file run.c.

{
    ok(!outer, "outer = %p\n", outer);
    return IDispatch_QueryInterface(&testobj, riid, ppv);
}

ClassFactory_LockServer()

static HRESULT WINAPI ClassFactory_LockServer ( IClassFactory *  iface, BOOL  dolock  )

static

Definition at line 328 of file run.c.

{
    return S_OK;
}

ClassFactory_QueryInterface()

static HRESULT WINAPI ClassFactory_QueryInterface ( IClassFactory *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 301 of file run.c.

{
    if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IClassFactory, riid)) {
        *ppv = iface;
        return S_OK;
    }
 
    *ppv = NULL;
    return E_NOINTERFACE;
}

ClassFactory_Release()

static ULONG WINAPI ClassFactory_Release ( IClassFactory *  iface )

static

Definition at line 317 of file run.c.

{
    return 1;
}

DEFINE_EXPECT()

DEFINE_EXPECT

(

reportSuccess

)

Dispatch_AddRef()

static ULONG WINAPI Dispatch_AddRef ( IDispatch *  iface )

static

Definition at line 118 of file run.c.

{
    return 2;
}

Dispatch_GetIDsOfNames()

static HRESULT WINAPI Dispatch_GetIDsOfNames ( IDispatch *  iface, REFIID  riid, LPOLESTR *  rgszNames, UINT  cNames, LCID  lcid, DISPID *  rgDispId  )

static

Definition at line 141 of file run.c.

{
    unsigned i;
 
    for(i=0; i<cNames; i++) {
        if(!strcmp_wa(rgszNames[i], "ok")) {
            rgDispId[i] = DISPID_TESTOBJ_OK;
        }else if(!strcmp_wa(rgszNames[i], "trace")) {
            rgDispId[i] = DISPID_TESTOBJ_TRACE;
        }else if(!strcmp_wa(rgszNames[i], "reportSuccess")) {
            rgDispId[i] = DISPID_TESTOBJ_REPORTSUCCESS;
        }else if(!strcmp_wa(rgszNames[i], "wscriptFullName")) {
            rgDispId[i] = DISPID_TESTOBJ_WSCRIPTFULLNAME;
        }else if(!strcmp_wa(rgszNames[i], "wscriptPath")) {
            rgDispId[i] = DISPID_TESTOBJ_WSCRIPTPATH;
        }else if(!strcmp_wa(rgszNames[i], "wscriptScriptName")) {
            rgDispId[i] = DISPID_TESTOBJ_WSCRIPTSCRIPTNAME;
        }else if(!strcmp_wa(rgszNames[i], "wscriptScriptFullName")) {
            rgDispId[i] = DISPID_TESTOBJ_WSCRIPTSCRIPTFULLNAME;
        }else {
            ok(0, "unexpected name %s\n", wine_dbgstr_w(rgszNames[i]));
            return DISP_E_UNKNOWNNAME;
        }
    }
 
    return S_OK;
}

Dispatch_GetTypeInfo()

static HRESULT WINAPI Dispatch_GetTypeInfo ( IDispatch *  iface, UINT  iTInfo, LCID  lcid, ITypeInfo **  ppTInfo  )

static

Definition at line 134 of file run.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

Dispatch_GetTypeInfoCount()

static HRESULT WINAPI Dispatch_GetTypeInfoCount ( IDispatch *  iface, UINT *  pctinfo  )

static

Definition at line 128 of file run.c.

{
    ok(0, "unexpected call\n");
    return E_NOTIMPL;
}

Dispatch_Invoke()

static HRESULT WINAPI Dispatch_Invoke ( IDispatch *  iface, DISPID  dispIdMember, REFIID  riid, LCID  lcid, WORD  wFlags, DISPPARAMS *  pdp, VARIANT *  pVarResult, EXCEPINFO *  pExcepInfo, UINT *  puArgErr  )

static

Definition at line 170 of file run.c.

{
    switch(dispIdMember) {
    case DISPID_TESTOBJ_OK: {
        VARIANT *expr, *msg;
 
        ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
        ok(pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
 
        expr = pdp->rgvarg+1;
        if(V_VT(expr) == (VT_VARIANT|VT_BYREF))
            expr = V_VARIANTREF(expr);
 
        msg = pdp->rgvarg;
        if(V_VT(msg) == (VT_VARIANT|VT_BYREF))
            msg = V_VARIANTREF(msg);
 
        ok(V_VT(msg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(msg));
        ok(V_VT(expr) == VT_BOOL, "V_VT(psp->rgvargs+1) = %d\n", V_VT(expr));
        ok(V_BOOL(expr), "%s: %s\n", script_name, wine_dbgstr_w(V_BSTR(msg)));
        if(pVarResult)
            V_VT(pVarResult) = VT_EMPTY;
        break;
    }
    case DISPID_TESTOBJ_TRACE:
        ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
        ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        ok(V_VT(pdp->rgvarg) == VT_BSTR, "V_VT(psp->rgvargs) = %d\n", V_VT(pdp->rgvarg));
        trace("%s: %s\n", script_name, wine_dbgstr_w(V_BSTR(pdp->rgvarg)));
        if(pVarResult)
            V_VT(pVarResult) = VT_EMPTY;
        break;
    case DISPID_TESTOBJ_REPORTSUCCESS:
        CHECK_EXPECT(reportSuccess);
 
        ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
        ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        if(pVarResult)
            V_VT(pVarResult) = VT_EMPTY;
        break;
    case DISPID_TESTOBJ_WSCRIPTFULLNAME:
    {
        WCHAR fullName[MAX_PATH];
        DWORD res;
 
        ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
        ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        V_VT(pVarResult) = VT_BSTR;
        res = GetModuleFileNameExW(wscript_process, NULL, fullName, ARRAY_SIZE(fullName));
        if(res == 0)
            return E_FAIL;
        if(!(V_BSTR(pVarResult) = SysAllocString(fullName)))
            return E_OUTOFMEMORY;
        break;
    }
    case DISPID_TESTOBJ_WSCRIPTPATH:
    {
        WCHAR fullPath[MAX_PATH];
        DWORD res;
        const WCHAR *pos;
 
        ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
        ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        V_VT(pVarResult) = VT_BSTR;
        res = GetModuleFileNameExW(wscript_process, NULL, fullPath, ARRAY_SIZE(fullPath));
        if(res == 0)
            return E_FAIL;
        pos = mystrrchr(fullPath, '\\');
        if(!(V_BSTR(pVarResult) = SysAllocStringLen(fullPath, pos-fullPath)))
            return E_OUTOFMEMORY;
        break;
    }
    case DISPID_TESTOBJ_WSCRIPTSCRIPTNAME:
    {
        char fullPath[MAX_PATH];
        char *pos;
        long res;
 
        ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
        ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        V_VT(pVarResult) = VT_BSTR;
        res = GetFullPathNameA(script_name, sizeof(fullPath), fullPath, &pos);
        if(!res || res > sizeof(fullPath))
            return E_FAIL;
        if(!(V_BSTR(pVarResult) = a2bstr(pos)))
            return E_OUTOFMEMORY;
        break;
    }
    case DISPID_TESTOBJ_WSCRIPTSCRIPTFULLNAME:
    {
        char fullPath[MAX_PATH];
        long res;
 
        ok(wFlags == INVOKE_PROPERTYGET, "wFlags = %x\n", wFlags);
        ok(pdp->cArgs == 0, "cArgs = %d\n", pdp->cArgs);
        ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
        V_VT(pVarResult) = VT_BSTR;
        res = GetFullPathNameA(script_name, sizeof(fullPath), fullPath, NULL);
        if(!res || res > sizeof(fullPath))
            return E_FAIL;
        if(!(V_BSTR(pVarResult) = a2bstr(fullPath)))
            return E_OUTOFMEMORY;
        break;
    }
    default:
        ok(0, "unexpected dispIdMember %d\n", dispIdMember);
        return E_NOTIMPL;
    }
 
    return S_OK;
}

Dispatch_QueryInterface()

static HRESULT WINAPI Dispatch_QueryInterface ( IDispatch *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 107 of file run.c.

{
    if(IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_IDispatch)) {
        *ppv = iface;
    return S_OK;
    }
 
    *ppv = NULL;
    return E_NOINTERFACE;
}

Dispatch_Release()

static ULONG WINAPI Dispatch_Release ( IDispatch *  iface )

static

Definition at line 123 of file run.c.

{
    return 1;
}

init_key()

static BOOL init_key ( const char *  key_name, const char *  def_value, BOOL  init  )

static

Definition at line 435 of file run.c.

{
    HKEY hkey;
    DWORD res;
 
    if(!init) {
        RegDeleteKeyA(HKEY_CLASSES_ROOT, key_name);
        return TRUE;
    }
 
    res = RegCreateKeyA(HKEY_CLASSES_ROOT, key_name, &hkey);
    if(res != ERROR_SUCCESS)
        return FALSE;
 
    if(def_value)
        res = RegSetValueA(hkey, NULL, REG_SZ, def_value, strlen(def_value));
 
    RegCloseKey(hkey);
    return res == ERROR_SUCCESS;
}

Referenced by init_registry().

init_registry()

static BOOL init_registry ( BOOL  init )

static

Definition at line 456 of file run.c.

{
    return init_key("Wine.Test\\CLSID", TESTOBJ_CLSID, init);
}

Referenced by register_activex(), and START_TEST().

mystrrchr()

static const WCHAR * mystrrchr ( const WCHAR *  str, WCHAR  ch  )

static

Definition at line 84 of file run.c.

{
    const WCHAR *pos = NULL, *current = str;
    while(*current != 0) {
        if(*current == ch)
            pos = current;
        ++current;
    }
    return pos;
}

Referenced by Dispatch_Invoke().

register_activex()

static BOOL register_activex ( void  )

static

Definition at line 461 of file run.c.

{
    DWORD regid;
    HRESULT hres;
 
    if(!init_registry(TRUE)) {
        init_registry(FALSE);
        return FALSE;
    }
 
    hres = CoRegisterClassObject(&CLSID_TestObj, (IUnknown *)&testobj_cf,
            CLSCTX_SERVER, REGCLS_MULTIPLEUSE, &regid);
    ok(hres == S_OK, "Could not register script engine: %08x\n", hres);
    return TRUE;
}

Referenced by START_TEST().

run_script()

static void run_script ( const char *  name, const char *  script_data, size_t  script_size, DWORD  expected_exit_code  )

static

Definition at line 376 of file run.c.

{
    char file_name[MAX_PATH];
    const char *ext;
    HANDLE file;
    DWORD size;
    BOOL res;
 
    ext = strrchr(name, '.');
    ok(ext != NULL, "no script extension\n");
    if(!ext)
      return;
 
    sprintf(file_name, "test%s", ext);
 
    file = CreateFileA(file_name, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS,
            FILE_ATTRIBUTE_NORMAL, NULL);
    ok(file != INVALID_HANDLE_VALUE, "CreateFile failed: %u\n", GetLastError());
    if(file == INVALID_HANDLE_VALUE)
        return;
 
    res = WriteFile(file, script_data, script_size, &size, NULL);
    CloseHandle(file);
    ok(res, "Could not write to file: %u\n", GetLastError());
    if(!res)
        return;
 
    run_script_file(file_name, expected_exit_code);
 
    DeleteFileA(file_name);
}

Referenced by run_simple_script(), and test_enum_proc().

run_script_file()

static void run_script_file ( const char *  file_name, DWORD  expected_exit_code  )

static

Definition at line 343 of file run.c.

{
    char command[MAX_PATH];
    STARTUPINFOA si = {sizeof(si)};
    PROCESS_INFORMATION pi;
    DWORD exit_code;
    BOOL bres;
 
    script_name = file_name;
    sprintf(command, "wscript.exe %s arg1 2 ar3", file_name);
 
    SET_EXPECT(reportSuccess);
 
    bres = CreateProcessA(NULL, command, NULL, NULL, TRUE, 0, NULL, NULL, &si, &pi);
    if(!bres) {
        win_skip("script.exe is not available\n");
        CLEAR_CALLED(reportSuccess);
        return;
    }
 
    wscript_process = pi.hProcess;
    WaitForSingleObject(pi.hProcess, INFINITE);
 
    bres = GetExitCodeProcess(pi.hProcess, &exit_code);
    ok(bres, "GetExitCodeProcess failed: %u\n", GetLastError());
    ok(exit_code == expected_exit_code, "exit_code = %u, expected %u\n", exit_code, expected_exit_code);
 
    CloseHandle(pi.hThread);
    CloseHandle(pi.hProcess);
 
    CHECK_CALLED(reportSuccess);
}

Referenced by run_script(), and START_TEST().

run_simple_script()

static void run_simple_script ( const char *  script, DWORD  expected_exit_code  )

static

Definition at line 408 of file run.c.

{
    run_script("simple.js", script, strlen(script), expected_exit_code);
}

Referenced by START_TEST().

START_TEST()

START_TEST

(

run

)

Definition at line 477 of file run.c.

{
    char **argv;
    int argc;
 
    CoInitializeEx(NULL, COINIT_MULTITHREADED);
 
    if(!register_activex()) {
        skip("Could not register ActiveX object.\n");
        CoUninitialize();
        return;
    }
 
    argc = winetest_get_mainargs(&argv);
    if(argc > 2) {
        run_script_file(argv[2], 0);
    }else {
        EnumResourceNamesA(NULL, "TESTSCRIPT", test_enum_proc, 0);
 
        run_simple_script("var winetest = new ActiveXObject('Wine.Test');\n"
                           "winetest.reportSuccess();\n"
                           "WScript.Quit(3);\n"
                           "winetest.ok(false, 'not quit?');\n", 3);
}
 
    init_registry(FALSE);
    CoUninitialize();
}

strcmp_wa()

static int strcmp_wa ( LPCWSTR  strw, const char *  stra  )

static

Definition at line 77 of file run.c.

{
    WCHAR buf[512];
    MultiByteToWideChar(CP_ACP, 0, stra, -1, buf, ARRAY_SIZE(buf));
    return lstrcmpW(strw, buf);
}

test_enum_proc()

static BOOL WINAPI test_enum_proc ( HMODULE  module, LPCSTR  type, LPSTR  name, LONG_PTR  param  )

static

Definition at line 413 of file run.c.

{
    const char *script_data;
    DWORD script_size;
    HRSRC src;
 
    trace("running %s test...\n", name);
 
    src = FindResourceA(NULL, name, type);
    ok(src != NULL, "Could not find resource %s: %u\n", name, GetLastError());
    if(!src)
        return TRUE;
 
    script_data = LoadResource(NULL, src);
    script_size = SizeofResource(NULL, src);
    while(script_size && !script_data[script_size-1])
        script_size--;
 
    run_script(name, script_data, script_size, 0);
    return TRUE;
}

Referenced by START_TEST().

Variable Documentation

ClassFactoryVtbl

const IClassFactoryVtbl ClassFactoryVtbl

static

Initial value:

= {
    ClassFactory_QueryInterface,
    ClassFactory_AddRef,
    ClassFactory_Release,
    ClassFactory_CreateInstance,
    ClassFactory_LockServer
}

Definition at line 333 of file run.c.

CLSID_TestObj

const GUID CLSID_TestObj

static

Initial value:

=
    {0x178fc166,0xf585,0x4e24,{0x9c,0x13,0x4b,0xb7,0xfa,0xf8,0x06,0x46}}

Definition at line 71 of file run.c.

Referenced by register_activex().

script_name

const char* script_name

static

Definition at line 74 of file run.c.

Referenced by Dispatch_Invoke(), run_benchmark(), and run_script_file().

testobj

IDispatch testobj = { &testobj_vtbl }

static

Definition at line 299 of file run.c.

Referenced by ClassFactory_CreateInstance().

testobj_cf

IClassFactory testobj_cf = { &ClassFactoryVtbl }

static

Definition at line 341 of file run.c.

Referenced by register_activex().

testobj_vtbl

IDispatchVtbl testobj_vtbl

static

Initial value:

= {
    Dispatch_QueryInterface,
    Dispatch_AddRef,
    Dispatch_Release,
    Dispatch_GetTypeInfoCount,
    Dispatch_GetTypeInfo,
    Dispatch_GetIDsOfNames,
    Dispatch_Invoke
}

Definition at line 289 of file run.c.

wscript_process

HANDLE wscript_process

static

Definition at line 75 of file run.c.

Referenced by Dispatch_Invoke(), and run_script_file().