main.c File Reference

#include <stdarg.h>
#include <windef.h>
#include <winbase.h>
#include <winreg.h>
#include <ole2.h>
#include <shellapi.h>
#include <activscp.h>
#include <initguid.h>
#include "wscript.h"
#include <wine/debug.h>

Include dependency graph for main.c:

Go to the source code of this file.

Macros
#define	COBJMACROS
#define	IActiveScriptParse_Release   IActiveScriptParse32_Release
#define	IActiveScriptParse_InitNew   IActiveScriptParse32_InitNew
#define	IActiveScriptParse_ParseScriptText   IActiveScriptParse32_ParseScriptText

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (wscript)
static HRESULT	query_interface (REFIID, void **)
static HRESULT WINAPI	ActiveScriptSite_QueryInterface (IActiveScriptSite *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ActiveScriptSite_AddRef (IActiveScriptSite *iface)
static ULONG WINAPI	ActiveScriptSite_Release (IActiveScriptSite *iface)
static HRESULT WINAPI	ActiveScriptSite_GetLCID (IActiveScriptSite *iface, LCID *plcid)
static HRESULT WINAPI	ActiveScriptSite_GetItemInfo (IActiveScriptSite *iface, LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown **ppunkItem, ITypeInfo **ppti)
static HRESULT WINAPI	ActiveScriptSite_GetDocVersionString (IActiveScriptSite *iface, BSTR *pbstrVersion)
static HRESULT WINAPI	ActiveScriptSite_OnScriptTerminate (IActiveScriptSite *iface, const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
static HRESULT WINAPI	ActiveScriptSite_OnStateChange (IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
static HRESULT WINAPI	ActiveScriptSite_OnScriptError (IActiveScriptSite *iface, IActiveScriptError *pscripterror)
static HRESULT WINAPI	ActiveScriptSite_OnEnterScript (IActiveScriptSite *iface)
static HRESULT WINAPI	ActiveScriptSite_OnLeaveScript (IActiveScriptSite *iface)
static HRESULT WINAPI	ActiveScriptSiteWindow_QueryInterface (IActiveScriptSiteWindow *iface, REFIID riid, void **ppv)
static ULONG WINAPI	ActiveScriptSiteWindow_AddRef (IActiveScriptSiteWindow *iface)
static ULONG WINAPI	ActiveScriptSiteWindow_Release (IActiveScriptSiteWindow *iface)
static HRESULT WINAPI	ActiveScriptSiteWindow_GetWindow (IActiveScriptSiteWindow *iface, HWND *phwnd)
static HRESULT WINAPI	ActiveScriptSiteWindow_EnableModeless (IActiveScriptSiteWindow *iface, BOOL fEnable)
static BOOL	load_typelib (void)
static BOOL	get_engine_clsid (const WCHAR *ext, CLSID *clsid)
static BOOL	create_engine (CLSID *clsid, IActiveScript **script_ret, IActiveScriptParse **parser)
static BOOL	init_engine (IActiveScript *script, IActiveScriptParse *parser)
static BSTR	get_script_str (const WCHAR *filename)
static void	run_script (const WCHAR *filename, IActiveScript *script, IActiveScriptParse *parser)
static BOOL	set_host_properties (const WCHAR *prop)
int WINAPI	wWinMain (HINSTANCE hInst, HINSTANCE hPrevInst, LPWSTR cmdline, int cmdshow)

Variables
static const WCHAR	wscriptW [] = {'W','S','c','r','i','p','t',0}
static const WCHAR	wshW [] = {'W','S','H',0}
WCHAR	scriptFullName [MAX_PATH]
ITypeInfo *	host_ti
ITypeInfo *	arguments_ti
static IActiveScriptSiteVtbl	ActiveScriptSiteVtbl
static IActiveScriptSite	script_site = { &ActiveScriptSiteVtbl }
static const IActiveScriptSiteWindowVtbl	ActiveScriptSiteWindowVtbl
static IActiveScriptSiteWindow	script_site_window = { &ActiveScriptSiteWindowVtbl }

Macro Definition Documentation

COBJMACROS

#define COBJMACROS

Definition at line 21 of file main.c.

IActiveScriptParse_InitNew

#define IActiveScriptParse_InitNew   IActiveScriptParse32_InitNew

Definition at line 47 of file main.c.

IActiveScriptParse_ParseScriptText

#define IActiveScriptParse_ParseScriptText   IActiveScriptParse32_ParseScriptText

Definition at line 48 of file main.c.

IActiveScriptParse_Release

#define IActiveScriptParse_Release   IActiveScriptParse32_Release

Definition at line 46 of file main.c.

Function Documentation

ActiveScriptSite_AddRef()

static ULONG WINAPI ActiveScriptSite_AddRef ( IActiveScriptSite *  iface )

static

Definition at line 69 of file main.c.

{
    return 2;
}

ActiveScriptSite_GetDocVersionString()

static HRESULT WINAPI ActiveScriptSite_GetDocVersionString ( IActiveScriptSite *  iface, BSTR *  pbstrVersion  )

static

Definition at line 108 of file main.c.

{
    WINE_FIXME("()\n");
    return E_NOTIMPL;
}

ActiveScriptSite_GetItemInfo()

static HRESULT WINAPI ActiveScriptSite_GetItemInfo ( IActiveScriptSite *  iface, LPCOLESTR  pstrName, DWORD  dwReturnMask, IUnknown **  ppunkItem, ITypeInfo **  ppti  )

static

Definition at line 87 of file main.c.

{
    WINE_TRACE("(%s %x %p %p)\n", wine_dbgstr_w(pstrName), dwReturnMask, ppunkItem, ppti);
 
    if(lstrcmpW(pstrName, wshW) && lstrcmpW(pstrName, wscriptW))
        return E_FAIL;
 
    if(dwReturnMask & SCRIPTINFO_ITYPEINFO) {
        ITypeInfo_AddRef(host_ti);
        *ppti = host_ti;
    }
 
    if(dwReturnMask & SCRIPTINFO_IUNKNOWN) {
        IHost_AddRef(&host_obj);
        *ppunkItem = (IUnknown*)&host_obj;
    }
 
    return S_OK;
}

ActiveScriptSite_GetLCID()

static HRESULT WINAPI ActiveScriptSite_GetLCID ( IActiveScriptSite *  iface, LCID *  plcid  )

static

Definition at line 79 of file main.c.

{
    WINE_TRACE("()\n");
 
    *plcid = GetUserDefaultLCID();
    return S_OK;
}

ActiveScriptSite_OnEnterScript()

static HRESULT WINAPI ActiveScriptSite_OnEnterScript ( IActiveScriptSite *  iface )

static

Definition at line 136 of file main.c.

{
    WINE_TRACE("()\n");
    return S_OK;
}

ActiveScriptSite_OnLeaveScript()

static HRESULT WINAPI ActiveScriptSite_OnLeaveScript ( IActiveScriptSite *  iface )

static

Definition at line 142 of file main.c.

{
    WINE_TRACE("()\n");
    return S_OK;
}

ActiveScriptSite_OnScriptError()

static HRESULT WINAPI ActiveScriptSite_OnScriptError ( IActiveScriptSite *  iface, IActiveScriptError *  pscripterror  )

static

Definition at line 129 of file main.c.

{
    WINE_FIXME("()\n");
    return E_NOTIMPL;
}

ActiveScriptSite_OnScriptTerminate()

static HRESULT WINAPI ActiveScriptSite_OnScriptTerminate ( IActiveScriptSite *  iface, const VARIANT *  pvarResult, const EXCEPINFO *  pexcepinfo  )

static

Definition at line 115 of file main.c.

{
    WINE_FIXME("()\n");
    return E_NOTIMPL;
}

ActiveScriptSite_OnStateChange()

static HRESULT WINAPI ActiveScriptSite_OnStateChange ( IActiveScriptSite *  iface, SCRIPTSTATE  ssScriptState  )

static

Definition at line 122 of file main.c.

{
    WINE_TRACE("(%x)\n", ssScriptState);
    return S_OK;
}

ActiveScriptSite_QueryInterface()

static HRESULT WINAPI ActiveScriptSite_QueryInterface ( IActiveScriptSite *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 63 of file main.c.

{
    return query_interface(riid, ppv);
}

ActiveScriptSite_Release()

static ULONG WINAPI ActiveScriptSite_Release ( IActiveScriptSite *  iface )

static

Definition at line 74 of file main.c.

{
    return 1;
}

ActiveScriptSiteWindow_AddRef()

static ULONG WINAPI ActiveScriptSiteWindow_AddRef ( IActiveScriptSiteWindow *  iface )

static

Definition at line 169 of file main.c.

{
    return 2;
}

ActiveScriptSiteWindow_EnableModeless()

static HRESULT WINAPI ActiveScriptSiteWindow_EnableModeless ( IActiveScriptSiteWindow *  iface, BOOL  fEnable  )

static

Definition at line 187 of file main.c.

{
    TRACE("(%x)\n", fEnable);
    return S_OK;
}

ActiveScriptSiteWindow_GetWindow()

static HRESULT WINAPI ActiveScriptSiteWindow_GetWindow ( IActiveScriptSiteWindow *  iface, HWND *  phwnd  )

static

Definition at line 179 of file main.c.

{
    TRACE("(%p)\n", phwnd);
 
    *phwnd = NULL;
    return S_OK;
}

ActiveScriptSiteWindow_QueryInterface()

static HRESULT WINAPI ActiveScriptSiteWindow_QueryInterface ( IActiveScriptSiteWindow *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 164 of file main.c.

{
    return query_interface(riid, ppv);
}

ActiveScriptSiteWindow_Release()

static ULONG WINAPI ActiveScriptSiteWindow_Release ( IActiveScriptSiteWindow *  iface )

static

Definition at line 174 of file main.c.

{
    return 1;
}

create_engine()

static BOOL create_engine ( CLSID *  clsid, IActiveScript **  script_ret, IActiveScriptParse **  parser  )

static

Definition at line 283 of file main.c.

{
    IActiveScript *script;
    IUnknown *unk;
    HRESULT hres;
 
    hres = CoCreateInstance(clsid, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
            &IID_IUnknown, (void**)&unk);
    if(FAILED(hres))
        return FALSE;
 
    hres = IUnknown_QueryInterface(unk, &IID_IActiveScript, (void**)&script);
    IUnknown_Release(unk);
    if(FAILED(hres))
        return FALSE;
 
    hres = IActiveScript_QueryInterface(script, &IID_IActiveScriptParse, (void**)parser);
    if(FAILED(hres)) {
        IActiveScript_Release(script);
        return FALSE;
    }
 
    *script_ret = script;
    return TRUE;
}

Referenced by wWinMain().

get_engine_clsid()

static BOOL get_engine_clsid ( const WCHAR *  ext, CLSID *  clsid  )

static

Definition at line 243 of file main.c.

{
    WCHAR fileid[64], progid[64];
    DWORD res;
    LONG size;
    HKEY hkey;
    HRESULT hres;
 
    static const WCHAR script_engineW[] =
        {'\\','S','c','r','i','p','t','E','n','g','i','n','e',0};
 
    res = RegOpenKeyW(HKEY_CLASSES_ROOT, ext, &hkey);
    if(res != ERROR_SUCCESS)
        return FALSE;
 
    size = ARRAY_SIZE(fileid);
    res = RegQueryValueW(hkey, NULL, fileid, &size);
    RegCloseKey(hkey);
    if(res != ERROR_SUCCESS)
        return FALSE;
 
    WINE_TRACE("fileid is %s\n", wine_dbgstr_w(fileid));
 
    lstrcatW(fileid, script_engineW);
    res = RegOpenKeyW(HKEY_CLASSES_ROOT, fileid, &hkey);
    if(res != ERROR_SUCCESS)
        return FALSE;
 
    size = ARRAY_SIZE(progid);
    res = RegQueryValueW(hkey, NULL, progid, &size);
    RegCloseKey(hkey);
    if(res != ERROR_SUCCESS)
        return FALSE;
 
    WINE_TRACE("ProgID is %s\n", wine_dbgstr_w(progid));
 
    hres = CLSIDFromProgID(progid, clsid);
    return SUCCEEDED(hres);
}

Referenced by wWinMain().

get_script_str()

static BSTR get_script_str ( const WCHAR *  filename )

static

Definition at line 337 of file main.c.

{
    const char *file_map;
    HANDLE file, map;
    DWORD size, len;
    BSTR ret;
 
    file = CreateFileW(filename, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_READONLY, NULL);
    if(file == INVALID_HANDLE_VALUE)
        return NULL;
 
    size = GetFileSize(file, NULL);
    map = CreateFileMappingW(file, NULL, PAGE_READONLY, 0, 0, NULL);
    CloseHandle(file);
    if(map == INVALID_HANDLE_VALUE)
        return NULL;
 
    file_map = MapViewOfFile(map, FILE_MAP_READ, 0, 0, 0);
    CloseHandle(map);
    if(!file_map)
        return NULL;
 
    len = MultiByteToWideChar(CP_ACP, 0, file_map, size, NULL, 0);
    ret = SysAllocStringLen(NULL, len);
    MultiByteToWideChar(CP_ACP, 0, file_map, size, ret, len);
 
    UnmapViewOfFile(file_map);
    return ret;
}

Referenced by run_script().

init_engine()

static BOOL init_engine ( IActiveScript *  script, IActiveScriptParse *  parser  )

static

Definition at line 310 of file main.c.

{
    HRESULT hres;
 
    if(!load_typelib())
        return FALSE;
 
    hres = IActiveScript_SetScriptSite(script, &script_site);
    if(FAILED(hres))
        return FALSE;
 
    hres = IActiveScriptParse_InitNew(parser);
    if(FAILED(hres))
        return FALSE;
 
    hres = IActiveScript_AddNamedItem(script, wscriptW, SCRIPTITEM_ISVISIBLE);
    if(FAILED(hres))
        return FALSE;
 
    hres = IActiveScript_AddNamedItem(script, wshW, SCRIPTITEM_ISVISIBLE);
    if(FAILED(hres))
        return FALSE;
 
    hres = IActiveScript_SetScriptState(script, SCRIPTSTATE_INITIALIZED);
    return SUCCEEDED(hres);
}

Referenced by wWinMain().

load_typelib()

static BOOL load_typelib ( void  )

static

Definition at line 224 of file main.c.

{
    ITypeLib *typelib;
    HRESULT hres;
 
    static const WCHAR wscript_exeW[] = {'w','s','c','r','i','p','t','.','e','x','e',0};
 
    hres = LoadTypeLib(wscript_exeW, &typelib);
    if(FAILED(hres))
        return FALSE;
 
    hres = ITypeLib_GetTypeInfoOfGuid(typelib, &IID_IHost, &host_ti);
    if(SUCCEEDED(hres))
        hres = ITypeLib_GetTypeInfoOfGuid(typelib, &IID_IArguments2, &arguments_ti);
 
    ITypeLib_Release(typelib);
    return SUCCEEDED(hres);
}

Referenced by init_engine().

query_interface()

static HRESULT query_interface ( REFIID  riid, void **  ppv  )

static

Definition at line 203 of file main.c.

{
    if(IsEqualGUID(riid, &IID_IUnknown)) {
        TRACE("(IID_IUnknown %p)\n", ppv);
        *ppv = &script_site;
    }else if(IsEqualGUID(riid, &IID_IActiveScriptSite)) {
        TRACE("(IID_IActiveScriptSite %p)\n", ppv);
        *ppv = &script_site;
    }else if(IsEqualGUID(riid, &IID_IActiveScriptSiteWindow)) {
        TRACE("(IID_IActiveScriptSiteWindow %p)\n", ppv);
        *ppv = &script_site_window;
    }else {
        *ppv = NULL;
        TRACE("(%s %p)\n", wine_dbgstr_guid(riid), ppv);
        return E_NOINTERFACE;
    }
 
    IUnknown_AddRef((IUnknown*)*ppv);
    return S_OK;
}

Referenced by ActiveScriptSite_QueryInterface(), and ActiveScriptSiteWindow_QueryInterface().

run_script()

static void run_script ( const WCHAR *  filename, IActiveScript *  script, IActiveScriptParse *  parser  )

static

Definition at line 367 of file main.c.

{
    BSTR text;
    HRESULT hres;
 
    text = get_script_str(filename);
    if(!text) {
        WINE_FIXME("Could not get script text\n");
        return;
    }
 
    hres = IActiveScriptParse_ParseScriptText(parser, text, NULL, NULL, NULL, 1, 1,
            SCRIPTTEXT_HOSTMANAGESSOURCE|SCRIPTITEM_ISVISIBLE, NULL, NULL);
    SysFreeString(text);
    if(FAILED(hres)) {
        WINE_FIXME("ParseScriptText failed: %08x\n", hres);
        return;
    }
 
    hres = IActiveScript_SetScriptState(script, SCRIPTSTATE_STARTED);
    if(FAILED(hres))
        WINE_FIXME("SetScriptState failed: %08x\n", hres);
}

Referenced by InternetGetProxyInfo(), and wWinMain().

set_host_properties()

static BOOL set_host_properties ( const WCHAR *  prop )

static

Definition at line 391 of file main.c.

{
    static const WCHAR nologoW[] = {'n','o','l','o','g','o',0};
    static const WCHAR iactive[] = {'i',0};
    static const WCHAR batch[] = {'b',0};
 
    if(*prop == '/') {
        ++prop;
        if(*prop == '/')
            ++prop;
    }
    else
        ++prop;
 
    if(wcsicmp(prop, iactive) == 0)
        wshInteractive = VARIANT_TRUE;
    else if(wcsicmp(prop, batch) == 0)
        wshInteractive = VARIANT_FALSE;
    else if(wcsicmp(prop, nologoW) == 0)
        WINE_FIXME("ignored %s switch\n", debugstr_w(nologoW));
    else
    {
        WINE_FIXME("unsupported switch %s\n", debugstr_w(prop));
        return FALSE;
    }
    return TRUE;
}

Referenced by wWinMain().

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

wscript

)

wWinMain()

int WINAPI wWinMain	(	HINSTANCE	hInstance,
		HINSTANCE	hPrevInstance,
		LPWSTR	lpCmdLine,
		int	nShowCmd
	)

This file has no copyright assigned and is placed in the Public Domain. This file is part of the w64 mingw-runtime package. No warranty is given; refer to the file DISCLAIMER.PD within this package.

Definition at line 419 of file main.c.

{
    WCHAR *ext, *filepart, *filename = NULL;
    IActiveScriptParse *parser;
    IActiveScript *script;
    WCHAR **argv;
    CLSID clsid;
    int argc, i;
    DWORD res;
 
    WINE_TRACE("(%p %p %s %x)\n", hInst, hPrevInst, wine_dbgstr_w(cmdline), cmdshow);
 
    argv = CommandLineToArgvW(GetCommandLineW(), &argc);
    if(!argv)
        return 1;
 
    for(i=1; i<argc; i++) {
        if(*argv[i] == '/' || *argv[i] == '-') {
            if(!set_host_properties(argv[i]))
                return 1;
        }else {
            filename = argv[i];
            argums = argv+i+1;
            numOfArgs = argc-i-1;
            break;
        }
    }
 
    if(!filename) {
        WINE_FIXME("No file name specified\n");
        return 1;
    }
    res = GetFullPathNameW(filename, ARRAY_SIZE(scriptFullName), scriptFullName, &filepart);
    if(!res || res > ARRAY_SIZE(scriptFullName))
        return 1;
 
    ext = wcsrchr(filepart, '.');
    if(!ext || !get_engine_clsid(ext, &clsid)) {
        WINE_FIXME("Could not find engine for %s\n", wine_dbgstr_w(ext));
        return 1;
    }
 
    CoInitialize(NULL);
 
    if(!create_engine(&clsid, &script, &parser)) {
        WINE_FIXME("Could not create script engine\n");
        CoUninitialize();
        return 1;
    }
 
    if(init_engine(script, parser)) {
        run_script(filename, script, parser);
        IActiveScript_Close(script);
        ITypeInfo_Release(host_ti);
    }else {
        WINE_FIXME("Script initialization failed\n");
    }
 
    IActiveScript_Release(script);
    IActiveScriptParse_Release(parser);
 
    CoUninitialize();
 
    return 0;
}

Variable Documentation

ActiveScriptSiteVtbl

IActiveScriptSiteVtbl ActiveScriptSiteVtbl

static

Initial value:

= {
    ActiveScriptSite_QueryInterface,
    ActiveScriptSite_AddRef,
    ActiveScriptSite_Release,
    ActiveScriptSite_GetLCID,
    ActiveScriptSite_GetItemInfo,
    ActiveScriptSite_GetDocVersionString,
    ActiveScriptSite_OnScriptTerminate,
    ActiveScriptSite_OnStateChange,
    ActiveScriptSite_OnScriptError,
    ActiveScriptSite_OnEnterScript,
    ActiveScriptSite_OnLeaveScript
}

Definition at line 148 of file main.c.

ActiveScriptSiteWindowVtbl

const IActiveScriptSiteWindowVtbl ActiveScriptSiteWindowVtbl

static

Initial value:

= {
    ActiveScriptSiteWindow_QueryInterface,
    ActiveScriptSiteWindow_AddRef,
    ActiveScriptSiteWindow_Release,
    ActiveScriptSiteWindow_GetWindow,
    ActiveScriptSiteWindow_EnableModeless
}

Definition at line 193 of file main.c.

arguments_ti

ITypeInfo* arguments_ti

Definition at line 59 of file main.c.

Referenced by Arguments2_GetIDsOfNames(), Arguments2_GetTypeInfo(), Arguments2_Invoke(), and load_typelib().

host_ti

ITypeInfo* host_ti

Definition at line 58 of file main.c.

Referenced by ActiveScriptSite_GetItemInfo(), Host_GetIDsOfNames(), Host_GetTypeInfo(), Host_Invoke(), load_typelib(), and wWinMain().

script_site

IActiveScriptSite script_site = { &ActiveScriptSiteVtbl }

static

Definition at line 162 of file main.c.

Referenced by init_engine(), query_interface(), and run_script().

script_site_window

IActiveScriptSiteWindow script_site_window = { &ActiveScriptSiteWindowVtbl }

static

Definition at line 201 of file main.c.

Referenced by query_interface().

scriptFullName

WCHAR scriptFullName[MAX_PATH]

Definition at line 56 of file main.c.

Referenced by Host_get_ScriptFullName(), Host_get_ScriptName(), and wWinMain().

wscriptW

const WCHAR wscriptW[] = {'W','S','c','r','i','p','t',0}

static

Definition at line 54 of file main.c.

Referenced by ActiveScriptSite_GetItemInfo(), and init_engine().

wshW

const WCHAR wshW[] = {'W','S','H',0}

static

Definition at line 55 of file main.c.

Referenced by ActiveScriptSite_GetItemInfo(), and init_engine().