dlls/vbscript/global.c

   1 /*
   2  * Copyright 2011 Jacek Caban for CodeWeavers
   3  *
   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.
   8  *
   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.
  13  *
  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
  17  */
  18
  19 #include <assert.h>
  20 #include <math.h>
  21
  22 #include "vbscript.h"
  23 #include "vbscript_defs.h"
  24
  25 #include "mshtmhst.h"
  26 #include "objsafe.h"
  27
  28 #include "wine/debug.h"
  29
  30 WINE_DEFAULT_DEBUG_CHANNEL(vbscript);
  31
  32 #define VB_E_CANNOT_CREATE_OBJ 0x800a01ad
  33 #define VB_E_MK_PARSE_ERROR    0x800a01b0
  34
  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}};
  38
  39 static const WCHAR emptyW[] = {0};
  40 static const WCHAR vbscriptW[] = {'V','B','S','c','r','i','p','t',0};
  41
  42 static IInternetHostSecurityManager *get_sec_mgr(script_ctx_t *ctx)
  43 {
  44     IInternetHostSecurityManager *secmgr;
  45     IServiceProvider *sp;
  46     HRESULT hres;
  47
  48     if(!ctx->site)
  49         return NULL;
  50
  51     if(ctx->secmgr)
  52         return ctx->secmgr;
  53
  54     hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IServiceProvider, (void**)&sp);
  55     if(FAILED(hres))
  56         return NULL;
  57
  58     hres = IServiceProvider_QueryService(sp, &SID_SInternetHostSecurityManager, &IID_IInternetHostSecurityManager,
  59             (void**)&secmgr);
  60     IServiceProvider_Release(sp);
  61     if(FAILED(hres))
  62         return NULL;
  63
  64     return ctx->secmgr = secmgr;
  65 }
  66
  67 static HRESULT return_string(VARIANT *res, const WCHAR *str)
  68 {
  69     BSTR ret;
  70
  71     if(!res)
  72         return S_OK;
  73
  74     ret = SysAllocString(str);
  75     if(!ret)
  76         return E_OUTOFMEMORY;
  77
  78     V_VT(res) = VT_BSTR;
  79     V_BSTR(res) = ret;
  80     return S_OK;
  81 }
  82
  83 static HRESULT return_bstr(VARIANT *res, BSTR str)
  84 {
  85     if(res) {
  86         V_VT(res) = VT_BSTR;
  87         V_BSTR(res) = str;
  88     }else {
  89         SysFreeString(str);
  90     }
  91     return S_OK;
  92 }
  93
  94 static HRESULT return_short(VARIANT *res, short val)
  95 {
  96     if(res) {
  97         V_VT(res) = VT_I2;
  98         V_I2(res) = val;
  99     }
 100
 101     return S_OK;
 102 }
 103
 104 static HRESULT return_int(VARIANT *res, int val)
 105 {
 106     if((short)val == val)
 107         return return_short(res, val);
 108
 109     if(res) {
 110         V_VT(res) = VT_I4;
 111         V_I4(res) = val;
 112     }
 113
 114     return S_OK;
 115 }
 116
 117 static HRESULT return_bool(VARIANT *res, int val)
 118 {
 119     if(res) {
 120         V_VT(res) = VT_BOOL;
 121         V_BOOL(res) = val != 0 ? VARIANT_TRUE : VARIANT_FALSE;
 122     }
 123
 124     return S_OK;
 125 }
 126
 127 static inline HRESULT return_double(VARIANT *res, double val)
 128 {
 129     if(res) {
 130         V_VT(res) = VT_R8;
 131         V_R8(res) = val;
 132     }
 133
 134     return S_OK;
 135 }
 136
 137 static inline HRESULT return_null(VARIANT *res)
 138 {
 139     if(res)
 140         V_VT(res) = VT_NULL;
 141     return S_OK;
 142 }
 143
 144 static inline HRESULT return_date(VARIANT *res, double date)
 145 {
 146     if(res) {
 147         V_VT(res) = VT_DATE;
 148         V_DATE(res) = date;
 149     }
 150     return S_OK;
 151 }
 152
 153 HRESULT to_int(VARIANT *v, int *ret)
 154 {
 155     switch(V_VT(v)) {
 156     case VT_I2:
 157         *ret = V_I2(v);
 158         break;
 159     case VT_I4:
 160         *ret = V_I4(v);
 161         break;
 162     case VT_R8: {
 163         double n = floor(V_R8(v)+0.5);
 164         INT32 i;
 165
 166         if(!is_int32(n)) {
 167             FIXME("%lf is out of int range\n", n);
 168             return E_FAIL;
 169         }
 170
 171         /* Round half to even */
 172         i = n;
 173         if(i%2 && n-V_R8(v) == 0.5)
 174             i--;
 175
 176         *ret = i;
 177         break;
 178     }
 179     case VT_BOOL:
 180         *ret = V_BOOL(v) ? -1 : 0;
 181         break;
 182     default:
 183         FIXME("not supported %s\n", debugstr_variant(v));
 184         return E_NOTIMPL;
 185     }
 186
 187     return S_OK;
 188 }
 189
 190 static HRESULT to_double(VARIANT *v, double *ret)
 191 {
 192     switch(V_VT(v)) {
 193     case VT_I2:
 194         *ret = V_I2(v);
 195         break;
 196     case VT_I4:
 197         *ret = V_I4(v);
 198         break;
 199     case VT_R4:
 200         *ret = V_R4(v);
 201         break;
 202     case VT_R8:
 203         *ret = V_R8(v);
 204         break;
 205     case VT_BSTR: {
 206         VARIANT dst;
 207         HRESULT hres;
 208
 209         V_VT(&dst) = VT_EMPTY;
 210         hres = VariantChangeType(&dst, v, VARIANT_LOCALBOOL, VT_R8);
 211         if(FAILED(hres))
 212             return hres;
 213         *ret = V_R8(&dst);
 214         break;
 215     }
 216     default:
 217         FIXME("arg %s not supported\n", debugstr_variant(v));
 218         return E_NOTIMPL;
 219     }
 220
 221     return S_OK;
 222 }
 223
 224 static HRESULT to_string(VARIANT *v, BSTR *ret)
 225 {
 226     VARIANT dst;
 227     HRESULT hres;
 228
 229     V_VT(&dst) = VT_EMPTY;
 230     hres = VariantChangeType(&dst, v, VARIANT_LOCALBOOL, VT_BSTR);
 231     if(FAILED(hres))
 232         return hres;
 233
 234     *ret = V_BSTR(&dst);
 235     return S_OK;
 236 }
 237
 238 static HRESULT set_object_site(script_ctx_t *ctx, IUnknown *obj)
 239 {
 240     IObjectWithSite *obj_site;
 241     IUnknown *ax_site;
 242     HRESULT hres;
 243
 244     hres = IUnknown_QueryInterface(obj, &IID_IObjectWithSite, (void**)&obj_site);
 245     if(FAILED(hres))
 246         return S_OK;
 247
 248     ax_site = create_ax_site(ctx);
 249     if(ax_site)
 250         hres = IObjectWithSite_SetSite(obj_site, ax_site);
 251     else
 252         hres = E_OUTOFMEMORY;
 253     IUnknown_Release(ax_site);
 254     IObjectWithSite_Release(obj_site);
 255     return hres;
 256 }
 257
 258 static IUnknown *create_object(script_ctx_t *ctx, const WCHAR *progid)
 259 {
 260     IInternetHostSecurityManager *secmgr = NULL;
 261     struct CONFIRMSAFETY cs;
 262     IClassFactoryEx *cfex;
 263     IClassFactory *cf;
 264     DWORD policy_size;
 265     BYTE *bpolicy;
 266     IUnknown *obj;
 267     DWORD policy;
 268     GUID guid;
 269     HRESULT hres;
 270
 271     hres = CLSIDFromProgID(progid, &guid);
 272     if(FAILED(hres))
 273         return NULL;
 274
 275     TRACE("GUID %s\n", debugstr_guid(&guid));
 276
 277     if(ctx->safeopt & INTERFACE_USES_SECURITY_MANAGER) {
 278         secmgr = get_sec_mgr(ctx);
 279         if(!secmgr)
 280             return NULL;
 281
 282         policy = 0;
 283         hres = IInternetHostSecurityManager_ProcessUrlAction(secmgr, URLACTION_ACTIVEX_RUN,
 284                 (BYTE*)&policy, sizeof(policy), (BYTE*)&guid, sizeof(GUID), 0, 0);
 285         if(FAILED(hres) || policy != URLPOLICY_ALLOW)
 286             return NULL;
 287     }
 288
 289     hres = CoGetClassObject(&guid, CLSCTX_INPROC_SERVER|CLSCTX_LOCAL_SERVER, NULL, &IID_IClassFactory, (void**)&cf);
 290     if(FAILED(hres))
 291         return NULL;
 292
 293     hres = IClassFactory_QueryInterface(cf, &IID_IClassFactoryEx, (void**)&cfex);
 294     if(SUCCEEDED(hres)) {
 295         FIXME("Use IClassFactoryEx\n");
 296         IClassFactoryEx_Release(cfex);
 297     }
 298
 299     hres = IClassFactory_CreateInstance(cf, NULL, &IID_IUnknown, (void**)&obj);
 300     if(FAILED(hres))
 301         return NULL;
 302
 303     if(secmgr) {
 304         cs.clsid = guid;
 305         cs.pUnk = obj;
 306         cs.dwFlags = 0;
 307         hres = IInternetHostSecurityManager_QueryCustomPolicy(secmgr, &GUID_CUSTOM_CONFIRMOBJECTSAFETY,
 308                 &bpolicy, &policy_size, (BYTE*)&cs, sizeof(cs), 0);
 309         if(SUCCEEDED(hres)) {
 310             policy = policy_size >= sizeof(DWORD) ? *(DWORD*)bpolicy : URLPOLICY_DISALLOW;
 311             CoTaskMemFree(bpolicy);
 312         }
 313
 314         if(FAILED(hres) || policy != URLPOLICY_ALLOW) {
 315             IUnknown_Release(obj);
 316             return NULL;
 317         }
 318     }
 319
 320     hres = set_object_site(ctx, obj);
 321     if(FAILED(hres)) {
 322         IUnknown_Release(obj);
 323         return NULL;
 324     }
 325
 326     return obj;
 327 }
 328
 329 static HRESULT show_msgbox(script_ctx_t *ctx, BSTR prompt, VARIANT *res)
 330 {
 331     SCRIPTUICHANDLING uic_handling = SCRIPTUICHANDLING_ALLOW;
 332     IActiveScriptSiteUIControl *ui_control;
 333     IActiveScriptSiteWindow *acts_window;
 334     const WCHAR *title;
 335     HWND hwnd = NULL;
 336     int ret;
 337     HRESULT hres;
 338
 339     hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IActiveScriptSiteUIControl, (void**)&ui_control);
 340     if(SUCCEEDED(hres)) {
 341         hres = IActiveScriptSiteUIControl_GetUIBehavior(ui_control, SCRIPTUICITEM_MSGBOX, &uic_handling);
 342         IActiveScriptSiteUIControl_Release(ui_control);
 343         if(FAILED(hres))
 344             uic_handling = SCRIPTUICHANDLING_ALLOW;
 345     }
 346
 347     switch(uic_handling) {
 348     case SCRIPTUICHANDLING_ALLOW:
 349         break;
 350     case SCRIPTUICHANDLING_NOUIDEFAULT:
 351         return return_short(res, 0);
 352     default:
 353         FIXME("blocked\n");
 354         return E_FAIL;
 355     }
 356
 357     title = (ctx->safeopt & INTERFACE_USES_SECURITY_MANAGER) ? vbscriptW : emptyW;
 358
 359     hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IActiveScriptSiteWindow, (void**)&acts_window);
 360     if(FAILED(hres)) {
 361         FIXME("No IActiveScriptSiteWindow\n");
 362         return hres;
 363     }
 364
 365     hres = IActiveScriptSiteWindow_GetWindow(acts_window, &hwnd);
 366     if(SUCCEEDED(hres)) {
 367         hres = IActiveScriptSiteWindow_EnableModeless(acts_window, FALSE);
 368         if(SUCCEEDED(hres)) {
 369             ret = MessageBoxW(hwnd, prompt, title, MB_OK);
 370             hres = IActiveScriptSiteWindow_EnableModeless(acts_window, TRUE);
 371         }
 372     }
 373
 374     IActiveScriptSiteWindow_Release(acts_window);
 375     if(FAILED(hres)) {
 376         FIXME("failed: %08x\n", hres);
 377         return hres;
 378     }
 379
 380     return return_short(res, ret);
 381 }
 382
 383 static HRESULT Global_CCur(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 384 {
 385     FIXME("\n");
 386     return E_NOTIMPL;
 387 }
 388
 389 static HRESULT Global_CInt(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 390 {
 391     int val;
 392     HRESULT hres;
 393
 394     TRACE("%s\n", debugstr_variant(arg));
 395
 396     assert(args_cnt == 1);
 397
 398     hres = to_int(arg, &val);
 399     if(FAILED(hres))
 400         return hres;
 401
 402     return return_int(res, val);
 403 }
 404
 405 static HRESULT Global_CLng(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 406 {
 407     FIXME("\n");
 408     return E_NOTIMPL;
 409 }
 410
 411 static HRESULT Global_CBool(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 412 {
 413     int val;
 414     TRACE("%s\n", debugstr_variant(arg));
 415
 416     assert(args_cnt == 1);
 417
 418     switch(V_VT(arg)) {
 419     case VT_I2:
 420         val = V_I2(arg);
 421         break;
 422     case VT_I4:
 423         val = V_I4(arg);
 424         break;
 425     case VT_R4:
 426         val = V_R4(arg) > 0.0 || V_R4(arg) < 0.0;
 427         break;
 428     case VT_R8:
 429         val = V_R8(arg) > 0.0 || V_R8(arg) < 0.0;
 430         break;
 431     default:
 432         ERR("Not a numeric value: %s\n", debugstr_variant(arg));
 433         return E_FAIL;
 434     }
 435
 436     return return_bool(res, val);
 437 }
 438
 439 static HRESULT Global_CByte(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 440 {
 441     FIXME("\n");
 442     return E_NOTIMPL;
 443 }
 444
 445 static HRESULT Global_CDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 446 {
 447     FIXME("\n");
 448     return E_NOTIMPL;
 449 }
 450
 451 static HRESULT Global_CDbl(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 452 {
 453     FIXME("\n");
 454     return E_NOTIMPL;
 455 }
 456
 457 static HRESULT Global_CSng(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 458 {
 459     FIXME("\n");
 460     return E_NOTIMPL;
 461 }
 462
 463 static HRESULT Global_CStr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 464 {
 465     BSTR str;
 466     HRESULT hres;
 467
 468     TRACE("%s\n", debugstr_variant(arg));
 469
 470     hres = to_string(arg, &str);
 471     if(FAILED(hres))
 472         return hres;
 473
 474     return return_bstr(res, str);
 475 }
 476
 477 static inline WCHAR hex_char(unsigned n)
 478 {
 479     return n < 10 ? '0'+n : 'A'+n-10;
 480 }
 481
 482 static HRESULT Global_Hex(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 483 {
 484     WCHAR buf[17], *ptr;
 485     DWORD n;
 486
 487     TRACE("%s\n", debugstr_variant(arg));
 488
 489     switch(V_VT(arg)) {
 490     case VT_I2:
 491         n = (WORD)V_I2(arg);
 492         break;
 493     case VT_I4:
 494         n = V_I4(arg);
 495         break;
 496     case VT_EMPTY:
 497         n = 0;
 498         break;
 499     case VT_NULL:
 500         if(res)
 501             V_VT(res) = VT_NULL;
 502         return S_OK;
 503     default:
 504         FIXME("unsupported type %s\n", debugstr_variant(arg));
 505         return E_NOTIMPL;
 506     }
 507
 508     buf[16] = 0;
 509     ptr = buf+15;
 510
 511     if(n) {
 512         do {
 513             *ptr-- = hex_char(n & 0xf);
 514             n >>= 4;
 515         }while(n);
 516         ptr++;
 517     }else {
 518         *ptr = '0';
 519     }
 520
 521     return return_string(res, ptr);
 522 }
 523
 524 static HRESULT Global_Oct(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 525 {
 526     FIXME("\n");
 527     return E_NOTIMPL;
 528 }
 529
 530 static HRESULT Global_VarType(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 531 {
 532     FIXME("\n");
 533     return E_NOTIMPL;
 534 }
 535
 536 static HRESULT Global_IsDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 537 {
 538     FIXME("\n");
 539     return E_NOTIMPL;
 540 }
 541
 542 static HRESULT Global_IsEmpty(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 543 {
 544     TRACE("(%s)\n", debugstr_variant(arg));
 545
 546     assert(args_cnt == 1);
 547
 548     if(res) {
 549         V_VT(res) = VT_BOOL;
 550         V_BOOL(res) = V_VT(arg) == VT_EMPTY ? VARIANT_TRUE : VARIANT_FALSE;
 551     }
 552     return S_OK;
 553 }
 554
 555 static HRESULT Global_IsNull(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 556 {
 557     TRACE("(%s)\n", debugstr_variant(arg));
 558
 559     assert(args_cnt == 1);
 560
 561     if(res) {
 562         V_VT(res) = VT_BOOL;
 563         V_BOOL(res) = V_VT(arg) == VT_NULL ? VARIANT_TRUE : VARIANT_FALSE;
 564     }
 565     return S_OK;
 566 }
 567
 568 static HRESULT Global_IsNumeric(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 569 {
 570     FIXME("\n");
 571     return E_NOTIMPL;
 572 }
 573
 574 static HRESULT Global_IsArray(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 575 {
 576     FIXME("\n");
 577     return E_NOTIMPL;
 578 }
 579
 580 static HRESULT Global_IsObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 581 {
 582     TRACE("(%s)\n", debugstr_variant(arg));
 583
 584     assert(args_cnt == 1);
 585
 586     if(res) {
 587         V_VT(res) = VT_BOOL;
 588         V_BOOL(res) = V_VT(arg) == VT_DISPATCH ? VARIANT_TRUE : VARIANT_FALSE;
 589     }
 590     return S_OK;
 591 }
 592
 593 static HRESULT Global_Ant(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 594 {
 595     FIXME("\n");
 596     return E_NOTIMPL;
 597 }
 598
 599 static HRESULT Global_Cos(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 600 {
 601     FIXME("\n");
 602     return E_NOTIMPL;
 603 }
 604
 605 static HRESULT Global_Sin(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 606 {
 607     FIXME("\n");
 608     return E_NOTIMPL;
 609 }
 610
 611 static HRESULT Global_Tan(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 612 {
 613     FIXME("\n");
 614     return E_NOTIMPL;
 615 }
 616
 617 static HRESULT Global_Exp(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 618 {
 619     FIXME("\n");
 620     return E_NOTIMPL;
 621 }
 622
 623 static HRESULT Global_Log(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 624 {
 625     FIXME("\n");
 626     return E_NOTIMPL;
 627 }
 628
 629 static HRESULT Global_Sqr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 630 {
 631     FIXME("\n");
 632     return E_NOTIMPL;
 633 }
 634
 635 static HRESULT Global_Randomize(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 636 {
 637     FIXME("\n");
 638     return E_NOTIMPL;
 639 }
 640
 641 static HRESULT Global_Rnd(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 642 {
 643     FIXME("\n");
 644     return E_NOTIMPL;
 645 }
 646
 647 static HRESULT Global_Timer(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 648 {
 649     FIXME("\n");
 650     return E_NOTIMPL;
 651 }
 652
 653 static HRESULT Global_LBound(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 654 {
 655     FIXME("\n");
 656     return E_NOTIMPL;
 657 }
 658
 659 static HRESULT Global_UBound(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 660 {
 661     FIXME("\n");
 662     return E_NOTIMPL;
 663 }
 664
 665 static HRESULT Global_RGB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 666 {
 667     FIXME("\n");
 668     return E_NOTIMPL;
 669 }
 670
 671 static HRESULT Global_Len(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 672 {
 673     DWORD len;
 674     HRESULT hres;
 675
 676     TRACE("%s\n", debugstr_variant(arg));
 677
 678     if(V_VT(arg) == VT_NULL)
 679         return return_null(res);
 680
 681     if(V_VT(arg) != VT_BSTR) {
 682         BSTR str;
 683
 684         hres = to_string(arg, &str);
 685         if(FAILED(hres))
 686             return hres;
 687
 688         len = SysStringLen(str);
 689         SysFreeString(str);
 690     }else {
 691         len = SysStringLen(V_BSTR(arg));
 692     }
 693
 694     return return_int(res, len);
 695 }
 696
 697 static HRESULT Global_LenB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 698 {
 699     FIXME("\n");
 700     return E_NOTIMPL;
 701 }
 702
 703 static HRESULT Global_Left(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
 704 {
 705     BSTR str, ret, conv_str = NULL;
 706     int len, str_len;
 707     HRESULT hres;
 708
 709     TRACE("(%s %s)\n", debugstr_variant(args+1), debugstr_variant(args));
 710
 711     if(V_VT(args) == VT_BSTR) {
 712         str = V_BSTR(args);
 713     }else {
 714         hres = to_string(args, &conv_str);
 715         if(FAILED(hres))
 716             return hres;
 717         str = conv_str;
 718     }
 719
 720     hres = to_int(args+1, &len);
 721     if(FAILED(hres))
 722         return hres;
 723
 724     if(len < 0) {
 725         FIXME("len = %d\n", len);
 726         return E_FAIL;
 727     }
 728
 729     str_len = SysStringLen(str);
 730     if(len > str_len)
 731         len = str_len;
 732
 733     ret = SysAllocStringLen(str, len);
 734     SysFreeString(conv_str);
 735     if(!ret)
 736         return E_OUTOFMEMORY;
 737
 738     return return_bstr(res, ret);
 739 }
 740
 741 static HRESULT Global_LeftB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 742 {
 743     FIXME("\n");
 744     return E_NOTIMPL;
 745 }
 746
 747 static HRESULT Global_Right(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
 748 {
 749     BSTR str, ret, conv_str = NULL;
 750     int len, str_len;
 751     HRESULT hres;
 752
 753     TRACE("(%s %s)\n", debugstr_variant(args), debugstr_variant(args+1));
 754
 755     if(V_VT(args+1) == VT_BSTR) {
 756         str = V_BSTR(args);
 757     }else {
 758         hres = to_string(args, &conv_str);
 759         if(FAILED(hres))
 760             return hres;
 761         str = conv_str;
 762     }
 763
 764     hres = to_int(args+1, &len);
 765     if(FAILED(hres))
 766         return hres;
 767
 768     if(len < 0) {
 769         FIXME("len = %d\n", len);
 770         return E_FAIL;
 771     }
 772
 773     str_len = SysStringLen(str);
 774     if(len > str_len)
 775         len = str_len;
 776
 777     ret = SysAllocStringLen(str+str_len-len, len);
 778     SysFreeString(conv_str);
 779     if(!ret)
 780         return E_OUTOFMEMORY;
 781
 782     return return_bstr(res, ret);
 783 }
 784
 785 static HRESULT Global_RightB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 786 {
 787     FIXME("\n");
 788     return E_NOTIMPL;
 789 }
 790
 791 static HRESULT Global_Mid(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
 792 {
 793     int len = -1, start, str_len;
 794     BSTR str;
 795     HRESULT hres;
 796
 797     TRACE("(%s %s ...)\n", debugstr_variant(args), debugstr_variant(args+1));
 798
 799     assert(args_cnt == 2 || args_cnt == 3);
 800
 801     if(V_VT(args) != VT_BSTR) {
 802         FIXME("args[0] = %s\n", debugstr_variant(args));
 803         return E_NOTIMPL;
 804     }
 805
 806     str = V_BSTR(args);
 807
 808     hres = to_int(args+1, &start);
 809     if(FAILED(hres))
 810         return hres;
 811
 812     if(args_cnt == 3) {
 813         hres = to_int(args+2, &len);
 814         if(FAILED(hres))
 815             return hres;
 816
 817         if(len < 0) {
 818             FIXME("len = %d\n", len);
 819             return E_FAIL;
 820         }
 821     }
 822
 823
 824     str_len = SysStringLen(str);
 825     start--;
 826     if(start > str_len)
 827         start = str_len;
 828
 829     if(len == -1)
 830         len = str_len-start;
 831     else if(len > str_len-start)
 832         len = str_len-start;
 833
 834     if(res) {
 835         V_VT(res) = VT_BSTR;
 836         V_BSTR(res) = SysAllocStringLen(str+start, len);
 837         if(!V_BSTR(res))
 838             return E_OUTOFMEMORY;
 839     }
 840
 841     return S_OK;
 842 }
 843
 844 static HRESULT Global_MidB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 845 {
 846     FIXME("\n");
 847     return E_NOTIMPL;
 848 }
 849
 850 static HRESULT Global_StrComp(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 851 {
 852     FIXME("\n");
 853     return E_NOTIMPL;
 854 }
 855
 856 static HRESULT Global_LCase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 857 {
 858     BSTR str;
 859     HRESULT hres;
 860
 861     TRACE("%s\n", debugstr_variant(arg));
 862
 863     if(V_VT(arg) == VT_NULL) {
 864         if(res)
 865             V_VT(res) = VT_NULL;
 866         return S_OK;
 867     }
 868
 869     hres = to_string(arg, &str);
 870     if(FAILED(hres))
 871         return hres;
 872
 873     if(res) {
 874         WCHAR *ptr;
 875
 876         for(ptr = str; *ptr; ptr++)
 877             *ptr = tolowerW(*ptr);
 878
 879         V_VT(res) = VT_BSTR;
 880         V_BSTR(res) = str;
 881     }else {
 882         SysFreeString(str);
 883     }
 884     return S_OK;
 885 }
 886
 887 static HRESULT Global_UCase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 888 {
 889     BSTR str;
 890     HRESULT hres;
 891
 892     TRACE("%s\n", debugstr_variant(arg));
 893
 894     if(V_VT(arg) == VT_NULL) {
 895         if(res)
 896             V_VT(res) = VT_NULL;
 897         return S_OK;
 898     }
 899
 900     hres = to_string(arg, &str);
 901     if(FAILED(hres))
 902         return hres;
 903
 904     if(res) {
 905         WCHAR *ptr;
 906
 907         for(ptr = str; *ptr; ptr++)
 908             *ptr = toupperW(*ptr);
 909
 910         V_VT(res) = VT_BSTR;
 911         V_BSTR(res) = str;
 912     }else {
 913         SysFreeString(str);
 914     }
 915     return S_OK;
 916 }
 917
 918 static HRESULT Global_LTrim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 919 {
 920     BSTR str, conv_str = NULL;
 921     WCHAR *ptr;
 922     HRESULT hres;
 923
 924     TRACE("%s\n", debugstr_variant(arg));
 925
 926     if(V_VT(arg) == VT_BSTR) {
 927         str = V_BSTR(arg);
 928     }else {
 929         hres = to_string(arg, &conv_str);
 930         if(FAILED(hres))
 931             return hres;
 932         str = conv_str;
 933     }
 934
 935     for(ptr = str; *ptr && isspaceW(*ptr); ptr++);
 936
 937     str = SysAllocString(ptr);
 938     SysFreeString(conv_str);
 939     if(!str)
 940         return E_OUTOFMEMORY;
 941
 942     return return_bstr(res, str);
 943 }
 944
 945 static HRESULT Global_RTrim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 946 {
 947     BSTR str, conv_str = NULL;
 948     WCHAR *ptr;
 949     HRESULT hres;
 950
 951     TRACE("%s\n", debugstr_variant(arg));
 952
 953     if(V_VT(arg) == VT_BSTR) {
 954         str = V_BSTR(arg);
 955     }else {
 956         hres = to_string(arg, &conv_str);
 957         if(FAILED(hres))
 958             return hres;
 959         str = conv_str;
 960     }
 961
 962     for(ptr = str+SysStringLen(str); ptr-1 > str && isspaceW(*(ptr-1)); ptr--);
 963
 964     str = SysAllocStringLen(str, ptr-str);
 965     SysFreeString(conv_str);
 966     if(!str)
 967         return E_OUTOFMEMORY;
 968
 969     return return_bstr(res, str);
 970 }
 971
 972 static HRESULT Global_Trim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 973 {
 974     BSTR str, conv_str = NULL;
 975     WCHAR *begin_ptr, *end_ptr;
 976     HRESULT hres;
 977
 978     TRACE("%s\n", debugstr_variant(arg));
 979
 980     if(V_VT(arg) == VT_BSTR) {
 981         str = V_BSTR(arg);
 982     }else {
 983         hres = to_string(arg, &conv_str);
 984         if(FAILED(hres))
 985             return hres;
 986         str = conv_str;
 987     }
 988
 989     for(begin_ptr = str; *begin_ptr && isspaceW(*begin_ptr); begin_ptr++);
 990     for(end_ptr = str+SysStringLen(str); end_ptr-1 > begin_ptr && isspaceW(*(end_ptr-1)); end_ptr--);
 991
 992     str = SysAllocStringLen(begin_ptr, end_ptr-begin_ptr);
 993     SysFreeString(conv_str);
 994     if(!str)
 995         return E_OUTOFMEMORY;
 996
 997     return return_bstr(res, str);
 998 }
 999
1000 static HRESULT Global_Space(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1001 {
1002     BSTR str;
1003     int n, i;
1004     HRESULT hres;
1005
1006     TRACE("%s\n", debugstr_variant(arg));
1007
1008     hres = to_int(arg, &n);
1009     if(FAILED(hres))
1010         return hres;
1011
1012     if(n < 0) {
1013         FIXME("n = %d\n", n);
1014         return E_NOTIMPL;
1015     }
1016
1017     if(!res)
1018         return S_OK;
1019
1020     str = SysAllocStringLen(NULL, n);
1021     if(!str)
1022         return E_OUTOFMEMORY;
1023
1024     for(i=0; i<n; i++)
1025         str[i] = ' ';
1026
1027     V_VT(res) = VT_BSTR;
1028     V_BSTR(res) = str;
1029     return S_OK;
1030 }
1031
1032 static HRESULT Global_String(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1033 {
1034     FIXME("\n");
1035     return E_NOTIMPL;
1036 }
1037
1038 static HRESULT Global_InStr(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
1039 {
1040     VARIANT *startv, *str1v, *str2v;
1041     BSTR str1, str2;
1042     int start, ret;
1043     HRESULT hres;
1044
1045     TRACE("\n");
1046
1047     assert(2 <= args_cnt && args_cnt <= 4);
1048
1049     switch(args_cnt) {
1050     case 2:
1051         startv = NULL;
1052         str1v = args;
1053         str2v = args+1;
1054         break;
1055     case 3:
1056         startv = args;
1057         str1v = args+1;
1058         str2v = args+2;
1059         break;
1060     case 4:
1061         FIXME("unsupported compare argument %s\n", debugstr_variant(args));
1062         return E_NOTIMPL;
1063     DEFAULT_UNREACHABLE;
1064     }
1065
1066     if(startv) {
1067         hres = to_int(startv, &start);
1068         if(FAILED(hres))
1069             return hres;
1070         if(--start < 0) {
1071             FIXME("start %d\n", start);
1072             return E_FAIL;
1073         }
1074     }else {
1075         start = 0;
1076     }
1077
1078     if(V_VT(str1v) == VT_NULL || V_VT(str2v) == VT_NULL)
1079         return return_null(res);
1080
1081     if(V_VT(str1v) != VT_BSTR) {
1082         FIXME("Unsupported str1 type %s\n", debugstr_variant(str1v));
1083         return E_NOTIMPL;
1084     }
1085     str1 = V_BSTR(str1v);
1086
1087     if(V_VT(str2v) != VT_BSTR) {
1088         FIXME("Unsupported str2 type %s\n", debugstr_variant(str2v));
1089         return E_NOTIMPL;
1090     }
1091     str2 = V_BSTR(str2v);
1092
1093     if(start < SysStringLen(str1)) {
1094         WCHAR *ptr;
1095
1096         ptr = strstrW(str1+start, str2);
1097         ret = ptr ? ptr-str1+1 : 0;
1098     }else {
1099         ret = 0;
1100     }
1101
1102     return return_int(res, ret);
1103 }
1104
1105 static HRESULT Global_InStrB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1106 {
1107     FIXME("\n");
1108     return E_NOTIMPL;
1109 }
1110
1111 static HRESULT Global_AscB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1112 {
1113     FIXME("\n");
1114     return E_NOTIMPL;
1115 }
1116
1117 static HRESULT Global_ChrB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1118 {
1119     FIXME("\n");
1120     return E_NOTIMPL;
1121 }
1122
1123 static HRESULT Global_Asc(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1124 {
1125     FIXME("\n");
1126     return E_NOTIMPL;
1127 }
1128
1129 static HRESULT Global_Chr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1130 {
1131     int c;
1132     HRESULT hres;
1133
1134     TRACE("%s\n", debugstr_variant(arg));
1135
1136     hres = to_int(arg, &c);
1137     if(FAILED(hres))
1138         return hres;
1139
1140     if(c < 0 || c >= 0x100) {
1141         FIXME("invalid arg\n");
1142         return E_FAIL;
1143     }
1144
1145     if(res) {
1146         WCHAR ch = c;
1147
1148         V_VT(res) = VT_BSTR;
1149         V_BSTR(res) = SysAllocStringLen(&ch, 1);
1150         if(!V_BSTR(res))
1151             return E_OUTOFMEMORY;
1152     }
1153     return S_OK;
1154 }
1155
1156 static HRESULT Global_AscW(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1157 {
1158     FIXME("\n");
1159     return E_NOTIMPL;
1160 }
1161
1162 static HRESULT Global_ChrW(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1163 {
1164     FIXME("\n");
1165     return E_NOTIMPL;
1166 }
1167
1168 static HRESULT Global_Abs(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1169 {
1170     FIXME("\n");
1171     return E_NOTIMPL;
1172 }
1173
1174 static HRESULT Global_Fix(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1175 {
1176     FIXME("\n");
1177     return E_NOTIMPL;
1178 }
1179
1180 static HRESULT Global_Int(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1181 {
1182     FIXME("\n");
1183     return E_NOTIMPL;
1184 }
1185
1186 static HRESULT Global_Sgn(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1187 {
1188     FIXME("\n");
1189     return E_NOTIMPL;
1190 }
1191
1192 static HRESULT Global_Now(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1193 {
1194     SYSTEMTIME lt;
1195     double date;
1196
1197     TRACE("\n");
1198
1199     GetLocalTime(&lt);
1200     SystemTimeToVariantTime(&lt, &date);
1201     return return_date(res, date);
1202 }
1203
1204 static HRESULT Global_Date(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1205 {
1206     FIXME("\n");
1207     return E_NOTIMPL;
1208 }
1209
1210 static HRESULT Global_Time(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1211 {
1212     FIXME("\n");
1213     return E_NOTIMPL;
1214 }
1215
1216 static HRESULT Global_Day(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1217 {
1218     FIXME("\n");
1219     return E_NOTIMPL;
1220 }
1221
1222 static HRESULT Global_Month(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1223 {
1224     FIXME("\n");
1225     return E_NOTIMPL;
1226 }
1227
1228 static HRESULT Global_Weekday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1229 {
1230     FIXME("\n");
1231     return E_NOTIMPL;
1232 }
1233
1234 static HRESULT Global_Year(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1235 {
1236     FIXME("\n");
1237     return E_NOTIMPL;
1238 }
1239
1240 static HRESULT Global_Hour(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1241 {
1242     FIXME("\n");
1243     return E_NOTIMPL;
1244 }
1245
1246 static HRESULT Global_Minute(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1247 {
1248     FIXME("\n");
1249     return E_NOTIMPL;
1250 }
1251
1252 static HRESULT Global_Second(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1253 {
1254     FIXME("\n");
1255     return E_NOTIMPL;
1256 }
1257
1258 static HRESULT Global_DateValue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1259 {
1260     FIXME("\n");
1261     return E_NOTIMPL;
1262 }
1263
1264 static HRESULT Global_TimeValue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1265 {
1266     FIXME("\n");
1267     return E_NOTIMPL;
1268 }
1269
1270 static HRESULT Global_DateSerial(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1271 {
1272     FIXME("\n");
1273     return E_NOTIMPL;
1274 }
1275
1276 static HRESULT Global_TimeSerial(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1277 {
1278     FIXME("\n");
1279     return E_NOTIMPL;
1280 }
1281
1282 static HRESULT Global_InputBox(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1283 {
1284     FIXME("\n");
1285     return E_NOTIMPL;
1286 }
1287
1288 static HRESULT Global_MsgBox(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
1289 {
1290     BSTR prompt;
1291     HRESULT hres;
1292
1293     TRACE("\n");
1294
1295     if(args_cnt != 1) {
1296         FIXME("unsupported arg_cnt %d\n", args_cnt);
1297         return E_NOTIMPL;
1298     }
1299
1300     hres = to_string(args, &prompt);
1301     if(FAILED(hres))
1302         return hres;
1303
1304     hres = show_msgbox(This->desc->ctx, prompt, res);
1305     SysFreeString(prompt);
1306     return hres;
1307 }
1308
1309 static HRESULT Global_CreateObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1310 {
1311     IUnknown *obj;
1312     HRESULT hres;
1313
1314     TRACE("(%s)\n", debugstr_variant(arg));
1315
1316     if(V_VT(arg) != VT_BSTR) {
1317         FIXME("non-bstr arg\n");
1318         return E_INVALIDARG;
1319     }
1320
1321     obj = create_object(This->desc->ctx, V_BSTR(arg));
1322     if(!obj)
1323         return VB_E_CANNOT_CREATE_OBJ;
1324
1325     if(res) {
1326         hres = IUnknown_QueryInterface(obj, &IID_IDispatch, (void**)&V_DISPATCH(res));
1327         if(FAILED(hres))
1328             return hres;
1329
1330         V_VT(res) = VT_DISPATCH;
1331     }
1332
1333     IUnknown_Release(obj);
1334     return S_OK;
1335 }
1336
1337 static HRESULT Global_GetObject(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
1338 {
1339     IBindCtx *bind_ctx;
1340     IUnknown *obj_unk;
1341     IDispatch *disp;
1342     ULONG eaten = 0;
1343     IMoniker *mon;
1344     HRESULT hres;
1345
1346     TRACE("%s %s\n", args_cnt ? debugstr_variant(args) : "", args_cnt > 1 ? debugstr_variant(args+1) : "");
1347
1348     if(args_cnt != 1 || V_VT(args) != VT_BSTR) {
1349         FIXME("unsupported args\n");
1350         return E_NOTIMPL;
1351     }
1352
1353     if(This->desc->ctx->safeopt & (INTERFACE_USES_SECURITY_MANAGER|INTERFACESAFE_FOR_UNTRUSTED_DATA)) {
1354         WARN("blocked in current safety mode\n");
1355         return VB_E_CANNOT_CREATE_OBJ;
1356     }
1357
1358     hres = CreateBindCtx(0, &bind_ctx);
1359     if(FAILED(hres))
1360         return hres;
1361
1362     hres = MkParseDisplayName(bind_ctx, V_BSTR(args), &eaten, &mon);
1363     if(SUCCEEDED(hres)) {
1364         hres = IMoniker_BindToObject(mon, bind_ctx, NULL, &IID_IUnknown, (void**)&obj_unk);
1365         IMoniker_Release(mon);
1366     }else {
1367         hres = MK_E_SYNTAX;
1368     }
1369     IBindCtx_Release(bind_ctx);
1370     if(FAILED(hres))
1371         return hres;
1372
1373     hres = set_object_site(This->desc->ctx, obj_unk);
1374     if(FAILED(hres)) {
1375         IUnknown_Release(obj_unk);
1376         return hres;
1377     }
1378
1379     hres = IUnknown_QueryInterface(obj_unk, &IID_IDispatch, (void**)&disp);
1380     if(SUCCEEDED(hres)) {
1381         if(res) {
1382             V_VT(res) = VT_DISPATCH;
1383             V_DISPATCH(res) = disp;
1384         }else {
1385             IDispatch_Release(disp);
1386         }
1387     }else {
1388         FIXME("object does not support IDispatch\n");
1389     }
1390
1391     return hres;
1392 }
1393
1394 static HRESULT Global_DateAdd(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1395 {
1396     FIXME("\n");
1397     return E_NOTIMPL;
1398 }
1399
1400 static HRESULT Global_DateDiff(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1401 {
1402     FIXME("\n");
1403     return E_NOTIMPL;
1404 }
1405
1406 static HRESULT Global_DatePart(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1407 {
1408     FIXME("\n");
1409     return E_NOTIMPL;
1410 }
1411
1412 static HRESULT Global_TypeName(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1413 {
1414     FIXME("\n");
1415     return E_NOTIMPL;
1416 }
1417
1418 static HRESULT Global_Array(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1419 {
1420     FIXME("\n");
1421     return E_NOTIMPL;
1422 }
1423
1424 static HRESULT Global_Erase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1425 {
1426     FIXME("\n");
1427     return E_NOTIMPL;
1428 }
1429
1430 static HRESULT Global_Filter(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1431 {
1432     FIXME("\n");
1433     return E_NOTIMPL;
1434 }
1435
1436 static HRESULT Global_Join(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1437 {
1438     FIXME("\n");
1439     return E_NOTIMPL;
1440 }
1441
1442 static HRESULT Global_Split(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1443 {
1444     FIXME("\n");
1445     return E_NOTIMPL;
1446 }
1447
1448 static HRESULT Global_Replace(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1449 {
1450     FIXME("\n");
1451     return E_NOTIMPL;
1452 }
1453
1454 static HRESULT Global_StrReverse(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1455 {
1456     WCHAR *ptr1, *ptr2, ch;
1457     BSTR ret;
1458     HRESULT hres;
1459
1460     TRACE("%s\n", debugstr_variant(arg));
1461
1462     hres = to_string(arg, &ret);
1463     if(FAILED(hres))
1464         return hres;
1465
1466     ptr1 = ret;
1467     ptr2 = ret + SysStringLen(ret)-1;
1468     while(ptr1 < ptr2) {
1469         ch = *ptr1;
1470         *ptr1++ = *ptr2;
1471         *ptr2-- = ch;
1472     }
1473
1474     return return_bstr(res, ret);
1475 }
1476
1477 static HRESULT Global_InStrRev(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1478 {
1479     FIXME("\n");
1480     return E_NOTIMPL;
1481 }
1482
1483 static HRESULT Global_LoadPicture(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1484 {
1485     FIXME("\n");
1486     return E_NOTIMPL;
1487 }
1488
1489 static HRESULT Global_ScriptEngine(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1490 {
1491     FIXME("\n");
1492     return E_NOTIMPL;
1493 }
1494
1495 static HRESULT Global_ScriptEngineMajorVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1496 {
1497     FIXME("\n");
1498     return E_NOTIMPL;
1499 }
1500
1501 static HRESULT Global_ScriptEngineMinorVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1502 {
1503     FIXME("\n");
1504     return E_NOTIMPL;
1505 }
1506
1507 static HRESULT Global_ScriptEngineBuildVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1508 {
1509     FIXME("\n");
1510     return E_NOTIMPL;
1511 }
1512
1513 static HRESULT Global_FormatNumber(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1514 {
1515     FIXME("\n");
1516     return E_NOTIMPL;
1517 }
1518
1519 static HRESULT Global_FormatCurrency(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1520 {
1521     FIXME("\n");
1522     return E_NOTIMPL;
1523 }
1524
1525 static HRESULT Global_FormatPercent(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1526 {
1527     FIXME("\n");
1528     return E_NOTIMPL;
1529 }
1530
1531 static HRESULT Global_FormatDateTime(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1532 {
1533     FIXME("\n");
1534     return E_NOTIMPL;
1535 }
1536
1537 static HRESULT Global_WeekdayName(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
1538 {
1539     int weekday, first_day = 1, abbrev = 0;
1540     BSTR ret;
1541     HRESULT hres;
1542
1543     TRACE("\n");
1544
1545     assert(1 <= args_cnt && args_cnt <= 3);
1546
1547     hres = to_int(args, &weekday);
1548     if(FAILED(hres))
1549         return hres;
1550
1551     if(args_cnt > 1) {
1552         hres = to_int(args+1, &abbrev);
1553         if(FAILED(hres))
1554             return hres;
1555
1556         if(args_cnt == 3) {
1557             hres = to_int(args+2, &first_day);
1558             if(FAILED(hres))
1559                 return hres;
1560         }
1561     }
1562
1563     hres = VarWeekdayName(weekday, abbrev, first_day, 0, &ret);
1564     if(FAILED(hres))
1565         return hres;
1566
1567     return return_bstr(res, ret);
1568 }
1569
1570 static HRESULT Global_MonthName(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
1571 {
1572     int month, abbrev = 0;
1573     BSTR ret;
1574     HRESULT hres;
1575
1576     TRACE("\n");
1577
1578     assert(args_cnt == 1 || args_cnt == 2);
1579
1580     hres = to_int(args, &month);
1581     if(FAILED(hres))
1582         return hres;
1583
1584     if(args_cnt == 2) {
1585         hres = to_int(args+1, &abbrev);
1586         if(FAILED(hres))
1587             return hres;
1588     }
1589
1590     hres = VarMonthName(month, abbrev, 0, &ret);
1591     if(FAILED(hres))
1592         return hres;
1593
1594     return return_bstr(res, ret);
1595 }
1596
1597 static HRESULT Global_Round(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1598 {
1599     double n;
1600     HRESULT hres;
1601
1602     TRACE("%s\n", debugstr_variant(arg));
1603
1604     if(!res)
1605         return S_OK;
1606
1607     switch(V_VT(arg)) {
1608     case VT_I2:
1609     case VT_I4:
1610     case VT_BOOL:
1611         *res = *arg;
1612         return S_OK;
1613     case VT_R8:
1614         n = V_R8(arg);
1615         break;
1616     default:
1617         hres = to_double(arg, &n);
1618         if(FAILED(hres))
1619             return hres;
1620     }
1621
1622     return return_double(res, round(n));
1623 }
1624
1625 static HRESULT Global_Escape(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1626 {
1627     FIXME("\n");
1628     return E_NOTIMPL;
1629 }
1630
1631 static HRESULT Global_Unescape(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1632 {
1633     FIXME("\n");
1634     return E_NOTIMPL;
1635 }
1636
1637 static HRESULT Global_Eval(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1638 {
1639     FIXME("\n");
1640     return E_NOTIMPL;
1641 }
1642
1643 static HRESULT Global_Execute(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1644 {
1645     FIXME("\n");
1646     return E_NOTIMPL;
1647 }
1648
1649 static HRESULT Global_ExecuteGlobal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1650 {
1651     FIXME("\n");
1652     return E_NOTIMPL;
1653 }
1654
1655 static HRESULT Global_GetRef(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1656 {
1657     FIXME("\n");
1658     return E_NOTIMPL;
1659 }
1660
1661 static const string_constant_t vbCr          = {1, {'\r'}};
1662 static const string_constant_t vbCrLf        = {2, {'\r','\n'}};
1663 static const string_constant_t vbNewLine     = {2, {'\r','\n'}};
1664 static const string_constant_t vbFormFeed    = {1, {0xc}};
1665 static const string_constant_t vbLf          = {1, {'\n'}};
1666 static const string_constant_t vbNullChar    = {1};
1667 static const string_constant_t vbNullString  = {0};
1668 static const string_constant_t vbTab         = {1, {'\t'}};
1669 static const string_constant_t vbVerticalTab = {1, {0xb}};
1670
1671 static const builtin_prop_t global_props[] = {
1672     {DISPID_GLOBAL_VBUSESYSTEM,        NULL, BP_GET, VT_I2, 0},
1673     {DISPID_GLOBAL_USESYSTEMDAYOFWEEK, NULL, BP_GET, VT_I2, 0},
1674     {DISPID_GLOBAL_VBSUNDAY,           NULL, BP_GET, VT_I2, 1},
1675     {DISPID_GLOBAL_VBMONDAY,           NULL, BP_GET, VT_I2, 2},
1676     {DISPID_GLOBAL_VBTUESDAY,          NULL, BP_GET, VT_I2, 3},
1677     {DISPID_GLOBAL_VBWEDNESDAY,        NULL, BP_GET, VT_I2, 4},
1678     {DISPID_GLOBAL_VBTHURSDAY,         NULL, BP_GET, VT_I2, 5},
1679     {DISPID_GLOBAL_VBFRIDAY,           NULL, BP_GET, VT_I2, 6},
1680     {DISPID_GLOBAL_VBSATURDAY,         NULL, BP_GET, VT_I2, 7},
1681     {DISPID_GLOBAL_VBFIRSTJAN1,        NULL, BP_GET, VT_I2, 1},
1682     {DISPID_GLOBAL_VBFIRSTFOURDAYS,    NULL, BP_GET, VT_I2, 2},
1683     {DISPID_GLOBAL_VBFIRSTFULLWEEK,    NULL, BP_GET, VT_I2, 3},
1684     {DISPID_GLOBAL_VBOKONLY,           NULL, BP_GET, VT_I2, MB_OK},
1685     {DISPID_GLOBAL_VBOKCANCEL,         NULL, BP_GET, VT_I2, MB_OKCANCEL},
1686     {DISPID_GLOBAL_VBABORTRETRYIGNORE, NULL, BP_GET, VT_I2, MB_ABORTRETRYIGNORE},
1687     {DISPID_GLOBAL_VBYESNOCANCEL,      NULL, BP_GET, VT_I2, MB_YESNOCANCEL},
1688     {DISPID_GLOBAL_VBYESNO,            NULL, BP_GET, VT_I2, MB_YESNO},
1689     {DISPID_GLOBAL_VBRETRYCANCEL,      NULL, BP_GET, VT_I2, MB_RETRYCANCEL},
1690     {DISPID_GLOBAL_VBCRITICAL,         NULL, BP_GET, VT_I2, MB_ICONHAND},
1691     {DISPID_GLOBAL_VBQUESTION,         NULL, BP_GET, VT_I2, MB_ICONQUESTION},
1692     {DISPID_GLOBAL_VBEXCLAMATION,      NULL, BP_GET, VT_I2, MB_ICONEXCLAMATION},
1693     {DISPID_GLOBAL_VBINFORMATION,      NULL, BP_GET, VT_I2, MB_ICONASTERISK},
1694     {DISPID_GLOBAL_VBDEFAULTBUTTON1,   NULL, BP_GET, VT_I2, MB_DEFBUTTON1},
1695     {DISPID_GLOBAL_VBDEFAULTBUTTON2,   NULL, BP_GET, VT_I2, MB_DEFBUTTON2},
1696     {DISPID_GLOBAL_VBDEFAULTBUTTON3,   NULL, BP_GET, VT_I2, MB_DEFBUTTON3},
1697     {DISPID_GLOBAL_VBDEFAULTBUTTON4,   NULL, BP_GET, VT_I2, MB_DEFBUTTON4},
1698     {DISPID_GLOBAL_VBAPPLICATIONMODAL, NULL, BP_GET, VT_I2, MB_APPLMODAL},
1699     {DISPID_GLOBAL_VBSYSTEMMODAL,      NULL, BP_GET, VT_I2, MB_SYSTEMMODAL},
1700     {DISPID_GLOBAL_VBOK,               NULL, BP_GET, VT_I2, IDOK},
1701     {DISPID_GLOBAL_VBCANCEL,           NULL, BP_GET, VT_I2, IDCANCEL},
1702     {DISPID_GLOBAL_VBABORT,            NULL, BP_GET, VT_I2, IDABORT},
1703     {DISPID_GLOBAL_VBRETRY,            NULL, BP_GET, VT_I2, IDRETRY},
1704     {DISPID_GLOBAL_VBIGNORE,           NULL, BP_GET, VT_I2, IDIGNORE},
1705     {DISPID_GLOBAL_VBYES,              NULL, BP_GET, VT_I2, IDYES},
1706     {DISPID_GLOBAL_VBNO,               NULL, BP_GET, VT_I2, IDNO},
1707     {DISPID_GLOBAL_VBEMPTY,            NULL, BP_GET, VT_I2, VT_EMPTY},
1708     {DISPID_GLOBAL_VBNULL,             NULL, BP_GET, VT_I2, VT_NULL},
1709     {DISPID_GLOBAL_VBINTEGER,          NULL, BP_GET, VT_I2, VT_I2},
1710     {DISPID_GLOBAL_VBLONG,             NULL, BP_GET, VT_I2, VT_I4},
1711     {DISPID_GLOBAL_VBSINGLE,           NULL, BP_GET, VT_I2, VT_R4},
1712     {DISPID_GLOBAL_VBDOUBLE,           NULL, BP_GET, VT_I2, VT_R8},
1713     {DISPID_GLOBAL_VBCURRENCY,         NULL, BP_GET, VT_I2, VT_CY},
1714     {DISPID_GLOBAL_VBDATE,             NULL, BP_GET, VT_I2, VT_DATE},
1715     {DISPID_GLOBAL_VBSTRING,           NULL, BP_GET, VT_I2, VT_BSTR},
1716     {DISPID_GLOBAL_VBOBJECT,           NULL, BP_GET, VT_I2, VT_DISPATCH},
1717     {DISPID_GLOBAL_VBERROR,            NULL, BP_GET, VT_I2, VT_ERROR},
1718     {DISPID_GLOBAL_VBBOOLEAN,          NULL, BP_GET, VT_I2, VT_BOOL},
1719     {DISPID_GLOBAL_VBVARIANT,          NULL, BP_GET, VT_I2, VT_VARIANT},
1720     {DISPID_GLOBAL_VBDATAOBJECT,       NULL, BP_GET, VT_I2, VT_UNKNOWN},
1721     {DISPID_GLOBAL_VBDECIMAL,          NULL, BP_GET, VT_I2, VT_DECIMAL},
1722     {DISPID_GLOBAL_VBBYTE,             NULL, BP_GET, VT_I2, VT_UI1},
1723     {DISPID_GLOBAL_VBARRAY,            NULL, BP_GET, VT_I2, VT_ARRAY},
1724     {DISPID_GLOBAL_VBTRUE,             NULL, BP_GET, VT_I2, VARIANT_TRUE},
1725     {DISPID_GLOBAL_VBFALSE,            NULL, BP_GET, VT_I2, VARIANT_FALSE},
1726     {DISPID_GLOBAL_VBUSEDEFAULT,       NULL, BP_GET, VT_I2, -2},
1727     {DISPID_GLOBAL_VBBINARYCOMPARE,    NULL, BP_GET, VT_I2, 0},
1728     {DISPID_GLOBAL_VBTEXTCOMPARE,      NULL, BP_GET, VT_I2, 1},
1729     {DISPID_GLOBAL_VBDATABASECOMPARE,  NULL, BP_GET, VT_I2, 2},
1730     {DISPID_GLOBAL_VBGENERALDATE,      NULL, BP_GET, VT_I2, 0},
1731     {DISPID_GLOBAL_VBLONGDATE,         NULL, BP_GET, VT_I2, 1},
1732     {DISPID_GLOBAL_VBSHORTDATE,        NULL, BP_GET, VT_I2, 2},
1733     {DISPID_GLOBAL_VBLONGTIME,         NULL, BP_GET, VT_I2, 3},
1734     {DISPID_GLOBAL_VBSHORTTIME,        NULL, BP_GET, VT_I2, 4},
1735     {DISPID_GLOBAL_VBOBJECTERROR,      NULL, BP_GET, VT_I4, 0x80040000},
1736     {DISPID_GLOBAL_VBBLACK,            NULL, BP_GET, VT_I4, 0x000000},
1737     {DISPID_GLOBAL_VBBLUE,             NULL, BP_GET, VT_I4, 0xff0000},
1738     {DISPID_GLOBAL_VBCYAN,             NULL, BP_GET, VT_I4, 0xffff00},
1739     {DISPID_GLOBAL_VBGREEN,            NULL, BP_GET, VT_I4, 0x00ff00},
1740     {DISPID_GLOBAL_VBMAGENTA,          NULL, BP_GET, VT_I4, 0xff00ff},
1741     {DISPID_GLOBAL_VBRED,              NULL, BP_GET, VT_I4, 0x0000ff},
1742     {DISPID_GLOBAL_VBWHITE,            NULL, BP_GET, VT_I4, 0xffffff},
1743     {DISPID_GLOBAL_VBYELLOW,           NULL, BP_GET, VT_I4, 0x00ffff},
1744     {DISPID_GLOBAL_VBCR,               NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbCr},
1745     {DISPID_GLOBAL_VBCRLF,             NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbCrLf},
1746     {DISPID_GLOBAL_VBNEWLINE,          NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbNewLine},
1747     {DISPID_GLOBAL_VBFORMFEED,         NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbFormFeed},
1748     {DISPID_GLOBAL_VBLF,               NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbLf},
1749     {DISPID_GLOBAL_VBNULLCHAR,         NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbNullChar},
1750     {DISPID_GLOBAL_VBNULLSTRING,       NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbNullString},
1751     {DISPID_GLOBAL_VBTAB,              NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbTab},
1752     {DISPID_GLOBAL_VBVERTICALTAB,      NULL, BP_GET, VT_BSTR, (UINT_PTR)&vbVerticalTab},
1753     {DISPID_GLOBAL_CCUR,                      Global_CCur, 0, 1},
1754     {DISPID_GLOBAL_CINT,                      Global_CInt, 0, 1},
1755     {DISPID_GLOBAL_CLNG,                      Global_CLng, 0, 1},
1756     {DISPID_GLOBAL_CBOOL,                     Global_CBool, 0, 1},
1757     {DISPID_GLOBAL_CBYTE,                     Global_CByte, 0, 1},
1758     {DISPID_GLOBAL_CDATE,                     Global_CDate, 0, 1},
1759     {DISPID_GLOBAL_CDBL,                      Global_CDbl, 0, 1},
1760     {DISPID_GLOBAL_CSNG,                      Global_CSng, 0, 1},
1761     {DISPID_GLOBAL_CSTR,                      Global_CStr, 0, 1},
1762     {DISPID_GLOBAL_HEX,                       Global_Hex, 0, 1},
1763     {DISPID_GLOBAL_OCT,                       Global_Oct, 0, 1},
1764     {DISPID_GLOBAL_VARTYPE,                   Global_VarType, 0, 1},
1765     {DISPID_GLOBAL_ISDATE,                    Global_IsDate, 0, 1},
1766     {DISPID_GLOBAL_ISEMPTY,                   Global_IsEmpty, 0, 1},
1767     {DISPID_GLOBAL_ISNULL,                    Global_IsNull, 0, 1},
1768     {DISPID_GLOBAL_ISNUMERIC,                 Global_IsNumeric, 0, 1},
1769     {DISPID_GLOBAL_ISARRAY,                   Global_IsArray, 0, 1},
1770     {DISPID_GLOBAL_ISOBJECT,                  Global_IsObject, 0, 1},
1771     {DISPID_GLOBAL_ATN,                       Global_Ant, 0, 1},
1772     {DISPID_GLOBAL_COS,                       Global_Cos, 0, 1},
1773     {DISPID_GLOBAL_SIN,                       Global_Sin, 0, 1},
1774     {DISPID_GLOBAL_TAN,                       Global_Tan, 0, 1},
1775     {DISPID_GLOBAL_EXP,                       Global_Exp, 0, 1},
1776     {DISPID_GLOBAL_LOG,                       Global_Log, 0, 1},
1777     {DISPID_GLOBAL_SQR,                       Global_Sqr, 0, 1},
1778     {DISPID_GLOBAL_RANDOMIZE,                 Global_Randomize, 0, 1},
1779     {DISPID_GLOBAL_RND,                       Global_Rnd, 0, 1},
1780     {DISPID_GLOBAL_TIMER,                     Global_Timer, 0, 0},
1781     {DISPID_GLOBAL_LBOUND,                    Global_LBound, 0, 1},
1782     {DISPID_GLOBAL_UBOUND,                    Global_UBound, 0, 1},
1783     {DISPID_GLOBAL_RGB,                       Global_RGB, 0, 3},
1784     {DISPID_GLOBAL_LEN,                       Global_Len, 0, 1},
1785     {DISPID_GLOBAL_LENB,                      Global_LenB, 0, 1},
1786     {DISPID_GLOBAL_LEFT,                      Global_Left, 0, 2},
1787     {DISPID_GLOBAL_LEFTB,                     Global_LeftB, 0, 2},
1788     {DISPID_GLOBAL_RIGHT,                     Global_Right, 0, 2},
1789     {DISPID_GLOBAL_RIGHTB,                    Global_RightB, 0, 2},
1790     {DISPID_GLOBAL_MID,                       Global_Mid, 0, 2, 3},
1791     {DISPID_GLOBAL_MIDB,                      Global_MidB, 0, 2, 3},
1792     {DISPID_GLOBAL_STRCOMP,                   Global_StrComp, 0, 2, 3},
1793     {DISPID_GLOBAL_LCASE,                     Global_LCase, 0, 1},
1794     {DISPID_GLOBAL_UCASE,                     Global_UCase, 0, 1},
1795     {DISPID_GLOBAL_LTRIM,                     Global_LTrim, 0, 1},
1796     {DISPID_GLOBAL_RTRIM,                     Global_RTrim, 0, 1},
1797     {DISPID_GLOBAL_TRIM,                      Global_Trim, 0, 1},
1798     {DISPID_GLOBAL_SPACE,                     Global_Space, 0, 1},
1799     {DISPID_GLOBAL_STRING,                    Global_String, 0, 0, 2},
1800     {DISPID_GLOBAL_INSTR,                     Global_InStr, 0, 2, 4},
1801     {DISPID_GLOBAL_INSTRB,                    Global_InStrB, 0, 3, 4},
1802     {DISPID_GLOBAL_ASCB,                      Global_AscB, 0, 1},
1803     {DISPID_GLOBAL_CHRB,                      Global_ChrB, 0, 1},
1804     {DISPID_GLOBAL_ASC,                       Global_Asc, 0, 1},
1805     {DISPID_GLOBAL_CHR,                       Global_Chr, 0, 1},
1806     {DISPID_GLOBAL_ASCW,                      Global_AscW, 0, 1},
1807     {DISPID_GLOBAL_CHRW,                      Global_ChrW, 0, 1},
1808     {DISPID_GLOBAL_ABS,                       Global_Abs, 0, 1},
1809     {DISPID_GLOBAL_FIX,                       Global_Fix, 0, 1},
1810     {DISPID_GLOBAL_INT,                       Global_Int, 0, 1},
1811     {DISPID_GLOBAL_SGN,                       Global_Sgn, 0, 1},
1812     {DISPID_GLOBAL_NOW,                       Global_Now, 0, 0},
1813     {DISPID_GLOBAL_DATE,                      Global_Date, 0, 0},
1814     {DISPID_GLOBAL_TIME,                      Global_Time, 0, 0},
1815     {DISPID_GLOBAL_DAY,                       Global_Day, 0, 1},
1816     {DISPID_GLOBAL_MONTH,                     Global_Month, 0, 1},
1817     {DISPID_GLOBAL_WEEKDAY,                   Global_Weekday, 0, 1, 2},
1818     {DISPID_GLOBAL_YEAR,                      Global_Year, 0, 1},
1819     {DISPID_GLOBAL_HOUR,                      Global_Hour, 0, 1},
1820     {DISPID_GLOBAL_MINUTE,                    Global_Minute, 0, 1},
1821     {DISPID_GLOBAL_SECOND,                    Global_Second, 0, 1},
1822     {DISPID_GLOBAL_DATEVALUE,                 Global_DateValue, 0, 1},
1823     {DISPID_GLOBAL_TIMEVALUE,                 Global_TimeValue, 0, 1},
1824     {DISPID_GLOBAL_DATESERIAL,                Global_DateSerial, 0, 3},
1825     {DISPID_GLOBAL_TIMESERIAL,                Global_TimeSerial, 0, 3},
1826     {DISPID_GLOBAL_INPUTBOX,                  Global_InputBox, 0, 1, 7},
1827     {DISPID_GLOBAL_MSGBOX,                    Global_MsgBox, 0, 1, 5},
1828     {DISPID_GLOBAL_CREATEOBJECT,              Global_CreateObject, 0, 1},
1829     {DISPID_GLOBAL_GETOBJECT,                 Global_GetObject, 0, 0, 2},
1830     {DISPID_GLOBAL_DATEADD,                   Global_DateAdd, 0, 3},
1831     {DISPID_GLOBAL_DATEDIFF,                  Global_DateDiff, 0, 3, 5},
1832     {DISPID_GLOBAL_DATEPART,                  Global_DatePart, 0, 2, 4},
1833     {DISPID_GLOBAL_TYPENAME,                  Global_TypeName, 0, 1},
1834     {DISPID_GLOBAL_ARRAY,                     Global_Array, 0, 1},
1835     {DISPID_GLOBAL_ERASE,                     Global_Erase, 0, 1},
1836     {DISPID_GLOBAL_FILTER,                    Global_Filter, 0, 2, 4},
1837     {DISPID_GLOBAL_JOIN,                      Global_Join, 0, 1, 2},
1838     {DISPID_GLOBAL_SPLIT,                     Global_Split, 0, 1, 4},
1839     {DISPID_GLOBAL_REPLACE,                   Global_Replace, 0, 3, 6},
1840     {DISPID_GLOBAL_STRREVERSE,                Global_StrReverse, 0, 1},
1841     {DISPID_GLOBAL_INSTRREV,                  Global_InStrRev, 0, 2, 4},
1842     {DISPID_GLOBAL_LOADPICTURE,               Global_LoadPicture, 0, 1},
1843     {DISPID_GLOBAL_SCRIPTENGINE,              Global_ScriptEngine, 0, 0},
1844     {DISPID_GLOBAL_SCRIPTENGINEMAJORVERSION,  Global_ScriptEngineMajorVersion, 0, 0},
1845     {DISPID_GLOBAL_SCRIPTENGINEMINORVERSION,  Global_ScriptEngineMinorVersion, 0, 0},
1846     {DISPID_GLOBAL_SCRIPTENGINEBUILDVERSION,  Global_ScriptEngineBuildVersion, 0, 0},
1847     {DISPID_GLOBAL_FORMATNUMBER,              Global_FormatNumber, 0, 1, 5},
1848     {DISPID_GLOBAL_FORMATCURRENCY,            Global_FormatCurrency, 0, 1, 5},
1849     {DISPID_GLOBAL_FORMATPERCENT,             Global_FormatPercent, 0, 1, 5},
1850     {DISPID_GLOBAL_FORMATDATETIME,            Global_FormatDateTime, 0, 1, 2},
1851     {DISPID_GLOBAL_WEEKDAYNAME,               Global_WeekdayName, 0, 1, 3},
1852     {DISPID_GLOBAL_MONTHNAME,                 Global_MonthName, 0, 1, 2},
1853     {DISPID_GLOBAL_ROUND,                     Global_Round, 0, 1, 2},
1854     {DISPID_GLOBAL_ESCAPE,                    Global_Escape, 0, 1},
1855     {DISPID_GLOBAL_UNESCAPE,                  Global_Unescape, 0, 1},
1856     {DISPID_GLOBAL_EVAL,                      Global_Eval, 0, 1},
1857     {DISPID_GLOBAL_EXECUTE,                   Global_Execute, 0, 1},
1858     {DISPID_GLOBAL_EXECUTEGLOBAL,             Global_ExecuteGlobal, 0, 1},
1859     {DISPID_GLOBAL_GETREF,                    Global_GetRef, 0, 1},
1860     {DISPID_GLOBAL_VBMSGBOXHELPBUTTON,     NULL, BP_GET, VT_I4, MB_HELP},
1861     {DISPID_GLOBAL_VBMSGBOXSETFOREGROUND,  NULL, BP_GET, VT_I4, MB_SETFOREGROUND},
1862     {DISPID_GLOBAL_VBMSGBOXRIGHT,          NULL, BP_GET, VT_I4, MB_RIGHT},
1863     {DISPID_GLOBAL_VBMSGBOXRTLREADING,     NULL, BP_GET, VT_I4, MB_RTLREADING}
1864 };
1865
1866 HRESULT init_global(script_ctx_t *ctx)
1867 {
1868     HRESULT hres;
1869
1870     ctx->global_desc.ctx = ctx;
1871     ctx->global_desc.builtin_prop_cnt = sizeof(global_props)/sizeof(*global_props);
1872     ctx->global_desc.builtin_props = global_props;
1873
1874     hres = get_typeinfo(GlobalObj_tid, &ctx->global_desc.typeinfo);
1875     if(FAILED(hres))
1876         return hres;
1877
1878     hres = create_vbdisp(&ctx->global_desc, &ctx->global_obj);
1879     if(FAILED(hres))
1880         return hres;
1881
1882     hres = create_script_disp(ctx, &ctx->script_obj);
1883     if(FAILED(hres))
1884         return hres;
1885
1886     return init_err(ctx);
1887 }