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 round(x) (((x) < 0) ? (int)((x) - 0.5) : (int)((x) + 0.5))
34 #define VB_E_CANNOT_CREATE_OBJ 0x800a01ad
35 #define VB_E_MK_PARSE_ERROR 0x800a01b0
37 /* Defined as extern in urlmon.idl, but not exported by uuid.lib */
38 const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY
=
39 {0x10200490,0xfa38,0x11d0,{0xac,0x0e,0x00,0xa0,0xc9,0xf,0xff,0xc0}};
41 static const WCHAR emptyW
[] = {0};
42 static const WCHAR vbscriptW
[] = {'V','B','S','c','r','i','p','t',0};
44 static IInternetHostSecurityManager
*get_sec_mgr(script_ctx_t
*ctx
)
46 IInternetHostSecurityManager
*secmgr
;
56 hres
= IActiveScriptSite_QueryInterface(ctx
->site
, &IID_IServiceProvider
, (void**)&sp
);
60 hres
= IServiceProvider_QueryService(sp
, &SID_SInternetHostSecurityManager
, &IID_IInternetHostSecurityManager
,
62 IServiceProvider_Release(sp
);
66 return ctx
->secmgr
= secmgr
;
69 static HRESULT
return_string(VARIANT
*res
, const WCHAR
*str
)
76 ret
= SysAllocString(str
);
85 static HRESULT
return_bstr(VARIANT
*res
, BSTR str
)
96 static HRESULT
return_short(VARIANT
*res
, short val
)
106 static HRESULT
return_int(VARIANT
*res
, int val
)
108 if((short)val
== val
)
109 return return_short(res
, val
);
119 static HRESULT
return_bool(VARIANT
*res
, int val
)
123 V_BOOL(res
) = val
!= 0 ? VARIANT_TRUE
: VARIANT_FALSE
;
129 static inline HRESULT
return_double(VARIANT
*res
, double val
)
139 static inline HRESULT
return_null(VARIANT
*res
)
146 static inline HRESULT
return_date(VARIANT
*res
, double date
)
155 static HRESULT
to_int(VARIANT
*v
, int *ret
)
165 double n
= floor(V_R8(v
)+0.5);
169 FIXME("%lf is out of int range\n", n
);
173 /* Round half to even */
175 if(i
%2 && n
-V_R8(v
) == 0.5)
182 *ret
= V_BOOL(v
) ? -1 : 0;
185 FIXME("not supported %s\n", debugstr_variant(v
));
192 static HRESULT
to_double(VARIANT
*v
, double *ret
)
211 V_VT(&dst
) = VT_EMPTY
;
212 hres
= VariantChangeType(&dst
, v
, VARIANT_LOCALBOOL
, VT_R8
);
219 FIXME("arg %s not supported\n", debugstr_variant(v
));
226 static HRESULT
to_string(VARIANT
*v
, BSTR
*ret
)
231 V_VT(&dst
) = VT_EMPTY
;
232 hres
= VariantChangeType(&dst
, v
, VARIANT_LOCALBOOL
, VT_BSTR
);
240 static HRESULT
set_object_site(script_ctx_t
*ctx
, IUnknown
*obj
)
242 IObjectWithSite
*obj_site
;
246 hres
= IUnknown_QueryInterface(obj
, &IID_IObjectWithSite
, (void**)&obj_site
);
250 ax_site
= create_ax_site(ctx
);
252 hres
= IObjectWithSite_SetSite(obj_site
, ax_site
);
254 hres
= E_OUTOFMEMORY
;
255 IUnknown_Release(ax_site
);
256 IObjectWithSite_Release(obj_site
);
260 static IUnknown
*create_object(script_ctx_t
*ctx
, const WCHAR
*progid
)
262 IInternetHostSecurityManager
*secmgr
= NULL
;
263 struct CONFIRMSAFETY cs
;
264 IClassFactoryEx
*cfex
;
273 hres
= CLSIDFromProgID(progid
, &guid
);
277 TRACE("GUID %s\n", debugstr_guid(&guid
));
279 if(ctx
->safeopt
& INTERFACE_USES_SECURITY_MANAGER
) {
280 secmgr
= get_sec_mgr(ctx
);
285 hres
= IInternetHostSecurityManager_ProcessUrlAction(secmgr
, URLACTION_ACTIVEX_RUN
,
286 (BYTE
*)&policy
, sizeof(policy
), (BYTE
*)&guid
, sizeof(GUID
), 0, 0);
287 if(FAILED(hres
) || policy
!= URLPOLICY_ALLOW
)
291 hres
= CoGetClassObject(&guid
, CLSCTX_INPROC_SERVER
|CLSCTX_LOCAL_SERVER
, NULL
, &IID_IClassFactory
, (void**)&cf
);
295 hres
= IClassFactory_QueryInterface(cf
, &IID_IClassFactoryEx
, (void**)&cfex
);
296 if(SUCCEEDED(hres
)) {
297 FIXME("Use IClassFactoryEx\n");
298 IClassFactoryEx_Release(cfex
);
301 hres
= IClassFactory_CreateInstance(cf
, NULL
, &IID_IUnknown
, (void**)&obj
);
309 hres
= IInternetHostSecurityManager_QueryCustomPolicy(secmgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
310 &bpolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
311 if(SUCCEEDED(hres
)) {
312 policy
= policy_size
>= sizeof(DWORD
) ? *(DWORD
*)bpolicy
: URLPOLICY_DISALLOW
;
313 CoTaskMemFree(bpolicy
);
316 if(FAILED(hres
) || policy
!= URLPOLICY_ALLOW
) {
317 IUnknown_Release(obj
);
322 hres
= set_object_site(ctx
, obj
);
324 IUnknown_Release(obj
);
331 static HRESULT
show_msgbox(script_ctx_t
*ctx
, BSTR prompt
, VARIANT
*res
)
333 SCRIPTUICHANDLING uic_handling
= SCRIPTUICHANDLING_ALLOW
;
334 IActiveScriptSiteUIControl
*ui_control
;
335 IActiveScriptSiteWindow
*acts_window
;
341 hres
= IActiveScriptSite_QueryInterface(ctx
->site
, &IID_IActiveScriptSiteUIControl
, (void**)&ui_control
);
342 if(SUCCEEDED(hres
)) {
343 hres
= IActiveScriptSiteUIControl_GetUIBehavior(ui_control
, SCRIPTUICITEM_MSGBOX
, &uic_handling
);
344 IActiveScriptSiteUIControl_Release(ui_control
);
346 uic_handling
= SCRIPTUICHANDLING_ALLOW
;
349 switch(uic_handling
) {
350 case SCRIPTUICHANDLING_ALLOW
:
352 case SCRIPTUICHANDLING_NOUIDEFAULT
:
353 return return_short(res
, 0);
359 title
= (ctx
->safeopt
& INTERFACE_USES_SECURITY_MANAGER
) ? vbscriptW
: emptyW
;
361 hres
= IActiveScriptSite_QueryInterface(ctx
->site
, &IID_IActiveScriptSiteWindow
, (void**)&acts_window
);
363 FIXME("No IActiveScriptSiteWindow\n");
367 hres
= IActiveScriptSiteWindow_GetWindow(acts_window
, &hwnd
);
368 if(SUCCEEDED(hres
)) {
369 hres
= IActiveScriptSiteWindow_EnableModeless(acts_window
, FALSE
);
370 if(SUCCEEDED(hres
)) {
371 ret
= MessageBoxW(hwnd
, prompt
, title
, MB_OK
);
372 hres
= IActiveScriptSiteWindow_EnableModeless(acts_window
, TRUE
);
376 IActiveScriptSiteWindow_Release(acts_window
);
378 FIXME("failed: %08x\n", hres
);
382 return return_short(res
, ret
);
385 static HRESULT
Global_CCur(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
391 static HRESULT
Global_CInt(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
396 TRACE("%s\n", debugstr_variant(arg
));
398 assert(args_cnt
== 1);
400 hres
= to_int(arg
, &val
);
404 return return_int(res
, val
);
407 static HRESULT
Global_CLng(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
413 static HRESULT
Global_CBool(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
416 TRACE("%s\n", debugstr_variant(arg
));
418 assert(args_cnt
== 1);
428 val
= V_R4(arg
) > 0.0 || V_R4(arg
) < 0.0;
431 val
= V_R8(arg
) > 0.0 || V_R8(arg
) < 0.0;
434 ERR("Not a numeric value: %s\n", debugstr_variant(arg
));
438 return return_bool(res
, val
);
441 static HRESULT
Global_CByte(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
447 static HRESULT
Global_CDate(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
453 static HRESULT
Global_CDbl(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
459 static HRESULT
Global_CSng(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
465 static HRESULT
Global_CStr(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
470 TRACE("%s\n", debugstr_variant(arg
));
472 hres
= to_string(arg
, &str
);
476 return return_bstr(res
, str
);
479 static inline WCHAR
hex_char(unsigned n
)
481 return n
< 10 ? '0'+n
: 'A'+n
-10;
484 static HRESULT
Global_Hex(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
489 TRACE("%s\n", debugstr_variant(arg
));
506 FIXME("unsupported type %s\n", debugstr_variant(arg
));
515 *ptr
-- = hex_char(n
& 0xf);
523 return return_string(res
, ptr
);
526 static HRESULT
Global_Oct(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
532 static HRESULT
Global_VarType(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
538 static HRESULT
Global_IsDate(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
544 static HRESULT
Global_IsEmpty(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
546 TRACE("(%s)\n", debugstr_variant(arg
));
548 assert(args_cnt
== 1);
552 V_BOOL(res
) = V_VT(arg
) == VT_EMPTY
? VARIANT_TRUE
: VARIANT_FALSE
;
557 static HRESULT
Global_IsNull(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
559 TRACE("(%s)\n", debugstr_variant(arg
));
561 assert(args_cnt
== 1);
565 V_BOOL(res
) = V_VT(arg
) == VT_NULL
? VARIANT_TRUE
: VARIANT_FALSE
;
570 static HRESULT
Global_IsNumeric(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
576 static HRESULT
Global_IsArray(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
582 static HRESULT
Global_IsObject(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
584 TRACE("(%s)\n", debugstr_variant(arg
));
586 assert(args_cnt
== 1);
590 V_BOOL(res
) = V_VT(arg
) == VT_DISPATCH
? VARIANT_TRUE
: VARIANT_FALSE
;
595 static HRESULT
Global_Ant(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
601 static HRESULT
Global_Cos(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
607 static HRESULT
Global_Sin(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
613 static HRESULT
Global_Tan(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
619 static HRESULT
Global_Exp(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
625 static HRESULT
Global_Log(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
631 static HRESULT
Global_Sqr(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
637 static HRESULT
Global_Randomize(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
643 static HRESULT
Global_Rnd(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
649 static HRESULT
Global_Timer(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
655 static HRESULT
Global_LBound(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
661 static HRESULT
Global_UBound(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
667 static HRESULT
Global_RGB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
673 static HRESULT
Global_Len(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
678 TRACE("%s\n", debugstr_variant(arg
));
680 if(V_VT(arg
) == VT_NULL
)
681 return return_null(res
);
683 if(V_VT(arg
) != VT_BSTR
) {
686 hres
= to_string(arg
, &str
);
690 len
= SysStringLen(str
);
693 len
= SysStringLen(V_BSTR(arg
));
696 return return_int(res
, len
);
699 static HRESULT
Global_LenB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
705 static HRESULT
Global_Left(vbdisp_t
*This
, VARIANT
*args
, unsigned args_cnt
, VARIANT
*res
)
707 BSTR str
, ret
, conv_str
= NULL
;
711 TRACE("(%s %s)\n", debugstr_variant(args
+1), debugstr_variant(args
));
713 if(V_VT(args
) == VT_BSTR
) {
716 hres
= to_string(args
, &conv_str
);
722 hres
= to_int(args
+1, &len
);
727 FIXME("len = %d\n", len
);
731 str_len
= SysStringLen(str
);
735 ret
= SysAllocStringLen(str
, len
);
736 SysFreeString(conv_str
);
738 return E_OUTOFMEMORY
;
740 return return_bstr(res
, ret
);
743 static HRESULT
Global_LeftB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
749 static HRESULT
Global_Right(vbdisp_t
*This
, VARIANT
*args
, unsigned args_cnt
, VARIANT
*res
)
751 BSTR str
, ret
, conv_str
= NULL
;
755 TRACE("(%s %s)\n", debugstr_variant(args
), debugstr_variant(args
+1));
757 if(V_VT(args
+1) == VT_BSTR
) {
760 hres
= to_string(args
, &conv_str
);
766 hres
= to_int(args
+1, &len
);
771 FIXME("len = %d\n", len
);
775 str_len
= SysStringLen(str
);
779 ret
= SysAllocStringLen(str
+str_len
-len
, len
);
780 SysFreeString(conv_str
);
782 return E_OUTOFMEMORY
;
784 return return_bstr(res
, ret
);
787 static HRESULT
Global_RightB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
793 static HRESULT
Global_Mid(vbdisp_t
*This
, VARIANT
*args
, unsigned args_cnt
, VARIANT
*res
)
795 int len
= -1, start
, str_len
;
799 TRACE("(%s %s ...)\n", debugstr_variant(args
), debugstr_variant(args
+1));
801 assert(args_cnt
== 2 || args_cnt
== 3);
803 if(V_VT(args
) != VT_BSTR
) {
804 FIXME("args[0] = %s\n", debugstr_variant(args
));
810 hres
= to_int(args
+1, &start
);
815 hres
= to_int(args
+2, &len
);
820 FIXME("len = %d\n", len
);
826 str_len
= SysStringLen(str
);
833 else if(len
> str_len
-start
)
838 V_BSTR(res
) = SysAllocStringLen(str
+start
, len
);
840 return E_OUTOFMEMORY
;
846 static HRESULT
Global_MidB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
852 static HRESULT
Global_StrComp(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
858 static HRESULT
Global_LCase(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
863 TRACE("%s\n", debugstr_variant(arg
));
865 if(V_VT(arg
) == VT_NULL
) {
871 hres
= to_string(arg
, &str
);
878 for(ptr
= str
; *ptr
; ptr
++)
879 *ptr
= tolowerW(*ptr
);
889 static HRESULT
Global_UCase(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
894 TRACE("%s\n", debugstr_variant(arg
));
896 if(V_VT(arg
) == VT_NULL
) {
902 hres
= to_string(arg
, &str
);
909 for(ptr
= str
; *ptr
; ptr
++)
910 *ptr
= toupperW(*ptr
);
920 static HRESULT
Global_LTrim(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
922 BSTR str
, conv_str
= NULL
;
926 TRACE("%s\n", debugstr_variant(arg
));
928 if(V_VT(arg
) == VT_BSTR
) {
931 hres
= to_string(arg
, &conv_str
);
937 for(ptr
= str
; *ptr
&& isspaceW(*ptr
); ptr
++);
939 str
= SysAllocString(ptr
);
940 SysFreeString(conv_str
);
942 return E_OUTOFMEMORY
;
944 return return_bstr(res
, str
);
947 static HRESULT
Global_RTrim(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
949 BSTR str
, conv_str
= NULL
;
953 TRACE("%s\n", debugstr_variant(arg
));
955 if(V_VT(arg
) == VT_BSTR
) {
958 hres
= to_string(arg
, &conv_str
);
964 for(ptr
= str
+SysStringLen(str
); ptr
-1 > str
&& isspaceW(*(ptr
-1)); ptr
--);
966 str
= SysAllocStringLen(str
, ptr
-str
);
967 SysFreeString(conv_str
);
969 return E_OUTOFMEMORY
;
971 return return_bstr(res
, str
);
974 static HRESULT
Global_Trim(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
976 BSTR str
, conv_str
= NULL
;
977 WCHAR
*begin_ptr
, *end_ptr
;
980 TRACE("%s\n", debugstr_variant(arg
));
982 if(V_VT(arg
) == VT_BSTR
) {
985 hres
= to_string(arg
, &conv_str
);
991 for(begin_ptr
= str
; *begin_ptr
&& isspaceW(*begin_ptr
); begin_ptr
++);
992 for(end_ptr
= str
+SysStringLen(str
); end_ptr
-1 > begin_ptr
&& isspaceW(*(end_ptr
-1)); end_ptr
--);
994 str
= SysAllocStringLen(begin_ptr
, end_ptr
-begin_ptr
);
995 SysFreeString(conv_str
);
997 return E_OUTOFMEMORY
;
999 return return_bstr(res
, str
);
1002 static HRESULT
Global_Space(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1008 TRACE("%s\n", debugstr_variant(arg
));
1010 hres
= to_int(arg
, &n
);
1015 FIXME("n = %d\n", n
);
1022 str
= SysAllocStringLen(NULL
, n
);
1024 return E_OUTOFMEMORY
;
1029 V_VT(res
) = VT_BSTR
;
1034 static HRESULT
Global_String(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1040 static HRESULT
Global_InStr(vbdisp_t
*This
, VARIANT
*args
, unsigned args_cnt
, VARIANT
*res
)
1042 VARIANT
*startv
, *str1v
, *str2v
;
1049 assert(2 <= args_cnt
&& args_cnt
<= 4);
1063 FIXME("unsupported compare argument %s\n", debugstr_variant(args
));
1065 DEFAULT_UNREACHABLE
;
1069 hres
= to_int(startv
, &start
);
1073 FIXME("start %d\n", start
);
1080 if(V_VT(str1v
) == VT_NULL
|| V_VT(str2v
) == VT_NULL
)
1081 return return_null(res
);
1083 if(V_VT(str1v
) != VT_BSTR
) {
1084 FIXME("Unsupported str1 type %s\n", debugstr_variant(str1v
));
1087 str1
= V_BSTR(str1v
);
1089 if(V_VT(str2v
) != VT_BSTR
) {
1090 FIXME("Unsupported str2 type %s\n", debugstr_variant(str2v
));
1093 str2
= V_BSTR(str2v
);
1095 if(start
< SysStringLen(str1
)) {
1098 ptr
= strstrW(str1
+start
, str2
);
1099 ret
= ptr
? ptr
-str1
+1 : 0;
1104 return return_int(res
, ret
);
1107 static HRESULT
Global_InStrB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1113 static HRESULT
Global_AscB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1119 static HRESULT
Global_ChrB(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1125 static HRESULT
Global_Asc(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1131 static HRESULT
Global_Chr(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1136 TRACE("%s\n", debugstr_variant(arg
));
1138 hres
= to_int(arg
, &c
);
1142 if(c
< 0 || c
>= 0x100) {
1143 FIXME("invalid arg\n");
1150 V_VT(res
) = VT_BSTR
;
1151 V_BSTR(res
) = SysAllocStringLen(&ch
, 1);
1153 return E_OUTOFMEMORY
;
1158 static HRESULT
Global_AscW(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1164 static HRESULT
Global_ChrW(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1170 static HRESULT
Global_Abs(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1176 static HRESULT
Global_Fix(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1182 static HRESULT
Global_Int(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1188 static HRESULT
Global_Sgn(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1194 static HRESULT
Global_Now(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1202 SystemTimeToVariantTime(<
, &date
);
1203 return return_date(res
, date
);
1206 static HRESULT
Global_Date(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1212 static HRESULT
Global_Time(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1218 static HRESULT
Global_Day(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1224 static HRESULT
Global_Month(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1230 static HRESULT
Global_Weekday(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1236 static HRESULT
Global_Year(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1242 static HRESULT
Global_Hour(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1248 static HRESULT
Global_Minute(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1254 static HRESULT
Global_Second(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1260 static HRESULT
Global_DateValue(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1266 static HRESULT
Global_TimeValue(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1272 static HRESULT
Global_DateSerial(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1278 static HRESULT
Global_TimeSerial(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1284 static HRESULT
Global_InputBox(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1290 static HRESULT
Global_MsgBox(vbdisp_t
*This
, VARIANT
*args
, unsigned args_cnt
, VARIANT
*res
)
1298 FIXME("unsupported arg_cnt %d\n", args_cnt
);
1302 hres
= to_string(args
, &prompt
);
1306 hres
= show_msgbox(This
->desc
->ctx
, prompt
, res
);
1307 SysFreeString(prompt
);
1311 static HRESULT
Global_CreateObject(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1316 TRACE("(%s)\n", debugstr_variant(arg
));
1318 if(V_VT(arg
) != VT_BSTR
) {
1319 FIXME("non-bstr arg\n");
1320 return E_INVALIDARG
;
1323 obj
= create_object(This
->desc
->ctx
, V_BSTR(arg
));
1325 return VB_E_CANNOT_CREATE_OBJ
;
1328 hres
= IUnknown_QueryInterface(obj
, &IID_IDispatch
, (void**)&V_DISPATCH(res
));
1332 V_VT(res
) = VT_DISPATCH
;
1335 IUnknown_Release(obj
);
1339 static HRESULT
Global_GetObject(vbdisp_t
*This
, VARIANT
*args
, unsigned args_cnt
, VARIANT
*res
)
1348 TRACE("%s %s\n", args_cnt
? debugstr_variant(args
) : "", args_cnt
> 1 ? debugstr_variant(args
+1) : "");
1350 if(args_cnt
!= 1 || V_VT(args
) != VT_BSTR
) {
1351 FIXME("unsupported args\n");
1355 if(This
->desc
->ctx
->safeopt
& (INTERFACE_USES_SECURITY_MANAGER
|INTERFACESAFE_FOR_UNTRUSTED_DATA
)) {
1356 WARN("blocked in current safety mode\n");
1357 return VB_E_CANNOT_CREATE_OBJ
;
1360 hres
= CreateBindCtx(0, &bind_ctx
);
1364 hres
= MkParseDisplayName(bind_ctx
, V_BSTR(args
), &eaten
, &mon
);
1365 if(SUCCEEDED(hres
)) {
1366 hres
= IMoniker_BindToObject(mon
, bind_ctx
, NULL
, &IID_IUnknown
, (void**)&obj_unk
);
1367 IMoniker_Release(mon
);
1371 IBindCtx_Release(bind_ctx
);
1375 hres
= set_object_site(This
->desc
->ctx
, obj_unk
);
1377 IUnknown_Release(obj_unk
);
1381 hres
= IUnknown_QueryInterface(obj_unk
, &IID_IDispatch
, (void**)&disp
);
1382 if(SUCCEEDED(hres
)) {
1384 V_VT(res
) = VT_DISPATCH
;
1385 V_DISPATCH(res
) = disp
;
1387 IDispatch_Release(disp
);
1390 FIXME("object does not support IDispatch\n");
1396 static HRESULT
Global_DateAdd(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1402 static HRESULT
Global_DateDiff(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1408 static HRESULT
Global_DatePart(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1414 static HRESULT
Global_TypeName(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1420 static HRESULT
Global_Array(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1426 static HRESULT
Global_Erase(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1432 static HRESULT
Global_Filter(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1438 static HRESULT
Global_Join(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1444 static HRESULT
Global_Split(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1450 static HRESULT
Global_Replace(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1456 static HRESULT
Global_StrReverse(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1458 WCHAR
*ptr1
, *ptr2
, ch
;
1462 TRACE("%s\n", debugstr_variant(arg
));
1464 hres
= to_string(arg
, &ret
);
1469 ptr2
= ret
+ SysStringLen(ret
)-1;
1470 while(ptr1
< ptr2
) {
1476 return return_bstr(res
, ret
);
1479 static HRESULT
Global_InStrRev(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1485 static HRESULT
Global_LoadPicture(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1491 static HRESULT
Global_ScriptEngine(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1497 static HRESULT
Global_ScriptEngineMajorVersion(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1503 static HRESULT
Global_ScriptEngineMinorVersion(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1509 static HRESULT
Global_ScriptEngineBuildVersion(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1515 static HRESULT
Global_FormatNumber(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1521 static HRESULT
Global_FormatCurrency(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1527 static HRESULT
Global_FormatPercent(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1533 static HRESULT
Global_FormatDateTime(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1539 static HRESULT
Global_WeekdayName(vbdisp_t
*This
, VARIANT
*args
, unsigned args_cnt
, VARIANT
*res
)
1541 int weekday
, first_day
= 1, abbrev
= 0;
1547 assert(1 <= args_cnt
&& args_cnt
<= 3);
1549 hres
= to_int(args
, &weekday
);
1554 hres
= to_int(args
+1, &abbrev
);
1559 hres
= to_int(args
+2, &first_day
);
1565 hres
= VarWeekdayName(weekday
, abbrev
, first_day
, 0, &ret
);
1569 return return_bstr(res
, ret
);
1572 static HRESULT
Global_MonthName(vbdisp_t
*This
, VARIANT
*args
, unsigned args_cnt
, VARIANT
*res
)
1574 int month
, abbrev
= 0;
1580 assert(args_cnt
== 1 || args_cnt
== 2);
1582 hres
= to_int(args
, &month
);
1587 hres
= to_int(args
+1, &abbrev
);
1592 hres
= VarMonthName(month
, abbrev
, 0, &ret
);
1596 return return_bstr(res
, ret
);
1599 static HRESULT
Global_Round(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1604 TRACE("%s\n", debugstr_variant(arg
));
1619 hres
= to_double(arg
, &n
);
1624 return return_double(res
, round(n
));
1627 static HRESULT
Global_Escape(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1633 static HRESULT
Global_Unescape(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1639 static HRESULT
Global_Eval(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1645 static HRESULT
Global_Execute(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1651 static HRESULT
Global_ExecuteGlobal(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1657 static HRESULT
Global_GetRef(vbdisp_t
*This
, VARIANT
*arg
, unsigned args_cnt
, VARIANT
*res
)
1663 static const string_constant_t vbCr
= {1, {'\r'}};
1664 static const string_constant_t vbCrLf
= {2, {'\r','\n'}};
1665 static const string_constant_t vbNewLine
= {2, {'\r','\n'}};
1666 static const string_constant_t vbFormFeed
= {1, {0xc}};
1667 static const string_constant_t vbLf
= {1, {'\n'}};
1668 static const string_constant_t vbNullChar
= {1};
1669 static const string_constant_t vbNullString
= {0};
1670 static const string_constant_t vbTab
= {1, {'\t'}};
1671 static const string_constant_t vbVerticalTab
= {1, {0xb}};
1673 static const builtin_prop_t global_props
[] = {
1674 {DISPID_GLOBAL_VBUSESYSTEM
, NULL
, BP_GET
, VT_I2
, 0},
1675 {DISPID_GLOBAL_USESYSTEMDAYOFWEEK
, NULL
, BP_GET
, VT_I2
, 0},
1676 {DISPID_GLOBAL_VBSUNDAY
, NULL
, BP_GET
, VT_I2
, 1},
1677 {DISPID_GLOBAL_VBMONDAY
, NULL
, BP_GET
, VT_I2
, 2},
1678 {DISPID_GLOBAL_VBTUESDAY
, NULL
, BP_GET
, VT_I2
, 3},
1679 {DISPID_GLOBAL_VBWEDNESDAY
, NULL
, BP_GET
, VT_I2
, 4},
1680 {DISPID_GLOBAL_VBTHURSDAY
, NULL
, BP_GET
, VT_I2
, 5},
1681 {DISPID_GLOBAL_VBFRIDAY
, NULL
, BP_GET
, VT_I2
, 6},
1682 {DISPID_GLOBAL_VBSATURDAY
, NULL
, BP_GET
, VT_I2
, 7},
1683 {DISPID_GLOBAL_VBFIRSTJAN1
, NULL
, BP_GET
, VT_I2
, 1},
1684 {DISPID_GLOBAL_VBFIRSTFOURDAYS
, NULL
, BP_GET
, VT_I2
, 2},
1685 {DISPID_GLOBAL_VBFIRSTFULLWEEK
, NULL
, BP_GET
, VT_I2
, 3},
1686 {DISPID_GLOBAL_VBOKONLY
, NULL
, BP_GET
, VT_I2
, MB_OK
},
1687 {DISPID_GLOBAL_VBOKCANCEL
, NULL
, BP_GET
, VT_I2
, MB_OKCANCEL
},
1688 {DISPID_GLOBAL_VBABORTRETRYIGNORE
, NULL
, BP_GET
, VT_I2
, MB_ABORTRETRYIGNORE
},
1689 {DISPID_GLOBAL_VBYESNOCANCEL
, NULL
, BP_GET
, VT_I2
, MB_YESNOCANCEL
},
1690 {DISPID_GLOBAL_VBYESNO
, NULL
, BP_GET
, VT_I2
, MB_YESNO
},
1691 {DISPID_GLOBAL_VBRETRYCANCEL
, NULL
, BP_GET
, VT_I2
, MB_RETRYCANCEL
},
1692 {DISPID_GLOBAL_VBCRITICAL
, NULL
, BP_GET
, VT_I2
, MB_ICONHAND
},
1693 {DISPID_GLOBAL_VBQUESTION
, NULL
, BP_GET
, VT_I2
, MB_ICONQUESTION
},
1694 {DISPID_GLOBAL_VBEXCLAMATION
, NULL
, BP_GET
, VT_I2
, MB_ICONEXCLAMATION
},
1695 {DISPID_GLOBAL_VBINFORMATION
, NULL
, BP_GET
, VT_I2
, MB_ICONASTERISK
},
1696 {DISPID_GLOBAL_VBDEFAULTBUTTON1
, NULL
, BP_GET
, VT_I2
, MB_DEFBUTTON1
},
1697 {DISPID_GLOBAL_VBDEFAULTBUTTON2
, NULL
, BP_GET
, VT_I2
, MB_DEFBUTTON2
},
1698 {DISPID_GLOBAL_VBDEFAULTBUTTON3
, NULL
, BP_GET
, VT_I2
, MB_DEFBUTTON3
},
1699 {DISPID_GLOBAL_VBDEFAULTBUTTON4
, NULL
, BP_GET
, VT_I2
, MB_DEFBUTTON4
},
1700 {DISPID_GLOBAL_VBAPPLICATIONMODAL
, NULL
, BP_GET
, VT_I2
, MB_APPLMODAL
},
1701 {DISPID_GLOBAL_VBSYSTEMMODAL
, NULL
, BP_GET
, VT_I2
, MB_SYSTEMMODAL
},
1702 {DISPID_GLOBAL_VBOK
, NULL
, BP_GET
, VT_I2
, IDOK
},
1703 {DISPID_GLOBAL_VBCANCEL
, NULL
, BP_GET
, VT_I2
, IDCANCEL
},
1704 {DISPID_GLOBAL_VBABORT
, NULL
, BP_GET
, VT_I2
, IDABORT
},
1705 {DISPID_GLOBAL_VBRETRY
, NULL
, BP_GET
, VT_I2
, IDRETRY
},
1706 {DISPID_GLOBAL_VBIGNORE
, NULL
, BP_GET
, VT_I2
, IDIGNORE
},
1707 {DISPID_GLOBAL_VBYES
, NULL
, BP_GET
, VT_I2
, IDYES
},
1708 {DISPID_GLOBAL_VBNO
, NULL
, BP_GET
, VT_I2
, IDNO
},
1709 {DISPID_GLOBAL_VBEMPTY
, NULL
, BP_GET
, VT_I2
, VT_EMPTY
},
1710 {DISPID_GLOBAL_VBNULL
, NULL
, BP_GET
, VT_I2
, VT_NULL
},
1711 {DISPID_GLOBAL_VBINTEGER
, NULL
, BP_GET
, VT_I2
, VT_I2
},
1712 {DISPID_GLOBAL_VBLONG
, NULL
, BP_GET
, VT_I2
, VT_I4
},
1713 {DISPID_GLOBAL_VBSINGLE
, NULL
, BP_GET
, VT_I2
, VT_R4
},
1714 {DISPID_GLOBAL_VBDOUBLE
, NULL
, BP_GET
, VT_I2
, VT_R8
},
1715 {DISPID_GLOBAL_VBCURRENCY
, NULL
, BP_GET
, VT_I2
, VT_CY
},
1716 {DISPID_GLOBAL_VBDATE
, NULL
, BP_GET
, VT_I2
, VT_DATE
},
1717 {DISPID_GLOBAL_VBSTRING
, NULL
, BP_GET
, VT_I2
, VT_BSTR
},
1718 {DISPID_GLOBAL_VBOBJECT
, NULL
, BP_GET
, VT_I2
, VT_DISPATCH
},
1719 {DISPID_GLOBAL_VBERROR
, NULL
, BP_GET
, VT_I2
, VT_ERROR
},
1720 {DISPID_GLOBAL_VBBOOLEAN
, NULL
, BP_GET
, VT_I2
, VT_BOOL
},
1721 {DISPID_GLOBAL_VBVARIANT
, NULL
, BP_GET
, VT_I2
, VT_VARIANT
},
1722 {DISPID_GLOBAL_VBDATAOBJECT
, NULL
, BP_GET
, VT_I2
, VT_UNKNOWN
},
1723 {DISPID_GLOBAL_VBDECIMAL
, NULL
, BP_GET
, VT_I2
, VT_DECIMAL
},
1724 {DISPID_GLOBAL_VBBYTE
, NULL
, BP_GET
, VT_I2
, VT_UI1
},
1725 {DISPID_GLOBAL_VBARRAY
, NULL
, BP_GET
, VT_I2
, VT_ARRAY
},
1726 {DISPID_GLOBAL_VBTRUE
, NULL
, BP_GET
, VT_I2
, VARIANT_TRUE
},
1727 {DISPID_GLOBAL_VBFALSE
, NULL
, BP_GET
, VT_I2
, VARIANT_FALSE
},
1728 {DISPID_GLOBAL_VBUSEDEFAULT
, NULL
, BP_GET
, VT_I2
, -2},
1729 {DISPID_GLOBAL_VBBINARYCOMPARE
, NULL
, BP_GET
, VT_I2
, 0},
1730 {DISPID_GLOBAL_VBTEXTCOMPARE
, NULL
, BP_GET
, VT_I2
, 1},
1731 {DISPID_GLOBAL_VBDATABASECOMPARE
, NULL
, BP_GET
, VT_I2
, 2},
1732 {DISPID_GLOBAL_VBGENERALDATE
, NULL
, BP_GET
, VT_I2
, 0},
1733 {DISPID_GLOBAL_VBLONGDATE
, NULL
, BP_GET
, VT_I2
, 1},
1734 {DISPID_GLOBAL_VBSHORTDATE
, NULL
, BP_GET
, VT_I2
, 2},
1735 {DISPID_GLOBAL_VBLONGTIME
, NULL
, BP_GET
, VT_I2
, 3},
1736 {DISPID_GLOBAL_VBSHORTTIME
, NULL
, BP_GET
, VT_I2
, 4},
1737 {DISPID_GLOBAL_VBOBJECTERROR
, NULL
, BP_GET
, VT_I4
, 0x80040000},
1738 {DISPID_GLOBAL_VBBLACK
, NULL
, BP_GET
, VT_I4
, 0x000000},
1739 {DISPID_GLOBAL_VBBLUE
, NULL
, BP_GET
, VT_I4
, 0xff0000},
1740 {DISPID_GLOBAL_VBCYAN
, NULL
, BP_GET
, VT_I4
, 0xffff00},
1741 {DISPID_GLOBAL_VBGREEN
, NULL
, BP_GET
, VT_I4
, 0x00ff00},
1742 {DISPID_GLOBAL_VBMAGENTA
, NULL
, BP_GET
, VT_I4
, 0xff00ff},
1743 {DISPID_GLOBAL_VBRED
, NULL
, BP_GET
, VT_I4
, 0x0000ff},
1744 {DISPID_GLOBAL_VBWHITE
, NULL
, BP_GET
, VT_I4
, 0xffffff},
1745 {DISPID_GLOBAL_VBYELLOW
, NULL
, BP_GET
, VT_I4
, 0x00ffff},
1746 {DISPID_GLOBAL_VBCR
, NULL
, BP_GET
, VT_BSTR
, (UINT_PTR
)&vbCr
},
1747 {DISPID_GLOBAL_VBCRLF
, NULL
, BP_GET
, VT_BSTR
, (UINT_PTR
)&vbCrLf
},
1748 {DISPID_GLOBAL_VBNEWLINE
, NULL
, BP_GET
, VT_BSTR
, (UINT_PTR
)&vbNewLine
},
1749 {DISPID_GLOBAL_VBFORMFEED
, NULL
, BP_GET
, VT_BSTR
, (UINT_PTR
)&vbFormFeed
},
1750 {DISPID_GLOBAL_VBLF
, NULL
, BP_GET
, VT_BSTR
, (UINT_PTR
)&vbLf
},
1751 {DISPID_GLOBAL_VBNULLCHAR
, NULL
, BP_GET
, VT_BSTR
, (UINT_PTR
)&vbNullChar
},
1752 {DISPID_GLOBAL_VBNULLSTRING
, NULL
, BP_GET
, VT_BSTR
, (UINT_PTR
)&vbNullString
},
1753 {DISPID_GLOBAL_VBTAB
, NULL
, BP_GET
, VT_BSTR
, (UINT_PTR
)&vbTab
},
1754 {DISPID_GLOBAL_VBVERTICALTAB
, NULL
, BP_GET
, VT_BSTR
, (UINT_PTR
)&vbVerticalTab
},
1755 {DISPID_GLOBAL_CCUR
, Global_CCur
, 0, 1},
1756 {DISPID_GLOBAL_CINT
, Global_CInt
, 0, 1},
1757 {DISPID_GLOBAL_CLNG
, Global_CLng
, 0, 1},
1758 {DISPID_GLOBAL_CBOOL
, Global_CBool
, 0, 1},
1759 {DISPID_GLOBAL_CBYTE
, Global_CByte
, 0, 1},
1760 {DISPID_GLOBAL_CDATE
, Global_CDate
, 0, 1},
1761 {DISPID_GLOBAL_CDBL
, Global_CDbl
, 0, 1},
1762 {DISPID_GLOBAL_CSNG
, Global_CSng
, 0, 1},
1763 {DISPID_GLOBAL_CSTR
, Global_CStr
, 0, 1},
1764 {DISPID_GLOBAL_HEX
, Global_Hex
, 0, 1},
1765 {DISPID_GLOBAL_OCT
, Global_Oct
, 0, 1},
1766 {DISPID_GLOBAL_VARTYPE
, Global_VarType
, 0, 1},
1767 {DISPID_GLOBAL_ISDATE
, Global_IsDate
, 0, 1},
1768 {DISPID_GLOBAL_ISEMPTY
, Global_IsEmpty
, 0, 1},
1769 {DISPID_GLOBAL_ISNULL
, Global_IsNull
, 0, 1},
1770 {DISPID_GLOBAL_ISNUMERIC
, Global_IsNumeric
, 0, 1},
1771 {DISPID_GLOBAL_ISARRAY
, Global_IsArray
, 0, 1},
1772 {DISPID_GLOBAL_ISOBJECT
, Global_IsObject
, 0, 1},
1773 {DISPID_GLOBAL_ATN
, Global_Ant
, 0, 1},
1774 {DISPID_GLOBAL_COS
, Global_Cos
, 0, 1},
1775 {DISPID_GLOBAL_SIN
, Global_Sin
, 0, 1},
1776 {DISPID_GLOBAL_TAN
, Global_Tan
, 0, 1},
1777 {DISPID_GLOBAL_EXP
, Global_Exp
, 0, 1},
1778 {DISPID_GLOBAL_LOG
, Global_Log
, 0, 1},
1779 {DISPID_GLOBAL_SQR
, Global_Sqr
, 0, 1},
1780 {DISPID_GLOBAL_RANDOMIZE
, Global_Randomize
, 0, 1},
1781 {DISPID_GLOBAL_RND
, Global_Rnd
, 0, 1},
1782 {DISPID_GLOBAL_TIMER
, Global_Timer
, 0, 0},
1783 {DISPID_GLOBAL_LBOUND
, Global_LBound
, 0, 1},
1784 {DISPID_GLOBAL_UBOUND
, Global_UBound
, 0, 1},
1785 {DISPID_GLOBAL_RGB
, Global_RGB
, 0, 3},
1786 {DISPID_GLOBAL_LEN
, Global_Len
, 0, 1},
1787 {DISPID_GLOBAL_LENB
, Global_LenB
, 0, 1},
1788 {DISPID_GLOBAL_LEFT
, Global_Left
, 0, 2},
1789 {DISPID_GLOBAL_LEFTB
, Global_LeftB
, 0, 2},
1790 {DISPID_GLOBAL_RIGHT
, Global_Right
, 0, 2},
1791 {DISPID_GLOBAL_RIGHTB
, Global_RightB
, 0, 2},
1792 {DISPID_GLOBAL_MID
, Global_Mid
, 0, 2, 3},
1793 {DISPID_GLOBAL_MIDB
, Global_MidB
, 0, 2, 3},
1794 {DISPID_GLOBAL_STRCOMP
, Global_StrComp
, 0, 2, 3},
1795 {DISPID_GLOBAL_LCASE
, Global_LCase
, 0, 1},
1796 {DISPID_GLOBAL_UCASE
, Global_UCase
, 0, 1},
1797 {DISPID_GLOBAL_LTRIM
, Global_LTrim
, 0, 1},
1798 {DISPID_GLOBAL_RTRIM
, Global_RTrim
, 0, 1},
1799 {DISPID_GLOBAL_TRIM
, Global_Trim
, 0, 1},
1800 {DISPID_GLOBAL_SPACE
, Global_Space
, 0, 1},
1801 {DISPID_GLOBAL_STRING
, Global_String
, 0, 0, 2},
1802 {DISPID_GLOBAL_INSTR
, Global_InStr
, 0, 2, 4},
1803 {DISPID_GLOBAL_INSTRB
, Global_InStrB
, 0, 3, 4},
1804 {DISPID_GLOBAL_ASCB
, Global_AscB
, 0, 1},
1805 {DISPID_GLOBAL_CHRB
, Global_ChrB
, 0, 1},
1806 {DISPID_GLOBAL_ASC
, Global_Asc
, 0, 1},
1807 {DISPID_GLOBAL_CHR
, Global_Chr
, 0, 1},
1808 {DISPID_GLOBAL_ASCW
, Global_AscW
, 0, 1},
1809 {DISPID_GLOBAL_CHRW
, Global_ChrW
, 0, 1},
1810 {DISPID_GLOBAL_ABS
, Global_Abs
, 0, 1},
1811 {DISPID_GLOBAL_FIX
, Global_Fix
, 0, 1},
1812 {DISPID_GLOBAL_INT
, Global_Int
, 0, 1},
1813 {DISPID_GLOBAL_SGN
, Global_Sgn
, 0, 1},
1814 {DISPID_GLOBAL_NOW
, Global_Now
, 0, 0},
1815 {DISPID_GLOBAL_DATE
, Global_Date
, 0, 0},
1816 {DISPID_GLOBAL_TIME
, Global_Time
, 0, 0},
1817 {DISPID_GLOBAL_DAY
, Global_Day
, 0, 1},
1818 {DISPID_GLOBAL_MONTH
, Global_Month
, 0, 1},
1819 {DISPID_GLOBAL_WEEKDAY
, Global_Weekday
, 0, 1, 2},
1820 {DISPID_GLOBAL_YEAR
, Global_Year
, 0, 1},
1821 {DISPID_GLOBAL_HOUR
, Global_Hour
, 0, 1},
1822 {DISPID_GLOBAL_MINUTE
, Global_Minute
, 0, 1},
1823 {DISPID_GLOBAL_SECOND
, Global_Second
, 0, 1},
1824 {DISPID_GLOBAL_DATEVALUE
, Global_DateValue
, 0, 1},
1825 {DISPID_GLOBAL_TIMEVALUE
, Global_TimeValue
, 0, 1},
1826 {DISPID_GLOBAL_DATESERIAL
, Global_DateSerial
, 0, 3},
1827 {DISPID_GLOBAL_TIMESERIAL
, Global_TimeSerial
, 0, 3},
1828 {DISPID_GLOBAL_INPUTBOX
, Global_InputBox
, 0, 1, 7},
1829 {DISPID_GLOBAL_MSGBOX
, Global_MsgBox
, 0, 1, 5},
1830 {DISPID_GLOBAL_CREATEOBJECT
, Global_CreateObject
, 0, 1},
1831 {DISPID_GLOBAL_GETOBJECT
, Global_GetObject
, 0, 0, 2},
1832 {DISPID_GLOBAL_DATEADD
, Global_DateAdd
, 0, 3},
1833 {DISPID_GLOBAL_DATEDIFF
, Global_DateDiff
, 0, 3, 5},
1834 {DISPID_GLOBAL_DATEPART
, Global_DatePart
, 0, 2, 4},
1835 {DISPID_GLOBAL_TYPENAME
, Global_TypeName
, 0, 1},
1836 {DISPID_GLOBAL_ARRAY
, Global_Array
, 0, 1},
1837 {DISPID_GLOBAL_ERASE
, Global_Erase
, 0, 1},
1838 {DISPID_GLOBAL_FILTER
, Global_Filter
, 0, 2, 4},
1839 {DISPID_GLOBAL_JOIN
, Global_Join
, 0, 1, 2},
1840 {DISPID_GLOBAL_SPLIT
, Global_Split
, 0, 1, 4},
1841 {DISPID_GLOBAL_REPLACE
, Global_Replace
, 0, 3, 6},
1842 {DISPID_GLOBAL_STRREVERSE
, Global_StrReverse
, 0, 1},
1843 {DISPID_GLOBAL_INSTRREV
, Global_InStrRev
, 0, 2, 4},
1844 {DISPID_GLOBAL_LOADPICTURE
, Global_LoadPicture
, 0, 1},
1845 {DISPID_GLOBAL_SCRIPTENGINE
, Global_ScriptEngine
, 0, 0},
1846 {DISPID_GLOBAL_SCRIPTENGINEMAJORVERSION
, Global_ScriptEngineMajorVersion
, 0, 0},
1847 {DISPID_GLOBAL_SCRIPTENGINEMINORVERSION
, Global_ScriptEngineMinorVersion
, 0, 0},
1848 {DISPID_GLOBAL_SCRIPTENGINEBUILDVERSION
, Global_ScriptEngineBuildVersion
, 0, 0},
1849 {DISPID_GLOBAL_FORMATNUMBER
, Global_FormatNumber
, 0, 1, 5},
1850 {DISPID_GLOBAL_FORMATCURRENCY
, Global_FormatCurrency
, 0, 1, 5},
1851 {DISPID_GLOBAL_FORMATPERCENT
, Global_FormatPercent
, 0, 1, 5},
1852 {DISPID_GLOBAL_FORMATDATETIME
, Global_FormatDateTime
, 0, 1, 2},
1853 {DISPID_GLOBAL_WEEKDAYNAME
, Global_WeekdayName
, 0, 1, 3},
1854 {DISPID_GLOBAL_MONTHNAME
, Global_MonthName
, 0, 1, 2},
1855 {DISPID_GLOBAL_ROUND
, Global_Round
, 0, 1, 2},
1856 {DISPID_GLOBAL_ESCAPE
, Global_Escape
, 0, 1},
1857 {DISPID_GLOBAL_UNESCAPE
, Global_Unescape
, 0, 1},
1858 {DISPID_GLOBAL_EVAL
, Global_Eval
, 0, 1},
1859 {DISPID_GLOBAL_EXECUTE
, Global_Execute
, 0, 1},
1860 {DISPID_GLOBAL_EXECUTEGLOBAL
, Global_ExecuteGlobal
, 0, 1},
1861 {DISPID_GLOBAL_GETREF
, Global_GetRef
, 0, 1},
1862 {DISPID_GLOBAL_VBMSGBOXHELPBUTTON
, NULL
, BP_GET
, VT_I4
, MB_HELP
},
1863 {DISPID_GLOBAL_VBMSGBOXSETFOREGROUND
, NULL
, BP_GET
, VT_I4
, MB_SETFOREGROUND
},
1864 {DISPID_GLOBAL_VBMSGBOXRIGHT
, NULL
, BP_GET
, VT_I4
, MB_RIGHT
},
1865 {DISPID_GLOBAL_VBMSGBOXRTLREADING
, NULL
, BP_GET
, VT_I4
, MB_RTLREADING
}
1868 HRESULT
init_global(script_ctx_t
*ctx
)
1872 ctx
->global_desc
.ctx
= ctx
;
1873 ctx
->global_desc
.builtin_prop_cnt
= sizeof(global_props
)/sizeof(*global_props
);
1874 ctx
->global_desc
.builtin_props
= global_props
;
1876 hres
= get_typeinfo(GlobalObj_tid
, &ctx
->global_desc
.typeinfo
);
1880 hres
= create_vbdisp(&ctx
->global_desc
, &ctx
->global_obj
);
1884 hres
= create_script_disp(ctx
, &ctx
->script_obj
);
1888 return init_err(ctx
);