global.c File Reference

#include <assert.h>
#include <math.h>
#include "vbscript.h"
#include "vbscript_defs.h"
#include "mshtmhst.h"
#include "objsafe.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_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 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 *arg, 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 *arg, 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_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 *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_TimeSerial (BuiltinDisp *This, VARIANT *arg, 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 *arg, 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 *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_Replace (BuiltinDisp *This, VARIANT *arg, 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 *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_FormatCurrency (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_FormatPercent (BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
static HRESULT	Global_FormatDateTime (BuiltinDisp *This, VARIANT *arg, 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 *arg, 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 WCHAR	emptyW [] = {0}
static const WCHAR	vbscriptW [] = {'V','B','S','c','r','i','p','t',0}
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 47 of file global.c.

BP_GETPUT

#define BP_GETPUT   2

Definition at line 48 of file global.c.

VB_E_CANNOT_CREATE_OBJ

#define VB_E_CANNOT_CREATE_OBJ   0x800a01ad

Definition at line 37 of file global.c.

VB_E_MK_PARSE_ERROR

#define VB_E_MK_PARSE_ERROR   0x800a01b0

Definition at line 38 of file global.c.

Function Documentation

Builtin_AddRef()

static ULONG WINAPI Builtin_AddRef ( IDispatch *  iface )

static

Definition at line 88 of file global.c.

{
    BuiltinDisp *This = impl_from_IDispatch(iface);
    LONG ref = InterlockedIncrement(&This->ref);
 
    TRACE("(%p) ref=%d\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 150 of file global.c.

{
    BuiltinDisp *This = impl_from_IDispatch(iface);
    unsigned i;
    HRESULT hres;
 
    TRACE("(%p)->(%s %p %u %u %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 121 of file global.c.

{
    BuiltinDisp *This = impl_from_IDispatch(iface);
    TRACE("(%p)->(%u %u %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 113 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 173 of file global.c.

{
    BuiltinDisp *This = impl_from_IDispatch(iface);
    const builtin_prop_t *prop;
    VARIANT args[8];
    unsigned argn, i;
 
    TRACE("(%p)->(%d %s %d %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);
    }
 
    assert(argn < ARRAY_SIZE(args));
 
    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];
    }
 
    return prop->proc(This, args, dp->cArgs, res);
}

Builtin_QueryInterface()

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

static

Definition at line 68 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 {
        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 98 of file global.c.

{
    BuiltinDisp *This = impl_from_IDispatch(iface);
    LONG ref = InterlockedDecrement(&This->ref);
 
    TRACE("(%p) ref=%d\n", This, ref);
 
    if(!ref) {
        assert(!This->ctx);
        heap_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 276 of file global.c.

{
    BuiltinDisp *disp;
 
    if(!(disp = heap_alloc(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 486 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 2855 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 release_script().

Err_Clear()

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

static

Definition at line 2778 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 2733 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 2739 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 2751 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 2757 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 2786 of file global.c.

{
    BSTR source = NULL, description = NULL, helpfile = NULL;
    int code,  helpcontext = 0;
    HRESULT hres, error;
 
    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;
 
        error = (code & ~0xffff) ? map_hres(code) : MAKE_VBSERROR(code);
 
        if(source) {
            if(ctx->ei.bstrSource) SysFreeString(ctx->ei.bstrSource);
            ctx->ei.bstrSource = source;
        }
        if(!ctx->ei.bstrSource)
            ctx->ei.bstrSource = get_vbscript_string(VBS_RUNTIME_ERROR);
        if(description) {
            if(ctx->ei.bstrDescription) SysFreeString(ctx->ei.bstrDescription);
            ctx->ei.bstrDescription = description;
        }
        if(!ctx->ei.bstrDescription)
            ctx->ei.bstrDescription = get_vbscript_error_string(error);
        if(helpfile) {
            if(ctx->ei.bstrHelpFile) SysFreeString(ctx->ei.bstrHelpFile);
            ctx->ei.bstrHelpFile = helpfile;
        }
        if(args_cnt >= 5)
            ctx->ei.dwHelpContext = helpcontext;
 
        ctx->ei.scode = error;
        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 2772 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 2716 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 128 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_sec_mgr()

static IInternetHostSecurityManager * get_sec_mgr ( script_ctx_t *  ctx )

static

Definition at line 293 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 1729 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 2149 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 1642 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) || *str >= 0x100)
        hres = MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL);
    else if(res)
        hres = return_short(res, *str);
    SysFreeString(conv_str);
    return hres;
}

Global_AscB()

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

static

Definition at line 1630 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 1717 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 974 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 695 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 716 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 632 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 739 of file global.c.

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

Global_CDbl()

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

static

Definition at line 745 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 1675 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 = GetACP();
    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(c>>8)
        buf[len++] = c>>8;
    if(!len || IsDBCSLeadByteEx(cp, buf[0]))
        buf[len++] = c;
    if(!MultiByteToWideChar(CP_ACP, 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 1636 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 1723 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 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_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 677 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 986 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 1996 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 767 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 788 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 1825 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 *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2081 of file global.c.

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

Global_DateDiff()

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

static

Definition at line 2087 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 2093 of file global.c.

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

Global_DateSerial()

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

static

Definition at line 1945 of file global.c.

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

Global_DateValue()

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

static

Definition at line 1933 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 1861 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 2191 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 2494 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 2458 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 2470 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 2476 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 2482 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 1022 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 2197 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 1750 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 *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2352 of file global.c.

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

Global_FormatDateTime()

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

static

Definition at line 2364 of file global.c.

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

Global_FormatNumber()

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

static

Definition at line 2346 of file global.c.

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

Global_FormatPercent()

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

static

Definition at line 2358 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 2024 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 2488 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 810 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:
        if(res)
            V_VT(res) = VT_NULL;
        return S_OK;
    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 1900 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 1957 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 1557 of file global.c.

{
    VARIANT *startv, *str1v, *str2v;
    BSTR str1, str2;
    int start, ret;
    HRESULT hres;
 
    TRACE("\n");
 
    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:
        FIXME("unsupported compare argument %s\n", debugstr_variant(args));
        return E_NOTIMPL;
    DEFAULT_UNREACHABLE;
    }
 
    if(startv) {
        hres = to_int(startv, &start);
        if(FAILED(hres))
            return hres;
        if(--start < 0) {
            FIXME("start %d\n", start);
            return E_FAIL;
        }
    }else {
        start = 0;
    }
 
    if(V_VT(str1v) == VT_NULL || V_VT(str2v) == VT_NULL)
        return return_null(res);
 
    if(V_VT(str1v) != VT_BSTR) {
        FIXME("Unsupported str1 type %s\n", debugstr_variant(str1v));
        return E_NOTIMPL;
    }
    str1 = V_BSTR(str1v);
 
    if(V_VT(str2v) != VT_BSTR) {
        FIXME("Unsupported str2 type %s\n", debugstr_variant(str2v));
        return E_NOTIMPL;
    }
    str2 = V_BSTR(str2v);
 
    if(start < SysStringLen(str1)) {
        WCHAR *ptr;
 
        ptr = wcsstr(str1+start, str2);
        ret = ptr ? ptr-str1+1 : 0;
    }else {
        ret = 0;
    }
 
    return return_int(res, ret);
}

Global_InStrB()

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

static

Definition at line 1624 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 2244 of file global.c.

{
    int start, ret = 0;
    BSTR str1, str2;
    HRESULT hres;
 
    TRACE("%s %s arg_cnt=%u\n", debugstr_variant(args), debugstr_variant(args+1), args_cnt);
 
    if(args_cnt > 3) {
        FIXME("Unsupported args\n");
        return E_NOTIMPL;
    }
 
    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))
        return MAKE_VBSERROR(VBSE_ILLEGAL_NULL_USE);
 
    hres = to_string(args, &str1);
    if(FAILED(hres))
        return hres;
 
    hres = to_string(args+1, &str2);
    if(SUCCEEDED(hres)) {
        if(args_cnt > 2) {
            hres = to_int(args+2, &start);
            if(SUCCEEDED(hres) && start <= 0) {
                FIXME("Unsupported start %d\n", start);
                hres = E_NOTIMPL;
            }
        }else {
            start = SysStringLen(str1);
        }
    } else {
        str2 = NULL;
    }
 
    if(SUCCEEDED(hres)) {
        const WCHAR *ptr;
        size_t len;
 
        len = SysStringLen(str2);
        if(start >= len && start <= SysStringLen(str1)) {
            for(ptr = str1+start-SysStringLen(str2); ptr >= str1; ptr--) {
                if(!memcmp(ptr, str2, len*sizeof(WCHAR))) {
                    ret = ptr-str1+1;
                    break;
                }
            }
        }
    }
 
    SysFreeString(str1);
    SysFreeString(str2);
    if(FAILED(hres))
        return hres;
 
    return return_int(res, ret);
}

Global_Int()

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

static

Definition at line 1771 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 955 of file global.c.

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

Global_IsDate()

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

static

Definition at line 909 of file global.c.

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

Global_IsEmpty()

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

static

Definition at line 915 of file global.c.

{
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    if(res) {
        V_VT(res) = VT_BOOL;
        V_BOOL(res) = V_VT(arg) == VT_EMPTY ? VARIANT_TRUE : VARIANT_FALSE;
    }
    return S_OK;
}

Global_IsNull()

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

static

Definition at line 928 of file global.c.

{
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    if(res) {
        V_VT(res) = VT_BOOL;
        V_BOOL(res) = V_VT(arg) == VT_NULL ? VARIANT_TRUE : VARIANT_FALSE;
    }
    return S_OK;
}

Global_IsNumeric()

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

static

Definition at line 941 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 961 of file global.c.

{
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    if(res) {
        V_VT(res) = VT_BOOL;
        V_BOOL(res) = V_VT(arg) == VT_DISPATCH ? VARIANT_TRUE : VARIANT_FALSE;
    }
    return S_OK;
}

Global_Join()

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

static

Definition at line 2203 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 1087 of file global.c.

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

Global_LCase()

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

static

Definition at line 1375 of file global.c.

{
    BSTR str;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    if(V_VT(arg) == VT_NULL) {
        if(res)
            V_VT(res) = VT_NULL;
        return S_OK;
    }
 
    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 1185 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 1223 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 1153 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 1179 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 2304 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 1034 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 1437 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 1273 of file global.c.

{
    int len = -1, start, str_len;
    BSTR str;
    HRESULT hres;
 
    TRACE("(%s %s ...)\n", debugstr_variant(args), debugstr_variant(args+1));
 
    assert(args_cnt == 2 || args_cnt == 3);
 
    if(V_VT(args) != VT_BSTR) {
        FIXME("args[0] = %s\n", debugstr_variant(args));
        return E_NOTIMPL;
    }
 
    str = V_BSTR(args);
 
    hres = to_int(args+1, &start);
    if(FAILED(hres))
        return hres;
 
    if(args_cnt == 3) {
        hres = to_int(args+2, &len);
        if(FAILED(hres))
            return hres;
 
        if(len < 0) {
            FIXME("len = %d\n", len);
            return E_FAIL;
        }
    }
 
 
    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))
            return E_OUTOFMEMORY;
    }
 
    return S_OK;
}

Global_MidB()

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

static

Definition at line 1326 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 1911 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 1872 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 2403 of file global.c.

{
    int month, abbrev = 0;
    BSTR ret;
    HRESULT hres;
 
    TRACE("\n");
 
    assert(args_cnt == 1 || args_cnt == 2);
 
    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 1963 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 1813 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 851 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:
        if(res)
            V_VT(res) = VT_NULL;
        return S_OK;
    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 1064 of file global.c.

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

Global_Replace()

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

static

Definition at line 2215 of file global.c.

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

Global_RGB()

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

static

Definition at line 1131 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 1229 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_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+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 1267 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 1070 of file global.c.

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

Global_Round()

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

static

Definition at line 2430 of file global.c.

{
    double n;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    if(!res)
        return S_OK;
 
    switch(V_VT(arg)) {
    case VT_I2:
    case VT_I4:
    case VT_BOOL:
        *res = *arg;
        return S_OK;
    case VT_R8:
        n = V_R8(arg);
        break;
    default:
        hres = to_double(arg, &n);
        if(FAILED(hres))
            return hres;
    }
 
    return return_double(res, round(n));
}

Global_RTrim()

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

static

Definition at line 1464 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 2310 of file global.c.

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

Global_ScriptEngineBuildVersion()

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

static

Definition at line 2337 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 2319 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 2328 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 1922 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_Sgn()

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

static

Definition at line 1792 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 998 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 1519 of file global.c.

{
    BSTR str;
    int n, i;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    hres = to_int(arg, &n);
    if(FAILED(hres))
        return hres;
 
    if(n < 0) {
        FIXME("n = %d\n", n);
        return E_NOTIMPL;
    }
 
    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 *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 2209 of file global.c.

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

Global_Sqr()

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

static

Definition at line 1049 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 1332 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 *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1551 of file global.c.

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

Global_StrReverse()

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

static

Definition at line 2221 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 1010 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 1843 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 1076 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 *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1951 of file global.c.

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

Global_TimeValue()

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

static

Definition at line 1939 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 1491 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 2099 of file global.c.

{
    static const WCHAR ByteW[]     = {'B', 'y', 't', 'e', 0};
    static const WCHAR IntegerW[]  = {'I', 'n', 't', 'e', 'g', 'e', 'r', 0};
    static const WCHAR LongW[]     = {'L', 'o', 'n', 'g', 0};
    static const WCHAR SingleW[]   = {'S', 'i', 'n', 'g', 'l', 'e', 0};
    static const WCHAR DoubleW[]   = {'D', 'o', 'u', 'b', 'l', 'e', 0};
    static const WCHAR CurrencyW[] = {'C', 'u', 'r', 'r', 'e', 'n', 'c', 'y', 0};
    static const WCHAR DecimalW[]  = {'D', 'e', 'c', 'i', 'm', 'a', 'l', 0};
    static const WCHAR DateW[]     = {'D', 'a', 't', 'e', 0};
    static const WCHAR StringW[]   = {'S', 't', 'r', 'i', 'n', 'g', 0};
    static const WCHAR BooleanW[]  = {'B', 'o', 'o', 'l', 'e', 'a', 'n', 0};
    static const WCHAR EmptyW[]    = {'E', 'm', 'p', 't', 'y', 0};
    static const WCHAR NullW[]     = {'N', 'u', 'l', 'l', 0};
 
    TRACE("(%s)\n", debugstr_variant(arg));
 
    assert(args_cnt == 1);
 
    switch(V_VT(arg)) {
        case VT_UI1:
            return return_string(res, ByteW);
        case VT_I2:
            return return_string(res, IntegerW);
        case VT_I4:
            return return_string(res, LongW);
        case VT_R4:
            return return_string(res, SingleW);
        case VT_R8:
            return return_string(res, DoubleW);
        case VT_CY:
            return return_string(res, CurrencyW);
        case VT_DECIMAL:
            return return_string(res, DecimalW);
        case VT_DATE:
            return return_string(res, DateW);
        case VT_BSTR:
            return return_string(res, StringW);
        case VT_BOOL:
            return return_string(res, BooleanW);
        case VT_EMPTY:
            return return_string(res, EmptyW);
        case VT_NULL:
            return return_string(res, NullW);
        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 1093 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;
    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 1406 of file global.c.

{
    BSTR str;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_variant(arg));
 
    if(V_VT(arg) == VT_NULL) {
        if(res)
            V_VT(res) = VT_NULL;
        return S_OK;
    }
 
    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 2464 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 892 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 *  arg, unsigned  args_cnt, VARIANT *  res  )

static

Definition at line 1883 of file global.c.

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

Global_WeekdayName()

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

static

Definition at line 2370 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 1889 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 805 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 63 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 2870 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 345 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_IsNumeric().

return_bstr()

static HRESULT return_bstr ( VARIANT *  res, BSTR  str  )

static

Definition at line 334 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_Left(), Global_LTrim(), Global_MonthName(), Global_Right(), Global_RTrim(), Global_StrReverse(), Global_Trim(), and Global_WeekdayName().

return_date()

static HRESULT return_date ( VARIANT *  res, double  date  )

inlinestatic

Definition at line 401 of file global.c.

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

Referenced by Global_Date(), Global_Now(), and Global_Time().

return_double()

static HRESULT return_double ( VARIANT *  res, double  val  )

inlinestatic

Definition at line 374 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 384 of file global.c.

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

Referenced by Global_Timer().

return_int()

static HRESULT return_int ( VARIANT *  res, int  val  )

static

Definition at line 364 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_Len(), Global_RGB(), Global_ScriptEngineBuildVersion(), Global_ScriptEngineMajorVersion(), Global_ScriptEngineMinorVersion(), and Global_UBound().

return_null()

static HRESULT return_null ( VARIANT *  res )

inlinestatic

Definition at line 394 of file global.c.

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

Referenced by Global_InStr(), and Global_Len().

return_short()

static HRESULT return_short ( VARIANT *  res, short  val  )

static

Definition at line 354 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_Year(), and show_msgbox().

return_string()

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

static

Definition at line 318 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_Oct(), Global_ScriptEngine(), and Global_TypeName().

set_object_site()

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

static

Definition at line 465 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 557 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 = heap_alloc(sizeof(vbscriptW) + (lstrlenW(orig_title)+2)*sizeof(WCHAR));
            if(!title)
                return E_OUTOFMEMORY;
 
            memcpy(title_buf, vbscriptW, sizeof(vbscriptW));
            ptr = title_buf + ARRAY_SIZE(vbscriptW)-1;
 
            *ptr++ = ':';
            *ptr++ = ' ';
            lstrcpyW(ptr, orig_title);
        }else {
            title = vbscriptW;
        }
    }else {
        title = orig_title ? orig_title : emptyW;
    }
 
    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);
        }
    }
 
    heap_free(title_buf);
    IActiveScriptSiteWindow_Release(acts_window);
    if(FAILED(hres)) {
        FIXME("failed: %08x\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 424 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_Round(), Global_Sgn(), Global_Sin(), Global_Sqr(), and Global_Tan().

to_int()

HRESULT to_int	(	VARIANT *	v,
		int *	ret
	)

Definition at line 410 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(), Err_Raise(), Global_Chr(), Global_CLng(), Global_Hex(), Global_InStr(), Global_InStrRev(), Global_Left(), Global_Mid(), Global_MonthName(), Global_MsgBox(), Global_Oct(), Global_RGB(), Global_Right(), Global_Space(), Global_StrComp(), Global_UBound(), and Global_WeekdayName().

to_string()

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

static

Definition at line 438 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_InStrRev(), Global_LCase(), Global_Left(), Global_Len(), Global_LTrim(), Global_MsgBox(), Global_Right(), Global_RTrim(), 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 452 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_Day(), Global_Hour(), Global_Minute(), Global_Month(), Global_Second(), 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 266 of file global.c.

Referenced by create_builtin_dispatch().

emptyW

const WCHAR emptyW[] = {0}

static

Definition at line 44 of file global.c.

Referenced by show_msgbox().

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 2844 of file global.c.

Referenced by init_global().

global_props

const builtin_prop_t global_props[]

static

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

Referenced by create_object().

vbCr

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

static

Definition at line 2509 of file global.c.

vbCrLf

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

static

Definition at line 2510 of file global.c.

vbFormFeed

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

static

Definition at line 2512 of file global.c.

vbLf

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

static

Definition at line 2513 of file global.c.

vbNewLine

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

static

Definition at line 2511 of file global.c.

vbNullChar

const string_constant_t vbNullChar = {1}

static

Definition at line 2514 of file global.c.

vbNullString

const string_constant_t vbNullString = {0}

static

Definition at line 2515 of file global.c.

vbscriptW

const WCHAR vbscriptW[] = {'V','B','S','c','r','i','p','t',0}

static

Definition at line 45 of file global.c.

Referenced by Global_ScriptEngine(), and show_msgbox().

vbTab

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

static

Definition at line 2516 of file global.c.

vbVerticalTab

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

static

Definition at line 2517 of file global.c.