#include <stdarg.h>
#include <windef.h>
#include <winbase.h>
#include <ole2.h>
#include "wscript.h"
#include <wine/debug.h>

Include dependency graph for host.c:

Macros
#define	COBJMACROS

#define	CONST_VTABLE

#define	BUILDVERSION 16535

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (wscript)

static HRESULT	to_string (VARIANT src, BSTR dst)

static void	print_string (const WCHAR *string)

static HRESULT WINAPI	Host_QueryInterface (IHost iface, REFIID riid, void *ppv)

static ULONG WINAPI	Host_AddRef (IHost *iface)

static ULONG WINAPI	Host_Release (IHost *iface)

static HRESULT WINAPI	Host_GetTypeInfoCount (IHost iface, UINT pctinfo)

static HRESULT WINAPI	Host_GetTypeInfo (IHost iface, UINT iTInfo, LCID lcid, ITypeInfo *ppTInfo)

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

static HRESULT WINAPI	Host_Invoke (IHost iface, DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS pDispParams, VARIANT pVarResult, EXCEPINFO pExcepInfo, UINT *puArgErr)

static HRESULT WINAPI	Host_get_Name (IHost iface, BSTR out_Name)

static HRESULT WINAPI	Host_get_Application (IHost iface, IDispatch *out_Dispatch)

static HRESULT WINAPI	Host_get_FullName (IHost iface, BSTR out_Path)

static HRESULT WINAPI	Host_get_Path (IHost iface, BSTR out_Path)

static HRESULT WINAPI	Host_get_Interactive (IHost iface, VARIANT_BOOL out_Interactive)

static HRESULT WINAPI	Host_put_Interactive (IHost *iface, VARIANT_BOOL v)

static HRESULT WINAPI	Host_Quit (IHost *iface, int ExitCode)

static HRESULT WINAPI	Host_get_ScriptName (IHost iface, BSTR out_ScriptName)

static HRESULT WINAPI	Host_get_ScriptFullName (IHost iface, BSTR out_ScriptFullName)

static HRESULT WINAPI	Host_get_Arguments (IHost iface, IArguments2 *out_Arguments)

static HRESULT WINAPI	Host_get_Version (IHost iface, BSTR out_Version)

static HRESULT WINAPI	Host_get_BuildVersion (IHost iface, int out_Build)

static HRESULT WINAPI	Host_get_Timeout (IHost iface, LONG out_Timeout)

static HRESULT WINAPI	Host_put_Timeout (IHost *iface, LONG v)

static HRESULT WINAPI	Host_CreateObject (IHost iface, BSTR ProgID, BSTR Prefix, IDispatch *out_Dispatch)

static HRESULT WINAPI	Host_Echo (IHost iface, SAFEARRAY args)

static HRESULT WINAPI	Host_GetObject (IHost iface, BSTR Pathname, BSTR ProgID, BSTR Prefix, IDispatch *out_Dispatch)

static HRESULT WINAPI	Host_DisconnectObject (IHost iface, IDispatch Object)

static HRESULT WINAPI	Host_Sleep (IHost *iface, LONG Time)

static HRESULT WINAPI	Host_ConnectObject (IHost iface, IDispatch Object, BSTR Prefix)

static HRESULT WINAPI	Host_get_StdIn (IHost iface, ITextStream *ppts)

static HRESULT WINAPI	Host_get_StdOut (IHost iface, ITextStream *ppts)

static HRESULT WINAPI	Host_get_StdErr (IHost iface, ITextStream *ppts)

Variables
static const WCHAR	wshVersionW [] = L"5.8"

VARIANT_BOOL	wshInteractive

LONG	wshTimeout = 0

static const IHostVtbl	HostVtbl

IHost	host_obj = { &HostVtbl }

Macro Definition Documentation

◆ BUILDVERSION

#define BUILDVERSION 16535

Definition at line 34 of file host.c.

◆ COBJMACROS

#define COBJMACROS

Definition at line 21 of file host.c.

◆ CONST_VTABLE

#define CONST_VTABLE

Definition at line 22 of file host.c.

Function Documentation

◆ Host_AddRef()

static ULONG WINAPI Host_AddRef ( IHost * iface )

static

Definition at line 110 of file host.c.

{
    return 2;
}

◆ Host_ConnectObject()

static HRESULT WINAPI Host_ConnectObject	(	IHost *	iface,
		IDispatch *	Object,
		BSTR	Prefix
	)

static

Definition at line 417 of file host.c.

