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 "resource.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 void	write_to_handle (HANDLE handle, const WCHAR *string)
static void	print_error (const WCHAR *string)
static void	print_string (const WCHAR *string)
static void	output_writeconsole (const WCHAR *str, DWORD wlen)
static void	output_formatstring (const WCHAR *fmt, va_list va_args)
static void WINAPIV	print_resource (unsigned int id,...)
static DWORD WINAPI	timeout_thread_proc (void *arg)
void	schedule_timeout (LONG seconds)
static void	print_banner (void)
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 BOOL	run_script (BSTR text, IActiveScript *script, IActiveScriptParse *parser)
static BOOL	set_host_properties (const WCHAR *prop)
int WINAPI	wWinMain (HINSTANCE hInst, HINSTANCE hPrevInst, LPWSTR cmdline, int cmdshow)

Variables
WCHAR	scriptFullName [MAX_PATH]
ITypeInfo *	host_ti
ITypeInfo *	arguments_ti
static BOOL	nologo
static HANDLE	timeout_cancel_event
static HANDLE	timeout_thread
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 48 of file main.c.

IActiveScriptParse_ParseScriptText

#define IActiveScriptParse_ParseScriptText   IActiveScriptParse32_ParseScriptText

Definition at line 49 of file main.c.

IActiveScriptParse_Release

#define IActiveScriptParse_Release   IActiveScriptParse32_Release

Definition at line 47 of file main.c.

Function Documentation

ActiveScriptSite_AddRef()

static ULONG WINAPI ActiveScriptSite_AddRef ( IActiveScriptSite *  iface )

static

Definition at line 206 of file main.c.

{
    return 2;
}

ActiveScriptSite_GetDocVersionString()

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

static

Definition at line 254 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 224 of file main.c.

{
    WINE_TRACE("(%s %lx %p %p)\n", wine_dbgstr_w(pstrName), dwReturnMask, ppunkItem, ppti);
 
#ifdef __REACTOS__
    {
        BOOL handled = FALSE;
        HRESULT hr = get_globalitem_info(pstrName, dwReturnMask, ppunkItem, ppti, &handled);
        if (handled)
            return hr;
    }
#endif
 
    if(lstrcmpW(pstrName, L"WSH") && lstrcmpW(pstrName, L"WScript"))
        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 216 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 485 of file main.c.

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

ActiveScriptSite_OnLeaveScript()

static HRESULT WINAPI ActiveScriptSite_OnLeaveScript ( IActiveScriptSite *  iface )

static

Definition at line 491 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 452 of file main.c.

{
    EXCEPINFO excepinfo;
    ULONG line;
    LONG character;
    HRESULT hres;
    WCHAR buf[1024];
 
    WINE_TRACE("()\n");
 
    memset(&excepinfo, 0, sizeof(excepinfo));
    hres = IActiveScriptError_GetExceptionInfo(pscripterror, &excepinfo);
    if(SUCCEEDED(hres)) {
        line = 0;
        character = 0;
        IActiveScriptError_GetSourcePosition(pscripterror, NULL, &line, &character);
 
        swprintf(buf, ARRAY_SIZE(buf), L"%s(%lu, %ld) %s: %s",
                scriptFullName, line + 1, character + 1,
                excepinfo.bstrSource ? excepinfo.bstrSource : L"",
                excepinfo.bstrDescription ? excepinfo.bstrDescription : L"");
 
        print_error(buf);
 
        SysFreeString(excepinfo.bstrSource);
        SysFreeString(excepinfo.bstrDescription);
        SysFreeString(excepinfo.bstrHelpFile);
    }
 
    return S_OK;
}

ActiveScriptSite_OnScriptTerminate()

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

static

Definition at line 261 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 268 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 200 of file main.c.

{
    return query_interface(riid, ppv);
}

ActiveScriptSite_Release()

static ULONG WINAPI ActiveScriptSite_Release ( IActiveScriptSite *  iface )

static

Definition at line 211 of file main.c.

{
    return 1;
}

ActiveScriptSiteWindow_AddRef()

static ULONG WINAPI ActiveScriptSiteWindow_AddRef ( IActiveScriptSiteWindow *  iface )

static

Definition at line 518 of file main.c.

{
    return 2;
}

ActiveScriptSiteWindow_EnableModeless()

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

static

Definition at line 536 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 528 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 513 of file main.c.

{
    return query_interface(riid, ppv);
}

ActiveScriptSiteWindow_Release()

static ULONG WINAPI ActiveScriptSiteWindow_Release ( IActiveScriptSiteWindow *  iface )

static

Definition at line 523 of file main.c.

{
    return 1;
}

create_engine()

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

static

Definition at line 627 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 590 of file main.c.

{
    WCHAR fileid[64], progid[64];
    DWORD res;
    LONG size;
    HKEY hkey;
    HRESULT hres;
 
    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, L"\\ScriptEngine");
    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 681 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);
    if(!size) {
        CloseHandle(file);
        return SysAllocStringLen(NULL, 0);
    }
 
    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;
 
