2 * Copyright 2011 Jacek Caban for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include "vbscript_defs.h"
27 #include "wine/debug.h"
29 WINE_DEFAULT_DEBUG_CHANNEL(vbscript
);
31 #define VB_E_CANNOT_CREATE_OBJ 0x800a01ad
33 /* Defined as extern in urlmon.idl, but not exported by uuid.lib */
34 const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY
=
35 {0x10200490,0xfa38,0x11d0,{0xac,0x0e,0x00,0xa0,0xc9,0xf,0xff,0xc0}};
37 static IInternetHostSecurityManager
*get_sec_mgr(script_ctx_t
*ctx
)
39 IInternetHostSecurityManager
*secmgr
;
49 hres
= IActiveScriptSite_QueryInterface(ctx
->site
, &IID_IServiceProvider
, (void**)&sp
);
53 hres
= IServiceProvider_QueryService(sp
, &SID_SInternetHostSecurityManager
, &IID_IInternetHostSecurityManager
,
55 IServiceProvider_Release(sp
);
59 return ctx
->secmgr
= secmgr
;
62 static HRESULT
return_bstr(VARIANT
*res
, const WCHAR
*str
)
69 ret
= SysAllocString(str
);
78 static HRESULT
return_short(VARIANT
*res
, short val
)
88 static HRESULT
return_int(VARIANT
*res
, int val
)
91 return return_short(res
, val
);
101 static inline HRESULT
return_null(VARIANT
*res
)
108 static HRESULT
to_int(VARIANT
*v
, int *ret
)
118 FIXME("not supported %s\n", debugstr_variant(v
));
125 static IUnknown
*create_object(script_ctx_t
*ctx
, const WCHAR
*progid
)
127 IInternetHostSecurityManager
*secmgr
= NULL
;
128 IObjectWithSite
*obj_site
;
129 struct CONFIRMSAFETY cs
;
130 IClassFactoryEx
*cfex
;
139 hres
= CLSIDFromProgID(progid
, &guid
);
143 TRACE("GUID %s\n", debugstr_guid(&guid
));
145 if(ctx
->safeopt
& INTERFACE_USES_SECURITY_MANAGER
) {
146 secmgr
= get_sec_mgr(ctx
);
151 hres
= IInternetHostSecurityManager_ProcessUrlAction(secmgr
, URLACTION_ACTIVEX_RUN
,
152 (BYTE
*)&policy
, sizeof(policy
), (BYTE
*)&guid
, sizeof(GUID
), 0, 0);
153 if(FAILED(hres
) || policy
!= URLPOLICY_ALLOW
)
157 hres
= CoGetClassObject(&guid
, CLSCTX_INPROC_SERVER
|CLSCTX_LOCAL_SERVER
, NULL
, &IID_IClassFactory
, (void**)&cf
);
161 hres
= IClassFactory_QueryInterface(cf
, &IID_IClassFactoryEx
, (void**)&cfex
);
162 if(SUCCEEDED(hres
)) {
163 FIXME("Use IClassFactoryEx\n");
164 IClassFactoryEx_Release(cfex
);
167 hres
= IClassFactory_CreateInstance(cf
, NULL
, &IID_IUnknown
, (void**)&obj
);
175 hres
= IInternetHostSecurityManager_QueryCustomPolicy(secmgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
176 &bpolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
177 if(SUCCEEDED(hres
)) {
178 policy
= policy_size
>= sizeof(DWORD
) ? *(DWORD
*)bpolicy
: URLPOLICY_DISALLOW
;
179 CoTaskMemFree(bpolicy
);
182 if(FAILED(hres
) || policy
!= URLPOLICY_ALLOW
) {
183 IUnknown_Release(obj
);
188 hres
= IUnknown_QueryInterface(obj
, &IID_IObjectWithSite
, (void**)&obj_site
);
189 if(SUCCEEDED(hres
)) {
192 ax_site
= create_ax_site(ctx
);
194 hres
= IObjectWithSite_SetSite(obj_site
, ax_site
);
195 IUnknown_Release(ax_site
);
197 IObjectWithSite_Release(obj_site
);
198 if(!ax_site
|| FAILED(hres
)) {
199 IUnknown_Release(obj
);
207 static HRESULT
Global_CCur(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
213 static HRESULT
Global_CInt(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
219 static HRESULT
Global_CLng(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
225 static HRESULT
Global_CBool(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
231 static HRESULT
Global_CByte(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
237 static HRESULT
Global_CDate(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
243 static HRESULT
Global_CDbl(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
249 static HRESULT
Global_CSng(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
255 static HRESULT
Global_CStr(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
261 static inline WCHAR
hex_char(unsigned n
)
263 return n
< 10 ? '0'+n
: 'A'+n
-10;
266 static HRESULT
Global_Hex(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
271 TRACE("%s\n", debugstr_variant(arg
));
288 FIXME("unsupported type %s\n", debugstr_variant(arg
));
297 *ptr
-- = hex_char(n
& 0xf);
305 return return_bstr(res
, ptr
);
308 static HRESULT
Global_Oct(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
314 static HRESULT
Global_VarType(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
320 static HRESULT
Global_IsDate(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
326 static HRESULT
Global_IsEmpty(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
328 TRACE("(%s)\n", debugstr_variant(arg
));
330 assert(args_cnt
== 1);
334 V_BOOL(res
) = V_VT(arg
) == VT_EMPTY
? VARIANT_TRUE
: VARIANT_FALSE
;
339 static HRESULT
Global_IsNull(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
341 TRACE("(%s)\n", debugstr_variant(arg
));
343 assert(args_cnt
== 1);
347 V_BOOL(res
) = V_VT(arg
) == VT_NULL
? VARIANT_TRUE
: VARIANT_FALSE
;
352 static HRESULT
Global_IsNumeric(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
358 static HRESULT
Global_IsArray(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
364 static HRESULT
Global_IsObject(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
366 TRACE("(%s)\n", debugstr_variant(arg
));
368 assert(args_cnt
== 1);
372 V_BOOL(res
) = V_VT(arg
) == VT_DISPATCH
? VARIANT_TRUE
: VARIANT_FALSE
;
377 static HRESULT
Global_Ant(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
383 static HRESULT
Global_Cos(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
389 static HRESULT
Global_Sin(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
395 static HRESULT
Global_Tan(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
401 static HRESULT
Global_Exp(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
407 static HRESULT
Global_Log(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
413 static HRESULT
Global_Sqr(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
419 static HRESULT
Global_Randomize(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
425 static HRESULT
Global_Rnd(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
431 static HRESULT
Global_Timer(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
437 static HRESULT
Global_LBound(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
443 static HRESULT
Global_UBound(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
449 static HRESULT
Global_RGB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
455 static HRESULT
Global_Len(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
461 static HRESULT
Global_LenB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
467 static HRESULT
Global_Left(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
473 static HRESULT
Global_LeftB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
479 static HRESULT
Global_Right(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
485 static HRESULT
Global_RightB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
491 static HRESULT
Global_Mid(vbdisp_t
*This
, VARIANT
*args
, unsigned args_cnt
, VARIANT
*res
)
493 int len
= -1, start
, str_len
;
501 hres
= to_int(args
, &len
);
506 FIXME("len = %d\n", len
);
511 hres
= to_int(args
+args_cnt
-2, &start
);
515 if(V_VT(args
+args_cnt
-1) != VT_BSTR
) {
516 FIXME("args[0] = %s\n", debugstr_variant(args
+args_cnt
-1));
520 str
= V_BSTR(args
+args_cnt
-1);
527 str_len
= SysStringLen(str
);
534 else if(len
> str_len
-start
)
539 V_BSTR(res
) = SysAllocStringLen(str
+start
, len
);
541 return E_OUTOFMEMORY
;
547 static HRESULT
Global_MidB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
553 static HRESULT
Global_StrComp(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
559 static HRESULT
Global_LCase(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
565 static HRESULT
Global_UCase(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
571 static HRESULT
Global_LTrim(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
577 static HRESULT
Global_RTrim(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
583 static HRESULT
Global_Trim(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
589 static HRESULT
Global_Space(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
595 static HRESULT
Global_String(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
601 static HRESULT
Global_InStr(vbdisp_t
*This
, VARIANT
*args
, unsigned args_cnt
, VARIANT
*res
)
603 VARIANT
*startv
, *str1v
, *str2v
;
622 FIXME("unsupported compare argument %s\n", debugstr_variant(args
));
629 hres
= to_int(startv
, &start
);
633 FIXME("start %d\n", start
);
640 if(V_VT(str1v
) == VT_NULL
|| V_VT(str2v
) == VT_NULL
)
641 return return_null(res
);
643 if(V_VT(str1v
) != VT_BSTR
) {
644 FIXME("Unsupported str1 type %s\n", debugstr_variant(str1v
));
647 str1
= V_BSTR(str1v
);
649 if(V_VT(str2v
) != VT_BSTR
) {
650 FIXME("Unsupported str2 type %s\n", debugstr_variant(str2v
));
653 str2
= V_BSTR(str2v
);
655 if(start
< SysStringLen(str1
)) {
658 ptr
= strstrW(str1
+start
, str2
);
659 ret
= ptr
? ptr
-str1
+1 : 0;
664 return return_int(res
, ret
);
667 static HRESULT
Global_InStrB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
673 static HRESULT
Global_AscB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
679 static HRESULT
Global_ChrB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
685 static HRESULT
Global_Asc(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
691 static HRESULT
Global_Chr(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
697 static HRESULT
Global_AscW(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
703 static HRESULT
Global_ChrW(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
709 static HRESULT
Global_Abs(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
715 static HRESULT
Global_Fix(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
721 static HRESULT
Global_Int(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
727 static HRESULT
Global_Sgn(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
733 static HRESULT
Global_Now(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
739 static HRESULT
Global_Date(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
745 static HRESULT
Global_Time(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
751 static HRESULT
Global_Day(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
757 static HRESULT
Global_Month(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
763 static HRESULT
Global_Weekday(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
769 static HRESULT
Global_Year(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
775 static HRESULT
Global_Hour(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
781 static HRESULT
Global_Minute(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
787 static HRESULT
Global_Second(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
793 static HRESULT
Global_DateValue(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
799 static HRESULT
Global_TimeValue(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
805 static HRESULT
Global_DateSerial(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
811 static HRESULT
Global_TimeSerial(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
817 static HRESULT
Global_InputBox(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
823 static HRESULT
Global_MsgBox(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
829 static HRESULT
Global_CreateObject(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
834 TRACE("(%s)\n", debugstr_variant(arg
));
836 if(V_VT(arg
) != VT_BSTR
) {
837 FIXME("non-bstr arg\n");
841 obj
= create_object(This
->desc
->ctx
, V_BSTR(arg
));
843 return VB_E_CANNOT_CREATE_OBJ
;
846 hres
= IUnknown_QueryInterface(obj
, &IID_IDispatch
, (void**)&V_DISPATCH(res
));
850 V_VT(res
) = VT_DISPATCH
;
853 IUnknown_Release(obj
);
857 static HRESULT
Global_GetObject(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
863 static HRESULT
Global_DateAdd(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
869 static HRESULT
Global_DateDiff(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
875 static HRESULT
Global_DatePart(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
881 static HRESULT
Global_TypeName(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
887 static HRESULT
Global_Array(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
893 static HRESULT
Global_Erase(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
899 static HRESULT
Global_Filter(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
905 static HRESULT
Global_Join(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
911 static HRESULT
Global_Split(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
917 static HRESULT
Global_Replace(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
923 static HRESULT
Global_StrReverse(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
929 static HRESULT
Global_InStrRev(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
935 static HRESULT
Global_LoadPicture(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
941 static HRESULT
Global_ScriptEngine(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
947 static HRESULT
Global_ScriptEngineMajorVersion(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
953 static HRESULT
Global_ScriptEngineMinorVersion(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
959 static HRESULT
Global_ScriptEngineBuildVersion(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
965 static HRESULT
Global_FormatNumber(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
971 static HRESULT
Global_FormatCurrency(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
977 static HRESULT
Global_FormatPercent(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
983 static HRESULT
Global_FormatDateTime(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
989 static HRESULT
Global_WeekdayName(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
995 static HRESULT
Global_MonthName(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1001 static HRESULT
Global_Round(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1007 static HRESULT
Global_Escape(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1013 static HRESULT
Global_Unescape(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1019 static HRESULT
Global_Eval(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1025 static HRESULT
Global_Execute(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1031 static HRESULT
Global_ExecuteGlobal(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1037 static HRESULT
Global_GetRef(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1043 static HRESULT
Global_vbUseSystem(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1049 static HRESULT
Global_vbUseSystemDayOfWeek(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1055 static HRESULT
Global_vbSunday(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1058 return return_short(res
, 1);
1061 static HRESULT
Global_vbMonday(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1064 return return_short(res
, 2);
1067 static HRESULT
Global_vbTuesday(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1070 return return_short(res
, 3);
1073 static HRESULT
Global_vbWednesday(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1076 return return_short(res
, 4);
1079 static HRESULT
Global_vbThursday(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1082 return return_short(res
, 5);
1085 static HRESULT
Global_vbFriday(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1088 return return_short(res
, 6);
1091 static HRESULT
Global_vbSaturday(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1094 return return_short(res
, 7);
1097 static HRESULT
Global_vbFirstJan1(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1103 static HRESULT
Global_vbFirstFourDays(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1109 static HRESULT
Global_vbFirstFullWeek(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1115 static HRESULT
Global_vbOKOnly(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1121 static HRESULT
Global_vbOKCancel(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1127 static HRESULT
Global_vbAbortRetryIgnore(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1133 static HRESULT
Global_vbYesNoCancel(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1139 static HRESULT
Global_vbYesNo(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1145 static HRESULT
Global_vbRetryCancel(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1151 static HRESULT
Global_vbCritical(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1157 static HRESULT
Global_vbQuestion(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1163 static HRESULT
Global_vbExclamation(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1169 static HRESULT
Global_vbInformation(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1175 static HRESULT
Global_vbDefaultButton1(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1181 static HRESULT
Global_vbDefaultButton2(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1187 static HRESULT
Global_vbDefaultButton3(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1193 static HRESULT
Global_vbDefaultButton4(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1199 static HRESULT
Global_vbApplicationModal(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1205 static HRESULT
Global_vbSystemModal(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1211 static HRESULT
Global_vbOK(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1217 static HRESULT
Global_vbCancel(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1223 static HRESULT
Global_vbAbort(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1229 static HRESULT
Global_vbRetry(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1235 static HRESULT
Global_vbIgnore(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1241 static HRESULT
Global_vbYes(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1247 static HRESULT
Global_vbNo(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1253 static HRESULT
Global_vbEmpty(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1259 static HRESULT
Global_vbNull(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1265 static HRESULT
Global_vbInteger(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1271 static HRESULT
Global_vbLong(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1277 static HRESULT
Global_vbSingle(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1283 static HRESULT
Global_vbDouble(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1289 static HRESULT
Global_vbCurrency(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1295 static HRESULT
Global_vbDate(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1301 static HRESULT
Global_vbString(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1307 static HRESULT
Global_vbObject(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1313 static HRESULT
Global_vbError(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1319 static HRESULT
Global_vbBoolean(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1325 static HRESULT
Global_vbVariant(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1331 static HRESULT
Global_vbDataObject(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1337 static HRESULT
Global_vbDecimal(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1343 static HRESULT
Global_vbByte(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1349 static HRESULT
Global_vbArray(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1355 static HRESULT
Global_vbTrue(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1361 static HRESULT
Global_vbFalse(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1367 static HRESULT
Global_vbUseDefault(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1373 static HRESULT
Global_vbBinaryCompare(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1379 static HRESULT
Global_vbTextCompare(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1385 static HRESULT
Global_vbDatabaseCompare(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1391 static HRESULT
Global_vbGeneralDate(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1397 static HRESULT
Global_vbLongDate(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1403 static HRESULT
Global_vbShortDate(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1409 static HRESULT
Global_vbLongTime(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1415 static HRESULT
Global_vbShortTime(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1421 static HRESULT
Global_vbObjectError(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1427 static HRESULT
Global_vbBlack(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1433 static HRESULT
Global_vbBlue(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1439 static HRESULT
Global_vbCyan(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1445 static HRESULT
Global_vbGreen(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1451 static HRESULT
Global_vbMagenta(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1457 static HRESULT
Global_vbRed(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1463 static HRESULT
Global_vbWhite(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1469 static HRESULT
Global_vbYellow(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1475 static HRESULT
Global_vbCr(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1481 static HRESULT
Global_vbCrLf(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1487 static HRESULT
Global_vbNewLine(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1493 static HRESULT
Global_vbFormFeed(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1499 static HRESULT
Global_vbLf(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1505 static HRESULT
Global_vbNullChar(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1511 static HRESULT
Global_vbNullString(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1517 static HRESULT
Global_vbTab(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1523 static HRESULT
Global_vbVerticalTab(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1529 static HRESULT
Global_vbMsgBoxHelpButton(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1535 static HRESULT
Global_vbMsgBoxSetForeground(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1541 static HRESULT
Global_vbMsgBoxRight(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1547 static HRESULT
Global_vbMsgBoxRtlReading(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1553 static const builtin_prop_t global_props
[] = {
1554 {DISPID_GLOBAL_VBUSESYSTEM
, Global_vbUseSystem
, BP_GET
},
1555 {DISPID_GLOBAL_USESYSTEMDAYOFWEEK
, Global_vbUseSystemDayOfWeek
, BP_GET
},
1556 {DISPID_GLOBAL_VBSUNDAY
, Global_vbSunday
, BP_GET
},
1557 {DISPID_GLOBAL_VBMONDAY
, Global_vbMonday
, BP_GET
},
1558 {DISPID_GLOBAL_VBTUESDAY
, Global_vbTuesday
, BP_GET
},
1559 {DISPID_GLOBAL_VBWEDNESDAY
, Global_vbWednesday
, BP_GET
},
1560 {DISPID_GLOBAL_VBTHURSDAY
, Global_vbThursday
, BP_GET
},
1561 {DISPID_GLOBAL_VBFRIDAY
, Global_vbFriday
, BP_GET
},
1562 {DISPID_GLOBAL_VBSATURDAY
, Global_vbSaturday
, BP_GET
},
1563 {DISPID_GLOBAL_VBFIRSTJAN1
, Global_vbFirstJan1
, BP_GET
},
1564 {DISPID_GLOBAL_VBFIRSTFOURDAYS
, Global_vbFirstFourDays
, BP_GET
},
1565 {DISPID_GLOBAL_VBFIRSTFULLWEEK
, Global_vbFirstFullWeek
, BP_GET
},
1566 {DISPID_GLOBAL_VBOKONLY
, Global_vbOKOnly
, BP_GET
},
1567 {DISPID_GLOBAL_VBOKCANCEL
, Global_vbOKCancel
, BP_GET
},
1568 {DISPID_GLOBAL_VBABORTRETRYIGNORE
, Global_vbAbortRetryIgnore
, BP_GET
},
1569 {DISPID_GLOBAL_VBYESNOCANCEL
, Global_vbYesNoCancel
, BP_GET
},
1570 {DISPID_GLOBAL_VBYESNO
, Global_vbYesNo
, BP_GET
},
1571 {DISPID_GLOBAL_VBRETRYCANCEL
, Global_vbRetryCancel
, BP_GET
},
1572 {DISPID_GLOBAL_VBCRITICAL
, Global_vbCritical
, BP_GET
},
1573 {DISPID_GLOBAL_VBQUESTION
, Global_vbQuestion
, BP_GET
},
1574 {DISPID_GLOBAL_VBEXCLAMATION
, Global_vbExclamation
, BP_GET
},
1575 {DISPID_GLOBAL_VBINFORMATION
, Global_vbInformation
, BP_GET
},
1576 {DISPID_GLOBAL_VBDEFAULTBUTTON1
, Global_vbDefaultButton1
, BP_GET
},
1577 {DISPID_GLOBAL_VBDEFAULTBUTTON2
, Global_vbDefaultButton2
, BP_GET
},
1578 {DISPID_GLOBAL_VBDEFAULTBUTTON3
, Global_vbDefaultButton3
, BP_GET
},
1579 {DISPID_GLOBAL_VBDEFAULTBUTTON4
, Global_vbDefaultButton4
, BP_GET
},
1580 {DISPID_GLOBAL_VBAPPLICATIONMODAL
, Global_vbApplicationModal
, BP_GET
},
1581 {DISPID_GLOBAL_VBSYSTEMMODAL
, Global_vbSystemModal
, BP_GET
},
1582 {DISPID_GLOBAL_VBOK
, Global_vbOK
, BP_GET
},
1583 {DISPID_GLOBAL_VBCANCEL
, Global_vbCancel
, BP_GET
},
1584 {DISPID_GLOBAL_VBABORT
, Global_vbAbort
, BP_GET
},
1585 {DISPID_GLOBAL_VBRETRY
, Global_vbRetry
, BP_GET
},
1586 {DISPID_GLOBAL_VBIGNORE
, Global_vbIgnore
, BP_GET
},
1587 {DISPID_GLOBAL_VBYES
, Global_vbYes
, BP_GET
},
1588 {DISPID_GLOBAL_VBNO
, Global_vbNo
, BP_GET
},
1589 {DISPID_GLOBAL_VBEMPTY
, Global_vbEmpty
, BP_GET
},
1590 {DISPID_GLOBAL_VBNULL
, Global_vbNull
, BP_GET
},
1591 {DISPID_GLOBAL_VBINTEGER
, Global_vbInteger
, BP_GET
},
1592 {DISPID_GLOBAL_VBLONG
, Global_vbLong
, BP_GET
},
1593 {DISPID_GLOBAL_VBSINGLE
, Global_vbSingle
, BP_GET
},
1594 {DISPID_GLOBAL_VBDOUBLE
, Global_vbDouble
, BP_GET
},
1595 {DISPID_GLOBAL_VBCURRENCY
, Global_vbCurrency
, BP_GET
},
1596 {DISPID_GLOBAL_VBDATE
, Global_vbDate
, BP_GET
},
1597 {DISPID_GLOBAL_VBSTRING
, Global_vbString
, BP_GET
},
1598 {DISPID_GLOBAL_VBOBJECT
, Global_vbObject
, BP_GET
},
1599 {DISPID_GLOBAL_VBERROR
, Global_vbError
, BP_GET
},
1600 {DISPID_GLOBAL_VBBOOLEAN
, Global_vbBoolean
, BP_GET
},
1601 {DISPID_GLOBAL_VBVARIANT
, Global_vbVariant
, BP_GET
},
1602 {DISPID_GLOBAL_VBDATAOBJECT
, Global_vbDataObject
, BP_GET
},
1603 {DISPID_GLOBAL_VBDECIMAL
, Global_vbDecimal
, BP_GET
},
1604 {DISPID_GLOBAL_VBBYTE
, Global_vbByte
, BP_GET
},
1605 {DISPID_GLOBAL_VBARRAY
, Global_vbArray
, BP_GET
},
1606 {DISPID_GLOBAL_VBTRUE
, Global_vbTrue
, BP_GET
},
1607 {DISPID_GLOBAL_VBFALSE
, Global_vbFalse
, BP_GET
},
1608 {DISPID_GLOBAL_VBUSEDEFAULT
, Global_vbUseDefault
, BP_GET
},
1609 {DISPID_GLOBAL_VBBINARYCOMPARE
, Global_vbBinaryCompare
, BP_GET
},
1610 {DISPID_GLOBAL_VBTEXTCOMPARE
, Global_vbTextCompare
, BP_GET
},
1611 {DISPID_GLOBAL_VBDATABASECOMPARE
, Global_vbDatabaseCompare
, BP_GET
},
1612 {DISPID_GLOBAL_VBGENERALDATE
, Global_vbGeneralDate
, BP_GET
},
1613 {DISPID_GLOBAL_VBLONGDATE
, Global_vbLongDate
, BP_GET
},
1614 {DISPID_GLOBAL_VBSHORTDATE
, Global_vbShortDate
, BP_GET
},
1615 {DISPID_GLOBAL_VBLONGTIME
, Global_vbLongTime
, BP_GET
},
1616 {DISPID_GLOBAL_VBSHORTTIME
, Global_vbShortTime
, BP_GET
},
1617 {DISPID_GLOBAL_VBOBJECTERROR
, Global_vbObjectError
, BP_GET
},
1618 {DISPID_GLOBAL_VBBLACK
, Global_vbBlack
, BP_GET
},
1619 {DISPID_GLOBAL_VBBLUE
, Global_vbBlue
, BP_GET
},
1620 {DISPID_GLOBAL_VBCYAN
, Global_vbCyan
, BP_GET
},
1621 {DISPID_GLOBAL_VBGREEN
, Global_vbGreen
, BP_GET
},
1622 {DISPID_GLOBAL_VBMAGENTA
, Global_vbMagenta
, BP_GET
},
1623 {DISPID_GLOBAL_VBRED
, Global_vbRed
, BP_GET
},
1624 {DISPID_GLOBAL_VBWHITE
, Global_vbWhite
, BP_GET
},
1625 {DISPID_GLOBAL_VBYELLOW
, Global_vbYellow
, BP_GET
},
1626 {DISPID_GLOBAL_VBCR
, Global_vbCr
, BP_GET
},
1627 {DISPID_GLOBAL_VBCRLF
, Global_vbCrLf
, BP_GET
},
1628 {DISPID_GLOBAL_VBNEWLINE
, Global_vbNewLine
, BP_GET
},
1629 {DISPID_GLOBAL_VBFORMFEED
, Global_vbFormFeed
, BP_GET
},
1630 {DISPID_GLOBAL_VBLF
, Global_vbLf
, BP_GET
},
1631 {DISPID_GLOBAL_VBNULLCHAR
, Global_vbNullChar
, BP_GET
},
1632 {DISPID_GLOBAL_VBNULLSTRING
, Global_vbNullString
, BP_GET
},
1633 {DISPID_GLOBAL_VBTAB
, Global_vbTab
, BP_GET
},
1634 {DISPID_GLOBAL_VBVERTICALTAB
, Global_vbVerticalTab
, BP_GET
},
1635 {DISPID_GLOBAL_CCUR
, Global_CCur
, 0, 1},
1636 {DISPID_GLOBAL_CINT
, Global_CInt
, 0, 1},
1637 {DISPID_GLOBAL_CLNG
, Global_CLng
, 0, 1},
1638 {DISPID_GLOBAL_CBOOL
, Global_CBool
, 0, 1},
1639 {DISPID_GLOBAL_CBYTE
, Global_CByte
, 0, 1},
1640 {DISPID_GLOBAL_CDATE
, Global_CDate
, 0, 1},
1641 {DISPID_GLOBAL_CDBL
, Global_CDbl
, 0, 1},
1642 {DISPID_GLOBAL_CSNG
, Global_CSng
, 0, 1},
1643 {DISPID_GLOBAL_CSTR
, Global_CStr
, 0, 1},
1644 {DISPID_GLOBAL_HEX
, Global_Hex
, 0, 1},
1645 {DISPID_GLOBAL_OCT
, Global_Oct
, 0, 1},
1646 {DISPID_GLOBAL_VARTYPE
, Global_VarType
, 0, 1},
1647 {DISPID_GLOBAL_ISDATE
, Global_IsDate
, 0, 1},
1648 {DISPID_GLOBAL_ISEMPTY
, Global_IsEmpty
, 0, 1},
1649 {DISPID_GLOBAL_ISNULL
, Global_IsNull
, 0, 1},
1650 {DISPID_GLOBAL_ISNUMERIC
, Global_IsNumeric
, 0, 1},
1651 {DISPID_GLOBAL_ISARRAY
, Global_IsArray
, 0, 1},
1652 {DISPID_GLOBAL_ISOBJECT
, Global_IsObject
, 0, 1},
1653 {DISPID_GLOBAL_ATN
, Global_Ant
, 0, 1},
1654 {DISPID_GLOBAL_COS
, Global_Cos
, 0, 1},
1655 {DISPID_GLOBAL_SIN
, Global_Sin
, 0, 1},
1656 {DISPID_GLOBAL_TAN
, Global_Tan
, 0, 1},
1657 {DISPID_GLOBAL_EXP
, Global_Exp
, 0, 1},
1658 {DISPID_GLOBAL_LOG
, Global_Log
, 0, 1},
1659 {DISPID_GLOBAL_SQR
, Global_Sqr
, 0, 1},
1660 {DISPID_GLOBAL_RANDOMIZE
, Global_Randomize
, 0, 1},
1661 {DISPID_GLOBAL_RND
, Global_Rnd
, 0, 1},
1662 {DISPID_GLOBAL_TIMER
, Global_Timer
, 0, 0},
1663 {DISPID_GLOBAL_LBOUND
, Global_LBound
, 0, 1},
1664 {DISPID_GLOBAL_UBOUND
, Global_UBound
, 0, 1},
1665 {DISPID_GLOBAL_RGB
, Global_RGB
, 0, 3},
1666 {DISPID_GLOBAL_LEN
, Global_Len
, 0, 1},
1667 {DISPID_GLOBAL_LENB
, Global_LenB
, 0, 1},
1668 {DISPID_GLOBAL_LEFT
, Global_Left
, 0, 2},
1669 {DISPID_GLOBAL_LEFTB
, Global_LeftB
, 0, 2},
1670 {DISPID_GLOBAL_RIGHT
, Global_Right
, 0, 2},
1671 {DISPID_GLOBAL_RIGHTB
, Global_RightB
, 0, 2},
1672 {DISPID_GLOBAL_MID
, Global_Mid
, 0, 2, 3},
1673 {DISPID_GLOBAL_MIDB
, Global_MidB
, 0, 2, 3},
1674 {DISPID_GLOBAL_STRCOMP
, Global_StrComp
, 0, 2, 3},
1675 {DISPID_GLOBAL_LCASE
, Global_LCase
, 0, 1},
1676 {DISPID_GLOBAL_UCASE
, Global_UCase
, 0, 1},
1677 {DISPID_GLOBAL_LTRIM
, Global_LTrim
, 0, 1},
1678 {DISPID_GLOBAL_RTRIM
, Global_RTrim
, 0, 1},
1679 {DISPID_GLOBAL_TRIM
, Global_Trim
, 0, 1},
1680 {DISPID_GLOBAL_SPACE
, Global_Space
, 0, 1},
1681 {DISPID_GLOBAL_STRING
, Global_String
, 0, 0, 2},
1682 {DISPID_GLOBAL_INSTR
, Global_InStr
, 0, 2, 4},
1683 {DISPID_GLOBAL_INSTRB
, Global_InStrB
, 0, 3, 4},
1684 {DISPID_GLOBAL_ASCB
, Global_AscB
, 0, 1},
1685 {DISPID_GLOBAL_CHRB
, Global_ChrB
, 0, 1},
1686 {DISPID_GLOBAL_ASC
, Global_Asc
, 0, 1},
1687 {DISPID_GLOBAL_CHR
, Global_Chr
, 0, 1},
1688 {DISPID_GLOBAL_ASCW
, Global_AscW
, 0, 1},
1689 {DISPID_GLOBAL_CHRW
, Global_ChrW
, 0, 1},
1690 {DISPID_GLOBAL_ABS
, Global_Abs
, 0, 1},
1691 {DISPID_GLOBAL_FIX
, Global_Fix
, 0, 1},
1692 {DISPID_GLOBAL_INT
, Global_Int
, 0, 1},
1693 {DISPID_GLOBAL_SGN
, Global_Sgn
, 0, 1},
1694 {DISPID_GLOBAL_NOW
, Global_Now
, 0, 0},
1695 {DISPID_GLOBAL_DATE
, Global_Date
, 0, 0},
1696 {DISPID_GLOBAL_TIME
, Global_Time
, 0, 0},
1697 {DISPID_GLOBAL_DAY
, Global_Day
, 0, 1},
1698 {DISPID_GLOBAL_MONTH
, Global_Month
, 0, 1},
1699 {DISPID_GLOBAL_WEEKDAY
, Global_Weekday
, 0, 1, 2},
1700 {DISPID_GLOBAL_YEAR
, Global_Year
, 0, 1},
1701 {DISPID_GLOBAL_HOUR
, Global_Hour
, 0, 1},
1702 {DISPID_GLOBAL_MINUTE
, Global_Minute
, 0, 1},
1703 {DISPID_GLOBAL_SECOND
, Global_Second
, 0, 1},
1704 {DISPID_GLOBAL_DATEVALUE
, Global_DateValue
, 0, 1},
1705 {DISPID_GLOBAL_TIMEVALUE
, Global_TimeValue
, 0, 1},
1706 {DISPID_GLOBAL_DATESERIAL
, Global_DateSerial
, 0, 3},
1707 {DISPID_GLOBAL_TIMESERIAL
, Global_TimeSerial
, 0, 3},
1708 {DISPID_GLOBAL_INPUTBOX
, Global_InputBox
, 0, 1, 7},
1709 {DISPID_GLOBAL_MSGBOX
, Global_MsgBox
, 0, 1, 5},
1710 {DISPID_GLOBAL_CREATEOBJECT
, Global_CreateObject
, 0, 1},
1711 {DISPID_GLOBAL_GETOBJECT
, Global_GetObject
, 0, 0, 2},
1712 {DISPID_GLOBAL_DATEADD
, Global_DateAdd
, 0, 3},
1713 {DISPID_GLOBAL_DATEDIFF
, Global_DateDiff
, 0, 3, 5},
1714 {DISPID_GLOBAL_DATEPART
, Global_DatePart
, 0, 2, 4},
1715 {DISPID_GLOBAL_TYPENAME
, Global_TypeName
, 0, 1},
1716 {DISPID_GLOBAL_ARRAY
, Global_Array
, 0, 1},
1717 {DISPID_GLOBAL_ERASE
, Global_Erase
, 0, 1},
1718 {DISPID_GLOBAL_FILTER
, Global_Filter
, 0, 2, 4},
1719 {DISPID_GLOBAL_JOIN
, Global_Join
, 0, 1, 2},
1720 {DISPID_GLOBAL_SPLIT
, Global_Split
, 0, 1, 4},
1721 {DISPID_GLOBAL_REPLACE
, Global_Replace
, 0, 3, 6},
1722 {DISPID_GLOBAL_STRREVERSE
, Global_StrReverse
, 0, 1},
1723 {DISPID_GLOBAL_INSTRREV
, Global_InStrRev
, 0, 2, 4},
1724 {DISPID_GLOBAL_LOADPICTURE
, Global_LoadPicture
, 0, 1},
1725 {DISPID_GLOBAL_SCRIPTENGINE
, Global_ScriptEngine
, 0, 0},
1726 {DISPID_GLOBAL_SCRIPTENGINEMAJORVERSION
, Global_ScriptEngineMajorVersion
, 0, 0},
1727 {DISPID_GLOBAL_SCRIPTENGINEMINORVERSION
, Global_ScriptEngineMinorVersion
, 0, 0},
1728 {DISPID_GLOBAL_SCRIPTENGINEBUILDVERSION
, Global_ScriptEngineBuildVersion
, 0, 0},
1729 {DISPID_GLOBAL_FORMATNUMBER
, Global_FormatNumber
, 0, 1, 5},
1730 {DISPID_GLOBAL_FORMATCURRENCY
, Global_FormatCurrency
, 0, 1, 5},
1731 {DISPID_GLOBAL_FORMATPERCENT
, Global_FormatPercent
, 0, 1, 5},
1732 {DISPID_GLOBAL_FORMATDATETIME
, Global_FormatDateTime
, 0, 1, 2},
1733 {DISPID_GLOBAL_WEEKDAYNAME
, Global_WeekdayName
, 0, 3},
1734 {DISPID_GLOBAL_MONTHNAME
, Global_MonthName
, 0, 1, 2},
1735 {DISPID_GLOBAL_ROUND
, Global_Round
, 0, 1, 2},
1736 {DISPID_GLOBAL_ESCAPE
, Global_Escape
, 0, 1},
1737 {DISPID_GLOBAL_UNESCAPE
, Global_Unescape
, 0, 1},
1738 {DISPID_GLOBAL_EVAL
, Global_Eval
, 0, 1},
1739 {DISPID_GLOBAL_EXECUTE
, Global_Execute
, 0, 1},
1740 {DISPID_GLOBAL_EXECUTEGLOBAL
, Global_ExecuteGlobal
, 0, 1},
1741 {DISPID_GLOBAL_GETREF
, Global_GetRef
, 0, 1},
1742 {DISPID_GLOBAL_VBMSGBOXHELPBUTTON
, Global_vbMsgBoxHelpButton
, BP_GET
},
1743 {DISPID_GLOBAL_VBMSGBOXSETFOREGROUND
, Global_vbMsgBoxSetForeground
, BP_GET
},
1744 {DISPID_GLOBAL_VBMSGBOXRIGHT
, Global_vbMsgBoxRight
, BP_GET
},
1745 {DISPID_GLOBAL_VBMSGBOXRTLREADING
, Global_vbMsgBoxRtlReading
, BP_GET
}
1748 HRESULT
init_global(script_ctx_t
*ctx
)
1752 ctx
->global_desc
.ctx
= ctx
;
1753 ctx
->global_desc
.builtin_prop_cnt
= sizeof(global_props
)/sizeof(*global_props
);
1754 ctx
->global_desc
.builtin_props
= global_props
;
1756 hres
= get_typeinfo(GlobalObj_tid
, &ctx
->global_desc
.typeinfo
);
1760 hres
= create_vbdisp(&ctx
->global_desc
, &ctx
->global_obj
);
1764 ctx
->script_desc
.ctx
= ctx
;
1765 hres
= create_vbdisp(&ctx
->script_desc
, &ctx
->script_obj
);
1769 return init_err(ctx
);