{
    WINE_FIXME("(%p %s)\n", Object, wine_dbgstr_w(Prefix));
    return E_NOTIMPL;
}

◆ Host_CreateObject()

static HRESULT WINAPI Host_CreateObject	(	IHost *	iface,
		BSTR	ProgID,
		BSTR	Prefix,
		IDispatch **	out_Dispatch
	)

static

Definition at line 293 of file host.c.

{
    IUnknown *unk;
    GUID guid;
    HRESULT hres;
 
    TRACE("(%s %s %p)\n", wine_dbgstr_w(ProgID), wine_dbgstr_w(Prefix), out_Dispatch);
 
    if(Prefix && *Prefix) {
        FIXME("Prefix %s not supported\n", debugstr_w(Prefix));
        return E_NOTIMPL;
    }
 
    hres = CLSIDFromProgID(ProgID, &guid);
    if(FAILED(hres))
        return hres;
 
    hres = CoCreateInstance(&guid, NULL, CLSCTX_INPROC_SERVER|CLSCTX_LOCAL_SERVER|CLSCTX_REMOTE_SERVER,
            &IID_IUnknown, (void**)&unk);
    if(FAILED(hres))
        return hres;
 
    hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)out_Dispatch);
    IUnknown_Release(unk);
    return hres;
}

◆ Host_DisconnectObject()

static HRESULT WINAPI Host_DisconnectObject	(	IHost *	iface,
		IDispatch *	Object
	)

static

Definition at line 399 of file host.c.

{
    WINE_FIXME("(%p)\n", Object);
    return E_NOTIMPL;
}

◆ Host_Echo()

static HRESULT WINAPI Host_Echo	(	IHost *	iface,
		SAFEARRAY *	args
	)

static

Definition at line 321 of file host.c.

{
    WCHAR *output = NULL, *ptr;
    unsigned argc, i, len;
    LONG ubound, lbound;
    VARIANT *argv;
    BSTR *strs;
    HRESULT hres;
 
    TRACE("(%p)\n", args);
 
    if(SafeArrayGetDim(args) != 1) {
        FIXME("Unsupported args dim %d\n", SafeArrayGetDim(args));
        return E_NOTIMPL;
    }
 
    SafeArrayGetLBound(args, 1, &lbound);
    SafeArrayGetUBound(args, 1, &ubound);
 
    hres = SafeArrayAccessData(args, (void**)&argv);
    if(FAILED(hres))
        return hres;
 
    argc = ubound-lbound+1;
    if (!(strs = calloc(argc, sizeof(*strs))))
    {
        SafeArrayUnaccessData(args);
        return E_OUTOFMEMORY;
    }
 
    /* Len of spaces between arguments. */
    len = argc-1;
 
    for(i=0; i < argc; i++) {
        hres = to_string(argv+i, strs+i);
        if(FAILED(hres))
            break;
 
        len += SysStringLen(strs[i]);
    }
 
    SafeArrayUnaccessData(args);
    if(SUCCEEDED(hres)) {
        ptr = output = malloc((len+1)*sizeof(WCHAR));
        if(output) {
            for(i=0; i < argc; i++) {
                if(i)
                    *ptr++ = ' ';
                len = SysStringLen(strs[i]);
                memcpy(ptr, strs[i], len*sizeof(WCHAR));
                ptr += len;
            }
            *ptr = 0;
        }else {
            hres = E_OUTOFMEMORY;
        }
    }
 
    for(i=0; i < argc; i++)
        SysFreeString(strs[i]);
    free(strs);
    if(FAILED(hres))
        return hres;
 
    print_string(output);
 
    free(output);
    return S_OK;
}

◆ Host_get_Application()

static HRESULT WINAPI Host_get_Application	(	IHost *	iface,
		IDispatch **	out_Dispatch
	)

static

Definition at line 165 of file host.c.

{
    WINE_TRACE("(%p)\n", out_Dispatch);
 
    *out_Dispatch = (IDispatch*)&host_obj;
    return S_OK;
}

◆ Host_get_Arguments()

static HRESULT WINAPI Host_get_Arguments	(	IHost *	iface,
		IArguments2 **	out_Arguments
	)

static

Definition at line 249 of file host.c.

{
    WINE_TRACE("(%p)\n", out_Arguments);
 
    *out_Arguments = &arguments_obj;
    return S_OK;
}

◆ Host_get_BuildVersion()

static HRESULT WINAPI Host_get_BuildVersion	(	IHost *	iface,
		int *	out_Build
	)