#ifdef __REACTOS__
    if(size >= 2 && (BYTE)file_map[0] == 0xFF && (BYTE)file_map[1] == 0xFE) // UTF-16LE
    {
        ret = SysAllocStringLen(NULL, size - 2);
        if (ret)
            CopyMemory(ret, file_map + 2, size - 2);
        UnmapViewOfFile(file_map);
        return ret;
    }
#endif
 
    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 wWinMain().

init_engine()

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

static

Definition at line 654 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, L"WScript", SCRIPTITEM_ISVISIBLE);
    if(FAILED(hres))
        return FALSE;
 
    hres = IActiveScript_AddNamedItem(script, L"WSH", 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 573 of file main.c.

{
    ITypeLib *typelib;
    HRESULT hres;
 
    hres = LoadTypeLib(L"wscript.exe", &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(), and ITERATE_RegisterTypeLibraries().

output_formatstring()

static void output_formatstring ( const WCHAR *  fmt, va_list  va_args  )

static

Definition at line 332 of file main.c.

{
    WCHAR *str;
    DWORD len;
 
    len = FormatMessageW(FORMAT_MESSAGE_FROM_STRING | FORMAT_MESSAGE_ALLOCATE_BUFFER,
                         fmt, 0, 0, (WCHAR *)&str, 0, &va_args);
    if(len == 0 && GetLastError() != ERROR_NO_WORK_DONE) {
        WINE_FIXME("Could not format string: le=%lu, fmt=%s\n", GetLastError(), wine_dbgstr_w(fmt));
        return;
    }
    if(wshInteractive) {
        MessageBoxW(NULL, str, L"Windows Script Host", MB_OK);
    }else {
        output_writeconsole(str, len);
    }
    LocalFree(str);
}

Referenced by print_resource().

output_writeconsole()

static void output_writeconsole ( const WCHAR *  str, DWORD  wlen  )

static

Definition at line 313 of file main.c.

{
    DWORD count;
 
    if(!WriteConsoleW(GetStdHandle(STD_OUTPUT_HANDLE), str, wlen, &count, NULL)) {
        DWORD len;
        char *buf;
 
        /* On Windows WriteConsoleW() fails if the output is redirected. So fall
         * back to WriteFile() with OEM code page. */
        len = WideCharToMultiByte(GetOEMCP(), 0, str, wlen, NULL, 0, NULL, NULL);
        buf = malloc(len);
 
        WideCharToMultiByte(GetOEMCP(), 0, str, wlen, buf, len, NULL, NULL);
        WriteFile(GetStdHandle(STD_OUTPUT_HANDLE), buf, len, &count, FALSE);
        free(buf);
    }
}

Referenced by output_formatstring().

print_banner()

static void print_banner ( void  )

static

Definition at line 434 of file main.c.

{
#ifdef __REACTOS__
    const WCHAR *header = L"ReactOS Script Host";
#else
    const char * (CDECL *wine_get_version)(void);
    WCHAR header[64];
 
    wine_get_version = (void *)GetProcAddress(GetModuleHandleW(L"ntdll.dll"), "wine_get_version");
    if(wine_get_version)
        swprintf(header, ARRAY_SIZE(header), L"Wine %S Script Host", wine_get_version());
    else
        swprintf(header, ARRAY_SIZE(header), L"Wine Script Host");
#endif
    print_string(header);
    print_string(L"");
}

Referenced by wWinMain().

print_error()

static void print_error ( const WCHAR *  string )

static

Definition at line 298 of file main.c.

{
    if(wshInteractive) {
        MessageBoxW(NULL, string, L"Windows Script Host", MB_OK);
        return;
    }
 
    write_to_handle(GetStdHandle(STD_ERROR_HANDLE), string);
}

Referenced by _nfs41_CreateSrvCall(), ActiveScriptSite_OnScriptError(), check_nfs41_create_args(), check_nfs41_setacl_args(), check_nfs41_setattr_args(), check_nfs41_setea_args(), check_nfs41_write_args(), DriverEntry(), GetConnectionHandle(), handle_upcall(), map_close_errors(), map_disposition_to_create_retval(), map_lock_errors(), map_mount_errors(), map_open_errors(), map_query_acl_error(), map_querydir_errors(), map_queryfile_error(), map_readwrite_errors(), map_setea_error(), map_setfile_error(), map_symlink_errors(), map_volume_errors(), marshal_nfs41_dirquery(), marshal_nfs41_open(), marshal_nfs41_rw(), marshall_unicode_as_utf8(), nfs41_CreateSrvCall(), nfs41_CreateVNetRoot(), nfs41_downcall(), nfs41_driver_unload(), nfs41_FinalizeNetRoot(), nfs41_FsdDispatch(), nfs41_get_sec_ctx(), nfs41_GetConnectionInfoFromBuffer(), nfs41_GetLUID(), nfs41_MountConfig_ParseDword(), nfs41_MountConfig_ParseOptions(), nfs41_QueryDirectory(), nfs41_QueryFileInformation(), nfs41_QueryVolumeInformation(), nfs41_Start(), nfs41_UpcallCreate(), SharedMemoryInit(), unmarshal_nfs41_dirquery(), unmarshal_nfs41_open(), and unmarshal_nfs41_rw().

print_resource()

static void WINAPIV print_resource ( unsigned int  id,   ...  )

static

Definition at line 351 of file main.c.

{
    WCHAR *fmt = NULL;
    int len;
    va_list va_args;
 
#ifdef __REACTOS__
    #ifndef CSCRIPT_BUILD
    #define APPNAME L"WScript"
    #else
    #define APPNAME L"CScript"
    #endif
    const WCHAR *str = NULL;
    switch (id)
    {
        case IDS_USAGE: str = L"Usage: " APPNAME L" scriptname.extension [option...] [arguments...]\n"; break;
        case IDS_NO_SCRIPT_FILE: str = L"Input Error: There is no script file specified.\n"; break;
        case IDS_FILE_NOT_FOUND: str = L"Input Error: Can not find script file ""%1"".\n"; break;
        case IDS_SCRIPT_LOAD_ERROR: str = APPNAME L" Error: Loading script ""%1"" failed (%2).\n"; break;
        case IDS_TIMEOUT_EXCEEDED: str = L"Script execution time was exceeded on script ""%1"".\n\nScript execution was terminated.\n"; break;
    }
    if(!str)
    {
        WINE_FIXME("Missing string %u\n", id);
        return;
    }
    len = lstrlenW(str);
    fmt = malloc(++len * sizeof(WCHAR));
    if(!fmt)
        return;
    lstrcpyW(fmt, str);
#else
    if(!(len = LoadStringW(GetModuleHandleW(NULL), id, (WCHAR *)&fmt, 0))) {
        WINE_FIXME("LoadString failed with %ld\n", GetLastError());
        return;
    }
 
    len++;
    fmt = malloc(len * sizeof(WCHAR));
    if(!fmt)
        return;
 
    LoadStringW(GetModuleHandleW(NULL), id, fmt, len);
#endif
 
    va_start(va_args, id);
    output_formatstring(fmt, va_args);
    va_end(va_args);
 
    free(fmt);
}

Referenced by timeout_thread_proc(), and wWinMain().

print_string()

static void print_string ( const WCHAR *  string )

static

Definition at line 308 of file main.c.

{
    write_to_handle(GetStdHandle(STD_OUTPUT_HANDLE), string);
}

Referenced by print_banner().

query_interface()

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

static

Definition at line 552 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 BOOL run_script ( BSTR  text, IActiveScript *  script, IActiveScriptParse *  parser  )

static

Definition at line 727 of file main.c.

{
    HRESULT hres;
 
    hres = IActiveScriptParse_ParseScriptText(parser, text, NULL, NULL, NULL, 1, 0,
            SCRIPTTEXT_HOSTMANAGESSOURCE|SCRIPTITEM_ISVISIBLE, NULL, NULL);
    if(FAILED(hres)) {
        if(hres != SCRIPT_E_REPORTED)
            WINE_WARN("ParseScriptText failed: %08lx\n", hres);
        return FALSE;
    }
 
    hres = IActiveScript_SetScriptState(script, SCRIPTSTATE_STARTED);
    if(FAILED(hres)) {
        if(hres != SCRIPT_E_REPORTED)
            WINE_WARN("SetScriptState failed: %08lx\n", hres);
    }
 
    return TRUE;
}

schedule_timeout()

void schedule_timeout

(

LONG

seconds

)

Definition at line 416 of file main.c.

{
    if(timeout_thread) {
        SetEvent(timeout_cancel_event);
        WaitForSingleObject(timeout_thread, INFINITE);
        CloseHandle(timeout_thread);
        timeout_thread = NULL;
    }
    if(seconds <= 0)
        return;
    if(!timeout_cancel_event)
        timeout_cancel_event = CreateEventW(NULL, TRUE, FALSE, NULL);
    else
        ResetEvent(timeout_cancel_event);
    timeout_thread = CreateThread(NULL, 0, timeout_thread_proc,
                                  (void *)(DWORD_PTR)(seconds * 1000), 0, NULL);
}

Referenced by Host_put_Timeout(), and wWinMain().

set_host_properties()

static BOOL set_host_properties ( const WCHAR *  prop )

static

Definition at line 973 of file main.c.

{
    if(*prop == '/') {
        ++prop;
        if(*prop == '/')
            ++prop;
    }
    else
        ++prop;
 
    if(wcsicmp(prop, L"i") == 0)
        wshInteractive = VARIANT_TRUE;
    else if(wcsicmp(prop, L"b") == 0)
        wshInteractive = VARIANT_FALSE;
    else if(wcsicmp(prop, L"nologo") == 0)
        nologo = TRUE;
    else if(wcsicmp(prop, L"logo") == 0)
        nologo = FALSE;
    else if(wcsicmp(prop, L"d") == 0)
        WINE_FIXME("ignoring //d\n");
    else if(wcsicmp(prop, L"x") == 0)
        WINE_FIXME("ignoring //x\n");
    else if(wcsicmp(prop, L"u") == 0)
        WINE_FIXME("ignoring //u\n");
    else if(wcsicmp(prop, L"s") == 0)
        WINE_FIXME("ignoring //s\n");
    else if(wcsnicmp(prop, L"e:", 2) == 0)
#ifdef __REACTOS__
        g_force_engine = &prop[2];
#else
        WINE_FIXME("ignoring //e:\n");
#endif
    else if(wcsnicmp(prop, L"h:", 2) == 0)
        WINE_FIXME("ignoring //h:\n");
    else if(wcsnicmp(prop, L"job:", 4) == 0)
        WINE_FIXME("ignoring //job:\n");
    else if(wcsnicmp(prop, L"t:", 2) == 0) {
        WCHAR *end;
        LONG t = wcstol(prop + 2, &end, 10);
        if(end == prop + 2 || *end || t < 0)
            return FALSE;
        wshTimeout = t;
    }
    else
        return FALSE;
    return TRUE;
}

Referenced by wWinMain().

timeout_thread_proc()

static DWORD WINAPI timeout_thread_proc ( void *  arg )

static

Definition at line 406 of file main.c.

{
    DWORD ms = (DWORD)(DWORD_PTR)arg;
    if(WaitForSingleObject(timeout_cancel_event, ms) == WAIT_TIMEOUT) {
        print_resource(IDS_TIMEOUT_EXCEEDED, scriptFullName);
        ExitProcess(1);
    }
    return 0;
}

Referenced by schedule_timeout().

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

wscript

)

write_to_handle()

static void write_to_handle ( HANDLE  handle, const WCHAR *  string  )

static

Definition at line 275 of file main.c.

{
    DWORD count, ret, len, lena;
    char *buf;
 
    len = lstrlenW(string);
    ret = WriteConsoleW(handle, string, len, &count, NULL);
    if(ret) {
        WriteConsoleW(handle, L"\r\n", 2, &count, NULL);
        return;
    }
 
    lena = WideCharToMultiByte(GetOEMCP(), 0, string, len, NULL, 0, NULL, NULL);
    buf = malloc(lena);
    if(!buf)
        return;
 
    WideCharToMultiByte(GetOEMCP(), 0, string, len, buf, lena, NULL, NULL);
    WriteFile(handle, buf, lena, &count, FALSE);
    free(buf);
    WriteFile(handle, "\r\n", 2, &count, FALSE);
}

Referenced by print_error(), and print_string().

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 1021 of file main.c.

{
    WCHAR *ext, *filepart, *filename = NULL;
    IActiveScriptParse *parser;
    IActiveScript *script;
    BSTR script_text;
    WCHAR **argv;
    CLSID clsid;
    int argc, i;
    int ret = 0;
    DWORD res;
 
    WINE_TRACE("(%p %p %s %x)\n", hInst, hPrevInst, wine_dbgstr_w(cmdline), cmdshow);
 
    argv = CommandLineToArgvW(GetCommandLineW(), &argc);
    if(!argv)
        return 1;
 
    /* Pass 1: consume // host options from all positions. */
    for(i=1; i<argc; i++) {
        if(argv[i][0] == '/' && argv[i][1] == '/' && set_host_properties(argv[i]))
            argv[i] = NULL;
    }
 
    /* Pass 2: find filename, consuming single-/ and - options before it. */
    for(i=1; i<argc; i++) {
        if(!argv[i])
            continue;
        if(argv[i][0] == '-' && argv[i][1] == '-' && !argv[i][2])
            continue; /* -- separator */
        if((*argv[i] == '/' || *argv[i] == '-') && set_host_properties(argv[i]))
            continue;
        filename = argv[i];
        i++;
        break;
    }
 
    /* Pass 3: compact script args, skipping consumed // options. */
    if(filename) {
        int j = 0, first_arg = i;
        for(; i<argc; i++) {
            if(!argv[i])
                continue;
            argv[first_arg + j] = argv[i];
            j++;
        }
        argums = argv + first_arg;
        numOfArgs = j;
    }
 
    if(!filename && argc == 1) {
        if(wshInteractive) {
            WINE_FIXME("Settings dialog not implemented\n");
            return 0;
        }
        if(!nologo)
            print_banner();
        print_resource(IDS_USAGE);
        return 0;
    }
 
    if(!nologo)
        print_banner();
 
    if(!filename) {
        print_resource(IDS_NO_SCRIPT_FILE);
        return 1;
    }
 
    res = GetFullPathNameW(filename, ARRAY_SIZE(scriptFullName), scriptFullName, &filepart);
    if(!res || res > ARRAY_SIZE(scriptFullName))
        return 1;
 
#ifdef __REACTOS__
    ext = wcsrchr(filepart, '.');
    if(ext && !lstrcmpiW(ext, L".wsf")) {
        return run_wsf(scriptFullName);
    }
#endif
 
    script_text = get_script_str(scriptFullName);
    if(!script_text) {
        DWORD err = GetLastError();
        if(err == ERROR_FILE_NOT_FOUND || err == ERROR_PATH_NOT_FOUND) {
            print_resource(IDS_FILE_NOT_FOUND, scriptFullName);
        }else {
            WCHAR *syserr = NULL;
            FormatMessageW(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
                           NULL, err, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (WCHAR *)&syserr, 0, NULL);
            if(syserr) {
                /* Trim trailing whitespace from system error message. */
                int len = lstrlenW(syserr);
                while(len > 0 && (syserr[len - 1] == '\r' || syserr[len - 1] == '\n' || syserr[len - 1] == ' '))
                    syserr[--len] = 0;
                print_resource(IDS_SCRIPT_LOAD_ERROR, scriptFullName, syserr);
                LocalFree(syserr);
            }else {
                print_resource(IDS_SCRIPT_LOAD_ERROR, scriptFullName, L"");
            }
        }
        return 1;
    }
 
    ext = wcsrchr(filepart, '.');
#ifdef __REACTOS__
    if(g_force_engine) {
        CLSIDFromProgID(g_force_engine, &clsid);
    }
    else
#endif
    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)) {
        schedule_timeout(wshTimeout);
        if(!run_script(script_text, script, parser))
            ret = 1;
        schedule_timeout(0);
        IActiveScript_Close(script);
        ITypeInfo_Release(host_ti);
    }else {
        WINE_FIXME("Script initialization failed\n");
    }
 
    SysFreeString(script_text);
    IActiveScript_Release(script);
    IActiveScriptParse_Release(parser);
 
#ifdef __REACTOS__
    free_globals();
#endif
 
    CoUninitialize();
 
    return ret;
}

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 497 of file main.c.

ActiveScriptSiteWindowVtbl

const IActiveScriptSiteWindowVtbl ActiveScriptSiteWindowVtbl

static

Initial value:

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

Definition at line 542 of file main.c.

arguments_ti

ITypeInfo* arguments_ti

Definition at line 57 of file main.c.

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

host_ti

ITypeInfo* host_ti

Definition at line 56 of file main.c.

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

nologo

BOOL nologo

static

Definition at line 59 of file main.c.

Referenced by set_host_properties(), and wWinMain().

script_site

IActiveScriptSite script_site = { &ActiveScriptSiteVtbl }

static

Definition at line 511 of file main.c.

Referenced by query_interface().

script_site_window

IActiveScriptSiteWindow script_site_window = { &ActiveScriptSiteWindowVtbl }

static

Definition at line 550 of file main.c.

Referenced by query_interface().

scriptFullName

WCHAR scriptFullName[MAX_PATH]

Definition at line 54 of file main.c.

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

timeout_cancel_event

HANDLE timeout_cancel_event

static

Definition at line 403 of file main.c.

Referenced by schedule_timeout(), and timeout_thread_proc().

timeout_thread

HANDLE timeout_thread

static

Definition at line 404 of file main.c.

Referenced by schedule_timeout().