host.c File Reference

#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:

Go to the source code of this file.

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

#define BUILDVERSION   16535

Definition at line 36 of file host.c.

Referenced by Host_get_BuildVersion().

#define COBJMACROS

Definition at line 21 of file host.c.

#define CONST_VTABLE

Definition at line 22 of file host.c.

Function Documentation

static ULONG WINAPI Host_AddRef ( IHost *  iface )

static

Definition at line 117 of file host.c.

{
    return 2;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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;
}

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);
}

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;
}

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;
}

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;
}

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);
}

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;
}

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;
}

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;
}

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;
}

static ULONG WINAPI Host_Release ( IHost *  iface )

static

Definition at line 122 of file host.c.

{
    return 1;
}

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;
}

static void print_string ( const WCHAR *  string )

static

Definition at line 71 of file host.c.

Referenced by Host_Echo().

{
    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);
}

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

static

Definition at line 48 of file host.c.

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().

{
    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;
}

WINE_DEFAULT_DEBUG_CHANNEL

(

wscript

)

Variable Documentation

IHost host_obj = { &HostVtbl }

Definition at line 472 of file host.c.

Referenced by ActiveScriptSite_GetItemInfo(), and Host_get_Application().

const IHostVtbl HostVtbl

static

Definition at line 439 of file host.c.

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().

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().

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

static

Definition at line 39 of file host.c.

Referenced by Host_get_Version().