static

Definition at line 266 of file host.c.

{
    WINE_TRACE("(%p)\n", out_Build);
 
    *out_Build = BUILDVERSION;
    return S_OK;
}

◆ Host_get_FullName()

static HRESULT WINAPI Host_get_FullName	(	IHost *	iface,
		BSTR *	out_Path
	)

static

Definition at line 173 of file host.c.

{
    WCHAR fullPath[MAX_PATH];
 
    WINE_TRACE("(%p)\n", out_Path);
 
    if(GetModuleFileNameW(NULL, fullPath, ARRAY_SIZE(fullPath)) == 0)
        return E_FAIL;
    if(!(*out_Path = SysAllocString(fullPath)))
        return E_OUTOFMEMORY;
    return S_OK;
}

◆ Host_get_Interactive()

static HRESULT WINAPI Host_get_Interactive	(	IHost *	iface,
		VARIANT_BOOL *	out_Interactive
	)

static

Definition at line 203 of file host.c.

{
    WINE_TRACE("(%p)\n", out_Interactive);
 
    *out_Interactive = wshInteractive;
    return S_OK;
}

◆ Host_get_Name()

static HRESULT WINAPI Host_get_Name	(	IHost *	iface,
		BSTR *	out_Name
	)

static

Definition at line 156 of file host.c.

{
    WINE_TRACE("(%p)\n", out_Name);
 
    if(!(*out_Name = SysAllocString(L"Windows Script Host")))
    return E_OUTOFMEMORY;
    return S_OK;
}

◆ Host_get_Path()

static HRESULT WINAPI Host_get_Path	(	IHost *	iface,
		BSTR *	out_Path
	)

static

Definition at line 186 of file host.c.

{
    WCHAR path[MAX_PATH];
    int howMany;
    WCHAR *pos;
 
    WINE_TRACE("(%p)\n", out_Path);
 
    if(GetModuleFileNameW(NULL, path, ARRAY_SIZE(path)) == 0)
        return E_FAIL;
    pos = wcsrchr(path, '\\');
    howMany = pos - path;
    if(!(*out_Path = SysAllocStringLen(path, howMany)))
        return E_OUTOFMEMORY;
    return S_OK;
}

◆ Host_get_ScriptFullName()

static HRESULT WINAPI Host_get_ScriptFullName	(	IHost *	iface,
		BSTR *	out_ScriptFullName
	)

static

Definition at line 240 of file host.c.

{
    WINE_TRACE("(%p)\n", out_ScriptFullName);
 
    if(!(*out_ScriptFullName = SysAllocString(scriptFullName)))
        return E_OUTOFMEMORY;
    return S_OK;
}

◆ Host_get_ScriptName()

static HRESULT WINAPI Host_get_ScriptName	(	IHost *	iface,
		BSTR *	out_ScriptName
	)

static

Definition at line 227 of file host.c.

{
    WCHAR *scriptName;
 
    WINE_TRACE("(%p)\n", out_ScriptName);
 
    scriptName = wcsrchr(scriptFullName, '\\');
    ++scriptName;
    if(!(*out_ScriptName = SysAllocString(scriptName)))
        return E_OUTOFMEMORY;
    return S_OK;
}

◆ Host_get_StdErr()

static HRESULT WINAPI Host_get_StdErr	(	IHost *	iface,
		ITextStream **	ppts
	)

static

Definition at line 435 of file host.c.

{
    WINE_FIXME("(%p)\n", ppts);
    return E_NOTIMPL;
}

◆ Host_get_StdIn()

static HRESULT WINAPI Host_get_StdIn	(	IHost *	iface,
		ITextStream **	ppts
	)

static

Definition at line 423 of file host.c.

{
    WINE_FIXME("(%p)\n", ppts);
    return E_NOTIMPL;
}

◆ Host_get_StdOut()

static HRESULT WINAPI Host_get_StdOut	(	IHost *	iface,
		ITextStream **	ppts
	)

static

Definition at line 429 of file host.c.

{
    WINE_FIXME("(%p)\n", ppts);
    return E_NOTIMPL;
}

◆ Host_get_Timeout()

static HRESULT WINAPI Host_get_Timeout	(	IHost *	iface,
		LONG *	out_Timeout
	)

static

Definition at line 274 of file host.c.

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

◆ Host_get_Version()

static HRESULT WINAPI Host_get_Version	(	IHost *	iface,
		BSTR *	out_Version
	)

