#include <stdarg.h>
#include <windef.h>
#include <winbase.h>
#include <ole2.h>
#include "wscript.h"
#include <wine/debug.h>
#include <wine/heap.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	wshNameW [] = {'W','i','n','d','o','w','s',' ','S','c','r','i','p','t',' ','H','o','s','t',0}

static const WCHAR	wshVersionW [] = {'5','.','8'}

VARIANT_BOOL	wshInteractive

static const IHostVtbl	HostVtbl

IHost	host_obj = { &HostVtbl }

Macro Definition Documentation

◆ BUILDVERSION

#define BUILDVERSION 16535

Definition at line 35 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 116 of file host.c.

{
    return 2;
}

◆ Host_ConnectObject()

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

static

Definition at line 414 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 292 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 402 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 320 of file host.c.

{
    WCHAR *output = NULL, *ptr;
    unsigned argc, i, len;
#ifdef __REACTOS__
    LONG ubound, lbound;
#else
    int ubound, lbound;
#endif
    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;
    strs = heap_alloc_zero(argc*sizeof(*strs));
    if(!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 = heap_alloc((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]);
    heap_free(strs);
    if(FAILED(hres))
        return hres;
 
    print_string(output);
 
    heap_free(output);
    return S_OK;
}

◆ Host_get_Application()

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

static

Definition at line 171 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 255 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 272 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 179 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 209 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 162 of file host.c.

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

◆ Host_get_Path()

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

static

Definition at line 192 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 246 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 233 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 432 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 420 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 426 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 280 of file host.c.

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

◆ Host_get_Version()

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

static

Definition at line 263 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 143 of file host.c.

{
    WINE_TRACE("(%s %p %d %x %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 394 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 133 of file host.c.

{
    WINE_TRACE("(%x %x %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 126 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 152 of file host.c.

{
    WINE_TRACE("(%d %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 217 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 286 of file host.c.

{
    WINE_FIXME("(%d)\n", v);
    return E_NOTIMPL;
}

◆ Host_QueryInterface()

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

static

Definition at line 101 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 225 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 121 of file host.c.

{
    return 1;
}

◆ Host_Sleep()

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

static

Definition at line 408 of file host.c.

{
    WINE_FIXME("(%d)\n", Time);
    return E_NOTIMPL;
}

◆ print_string()

static void print_string ( const WCHAR * string )

static

Definition at line 70 of file host.c.

{
    DWORD count, ret, len, lena;
    char *buf;
 
    if(wshInteractive) {
        static const WCHAR windows_script_hostW[] =
            {'W','i','n','d','o','w','s',' ','S','c','r','i','p','t',' ','H','o','s','t',0};
        MessageBoxW(NULL, string, windows_script_hostW, MB_OK);
        return;
    }
 
    len = lstrlenW(string);
    ret = WriteConsoleW(GetStdHandle(STD_OUTPUT_HANDLE), string, len, &count, NULL);
    if(ret) {
        static const WCHAR crnlW[] = {'\r','\n'};
        WriteConsoleW(GetStdHandle(STD_OUTPUT_HANDLE), crnlW, ARRAY_SIZE(crnlW), &count, NULL);
        return;
    }
 
    lena = WideCharToMultiByte(GetConsoleOutputCP(), 0, string, len, NULL, 0, NULL, NULL);
    buf = heap_alloc(len);
    if(!buf)
        return;
 
    WideCharToMultiByte(GetConsoleOutputCP(), 0, string, len, buf, lena, NULL, NULL);
    WriteFile(GetStdHandle(STD_OUTPUT_HANDLE), buf, lena, &count, FALSE);
    heap_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 47 of file host.c.

{
    VARIANT v;
    HRESULT hres;
 
    static const WCHAR nullW[] = {'n','u','l','l',0};
 
    if(V_VT(src) == VT_NULL) {
        *dst = SysAllocString(nullW);
        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 add_eval(), array_join(), construct_function(), DateConstr_parse(), do_attribute_tag_format(), error_constr(), Error_toString(), get_string_val(), Host_Echo(), interp_delete(), maybe_to_primitive(), Number_toExponential(), Number_toFixed(), Number_toPrecision(), Number_toString(), Object_hasOwnProperty(), rep_call(), sort_cmp(), String_concat(), String_match(), and StringConstr_value().

◆ WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL ( wscript )

Variable Documentation

◆ host_obj

IHost host_obj = { &HostVtbl }

Definition at line 471 of file host.c.

Referenced by ActiveScriptSite_GetItemInfo(), and Host_get_Application().

◆ HostVtbl

const IHostVtbl HostVtbl

static

Definition at line 438 of file host.c.

◆ wshInteractive

VARIANT_BOOL wshInteractive

Initial value:

=
 
    VARIANT_TRUE

Definition at line 40 of file host.c.

Referenced by Host_get_Interactive(), Host_put_Interactive(), print_string(), and set_host_properties().

◆ wshNameW

const WCHAR wshNameW[] = {'W','i','n','d','o','w','s',' ','S','c','r','i','p','t',' ','H','o','s','t',0}

static

Definition at line 37 of file host.c.

Referenced by Host_get_Name().

◆ wshVersionW

const WCHAR wshVersionW[] = {'5','.','8'}

static

Definition at line 38 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

◆ wshNameW

◆ wshVersionW