#include <stdarg.h>
#include <windef.h>
#include <winbase.h>
#include <ole2.h>
#include "wscript.h"
#include <wine/debug.h>
#include <wine/heap.h>
#include <wine/unicode.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 36 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 117 of file host.c.

 {
     return 2;
 }

◆ Host_ConnectObject()

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

static

Definition at line 415 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 403 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;
 #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 172 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 256 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 273 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 180 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 210 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 163 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 193 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 = strrchrW(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 247 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 234 of file host.c.

 {
     WCHAR *scriptName;
 
     WINE_TRACE("(%p)\n", out_ScriptName);
 
     scriptName = strrchrW(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 433 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 421 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 427 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 281 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 264 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 144 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 395 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 134 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 127 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 153 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 218 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 287 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 102 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 226 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 122 of file host.c.

 {
     return 1;
 }

◆ Host_Sleep()

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

static

Definition at line 409 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 71 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 = strlenW(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 48 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 472 of file host.c.

Referenced by ActiveScriptSite_GetItemInfo(), and Host_get_Application().

◆ HostVtbl

const IHostVtbl HostVtbl

static

Definition at line 439 of file host.c.

◆ wshInteractive

VARIANT_BOOL wshInteractive

Initial value:

=
    VARIANT_TRUE

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

Referenced by Host_get_Name().

◆ wshVersionW

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

static

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