git.oblomov.eu Git - wine/blob - dlls/jscript/date.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 <limits.h>
  20 #include <math.h>
  21
  22 #include "jscript.h"
  23
  24 #include "wine/debug.h"
  25
  26 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
  27
  28 typedef struct {
  29     DispatchEx dispex;
  30
  31     /* ECMA-262 3rd Edition    15.9.1.1 */
  32     DOUBLE time;
  33 } DateInstance;
  34
  35 static const WCHAR toStringW[] = {'t','o','S','t','r','i','n','g',0};
  36 static const WCHAR toLocaleStringW[] = {'t','o','L','o','c','a','l','e','S','t','r','i','n','g',0};
  37 static const WCHAR hasOwnPropertyW[] = {'h','a','s','O','w','n','P','r','o','p','e','r','t','y',0};
  38 static const WCHAR propertyIsEnumerableW[] =
  39     {'p','r','o','p','e','r','t','y','I','s','E','n','u','m','e','r','a','b','l','e',0};
  40 static const WCHAR isPrototypeOfW[] = {'i','s','P','r','o','t','o','t','y','p','e','O','f',0};
  41 static const WCHAR valueOfW[] = {'v','a','l','u','e','O','f',0};
  42 static const WCHAR toUTCStringW[] = {'t','o','U','T','C','S','t','r','i','n','g',0};
  43 static const WCHAR toDateStringW[] = {'t','o','D','a','t','e','S','t','r','i','n','g',0};
  44 static const WCHAR toTimeStringW[] = {'t','o','T','i','m','e','S','t','r','i','n','g',0};
  45 static const WCHAR toLocaleDateStringW[] = {'t','o','L','o','c','a','l','e','D','a','t','e','S','t','r','i','n','g',0};
  46 static const WCHAR toLocaleTimeStringW[] = {'t','o','L','o','c','a','l','e','T','i','m','e','S','t','r','i','n','g',0};
  47 static const WCHAR getTimeW[] = {'g','e','t','T','i','m','e',0};
  48 static const WCHAR getFullYearW[] = {'g','e','t','F','u','l','l','Y','e','a','r',0};
  49 static const WCHAR getUTCFullYearW[] = {'g','e','t','U','T','C','F','u','l','l','Y','e','a','r',0};
  50 static const WCHAR getMonthW[] = {'g','e','t','M','o','n','t','h',0};
  51 static const WCHAR getUTCMonthW[] = {'g','e','t','U','T','C','M','o','n','t','h',0};
  52 static const WCHAR getDateW[] = {'g','e','t','D','a','t','e',0};
  53 static const WCHAR getUTCDateW[] = {'g','e','t','U','T','C','D','a','t','e',0};
  54 static const WCHAR getDayW[] = {'g','e','t','D','a','y',0};
  55 static const WCHAR getUTCDayW[] = {'g','e','t','U','T','C','D','a','y',0};
  56 static const WCHAR getHoursW[] = {'g','e','t','H','o','u','r','s',0};
  57 static const WCHAR getUTCHoursW[] = {'g','e','t','U','T','C','H','o','u','r','s',0};
  58 static const WCHAR getMinutesW[] = {'g','e','t','M','i','n','u','t','e','s',0};
  59 static const WCHAR getUTCMinutesW[] = {'g','e','t','U','T','C','M','i','n','u','t','e','s',0};
  60 static const WCHAR getSecondsW[] = {'g','e','t','S','e','c','o','n','d','s',0};
  61 static const WCHAR getUTCSecondsW[] = {'g','e','t','U','T','C','S','e','c','o','n','d','s',0};
  62 static const WCHAR getMilisecondsW[] = {'g','e','t','M','i','l','i','s','e','c','o','n','d','s',0};
  63 static const WCHAR getUTCMilisecondsW[] = {'g','e','t','U','T','C','M','i','l','i','s','e','c','o','n','d','s',0};
  64 static const WCHAR getTimezoneOffsetW[] = {'g','e','t','T','i','m','e','z','o','n','e','O','f','f','s','e','t',0};
  65 static const WCHAR setTimeW[] = {'s','e','t','T','i','m','e',0};
  66 static const WCHAR setMilisecondsW[] = {'s','e','t','M','i','l','i','s','e','c','o','n','d','s',0};
  67 static const WCHAR setUTCMilisecondsW[] = {'s','e','t','U','T','C','M','i','l','i','s','e','c','o','n','d','s',0};
  68 static const WCHAR setSecondsW[] = {'s','e','t','S','e','c','o','n','d','s',0};
  69 static const WCHAR setUTCSecondsW[] = {'s','e','t','U','T','C','S','e','c','o','n','d','s',0};
  70 static const WCHAR setMinutesW[] = {'s','e','t','M','i','n','u','t','e','s',0};
  71 static const WCHAR setUTCMinutesW[] = {'s','e','t','U','T','C','M','i','n','u','t','e','s',0};
  72 static const WCHAR setHoursW[] = {'s','e','t','H','o','u','r','s',0};
  73 static const WCHAR setUTCHoursW[] = {'s','e','t','H','o','u','r','s',0};
  74 static const WCHAR setDateW[] = {'s','e','t','D','a','t','e',0};
  75 static const WCHAR setUTCDateW[] = {'s','e','t','U','T','C','D','a','t','e',0};
  76 static const WCHAR setMonthW[] = {'s','e','t','M','o','n','t','h',0};
  77 static const WCHAR setUTCMonthW[] = {'s','e','t','U','T','C','M','o','n','t','h',0};
  78 static const WCHAR setFullYearW[] = {'s','e','t','F','u','l','l','Y','e','a','r',0};
  79 static const WCHAR setUTCFullYearW[] = {'s','e','t','U','T','C','F','u','l','l','Y','e','a','r',0};
  80
  81 /* ECMA-262 3rd Edition    15.9.1.14 */
  82 static inline DOUBLE time_clip(DOUBLE time)
  83 {
  84     if(8.64e15 < time || time < -8.64e15) {
  85         return ret_nan();
  86     }
  87
  88     return floor(time);
  89 }
  90
  91 static HRESULT Date_toString(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
  92         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
  93 {
  94     FIXME("\n");
  95     return E_NOTIMPL;
  96 }
  97
  98 static HRESULT Date_toLocaleString(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
  99         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 100 {
 101     FIXME("\n");
 102     return E_NOTIMPL;
 103 }
 104
 105 static HRESULT Date_hasOwnProperty(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 106         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 107 {
 108     FIXME("\n");
 109     return E_NOTIMPL;
 110 }
 111
 112 static HRESULT Date_propertyIsEnumerable(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 113         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 114 {
 115     FIXME("\n");
 116     return E_NOTIMPL;
 117 }
 118
 119 static HRESULT Date_isPrototypeOf(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 120         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 121 {
 122     FIXME("\n");
 123     return E_NOTIMPL;
 124 }
 125
 126 static HRESULT Date_valueOf(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 127         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 128 {
 129     FIXME("\n");
 130     return E_NOTIMPL;
 131 }
 132
 133 static HRESULT Date_toUTCString(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 134         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 135 {
 136     FIXME("\n");
 137     return E_NOTIMPL;
 138 }
 139
 140 static HRESULT Date_toDateString(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 141         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 142 {
 143     FIXME("\n");
 144     return E_NOTIMPL;
 145 }
 146
 147 static HRESULT Date_toTimeString(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 148         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 149 {
 150     FIXME("\n");
 151     return E_NOTIMPL;
 152 }
 153
 154 static HRESULT Date_toLocaleDateString(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 155         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 156 {
 157     FIXME("\n");
 158     return E_NOTIMPL;
 159 }
 160
 161 static HRESULT Date_toLocaleTimeString(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 162         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 163 {
 164     FIXME("\n");
 165     return E_NOTIMPL;
 166 }
 167
 168 /* ECMA-262 3rd Edition    15.9.5.9 */
 169 static HRESULT Date_getTime(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 170         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 171 {
 172     TRACE("\n");
 173
 174     if(!is_class(dispex, JSCLASS_DATE)) {
 175         FIXME("throw TypeError\n");
 176         return E_FAIL;
 177     }
 178
 179     if(retv) {
 180         DateInstance *date = (DateInstance*)dispex;
 181         num_set_val(retv, date->time);
 182     }
 183     return S_OK;
 184 }
 185
 186 static HRESULT Date_getFullYear(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 187         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 188 {
 189     FIXME("\n");
 190     return E_NOTIMPL;
 191 }
 192
 193 static HRESULT Date_getUTCFullYear(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 194         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 195 {
 196     FIXME("\n");
 197     return E_NOTIMPL;
 198 }
 199
 200 static HRESULT Date_getMonth(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 201         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 202 {
 203     FIXME("\n");
 204     return E_NOTIMPL;
 205 }
 206
 207 static HRESULT Date_getUTCMonth(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 208         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 209 {
 210     FIXME("\n");
 211     return E_NOTIMPL;
 212 }
 213
 214 static HRESULT Date_getDate(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 215         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 216 {
 217     FIXME("\n");
 218     return E_NOTIMPL;
 219 }
 220
 221 static HRESULT Date_getUTCDate(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 222         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 223 {
 224     FIXME("\n");
 225     return E_NOTIMPL;
 226 }
 227
 228 static HRESULT Date_getDay(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 229         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 230 {
 231     FIXME("\n");
 232     return E_NOTIMPL;
 233 }
 234
 235 static HRESULT Date_getUTCDay(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 236         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 237 {
 238     FIXME("\n");
 239     return E_NOTIMPL;
 240 }
 241
 242 static HRESULT Date_getHours(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 243         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 244 {
 245     FIXME("\n");
 246     return E_NOTIMPL;
 247 }
 248
 249 static HRESULT Date_getUTCHours(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 250         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 251 {
 252     FIXME("\n");
 253     return E_NOTIMPL;
 254 }
 255
 256 static HRESULT Date_getMinutes(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 257         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 258 {
 259     FIXME("\n");
 260     return E_NOTIMPL;
 261 }
 262
 263 static HRESULT Date_getUTCMinutes(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 264         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 265 {
 266     FIXME("\n");
 267     return E_NOTIMPL;
 268 }
 269
 270 static HRESULT Date_getSeconds(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 271         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 272 {
 273     FIXME("\n");
 274     return E_NOTIMPL;
 275 }
 276
 277 static HRESULT Date_getUTCSeconds(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 278         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 279 {
 280     FIXME("\n");
 281     return E_NOTIMPL;
 282 }
 283
 284 static HRESULT Date_getMiliseconds(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 285         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 286 {
 287     FIXME("\n");
 288     return E_NOTIMPL;
 289 }
 290
 291 static HRESULT Date_getUTCMiliseconds(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 292         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 293 {
 294     FIXME("\n");
 295     return E_NOTIMPL;
 296 }
 297
 298 static HRESULT Date_getTimezoneOffset(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 299         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 300 {
 301     FIXME("\n");
 302     return E_NOTIMPL;
 303 }
 304
 305 static HRESULT Date_setTime(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 306         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 307 {
 308     FIXME("\n");
 309     return E_NOTIMPL;
 310 }
 311
 312 static HRESULT Date_setMiliseconds(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 313         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 314 {
 315     FIXME("\n");
 316     return E_NOTIMPL;
 317 }
 318
 319 static HRESULT Date_setUTCMiliseconds(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 320         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 321 {
 322     FIXME("\n");
 323     return E_NOTIMPL;
 324 }
 325
 326 static HRESULT Date_setSeconds(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 327         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 328 {
 329     FIXME("\n");
 330     return E_NOTIMPL;
 331 }
 332
 333 static HRESULT Date_setUTCSeconds(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 334         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 335 {
 336     FIXME("\n");
 337     return E_NOTIMPL;
 338 }
 339
 340 static HRESULT Date_setMinutes(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 341         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 342 {
 343     FIXME("\n");
 344     return E_NOTIMPL;
 345 }
 346
 347 static HRESULT Date_setUTCMinutes(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 348         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 349 {
 350     FIXME("\n");
 351     return E_NOTIMPL;
 352 }
 353
 354 static HRESULT Date_setHours(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 355         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 356 {
 357     FIXME("\n");
 358     return E_NOTIMPL;
 359 }
 360
 361 static HRESULT Date_setUTCHours(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 362         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 363 {
 364     FIXME("\n");
 365     return E_NOTIMPL;
 366 }
 367
 368 static HRESULT Date_setDate(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 369         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 370 {
 371     FIXME("\n");
 372     return E_NOTIMPL;
 373 }
 374
 375 static HRESULT Date_setUTCDate(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 376         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 377 {
 378     FIXME("\n");
 379     return E_NOTIMPL;
 380 }
 381
 382 static HRESULT Date_setMonth(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 383         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 384 {
 385     FIXME("\n");
 386     return E_NOTIMPL;
 387 }
 388
 389 static HRESULT Date_setUTCMonth(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 390         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 391 {
 392     FIXME("\n");
 393     return E_NOTIMPL;
 394 }
 395
 396 static HRESULT Date_setFullYear(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 397         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 398 {
 399     FIXME("\n");
 400     return E_NOTIMPL;
 401 }
 402
 403 static HRESULT Date_setUTCFullYear(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 404         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 405 {
 406     FIXME("\n");
 407     return E_NOTIMPL;
 408 }
 409
 410 static HRESULT Date_value(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 411         VARIANT *retv, jsexcept_t *ei, IServiceProvider *caller)
 412 {
 413     FIXME("\n");
 414     return E_NOTIMPL;
 415 }
 416
 417 static const builtin_prop_t Date_props[] = {
 418     {getDateW,               Date_getDate,               PROPF_METHOD},
 419     {getDayW,                Date_getDay,                PROPF_METHOD},
 420     {getFullYearW,           Date_getFullYear,           PROPF_METHOD},
 421     {getHoursW,              Date_getHours,              PROPF_METHOD},
 422     {getMilisecondsW,        Date_getMiliseconds,        PROPF_METHOD},
 423     {getMinutesW,            Date_getMinutes,            PROPF_METHOD},
 424     {getMonthW,              Date_getMonth,              PROPF_METHOD},
 425     {getSecondsW,            Date_getSeconds,            PROPF_METHOD},
 426     {getTimeW,               Date_getTime,               PROPF_METHOD},
 427     {getTimezoneOffsetW,     Date_getTimezoneOffset,     PROPF_METHOD},
 428     {getUTCDateW,            Date_getUTCDate,            PROPF_METHOD},
 429     {getUTCDayW,             Date_getUTCDay,             PROPF_METHOD},
 430     {getUTCFullYearW,        Date_getUTCFullYear,        PROPF_METHOD},
 431     {getUTCHoursW,           Date_getUTCHours,           PROPF_METHOD},
 432     {getUTCMilisecondsW,     Date_getUTCMiliseconds,     PROPF_METHOD},
 433     {getUTCMinutesW,         Date_getUTCMinutes,         PROPF_METHOD},
 434     {getUTCMonthW,           Date_getUTCMonth,           PROPF_METHOD},
 435     {getUTCSecondsW,         Date_getUTCSeconds,         PROPF_METHOD},
 436     {hasOwnPropertyW,        Date_hasOwnProperty,        PROPF_METHOD},
 437     {isPrototypeOfW,         Date_isPrototypeOf,         PROPF_METHOD},
 438     {propertyIsEnumerableW,  Date_propertyIsEnumerable,  PROPF_METHOD},
 439     {setDateW,               Date_setDate,               PROPF_METHOD},
 440     {setFullYearW,           Date_setFullYear,           PROPF_METHOD},
 441     {setHoursW,              Date_setHours,              PROPF_METHOD},
 442     {setMilisecondsW,        Date_setMiliseconds,        PROPF_METHOD},
 443     {setMinutesW,            Date_setMinutes,            PROPF_METHOD},
 444     {setMonthW,              Date_setMonth,              PROPF_METHOD},
 445     {setSecondsW,            Date_setSeconds,            PROPF_METHOD},
 446     {setTimeW,               Date_setTime,               PROPF_METHOD},
 447     {setUTCDateW,            Date_setUTCDate,            PROPF_METHOD},
 448     {setUTCFullYearW,        Date_setUTCFullYear,        PROPF_METHOD},
 449     {setUTCHoursW,           Date_setUTCHours,           PROPF_METHOD},
 450     {setUTCMilisecondsW,     Date_setUTCMiliseconds,     PROPF_METHOD},
 451     {setUTCMinutesW,         Date_setUTCMinutes,         PROPF_METHOD},
 452     {setUTCMonthW,           Date_setUTCMonth,           PROPF_METHOD},
 453     {setUTCSecondsW,         Date_setUTCSeconds,         PROPF_METHOD},
 454     {toDateStringW,          Date_toDateString,          PROPF_METHOD},
 455     {toLocaleDateStringW,    Date_toLocaleDateString,    PROPF_METHOD},
 456     {toLocaleStringW,        Date_toLocaleString,        PROPF_METHOD},
 457     {toLocaleTimeStringW,    Date_toLocaleTimeString,    PROPF_METHOD},
 458     {toStringW,              Date_toString,              PROPF_METHOD},
 459     {toTimeStringW,          Date_toTimeString,          PROPF_METHOD},
 460     {toUTCStringW,           Date_toUTCString,           PROPF_METHOD},
 461     {valueOfW,               Date_valueOf,               PROPF_METHOD},
 462 };
 463
 464 static const builtin_info_t Date_info = {
 465     JSCLASS_DATE,
 466     {NULL, Date_value, 0},
 467     sizeof(Date_props)/sizeof(*Date_props),
 468     Date_props,
 469     NULL,
 470     NULL
 471 };
 472
 473 static HRESULT create_date(script_ctx_t *ctx, BOOL use_constr, DOUBLE time, DispatchEx **ret)
 474 {
 475     DateInstance *date;
 476     HRESULT hres;
 477
 478     date = heap_alloc_zero(sizeof(DateInstance));
 479     if(!date)
 480         return E_OUTOFMEMORY;
 481
 482     if(use_constr)
 483         hres = init_dispex_from_constr(&date->dispex, ctx, &Date_info, ctx->date_constr);
 484     else
 485         hres = init_dispex(&date->dispex, ctx, &Date_info, NULL);
 486     if(FAILED(hres)) {
 487         heap_free(date);
 488         return hres;
 489     }
 490
 491     date->time = time;
 492
 493     *ret = &date->dispex;
 494     return S_OK;
 495 }
 496
 497 static HRESULT DateConstr_value(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
 498         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 499 {
 500     DispatchEx *date;
 501     HRESULT hres;
 502
 503     TRACE("\n");
 504
 505     switch(flags) {
 506     case DISPATCH_CONSTRUCT:
 507         switch(arg_cnt(dp)) {
 508         /* ECMA-262 3rd Edition    15.9.3.3 */
 509         case 0: {
 510             FILETIME time;
 511
 512             GetSystemTimeAsFileTime(&time);
 513
 514             hres = create_date(dispex->ctx, TRUE,
 515                    floor((DOUBLE)(time.dwLowDateTime/1e6) + (DOUBLE)time.dwHighDateTime*((DOUBLE)UINT_MAX+1.0)/1.e6),
 516                    &date);
 517             if(FAILED(hres))
 518                 return hres;
 519             break;
 520         }
 521
 522         /* ECMA-262 3rd Edition    15.9.3.2 */
 523         case 1: {
 524             VARIANT prim, num;
 525
 526             hres = to_primitive(dispex->ctx, get_arg(dp,0), ei, &prim);
 527             if(FAILED(hres))
 528                 return hres;
 529
 530             if(V_VT(&prim) == VT_BSTR) {
 531                 FIXME("VT_BSTR not supported\n");
 532                 return E_NOTIMPL;
 533             }
 534
 535             hres = to_number(dispex->ctx, &prim, ei, &num);
 536             VariantClear(&prim);
 537             if(FAILED(hres))
 538                 return hres;
 539
 540             hres = create_date(dispex->ctx, TRUE, time_clip(num_val(&num)), &date);
 541             if(FAILED(hres))
 542                 return hres;
 543             break;
 544         }
 545
 546         default:
 547             FIXME("unimplemented argcnt %d\n", arg_cnt(dp));
 548             return E_NOTIMPL;
 549         }
 550
 551         V_VT(retv) = VT_DISPATCH;
 552         V_DISPATCH(retv) = (IDispatch*)_IDispatchEx_(date);
 553         return S_OK;
 554
 555     default:
 556         FIXME("unimplemented flags %x\n", flags);
 557         return E_NOTIMPL;
 558     }
 559
 560     return S_OK;
 561 }
 562
 563 HRESULT create_date_constr(script_ctx_t *ctx, DispatchEx **ret)
 564 {
 565     DispatchEx *date;
 566     HRESULT hres;
 567
 568     hres = create_date(ctx, FALSE, 0.0, &date);
 569     if(FAILED(hres))
 570         return hres;
 571
 572     hres = create_builtin_function(ctx, DateConstr_value, PROPF_CONSTR, date, ret);
 573
 574     jsdisp_release(date);
 575     return hres;
 576 }