static

Definition at line 257 of file host.c.

{
    WINE_TRACE("(%p)\n", out_Version);
 
    if(!(*out_Version = SysAllocString(wshVersionW)))
    return E_OUTOFMEMORY;
    return S_OK;
}

◆ Host_GetIDsOfNames()

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

static

Definition at line 137 of file host.c.

{
    WINE_TRACE("(%s %p %d %lx %p)\n", wine_dbgstr_guid(riid), rgszNames,
        cNames, lcid, rgDispId);
 
    return ITypeInfo_GetIDsOfNames(host_ti, rgszNames, cNames, rgDispId);
}

◆ Host_GetObject()

static HRESULT WINAPI Host_GetObject	(	IHost *	iface,
		BSTR	Pathname,
		BSTR	ProgID,
		BSTR	Prefix,
		IDispatch **	out_Dispatch
	)

static

Definition at line 391 of file host.c.

{
    WINE_FIXME("(%s %s %s %p)\n", wine_dbgstr_w(Pathname), wine_dbgstr_w(ProgID),
        wine_dbgstr_w(Prefix), out_Dispatch);
    return E_NOTIMPL;
}

◆ Host_GetTypeInfo()

static HRESULT WINAPI Host_GetTypeInfo	(	IHost *	iface,
		UINT	iTInfo,
		LCID	lcid,
		ITypeInfo **	ppTInfo
	)

static

Definition at line 127 of file host.c.

{
    WINE_TRACE("(%x %lx %p\n", iTInfo, lcid, ppTInfo);
 
    ITypeInfo_AddRef(host_ti);
    *ppTInfo = host_ti;
    return S_OK;
}

◆ Host_GetTypeInfoCount()

static HRESULT WINAPI Host_GetTypeInfoCount	(	IHost *	iface,
		UINT *	pctinfo
	)

static

Definition at line 120 of file host.c.

{
    WINE_TRACE("(%p)\n", pctinfo);
    *pctinfo = 1;
    return S_OK;
}

◆ Host_Invoke()

static HRESULT WINAPI Host_Invoke	(	IHost *	iface,
		DISPID	dispIdMember,
		REFIID	riid,
		LCID	lcid,
		WORD	wFlags,
		DISPPARAMS *	pDispParams,
		VARIANT *	pVarResult,
		EXCEPINFO *	pExcepInfo,
		UINT *	puArgErr
	)

static

Definition at line 146 of file host.c.

{
    WINE_TRACE("(%ld %p %p)\n", dispIdMember, pDispParams, pVarResult);
 
    return ITypeInfo_Invoke(host_ti, iface, dispIdMember, wFlags, pDispParams,
            pVarResult, pExcepInfo, puArgErr);
}

◆ Host_put_Interactive()

static HRESULT WINAPI Host_put_Interactive	(	IHost *	iface,
		VARIANT_BOOL	v
	)

static

Definition at line 211 of file host.c.

{
    WINE_TRACE("(%x)\n", v);
 
    wshInteractive = v;
    return S_OK;
}

◆ Host_put_Timeout()

static HRESULT WINAPI Host_put_Timeout	(	IHost *	iface,
		LONG	v
	)

static

Definition at line 282 of file host.c.

{
    TRACE("(%ld)\n", v);
 
    if(v < 0)
        return E_INVALIDARG;
    wshTimeout = v;
    schedule_timeout(v);
    return S_OK;
}

◆ Host_QueryInterface()

static HRESULT WINAPI Host_QueryInterface	(	IHost *	iface,
		REFIID	riid,
		void **	ppv
	)

static

Definition at line 95 of file host.c.

{
    WINE_TRACE("(%s %p)\n", wine_dbgstr_guid(riid), ppv);
 
    if(IsEqualGUID(&IID_IUnknown, riid)
       || IsEqualGUID(&IID_IDispatch, riid)
       || IsEqualGUID(&IID_IHost, riid)) {
        *ppv = iface;
        return S_OK;
    }
 
    *ppv = NULL;
    return E_NOINTERFACE;
}

◆ Host_Quit()

static HRESULT WINAPI Host_Quit	(	IHost *	iface,
		int	ExitCode
	)

static

Definition at line 219 of file host.c.

{
    FIXME("(%d) semi-stub: no script engine clean up\n", ExitCode);
 
    ExitProcess(ExitCode);
    return S_OK;
}

◆ Host_Release()

static ULONG WINAPI Host_Release ( IHost * iface )

