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
23 #include "vbscript_defs.h"
28 #include "wine/debug.h"
30 WINE_DEFAULT_DEBUG_CHANNEL(vbscript);
32 #define VB_E_CANNOT_CREATE_OBJ 0x800a01ad
33 #define VB_E_MK_PARSE_ERROR 0x800a01b0
35 /* Defined as extern in urlmon.idl, but not exported by uuid.lib */
36 const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY =
37 {0x10200490,0xfa38,0x11d0,{0xac,0x0e,0x00,0xa0,0xc9,0xf,0xff,0xc0}};
39 static const WCHAR emptyW[] = {0};
40 static const WCHAR vbscriptW[] = {'V','B','S','c','r','i','p','t',0};
42 static IInternetHostSecurityManager *get_sec_mgr(script_ctx_t *ctx)
44 IInternetHostSecurityManager *secmgr;
54 hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IServiceProvider, (void**)&sp);
58 hres = IServiceProvider_QueryService(sp, &SID_SInternetHostSecurityManager, &IID_IInternetHostSecurityManager,
60 IServiceProvider_Release(sp);
64 return ctx->secmgr = secmgr;
67 static HRESULT return_string(VARIANT *res, const WCHAR *str)
74 ret = SysAllocString(str);
83 static HRESULT return_bstr(VARIANT *res, BSTR str)
94 static HRESULT return_short(VARIANT *res, short val)
104 static HRESULT return_int(VARIANT *res, int val)
106 if((short)val == val)
107 return return_short(res, val);
117 static inline HRESULT return_double(VARIANT *res, double val)
127 static inline HRESULT return_null(VARIANT *res)
134 static inline HRESULT return_date(VARIANT *res, double date)
143 static HRESULT to_int(VARIANT *v, int *ret)
153 double n = round(V_R8(v));
155 FIXME("%lf is out of int range\n", n);
162 *ret = V_BOOL(v) ? -1 : 0;
165 FIXME("not supported %s\n", debugstr_variant(v));
172 static HRESULT to_double(VARIANT *v, double *ret)
191 V_VT(&dst) = VT_EMPTY;
192 hres = VariantChangeType(&dst, v, VARIANT_LOCALBOOL, VT_R8);
199 FIXME("arg %s not supported\n", debugstr_variant(v));
206 static HRESULT to_string(VARIANT *v, BSTR *ret)
211 V_VT(&dst) = VT_EMPTY;
212 hres = VariantChangeType(&dst, v, VARIANT_LOCALBOOL, VT_BSTR);
220 static HRESULT set_object_site(script_ctx_t *ctx, IUnknown *obj)
222 IObjectWithSite *obj_site;
226 hres = IUnknown_QueryInterface(obj, &IID_IObjectWithSite, (void**)&obj_site);
230 ax_site = create_ax_site(ctx);
232 hres = IObjectWithSite_SetSite(obj_site, ax_site);
234 hres = E_OUTOFMEMORY;
235 IUnknown_Release(ax_site);
236 IObjectWithSite_Release(obj_site);
240 static IUnknown *create_object(script_ctx_t *ctx, const WCHAR *progid)
242 IInternetHostSecurityManager *secmgr = NULL;
243 struct CONFIRMSAFETY cs;
244 IClassFactoryEx *cfex;
253 hres = CLSIDFromProgID(progid, &guid);
257 TRACE("GUID %s\n", debugstr_guid(&guid));
259 if(ctx->safeopt & INTERFACE_USES_SECURITY_MANAGER) {
260 secmgr = get_sec_mgr(ctx);
265 hres = IInternetHostSecurityManager_ProcessUrlAction(secmgr, URLACTION_ACTIVEX_RUN,
266 (BYTE*)&policy, sizeof(policy), (BYTE*)&guid, sizeof(GUID), 0, 0);
267 if(FAILED(hres) || policy != URLPOLICY_ALLOW)
271 hres = CoGetClassObject(&guid, CLSCTX_INPROC_SERVER|CLSCTX_LOCAL_SERVER, NULL, &IID_IClassFactory, (void**)&cf);
275 hres = IClassFactory_QueryInterface(cf, &IID_IClassFactoryEx, (void**)&cfex);
276 if(SUCCEEDED(hres)) {
277 FIXME("Use IClassFactoryEx\n");
278 IClassFactoryEx_Release(cfex);
281 hres = IClassFactory_CreateInstance(cf, NULL, &IID_IUnknown, (void**)&obj);
289 hres = IInternetHostSecurityManager_QueryCustomPolicy(secmgr, &GUID_CUSTOM_CONFIRMOBJECTSAFETY,
290 &bpolicy, &policy_size, (BYTE*)&cs, sizeof(cs), 0);
291 if(SUCCEEDED(hres)) {
292 policy = policy_size >= sizeof(DWORD) ? *(DWORD*)bpolicy : URLPOLICY_DISALLOW;
293 CoTaskMemFree(bpolicy);
296 if(FAILED(hres) || policy != URLPOLICY_ALLOW) {
297 IUnknown_Release(obj);
302 hres = set_object_site(ctx, obj);
304 IUnknown_Release(obj);
311 static HRESULT show_msgbox(script_ctx_t *ctx, BSTR prompt, VARIANT *res)
313 SCRIPTUICHANDLING uic_handling = SCRIPTUICHANDLING_ALLOW;
314 IActiveScriptSiteUIControl *ui_control;
315 IActiveScriptSiteWindow *acts_window;
321 hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IActiveScriptSiteUIControl, (void**)&ui_control);
322 if(SUCCEEDED(hres)) {
323 hres = IActiveScriptSiteUIControl_GetUIBehavior(ui_control, SCRIPTUICITEM_MSGBOX, &uic_handling);
324 IActiveScriptSiteUIControl_Release(ui_control);
326 uic_handling = SCRIPTUICHANDLING_ALLOW;
329 switch(uic_handling) {
330 case SCRIPTUICHANDLING_ALLOW:
332 case SCRIPTUICHANDLING_NOUIDEFAULT:
333 return return_short(res, 0);
339 title = (ctx->safeopt & INTERFACE_USES_SECURITY_MANAGER) ? vbscriptW : emptyW;
341 hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IActiveScriptSiteWindow, (void**)&acts_window);
343 FIXME("No IActiveScriptSiteWindow\n");
347 hres = IActiveScriptSiteWindow_GetWindow(acts_window, &hwnd);
348 if(SUCCEEDED(hres)) {
349 hres = IActiveScriptSiteWindow_EnableModeless(acts_window, FALSE);
350 if(SUCCEEDED(hres)) {
351 ret = MessageBoxW(hwnd, prompt, title, MB_OK);
352 hres = IActiveScriptSiteWindow_EnableModeless(acts_window, TRUE);
356 IActiveScriptSiteWindow_Release(acts_window);
358 FIXME("failed: %08x\n", hres);
362 return return_short(res, ret);
365 static HRESULT Global_CCur(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
371 static HRESULT Global_CInt(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
377 static HRESULT Global_CLng(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
383 static HRESULT Global_CBool(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
389 static HRESULT Global_CByte(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
395 static HRESULT Global_CDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
401 static HRESULT Global_CDbl(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
407 static HRESULT Global_CSng(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
413 static HRESULT Global_CStr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
418 TRACE("%s\n", debugstr_variant(arg));
420 hres = to_string(arg, &str);
424 return return_bstr(res, str);
427 static inline WCHAR hex_char(unsigned n)
429 return n < 10 ? '0'+n : 'A'+n-10;
432 static HRESULT Global_Hex(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
437 TRACE("%s\n", debugstr_variant(arg));
454 FIXME("unsupported type %s\n", debugstr_variant(arg));
463 *ptr-- = hex_char(n & 0xf);
471 return return_string(res, ptr);
474 static HRESULT Global_Oct(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
480 static HRESULT Global_VarType(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
486 static HRESULT Global_IsDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
492 static HRESULT Global_IsEmpty(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
494 TRACE("(%s)\n", debugstr_variant(arg));
496 assert(args_cnt == 1);
500 V_BOOL(res) = V_VT(arg) == VT_EMPTY ? VARIANT_TRUE : VARIANT_FALSE;
505 static HRESULT Global_IsNull(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
507 TRACE("(%s)\n", debugstr_variant(arg));
509 assert(args_cnt == 1);
513 V_BOOL(res) = V_VT(arg) == VT_NULL ? VARIANT_TRUE : VARIANT_FALSE;
518 static HRESULT Global_IsNumeric(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
524 static HRESULT Global_IsArray(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
530 static HRESULT Global_IsObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
532 TRACE("(%s)\n", debugstr_variant(arg));
534 assert(args_cnt == 1);
538 V_BOOL(res) = V_VT(arg) == VT_DISPATCH ? VARIANT_TRUE : VARIANT_FALSE;
543 static HRESULT Global_Ant(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
549 static HRESULT Global_Cos(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
555 static HRESULT Global_Sin(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
561 static HRESULT Global_Tan(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
567 static HRESULT Global_Exp(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
573 static HRESULT Global_Log(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
579 static HRESULT Global_Sqr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
585 static HRESULT Global_Randomize(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
591 static HRESULT Global_Rnd(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
597 static HRESULT Global_Timer(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
603 static HRESULT Global_LBound(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
609 static HRESULT Global_UBound(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
615 static HRESULT Global_RGB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
621 static HRESULT Global_Len(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
626 TRACE("%s\n", debugstr_variant(arg));
628 if(V_VT(arg) == VT_NULL)
629 return return_null(res);
631 if(V_VT(arg) != VT_BSTR) {
634 hres = to_string(arg, &str);
638 len = SysStringLen(str);
641 len = SysStringLen(V_BSTR(arg));
644 return return_int(res, len);
647 static HRESULT Global_LenB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
653 static HRESULT Global_Left(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
655 BSTR str, ret, conv_str = NULL;
659 TRACE("(%s %s)\n", debugstr_variant(args+1), debugstr_variant(args));
661 if(V_VT(args) == VT_BSTR) {
664 hres = to_string(args, &conv_str);
670 hres = to_int(args+1, &len);
675 FIXME("len = %d\n", len);
679 str_len = SysStringLen(str);
683 ret = SysAllocStringLen(str, len);
684 SysFreeString(conv_str);
686 return E_OUTOFMEMORY;
688 return return_bstr(res, ret);
691 static HRESULT Global_LeftB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
697 static HRESULT Global_Right(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
699 BSTR str, ret, conv_str = NULL;
703 TRACE("(%s %s)\n", debugstr_variant(args), debugstr_variant(args+1));
705 if(V_VT(args+1) == VT_BSTR) {
708 hres = to_string(args, &conv_str);
714 hres = to_int(args+1, &len);
719 FIXME("len = %d\n", len);
723 str_len = SysStringLen(str);
727 ret = SysAllocStringLen(str+str_len-len, len);
728 SysFreeString(conv_str);
730 return E_OUTOFMEMORY;
732 return return_bstr(res, ret);
735 static HRESULT Global_RightB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
741 static HRESULT Global_Mid(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
743 int len = -1, start, str_len;
747 TRACE("(%s %s ...)\n", debugstr_variant(args), debugstr_variant(args+1));
749 assert(args_cnt == 2 || args_cnt == 3);
751 if(V_VT(args) != VT_BSTR) {
752 FIXME("args[0] = %s\n", debugstr_variant(args));
758 hres = to_int(args+1, &start);
763 hres = to_int(args+2, &len);
768 FIXME("len = %d\n", len);
774 str_len = SysStringLen(str);
781 else if(len > str_len-start)
786 V_BSTR(res) = SysAllocStringLen(str+start, len);
788 return E_OUTOFMEMORY;
794 static HRESULT Global_MidB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
800 static HRESULT Global_StrComp(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
806 static HRESULT Global_LCase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
811 TRACE("%s\n", debugstr_variant(arg));
813 if(V_VT(arg) == VT_NULL) {
819 hres = to_string(arg, &str);
826 for(ptr = str; *ptr; ptr++)
827 *ptr = tolowerW(*ptr);
837 static HRESULT Global_UCase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
842 TRACE("%s\n", debugstr_variant(arg));
844 if(V_VT(arg) == VT_NULL) {
850 hres = to_string(arg, &str);
857 for(ptr = str; *ptr; ptr++)
858 *ptr = toupperW(*ptr);
868 static HRESULT Global_LTrim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
870 BSTR str, conv_str = NULL;
874 TRACE("%s\n", debugstr_variant(arg));
876 if(V_VT(arg) == VT_BSTR) {
879 hres = to_string(arg, &conv_str);
885 for(ptr = str; *ptr && isspaceW(*ptr); ptr++);
887 str = SysAllocString(ptr);
888 SysFreeString(conv_str);
890 return E_OUTOFMEMORY;
892 return return_bstr(res, str);
895 static HRESULT Global_RTrim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
897 BSTR str, conv_str = NULL;
901 TRACE("%s\n", debugstr_variant(arg));
903 if(V_VT(arg) == VT_BSTR) {
906 hres = to_string(arg, &conv_str);
912 for(ptr = str+SysStringLen(str); ptr-1 > str && isspaceW(*(ptr-1)); ptr--);
914 str = SysAllocStringLen(str, ptr-str);
915 SysFreeString(conv_str);
917 return E_OUTOFMEMORY;
919 return return_bstr(res, str);
922 static HRESULT Global_Trim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
924 BSTR str, conv_str = NULL;
925 WCHAR *begin_ptr, *end_ptr;
928 TRACE("%s\n", debugstr_variant(arg));
930 if(V_VT(arg) == VT_BSTR) {
933 hres = to_string(arg, &conv_str);
939 for(begin_ptr = str; *begin_ptr && isspaceW(*begin_ptr); begin_ptr++);
940 for(end_ptr = str+SysStringLen(str); end_ptr-1 > begin_ptr && isspaceW(*(end_ptr-1)); end_ptr--);
942 str = SysAllocStringLen(begin_ptr, end_ptr-begin_ptr);
943 SysFreeString(conv_str);
945 return E_OUTOFMEMORY;
947 return return_bstr(res, str);
950 static HRESULT Global_Space(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
956 TRACE("%s\n", debugstr_variant(arg));
958 hres = to_int(arg, &n);
963 FIXME("n = %d\n", n);
970 str = SysAllocStringLen(NULL, n);
972 return E_OUTOFMEMORY;
982 static HRESULT Global_String(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
988 static HRESULT Global_InStr(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
990 VARIANT *startv, *str1v, *str2v;
997 assert(2 <= args_cnt && args_cnt <= 4);
1011 FIXME("unsupported compare argument %s\n", debugstr_variant(args));
1013 DEFAULT_UNREACHABLE;
1017 hres = to_int(startv, &start);
1021 FIXME("start %d\n", start);
1028 if(V_VT(str1v) == VT_NULL || V_VT(str2v) == VT_NULL)
1029 return return_null(res);
1031 if(V_VT(str1v) != VT_BSTR) {
1032 FIXME("Unsupported str1 type %s\n", debugstr_variant(str1v));
1035 str1 = V_BSTR(str1v);
1037 if(V_VT(str2v) != VT_BSTR) {
1038 FIXME("Unsupported str2 type %s\n", debugstr_variant(str2v));
1041 str2 = V_BSTR(str2v);
1043 if(start < SysStringLen(str1)) {
1046 ptr = strstrW(str1+start, str2);
1047 ret = ptr ? ptr-str1+1 : 0;
1052 return return_int(res, ret);
1055 static HRESULT Global_InStrB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1061 static HRESULT Global_AscB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1067 static HRESULT Global_ChrB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1073 static HRESULT Global_Asc(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1079 static HRESULT Global_Chr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1084 TRACE("%s\n", debugstr_variant(arg));
1086 hres = to_int(arg, &c);
1090 if(c < 0 || c >= 0x100) {
1091 FIXME("invalid arg\n");
1098 V_VT(res) = VT_BSTR;
1099 V_BSTR(res) = SysAllocStringLen(&ch, 1);
1101 return E_OUTOFMEMORY;
1106 static HRESULT Global_AscW(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1112 static HRESULT Global_ChrW(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1118 static HRESULT Global_Abs(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1124 static HRESULT Global_Fix(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1130 static HRESULT Global_Int(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1136 static HRESULT Global_Sgn(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1142 static HRESULT Global_Now(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1150 SystemTimeToVariantTime(<, &date);
1151 return return_date(res, date);
1154 static HRESULT Global_Date(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1160 static HRESULT Global_Time(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1166 static HRESULT Global_Day(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1172 static HRESULT Global_Month(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1178 static HRESULT Global_Weekday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1184 static HRESULT Global_Year(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1190 static HRESULT Global_Hour(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1196 static HRESULT Global_Minute(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1202 static HRESULT Global_Second(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1208 static HRESULT Global_DateValue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1214 static HRESULT Global_TimeValue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1220 static HRESULT Global_DateSerial(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1226 static HRESULT Global_TimeSerial(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1232 static HRESULT Global_InputBox(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1238 static HRESULT Global_MsgBox(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
1246 FIXME("unsupported arg_cnt %d\n", args_cnt);
1250 hres = to_string(args, &prompt);
1254 hres = show_msgbox(This->desc->ctx, prompt, res);
1255 SysFreeString(prompt);
1259 static HRESULT Global_CreateObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1264 TRACE("(%s)\n", debugstr_variant(arg));
1266 if(V_VT(arg) != VT_BSTR) {
1267 FIXME("non-bstr arg\n");
1268 return E_INVALIDARG;
1271 obj = create_object(This->desc->ctx, V_BSTR(arg));
1273 return VB_E_CANNOT_CREATE_OBJ;
1276 hres = IUnknown_QueryInterface(obj, &IID_IDispatch, (void**)&V_DISPATCH(res));
1280 V_VT(res) = VT_DISPATCH;
1283 IUnknown_Release(obj);
1287 static HRESULT Global_GetObject(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
1296 TRACE("%s %s\n", args_cnt ? debugstr_variant(args) : "", args_cnt > 1 ? debugstr_variant(args+1) : "");
1298 if(args_cnt != 1 || V_VT(args) != VT_BSTR) {
1299 FIXME("unsupported args\n");
1303 if(This->desc->ctx->safeopt & (INTERFACE_USES_SECURITY_MANAGER|INTERFACESAFE_FOR_UNTRUSTED_DATA)) {
1304 WARN("blocked in current safety mode\n");
1305 return VB_E_CANNOT_CREATE_OBJ;
1308 hres = CreateBindCtx(0, &bind_ctx);
1312 hres = MkParseDisplayName(bind_ctx, V_BSTR(args), &eaten, &mon);
1313 if(SUCCEEDED(hres)) {
1314 hres = IMoniker_BindToObject(mon, bind_ctx, NULL, &IID_IUnknown, (void**)&obj_unk);
1315 IMoniker_Release(mon);
1319 IBindCtx_Release(bind_ctx);
1323 hres = set_object_site(This->desc->ctx, obj_unk);
1325 IUnknown_Release(obj_unk);
1329 hres = IUnknown_QueryInterface(obj_unk, &IID_IDispatch, (void**)&disp);
1330 if(SUCCEEDED(hres)) {
1332 V_VT(res) = VT_DISPATCH;
1333 V_DISPATCH(res) = disp;
1335 IDispatch_Release(disp);
1338 FIXME("object does not support IDispatch\n");
1344 static HRESULT Global_DateAdd(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1350 static HRESULT Global_DateDiff(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1356 static HRESULT Global_DatePart(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1362 static HRESULT Global_TypeName(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1368 static HRESULT Global_Array(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1374 static HRESULT Global_Erase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1380 static HRESULT Global_Filter(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1386 static HRESULT Global_Join(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1392 static HRESULT Global_Split(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1398 static HRESULT Global_Replace(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1404 static HRESULT Global_StrReverse(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1406 WCHAR *ptr1, *ptr2, ch;
1410 TRACE("%s\n", debugstr_variant(arg));
1412 hres = to_string(arg, &ret);
1417 ptr2 = ret + SysStringLen(ret)-1;
1418 while(ptr1 < ptr2) {
1424 return return_bstr(res, ret);
1427 static HRESULT Global_InStrRev(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1433 static HRESULT Global_LoadPicture(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1439 static HRESULT Global_ScriptEngine(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1445 static HRESULT Global_ScriptEngineMajorVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1451 static HRESULT Global_ScriptEngineMinorVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1457 static HRESULT Global_ScriptEngineBuildVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1463 static HRESULT Global_FormatNumber(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1469 static HRESULT Global_FormatCurrency(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1475 static HRESULT Global_FormatPercent(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1481 static HRESULT Global_FormatDateTime(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1487 static HRESULT Global_WeekdayName(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
1489 int weekday, first_day = 1, abbrev = 0;
1495 assert(1 <= args_cnt && args_cnt <= 3);
1497 hres = to_int(args, &weekday);
1502 hres = to_int(args+1, &abbrev);
1507 hres = to_int(args+2, &first_day);
1513 hres = VarWeekdayName(weekday, abbrev, first_day, 0, &ret);
1517 return return_bstr(res, ret);
1520 static HRESULT Global_MonthName(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
1522 int month, abbrev = 0;
1528 assert(args_cnt == 1 || args_cnt == 2);
1530 hres = to_int(args, &month);
1535 hres = to_int(args+1, &abbrev);
1540 hres = VarMonthName(month, abbrev, 0, &ret);
1544 return return_bstr(res, ret);
1547 static HRESULT Global_Round(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1552 TRACE("%s\n", debugstr_variant(arg));
1567 hres = to_double(arg, &n);
1572 return return_double(res, round(n));
1575 static HRESULT Global_Escape(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1581 static HRESULT Global_Unescape(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1587 static HRESULT Global_Eval(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1593 static HRESULT Global_Execute(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1599 static HRESULT Global_ExecuteGlobal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1605 static HRESULT Global_GetRef(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1611 static const string_constant_t vbCr = {1, {'\r'}};
1612 static const string_constant_t vbCrLf = {2, {'\r','\n'}};
1613 static const string_constant_t vbNewLine = {2, {'\r','\n'}};
1614 static const string_constant_t vbFormFeed = {1, {0xc}};
1615 static const string_constant_t vbLf = {1, {'\n'}};
1616 static const string_constant_t vbNullChar = {1};
1617 static const string_constant_t vbNullString = {0};
1618 static const string_constant_t vbTab = {1, {'\t'}};
1619 static const string_constant_t vbVerticalTab = {1, {0xb}};
1621 static const builtin_prop_t global_props[] = {
1622 {DISPID_GLOBAL_VBUSESYSTEM, NULL, BP_GET, VT_I2, 0},
1623 {DISPID_GLOBAL_USESYSTEMDAYOFWEEK, NULL, BP_GET, VT_I2, 0},
1624 {DISPID_GLOBAL_VBSUNDAY, NULL, BP_GET, VT_I2, 1},
1625 {DISPID_GLOBAL_VBMONDAY, NULL, BP_GET, VT_I2, 2},
1626 {DISPID_GLOBAL_VBTUESDAY, NULL, BP_GET, VT_I2, 3},
1627 {DISPID_GLOBAL_VBWEDNESDAY, NULL, BP_GET, VT_I2, 4},
1628 {DISPID_GLOBAL_VBTHURSDAY, NULL, BP_GET, VT_I2, 5},
1629 {DISPID_GLOBAL_VBFRIDAY, NULL, BP_GET, VT_I2, 6},
1630 {DISPID_GLOBAL_VBSATURDAY, NULL, BP_GET, VT_I2, 7},
1631 {DISPID_GLOBAL_VBFIRSTJAN1, NULL, BP_GET, VT_I2, 1},
1632 {DISPID_GLOBAL_VBFIRSTFOURDAYS, NULL, BP_GET, VT_I2, 2},
1633 {DISPID_GLOBAL_VBFIRSTFULLWEEK, NULL, BP_GET, VT_I2, 3},
1634 {DISPID_GLOBAL_VBOKONLY, NULL, BP_GET, VT_I2, MB_OK},
1635 {DISPID_GLOBAL_VBOKCANCEL, NULL, BP_GET, VT_I2, MB_OKCANCEL},
1636 {DISPID_GLOBAL_VBABORTRETRYIGNORE, NULL, BP_GET, VT_I2, MB_ABORTRETRYIGNORE},
1637 {DISPID_GLOBAL_VBYESNOCANCEL, NULL, BP_GET, VT_I2, MB_YESNOCANCEL},
1638 {DISPID_GLOBAL_VBYESNO, NULL, BP_GET, VT_I2, MB_YESNO},
1639 {DISPID_GLOBAL_VBRETRYCANCEL, NULL, BP_GET, VT_I2, MB_RETRYCANCEL},
1640 {DISPID_GLOBAL_VBCRITICAL, NULL, BP_GET, VT_I2, MB_ICONHAND},
1641 {DISPID_GLOBAL_VBQUESTION, NULL, BP_GET, VT_I2, MB_ICONQUESTION},
1642 {DISPID_GLOBAL_VBEXCLAMATION, NULL, BP_GET, VT_I2, MB_ICONEXCLAMATION},
1643 {DISPID_GLOBAL_VBINFORMATION, NULL, BP_GET, VT_I2, MB_ICONASTERISK},
1644 {DISPID_GLOBAL_VBDEFAULTBUTTON1, NULL, BP_GET, VT_I2, MB_DEFBUTTON1},
1645 {DISPID_GLOBAL_VBDEFAULTBUTTON2, NULL, BP_GET, VT_I2, MB_DEFBUTTON2},
1646 {DISPID_GLOBAL_VBDEFAULTBUTTON3, NULL, BP_GET, VT_I2, MB_DEFBUTTON3},
1647 {DISPID_GLOBAL_VBDEFAULTBUTTON4, NULL, BP_GET, VT_I2, MB_DEFBUTTON4},
1648 {DISPID_GLOBAL_VBAPPLICATIONMODAL, NULL, BP_GET, VT_I2, MB_APPLMODAL},
1649 {DISPID_GLOBAL_VBSYSTEMMODAL, NULL, BP_GET, VT_I2, MB_SYSTEMMODAL},
1650 {DISPID_GLOBAL_VBOK, NULL, BP_GET, VT_I2, IDOK},
1651 {DISPID_GLOBAL_VBCANCEL, NULL, BP_GET, VT_I2, IDCANCEL},
1652 {DISPID_GLOBAL_VBABORT, NULL, BP_GET, VT_I2, IDABORT},
1653 {DISPID_GLOBAL_VBRETRY, NULL, BP_GET, VT_I2, IDRETRY},
1654 {DISPID_GLOBAL_VBIGNORE, NULL, BP_GET, VT_I2, IDIGNORE},
1655 {DISPID_GLOBAL_VBYES, NULL, BP_GET, VT_I2, IDYES},
1656 {DISPID_GLOBAL_VBNO, NULL, BP_GET, VT_I2, IDNO},
1657 {DISPID_GLOBAL_VBEMPTY, NULL, BP_GET, VT_I2, VT_EMPTY},
1658 {DISPID_GLOBAL_VBNULL, NULL, BP_GET, VT_I2, VT_NULL},
1659 {DISPID_GLOBAL_VBINTEGER, NULL, BP_GET, VT_I2, VT_I2},
1660 {DISPID_GLOBAL_VBLONG, NULL, BP_GET, VT_I2, VT_I4},
1661 {DISPID_GLOBAL_VBSINGLE, NULL, BP_GET, VT_I2, VT_R4},
1662 {DISPID_GLOBAL_VBDOUBLE, NULL, BP_GET, VT_I2, VT_R8},
1663 {DISPID_GLOBAL_VBCURRENCY, NULL, BP_GET, VT_I2, VT_CY},
1664 {DISPID_GLOBAL_VBDATE, NULL, BP_GET, VT_I2, VT_DATE},
1665 {DISPID_GLOBAL_VBSTRING, NULL, BP_GET, VT_I2, VT_BSTR},
1666 {DISPID_GLOBAL_VBOBJECT, NULL, BP_GET, VT_I2, VT_DISPATCH},
1667 {DISPID_GLOBAL_VBERROR, NULL, BP_GET, VT_I2, VT_ERROR},
1668 {DISPID_GLOBAL_VBBOOLEAN, NULL, BP_GET, VT_I2, VT_BOOL},
1669 {DISPID_GLOBAL_VBVARIANT, NULL, BP_GET, VT_I2, VT_VARIANT},
1670 {DISPID_GLOBAL_VBDATAOBJECT, NULL, BP_GET, VT_I2, VT_UNKNOWN},
1671 {DISPID_GLOBAL_VBDECIMAL, NULL, BP_GET, VT_I2, VT_DECIMAL},
1672 {DISPID_GLOBAL_VBBYTE, NULL, BP_GET, VT_I2, VT_UI1},
1673 {DISPID_GLOBAL_VBARRAY, NULL, BP_GET, VT_I2, VT_ARRAY},
1674 {DISPID_GLOBAL_VBTRUE, NULL, BP_GET, VT_I2, VARIANT_TRUE},
1675 {DISPID_GLOBAL_VBFALSE, NULL, BP_GET, VT_I2, VARIANT_FALSE},
1676 {DISPID_GLOBAL_VBUSEDEFAULT, NULL, BP_GET, VT_I2, -2},
1677 {DISPID_GLOBAL_VBBINARYCOMPARE, NULL, BP_GET, VT_I2, 0},
1678 {DISPID_GLOBAL_VBTEXTCOMPARE, NULL, BP_GET, VT_I2, 1},
1679 {DISPID_GLOBAL_VBDATABASECOMPARE, NULL, BP_GET, VT_I2, 2},
1680 {DISPID_GLOBAL_VBGENERALDATE, NULL, BP_GET, VT_I2, 0},
1681 {DISPID_GLOBAL_VBLONGDATE, NULL, BP_GET, VT_I2, 1},
1682 {DISPID_GLOBAL_VBSHORTDATE, NULL, BP_GET, VT_I2, 2},
1683 {DISPID_GLOBAL_VBLONGTIME, NULL, BP_GET, VT_I2, 3},
1684 {DISPID_GLOBAL_VBSHORTTIME, NULL, BP_GET, VT_I2, 4},
1685 {DISPID_GLOBAL_VBOBJECTERROR, NULL, BP_GET, VT_I4, 0x80040000},
1686 {DISPID_GLOBAL_VBBLACK, NULL, BP_GET, VT_I4, 0x000000},
1687 {DISPID_GLOBAL_VBBLUE, NULL, BP_GET, VT_I4, 0xff0000},
1688 {DISPID_GLOBAL_VBCYAN, NULL, BP_GET, VT_I4, 0xffff00},
1689 {DISPID_GLOBAL_VBGREEN, NULL, BP_GET, VT_I4, 0x00ff00},
1690 {DISPID_GLOBAL_VBMAGENTA, NULL, BP_GET, VT_I4, 0xff00ff},
1691 {DISPID_GLOBAL_VBRED, NULL, BP_GET, VT_I4, 0x0000ff},
1692 {DISPID_GLOBAL_VBWHITE, NULL, BP_GET, VT_I4, 0xffffff},
1693 {DISPID_GLOBAL_VBYELLOW, NULL, BP_GET, VT_I4, 0x00ffff},
1694 {DISPID_GLOBAL_VBCR, NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbCr},
1695 {DISPID_GLOBAL_VBCRLF, NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbCrLf},
1696 {DISPID_GLOBAL_VBNEWLINE, NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbNewLine},
1697 {DISPID_GLOBAL_VBFORMFEED, NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbFormFeed},
1698 {DISPID_GLOBAL_VBLF, NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbLf},
1699 {DISPID_GLOBAL_VBNULLCHAR, NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbNullChar},
1700 {DISPID_GLOBAL_VBNULLSTRING, NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbNullString},
1701 {DISPID_GLOBAL_VBTAB, NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbTab},
1702 {DISPID_GLOBAL_VBVERTICALTAB, NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbVerticalTab},
1703 {DISPID_GLOBAL_CCUR, Global_CCur, 0, 1},
1704 {DISPID_GLOBAL_CINT, Global_CInt, 0, 1},
1705 {DISPID_GLOBAL_CLNG, Global_CLng, 0, 1},
1706 {DISPID_GLOBAL_CBOOL, Global_CBool, 0, 1},
1707 {DISPID_GLOBAL_CBYTE, Global_CByte, 0, 1},
1708 {DISPID_GLOBAL_CDATE, Global_CDate, 0, 1},
1709 {DISPID_GLOBAL_CDBL, Global_CDbl, 0, 1},
1710 {DISPID_GLOBAL_CSNG, Global_CSng, 0, 1},
1711 {DISPID_GLOBAL_CSTR, Global_CStr, 0, 1},
1712 {DISPID_GLOBAL_HEX, Global_Hex, 0, 1},
1713 {DISPID_GLOBAL_OCT, Global_Oct, 0, 1},
1714 {DISPID_GLOBAL_VARTYPE, Global_VarType, 0, 1},
1715 {DISPID_GLOBAL_ISDATE, Global_IsDate, 0, 1},
1716 {DISPID_GLOBAL_ISEMPTY, Global_IsEmpty, 0, 1},
1717 {DISPID_GLOBAL_ISNULL, Global_IsNull, 0, 1},
1718 {DISPID_GLOBAL_ISNUMERIC, Global_IsNumeric, 0, 1},
1719 {DISPID_GLOBAL_ISARRAY, Global_IsArray, 0, 1},
1720 {DISPID_GLOBAL_ISOBJECT, Global_IsObject, 0, 1},
1721 {DISPID_GLOBAL_ATN, Global_Ant, 0, 1},
1722 {DISPID_GLOBAL_COS, Global_Cos, 0, 1},
1723 {DISPID_GLOBAL_SIN, Global_Sin, 0, 1},
1724 {DISPID_GLOBAL_TAN, Global_Tan, 0, 1},
1725 {DISPID_GLOBAL_EXP, Global_Exp, 0, 1},
1726 {DISPID_GLOBAL_LOG, Global_Log, 0, 1},
1727 {DISPID_GLOBAL_SQR, Global_Sqr, 0, 1},
1728 {DISPID_GLOBAL_RANDOMIZE, Global_Randomize, 0, 1},
1729 {DISPID_GLOBAL_RND, Global_Rnd, 0, 1},
1730 {DISPID_GLOBAL_TIMER, Global_Timer, 0, 0},
1731 {DISPID_GLOBAL_LBOUND, Global_LBound, 0, 1},
1732 {DISPID_GLOBAL_UBOUND, Global_UBound, 0, 1},
1733 {DISPID_GLOBAL_RGB, Global_RGB, 0, 3},
1734 {DISPID_GLOBAL_LEN, Global_Len, 0, 1},
1735 {DISPID_GLOBAL_LENB, Global_LenB, 0, 1},
1736 {DISPID_GLOBAL_LEFT, Global_Left, 0, 2},
1737 {DISPID_GLOBAL_LEFTB, Global_LeftB, 0, 2},
1738 {DISPID_GLOBAL_RIGHT, Global_Right, 0, 2},
1739 {DISPID_GLOBAL_RIGHTB, Global_RightB, 0, 2},
1740 {DISPID_GLOBAL_MID, Global_Mid, 0, 2, 3},
1741 {DISPID_GLOBAL_MIDB, Global_MidB, 0, 2, 3},
1742 {DISPID_GLOBAL_STRCOMP, Global_StrComp, 0, 2, 3},
1743 {DISPID_GLOBAL_LCASE, Global_LCase, 0, 1},
1744 {DISPID_GLOBAL_UCASE, Global_UCase, 0, 1},
1745 {DISPID_GLOBAL_LTRIM, Global_LTrim, 0, 1},
1746 {DISPID_GLOBAL_RTRIM, Global_RTrim, 0, 1},
1747 {DISPID_GLOBAL_TRIM, Global_Trim, 0, 1},
1748 {DISPID_GLOBAL_SPACE, Global_Space, 0, 1},
1749 {DISPID_GLOBAL_STRING, Global_String, 0, 0, 2},
1750 {DISPID_GLOBAL_INSTR, Global_InStr, 0, 2, 4},
1751 {DISPID_GLOBAL_INSTRB, Global_InStrB, 0, 3, 4},
1752 {DISPID_GLOBAL_ASCB, Global_AscB, 0, 1},
1753 {DISPID_GLOBAL_CHRB, Global_ChrB, 0, 1},
1754 {DISPID_GLOBAL_ASC, Global_Asc, 0, 1},
1755 {DISPID_GLOBAL_CHR, Global_Chr, 0, 1},
1756 {DISPID_GLOBAL_ASCW, Global_AscW, 0, 1},
1757 {DISPID_GLOBAL_CHRW, Global_ChrW, 0, 1},
1758 {DISPID_GLOBAL_ABS, Global_Abs, 0, 1},
1759 {DISPID_GLOBAL_FIX, Global_Fix, 0, 1},
1760 {DISPID_GLOBAL_INT, Global_Int, 0, 1},
1761 {DISPID_GLOBAL_SGN, Global_Sgn, 0, 1},
1762 {DISPID_GLOBAL_NOW, Global_Now, 0, 0},
1763 {DISPID_GLOBAL_DATE, Global_Date, 0, 0},
1764 {DISPID_GLOBAL_TIME, Global_Time, 0, 0},
1765 {DISPID_GLOBAL_DAY, Global_Day, 0, 1},
1766 {DISPID_GLOBAL_MONTH, Global_Month, 0, 1},
1767 {DISPID_GLOBAL_WEEKDAY, Global_Weekday, 0, 1, 2},
1768 {DISPID_GLOBAL_YEAR, Global_Year, 0, 1},
1769 {DISPID_GLOBAL_HOUR, Global_Hour, 0, 1},
1770 {DISPID_GLOBAL_MINUTE, Global_Minute, 0, 1},
1771 {DISPID_GLOBAL_SECOND, Global_Second, 0, 1},
1772 {DISPID_GLOBAL_DATEVALUE, Global_DateValue, 0, 1},
1773 {DISPID_GLOBAL_TIMEVALUE, Global_TimeValue, 0, 1},
1774 {DISPID_GLOBAL_DATESERIAL, Global_DateSerial, 0, 3},
1775 {DISPID_GLOBAL_TIMESERIAL, Global_TimeSerial, 0, 3},
1776 {DISPID_GLOBAL_INPUTBOX, Global_InputBox, 0, 1, 7},
1777 {DISPID_GLOBAL_MSGBOX, Global_MsgBox, 0, 1, 5},
1778 {DISPID_GLOBAL_CREATEOBJECT, Global_CreateObject, 0, 1},
1779 {DISPID_GLOBAL_GETOBJECT, Global_GetObject, 0, 0, 2},
1780 {DISPID_GLOBAL_DATEADD, Global_DateAdd, 0, 3},
1781 {DISPID_GLOBAL_DATEDIFF, Global_DateDiff, 0, 3, 5},
1782 {DISPID_GLOBAL_DATEPART, Global_DatePart, 0, 2, 4},
1783 {DISPID_GLOBAL_TYPENAME, Global_TypeName, 0, 1},
1784 {DISPID_GLOBAL_ARRAY, Global_Array, 0, 1},
1785 {DISPID_GLOBAL_ERASE, Global_Erase, 0, 1},
1786 {DISPID_GLOBAL_FILTER, Global_Filter, 0, 2, 4},
1787 {DISPID_GLOBAL_JOIN, Global_Join, 0, 1, 2},
1788 {DISPID_GLOBAL_SPLIT, Global_Split, 0, 1, 4},
1789 {DISPID_GLOBAL_REPLACE, Global_Replace, 0, 3, 6},
1790 {DISPID_GLOBAL_STRREVERSE, Global_StrReverse, 0, 1},
1791 {DISPID_GLOBAL_INSTRREV, Global_InStrRev, 0, 2, 4},
1792 {DISPID_GLOBAL_LOADPICTURE, Global_LoadPicture, 0, 1},
1793 {DISPID_GLOBAL_SCRIPTENGINE, Global_ScriptEngine, 0, 0},
1794 {DISPID_GLOBAL_SCRIPTENGINEMAJORVERSION, Global_ScriptEngineMajorVersion, 0, 0},
1795 {DISPID_GLOBAL_SCRIPTENGINEMINORVERSION, Global_ScriptEngineMinorVersion, 0, 0},
1796 {DISPID_GLOBAL_SCRIPTENGINEBUILDVERSION, Global_ScriptEngineBuildVersion, 0, 0},
1797 {DISPID_GLOBAL_FORMATNUMBER, Global_FormatNumber, 0, 1, 5},
1798 {DISPID_GLOBAL_FORMATCURRENCY, Global_FormatCurrency, 0, 1, 5},
1799 {DISPID_GLOBAL_FORMATPERCENT, Global_FormatPercent, 0, 1, 5},
1800 {DISPID_GLOBAL_FORMATDATETIME, Global_FormatDateTime, 0, 1, 2},
1801 {DISPID_GLOBAL_WEEKDAYNAME, Global_WeekdayName, 0, 1, 3},
1802 {DISPID_GLOBAL_MONTHNAME, Global_MonthName, 0, 1, 2},
1803 {DISPID_GLOBAL_ROUND, Global_Round, 0, 1, 2},
1804 {DISPID_GLOBAL_ESCAPE, Global_Escape, 0, 1},
1805 {DISPID_GLOBAL_UNESCAPE, Global_Unescape, 0, 1},
1806 {DISPID_GLOBAL_EVAL, Global_Eval, 0, 1},
1807 {DISPID_GLOBAL_EXECUTE, Global_Execute, 0, 1},
1808 {DISPID_GLOBAL_EXECUTEGLOBAL, Global_ExecuteGlobal, 0, 1},
1809 {DISPID_GLOBAL_GETREF, Global_GetRef, 0, 1},
1810 {DISPID_GLOBAL_VBMSGBOXHELPBUTTON, NULL, BP_GET, VT_I4, MB_HELP},
1811 {DISPID_GLOBAL_VBMSGBOXSETFOREGROUND, NULL, BP_GET, VT_I4, MB_SETFOREGROUND},
1812 {DISPID_GLOBAL_VBMSGBOXRIGHT, NULL, BP_GET, VT_I4, MB_RIGHT},
1813 {DISPID_GLOBAL_VBMSGBOXRTLREADING, NULL, BP_GET, VT_I4, MB_RTLREADING}
1816 HRESULT init_global(script_ctx_t *ctx)
1820 ctx->global_desc.ctx = ctx;
1821 ctx->global_desc.builtin_prop_cnt = sizeof(global_props)/sizeof(*global_props);
1822 ctx->global_desc.builtin_props = global_props;
1824 hres = get_typeinfo(GlobalObj_tid, &ctx->global_desc.typeinfo);
1828 hres = create_vbdisp(&ctx->global_desc, &ctx->global_obj);
1832 hres = create_script_disp(ctx, &ctx->script_obj);
1836 return init_err(ctx);