dlls/jscript/global.c

   1 /*
   2  * Copyright 2008 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 "jscript.h"
  20
  21 #include "wine/debug.h"
  22
  23 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
  24
  25 static const WCHAR NaNW[] = {'N','a','N',0};
  26 static const WCHAR InfinityW[] = {'I','n','f','i','n','i','t','y',0};
  27 static const WCHAR ArrayW[] = {'A','r','r','a','y',0};
  28 static const WCHAR BooleanW[] = {'B','o','o','l','e','a','n',0};
  29 static const WCHAR DateW[] = {'D','a','t','e',0};
  30 static const WCHAR FunctionW[] = {'F','u','n','c','t','i','o','n',0};
  31 static const WCHAR NumberW[] = {'N','u','m','b','e','r',0};
  32 static const WCHAR ObjectW[] = {'O','b','j','e','c','t',0};
  33 static const WCHAR StringW[] = {'S','t','r','i','n','g',0};
  34 static const WCHAR RegExpW[] = {'R','e','g','E','x','p',0};
  35 static const WCHAR ActiveXObjectW[] = {'A','c','t','i','v','e','X','O','b','j','e','c','t',0};
  36 static const WCHAR VBArrayW[] = {'V','B','A','r','r','a','y',0};
  37 static const WCHAR EnumeratorW[] = {'E','n','u','m','e','r','a','t','o','r',0};
  38 static const WCHAR escapeW[] = {'e','s','c','a','p','e',0};
  39 static const WCHAR evalW[] = {'e','v','a','l',0};
  40 static const WCHAR isNaNW[] = {'i','s','N','a','N',0};
  41 static const WCHAR isFiniteW[] = {'i','s','F','i','n','i','t','e',0};
  42 static const WCHAR parseIntW[] = {'p','a','r','s','e','I','n','t',0};
  43 static const WCHAR parseFloatW[] = {'p','a','r','s','e','F','l','o','a','t',0};
  44 static const WCHAR unescapeW[] = {'u','n','e','s','c','a','p','e',0};
  45 static const WCHAR GetObjectW[] = {'G','e','t','O','b','j','e','c','t',0};
  46 static const WCHAR ScriptEngineW[] = {'S','c','r','i','p','t','E','n','g','i','n','e',0};
  47 static const WCHAR ScriptEngineMajorVersionW[] =
  48     {'S','c','r','i','p','t','E','n','g','i','n','e','M','a','j','o','r','V','e','r','s','i','o','n',0};
  49 static const WCHAR ScriptEngineMinorVersionW[] =
  50     {'S','c','r','i','p','t','E','n','g','i','n','e','M','i','n','o','r','V','e','r','s','i','o','n',0};
  51 static const WCHAR ScriptEngineBuildVersionW[] =
  52     {'S','c','r','i','p','t','E','n','g','i','n','e','B','u','i','l','d','V','e','r','s','i','o','n',0};
  53 static const WCHAR CollectGarbageW[] = {'C','o','l','l','e','c','t','G','a','r','b','a','g','e',0};
  54 static const WCHAR MathW[] = {'M','a','t','h',0};
  55
  56 static HRESULT constructor_call(DispatchEx *constr, LCID lcid, WORD flags, DISPPARAMS *dp,
  57         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
  58 {
  59     if(flags != DISPATCH_PROPERTYGET)
  60         return jsdisp_call_value(constr, lcid, flags, dp, retv, ei, sp);
  61
  62     V_VT(retv) = VT_DISPATCH;
  63     V_DISPATCH(retv) = (IDispatch*)_IDispatchEx_(constr);
  64     IDispatchEx_AddRef(_IDispatchEx_(constr));
  65     return S_OK;
  66 }
  67
  68 static HRESULT JSGlobal_NaN(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
  69         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
  70 {
  71     FIXME("\n");
  72     return E_NOTIMPL;
  73 }
  74
  75 static HRESULT JSGlobal_Infinity(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
  76         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
  77 {
  78     FIXME("\n");
  79     return E_NOTIMPL;
  80 }
  81
  82 static HRESULT JSGlobal_Array(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
  83         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
  84 {
  85     TRACE("\n");
  86
  87     return constructor_call(dispex->ctx->array_constr, lcid, flags, dp, retv, ei, sp);
  88 }
  89
  90 static HRESULT JSGlobal_Boolean(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
  91         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
  92 {
  93     TRACE("\n");
  94
  95     return constructor_call(dispex->ctx->bool_constr, lcid, flags, dp, retv, ei, sp);
  96 }
  97
  98 static HRESULT JSGlobal_Date(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
  99         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 100 {
 101     FIXME("\n");
 102     return E_NOTIMPL;
 103 }
 104
 105 static HRESULT JSGlobal_Function(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 106         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 107 {
 108     FIXME("\n");
 109     return E_NOTIMPL;
 110 }
 111
 112 static HRESULT JSGlobal_Number(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 113         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 114 {
 115     TRACE("\n");
 116
 117     return constructor_call(dispex->ctx->number_constr, lcid, flags, dp, retv, ei, sp);
 118 }
 119
 120 static HRESULT JSGlobal_Object(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 121         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 122 {
 123     TRACE("\n");
 124
 125     return constructor_call(dispex->ctx->object_constr, lcid, flags, dp, retv, ei, sp);
 126 }
 127
 128 static HRESULT JSGlobal_String(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 129         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 130 {
 131     TRACE("\n");
 132
 133     return constructor_call(dispex->ctx->string_constr, lcid, flags, dp, retv, ei, sp);
 134 }
 135
 136 static HRESULT JSGlobal_RegExp(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 137         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 138 {
 139     TRACE("\n");
 140
 141     return constructor_call(dispex->ctx->regexp_constr, lcid, flags, dp, retv, ei, sp);
 142 }
 143
 144 static HRESULT JSGlobal_ActiveXObject(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 145         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 146 {
 147     FIXME("\n");
 148     return E_NOTIMPL;
 149 }
 150
 151 static HRESULT JSGlobal_VBArray(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 152         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 153 {
 154     FIXME("\n");
 155     return E_NOTIMPL;
 156 }
 157
 158 static HRESULT JSGlobal_Enumerator(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 159         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 160 {
 161     FIXME("\n");
 162     return E_NOTIMPL;
 163 }
 164
 165 static HRESULT JSGlobal_escape(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 166         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 167 {
 168     FIXME("\n");
 169     return E_NOTIMPL;
 170 }
 171
 172 static HRESULT JSGlobal_eval(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 173         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 174 {
 175     FIXME("\n");
 176     return E_NOTIMPL;
 177 }
 178
 179 static HRESULT JSGlobal_isNaN(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 180         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 181 {
 182     FIXME("\n");
 183     return E_NOTIMPL;
 184 }
 185
 186 static HRESULT JSGlobal_isFinite(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 187         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 188 {
 189     FIXME("\n");
 190     return E_NOTIMPL;
 191 }
 192
 193 static HRESULT JSGlobal_parseInt(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 194         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 195 {
 196     return E_NOTIMPL;
 197 }
 198
 199 static HRESULT JSGlobal_parseFloat(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 200         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 201 {
 202     FIXME("\n");
 203     return E_NOTIMPL;
 204 }
 205
 206 static HRESULT JSGlobal_unescape(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 207         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 208 {
 209     FIXME("\n");
 210     return E_NOTIMPL;
 211 }
 212
 213 static HRESULT JSGlobal_GetObject(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 214         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 215 {
 216     FIXME("\n");
 217     return E_NOTIMPL;
 218 }
 219
 220 static HRESULT JSGlobal_ScriptEngine(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 221         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 222 {
 223     FIXME("\n");
 224     return E_NOTIMPL;
 225 }
 226
 227 static HRESULT JSGlobal_ScriptEngineMajorVersion(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 228         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 229 {
 230     FIXME("\n");
 231     return E_NOTIMPL;
 232 }
 233
 234 static HRESULT JSGlobal_ScriptEngineMinorVersion(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 235         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 236 {
 237     FIXME("\n");
 238     return E_NOTIMPL;
 239 }
 240
 241 static HRESULT JSGlobal_ScriptEngineBuildVersion(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 242         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 243 {
 244     FIXME("\n");
 245     return E_NOTIMPL;
 246 }
 247
 248 static HRESULT JSGlobal_CollectGarbage(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 249         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 250 {
 251     FIXME("\n");
 252     return E_NOTIMPL;
 253 }
 254
 255 static const builtin_prop_t JSGlobal_props[] = {
 256     {ActiveXObjectW,             JSGlobal_ActiveXObject,             PROPF_METHOD},
 257     {ArrayW,                     JSGlobal_Array,                     PROPF_CONSTR},
 258     {BooleanW,                   JSGlobal_Boolean,                   PROPF_CONSTR},
 259     {CollectGarbageW,            JSGlobal_CollectGarbage,            PROPF_METHOD},
 260     {DateW,                      JSGlobal_Date,                      PROPF_CONSTR},
 261     {EnumeratorW,                JSGlobal_Enumerator,                PROPF_METHOD},
 262     {FunctionW,                  JSGlobal_Function,                  PROPF_CONSTR},
 263     {GetObjectW,                 JSGlobal_GetObject,                 PROPF_METHOD},
 264     {InfinityW,                  JSGlobal_Infinity,                  0},
 265 /*  {MathW,                      JSGlobal_Math,                      0},  */
 266     {NaNW,                       JSGlobal_NaN,                       0},
 267     {NumberW,                    JSGlobal_Number,                    PROPF_CONSTR},
 268     {ObjectW,                    JSGlobal_Object,                    PROPF_CONSTR},
 269     {RegExpW,                    JSGlobal_RegExp,                    PROPF_CONSTR},
 270     {ScriptEngineW,              JSGlobal_ScriptEngine,              PROPF_METHOD},
 271     {ScriptEngineBuildVersionW,  JSGlobal_ScriptEngineBuildVersion,  PROPF_METHOD},
 272     {ScriptEngineMajorVersionW,  JSGlobal_ScriptEngineMajorVersion,  PROPF_METHOD},
 273     {ScriptEngineMinorVersionW,  JSGlobal_ScriptEngineMinorVersion,  PROPF_METHOD},
 274     {StringW,                    JSGlobal_String,                    PROPF_CONSTR},
 275     {VBArrayW,                   JSGlobal_VBArray,                   PROPF_METHOD},
 276     {escapeW,                    JSGlobal_escape,                    PROPF_METHOD},
 277     {evalW,                      JSGlobal_eval,                      PROPF_METHOD},
 278     {isFiniteW,                  JSGlobal_isFinite,                  PROPF_METHOD},
 279     {isNaNW,                     JSGlobal_isNaN,                     PROPF_METHOD},
 280     {parseFloatW,                JSGlobal_parseFloat,                PROPF_METHOD},
 281     {parseIntW,                  JSGlobal_parseInt,                  PROPF_METHOD|2},
 282     {unescapeW,                  JSGlobal_unescape,                  PROPF_METHOD}
 283 };
 284
 285 static const builtin_info_t JSGlobal_info = {
 286     JSCLASS_GLOBAL,
 287     {NULL, NULL, 0},
 288     sizeof(JSGlobal_props)/sizeof(*JSGlobal_props),
 289     JSGlobal_props,
 290     NULL,
 291     NULL
 292 };
 293
 294 static HRESULT init_constructors(script_ctx_t *ctx)
 295 {
 296     HRESULT hres;
 297
 298     hres = create_array_constr(ctx, &ctx->array_constr);
 299     if(FAILED(hres))
 300         return hres;
 301
 302     hres = create_bool_constr(ctx, &ctx->bool_constr);
 303     if(FAILED(hres))
 304         return hres;
 305
 306     hres = create_number_constr(ctx, &ctx->number_constr);
 307     if(FAILED(hres))
 308         return hres;
 309
 310     hres = create_object_constr(ctx, &ctx->object_constr);
 311     if(FAILED(hres))
 312         return hres;
 313
 314     hres = create_object_constr(ctx, &ctx->regexp_constr);
 315     if(FAILED(hres))
 316         return hres;
 317
 318     hres = create_string_constr(ctx, &ctx->string_constr);
 319     if(FAILED(hres))
 320         return hres;
 321
 322     return S_OK;
 323 }
 324
 325 HRESULT init_global(script_ctx_t *ctx)
 326 {
 327     DispatchEx *math;
 328     VARIANT var;
 329     HRESULT hres;
 330
 331     if(ctx->global)
 332         return S_OK;
 333
 334     hres = init_constructors(ctx);
 335     if(FAILED(hres))
 336         return hres;
 337
 338     hres = create_dispex(ctx, &JSGlobal_info, NULL, &ctx->global);
 339     if(FAILED(hres))
 340         return hres;
 341
 342     hres = create_math(ctx, &math);
 343     if(FAILED(hres))
 344         return hres;
 345
 346     V_VT(&var) = VT_DISPATCH;
 347     V_DISPATCH(&var) = (IDispatch*)_IDispatchEx_(math);
 348     hres = jsdisp_propput_name(ctx->global, MathW, ctx->lcid, &var, NULL/*FIXME*/, NULL/*FIXME*/);
 349     jsdisp_release(math);
 350
 351     return hres;
 352 }