static

Definition at line 115 of file host.c.

{
    return 1;
}

◆ Host_Sleep()

static HRESULT WINAPI Host_Sleep	(	IHost *	iface,
		LONG	Time
	)

static

Definition at line 405 of file host.c.

{
#ifdef __REACTOS__
    UNREFERENCED_PARAMETER(iface);
#endif
    TRACE("(%ld)\n", Time);
    if (Time < 0)
        return E_INVALIDARG;
    Sleep(Time);
    return S_OK;
}

◆ print_string()

static void print_string ( const WCHAR * string )

static

Definition at line 67 of file host.c.

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

Referenced by Host_Echo().

◆ to_string()

static HRESULT to_string	(	VARIANT *	src,
		BSTR *	dst
	)

static

Definition at line 46 of file host.c.

{
    VARIANT v;
    HRESULT hres;
 
    if(V_VT(src) == VT_NULL) {
        *dst = SysAllocString(L"null");
        return *dst ? S_OK : E_OUTOFMEMORY;
    }
 
    V_VT(&v) = VT_EMPTY;
    hres = VariantChangeType(&v, src, 0, VT_BSTR);
    if(FAILED(hres)) {
        WARN("Could not convert argument %s to string\n", debugstr_variant(src));
        return hres;
    }
 
    *dst = V_BSTR(&v);
    return S_OK;
}

Referenced by array_join(), Array_join(), Array_toString(), construct_function(), create_regexp_var(), DateConstr_parse(), do_attribute_tag_format(), error_constr(), Error_toString(), get_string_val(), Host_Echo(), interp_add(), interp_delete(), interp_to_string(), localize_number(), maybe_to_primitive(), Number_toExponential(), Number_toFixed(), Number_toPrecision(), Number_toString(), Object_hasOwnProperty(), rep_call(), set_error_value(), sort_cmp(), String_concat(), String_match(), StringConstr_value(), and to_locale_string().

◆ WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL ( wscript )

Variable Documentation

◆ host_obj

IHost host_obj = { &HostVtbl }

Definition at line 474 of file host.c.

Referenced by ActiveScriptSite_GetItemInfo(), get_host_dispatch(), Host_get_Application(), init_host_object(), and WineJScript_InitHostObject().

◆ HostVtbl

const IHostVtbl HostVtbl

static

Definition at line 441 of file host.c.

◆ wshInteractive

VARIANT_BOOL wshInteractive

Initial value:

=
 
    VARIANT_TRUE

Definition at line 37 of file host.c.

Referenced by Host_get_Interactive(), Host_put_Interactive(), output_formatstring(), print_error(), print_string(), set_host_properties(), and wWinMain().

◆ wshTimeout

LONG wshTimeout = 0

Definition at line 44 of file host.c.

Referenced by Host_get_Timeout(), Host_put_Timeout(), set_host_properties(), and wWinMain().

◆ wshVersionW

const WCHAR wshVersionW[] = L"5.8"

static

Definition at line 35 of file host.c.

Referenced by Host_get_Version().

Macros

Functions

Variables

Macro Definition Documentation

◆ BUILDVERSION

◆ COBJMACROS

◆ CONST_VTABLE

Function Documentation

◆ Host_AddRef()

◆ Host_ConnectObject()

◆ Host_CreateObject()

◆ Host_DisconnectObject()

◆ Host_Echo()

◆ Host_get_Application()

◆ Host_get_Arguments()

◆ Host_get_BuildVersion()

◆ Host_get_FullName()

◆ Host_get_Interactive()

◆ Host_get_Name()

◆ Host_get_Path()

◆ Host_get_ScriptFullName()

◆ Host_get_ScriptName()

◆ Host_get_StdErr()

◆ Host_get_StdIn()

◆ Host_get_StdOut()

◆ Host_get_Timeout()

◆ Host_get_Version()

◆ Host_GetIDsOfNames()

◆ Host_GetObject()

◆ Host_GetTypeInfo()

◆ Host_GetTypeInfoCount()

◆ Host_Invoke()

◆ Host_put_Interactive()

◆ Host_put_Timeout()

◆ Host_QueryInterface()

◆ Host_Quit()

◆ Host_Release()

◆ Host_Sleep()

◆ print_string()

◆ to_string()

◆ WINE_DEFAULT_DEBUG_CHANNEL()

Variable Documentation

◆ host_obj

◆ HostVtbl

◆ wshInteractive

◆ wshTimeout

◆ wshVersionW