global.c File Reference

#include <assert.h>
#include <math.h>
#include "vbscript.h"
#include "vbscript_defs.h"
#include "mshtmhst.h"
#include "objsafe.h"
#include "wchar.h"
#include "wine/debug.h"

Include dependency graph for global.c:

Go to the source code of this file.

Classes
struct	string_constant_t
struct	_builtin_prop_t

Macros
#define	VB_E_CANNOT_CREATE_OBJ   0x800a01ad
#define	VB_E_MK_PARSE_ERROR   0x800a01b0
#define	BP_GET   1
#define	BP_GETPUT   2

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (vbscript)
static BuiltinDisp *	impl_from_IDispatch (IDispatch *iface)
static HRESULT WINAPI	Builtin_QueryInterface (IDispatch *iface, REFIID riid, void **ppv)
static ULONG WINAPI	Builtin_AddRef (IDispatch *iface)
static ULONG WINAPI	Builtin_Release (IDispatch *iface)
static HRESULT WINAPI	Builtin_GetTypeInfoCount (IDispatch *iface, UINT *pctinfo)
static HRESULT WINAPI	Builtin_GetTypeInfo (IDispatch *iface, UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
HRESULT	get_builtin_id (BuiltinDisp *disp, const WCHAR *name, DISPID *id)
static HRESULT WINAPI	Builtin_GetIDsOfNames (IDispatch *iface, REFIID riid, LPOLESTR *names, UINT name_cnt, LCID lcid, DISPID *ids)
static HRESULT WINAPI	Builtin_Invoke (IDispatch *iface, DISPID id, REFIID riid, LCID lcid, WORD flags, DISPPARAMS *dp, VARIANT *res, EXCEPINFO *ei, UINT *err)
static HRESULT	create_builtin_dispatch (script_ctx_t *ctx, const builtin_prop_t *members, size_t member_cnt, BuiltinDisp **ret)
static IInternetHostSecurityManager *	get_sec_mgr (script_ctx_t *ctx)
static HRESULT	return_string (VARIANT *res, const WCHAR *str)
static HRESULT	return_bstr (VARIANT *res, BSTR str)
static HRESULT	return_bool (VARIANT *res, BOOL val)
static HRESULT	return_short (VARIANT *res, short val)
static HRESULT	return_int (VARIANT *res, int val)
static HRESULT	return_double (VARIANT *res, double val)
static HRESULT	return_float (VARIANT *res, float val)
static HRESULT	return_null (VARIANT *res)
static HRESULT	return_date (VARIANT *res, double date)
HRESULT	to_int (VARIANT *v, int *ret)
static HRESULT	to_double (VARIANT *v, double *ret)
static HRESULT	to_float (VARIANT *v, float *ret)
static HRESULT	to_string (VARIANT *v, BSTR *ret)
static HRESULT	to_system_time (VARIANT *v, SYSTEMTIME *st)
static HRESULT	set_object_site (script_ctx_t *ctx, IUnknown *obj)
static IUnknown *	create_object (script_ctx_t *ctx, const WCHAR *progid)
static HRESULT	show_msgbox (script_ctx_t *ctx, BSTR prompt, unsigned type, BSTR orig_title, VARIANT *res)
static HRESULT	Global_CCur (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_CInt (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_CLng (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_CBool (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_CByte (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_CDate (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_CDbl (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_CSng (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_CStr (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static WCHAR	hex_char (unsigned n)
static HRESULT	Global_Hex (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Oct (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_VarType (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_IsDate (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_IsEmpty (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_IsNull (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_IsNumeric (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_IsArray (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_IsObject (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Atn (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Cos (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Sin (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Tan (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Exp (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Log (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Sqr (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static unsigned int	get_next_rnd (int value)
static HRESULT	Global_Randomize (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Rnd (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Timer (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_LBound (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_UBound (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_RGB (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Len (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_LenB (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Left (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_LeftB (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Right (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_RightB (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Mid (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_MidB (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_StrComp (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_LCase (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_UCase (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_LTrim (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_RTrim (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Trim (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Space (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_String (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_InStr (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_InStrB (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_AscB (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_ChrB (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Asc (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Chr (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_AscW (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_ChrW (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Abs (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Fix (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Int (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Sgn (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Now (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Date (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Time (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Day (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Month (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Weekday (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Year (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Hour (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Minute (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Second (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_SetLocale (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_DateValue (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_TimeValue (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_DateSerial (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_TimeSerial (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_InputBox (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_MsgBox (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_CreateObject (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_GetObject (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_DateAdd (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_DateDiff (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_DatePart (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_TypeName (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Array (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Erase (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Filter (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Join (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Split (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Replace (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_StrReverse (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_InStrRev (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_LoadPicture (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_ScriptEngine (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_ScriptEngineMajorVersion (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_ScriptEngineMinorVersion (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_ScriptEngineBuildVersion (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_FormatNumber (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_FormatCurrency (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_FormatPercent (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_GetLocale (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_FormatDateTime (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_WeekdayName (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_MonthName (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Round (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Escape (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Unescape (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Eval (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Execute (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_ExecuteGlobal (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_GetRef (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Err (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	err_string_prop (BSTR *prop, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Err_Description (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Err_HelpContext (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Err_HelpFile (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Err_Number (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Err_Source (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Err_Clear (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
static HRESULT	Err_Raise (BuiltinDisp *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
void	detach_global_objects (script_ctx_t *ctx)
HRESULT	init_global (script_ctx_t *ctx)

Variables
const GUID	GUID_CUSTOM_CONFIRMOBJECTSAFETY
static const IDispatchVtbl	BuiltinDispVtbl
static const string_constant_t	vbCr = {1, {'\r'}}
static const string_constant_t	vbCrLf = {2, {'\r','\n'}}
static const string_constant_t	vbNewLine = {2, {'\r','\n'}}
static const string_constant_t	vbFormFeed = {1, {0xc}}
static const string_constant_t	vbLf = {1, {'\n'}}
static const string_constant_t	vbNullChar = {1}
static const string_constant_t	vbNullString = {0}
static const string_constant_t	vbTab = {1, {'\t'}}
static const string_constant_t	vbVerticalTab = {1, {0xb}}
static const builtin_prop_t	global_props []
static const builtin_prop_t	err_props []

Macro Definition Documentation

BP_GET

#define BP_GET   1

Definition at line 45 of file global.c.

BP_GETPUT

#define BP_GETPUT   2

Definition at line 46 of file global.c.

VB_E_CANNOT_CREATE_OBJ

#define VB_E_CANNOT_CREATE_OBJ   0x800a01ad

Definition at line 38 of file global.c.

VB_E_MK_PARSE_ERROR

#define VB_E_MK_PARSE_ERROR   0x800a01b0

Definition at line 39 of file global.c.

Function Documentation

Builtin_AddRef()

static ULONG WINAPI Builtin_AddRef ( IDispatch *  iface )

static

Definition at line 87 of file global.c.

{
    BuiltinDisp *This = impl_from_IDispatch(iface);
    LONG ref = InterlockedIncrement(&This->ref);
 
    TRACE("(%p) ref=%ld\n", This, ref);
 
    return ref;
}

Builtin_GetIDsOfNames()

static HRESULT WINAPI Builtin_GetIDsOfNames ( IDispatch *  iface, REFIID  riid, LPOLESTR *  names, UINT  name_cnt, LCID  lcid, DISPID *  ids  )

static

Definition at line 149 of file global.c.

{
    BuiltinDisp *This = impl_from_IDispatch(iface);
    unsigned i;
    HRESULT hres;
 
    TRACE("(%p)->(%s %p %u %lu %p)\n", This, debugstr_guid(riid), names, name_cnt, lcid, ids);
 
    if(!This->ctx) {
        FIXME("NULL context\n");
        return E_UNEXPECTED;
    }
 
    for(i = 0; i < name_cnt; i++) {
        hres = get_builtin_id(This, names[i], &ids[i]);
        if(FAILED(hres))
            return hres;
    }
 
    return S_OK;
}

Builtin_GetTypeInfo()

static HRESULT WINAPI Builtin_GetTypeInfo ( IDispatch *  iface, UINT  iTInfo, LCID  lcid, ITypeInfo **  ppTInfo  )

static

Definition at line 120 of file global.c.

{
    BuiltinDisp *This = impl_from_IDispatch(iface);
    TRACE("(%p)->(%u %lu %p)\n", This, iTInfo, lcid, ppTInfo);
    return DISP_E_BADINDEX;
}

Builtin_GetTypeInfoCount()

static HRESULT WINAPI Builtin_GetTypeInfoCount ( IDispatch *  iface, UINT *  pctinfo  )

static

Definition at line 112 of file global.c.

{
    BuiltinDisp *This = impl_from_IDispatch(iface);
    TRACE("(%p)->(%p)\n", This, pctinfo);
    *pctinfo = 0;
    return S_OK;
}

Builtin_Invoke()

static HRESULT WINAPI Builtin_Invoke ( IDispatch *  iface, DISPID  id, REFIID  riid, LCID  lcid, WORD  flags, DISPPARAMS *  dp, VARIANT *  res, EXCEPINFO *  ei, UINT *  err  )

static

Definition at line 172 of file global.c.

{
    BuiltinDisp *This = impl_from_IDispatch(iface);
    const builtin_prop_t *prop;
    VARIANT args_buf[8], *args;
    unsigned argn, i;
    HRESULT hres;
 
    TRACE("(%p)->(%ld %s %ld %d %p %p %p %p)\n", This, id, debugstr_guid(riid), lcid, flags, dp, res, ei, err);
 
    if(!This->ctx) {
        FIXME("NULL context\n");
        return E_UNEXPECTED;
    }
 
    if(id >= This->member_cnt || (!This->members[id].proc && !This->members[id].flags))
        return DISP_E_MEMBERNOTFOUND;
    prop = This->members + id;
 
    switch(flags) {
    case DISPATCH_PROPERTYGET:
        if(!(prop->flags & (BP_GET|BP_GETPUT))) {
            FIXME("property does not support DISPATCH_PROPERTYGET\n");
            return E_FAIL;
        }
        break;
    case DISPATCH_PROPERTYGET|DISPATCH_METHOD:
        if(!prop->proc && prop->flags == BP_GET) {
            const int vt = prop->min_args, val = prop->max_args;
            switch(vt) {
            case VT_I2:
                V_VT(res) = VT_I2;
                V_I2(res) = val;
                break;
            case VT_I4:
                V_VT(res) = VT_I4;
                V_I4(res) = val;
                break;
            case VT_BSTR: {
                const string_constant_t *str = (const string_constant_t*)prop->max_args;
                BSTR ret;
 
                ret = SysAllocStringLen(str->buf, str->len);
                if(!ret)
                    return E_OUTOFMEMORY;
 
                V_VT(res) = VT_BSTR;
                V_BSTR(res) = ret;
                break;
            }
            DEFAULT_UNREACHABLE;
            }
            return S_OK;
        }
        break;
    case DISPATCH_METHOD:
        if(prop->flags & (BP_GET|BP_GETPUT)) {
            FIXME("Call on property\n");
            return E_FAIL;
        }
        break;
    case DISPATCH_PROPERTYPUT:
        if(!(prop->flags & BP_GETPUT)) {
            FIXME("property does not support DISPATCH_PROPERTYPUT\n");
            return E_FAIL;
        }
 
        FIXME("call put\n");
        return E_NOTIMPL;
    default:
        FIXME("unsupported flags %x\n", flags);
        return E_NOTIMPL;
    }
 
    argn = arg_cnt(dp);
 
    if(argn < prop->min_args || argn > (prop->max_args ? prop->max_args : prop->min_args)) {
        WARN("invalid number of arguments\n");
        return MAKE_VBSERROR(VBSE_FUNC_ARITY_MISMATCH);
    }
 
    if(argn <= ARRAY_SIZE(args_buf)) {
        args = args_buf;
    }else {
        args = malloc(argn * sizeof(*args));
        if(!args)
            return E_OUTOFMEMORY;
    }
 
    for(i=0; i < argn; i++) {
        if(V_VT(dp->rgvarg+dp->cArgs-i-1) == (VT_BYREF|VT_VARIANT))
            args[i] = *V_VARIANTREF(dp->rgvarg+dp->cArgs-i-1);
        else
            args[i] = dp->rgvarg[dp->cArgs-i-1];
    }
 
    hres = prop->proc(This, args, dp->cArgs, res);
    if(args != args_buf)
        free(args);
    return hres;
}

Builtin_QueryInterface()

static HRESULT WINAPI Builtin_QueryInterface ( IDispatch *  iface, REFIID  riid, void **  ppv  )

static

Definition at line 66 of file global.c.

{
    BuiltinDisp *This = impl_from_IDispatch(iface);
 
    if(IsEqualGUID(&IID_IUnknown, riid)) {
        TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
        *ppv = &This->IDispatch_iface;
    }else if(IsEqualGUID(&IID_IDispatch, riid)) {
        TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
        *ppv = &This->IDispatch_iface;
    }else {
        if(!IsEqualGUID(riid, &IID_IDispatchEx))
            WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
        *ppv = NULL;
        return E_NOINTERFACE;
    }
 
    IUnknown_AddRef((IUnknown*)*ppv);
    return S_OK;
}

Builtin_Release()

static ULONG WINAPI Builtin_Release ( IDispatch *  iface )

static

Definition at line 97 of file global.c.

{
    BuiltinDisp *This = impl_from_IDispatch(iface);
    LONG ref = InterlockedDecrement(&This->ref);
 
    TRACE("(%p) ref=%ld\n", This, ref);
 
    if(!ref) {
        assert(!This->ctx);
        free(This);
    }
 
    return ref;
}

create_builtin_dispatch()

static HRESULT create_builtin_dispatch ( script_ctx_t *  ctx, const builtin_prop_t *  members, size_t  member_cnt, BuiltinDisp **  ret  )

static

Definition at line 285 of file global.c.

{
    BuiltinDisp *disp;
 
    if(!(disp = malloc(sizeof(*disp))))
        return E_OUTOFMEMORY;
 
    disp->IDispatch_iface.lpVtbl = &BuiltinDispVtbl;
    disp->ref = 1;
    disp->members = members;
    disp->member_cnt = member_cnt;
    disp->ctx = ctx;
 
    *ret = disp;
    return S_OK;
}

Referenced by init_global().

create_object()

static IUnknown * create_object ( script_ctx_t *  ctx, const WCHAR *  progid  )

static

Definition at line 509 of file global.c.

{
    IInternetHostSecurityManager *secmgr = NULL;
    struct CONFIRMSAFETY cs;
    IClassFactoryEx *cfex;
    IClassFactory *cf;
    DWORD policy_size;
    BYTE *bpolicy;
    IUnknown *obj;
    DWORD policy;
    GUID guid;
    HRESULT hres;
 
    hres = CLSIDFromProgID(progid, &guid);
    if(FAILED(hres))
        return NULL;
 
    TRACE("GUID %s\n", debugstr_guid(&guid));
 
    if(ctx->safeopt & INTERFACE_USES_SECURITY_MANAGER) {
        secmgr = get_sec_mgr(ctx);
        if(!secmgr)
            return NULL;
 
        policy = 0;
        hres = IInternetHostSecurityManager_ProcessUrlAction(secmgr, URLACTION_ACTIVEX_RUN,
                (BYTE*)&policy, sizeof(policy), (BYTE*)&guid, sizeof(GUID), 0, 0);
        if(FAILED(hres) || policy != URLPOLICY_ALLOW)
            return NULL;
    }
 
    hres = CoGetClassObject(&guid, CLSCTX_INPROC_SERVER|CLSCTX_LOCAL_SERVER, NULL, &IID_IClassFactory, (void**)&cf);
    if(FAILED(hres))
        return NULL;
 
    hres = IClassFactory_QueryInterface(cf, &IID_IClassFactoryEx, (void**)&cfex);
    if(SUCCEEDED(hres)) {
        FIXME("Use IClassFactoryEx\n");
        IClassFactoryEx_Release(cfex);
    }
 
    hres = IClassFactory_CreateInstance(cf, NULL, &IID_IUnknown, (void**)&obj);
    if(FAILED(hres))
        return NULL;
 
    if(secmgr) {
        cs.clsid = guid;
        cs.pUnk = obj;
        cs.dwFlags = 0;
        hres = IInternetHostSecurityManager_QueryCustomPolicy(secmgr, &GUID_CUSTOM_CONFIRMOBJECTSAFETY,
                &bpolicy, &policy_size, (BYTE*)&cs, sizeof(cs), 0);
        if(SUCCEEDED(hres)) {
            policy = policy_size >= sizeof(DWORD) ? *(DWORD*)bpolicy : URLPOLICY_DISALLOW;
            CoTaskMemFree(bpolicy);
        }
 
        if(FAILED(hres) || policy != URLPOLICY_ALLOW) {
            IUnknown_Release(obj);
            return NULL;
        }
    }
 
    hres = set_object_site(ctx, obj);
    if(FAILED(hres)) {
        IUnknown_Release(obj);
        return NULL;
    }
 
    return obj;
}

Referenced by Global_CreateObject().

detach_global_objects()

void detach_global_objects

(

script_ctx_t *

ctx

)

Definition at line 3602 of file global.c.

{
    if(ctx->err_obj) {
        ctx->err_obj->ctx = NULL;
        IDispatch_Release(&ctx->err_obj->IDispatch_iface);
        ctx->err_obj = NULL;
    }
 
    if(ctx->global_obj) {
        ctx->global_obj->ctx = NULL;
        IDispatch_Release(&ctx->global_obj->IDispatch_iface);
        ctx->global_obj = NULL;
    }
}

Referenced by VBScript_Release().

Err_Clear()

static HRESULT Err_Clear ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3529 of file global.c.

{
    TRACE("\n");
 
    clear_ei(&This->ctx->ei);
    return S_OK;
}

Err_Description()

static HRESULT Err_Description ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3484 of file global.c.

{
    TRACE("\n");
    return err_string_prop(&This->ctx->ei.bstrDescription, args, args_cnt, res);
}

Err_HelpContext()

static HRESULT Err_HelpContext ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3490 of file global.c.

{
    TRACE("\n");
 
    if(args_cnt) {
        FIXME("setter not implemented\n");
        return E_NOTIMPL;
    }
 
    return return_int(res, This->ctx->ei.dwHelpContext);
}

Err_HelpFile()

static HRESULT Err_HelpFile ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3502 of file global.c.

{
    TRACE("\n");
    return err_string_prop(&This->ctx->ei.bstrHelpFile, args, args_cnt, res);
}

Err_Number()

static HRESULT Err_Number ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3508 of file global.c.

{
    HRESULT hres;
 
    TRACE("\n");
 
    if(args_cnt) {
        FIXME("setter not implemented\n");
        return E_NOTIMPL;
    }
 
    hres = This->ctx->ei.scode;
    return return_int(res, HRESULT_FACILITY(hres) == FACILITY_VBS ? HRESULT_CODE(hres) : hres);
}

Err_Raise()

static HRESULT Err_Raise ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3537 of file global.c.

{
    BSTR source = NULL, description = NULL, helpfile = NULL;
    int code,  helpcontext = 0;
    HRESULT hres;
 
    TRACE("%s %u...\n", debugstr_variant(args), args_cnt);
 
    hres = to_int(args, &code);
    if(FAILED(hres))
        return hres;
    if(code == 0 || code > 0xffff)
        return E_INVALIDARG;
 
    if(args_cnt >= 2)
        hres = to_string(args + 1, &source);
    if(args_cnt >= 3 && SUCCEEDED(hres))
        hres = to_string(args + 2, &description);
    if(args_cnt >= 4 && SUCCEEDED(hres))
        hres = to_string(args + 3, &helpfile);
    if(args_cnt >= 5 && SUCCEEDED(hres))
        hres = to_int(args + 4, &helpcontext);
 
    if(SUCCEEDED(hres)) {
        script_ctx_t *ctx = This->ctx;
 
        if(source) {
            SysFreeString(ctx->ei.bstrSource);
            ctx->ei.bstrSource = source;
        }
        if(description) {
            SysFreeString(ctx->ei.bstrDescription);
            ctx->ei.bstrDescription = description;
        }
        if(helpfile) {
            SysFreeString(ctx->ei.bstrHelpFile);
            ctx->ei.bstrHelpFile = helpfile;
        }
        if(args_cnt >= 5)
            ctx->ei.dwHelpContext = helpcontext;
 
        ctx->ei.scode = (code & ~0xffff) ? code : MAKE_VBSERROR(code);
        map_vbs_exception(&ctx->ei);
 
        hres = SCRIPT_E_RECORDED;
    }else {
        SysFreeString(source);
        SysFreeString(description);
        SysFreeString(helpfile);
    }
 
    return hres;
}

Err_Source()

static HRESULT Err_Source ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3523 of file global.c.

{
    TRACE("\n");
    return err_string_prop(&This->ctx->ei.bstrSource, args, args_cnt, res);
}

err_string_prop()

static HRESULT err_string_prop ( BSTR *  prop, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3467 of file global.c.

{
    BSTR str;
    HRESULT hres;
 
    if(!args_cnt)
        return return_string(res, *prop ? *prop : L"");
 
    hres = to_string(args, &str);
    if(FAILED(hres))
        return hres;
 
    SysFreeString(*prop);
    *prop = str;
    return S_OK;
}

Referenced by Err_Description(), Err_HelpFile(), and Err_Source().

get_builtin_id()

HRESULT get_builtin_id	(	BuiltinDisp *	disp,
		const WCHAR *	name,
		DISPID *	id
	)

Definition at line 127 of file global.c.

{
    size_t min = 1, max = disp->member_cnt - 1, i;
    int r;
 
    while(min <= max) {
        i = (min + max) / 2;
        r = wcsicmp(disp->members[i].name, name);
        if(!r) {
            *id = i;
            return S_OK;
        }
        if(r < 0)
            min = i+1;
        else
            max = i-1;
    }
 
    return DISP_E_MEMBERNOTFOUND;
 
}

Referenced by Builtin_GetIDsOfNames().

get_next_rnd()

static unsigned int get_next_rnd ( int  value )

static

Definition at line 1097 of file global.c.

{
    return (value * 0x43fd43fd + 0xc39ec3) & 0xffffff;
}

Referenced by Global_Rnd().

get_sec_mgr()

static IInternetHostSecurityManager * get_sec_mgr ( script_ctx_t *  ctx )

static

Definition at line 302 of file global.c.

{
    IInternetHostSecurityManager *secmgr;
    IServiceProvider *sp;
    HRESULT hres;
 
    if(!ctx->site)
        return NULL;
 
    if(ctx->secmgr)
        return ctx->secmgr;
 
    hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IServiceProvider, (void**)&sp);
    if(FAILED(hres))
        return NULL;
 
    hres = IServiceProvider_QueryService(sp, &SID_SInternetHostSecurityManager, &IID_IInternetHostSecurityManager,
            (void**)&secmgr);
    IServiceProvider_Release(sp);
    if(FAILED(hres))
        return NULL;
 
    return ctx->secmgr = secmgr;
}

Referenced by create_object().

Global_Abs()

static HRESULT Global_Abs ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1945 of file global.c.

{
    HRESULT hres;
    VARIANT dst;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    hres = VarAbs(arg, &dst);
    if(FAILED(hres))
        return hres;
 
    if (res)
        *res = dst;
    else
        VariantClear(&dst);
 
    return S_OK;
}

Global_Array()

static HRESULT Global_Array ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2535 of file global.c.

{
    SAFEARRAYBOUND bounds;
    SAFEARRAY *sa;
    VARIANT *data;
    HRESULT hres;
    unsigned i;
 
    TRACE("arg_cnt=%u\n", args_cnt);
 
    bounds.lLbound = 0;
    bounds.cElements = args_cnt;
    sa = SafeArrayCreate(VT_VARIANT, 1, &bounds);
    if(!sa)
        return E_OUTOFMEMORY;
 
    hres = SafeArrayAccessData(sa, (void**)&data);
    if(FAILED(hres)) {
        SafeArrayDestroy(sa);
        return hres;
    }
 
    for(i=0; i<args_cnt; i++) {
        hres = VariantCopyInd(data+i, arg+i);
        if(FAILED(hres)) {
            SafeArrayUnaccessData(sa);
            SafeArrayDestroy(sa);
            return hres;
        }
    }
    SafeArrayUnaccessData(sa);
 
    if(res) {
        V_VT(res) = VT_ARRAY|VT_VARIANT;
        V_ARRAY(res) = sa;
    }else {
        SafeArrayDestroy(sa);
    }
 
    return S_OK;
}

Global_Asc()

static HRESULT Global_Asc ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1835 of file global.c.

{
    BSTR conv_str = NULL, str;
    HRESULT hres = S_OK;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    switch(V_VT(arg)) {
    case VT_NULL:
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
    case VT_EMPTY:
        return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
    case VT_BSTR:
        str = V_BSTR(arg);
        break;
    default:
        hres = to_string(arg, &conv_str);
        if(FAILED(hres))
            return hres;
        str = conv_str;
    }
 
    if(!SysStringLen(str))
        hres = MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
    else if (This->ctx->codepage == CP_UTF8)
        hres = return_short(res, *str);
    else {
        unsigned char buf[2];
        short val = 0;
        int n = WideCharToMultiByte(This->ctx->codepage, 0, str, 1, (char*)buf, sizeof(buf), NULL, NULL);
        switch(n) {
        case 1:
            val = buf[0];
            break;
        case 2:
            val = (buf[0] << 8) | buf[1];
            break;
        default:
            WARN("Failed to convert %x\n", *str);
            hres = MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
        }
        if(SUCCEEDED(hres))
            hres = return_short(res, val);
    }
 
    SysFreeString(conv_str);
    return hres;
}

Global_AscB()

static HRESULT Global_AscB ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1823 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_AscW()

static HRESULT Global_AscW ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1933 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Atn()

static HRESULT Global_Atn ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1007 of file global.c.

{
    HRESULT hres;
    double d;
 
    hres = to_double(arg, &d);
    if(FAILED(hres))
        return hres;
 
    return return_double(res, atan(d));
}

Global_CBool()

static HRESULT Global_CBool ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 718 of file global.c.

{
    VARIANT v;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    V_VT(&v) = VT_EMPTY;
    hres = VariantChangeType(&v, arg, VARIANT_LOCALBOOL, VT_BOOL);
    if(FAILED(hres))
        return hres;
 
    if(res)
        *res = v;
    else
        VariantClear(&v);
    return S_OK;
}

Global_CByte()

static HRESULT Global_CByte ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 739 of file global.c.

{
    VARIANT v;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    V_VT(&v) = VT_EMPTY;
    hres = VariantChangeType(&v, arg, VARIANT_LOCALBOOL, VT_UI1);
    if(FAILED(hres))
        return hres;
 
    if(!res) {
        VariantClear(&v);
        return DISP_E_BADVARTYPE;
    }
 
    *res = v;
    return S_OK;
}

Global_CCur()

static HRESULT Global_CCur ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 655 of file global.c.

{
    VARIANT v;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    V_VT(&v) = VT_EMPTY;
    hres = VariantChangeType(&v, arg, 0, VT_CY);
    if(FAILED(hres))
        return hres;
 
    if(!res) {
        VariantClear(&v);
        return DISP_E_BADVARTYPE;
    }
 
    *res = v;
    return S_OK;
}

Global_CDate()

static HRESULT Global_CDate ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 762 of file global.c.

{
    VARIANT v;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    if(V_VT(arg) == VT_NULL)
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    V_VT(&v) = VT_EMPTY;
    hres = VariantChangeType(&v, arg, 0, VT_DATE);
    if(FAILED(hres)) {
        hres = VariantChangeType(&v, arg, 0, VT_R8);
        if(FAILED(hres))
            return hres;
        hres = VariantChangeType(&v, &v, 0, VT_DATE);
        if(FAILED(hres))
            return hres;
    }
 
    if(!res)
        return DISP_E_BADVARTYPE;
    *res = v;
    return S_OK;
}

Global_CDbl()

static HRESULT Global_CDbl ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 791 of file global.c.

{
    VARIANT v;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    V_VT(&v) = VT_EMPTY;
    hres = VariantChangeType(&v, arg, 0, VT_R8);
    if(FAILED(hres))
        return hres;
 
    if(!res)
        return DISP_E_BADVARTYPE;
    else {
        *res = v;
        return S_OK;
    }
}

Global_Chr()

static HRESULT Global_Chr ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1884 of file global.c.

{
    int cp, c, len = 0;
    CPINFO cpi;
    WCHAR ch;
    char buf[2];
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    hres = to_int(arg, &c);
    if(FAILED(hres))
        return hres;
 
    cp = This->ctx->codepage;
    if(!GetCPInfo(cp, &cpi))
        cpi.MaxCharSize = 1;
 
    if((c!=(short)c && c!=(unsigned short)c) ||
            (unsigned short)c>=(cpi.MaxCharSize>1 ? 0x10000 : 0x100)) {
        WARN("invalid arg %d\n", c);
        return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
    }
 
    if (cp == CP_UTF8)
    {
        ch = c;
    }
    else
    {
        if(c>>8)
            buf[len++] = c>>8;
        if(!len || IsDBCSLeadByteEx(cp, buf[0]))
            buf[len++] = c;
        if(!MultiByteToWideChar(cp, 0, buf, len, &ch, 1)) {
            WARN("invalid arg %d, cp %d\n", c, cp);
            return E_FAIL;
        }
    }
 
    if(res) {
        V_VT(res) = VT_BSTR;
        V_BSTR(res) = SysAllocStringLen(&ch, 1);
        if(!V_BSTR(res))
            return E_OUTOFMEMORY;
    }
    return S_OK;
}

Global_ChrB()

static HRESULT Global_ChrB ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1829 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_ChrW()

static HRESULT Global_ChrW ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1939 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_CInt()

static HRESULT Global_CInt ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 678 of file global.c.

{
    VARIANT v;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    V_VT(&v) = VT_EMPTY;
    hres = VariantChangeType(&v, arg, 0, VT_I2);
    if(FAILED(hres))
        return hres;
 
    if(!res)
        return DISP_E_BADVARTYPE;
    else {
        *res = v;
        return S_OK;
    }
}

Global_CLng()

static HRESULT Global_CLng ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 700 of file global.c.

{
    int i;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    hres = to_int(arg, &i);
    if(FAILED(hres))
        return hres;
    if(!res)
        return DISP_E_BADVARTYPE;
 
    return return_int(res, i);
}

Global_Cos()

static HRESULT Global_Cos ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1019 of file global.c.

{
    HRESULT hres;
    double d;
 
    hres = to_double(arg, &d);
    if(FAILED(hres))
        return hres;
 
    return return_double(res, cos(d));
}

Global_CreateObject()

static HRESULT Global_CreateObject ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2317 of file global.c.

{
    IUnknown *obj;
    HRESULT hres;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    if(V_VT(arg) != VT_BSTR) {
        FIXME("non-bstr arg\n");
        return E_INVALIDARG;
    }
 
    obj = create_object(This->ctx, V_BSTR(arg));
    if(!obj)
        return VB_E_CANNOT_CREATE_OBJ;
 
    if(res) {
        hres = IUnknown_QueryInterface(obj, &IID_IDispatch, (void**)&V_DISPATCH(res));
        if(FAILED(hres))
            return hres;
 
        V_VT(res) = VT_DISPATCH;
    }
 
    IUnknown_Release(obj);
    return S_OK;
}

Global_CSng()

static HRESULT Global_CSng ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 813 of file global.c.

{
    VARIANT v;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    V_VT(&v) = VT_EMPTY;
    hres = VariantChangeType(&v, arg, 0, VT_R4);
    if(FAILED(hres))
        return hres;
 
    if(!res)
        return DISP_E_BADVARTYPE;
 
   *res = v;
   return S_OK;
}

Global_CStr()

static HRESULT Global_CStr ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 834 of file global.c.

{
    BSTR str;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    if(V_VT(arg) == VT_NULL)
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    hres = to_string(arg, &str);
    if(FAILED(hres))
        return hres;
 
    return return_bstr(res, str);
}

Global_Date()

static HRESULT Global_Date ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2041 of file global.c.

{
    SYSTEMTIME lt;
    UDATE ud;
    DATE date;
    HRESULT hres;
 
    TRACE("\n");
 
    GetLocalTime(&lt);
    ud.st = lt;
    ud.wDayOfYear = 0;
    hres = VarDateFromUdateEx(&ud, 0, VAR_DATEVALUEONLY, &date);
    if(FAILED(hres))
        return hres;
    return return_date(res, date);
}

Global_DateAdd()

static HRESULT Global_DateAdd ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2402 of file global.c.

{
    BSTR interval = NULL;
    UDATE ud = {{ 0 }};
    HRESULT hres;
    double date;
    int count;
 
    TRACE("\n");
 
    assert(args_cnt == 3);
 
    if (V_VT(args) == VT_NULL || V_VT(args + 1) == VT_NULL)
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    if (V_VT(args + 2) == VT_NULL)
        return return_null(res);
 
    hres = to_string(args, &interval);
    if (SUCCEEDED(hres))
        hres = to_int(args + 1, &count);
    if (SUCCEEDED(hres))
        hres = to_system_time(args + 2, &ud.st);
    if (SUCCEEDED(hres))
    {
        if (!wcsicmp(interval, L"yyyy"))
            ud.st.wYear += count;
        else if (!wcsicmp(interval, L"q"))
            ud.st.wMonth += 3 * count;
        else if (!wcsicmp(interval, L"m"))
            ud.st.wMonth += count;
        else if (!wcsicmp(interval, L"y")
                || !wcsicmp(interval, L"d")
                || !wcsicmp(interval, L"w"))
        {
            ud.st.wDay += count;
        }
        else if (!wcsicmp(interval, L"ww"))
            ud.st.wDay += 7 * count;
        else if (!wcsicmp(interval, L"h"))
            ud.st.wHour += count;
        else if (!wcsicmp(interval, L"n"))
            ud.st.wMinute += count;
        else if (!wcsicmp(interval, L"s"))
            ud.st.wSecond += count;
        else
        {
            WARN("Unrecognized interval %s.\n", debugstr_w(interval));
            hres = MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
        }
    }
 
    SysFreeString(interval);
 
    if (SUCCEEDED(hres))
        hres = VarDateFromUdateEx(&ud, 0, 0, &date);
 
    if (SUCCEEDED(hres))
        hres = return_date(res, date);
 
    return hres;
}

Global_DateDiff()

static HRESULT Global_DateDiff ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2465 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_DatePart()

static HRESULT Global_DatePart ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2471 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_DateSerial()

static HRESULT Global_DateSerial ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2207 of file global.c.

{
    int year, month, day;
    UDATE ud = {{ 0 }};
    HRESULT hres;
    double date;
 
    TRACE("\n");
 
    assert(args_cnt == 3);
 
    if (V_VT(args) == VT_NULL || V_VT(args + 1) == VT_NULL || V_VT(args + 2) == VT_NULL)
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    hres = to_int(args, &year);
    if (SUCCEEDED(hres))
        hres = to_int(args + 1, &month);
    if (SUCCEEDED(hres))
        hres = to_int(args + 2, &day);
 
    if (SUCCEEDED(hres))
    {
        ud.st.wYear = year;
        ud.st.wMonth = month;
        ud.st.wDay = day;
        hres = VarDateFromUdateEx(&ud, 0, 0, &date);
    }
 
    if (SUCCEEDED(hres))
        hres = return_date(res, date);
 
    return hres;
}

Global_DateValue()

static HRESULT Global_DateValue ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2195 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Day()

static HRESULT Global_Day ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2077 of file global.c.

{
    SYSTEMTIME st;
    HRESULT hres;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    hres = to_system_time(arg, &st);
    return FAILED(hres) ? hres : return_short(res, st.wDay);
}

Global_Erase()

static HRESULT Global_Erase ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2577 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Err()

static HRESULT Global_Err ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3243 of file global.c.

{
    TRACE("\n");
 
    if(args_cnt) {
        FIXME("Setter not supported\n");
        return E_NOTIMPL;
    }
 
    V_VT(res) = VT_DISPATCH;
    V_DISPATCH(res) = &This->ctx->err_obj->IDispatch_iface;
    IDispatch_AddRef(V_DISPATCH(res));
    return S_OK;
}

Global_Escape()

static HRESULT Global_Escape ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3207 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Eval()

static HRESULT Global_Eval ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3219 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Execute()

static HRESULT Global_Execute ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3225 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_ExecuteGlobal()

static HRESULT Global_ExecuteGlobal ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3231 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Exp()

static HRESULT Global_Exp ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1055 of file global.c.

{
    HRESULT hres;
    double d;
 
    hres = to_double(arg, &d);
    if(FAILED(hres))
        return hres;
 
    return return_double(res, exp(d));
}

Global_Filter()

static HRESULT Global_Filter ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2583 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Fix()

static HRESULT Global_Fix ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1966 of file global.c.

{
    HRESULT hres;
    VARIANT dst;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    hres = VarFix(arg, &dst);
    if(FAILED(hres))
        return hres;
 
    if (res)
        *res = dst;
    else
        VariantClear(&dst);
 
    return S_OK;
}

Global_FormatCurrency()

static HRESULT Global_FormatCurrency ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3003 of file global.c.

{
    union
    {
        struct
        {
            int num_dig, inc_lead, use_parens, group;
        } s;
        int val[4];
    } int_args = { .s.num_dig = -1, .s.inc_lead = -2, .s.use_parens = -2, .s.group = -2 };
    HRESULT hres;
    BSTR str;
    int i;
 
    TRACE("\n");
 
    assert(1 <= args_cnt && args_cnt <= 5);
 
    for (i = 1; i < args_cnt; ++i)
    {
        if (V_VT(args+i) == VT_ERROR) continue;
        if (V_VT(args+i) == VT_NULL) return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
        if (FAILED(hres = to_int(args+i, &int_args.val[i-1]))) return hres;
    }
 
    hres = VarFormatCurrency(args, int_args.s.num_dig, int_args.s.inc_lead, int_args.s.use_parens,
        int_args.s.group, 0, &str);
    if (FAILED(hres)) return hres;
 
    return return_bstr(res, str);
}

Global_FormatDateTime()

static HRESULT Global_FormatDateTime ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3073 of file global.c.

{
    int format = 0;
    HRESULT hres;
    BSTR str;
 
    TRACE("\n");
 
    assert(1 <= args_cnt && args_cnt <= 2);
 
    if (V_VT(args) == VT_NULL)
        return MAKE_VBSERROR(VBSE_TYPE_MISMATCH);
 
    if (args_cnt == 2)
    {
        if (V_VT(args+1) == VT_NULL) return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
        if (V_VT(args+1) != VT_ERROR)
        {
            if (FAILED(hres = to_int(args+1, &format))) return hres;
        }
    }
 
    hres = VarFormatDateTime(args, format, 0, &str);
    if (FAILED(hres)) return hres;
 
    return return_bstr(res, str);
}

Global_FormatNumber()

static HRESULT Global_FormatNumber ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2971 of file global.c.

{
    union
    {
        struct
        {
            int num_dig, inc_lead, use_parens, group;
        } s;
        int val[4];
    } int_args = { .s.num_dig = -1, .s.inc_lead = -2, .s.use_parens = -2, .s.group = -2 };
    HRESULT hres;
    BSTR str;
    int i;
 
    TRACE("\n");
 
    assert(1 <= args_cnt && args_cnt <= 5);
 
    for (i = 1; i < args_cnt; ++i)
    {
        if (V_VT(args+i) == VT_ERROR) continue;
        if (V_VT(args+i) == VT_NULL) return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
        if (FAILED(hres = to_int(args+i, &int_args.val[i-1]))) return hres;
    }
 
    hres = VarFormatNumber(args, int_args.s.num_dig, int_args.s.inc_lead, int_args.s.use_parens,
        int_args.s.group, 0, &str);
    if (FAILED(hres)) return hres;
 
    return return_bstr(res, str);
}

Global_FormatPercent()

static HRESULT Global_FormatPercent ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3035 of file global.c.

{
    union
    {
        struct
        {
            int num_dig, inc_lead, use_parens, group;
        } s;
        int val[4];
    } int_args = { .s.num_dig = -1, .s.inc_lead = -2, .s.use_parens = -2, .s.group = -2 };
    HRESULT hres;
    BSTR str;
    int i;
 
    TRACE("\n");
 
    assert(1 <= args_cnt && args_cnt <= 5);
 
    for (i = 1; i < args_cnt; ++i)
    {
        if (V_VT(args+i) == VT_ERROR) continue;
        if (V_VT(args+i) == VT_NULL) return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
        if (FAILED(hres = to_int(args+i, &int_args.val[i-1]))) return hres;
    }
 
    hres = VarFormatPercent(args, int_args.s.num_dig, int_args.s.inc_lead, int_args.s.use_parens,
        int_args.s.group, 0, &str);
    if (FAILED(hres)) return hres;
 
    return return_bstr(res, str);
}

Global_GetLocale()

static HRESULT Global_GetLocale ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3067 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_GetObject()

static HRESULT Global_GetObject ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2345 of file global.c.

{
    IBindCtx *bind_ctx;
    IUnknown *obj_unk;
    IDispatch *disp;
    ULONG eaten = 0;
    IMoniker *mon;
    HRESULT hres;
 
    TRACE("%s %s\n", args_cnt ? debugstr_variant(args) : "", args_cnt > 1 ? debugstr_variant(args+1) : "");
 
    if(args_cnt != 1 || V_VT(args) != VT_BSTR) {
        FIXME("unsupported args\n");
        return E_NOTIMPL;
    }
 
    if(This->ctx->safeopt & (INTERFACE_USES_SECURITY_MANAGER|INTERFACESAFE_FOR_UNTRUSTED_DATA)) {
        WARN("blocked in current safety mode\n");
        return VB_E_CANNOT_CREATE_OBJ;
    }
 
    hres = CreateBindCtx(0, &bind_ctx);
    if(FAILED(hres))
        return hres;
 
    hres = MkParseDisplayName(bind_ctx, V_BSTR(args), &eaten, &mon);
    if(SUCCEEDED(hres)) {
        hres = IMoniker_BindToObject(mon, bind_ctx, NULL, &IID_IUnknown, (void**)&obj_unk);
        IMoniker_Release(mon);
    }else {
        hres = MK_E_SYNTAX;
    }
    IBindCtx_Release(bind_ctx);
    if(FAILED(hres))
        return hres;
 
    hres = set_object_site(This->ctx, obj_unk);
    if(FAILED(hres)) {
        IUnknown_Release(obj_unk);
        return hres;
    }
 
    hres = IUnknown_QueryInterface(obj_unk, &IID_IDispatch, (void**)&disp);
    if(SUCCEEDED(hres)) {
        if(res) {
            V_VT(res) = VT_DISPATCH;
            V_DISPATCH(res) = disp;
        }else {
            IDispatch_Release(disp);
        }
    }else {
        FIXME("object does not support IDispatch\n");
    }
 
    return hres;
}

Global_GetRef()

static HRESULT Global_GetRef ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3237 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Hex()

static HRESULT Global_Hex ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 856 of file global.c.

{
    WCHAR buf[17], *ptr;
    DWORD n;
    HRESULT hres;
    int ret;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    switch(V_VT(arg)) {
    case VT_I2:
        n = (WORD)V_I2(arg);
        break;
    case VT_NULL:
        return return_null(res);
    default:
        hres = to_int(arg, &ret);
        if(FAILED(hres))
            return hres;
        else
            n = ret;
    }
 
    buf[16] = 0;
    ptr = buf+15;
 
    if(n) {
        do {
            *ptr-- = hex_char(n & 0xf);
            n >>= 4;
        }while(n);
        ptr++;
    }else {
        *ptr = '0';
    }
 
    return return_string(res, ptr);
}

Global_Hour()

static HRESULT Global_Hour ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2156 of file global.c.

{
    SYSTEMTIME st;
    HRESULT hres;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    hres = to_system_time(arg, &st);
    return FAILED(hres) ? hres : return_short(res, st.wHour);
}

Global_InputBox()

static HRESULT Global_InputBox ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2278 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_InStr()

static HRESULT Global_InStr ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1731 of file global.c.

{
    VARIANT *startv, *str1v, *str2v;
    BSTR str1, str2;
    int ret = -1, start = 0, mode = 0;
    HRESULT hres;
 
    TRACE("args_cnt=%u\n", args_cnt);
 
    assert(2 <= args_cnt && args_cnt <= 4);
 
    switch(args_cnt) {
    case 2:
        startv = NULL;
        str1v = args;
        str2v = args+1;
        break;
    case 3:
        startv = args;
        str1v = args+1;
        str2v = args+2;
        break;
    case 4:
        startv = args;
        str1v = args+1;
        str2v = args+2;
 
        if(V_VT(args+3) == VT_NULL)
            return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
        hres = to_int(args+3, &mode);
        if(FAILED(hres))
            return hres;
 
        if (mode != 0 && mode != 1)
            return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
 
        break;
    DEFAULT_UNREACHABLE;
    }
 
    if(startv) {
       if(V_VT(startv) == VT_NULL)
            return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
        hres = to_int(startv, &start);
        if(FAILED(hres))
            return hres;
        if(--start < 0)
            return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
    }
 
    if(V_VT(str1v) == VT_NULL || V_VT(str2v) == VT_NULL)
        return return_null(res);
 
    if(V_VT(str1v) != VT_BSTR) {
        hres = to_string(str1v, &str1);
        if(FAILED(hres))
            return hres;
    }
    else
        str1 = V_BSTR(str1v);
 
    if(V_VT(str2v) != VT_BSTR) {
        hres = to_string(str2v, &str2);
        if(FAILED(hres)){
            if(V_VT(str1v) != VT_BSTR)
                SysFreeString(str1);
            return hres;
        }
    }
    else
        str2 = V_BSTR(str2v);
 
    if(start < SysStringLen(str1)) {
        ret = FindStringOrdinal(FIND_FROMSTART, str1 + start, SysStringLen(str1)-start,
                                str2, SysStringLen(str2), mode);
    }
 
    if(V_VT(str1v) != VT_BSTR)
        SysFreeString(str1);
    if(V_VT(str2v) != VT_BSTR)
        SysFreeString(str2);
    return return_int(res, ++ret ? ret+start : 0);
}

Global_InStrB()

static HRESULT Global_InStrB ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1817 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_InStrRev()

static HRESULT Global_InStrRev ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2850 of file global.c.

{
    int start = -1, ret = -1, mode = 0;
    BSTR str1, str2;
    size_t len1, len2;
    HRESULT hres;
 
    TRACE("%s %s arg_cnt=%u\n", debugstr_variant(args), debugstr_variant(args+1), args_cnt);
 
    assert(2 <= args_cnt && args_cnt <= 4);
 
    if(V_VT(args) == VT_NULL || V_VT(args+1) == VT_NULL || (args_cnt > 2 && V_VT(args+2) == VT_NULL)
       || (args_cnt == 4 && V_VT(args+3) == VT_NULL))
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    if(args_cnt == 4) {
        hres = to_int(args+3, &mode);
        if(FAILED(hres))
            return hres;
        if (mode != 0 && mode != 1)
            return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
    }
 
    if(args_cnt >= 3) {
        hres = to_int(args+2, &start);
        if(FAILED(hres))
            return hres;
        if(!start || start < -1)
            return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
    }
 
    if(V_VT(args) != VT_BSTR) {
        hres = to_string(args, &str1);
        if(FAILED(hres))
            return hres;
    }
    else
        str1 = V_BSTR(args);
 
    if(V_VT(args+1) != VT_BSTR) {
        hres = to_string(args+1, &str2);
        if(FAILED(hres)) {
            if(V_VT(args) != VT_BSTR)
                SysFreeString(str1);
            return hres;
        }
    }
    else
        str2 = V_BSTR(args+1);
 
    len1 = SysStringLen(str1);
    if(!len1) {
        ret = 0;
        goto end;
    }
 
    if(start == -1)
        start = len1;
 
    len2 = SysStringLen(str2);
    if(!len2) {
        ret = start;
        goto end;
    }
 
    if(start >= len2 && start <= len1) {
        ret = FindStringOrdinal(FIND_FROMEND, str1, start,
                                str2, len2, mode);
    }
    ret++;
 
end:
    if(V_VT(args) != VT_BSTR)
        SysFreeString(str1);
    if(V_VT(args+1) != VT_BSTR)
        SysFreeString(str2);
    return return_int(res, ret);
}

Global_Int()

static HRESULT Global_Int ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1987 of file global.c.

{
    HRESULT hres;
    VARIANT dst;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    hres = VarInt(arg, &dst);
    if(FAILED(hres))
        return hres;
 
    if (res)
        *res = dst;
    else
        VariantClear(&dst);
 
    return S_OK;
}

Global_IsArray()

static HRESULT Global_IsArray ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 989 of file global.c.

{
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    return return_bool(res, V_ISARRAY(arg));
}

Global_IsDate()

static HRESULT Global_IsDate ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 951 of file global.c.

{
    TRACE("%s\n", debugstr_variant(arg));
 
    return return_bool(res, V_VT(arg) == VT_DATE);
}

Global_IsEmpty()

static HRESULT Global_IsEmpty ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 958 of file global.c.

{
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
    return return_bool(res, V_VT(arg) == VT_EMPTY);
}

Global_IsNull()

static HRESULT Global_IsNull ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 966 of file global.c.

{
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    return return_bool(res, V_VT(arg) == VT_NULL);
}

Global_IsNumeric()

static HRESULT Global_IsNumeric ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 975 of file global.c.

{
    HRESULT hres;
    double d;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    hres = to_double(arg, &d);
 
    return return_bool(res, SUCCEEDED(hres));
}

Global_IsObject()

static HRESULT Global_IsObject ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 998 of file global.c.

{
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    return return_bool(res, V_VT(arg) == VT_DISPATCH);
}

Global_Join()

static HRESULT Global_Join ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2589 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_LBound()

static HRESULT Global_LBound ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1174 of file global.c.

{
    SAFEARRAY *sa;
    HRESULT hres;
    LONG lbound;
    int dim;
 
    assert(args_cnt == 1 || args_cnt == 2);
 
    TRACE("%s %s\n", debugstr_variant(arg), args_cnt == 2 ? debugstr_variant(arg + 1) : "1");
 
    switch(V_VT(arg)) {
    case VT_VARIANT|VT_ARRAY:
        sa = V_ARRAY(arg);
        break;
    case VT_VARIANT|VT_ARRAY|VT_BYREF:
        sa = *V_ARRAYREF(arg);
        break;
    case VT_EMPTY:
    case VT_NULL:
        return MAKE_VBSERROR(VBSE_TYPE_MISMATCH);
    default:
        FIXME("arg %s not supported\n", debugstr_variant(arg));
        return E_NOTIMPL;
    }
 
    if(args_cnt == 2) {
        hres = to_int(arg + 1, &dim);
        if(FAILED(hres))
            return hres;
    }else {
        dim = 1;
    }
 
    hres = SafeArrayGetLBound(sa, dim, &lbound);
    if(FAILED(hres))
        return hres;
 
    return return_int(res, lbound);
}

Global_LCase()

static HRESULT Global_LCase ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1523 of file global.c.

{
    BSTR str;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    if(V_VT(arg) == VT_NULL) {
        return return_null(res);
    }
 
    hres = to_string(arg, &str);
    if(FAILED(hres))
        return hres;
 
    if(res) {
        WCHAR *ptr;
 
        for(ptr = str; *ptr; ptr++)
            *ptr = towlower(*ptr);
 
        V_VT(res) = VT_BSTR;
        V_BSTR(res) = str;
    }else {
        SysFreeString(str);
    }
    return S_OK;
}

Global_Left()

static HRESULT Global_Left ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1310 of file global.c.

{
    BSTR str, ret, conv_str = NULL;
    int len, str_len;
    HRESULT hres;
 
    TRACE("(%s %s)\n", debugstr_variant(args+1), debugstr_variant(args));
 
    if(V_VT(args) == VT_BSTR) {
        str = V_BSTR(args);
    }else {
        hres = to_string(args, &conv_str);
        if(FAILED(hres))
            return hres;
        str = conv_str;
    }
 
    hres = to_int(args+1, &len);
    if(FAILED(hres))
        return hres;
 
    if(len < 0) {
        FIXME("len = %d\n", len);
        return E_FAIL;
    }
 
    str_len = SysStringLen(str);
    if(len > str_len)
        len = str_len;
 
    ret = SysAllocStringLen(str, len);
    SysFreeString(conv_str);
    if(!ret)
        return E_OUTOFMEMORY;
 
    return return_bstr(res, ret);
}

Global_LeftB()

static HRESULT Global_LeftB ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1348 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Len()

static HRESULT Global_Len ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1278 of file global.c.

{
    DWORD len;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    if(V_VT(arg) == VT_NULL)
        return return_null(res);
 
    if(V_VT(arg) != VT_BSTR) {
        BSTR str;
 
        hres = to_string(arg, &str);
        if(FAILED(hres))
            return hres;
 
        len = SysStringLen(str);
        SysFreeString(str);
    }else {
        len = SysStringLen(V_BSTR(arg));
    }
 
    return return_int(res, len);
}

Global_LenB()

static HRESULT Global_LenB ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1304 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_LoadPicture()

static HRESULT Global_LoadPicture ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2929 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Log()

static HRESULT Global_Log ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1067 of file global.c.

{
    HRESULT hres;
    double d;
 
    hres = to_double(arg, &d);
    if(FAILED(hres))
        return hres;
 
    if(d <= 0)
        return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
    else
        return return_double(res, log(d));
}

Global_LTrim()

static HRESULT Global_LTrim ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1581 of file global.c.

{
    BSTR str, conv_str = NULL;
    WCHAR *ptr;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    if(V_VT(arg) == VT_BSTR) {
        str = V_BSTR(arg);
    }else {
        hres = to_string(arg, &conv_str);
        if(FAILED(hres))
            return hres;
        str = conv_str;
    }
 
    for(ptr = str; *ptr && iswspace(*ptr); ptr++);
 
    str = SysAllocString(ptr);
    SysFreeString(conv_str);
    if(!str)
        return E_OUTOFMEMORY;
 
    return return_bstr(res, str);
}

Global_Mid()

static HRESULT Global_Mid ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1402 of file global.c.

{
    int len = -1, start, str_len;
    BSTR str, conv_str = NULL;
    HRESULT hres;
 
    TRACE("(%s %s ...)\n", debugstr_variant(args), debugstr_variant(args+1));
 
    assert(args_cnt == 2 || args_cnt == 3);
 
    if(V_VT(args+1) == VT_NULL || (args_cnt == 3 && V_VT(args+2) == VT_NULL))
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    if(V_VT(args+1) == VT_EMPTY)
        return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
 
    hres = to_int(args+1, &start);
    if(FAILED(hres))
        return hres;
 
    if(start <= 0)
        return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
 
    if(args_cnt == 3) {
        if(V_VT(args+2) == VT_EMPTY)
            return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
 
        hres = to_int(args+2, &len);
        if(FAILED(hres))
            return hres;
 
        if(len < 0)
            return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
    }
 
    if(V_VT(args) == VT_EMPTY)
        return return_string(res, L"");
 
    if(V_VT(args) == VT_NULL)
        return return_null(res);
 
    if(V_VT(args) == VT_BSTR) {
        str = V_BSTR(args);
    }else {
        hres = to_string(args, &conv_str);
        if(FAILED(hres))
            return hres;
        str = conv_str;
    }
 
    str_len = SysStringLen(str);
    start--;
    if(start > str_len)
        start = str_len;
 
    if(len == -1)
        len = str_len-start;
    else if(len > str_len-start)
        len = str_len-start;
 
    if(res) {
        V_VT(res) = VT_BSTR;
        V_BSTR(res) = SysAllocStringLen(str+start, len);
        if(!V_BSTR(res))
            hres = E_OUTOFMEMORY;
    }
 
    SysFreeString(conv_str);
 
    return hres;
}

Global_MidB()

static HRESULT Global_MidB ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1474 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Minute()

static HRESULT Global_Minute ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2167 of file global.c.

{
    SYSTEMTIME st;
    HRESULT hres;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    hres = to_system_time(arg, &st);
    return FAILED(hres) ? hres : return_short(res, st.wMinute);
}

Global_Month()

static HRESULT Global_Month ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2088 of file global.c.

{
    SYSTEMTIME st;
    HRESULT hres;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    hres = to_system_time(arg, &st);
    return FAILED(hres) ? hres : return_short(res, st.wMonth);
}

Global_MonthName()

static HRESULT Global_MonthName ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3134 of file global.c.

{
    int month, abbrev = 0;
    BSTR ret;
    HRESULT hres;
 
    TRACE("\n");
 
    assert(args_cnt == 1 || args_cnt == 2);
 
    if(V_VT(args) == VT_NULL || (args_cnt == 2 && V_VT(args+1) == VT_NULL))
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    hres = to_int(args, &month);
    if(FAILED(hres))
        return hres;
 
    if(args_cnt == 2) {
        hres = to_int(args+1, &abbrev);
        if(FAILED(hres))
            return hres;
    }
 
    hres = VarMonthName(month, abbrev, 0, &ret);
    if(FAILED(hres))
        return hres;
 
    return return_bstr(res, ret);
}

Global_MsgBox()

static HRESULT Global_MsgBox ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2284 of file global.c.

{
    BSTR prompt, title = NULL;
    int type = MB_OK;
    HRESULT hres;
 
    TRACE("\n");
 
    assert(1 <= args_cnt && args_cnt <= 5);
 
    hres = to_string(args, &prompt);
    if(FAILED(hres))
        return hres;
 
    if(args_cnt > 1)
        hres = to_int(args+1, &type);
 
    if(SUCCEEDED(hres) && args_cnt > 2)
        hres = to_string(args+2, &title);
 
    if(SUCCEEDED(hres) && args_cnt > 3) {
        FIXME("unsupported arg_cnt %d\n", args_cnt);
        hres = E_NOTIMPL;
    }
 
    if(SUCCEEDED(hres))
        hres = show_msgbox(This->ctx, prompt, type, title, res);
 
    SysFreeString(prompt);
    SysFreeString(title);
    return hres;
}

Global_Now()

static HRESULT Global_Now ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2029 of file global.c.

{
    SYSTEMTIME lt;
    double date;
 
    TRACE("\n");
 
    GetLocalTime(&lt);
    SystemTimeToVariantTime(&lt, &date);
    return return_date(res, date);
}

Global_Oct()

static HRESULT Global_Oct ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 895 of file global.c.

{
    HRESULT hres;
    WCHAR buf[23], *ptr;
    DWORD n;
    int ret;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    switch(V_VT(arg)) {
    case VT_I2:
        n = (WORD)V_I2(arg);
        break;
    case VT_NULL:
        return return_null(res);
    default:
        hres = to_int(arg, &ret);
        if(FAILED(hres))
            return hres;
        else
            n = ret;
    }
 
    buf[22] = 0;
    ptr = buf + 21;
 
    if(n) {
        do {
            *ptr-- = '0' + (n & 0x7);
            n >>= 3;
        }while(n);
        ptr++;
    }else {
        *ptr = '0';
    }
 
    return return_string(res, ptr);
}

Global_Randomize()

static HRESULT Global_Randomize ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1102 of file global.c.

{
    union
    {
        double d;
        unsigned int i[2];
    } dtoi;
    unsigned int seed;
    HRESULT hres;
 
    assert(args_cnt == 0 || args_cnt == 1);
    if (args_cnt == 1) {
        hres = to_double(arg, &dtoi.d);
        if (FAILED(hres))
            return hres;
    }
    else
        dtoi.d = GetTickCount() * 0.001;
 
    seed = dtoi.i[1];
    seed ^= (seed >> 16);
    seed = ((seed & 0xffff) << 8) | (This->ctx->script_obj->rnd & 0xff);
    This->ctx->script_obj->rnd = seed;
 
    return res ? DISP_E_TYPEMISMATCH : S_OK;
}

Global_Replace()

static HRESULT Global_Replace ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2737 of file global.c.

{
    BSTR string, find = NULL, replace = NULL, ret;
    int from = 1, cnt = -1, mode = 0;
    HRESULT hres = S_OK;
 
    TRACE("%s %s %s %u...\n", debugstr_variant(args), debugstr_variant(args+1), debugstr_variant(args+2), args_cnt);
 
    assert(3 <= args_cnt && args_cnt <= 6);
 
   if(V_VT(args) == VT_NULL || V_VT(args+1) == VT_NULL || (V_VT(args+2) == VT_NULL)
        || (args_cnt >= 4 && V_VT(args+3) == VT_NULL) || (args_cnt >= 5 && V_VT(args+4) == VT_NULL)
        || (args_cnt == 6 && V_VT(args+5) == VT_NULL))
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
 
    if(V_VT(args) != VT_BSTR) {
        hres = to_string(args, &string);
        if(FAILED(hres))
            return hres;
    }else {
        string = V_BSTR(args);
    }
 
    if(V_VT(args+1) != VT_BSTR) {
        hres = to_string(args+1, &find);
        if(FAILED(hres))
            goto error;
    }else {
        find = V_BSTR(args+1);
    }
 
    if(V_VT(args+2) != VT_BSTR) {
        hres = to_string(args+2, &replace);
        if(FAILED(hres))
            goto error;
    }else {
        replace = V_BSTR(args+2);
    }
 
    if(args_cnt >= 4) {
        hres = to_int(args+3, &from);
        if(FAILED(hres))
            goto error;
        if(from < 1) {
            hres = E_INVALIDARG;
            goto error;
        }
    }
 
    if(args_cnt >= 5) {
        hres = to_int(args+4, &cnt);
        if(FAILED(hres))
            goto error;
        if(cnt < -1) {
            hres = E_INVALIDARG;
            goto error;
        }
    }
 
    if(args_cnt == 6) {
        hres = to_int(args+5, &mode);
        if(FAILED(hres))
            goto error;
        if (mode != 0 && mode != 1) {
            hres = MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
            goto error;
        }
    }
 
    ret = string_replace(string, find, replace, from - 1, cnt, mode);
    if(!ret) {
        hres = E_OUTOFMEMORY;
    }else if(res) {
        V_VT(res) = VT_BSTR;
        V_BSTR(res) = ret;
    }else {
        SysFreeString(ret);
    }
 
error:
    if(V_VT(args) != VT_BSTR)
        SysFreeString(string);
    if(V_VT(args+1) != VT_BSTR)
        SysFreeString(find);
    if(V_VT(args+2) != VT_BSTR)
        SysFreeString(replace);
    return hres;
}

Global_RGB()

static HRESULT Global_RGB ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1256 of file global.c.

{
    HRESULT hres;
    int i, color[3];
 
    TRACE("%s %s %s\n", debugstr_variant(arg), debugstr_variant(arg + 1), debugstr_variant(arg + 2));
 
    assert(args_cnt == 3);
 
    for(i = 0; i < 3; i++) {
        hres = to_int(arg + i, color + i);
        if(FAILED(hres))
            return hres;
        if(color[i] > 255)
            color[i] = 255;
        if(color[i] < 0)
            return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
    }
 
    return return_int(res, RGB(color[0], color[1], color[2]));
}

Global_Right()

static HRESULT Global_Right ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1354 of file global.c.

{
    BSTR str, ret, conv_str = NULL;
    int len, str_len;
    HRESULT hres;
 
    TRACE("(%s %s)\n", debugstr_variant(args), debugstr_variant(args+1));
 
    if(V_VT(args+1) == VT_NULL)
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    hres = to_int(args+1, &len);
    if(FAILED(hres))
        return hres;
 
    if(len < 0)
        return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
 
    if(V_VT(args) == VT_NULL)
        return return_null(res);
 
    if(V_VT(args) == VT_BSTR) {
        str = V_BSTR(args);
    }else {
        hres = to_string(args, &conv_str);
        if(FAILED(hres))
            return hres;
        str = conv_str;
    }
 
    str_len = SysStringLen(str);
    if(len > str_len)
        len = str_len;
 
    ret = SysAllocStringLen(str+str_len-len, len);
    SysFreeString(conv_str);
    if(!ret)
        return E_OUTOFMEMORY;
 
    return return_bstr(res, ret);
}

Global_RightB()

static HRESULT Global_RightB ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1396 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Rnd()

static HRESULT Global_Rnd ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1129 of file global.c.

{
    static const float modulus = 16777216.0f;
    unsigned int value;
    HRESULT hres;
    float f;
 
    assert(args_cnt == 0 || args_cnt == 1);
 
    value = This->ctx->script_obj->rnd;
    if (args_cnt == 1)
    {
        hres = to_float(arg, &f);
        if (FAILED(hres))
            return hres;
 
        if (f < 0.0f)
        {
            value = *(unsigned int *)&f;
            This->ctx->script_obj->rnd = value = get_next_rnd(value + (value >> 24));
        }
        else if (f == 0.0f)
            value = This->ctx->script_obj->rnd;
        else
            This->ctx->script_obj->rnd = value = get_next_rnd(value);
    }
    else
    {
        This->ctx->script_obj->rnd = value = get_next_rnd(value);
    }
 
    return return_float(res, (float)value / modulus);
}

Global_Round()

static HRESULT Global_Round ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3164 of file global.c.

{
    int decimal_places = 0;
    double d;
    HRESULT hres;
 
    TRACE("%s %s\n", debugstr_variant(args), args_cnt == 2 ? debugstr_variant(args + 1) : "0");
 
    assert(args_cnt == 1 || args_cnt == 2);
 
    if(!res)
        return S_OK;
 
    if(args_cnt == 2) {
       if (V_VT(args + 1) != VT_ERROR) {
           hres = to_int(args + 1, &decimal_places);
           if (FAILED(hres))
              return hres;
       }
    }
 
    switch(V_VT(args)) {
    case VT_I2:
    case VT_I4:
    case VT_BOOL:
        *res = *args;
        return S_OK;
    case VT_R8:
        d = V_R8(args);
        break;
    default:
        hres = to_double(args, &d);
        if(FAILED(hres))
            return hres;
    }
 
    hres = VarR8Round(d, decimal_places, &d);
    if(FAILED(hres))
        return hres;
 
    return return_double(res, d);
}

Global_RTrim()

static HRESULT Global_RTrim ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1608 of file global.c.

{
    BSTR str, conv_str = NULL;
    WCHAR *ptr;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    if(V_VT(arg) == VT_BSTR) {
        str = V_BSTR(arg);
    }else {
        hres = to_string(arg, &conv_str);
        if(FAILED(hres))
            return hres;
        str = conv_str;
    }
 
    for(ptr = str+SysStringLen(str); ptr-1 > str && iswspace(*(ptr-1)); ptr--);
 
    str = SysAllocStringLen(str, ptr-str);
    SysFreeString(conv_str);
    if(!str)
        return E_OUTOFMEMORY;
 
    return return_bstr(res, str);
}

Global_ScriptEngine()

static HRESULT Global_ScriptEngine ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2935 of file global.c.

{
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 0);
 
    return return_string(res, L"VBScript");
}

Global_ScriptEngineBuildVersion()

static HRESULT Global_ScriptEngineBuildVersion ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2962 of file global.c.

{
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 0);
 
    return return_int(res, VBSCRIPT_BUILD_VERSION);
}

Global_ScriptEngineMajorVersion()

static HRESULT Global_ScriptEngineMajorVersion ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2944 of file global.c.

{
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 0);
 
    return return_int(res, VBSCRIPT_MAJOR_VERSION);
}

Global_ScriptEngineMinorVersion()

static HRESULT Global_ScriptEngineMinorVersion ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2953 of file global.c.

{
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 0);
 
    return return_int(res, VBSCRIPT_MINOR_VERSION);
}

Global_Second()

static HRESULT Global_Second ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2178 of file global.c.

{
    SYSTEMTIME st;
    HRESULT hres;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    hres = to_system_time(arg, &st);
    return FAILED(hres) ? hres : return_short(res, st.wSecond);
}

Global_SetLocale()

static HRESULT Global_SetLocale ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2189 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Sgn()

static HRESULT Global_Sgn ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2008 of file global.c.

{
    double v;
    short val;
    HRESULT hres;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    if(V_VT(arg) == VT_NULL)
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    hres = to_double(arg, &v);
    if (FAILED(hres))
        return hres;
 
    val = v == 0 ? 0 : (v > 0 ? 1 : -1);
    return return_short(res, val);
}

Global_Sin()

static HRESULT Global_Sin ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1031 of file global.c.

{
    HRESULT hres;
    double d;
 
    hres = to_double(arg, &d);
    if(FAILED(hres))
        return hres;
 
    return return_double(res, sin(d));
}

Global_Space()

static HRESULT Global_Space ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1663 of file global.c.

{
    BSTR str;
    int n, i;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    if(V_VT(arg) == VT_NULL)
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    hres = to_int(arg, &n);
    if(FAILED(hres))
        return hres;
 
    if(n < 0)
        return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
 
    if(!res)
        return S_OK;
 
    str = SysAllocStringLen(NULL, n);
    if(!str)
        return E_OUTOFMEMORY;
 
    for(i=0; i<n; i++)
        str[i] = ' ';
 
    V_VT(res) = VT_BSTR;
    V_BSTR(res) = str;
    return S_OK;
}

Global_Split()

static HRESULT Global_Split ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2595 of file global.c.

{
    BSTR string, delimiter = NULL;
    int count, max, mode, len, start, end, ret, delimiterlen = 1;
    int i, *indices = NULL, *new_indices, indices_max = 8;
    SAFEARRAYBOUND bounds;
    SAFEARRAY *sa = NULL;
    VARIANT *data;
    HRESULT hres = S_OK;
 
    TRACE("%s %u...\n", debugstr_variant(args), args_cnt);
 
    assert(1 <= args_cnt && args_cnt <= 4);
 
    if(V_VT(args) == VT_NULL || (args_cnt > 1 && V_VT(args+1) == VT_NULL) || (args_cnt > 2 && V_VT(args+2) == VT_NULL)
       || (args_cnt == 4 && V_VT(args+3) == VT_NULL))
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    if(V_VT(args) != VT_BSTR) {
        hres = to_string(args, &string);
        if(FAILED(hres))
            return hres;
    }else {
        string = V_BSTR(args);
    }
 
    if(args_cnt > 1) {
        if(V_VT(args+1) != VT_BSTR) {
            hres = to_string(args+1, &delimiter);
            if(FAILED(hres))
                goto error;
        }else {
            delimiter = V_BSTR(args+1);
        }
        delimiterlen = SysStringLen(delimiter);
    }
 
    if(args_cnt > 2) {
        hres = to_int(args+2, &max);
        if(FAILED(hres))
            goto error;
        if (max < -1) {
            hres = MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
            goto error;
       }
    }else {
        max = -1;
    }
 
    if(args_cnt == 4) {
        hres = to_int(args+3, &mode);
        if(FAILED(hres))
            goto error;
        if (mode != 0 && mode != 1) {
            hres = MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
            goto error;
        }
    }else {
        mode = 0;
    }
 
    start = 0;
 
    len = SysStringLen(string);
    count = 0;
 
    indices = malloc( indices_max * sizeof(int));
    if(!indices) {
        hres = E_OUTOFMEMORY;
        goto error;
    }
 
    while(1) {
        ret = -1;
        if (delimiterlen) {
            ret = FindStringOrdinal(FIND_FROMSTART, string + start, len - start,
                                    delimiter ? delimiter : L" ", delimiterlen, mode);
        }
 
        if (ret == -1) {
            end = len;
        }else {
            end = start + ret;
        }
 
        if (count == indices_max) {
            new_indices = realloc(indices, indices_max * 2 * sizeof(int));
            if(!new_indices) {
                hres = E_OUTOFMEMORY;
                goto error;
            }
            indices = new_indices;
            indices_max *= 2;
        }
        indices[count++] = end;
 
        if (ret == -1 || count == max) break;
        start = start + ret + delimiterlen;
        if (start > len) break;
    }
 
    bounds.lLbound = 0;
    bounds.cElements = count;
    sa = SafeArrayCreate( VT_VARIANT, 1, &bounds);
    if (!sa) {
        hres = E_OUTOFMEMORY;
        goto error;
    }
    hres = SafeArrayAccessData(sa, (void**)&data);
    if(FAILED(hres)) {
        goto error;
    }
 
    start = 0;
    for (i = 0; i < count; i++) {
        V_VT(&data[i]) = VT_BSTR;
        V_BSTR(&data[i]) = SysAllocStringLen(string + start, indices[i] - start);
 
        if (!V_BSTR(&data[i])) {
            hres = E_OUTOFMEMORY;
            break;
        }
        start = indices[i]+delimiterlen;
    }
    SafeArrayUnaccessData(sa);
 
error:
    if(SUCCEEDED(hres) && res) {
        V_VT(res) = VT_ARRAY|VT_VARIANT;
        V_ARRAY(res) = sa;
    }else {
        SafeArrayDestroy(sa);
    }
 
    free(indices);
    if(V_VT(args) != VT_BSTR)
        SysFreeString(string);
    if(args_cnt > 1 && V_VT(args+1) != VT_BSTR)
        SysFreeString(delimiter);
    return hres;
}

Global_Sqr()

static HRESULT Global_Sqr ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1082 of file global.c.

{
    HRESULT hres;
    double d;
 
    hres = to_double(arg, &d);
    if(FAILED(hres))
        return hres;
 
    if(d < 0)
        return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
    else
        return return_double(res, sqrt(d));
}

Global_StrComp()

static HRESULT Global_StrComp ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1480 of file global.c.

{
    BSTR left, right;
    int mode, ret;
    HRESULT hres;
    short val;
 
    TRACE("(%s %s ...)\n", debugstr_variant(args), debugstr_variant(args+1));
 
    assert(args_cnt == 2 || args_cnt == 3);
 
    if (args_cnt == 3) {
        hres = to_int(args+2, &mode);
        if(FAILED(hres))
            return hres;
 
        if (mode != 0 && mode != 1) {
            FIXME("unknown compare mode = %d\n", mode);
            return E_FAIL;
        }
    }
    else
        mode = 0;
 
    hres = to_string(args, &left);
    if(FAILED(hres))
        return hres;
 
    hres = to_string(args+1, &right);
    if(FAILED(hres))
    {
        SysFreeString(left);
        return hres;
    }
 
    ret = mode ? wcsicmp(left, right) : wcscmp(left, right);
    val = ret < 0 ? -1 : (ret > 0 ? 1 : 0);
 
    SysFreeString(left);
    SysFreeString(right);
    return return_short(res, val);
}

Global_String()

static HRESULT Global_String ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1698 of file global.c.

{
    WCHAR ch;
    int cnt;
    HRESULT hres;
 
    TRACE("%s %s\n", debugstr_variant(args), debugstr_variant(args + 1));
 
    hres = to_int(args, &cnt);
    if(FAILED(hres))
        return hres;
    if(cnt < 0)
        return E_INVALIDARG;
 
    if(V_VT(args + 1) != VT_BSTR) {
        FIXME("Unsupported argument %s\n", debugstr_variant(args+1));
        return E_NOTIMPL;
    }
    if(!SysStringLen(V_BSTR(args + 1)))
        return E_INVALIDARG;
    ch = V_BSTR(args + 1)[0];
 
    if(res) {
        BSTR str = SysAllocStringLen(NULL, cnt);
        if(!str)
            return E_OUTOFMEMORY;
        wmemset(str, ch, cnt);
        V_VT(res) = VT_BSTR;
        V_BSTR(res) = str;
    }
    return S_OK;
}

Global_StrReverse()

static HRESULT Global_StrReverse ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2827 of file global.c.

{
    WCHAR *ptr1, *ptr2, ch;
    BSTR ret;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    hres = to_string(arg, &ret);
    if(FAILED(hres))
        return hres;
 
    ptr1 = ret;
    ptr2 = ret + SysStringLen(ret)-1;
    while(ptr1 < ptr2) {
        ch = *ptr1;
        *ptr1++ = *ptr2;
        *ptr2-- = ch;
    }
 
    return return_bstr(res, ret);
}

Global_Tan()

static HRESULT Global_Tan ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1043 of file global.c.

{
    HRESULT hres;
    double d;
 
    hres = to_double(arg, &d);
    if(FAILED(hres))
        return hres;
 
    return return_double(res, tan(d));
}

Global_Time()

static HRESULT Global_Time ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2059 of file global.c.

{
    SYSTEMTIME lt;
    UDATE ud;
    DATE time;
    HRESULT hres;
 
    TRACE("\n");
 
    GetLocalTime(&lt);
    ud.st = lt;
    ud.wDayOfYear = 0;
    hres = VarDateFromUdateEx(&ud, 0, VAR_TIMEVALUEONLY, &time);
    if(FAILED(hres))
        return hres;
    return return_date(res, time);
}

Global_Timer()

static HRESULT Global_Timer ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1163 of file global.c.

{
    SYSTEMTIME lt;
    double sec;
 
    GetLocalTime(&lt);
    sec = lt.wHour * 3600 + lt.wMinute * 60 + lt.wSecond + lt.wMilliseconds / 1000.0;
    return return_float(res, sec);
 
}

Global_TimeSerial()

static HRESULT Global_TimeSerial ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2241 of file global.c.

{
    int hour, minute, second;
    UDATE ud = {{ 0 }};
    HRESULT hres;
    double date;
 
    TRACE("\n");
 
    assert(args_cnt == 3);
 
    if (V_VT(args) == VT_NULL || V_VT(args + 1) == VT_NULL || V_VT(args + 2) == VT_NULL)
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    hres = to_int(args, &hour);
    if (SUCCEEDED(hres))
        hres = to_int(args + 1, &minute);
    if (SUCCEEDED(hres))
        hres = to_int(args + 2, &second);
 
    if (SUCCEEDED(hres))
    {
        ud.st.wYear = 1899;
        ud.st.wMonth = 12;
        ud.st.wDay = 30;
        ud.st.wHour = hour;
        ud.st.wMinute = minute;
        ud.st.wSecond = second;
        hres = VarDateFromUdateEx(&ud, 0, 0, &date);
    }
 
    if (SUCCEEDED(hres))
        hres = return_date(res, date);
 
    return hres;
}

Global_TimeValue()

static HRESULT Global_TimeValue ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2201 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_Trim()

static HRESULT Global_Trim ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1635 of file global.c.

{
    BSTR str, conv_str = NULL;
    WCHAR *begin_ptr, *end_ptr;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    if(V_VT(arg) == VT_BSTR) {
        str = V_BSTR(arg);
    }else {
        hres = to_string(arg, &conv_str);
        if(FAILED(hres))
            return hres;
        str = conv_str;
    }
 
    for(begin_ptr = str; *begin_ptr && iswspace(*begin_ptr); begin_ptr++);
    for(end_ptr = str+SysStringLen(str); end_ptr-1 > begin_ptr && iswspace(*(end_ptr-1)); end_ptr--);
 
    str = SysAllocStringLen(begin_ptr, end_ptr-begin_ptr);
    SysFreeString(conv_str);
    if(!str)
        return E_OUTOFMEMORY;
 
    return return_bstr(res, str);
}

Global_TypeName()

static HRESULT Global_TypeName ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2477 of file global.c.

{
    ITypeInfo *typeinfo;
    BSTR name = NULL;
    HRESULT hres;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    if (V_ISARRAY(arg))
        return return_string(res, L"Variant()");
 
    switch(V_VT(arg)) {
        case VT_UI1:
            return return_string(res, L"Byte");
        case VT_I2:
            return return_string(res, L"Integer");
        case VT_I4:
            return return_string(res, L"Long");
        case VT_R4:
            return return_string(res, L"Single");
        case VT_R8:
            return return_string(res, L"Double");
        case VT_CY:
            return return_string(res, L"Currency");
        case VT_DECIMAL:
            return return_string(res, L"Decimal");
        case VT_DATE:
            return return_string(res, L"Date");
        case VT_BSTR:
            return return_string(res, L"String");
        case VT_BOOL:
            return return_string(res, L"Boolean");
        case VT_EMPTY:
            return return_string(res, L"Empty");
        case VT_NULL:
            return return_string(res, L"Null");
        case VT_DISPATCH:
            if (!V_DISPATCH(arg))
                return return_string(res, L"Nothing");
            if (SUCCEEDED(IDispatch_GetTypeInfo(V_DISPATCH(arg), 0, GetUserDefaultLCID(), &typeinfo)))
            {
                hres = ITypeInfo_GetDocumentation(typeinfo, MEMBERID_NIL, &name, NULL, NULL, NULL);
                ITypeInfo_Release(typeinfo);
 
                if (SUCCEEDED(hres) && name && *name)
                    return return_bstr(res, name);
 
                SysFreeString(name);
            }
            return return_string(res, L"Object");
        default:
            FIXME("arg %s not supported\n", debugstr_variant(arg));
            return E_NOTIMPL;
        }
}

Global_UBound()

static HRESULT Global_UBound ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1215 of file global.c.

{
    SAFEARRAY *sa;
    HRESULT hres;
    LONG ubound;
    int dim;
 
    assert(args_cnt == 1 || args_cnt == 2);
 
    TRACE("%s %s\n", debugstr_variant(arg), args_cnt == 2 ? debugstr_variant(arg + 1) : "1");
 
    switch(V_VT(arg)) {
    case VT_VARIANT|VT_ARRAY:
        sa = V_ARRAY(arg);
        break;
    case VT_VARIANT|VT_ARRAY|VT_BYREF:
        sa = *V_ARRAYREF(arg);
        break;
    case VT_EMPTY:
    case VT_NULL:
        return MAKE_VBSERROR(VBSE_TYPE_MISMATCH);
    default:
        FIXME("arg %s not supported\n", debugstr_variant(arg));
        return E_NOTIMPL;
    }
 
    if(args_cnt == 2) {
        hres = to_int(arg + 1, &dim);
        if(FAILED(hres))
            return hres;
    }else {
        dim = 1;
    }
 
    hres = SafeArrayGetUBound(sa, dim, &ubound);
    if(FAILED(hres))
        return hres;
 
    return return_int(res, ubound);
}

Global_UCase()

static HRESULT Global_UCase ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1552 of file global.c.

{
    BSTR str;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    if(V_VT(arg) == VT_NULL) {
        return return_null(res);
    }
 
    hres = to_string(arg, &str);
    if(FAILED(hres))
        return hres;
 
    if(res) {
        WCHAR *ptr;
 
        for(ptr = str; *ptr; ptr++)
            *ptr = towupper(*ptr);
 
        V_VT(res) = VT_BSTR;
        V_BSTR(res) = str;
    }else {
        SysFreeString(str);
    }
    return S_OK;
}

Global_Unescape()

static HRESULT Global_Unescape ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3213 of file global.c.

{
    FIXME("\n");
    return E_NOTIMPL;
}

Global_VarType()

static HRESULT Global_VarType ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 934 of file global.c.

{
    VARTYPE vt;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    vt = V_VT(arg) & ~VT_BYREF;
    if(vt & ~(VT_TYPEMASK | VT_ARRAY)) {
        FIXME("not supported %s\n", debugstr_variant(arg));
        return E_NOTIMPL;
    }
 
    return return_short(res, vt);
}

Global_Weekday()

static HRESULT Global_Weekday ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2099 of file global.c.

{
    HRESULT hres = S_OK;
    int first_day = 0;
    SYSTEMTIME st;
 
    TRACE("(%s)\n", debugstr_variant(args));
 
    assert(args_cnt == 1 || args_cnt == 2);
 
    /* [vbSunday = 1, vbSaturday = 7] -> wDayOfWeek [0, 6] */
    if (args_cnt == 2)
    {
        if (V_VT(args + 1) == VT_NULL)
            return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
        hres = to_int(args + 1, &first_day);
        if (SUCCEEDED(hres))
        {
            if (!first_day)
            {
                /* vbUseSystemDayOfWeek */
                GetLocaleInfoW(This->ctx->lcid, LOCALE_RETURN_NUMBER | LOCALE_IFIRSTDAYOFWEEK, (LPWSTR)&first_day,
                        sizeof(first_day) / sizeof(WCHAR));
                first_day = (first_day + 1) % 7;
            }
            else if (first_day >= 1 && first_day <= 7)
            {
                first_day--;
            }
            else
                return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
        }
    }
 
    if (FAILED(hres))
        return hres;
 
    if (V_VT(args) == VT_NULL)
        return return_null(res);
 
    if (FAILED(hres = to_system_time(args, &st))) return hres;
 
    return return_short(res, 1 + (7 - first_day + st.wDayOfWeek) % 7);
}

Global_WeekdayName()

static HRESULT Global_WeekdayName ( BuiltinDisp *  This, VARIANT *  args, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 3101 of file global.c.

{
    int weekday, first_day = 1, abbrev = 0;
    BSTR ret;
    HRESULT hres;
 
    TRACE("\n");
 
    assert(1 <= args_cnt && args_cnt <= 3);
 
    hres = to_int(args, &weekday);
    if(FAILED(hres))
        return hres;
 
    if(args_cnt > 1) {
        hres = to_int(args+1, &abbrev);
        if(FAILED(hres))
            return hres;
 
        if(args_cnt == 3) {
            hres = to_int(args+2, &first_day);
            if(FAILED(hres))
                return hres;
        }
    }
 
    hres = VarWeekdayName(weekday, abbrev, first_day, 0, &ret);
    if(FAILED(hres))
        return hres;
 
    return return_bstr(res, ret);
}

Global_Year()

static HRESULT Global_Year ( BuiltinDisp *  This, VARIANT *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2145 of file global.c.

{
    SYSTEMTIME st;
    HRESULT hres;
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    hres = to_system_time(arg, &st);
    return FAILED(hres) ? hres : return_short(res, st.wYear);
}

hex_char()

static WCHAR hex_char ( unsigned  n )

inlinestatic

Definition at line 851 of file global.c.

{
    return n < 10 ? '0'+n : 'A'+n-10;
}

Referenced by Global_Hex().

impl_from_IDispatch()

static BuiltinDisp * impl_from_IDispatch ( IDispatch *  iface )

inlinestatic

Definition at line 61 of file global.c.

{
    return CONTAINING_RECORD(iface, BuiltinDisp, IDispatch_iface);
}

Referenced by Builtin_AddRef(), Builtin_GetIDsOfNames(), Builtin_GetTypeInfo(), Builtin_GetTypeInfoCount(), Builtin_Invoke(), Builtin_QueryInterface(), and Builtin_Release().

init_global()

HRESULT init_global

(

script_ctx_t *

ctx

)

Definition at line 3617 of file global.c.

{
    HRESULT hres;
 
    hres = create_builtin_dispatch(ctx, global_props, ARRAY_SIZE(global_props), &ctx->global_obj);
    if(FAILED(hres))
        return hres;
 
    return create_builtin_dispatch(ctx, err_props, ARRAY_SIZE(err_props), &ctx->err_obj);
}

return_bool()

static HRESULT return_bool ( VARIANT *  res, BOOL  val  )

static

Definition at line 354 of file global.c.

{
    if(res) {
        V_VT(res) = VT_BOOL;
        V_BOOL(res) = val ? VARIANT_TRUE : VARIANT_FALSE;
    }
    return S_OK;
}

Referenced by Global_IsArray(), Global_IsDate(), Global_IsEmpty(), Global_IsNull(), Global_IsNumeric(), and Global_IsObject().

return_bstr()

static HRESULT return_bstr ( VARIANT *  res, BSTR  str  )

static

Definition at line 343 of file global.c.

{
    if(res) {
        V_VT(res) = VT_BSTR;
        V_BSTR(res) = str;
    }else {
        SysFreeString(str);
    }
    return S_OK;
}

Referenced by Global_CStr(), Global_FormatCurrency(), Global_FormatDateTime(), Global_FormatNumber(), Global_FormatPercent(), Global_Left(), Global_LTrim(), Global_MonthName(), Global_Right(), Global_RTrim(), Global_StrReverse(), Global_Trim(), Global_TypeName(), and Global_WeekdayName().

return_date()

static HRESULT return_date ( VARIANT *  res, double  date  )

inlinestatic

Definition at line 410 of file global.c.

{
    if(res) {
        V_VT(res) = VT_DATE;
        V_DATE(res) = date;
    }
    return S_OK;
}

Referenced by Global_Date(), Global_DateAdd(), Global_DateSerial(), Global_Now(), Global_Time(), and Global_TimeSerial().

return_double()

static HRESULT return_double ( VARIANT *  res, double  val  )

inlinestatic

Definition at line 383 of file global.c.

{
    if(res) {
        V_VT(res) = VT_R8;
        V_R8(res) = val;
    }
 
    return S_OK;
}

Referenced by Global_Atn(), Global_Cos(), Global_Exp(), Global_Log(), Global_Round(), Global_Sin(), Global_Sqr(), and Global_Tan().

return_float()

static HRESULT return_float ( VARIANT *  res, float  val  )

inlinestatic

Definition at line 393 of file global.c.

{
    if(res) {
        V_VT(res) = VT_R4;
        V_R4(res) = val;
    }
 
    return S_OK;
}

Referenced by Global_Rnd(), and Global_Timer().

return_int()

static HRESULT return_int ( VARIANT *  res, int  val  )

static

Definition at line 373 of file global.c.

{
    if(res) {
        V_VT(res) = VT_I4;
        V_I4(res) = val;
    }
 
    return S_OK;
}

Referenced by Err_HelpContext(), Err_Number(), Global_CLng(), Global_InStr(), Global_InStrRev(), Global_LBound(), Global_Len(), Global_RGB(), Global_ScriptEngineBuildVersion(), Global_ScriptEngineMajorVersion(), Global_ScriptEngineMinorVersion(), and Global_UBound().

return_null()

static HRESULT return_null ( VARIANT *  res )

inlinestatic

Definition at line 403 of file global.c.

{
    if(res)
        V_VT(res) = VT_NULL;
    return S_OK;
}

Referenced by Global_DateAdd(), Global_Hex(), Global_InStr(), Global_LCase(), Global_Len(), Global_Mid(), Global_Oct(), Global_Right(), Global_UCase(), and Global_Weekday().

return_short()

static HRESULT return_short ( VARIANT *  res, short  val  )

static

Definition at line 363 of file global.c.

{
    if(res) {
        V_VT(res) = VT_I2;
        V_I2(res) = val;
    }
 
    return S_OK;
}

Referenced by Global_Asc(), Global_Day(), Global_Hour(), Global_Minute(), Global_Month(), Global_Second(), Global_Sgn(), Global_StrComp(), Global_VarType(), Global_Weekday(), Global_Year(), and show_msgbox().

return_string()

static HRESULT return_string ( VARIANT *  res, const WCHAR *  str  )

static

Definition at line 327 of file global.c.

{
    BSTR ret;
 
    if(!res)
        return S_OK;
 
    ret = SysAllocString(str);
    if(!ret)
        return E_OUTOFMEMORY;
 
    V_VT(res) = VT_BSTR;
    V_BSTR(res) = ret;
    return S_OK;
}

Referenced by err_string_prop(), Global_Hex(), Global_Mid(), Global_Oct(), Global_ScriptEngine(), and Global_TypeName().

set_object_site()

static HRESULT set_object_site ( script_ctx_t *  ctx, IUnknown *  obj  )

static

Definition at line 488 of file global.c.

{
    IObjectWithSite *obj_site;
    IUnknown *ax_site;
    HRESULT hres;
 
    hres = IUnknown_QueryInterface(obj, &IID_IObjectWithSite, (void**)&obj_site);
    if(FAILED(hres))
        return S_OK;
 
    ax_site = create_ax_site(ctx);
    if(ax_site) {
        hres = IObjectWithSite_SetSite(obj_site, ax_site);
        IUnknown_Release(ax_site);
    }
    else
        hres = E_OUTOFMEMORY;
    IObjectWithSite_Release(obj_site);
    return hres;
}

Referenced by create_object(), and Global_GetObject().

show_msgbox()

static HRESULT show_msgbox ( script_ctx_t *  ctx, BSTR  prompt, unsigned  type, BSTR  orig_title, VARIANT *  res  )

static

Definition at line 580 of file global.c.

{
    SCRIPTUICHANDLING uic_handling = SCRIPTUICHANDLING_ALLOW;
    IActiveScriptSiteUIControl *ui_control;
    IActiveScriptSiteWindow *acts_window;
    WCHAR *title_buf = NULL;
    const WCHAR *title;
    HWND hwnd = NULL;
    int ret = 0;
    HRESULT hres;
 
    hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IActiveScriptSiteUIControl, (void**)&ui_control);
    if(SUCCEEDED(hres)) {
        hres = IActiveScriptSiteUIControl_GetUIBehavior(ui_control, SCRIPTUICITEM_MSGBOX, &uic_handling);
        IActiveScriptSiteUIControl_Release(ui_control);
        if(FAILED(hres))
            uic_handling = SCRIPTUICHANDLING_ALLOW;
    }
 
    switch(uic_handling) {
    case SCRIPTUICHANDLING_ALLOW:
        break;
    case SCRIPTUICHANDLING_NOUIDEFAULT:
        return return_short(res, 0);
    default:
        FIXME("blocked\n");
        return E_FAIL;
    }
 
    hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IActiveScriptSiteWindow, (void**)&acts_window);
    if(FAILED(hres)) {
        FIXME("No IActiveScriptSiteWindow\n");
        return hres;
    }
 
    if(ctx->safeopt & INTERFACE_USES_SECURITY_MANAGER) {
        if(orig_title && *orig_title) {
            WCHAR *ptr;
 
            title = title_buf = malloc(sizeof(L"VBScript") + (lstrlenW(orig_title)+2)*sizeof(WCHAR));
            if(!title)
                return E_OUTOFMEMORY;
 
            memcpy(title_buf, L"VBScript", sizeof(L"VBScript"));
            ptr = title_buf + ARRAY_SIZE(L"VBScript")-1;
 
            *ptr++ = ':';
            *ptr++ = ' ';
            lstrcpyW(ptr, orig_title);
        }else {
            title = L"VBScript";
        }
    }else {
        title = orig_title ? orig_title : L"";
    }
 
    hres = IActiveScriptSiteWindow_GetWindow(acts_window, &hwnd);
    if(SUCCEEDED(hres)) {
        hres = IActiveScriptSiteWindow_EnableModeless(acts_window, FALSE);
        if(SUCCEEDED(hres)) {
            ret = MessageBoxW(hwnd, prompt, title, type);
            hres = IActiveScriptSiteWindow_EnableModeless(acts_window, TRUE);
        }
    }
 
    free(title_buf);
    IActiveScriptSiteWindow_Release(acts_window);
    if(FAILED(hres)) {
        FIXME("failed: %08lx\n", hres);
        return hres;
    }
 
    return return_short(res, ret);
}

Referenced by Global_MsgBox().

to_double()

static HRESULT to_double ( VARIANT *  v, double *  ret  )

static

Definition at line 433 of file global.c.

{
    VARIANT dst;
    HRESULT hres;
 
    V_VT(&dst) = VT_EMPTY;
    hres = VariantChangeType(&dst, v, 0, VT_R8);
    if(FAILED(hres))
        return hres;
 
    *ret = V_R8(&dst);
    return S_OK;
}

Referenced by Global_Atn(), Global_Cos(), Global_Exp(), Global_IsNumeric(), Global_Log(), Global_Randomize(), Global_Round(), Global_Sgn(), Global_Sin(), Global_Sqr(), and Global_Tan().

to_float()

static HRESULT to_float ( VARIANT *  v, float *  ret  )

static

Definition at line 447 of file global.c.

{
    VARIANT dst;
    HRESULT hres;
 
    V_VT(&dst) = VT_EMPTY;
    hres = VariantChangeType(&dst, v, 0, VT_R4);
    if(FAILED(hres))
        return hres;
 
    *ret = V_R4(&dst);
    return S_OK;
}

Referenced by Global_Rnd().

to_int()

HRESULT to_int	(	VARIANT *	v,
		int *	ret
	)

Definition at line 419 of file global.c.

{
    VARIANT r;
    HRESULT hres;
 
    V_VT(&r) = VT_EMPTY;
    hres = VariantChangeType(&r, v, 0, VT_I4);
    if(FAILED(hres))
        return hres;
 
    *ret = V_I4(&r);
    return S_OK;
}

Referenced by array_access(), array_bounds_from_stack(), Err_Raise(), Global_Chr(), Global_CLng(), Global_DateAdd(), Global_DateSerial(), Global_FormatCurrency(), Global_FormatDateTime(), Global_FormatNumber(), Global_FormatPercent(), Global_Hex(), Global_InStr(), Global_InStrRev(), Global_LBound(), Global_Left(), Global_Mid(), Global_MonthName(), Global_MsgBox(), Global_Oct(), Global_Replace(), Global_RGB(), Global_Right(), Global_Round(), Global_Space(), Global_Split(), Global_StrComp(), Global_String(), Global_TimeSerial(), Global_UBound(), Global_Weekday(), and Global_WeekdayName().

to_string()

static HRESULT to_string ( VARIANT *  v, BSTR *  ret  )

static

Definition at line 461 of file global.c.

{
    VARIANT dst;
    HRESULT hres;
 
    V_VT(&dst) = VT_EMPTY;
    hres = VariantChangeType(&dst, v, VARIANT_LOCALBOOL, VT_BSTR);
    if(FAILED(hres))
        return hres;
 
    *ret = V_BSTR(&dst);
    return S_OK;
}

Referenced by Err_Raise(), err_string_prop(), Global_Asc(), Global_CStr(), Global_DateAdd(), Global_InStr(), Global_InStrRev(), Global_LCase(), Global_Left(), Global_Len(), Global_LTrim(), Global_Mid(), Global_MsgBox(), Global_Replace(), Global_Right(), Global_RTrim(), Global_Split(), Global_StrComp(), Global_StrReverse(), Global_Trim(), and Global_UCase().

to_system_time()

static HRESULT to_system_time ( VARIANT *  v, SYSTEMTIME *  st  )

static

Definition at line 475 of file global.c.

{
    VARIANT date;
    HRESULT hres;
 
    V_VT(&date) = VT_EMPTY;
    hres = VariantChangeType(&date, v, 0, VT_DATE);
    if(FAILED(hres))
        return hres;
 
    return VariantTimeToSystemTime(V_DATE(&date), st);
}

Referenced by Global_DateAdd(), Global_Day(), Global_Hour(), Global_Minute(), Global_Month(), Global_Second(), Global_Weekday(), and Global_Year().

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

vbscript

)

Variable Documentation

BuiltinDispVtbl

const IDispatchVtbl BuiltinDispVtbl

static

Initial value:

= {
    Builtin_QueryInterface,
    Builtin_AddRef,
    Builtin_Release,
    Builtin_GetTypeInfoCount,
    Builtin_GetTypeInfo,
    Builtin_GetIDsOfNames,
    Builtin_Invoke
}

Definition at line 275 of file global.c.

Referenced by create_builtin_dispatch().

err_props

const builtin_prop_t err_props[]

static

Initial value:

= {
    {NULL,            Err_Number, BP_GETPUT},
    {L"Clear",        Err_Clear},
    {L"Description",  Err_Description, BP_GETPUT},
    {L"HelpContext",  Err_HelpContext, BP_GETPUT},
    {L"HelpFile",     Err_HelpFile, BP_GETPUT},
    {L"Number",       Err_Number, BP_GETPUT},
    {L"Raise",        Err_Raise, 0, 1, 5},
    {L"Source",       Err_Source, BP_GETPUT}
}

Definition at line 3591 of file global.c.

Referenced by init_global().

global_props

const builtin_prop_t global_props[]

static

Definition at line 3268 of file global.c.

Referenced by init_global().

GUID_CUSTOM_CONFIRMOBJECTSAFETY

const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY

Initial value:

=
    {0x10200490,0xfa38,0x11d0,{0xac,0x0e,0x00,0xa0,0xc9,0xf,0xff,0xc0}}

Definition at line 42 of file global.c.

Referenced by create_object().

vbCr

const string_constant_t vbCr = {1, {'\r'}}

static

Definition at line 3258 of file global.c.

vbCrLf

const string_constant_t vbCrLf = {2, {'\r','\n'}}

static

Definition at line 3259 of file global.c.

vbFormFeed

const string_constant_t vbFormFeed = {1, {0xc}}

static

Definition at line 3261 of file global.c.

vbLf

const string_constant_t vbLf = {1, {'\n'}}

static

Definition at line 3262 of file global.c.

vbNewLine

const string_constant_t vbNewLine = {2, {'\r','\n'}}

static

Definition at line 3260 of file global.c.

vbNullChar

const string_constant_t vbNullChar = {1}

static

Definition at line 3263 of file global.c.

vbNullString

const string_constant_t vbNullString = {0}

static

Definition at line 3264 of file global.c.

vbTab

const string_constant_t vbTab = {1, {'\t'}}

static

Definition at line 3265 of file global.c.

vbVerticalTab

const string_constant_t vbVerticalTab = {1, {0xb}}

static

Definition at line 3266 of file global.c.