git.oblomov.eu Git - wine/blob - dlls/jscript/date.c

   1 /*
   2  * Copyright 2008 Jacek Caban for CodeWeavers
   3  * Copyright 2009 Piotr Caban
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2.1 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  18  */
  19
  20 #include "config.h"
  21 #include "wine/port.h"
  22
  23 #include <limits.h>
  24 #include <math.h>
  25 #include <assert.h>
  26
  27 #include "jscript.h"
  28
  29 #include "wine/debug.h"
  30
  31 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
  32
  33 /* 1601 to 1970 is 369 years plus 89 leap days */
  34 #define TIME_EPOCH  ((ULONGLONG)(369 * 365 + 89) * 86400 * 1000)
  35
  36 typedef struct {
  37     jsdisp_t dispex;
  38
  39     /* ECMA-262 3rd Edition    15.9.1.1 */
  40     DOUBLE time;
  41
  42     LONG bias;
  43     SYSTEMTIME standardDate;
  44     LONG standardBias;
  45     SYSTEMTIME daylightDate;
  46     LONG daylightBias;
  47 } DateInstance;
  48
  49 static const WCHAR toStringW[] = {'t','o','S','t','r','i','n','g',0};
  50 static const WCHAR toLocaleStringW[] = {'t','o','L','o','c','a','l','e','S','t','r','i','n','g',0};
  51 static const WCHAR propertyIsEnumerableW[] =
  52     {'p','r','o','p','e','r','t','y','I','s','E','n','u','m','e','r','a','b','l','e',0};
  53 static const WCHAR isPrototypeOfW[] = {'i','s','P','r','o','t','o','t','y','p','e','O','f',0};
  54 static const WCHAR valueOfW[] = {'v','a','l','u','e','O','f',0};
  55 static const WCHAR toUTCStringW[] = {'t','o','U','T','C','S','t','r','i','n','g',0};
  56 static const WCHAR toGMTStringW[] = {'t','o','G','M','T','S','t','r','i','n','g',0};
  57 static const WCHAR toDateStringW[] = {'t','o','D','a','t','e','S','t','r','i','n','g',0};
  58 static const WCHAR toTimeStringW[] = {'t','o','T','i','m','e','S','t','r','i','n','g',0};
  59 static const WCHAR toLocaleDateStringW[] = {'t','o','L','o','c','a','l','e','D','a','t','e','S','t','r','i','n','g',0};
  60 static const WCHAR toLocaleTimeStringW[] = {'t','o','L','o','c','a','l','e','T','i','m','e','S','t','r','i','n','g',0};
  61 static const WCHAR getTimeW[] = {'g','e','t','T','i','m','e',0};
  62 static const WCHAR getFullYearW[] = {'g','e','t','F','u','l','l','Y','e','a','r',0};
  63 static const WCHAR getUTCFullYearW[] = {'g','e','t','U','T','C','F','u','l','l','Y','e','a','r',0};
  64 static const WCHAR getMonthW[] = {'g','e','t','M','o','n','t','h',0};
  65 static const WCHAR getUTCMonthW[] = {'g','e','t','U','T','C','M','o','n','t','h',0};
  66 static const WCHAR getDateW[] = {'g','e','t','D','a','t','e',0};
  67 static const WCHAR getUTCDateW[] = {'g','e','t','U','T','C','D','a','t','e',0};
  68 static const WCHAR getDayW[] = {'g','e','t','D','a','y',0};
  69 static const WCHAR getUTCDayW[] = {'g','e','t','U','T','C','D','a','y',0};
  70 static const WCHAR getHoursW[] = {'g','e','t','H','o','u','r','s',0};
  71 static const WCHAR getUTCHoursW[] = {'g','e','t','U','T','C','H','o','u','r','s',0};
  72 static const WCHAR getMinutesW[] = {'g','e','t','M','i','n','u','t','e','s',0};
  73 static const WCHAR getUTCMinutesW[] = {'g','e','t','U','T','C','M','i','n','u','t','e','s',0};
  74 static const WCHAR getSecondsW[] = {'g','e','t','S','e','c','o','n','d','s',0};
  75 static const WCHAR getUTCSecondsW[] = {'g','e','t','U','T','C','S','e','c','o','n','d','s',0};
  76 static const WCHAR getMillisecondsW[] = {'g','e','t','M','i','l','l','i','s','e','c','o','n','d','s',0};
  77 static const WCHAR getUTCMillisecondsW[] = {'g','e','t','U','T','C','M','i','l','l','i','s','e','c','o','n','d','s',0};
  78 static const WCHAR getTimezoneOffsetW[] = {'g','e','t','T','i','m','e','z','o','n','e','O','f','f','s','e','t',0};
  79 static const WCHAR setTimeW[] = {'s','e','t','T','i','m','e',0};
  80 static const WCHAR setMillisecondsW[] = {'s','e','t','M','i','l','l','i','s','e','c','o','n','d','s',0};
  81 static const WCHAR setUTCMillisecondsW[] = {'s','e','t','U','T','C','M','i','l','l','i','s','e','c','o','n','d','s',0};
  82 static const WCHAR setSecondsW[] = {'s','e','t','S','e','c','o','n','d','s',0};
  83 static const WCHAR setUTCSecondsW[] = {'s','e','t','U','T','C','S','e','c','o','n','d','s',0};
  84 static const WCHAR setMinutesW[] = {'s','e','t','M','i','n','u','t','e','s',0};
  85 static const WCHAR setUTCMinutesW[] = {'s','e','t','U','T','C','M','i','n','u','t','e','s',0};
  86 static const WCHAR setHoursW[] = {'s','e','t','H','o','u','r','s',0};
  87 static const WCHAR setUTCHoursW[] = {'s','e','t','U','T','C','H','o','u','r','s',0};
  88 static const WCHAR setDateW[] = {'s','e','t','D','a','t','e',0};
  89 static const WCHAR setUTCDateW[] = {'s','e','t','U','T','C','D','a','t','e',0};
  90 static const WCHAR setMonthW[] = {'s','e','t','M','o','n','t','h',0};
  91 static const WCHAR setUTCMonthW[] = {'s','e','t','U','T','C','M','o','n','t','h',0};
  92 static const WCHAR setFullYearW[] = {'s','e','t','F','u','l','l','Y','e','a','r',0};
  93 static const WCHAR setUTCFullYearW[] = {'s','e','t','U','T','C','F','u','l','l','Y','e','a','r',0};
  94 static const WCHAR getYearW[] = {'g','e','t','Y','e','a','r',0};
  95 static const WCHAR setYearW[] = {'s','e','t','Y','e','a','r',0};
  96
  97 static const WCHAR UTCW[] = {'U','T','C',0};
  98 static const WCHAR parseW[] = {'p','a','r','s','e',0};
  99
 100 static inline DateInstance *date_this(vdisp_t *jsthis)
 101 {
 102     return is_vclass(jsthis, JSCLASS_DATE) ? (DateInstance*)jsthis->u.jsdisp : NULL;
 103 }
 104
 105 /*ECMA-262 3rd Edition    15.9.1.2 */
 106 #define MS_PER_DAY 86400000
 107 #define MS_PER_HOUR 3600000
 108 #define MS_PER_MINUTE 60000
 109
 110 /* ECMA-262 3rd Edition    15.9.1.2 */
 111 static inline DOUBLE day(DOUBLE time)
 112 {
 113     return floor(time / MS_PER_DAY);
 114 }
 115
 116 /* ECMA-262 3rd Edition    15.9.1.2 */
 117 static inline DOUBLE time_within_day(DOUBLE time)
 118 {
 119     DOUBLE ret;
 120
 121     ret = fmod(time, MS_PER_DAY);
 122     if(ret < 0)
 123         ret += MS_PER_DAY;
 124
 125     return ret;
 126 }
 127
 128 /* ECMA-262 3rd Edition    15.9.1.3 */
 129 static inline DOUBLE days_in_year(DOUBLE year)
 130 {
 131     int y;
 132
 133     if(year != (int)year)
 134         return NAN;
 135
 136     y = year;
 137     if(y%4 != 0) return 365;
 138     if(y%100 != 0) return 366;
 139     if(y%400 != 0) return 365;
 140     return 366;
 141 }
 142
 143 /* ECMA-262 3rd Edition    15.9.1.3 */
 144 static inline DOUBLE day_from_year(DOUBLE year)
 145 {
 146     if(year != (int)year)
 147         return NAN;
 148
 149     return floor(365.0*(year-1970) + floor((year-1969)/4)
 150         - floor((year-1901)/100) + floor((year-1601)/400));
 151 }
 152
 153 static inline int day_from_month(int month, int in_leap_year)
 154 {
 155     switch(month)
 156     {
 157         case 0:
 158             return 0;
 159         case 1:
 160             return 31;
 161         case 2:
 162             return 59+in_leap_year;
 163         case 3:
 164             return 90+in_leap_year;
 165         case 4:
 166             return 120+in_leap_year;
 167         case 5:
 168             return 151+in_leap_year;
 169         case 6:
 170             return 181+in_leap_year;
 171         case 7:
 172             return 212+in_leap_year;
 173         case 8:
 174             return 243+in_leap_year;
 175         case 9:
 176             return 273+in_leap_year;
 177         case 10:
 178             return 304+in_leap_year;
 179         default:
 180             return 334+in_leap_year;
 181     }
 182 }
 183
 184 /* ECMA-262 3rd Edition    15.9.1.3 */
 185 static inline DOUBLE time_from_year(DOUBLE year)
 186 {
 187     return MS_PER_DAY*day_from_year(year);
 188 }
 189
 190 /* ECMA-262 3rd Edition    15.9.1.3 */
 191 static inline DOUBLE year_from_time(DOUBLE time)
 192 {
 193     int y;
 194
 195     if(isnan(time))
 196         return NAN;
 197
 198     y = 1970 + time/365.25/MS_PER_DAY;
 199
 200     if(time_from_year(y) > time)
 201         while(time_from_year(y) > time) y--;
 202     else
 203         while(time_from_year(y+1)<=time) y++;
 204
 205     return y;
 206 }
 207
 208 /* ECMA-262 3rd Edition    15.9.1.3 */
 209 static inline int in_leap_year(DOUBLE time)
 210 {
 211     if(days_in_year(year_from_time(time))==366)
 212         return 1;
 213     return 0;
 214 }
 215
 216 /* ECMA-262 3rd Edition    15.9.1.4 */
 217 static inline int day_within_year(DOUBLE time)
 218 {
 219     return day(time) - day_from_year(year_from_time(time));
 220 }
 221
 222 /* ECMA-262 3rd Edition    15.9.1.4 */
 223 static inline DOUBLE month_from_time(DOUBLE time)
 224 {
 225     int ily = in_leap_year(time);
 226     int dwy = day_within_year(time);
 227
 228     if(isnan(time))
 229         return NAN;
 230
 231     if(0<=dwy && dwy<31) return 0;
 232     if(dwy < 59+ily) return 1;
 233     if(dwy < 90+ily) return 2;
 234     if(dwy < 120+ily) return 3;
 235     if(dwy < 151+ily) return 4;
 236     if(dwy < 181+ily) return 5;
 237     if(dwy < 212+ily) return 6;
 238     if(dwy < 243+ily) return 7;
 239     if(dwy < 273+ily) return 8;
 240     if(dwy < 304+ily) return  9;
 241     if(dwy < 334+ily) return  10;
 242     return  11;
 243 }
 244
 245 /* ECMA-262 3rd Edition    15.9.1.5 */
 246 static inline DOUBLE date_from_time(DOUBLE time)
 247 {
 248     int dwy = day_within_year(time);
 249     int ily = in_leap_year(time);
 250     int mft = month_from_time(time);
 251
 252     if(isnan(time))
 253         return NAN;
 254
 255     if(mft==0) return dwy+1;
 256     if(mft==1) return dwy-30;
 257     if(mft==2) return dwy-58-ily;
 258     if(mft==3) return dwy-89-ily;
 259     if(mft==4) return dwy-119-ily;
 260     if(mft==5) return dwy-150-ily;
 261     if(mft==6) return dwy-180-ily;
 262     if(mft==7) return dwy-211-ily;
 263     if(mft==8) return dwy-242-ily;
 264     if(mft==9) return dwy-272-ily;
 265     if(mft==10) return dwy-303-ily;
 266     return dwy-333-ily;
 267 }
 268
 269 /* ECMA-262 3rd Edition    15.9.1.6 */
 270 static inline DOUBLE week_day(DOUBLE time)
 271 {
 272     DOUBLE ret;
 273
 274     if(isnan(time))
 275         return NAN;
 276
 277     ret = fmod(day(time)+4, 7);
 278     if(ret<0) ret += 7;
 279
 280     return ret;
 281 }
 282
 283 static inline DOUBLE convert_time(int year, SYSTEMTIME st)
 284 {
 285     DOUBLE time;
 286     int set_week_day;
 287
 288     if(st.wMonth == 0)
 289         return NAN;
 290
 291     if(st.wYear != 0)
 292         year = st.wYear;
 293
 294     time = time_from_year(year);
 295     time += (DOUBLE)day_from_month(st.wMonth-1, in_leap_year(time)) * MS_PER_DAY;
 296
 297     if(st.wYear == 0) {
 298         set_week_day = st.wDayOfWeek-week_day(time);
 299         if(set_week_day < 0)
 300             set_week_day += 7;
 301         time += set_week_day * MS_PER_DAY;
 302
 303         time += (DOUBLE)(st.wDay-1) * 7 * MS_PER_DAY;
 304         if(month_from_time(time) != st.wMonth-1)
 305             time -= 7 * MS_PER_DAY;
 306     }
 307     else
 308         time += st.wDay * MS_PER_DAY;
 309
 310     time += st.wHour * MS_PER_HOUR;
 311     time += st.wMinute * MS_PER_MINUTE;
 312
 313     return time;
 314 }
 315
 316 /* ECMA-262 3rd Edition    15.9.1.9 */
 317 static inline DOUBLE daylight_saving_ta(DOUBLE time, DateInstance *date)
 318 {
 319     int year = year_from_time(time);
 320     DOUBLE standardTime, daylightTime;
 321
 322     if(isnan(time))
 323         return 0;
 324
 325     standardTime = convert_time(year, date->standardDate);
 326     daylightTime = convert_time(year, date->daylightDate);
 327
 328     if(isnan(standardTime) || isnan(daylightTime))
 329         return 0;
 330     else if(standardTime > daylightTime) {
 331         if(daylightTime <= time && time < standardTime)
 332             return date->daylightBias;
 333
 334         return date->standardBias;
 335     }
 336     else {
 337         if(standardTime <= time && time < daylightTime)
 338             return date->standardBias;
 339
 340         return date->daylightBias;
 341     }
 342 }
 343
 344 /* ECMA-262 3rd Edition    15.9.1.9 */
 345 static inline DOUBLE local_time(DOUBLE time, DateInstance *date)
 346 {
 347     return time - (daylight_saving_ta(time, date)+date->bias)*MS_PER_MINUTE;
 348 }
 349
 350 /* ECMA-262 3rd Edition    15.9.1.9 */
 351 static inline DOUBLE utc(DOUBLE time, DateInstance *date)
 352 {
 353     time += date->bias * MS_PER_MINUTE;
 354     return time + daylight_saving_ta(time, date)*MS_PER_MINUTE;
 355 }
 356
 357 /* ECMA-262 3rd Edition    15.9.1.10 */
 358 static inline DOUBLE hour_from_time(DOUBLE time)
 359 {
 360     DOUBLE ret;
 361
 362     if(isnan(time))
 363         return NAN;
 364
 365     ret = fmod(floor(time/MS_PER_HOUR), 24);
 366     if(ret<0) ret += 24;
 367
 368     return ret;
 369 }
 370
 371 /* ECMA-262 3rd Edition    15.9.1.10 */
 372 static inline DOUBLE min_from_time(DOUBLE time)
 373 {
 374     DOUBLE ret;
 375
 376     if(isnan(time))
 377         return NAN;
 378
 379     ret = fmod(floor(time/MS_PER_MINUTE), 60);
 380     if(ret<0) ret += 60;
 381
 382     return ret;
 383 }
 384
 385 /* ECMA-262 3rd Edition    15.9.1.10 */
 386 static inline DOUBLE sec_from_time(DOUBLE time)
 387 {
 388     DOUBLE ret;
 389
 390     if(isnan(time))
 391         return NAN;
 392
 393     ret = fmod(floor(time/1000), 60);
 394     if(ret<0) ret += 60;
 395
 396     return ret;
 397 }
 398
 399 /* ECMA-262 3rd Edition    15.9.1.10 */
 400 static inline DOUBLE ms_from_time(DOUBLE time)
 401 {
 402     DOUBLE ret;
 403
 404     if(isnan(time))
 405         return NAN;
 406
 407     ret = fmod(time, 1000);
 408     if(ret<0) ret += 1000;
 409
 410     return ret;
 411 }
 412
 413 /* ECMA-262 3rd Edition    15.9.1.11 */
 414 static inline DOUBLE make_time(DOUBLE hour, DOUBLE min, DOUBLE sec, DOUBLE ms)
 415 {
 416     return hour*MS_PER_HOUR + min*MS_PER_MINUTE + sec*1000 + ms;
 417 }
 418
 419 /* ECMA-262 3rd Edition    15.9.1.12 */
 420 static inline DOUBLE make_day(DOUBLE year, DOUBLE month, DOUBLE day)
 421 {
 422     DOUBLE time;
 423
 424     year += floor(month/12);
 425
 426     month = fmod(month, 12);
 427     if(month<0) month += 12;
 428
 429     time = time_from_year(year);
 430
 431     day += floor(time / MS_PER_DAY);
 432     day += day_from_month(month, in_leap_year(time));
 433
 434     return day-1;
 435 }
 436
 437 /* ECMA-262 3rd Edition    15.9.1.13 */
 438 static inline DOUBLE make_date(DOUBLE day, DOUBLE time)
 439 {
 440     return day*MS_PER_DAY + time;
 441 }
 442
 443 /* ECMA-262 3rd Edition    15.9.1.14 */
 444 static inline DOUBLE time_clip(DOUBLE time)
 445 {
 446     if(8.64e15 < time || time < -8.64e15) {
 447         return NAN;
 448     }
 449
 450     return floor(time);
 451 }
 452
 453 static SYSTEMTIME create_systemtime(DOUBLE time)
 454 {
 455     SYSTEMTIME st;
 456
 457     st.wYear = year_from_time(time);
 458     st.wMonth = month_from_time(time) + 1;
 459     st.wDayOfWeek = week_day(time);
 460     st.wDay = date_from_time(time);
 461     st.wHour = hour_from_time(time);
 462     st.wMinute = min_from_time(time);
 463     st.wSecond = sec_from_time(time);
 464     st.wMilliseconds = ms_from_time(time);
 465
 466     return st;
 467 }
 468
 469 static inline HRESULT date_to_string(DOUBLE time, BOOL show_offset, int offset, jsval_t *r)
 470 {
 471     static const WCHAR formatW[] = { '%','s',' ','%','s',' ','%','d',' ',
 472         '%','0','2','d',':','%','0','2','d',':','%','0','2','d',' ',
 473         'U','T','C','%','c','%','0','2','d','%','0','2','d',' ','%','d','%','s',0 };
 474     static const WCHAR formatUTCW[] = { '%','s',' ','%','s',' ','%','d',' ',
 475         '%','0','2','d',':','%','0','2','d',':','%','0','2','d',' ',
 476         'U','T','C',' ','%','d','%','s',0 };
 477     static const WCHAR formatNoOffsetW[] = { '%','s',' ','%','s',' ',
 478         '%','d',' ','%','0','2','d',':','%','0','2','d',':',
 479         '%','0','2','d',' ','%','d','%','s',0 };
 480     static const WCHAR ADW[] = { 0 };
 481     static const WCHAR BCW[] = { ' ','B','.','C','.',0 };
 482
 483     static const DWORD week_ids[] = { LOCALE_SABBREVDAYNAME7, LOCALE_SABBREVDAYNAME1,
 484         LOCALE_SABBREVDAYNAME2, LOCALE_SABBREVDAYNAME3, LOCALE_SABBREVDAYNAME4,
 485         LOCALE_SABBREVDAYNAME5, LOCALE_SABBREVDAYNAME6 };
 486     static const DWORD month_ids[] = { LOCALE_SABBREVMONTHNAME1, LOCALE_SABBREVMONTHNAME2,
 487         LOCALE_SABBREVMONTHNAME3, LOCALE_SABBREVMONTHNAME4,
 488         LOCALE_SABBREVMONTHNAME5, LOCALE_SABBREVMONTHNAME6,
 489         LOCALE_SABBREVMONTHNAME7, LOCALE_SABBREVMONTHNAME8,
 490         LOCALE_SABBREVMONTHNAME9, LOCALE_SABBREVMONTHNAME10,
 491         LOCALE_SABBREVMONTHNAME11, LOCALE_SABBREVMONTHNAME12 };
 492
 493     BOOL formatAD = TRUE;
 494     WCHAR week[64], month[64];
 495     jsstr_t *date_jsstr;
 496     int len, size, year, day;
 497     DWORD lcid_en;
 498     WCHAR sign = '-';
 499
 500     if(isnan(time)) {
 501         if(r)
 502             *r = jsval_string(jsstr_nan());
 503         return S_OK;
 504     }
 505
 506     if(r) {
 507         WCHAR *date_str;
 508
 509         len = 21;
 510
 511         lcid_en = MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT);
 512
 513         size = GetLocaleInfoW(lcid_en, week_ids[(int)week_day(time)], week, sizeof(week)/sizeof(*week));
 514         assert(size);
 515         len += size-1;
 516
 517         size = GetLocaleInfoW(lcid_en, month_ids[(int)month_from_time(time)], month, sizeof(month)/sizeof(*month));
 518         len += size-1;
 519
 520         year = year_from_time(time);
 521         if(year<0)
 522             year = -year+1;
 523         do {
 524             year /= 10;
 525             len++;
 526         } while(year);
 527
 528         year = year_from_time(time);
 529         if(year<0) {
 530             formatAD = FALSE;
 531             year = -year+1;
 532             len += 5;
 533         }
 534
 535         day = date_from_time(time);
 536         do {
 537             day /= 10;
 538             len++;
 539         } while(day);
 540         day = date_from_time(time);
 541
 542         if(!show_offset) len -= 9;
 543         else if(offset == 0) len -= 5;
 544         else if(offset < 0) {
 545             sign = '+';
 546             offset = -offset;
 547         }
 548
 549         date_str = jsstr_alloc_buf(len, &date_jsstr);
 550         if(!date_str)
 551             return E_OUTOFMEMORY;
 552
 553         if(!show_offset)
 554             sprintfW(date_str, formatNoOffsetW, week, month, day,
 555                     (int)hour_from_time(time), (int)min_from_time(time),
 556                     (int)sec_from_time(time), year, formatAD?ADW:BCW);
 557         else if(offset)
 558             sprintfW(date_str, formatW, week, month, day,
 559                     (int)hour_from_time(time), (int)min_from_time(time),
 560                     (int)sec_from_time(time), sign, offset/60, offset%60,
 561                     year, formatAD?ADW:BCW);
 562         else
 563             sprintfW(date_str, formatUTCW, week, month, day,
 564                     (int)hour_from_time(time), (int)min_from_time(time),
 565                     (int)sec_from_time(time), year, formatAD?ADW:BCW);
 566
 567         *r = jsval_string(date_jsstr);
 568     }
 569     return S_OK;
 570 }
 571
 572 /* ECMA-262 3rd Edition    15.9.1.2 */
 573 static HRESULT dateobj_to_string(DateInstance *date, jsval_t *r)
 574 {
 575     DOUBLE time;
 576     int offset;
 577
 578     time = local_time(date->time, date);
 579     offset = date->bias +
 580         daylight_saving_ta(time, date);
 581
 582     return date_to_string(time, TRUE, offset, r);
 583 }
 584
 585 static HRESULT Date_toString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
 586 {
 587     DateInstance *date;
 588
 589     TRACE("\n");
 590
 591     if(!(date = date_this(jsthis)))
 592         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
 593
 594     return dateobj_to_string(date, r);
 595 }
 596
 597 /* ECMA-262 3rd Edition    15.9.1.5 */
 598 static HRESULT Date_toLocaleString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 599         jsval_t *r)
 600 {
 601     SYSTEMTIME st;
 602     DateInstance *date;
 603     jsstr_t *date_str;
 604     int date_len, time_len;
 605
 606     TRACE("\n");
 607
 608     if(!(date = date_this(jsthis)))
 609         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
 610
 611     if(isnan(date->time)) {
 612         if(r)
 613             *r = jsval_string(jsstr_nan());
 614         return S_OK;
 615     }
 616
 617     st = create_systemtime(local_time(date->time, date));
 618
 619     if(st.wYear<1601 || st.wYear>9999)
 620         return dateobj_to_string(date, r);
 621
 622     if(r) {
 623         WCHAR *ptr;
 624
 625         date_len = GetDateFormatW(ctx->lcid, DATE_LONGDATE, &st, NULL, NULL, 0);
 626         time_len = GetTimeFormatW(ctx->lcid, 0, &st, NULL, NULL, 0);
 627
 628         ptr = jsstr_alloc_buf(date_len+time_len-1, &date_str);
 629         if(!date_str)
 630             return E_OUTOFMEMORY;
 631
 632         GetDateFormatW(ctx->lcid, DATE_LONGDATE, &st, NULL, ptr, date_len);
 633         GetTimeFormatW(ctx->lcid, 0, &st, NULL, ptr+date_len, time_len);
 634         ptr[date_len-1] = ' ';
 635
 636         *r = jsval_string(date_str);
 637     }
 638     return S_OK;
 639 }
 640
 641 static HRESULT Date_valueOf(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 642         jsval_t *r)
 643 {
 644     DateInstance *date;
 645
 646     TRACE("\n");
 647
 648     if(!(date = date_this(jsthis)))
 649         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
 650
 651     if(r)
 652         *r = jsval_number(date->time);
 653     return S_OK;
 654 }
 655
 656 static inline HRESULT create_utc_string(script_ctx_t *ctx, vdisp_t *jsthis, jsval_t *r)
 657 {
 658     static const WCHAR formatADW[] = { '%','s',',',' ','%','d',' ','%','s',' ','%','d',' ',
 659         '%','0','2','d',':','%','0','2','d',':','%','0','2','d',' ','U','T','C',0 };
 660     static const WCHAR formatBCW[] = { '%','s',',',' ','%','d',' ','%','s',' ','%','d',' ','B','.','C','.',' ',
 661         '%','0','2','d',':','%','0','2','d',':','%','0','2','d',' ','U','T','C',0 };
 662
 663     static const DWORD week_ids[] = { LOCALE_SABBREVDAYNAME7, LOCALE_SABBREVDAYNAME1,
 664         LOCALE_SABBREVDAYNAME2, LOCALE_SABBREVDAYNAME3, LOCALE_SABBREVDAYNAME4,
 665         LOCALE_SABBREVDAYNAME5, LOCALE_SABBREVDAYNAME6 };
 666     static const DWORD month_ids[] = { LOCALE_SABBREVMONTHNAME1, LOCALE_SABBREVMONTHNAME2,
 667         LOCALE_SABBREVMONTHNAME3, LOCALE_SABBREVMONTHNAME4,
 668         LOCALE_SABBREVMONTHNAME5, LOCALE_SABBREVMONTHNAME6,
 669         LOCALE_SABBREVMONTHNAME7, LOCALE_SABBREVMONTHNAME8,
 670         LOCALE_SABBREVMONTHNAME9, LOCALE_SABBREVMONTHNAME10,
 671         LOCALE_SABBREVMONTHNAME11, LOCALE_SABBREVMONTHNAME12 };
 672
 673     BOOL formatAD = TRUE;
 674     WCHAR week[64], month[64];
 675     DateInstance *date;
 676     jsstr_t *date_str;
 677     int len, size, year, day;
 678     DWORD lcid_en;
 679
 680     if(!(date = date_this(jsthis)))
 681         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
 682
 683     if(isnan(date->time)) {
 684         if(r)
 685             *r = jsval_string(jsstr_nan());
 686         return S_OK;
 687     }
 688
 689     if(r) {
 690         WCHAR *ptr;
 691
 692         len = 17;
 693
 694         lcid_en = MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT);
 695
 696         size = GetLocaleInfoW(lcid_en, week_ids[(int)week_day(date->time)], week, sizeof(week)/sizeof(*week));
 697         len += size-1;
 698
 699         size = GetLocaleInfoW(lcid_en, month_ids[(int)month_from_time(date->time)], month, sizeof(month)/sizeof(*month));
 700         len += size-1;
 701
 702         year = year_from_time(date->time);
 703         if(year<0)
 704             year = -year+1;
 705         do {
 706             year /= 10;
 707             len++;
 708         } while(year);
 709
 710         year = year_from_time(date->time);
 711         if(year<0) {
 712             formatAD = FALSE;
 713             year = -year+1;
 714             len += 5;
 715         }
 716
 717         day = date_from_time(date->time);
 718         do {
 719             day /= 10;
 720             len++;
 721         } while(day);
 722         day = date_from_time(date->time);
 723
 724         ptr = jsstr_alloc_buf(len, &date_str);
 725         if(!date_str)
 726             return E_OUTOFMEMORY;
 727
 728         sprintfW(ptr, formatAD?formatADW:formatBCW, week, day, month, year,
 729                 (int)hour_from_time(date->time), (int)min_from_time(date->time),
 730                 (int)sec_from_time(date->time));
 731
 732         *r = jsval_string(date_str);
 733     }
 734     return S_OK;
 735 }
 736
 737 /* ECMA-262 3rd Edition    15.9.5.42 */
 738 static HRESULT Date_toUTCString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 739         jsval_t *r)
 740 {
 741     TRACE("\n");
 742     return create_utc_string(ctx, jsthis, r);
 743 }
 744
 745 static HRESULT Date_toGMTString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 746         jsval_t *r)
 747 {
 748     TRACE("\n");
 749     return create_utc_string(ctx, jsthis, r);
 750 }
 751
 752 /* ECMA-262 3rd Edition    15.9.5.3 */
 753 static HRESULT dateobj_to_date_string(DateInstance *date, jsval_t *r)
 754 {
 755     static const WCHAR formatADW[] = { '%','s',' ','%','s',' ','%','d',' ','%','d',0 };
 756     static const WCHAR formatBCW[] = { '%','s',' ','%','s',' ','%','d',' ','%','d',' ','B','.','C','.',0 };
 757
 758     static const DWORD week_ids[] = { LOCALE_SABBREVDAYNAME7, LOCALE_SABBREVDAYNAME1,
 759         LOCALE_SABBREVDAYNAME2, LOCALE_SABBREVDAYNAME3, LOCALE_SABBREVDAYNAME4,
 760         LOCALE_SABBREVDAYNAME5, LOCALE_SABBREVDAYNAME6 };
 761     static const DWORD month_ids[] = { LOCALE_SABBREVMONTHNAME1, LOCALE_SABBREVMONTHNAME2,
 762         LOCALE_SABBREVMONTHNAME3, LOCALE_SABBREVMONTHNAME4,
 763         LOCALE_SABBREVMONTHNAME5, LOCALE_SABBREVMONTHNAME6,
 764         LOCALE_SABBREVMONTHNAME7, LOCALE_SABBREVMONTHNAME8,
 765         LOCALE_SABBREVMONTHNAME9, LOCALE_SABBREVMONTHNAME10,
 766         LOCALE_SABBREVMONTHNAME11, LOCALE_SABBREVMONTHNAME12 };
 767
 768     BOOL formatAD = TRUE;
 769     WCHAR week[64], month[64];
 770     jsstr_t *date_str;
 771     DOUBLE time;
 772     int len, size, year, day;
 773     DWORD lcid_en;
 774
 775     if(isnan(date->time)) {
 776         if(r)
 777             *r = jsval_string(jsstr_nan());
 778         return S_OK;
 779     }
 780
 781     time = local_time(date->time, date);
 782
 783     if(r) {
 784         WCHAR *ptr;
 785
 786         len = 5;
 787
 788         lcid_en = MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT);
 789
 790         size = GetLocaleInfoW(lcid_en, week_ids[(int)week_day(time)], week, sizeof(week)/sizeof(*week));
 791         assert(size);
 792         len += size-1;
 793
 794         size = GetLocaleInfoW(lcid_en, month_ids[(int)month_from_time(time)], month, sizeof(month)/sizeof(*month));
 795         assert(size);
 796         len += size-1;
 797
 798         year = year_from_time(time);
 799         if(year<0)
 800             year = -year+1;
 801         do {
 802             year /= 10;
 803             len++;
 804         } while(year);
 805
 806         year = year_from_time(time);
 807         if(year<0) {
 808             formatAD = FALSE;
 809             year = -year+1;
 810             len += 5;
 811         }
 812
 813         day = date_from_time(time);
 814         do {
 815             day /= 10;
 816             len++;
 817         } while(day);
 818         day = date_from_time(time);
 819
 820         ptr = jsstr_alloc_buf(len, &date_str);
 821         if(!ptr)
 822             return E_OUTOFMEMORY;
 823         sprintfW(ptr, formatAD?formatADW:formatBCW, week, month, day, year);
 824
 825         *r = jsval_string(date_str);
 826     }
 827     return S_OK;
 828 }
 829
 830 static HRESULT Date_toDateString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 831         jsval_t *r)
 832 {
 833     DateInstance *date;
 834
 835     if(!(date = date_this(jsthis)))
 836         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
 837
 838     return dateobj_to_date_string(date, r);
 839 }
 840
 841 /* ECMA-262 3rd Edition    15.9.5.4 */
 842 static HRESULT Date_toTimeString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 843         jsval_t *r)
 844 {
 845     static const WCHAR formatW[] = { '%','0','2','d',':','%','0','2','d',':','%','0','2','d',
 846         ' ','U','T','C','%','c','%','0','2','d','%','0','2','d',0 };
 847     static const WCHAR formatUTCW[] = { '%','0','2','d',':','%','0','2','d',
 848         ':','%','0','2','d',' ','U','T','C',0 };
 849     DateInstance *date;
 850     jsstr_t *date_str;
 851     DOUBLE time;
 852     WCHAR sign;
 853     int offset;
 854
 855     TRACE("\n");
 856
 857     if(!(date = date_this(jsthis)))
 858         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
 859
 860     if(isnan(date->time)) {
 861         if(r)
 862             *r = jsval_string(jsstr_nan());
 863         return S_OK;
 864     }
 865
 866     time = local_time(date->time, date);
 867
 868     if(r) {
 869         WCHAR *ptr;
 870
 871         ptr = jsstr_alloc_buf(17, &date_str);
 872         if(!date_str)
 873             return E_OUTOFMEMORY;
 874
 875         offset = date->bias +
 876             daylight_saving_ta(time, date);
 877
 878         if(offset < 0) {
 879             sign = '+';
 880             offset = -offset;
 881         }
 882         else sign = '-';
 883
 884         if(offset)
 885             sprintfW(ptr, formatW, (int)hour_from_time(time),
 886                     (int)min_from_time(time), (int)sec_from_time(time),
 887                     sign, offset/60, offset%60);
 888         else
 889             sprintfW(ptr, formatUTCW, (int)hour_from_time(time),
 890                     (int)min_from_time(time), (int)sec_from_time(time));
 891
 892         *r = jsval_string(date_str);
 893     }
 894     return S_OK;
 895 }
 896
 897 /* ECMA-262 3rd Edition    15.9.5.6 */
 898 static HRESULT Date_toLocaleDateString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 899         jsval_t *r)
 900 {
 901     SYSTEMTIME st;
 902     DateInstance *date;
 903     jsstr_t *date_str;
 904     int len;
 905
 906     TRACE("\n");
 907
 908     if(!(date = date_this(jsthis)))
 909         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
 910
 911     if(isnan(date->time)) {
 912         if(r)
 913             *r = jsval_string(jsstr_nan());
 914         return S_OK;
 915     }
 916
 917     st = create_systemtime(local_time(date->time, date));
 918
 919     if(st.wYear<1601 || st.wYear>9999)
 920         return dateobj_to_date_string(date, r);
 921
 922     if(r) {
 923         WCHAR *ptr;
 924
 925         len = GetDateFormatW(ctx->lcid, DATE_LONGDATE, &st, NULL, NULL, 0);
 926         ptr = jsstr_alloc_buf(len, &date_str);
 927         if(!ptr)
 928             return E_OUTOFMEMORY;
 929         GetDateFormatW(ctx->lcid, DATE_LONGDATE, &st, NULL, ptr, len);
 930
 931         *r = jsval_string(date_str);
 932     }
 933     return S_OK;
 934 }
 935
 936 /* ECMA-262 3rd Edition    15.9.5.7 */
 937 static HRESULT Date_toLocaleTimeString(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 938         jsval_t *r)
 939 {
 940     SYSTEMTIME st;
 941     DateInstance *date;
 942     jsstr_t *date_str;
 943     int len;
 944
 945     TRACE("\n");
 946
 947     if(!(date = date_this(jsthis)))
 948         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
 949
 950     if(isnan(date->time)) {
 951         if(r)
 952             *r = jsval_string(jsstr_nan());
 953         return S_OK;
 954     }
 955
 956     st = create_systemtime(local_time(date->time, date));
 957
 958     if(st.wYear<1601 || st.wYear>9999)
 959         return Date_toTimeString(ctx, jsthis, flags, argc, argv, r);
 960
 961     if(r) {
 962         WCHAR *ptr;
 963
 964         len = GetTimeFormatW(ctx->lcid, 0, &st, NULL, NULL, 0);
 965         ptr = jsstr_alloc_buf(len, &date_str);
 966         if(!ptr)
 967             return E_OUTOFMEMORY;
 968         GetTimeFormatW(ctx->lcid, 0, &st, NULL, ptr, len);
 969
 970         *r = jsval_string(date_str);
 971     }
 972     return S_OK;
 973 }
 974
 975 /* ECMA-262 3rd Edition    15.9.5.9 */
 976 static HRESULT Date_getTime(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 977         jsval_t *r)
 978 {
 979     DateInstance *date;
 980
 981     TRACE("\n");
 982
 983     if(!(date = date_this(jsthis)))
 984         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
 985
 986     if(r)
 987         *r = jsval_number(date->time);
 988     return S_OK;
 989 }
 990
 991 /* ECMA-262 3rd Edition    15.9.5.10 */
 992 static HRESULT Date_getFullYear(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
 993         jsval_t *r)
 994 {
 995     DateInstance *date;
 996
 997     TRACE("\n");
 998
 999     if(!(date = date_this(jsthis)))
1000         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1001
1002     if(r) {
1003         DOUBLE time = local_time(date->time, date);
1004
1005         *r = jsval_number(year_from_time(time));
1006     }
1007     return S_OK;
1008 }
1009
1010 /* ECMA-262 3rd Edition    15.9.5.11 */
1011 static HRESULT Date_getUTCFullYear(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1012         jsval_t *r)
1013 {
1014     DateInstance *date;
1015
1016     TRACE("\n");
1017
1018     if(!(date = date_this(jsthis)))
1019         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1020
1021     if(r)
1022         *r = jsval_number(year_from_time(date->time));
1023     return S_OK;
1024 }
1025
1026 /* ECMA-262 3rd Edition    15.9.5.12 */
1027 static HRESULT Date_getMonth(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
1028 {
1029     DateInstance *date;
1030
1031     TRACE("\n");
1032
1033     if(!(date = date_this(jsthis)))
1034         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1035
1036     if(r)
1037         *r = jsval_number(month_from_time(local_time(date->time, date)));
1038     return S_OK;
1039 }
1040
1041 /* ECMA-262 3rd Edition    15.9.5.13 */
1042 static HRESULT Date_getUTCMonth(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1043         jsval_t *r)
1044 {
1045     DateInstance *date;
1046
1047     TRACE("\n");
1048
1049     if(!(date = date_this(jsthis)))
1050         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1051
1052     if(r)
1053         *r = jsval_number(month_from_time(date->time));
1054     return S_OK;
1055 }
1056
1057 /* ECMA-262 3rd Edition    15.9.5.14 */
1058 static HRESULT Date_getDate(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
1059 {
1060     DateInstance *date;
1061
1062     TRACE("\n");
1063
1064     if(!(date = date_this(jsthis)))
1065         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1066
1067     if(r)
1068         *r = jsval_number(date_from_time(local_time(date->time, date)));
1069     return S_OK;
1070 }
1071
1072 /* ECMA-262 3rd Edition    15.9.5.15 */
1073 static HRESULT Date_getUTCDate(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1074         jsval_t *r)
1075 {
1076     DateInstance *date;
1077
1078     TRACE("\n");
1079
1080     if(!(date = date_this(jsthis)))
1081         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1082
1083     if(r)
1084         *r = jsval_number(date_from_time(date->time));
1085     return S_OK;
1086 }
1087
1088 /* ECMA-262 3rd Edition    15.9.5.16 */
1089 static HRESULT Date_getDay(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1090         jsval_t *r)
1091 {
1092     DateInstance *date;
1093
1094     TRACE("\n");
1095
1096     if(!(date = date_this(jsthis)))
1097         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1098
1099     if(r)
1100         *r = jsval_number(week_day(local_time(date->time, date)));
1101     return S_OK;
1102 }
1103
1104 /* ECMA-262 3rd Edition    15.9.5.17 */
1105 static HRESULT Date_getUTCDay(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1106         jsval_t *r)
1107 {
1108     DateInstance *date;
1109
1110     TRACE("\n");
1111
1112     if(!(date = date_this(jsthis)))
1113         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1114
1115     if(r)
1116         *r = jsval_number(week_day(date->time));
1117     return S_OK;
1118 }
1119
1120 /* ECMA-262 3rd Edition    15.9.5.18 */
1121 static HRESULT Date_getHours(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1122         jsval_t *r)
1123 {
1124     DateInstance *date;
1125
1126     TRACE("\n");
1127
1128     if(!(date = date_this(jsthis)))
1129         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1130
1131     if(r)
1132         *r = jsval_number(hour_from_time(local_time(date->time, date)));
1133     return S_OK;
1134 }
1135
1136 /* ECMA-262 3rd Edition    15.9.5.19 */
1137 static HRESULT Date_getUTCHours(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1138         jsval_t *r)
1139 {
1140     DateInstance *date;
1141
1142     TRACE("\n");
1143
1144     if(!(date = date_this(jsthis)))
1145         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1146
1147     if(r)
1148         *r = jsval_number(hour_from_time(date->time));
1149     return S_OK;
1150 }
1151
1152 /* ECMA-262 3rd Edition    15.9.5.20 */
1153 static HRESULT Date_getMinutes(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1154         jsval_t *r)
1155 {
1156     DateInstance *date;
1157
1158     TRACE("\n");
1159
1160     if(!(date = date_this(jsthis)))
1161         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1162
1163     if(r)
1164         *r = jsval_number(min_from_time(local_time(date->time, date)));
1165     return S_OK;
1166 }
1167
1168 /* ECMA-262 3rd Edition    15.9.5.21 */
1169 static HRESULT Date_getUTCMinutes(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1170         jsval_t *r)
1171 {
1172     DateInstance *date;
1173
1174     TRACE("\n");
1175
1176     if(!(date = date_this(jsthis)))
1177         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1178
1179     if(r)
1180         *r = jsval_number(min_from_time(date->time));
1181     return S_OK;
1182 }
1183
1184 /* ECMA-262 3rd Edition    15.9.5.22 */
1185 static HRESULT Date_getSeconds(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
1186 {
1187     DateInstance *date;
1188
1189     TRACE("\n");
1190
1191     if(!(date = date_this(jsthis)))
1192         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1193
1194     if(r)
1195         *r = jsval_number(sec_from_time(local_time(date->time, date)));
1196     return S_OK;
1197 }
1198
1199 /* ECMA-262 3rd Edition    15.9.5.23 */
1200 static HRESULT Date_getUTCSeconds(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1201         jsval_t *r)
1202 {
1203     DateInstance *date;
1204
1205     TRACE("\n");
1206
1207     if(!(date = date_this(jsthis)))
1208         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1209
1210     if(r)
1211         *r = jsval_number(sec_from_time(date->time));
1212     return S_OK;
1213 }
1214
1215 /* ECMA-262 3rd Edition    15.9.5.24 */
1216 static HRESULT Date_getMilliseconds(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1217         jsval_t *r)
1218 {
1219     DateInstance *date;
1220
1221     TRACE("\n");
1222
1223     if(!(date = date_this(jsthis)))
1224         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1225
1226     if(r)
1227         *r = jsval_number(ms_from_time(local_time(date->time, date)));
1228     return S_OK;
1229 }
1230
1231 /* ECMA-262 3rd Edition    15.9.5.25 */
1232 static HRESULT Date_getUTCMilliseconds(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1233         jsval_t *r)
1234 {
1235     DateInstance *date;
1236
1237     TRACE("\n");
1238
1239     if(!(date = date_this(jsthis)))
1240         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1241
1242     if(r)
1243         *r = jsval_number(ms_from_time(date->time));
1244     return S_OK;
1245 }
1246
1247 /* ECMA-262 3rd Edition    15.9.5.26 */
1248 static HRESULT Date_getTimezoneOffset(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1249         jsval_t *r)
1250 {
1251     DateInstance *date;
1252
1253     TRACE("\n");
1254
1255     if(!(date = date_this(jsthis)))
1256         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1257
1258     if(r)
1259         *r = jsval_number(floor((date->time-local_time(date->time, date))/MS_PER_MINUTE));
1260     return S_OK;
1261 }
1262
1263 /* ECMA-262 3rd Edition    15.9.5.27 */
1264 static HRESULT Date_setTime(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1265         jsval_t *r)
1266 {
1267     double n;
1268     HRESULT hres;
1269     DateInstance *date;
1270
1271     TRACE("\n");
1272
1273     if(!(date = date_this(jsthis)))
1274         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1275
1276     if(!argc)
1277         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1278
1279     hres = to_number(ctx, argv[0], &n);
1280     if(FAILED(hres))
1281         return hres;
1282
1283     date->time = time_clip(n);
1284
1285     if(r)
1286         *r = jsval_number(date->time);
1287     return S_OK;
1288 }
1289
1290 /* ECMA-262 3rd Edition    15.9.5.28 */
1291 static HRESULT Date_setMilliseconds(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1292         jsval_t *r)
1293 {
1294     DateInstance *date;
1295     double n, t;
1296     HRESULT hres;
1297
1298     TRACE("\n");
1299
1300     if(!(date = date_this(jsthis)))
1301         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1302
1303     if(!argc)
1304         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1305
1306     hres = to_number(ctx, argv[0], &n);
1307     if(FAILED(hres))
1308         return hres;
1309
1310     t = local_time(date->time, date);
1311     t = make_date(day(t), make_time(hour_from_time(t), min_from_time(t),
1312                 sec_from_time(t), n));
1313     date->time = time_clip(utc(t, date));
1314
1315     if(r)
1316         *r = jsval_number(date->time);
1317     return S_OK;
1318 }
1319
1320 /* ECMA-262 3rd Edition    15.9.5.29 */
1321 static HRESULT Date_setUTCMilliseconds(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1322         jsval_t *r)
1323 {
1324     DateInstance *date;
1325     double n, t;
1326     HRESULT hres;
1327
1328     TRACE("\n");
1329
1330     if(!(date = date_this(jsthis)))
1331         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1332
1333     if(!argc)
1334         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1335
1336     hres = to_number(ctx, argv[0], &n);
1337     if(FAILED(hres))
1338         return hres;
1339
1340     t = date->time;
1341     t = make_date(day(t), make_time(hour_from_time(t), min_from_time(t),
1342                 sec_from_time(t), n));
1343     date->time = time_clip(t);
1344
1345     if(r)
1346         *r = jsval_number(date->time);
1347     return S_OK;
1348 }
1349
1350 /* ECMA-262 3rd Edition    15.9.5.30 */
1351 static HRESULT Date_setSeconds(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1352         jsval_t *r)
1353 {
1354     DateInstance *date;
1355     double t, sec, ms;
1356     HRESULT hres;
1357
1358     TRACE("\n");
1359
1360     if(!(date = date_this(jsthis)))
1361         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1362
1363     if(!argc)
1364         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1365
1366     t = local_time(date->time, date);
1367
1368     hres = to_number(ctx, argv[0], &sec);
1369     if(FAILED(hres))
1370         return hres;
1371
1372     if(argc > 1) {
1373         hres = to_number(ctx, argv[1], &ms);
1374         if(FAILED(hres))
1375             return hres;
1376     }else {
1377         ms = ms_from_time(t);
1378     }
1379
1380     t = make_date(day(t), make_time(hour_from_time(t),
1381                 min_from_time(t), sec, ms));
1382     date->time = time_clip(utc(t, date));
1383
1384     if(r)
1385         *r = jsval_number(date->time);
1386     return S_OK;
1387 }
1388
1389 /* ECMA-262 3rd Edition    15.9.5.31 */
1390 static HRESULT Date_setUTCSeconds(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1391         jsval_t *r)
1392 {
1393     DateInstance *date;
1394     double t, sec, ms;
1395     HRESULT hres;
1396
1397     TRACE("\n");
1398
1399     if(!(date = date_this(jsthis)))
1400         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1401
1402     if(!argc)
1403         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1404
1405     t = date->time;
1406
1407     hres = to_number(ctx, argv[0], &sec);
1408     if(FAILED(hres))
1409         return hres;
1410
1411     if(argc > 1) {
1412         hres = to_number(ctx, argv[1], &ms);
1413         if(FAILED(hres))
1414             return hres;
1415     }else {
1416         ms = ms_from_time(t);
1417     }
1418
1419     t = make_date(day(t), make_time(hour_from_time(t),
1420                 min_from_time(t), sec, ms));
1421     date->time = time_clip(t);
1422
1423     if(r)
1424         *r = jsval_number(date->time);
1425     return S_OK;
1426 }
1427
1428 /* ECMA-262 3rd Edition    15.9.5.33 */
1429 static HRESULT Date_setMinutes(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1430         jsval_t *r)
1431 {
1432     DateInstance *date;
1433     double t, min, sec, ms;
1434     HRESULT hres;
1435
1436     TRACE("\n");
1437
1438     if(!(date = date_this(jsthis)))
1439         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1440
1441     if(!argc)
1442         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1443
1444     t = local_time(date->time, date);
1445
1446     hres = to_number(ctx, argv[0], &min);
1447     if(FAILED(hres))
1448         return hres;
1449
1450     if(argc > 1) {
1451         hres = to_number(ctx, argv[1], &sec);
1452         if(FAILED(hres))
1453             return hres;
1454     }else {
1455         sec = sec_from_time(t);
1456     }
1457
1458     if(argc > 2) {
1459         hres = to_number(ctx, argv[2], &ms);
1460         if(FAILED(hres))
1461             return hres;
1462     }else {
1463         ms = ms_from_time(t);
1464     }
1465
1466     t = make_date(day(t), make_time(hour_from_time(t),
1467                 min, sec, ms));
1468     date->time = time_clip(utc(t, date));
1469
1470     if(r)
1471         *r = jsval_number(date->time);
1472     return S_OK;
1473 }
1474
1475 /* ECMA-262 3rd Edition    15.9.5.34 */
1476 static HRESULT Date_setUTCMinutes(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1477         jsval_t *r)
1478 {
1479     DateInstance *date;
1480     double t, min, sec, ms;
1481     HRESULT hres;
1482
1483     TRACE("\n");
1484
1485     if(!(date = date_this(jsthis)))
1486         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1487
1488     if(!argc)
1489         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1490
1491     t = date->time;
1492
1493     hres = to_number(ctx, argv[0], &min);
1494     if(FAILED(hres))
1495         return hres;
1496
1497     if(argc > 1) {
1498         hres = to_number(ctx, argv[1], &sec);
1499         if(FAILED(hres))
1500             return hres;
1501     }else {
1502         sec = sec_from_time(t);
1503     }
1504
1505     if(argc > 2) {
1506         hres = to_number(ctx, argv[2], &ms);
1507         if(FAILED(hres))
1508             return hres;
1509     }else {
1510         ms = ms_from_time(t);
1511     }
1512
1513     t = make_date(day(t), make_time(hour_from_time(t),
1514                 min, sec, ms));
1515     date->time = time_clip(t);
1516
1517     if(r)
1518         *r = jsval_number(date->time);
1519     return S_OK;
1520 }
1521
1522 /* ECMA-262 3rd Edition    15.9.5.35 */
1523 static HRESULT Date_setHours(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1524         jsval_t *r)
1525 {
1526     DateInstance *date;
1527     double t, hour, min, sec, ms;
1528     HRESULT hres;
1529
1530     TRACE("\n");
1531
1532     if(!(date = date_this(jsthis)))
1533         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1534
1535     if(!argc)
1536         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1537
1538     t = local_time(date->time, date);
1539
1540     hres = to_number(ctx, argv[0], &hour);
1541     if(FAILED(hres))
1542         return hres;
1543
1544     if(argc > 1) {
1545         hres = to_number(ctx, argv[1], &min);
1546         if(FAILED(hres))
1547             return hres;
1548     }else {
1549         min = min_from_time(t);
1550     }
1551
1552     if(argc > 2) {
1553         hres = to_number(ctx, argv[2], &sec);
1554         if(FAILED(hres))
1555             return hres;
1556     }else {
1557         sec = sec_from_time(t);
1558     }
1559
1560     if(argc > 3) {
1561         hres = to_number(ctx, argv[3], &ms);
1562         if(FAILED(hres))
1563             return hres;
1564     }else {
1565         ms = ms_from_time(t);
1566     }
1567
1568     t = make_date(day(t), make_time(hour, min, sec, ms));
1569     date->time = time_clip(utc(t, date));
1570
1571     if(r)
1572         *r = jsval_number(date->time);
1573     return S_OK;
1574 }
1575
1576 /* ECMA-262 3rd Edition    15.9.5.36 */
1577 static HRESULT Date_setUTCHours(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1578         jsval_t *r)
1579 {
1580     DateInstance *date;
1581     double t, hour, min, sec, ms;
1582     HRESULT hres;
1583
1584     TRACE("\n");
1585
1586     if(!(date = date_this(jsthis)))
1587         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1588
1589     if(!argc)
1590         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1591
1592     t = date->time;
1593
1594     hres = to_number(ctx, argv[0], &hour);
1595     if(FAILED(hres))
1596         return hres;
1597
1598     if(argc > 1) {
1599         hres = to_number(ctx, argv[1], &min);
1600         if(FAILED(hres))
1601             return hres;
1602     }else {
1603         min = min_from_time(t);
1604     }
1605
1606     if(argc > 2) {
1607         hres = to_number(ctx, argv[2], &sec);
1608         if(FAILED(hres))
1609             return hres;
1610     }else {
1611         sec = sec_from_time(t);
1612     }
1613
1614     if(argc > 3) {
1615         hres = to_number(ctx, argv[3], &ms);
1616         if(FAILED(hres))
1617             return hres;
1618     }else {
1619         ms = ms_from_time(t);
1620     }
1621
1622     t = make_date(day(t), make_time(hour, min, sec, ms));
1623     date->time = time_clip(t);
1624
1625     if(r)
1626         *r = jsval_number(date->time);
1627     return S_OK;
1628 }
1629
1630 /* ECMA-262 3rd Edition    15.9.5.36 */
1631 static HRESULT Date_setDate(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1632         jsval_t *r)
1633 {
1634     DateInstance *date;
1635     double t, n;
1636     HRESULT hres;
1637
1638     TRACE("\n");
1639
1640     if(!(date = date_this(jsthis)))
1641         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1642
1643     if(!argc)
1644         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1645
1646     hres = to_number(ctx, argv[0], &n);
1647     if(FAILED(hres))
1648         return hres;
1649
1650     t = local_time(date->time, date);
1651     t = make_date(make_day(year_from_time(t), month_from_time(t), n), time_within_day(t));
1652     date->time = time_clip(utc(t, date));
1653
1654     if(r)
1655         *r = jsval_number(date->time);
1656     return S_OK;
1657 }
1658
1659 /* ECMA-262 3rd Edition    15.9.5.37 */
1660 static HRESULT Date_setUTCDate(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1661         jsval_t *r)
1662 {
1663     DateInstance *date;
1664     double t, n;
1665     HRESULT hres;
1666
1667     TRACE("\n");
1668
1669     if(!(date = date_this(jsthis)))
1670         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1671
1672     if(!argc)
1673         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1674
1675     hres = to_number(ctx, argv[0], &n);
1676     if(FAILED(hres))
1677         return hres;
1678
1679     t = date->time;
1680     t = make_date(make_day(year_from_time(t), month_from_time(t), n), time_within_day(t));
1681     date->time = time_clip(t);
1682
1683     if(r)
1684         *r = jsval_number(date->time);
1685     return S_OK;
1686 }
1687
1688 /* ECMA-262 3rd Edition    15.9.5.38 */
1689 static HRESULT Date_setMonth(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1690         jsval_t *r)
1691 {
1692     DateInstance *date;
1693     DOUBLE t, month, ddate;
1694     HRESULT hres;
1695
1696     TRACE("\n");
1697
1698     if(!(date = date_this(jsthis)))
1699         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1700
1701     if(!argc)
1702         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1703
1704     t = local_time(date->time, date);
1705
1706     hres = to_number(ctx, argv[0], &month);
1707     if(FAILED(hres))
1708         return hres;
1709
1710     if(argc > 1) {
1711         hres = to_number(ctx, argv[1], &ddate);
1712         if(FAILED(hres))
1713             return hres;
1714     }else {
1715         ddate = date_from_time(t);
1716     }
1717
1718     t = make_date(make_day(year_from_time(t), month, ddate),
1719             time_within_day(t));
1720     date->time = time_clip(utc(t, date));
1721
1722     if(r)
1723         *r = jsval_number(date->time);
1724     return S_OK;
1725 }
1726
1727 /* ECMA-262 3rd Edition    15.9.5.39 */
1728 static HRESULT Date_setUTCMonth(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1729         jsval_t *r)
1730 {
1731     DateInstance *date;
1732     double t, month, ddate;
1733     HRESULT hres;
1734
1735     TRACE("\n");
1736
1737     if(!(date = date_this(jsthis)))
1738         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1739
1740     if(!argc)
1741         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1742
1743     t = date->time;
1744
1745     hres = to_number(ctx, argv[0], &month);
1746     if(FAILED(hres))
1747         return hres;
1748
1749     if(argc > 1) {
1750         hres = to_number(ctx, argv[1], &ddate);
1751         if(FAILED(hres))
1752             return hres;
1753     }else {
1754         ddate = date_from_time(t);
1755     }
1756
1757     t = make_date(make_day(year_from_time(t), month, ddate),
1758             time_within_day(t));
1759     date->time = time_clip(t);
1760
1761     if(r)
1762         *r = jsval_number(date->time);
1763     return S_OK;
1764 }
1765
1766 /* ECMA-262 3rd Edition    15.9.5.40 */
1767 static HRESULT Date_setFullYear(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1768         jsval_t *r)
1769 {
1770     DateInstance *date;
1771     double t, year, month, ddate;
1772     HRESULT hres;
1773
1774     TRACE("\n");
1775
1776     if(!(date = date_this(jsthis)))
1777         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1778
1779     if(!argc)
1780         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1781
1782     t = local_time(date->time, date);
1783
1784     hres = to_number(ctx, argv[0], &year);
1785     if(FAILED(hres))
1786         return hres;
1787
1788     if(argc > 1) {
1789         hres = to_number(ctx, argv[1], &month);
1790         if(FAILED(hres))
1791             return hres;
1792     }else {
1793         month = month_from_time(t);
1794     }
1795
1796     if(argc > 2) {
1797         hres = to_number(ctx, argv[2], &ddate);
1798         if(FAILED(hres))
1799             return hres;
1800     }else {
1801         ddate = date_from_time(t);
1802     }
1803
1804     t = make_date(make_day(year, month, ddate), time_within_day(t));
1805     date->time = time_clip(utc(t, date));
1806
1807     if(r)
1808         *r = jsval_number(date->time);
1809     return S_OK;
1810 }
1811
1812 /* ECMA-262 3rd Edition    15.9.5.41 */
1813 static HRESULT Date_setUTCFullYear(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1814         jsval_t *r)
1815 {
1816     DateInstance *date;
1817     double t, year, month, ddate;
1818     HRESULT hres;
1819
1820     TRACE("\n");
1821
1822     if(!(date = date_this(jsthis)))
1823         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1824
1825     if(!argc)
1826         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1827
1828     t = date->time;
1829
1830     hres = to_number(ctx, argv[0], &year);
1831     if(FAILED(hres))
1832         return hres;
1833
1834     if(argc > 1) {
1835         hres = to_number(ctx, argv[1], &month);
1836         if(FAILED(hres))
1837             return hres;
1838     }else {
1839         month = month_from_time(t);
1840     }
1841
1842     if(argc > 2) {
1843         hres = to_number(ctx, argv[2], &ddate);
1844         if(FAILED(hres))
1845             return hres;
1846     }else {
1847         ddate = date_from_time(t);
1848     }
1849
1850     t = make_date(make_day(year, month, ddate), time_within_day(t));
1851     date->time = time_clip(t);
1852
1853     if(r)
1854         *r = jsval_number(date->time);
1855     return S_OK;
1856 }
1857
1858 /* ECMA-262 3rd Edition    B2.4 */
1859 static HRESULT Date_getYear(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1860         jsval_t *r)
1861 {
1862     DateInstance *date;
1863     DOUBLE t, year;
1864
1865     TRACE("\n");
1866
1867     if(!(date = date_this(jsthis)))
1868         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1869
1870     t = local_time(date->time, date);
1871     if(isnan(t)) {
1872         if(r)
1873             *r = jsval_number(NAN);
1874         return S_OK;
1875     }
1876
1877     year = year_from_time(t);
1878     if(r)
1879         *r = jsval_number((1900<=year && year<2000)?year-1900:year);
1880     return S_OK;
1881 }
1882
1883 /* ECMA-262 3rd Edition    B2.5 */
1884 static HRESULT Date_setYear(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1885         jsval_t *r)
1886 {
1887     DateInstance *date;
1888     DOUBLE t, year;
1889     HRESULT hres;
1890
1891     TRACE("\n");
1892
1893     if(!(date = date_this(jsthis)))
1894         return throw_type_error(ctx, JS_E_DATE_EXPECTED, NULL);
1895
1896     if(!argc)
1897         return throw_type_error(ctx, JS_E_MISSING_ARG, NULL);
1898
1899     t = local_time(date->time, date);
1900
1901     hres = to_number(ctx, argv[0], &year);
1902     if(FAILED(hres))
1903         return hres;
1904
1905     if(isnan(year)) {
1906         date->time = year;
1907         if(r)
1908             *r = jsval_number(NAN);
1909         return S_OK;
1910     }
1911
1912     year = year >= 0.0 ? floor(year) : -floor(-year);
1913     if(-1.0 < year && year < 100.0)
1914         year += 1900.0;
1915
1916     date->time = time_clip(utc(make_date(make_day(year, month_from_time(t), date_from_time(t)), time_within_day(t)), date));
1917
1918     if(r)
1919         *r = jsval_number(date->time);
1920     return S_OK;
1921 }
1922
1923 static HRESULT Date_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1924         jsval_t *r)
1925 {
1926     TRACE("\n");
1927
1928     switch(flags) {
1929     case INVOKE_FUNC:
1930         return throw_type_error(ctx, JS_E_FUNCTION_EXPECTED, NULL);
1931     default:
1932         FIXME("unimplemented flags %x\n", flags);
1933         return E_NOTIMPL;
1934     }
1935
1936     return S_OK;
1937 }
1938
1939 static const builtin_prop_t Date_props[] = {
1940     {getDateW,               Date_getDate,               PROPF_METHOD},
1941     {getDayW,                Date_getDay,                PROPF_METHOD},
1942     {getFullYearW,           Date_getFullYear,           PROPF_METHOD},
1943     {getHoursW,              Date_getHours,              PROPF_METHOD},
1944     {getMillisecondsW,       Date_getMilliseconds,       PROPF_METHOD},
1945     {getMinutesW,            Date_getMinutes,            PROPF_METHOD},
1946     {getMonthW,              Date_getMonth,              PROPF_METHOD},
1947     {getSecondsW,            Date_getSeconds,            PROPF_METHOD},
1948     {getTimeW,               Date_getTime,               PROPF_METHOD},
1949     {getTimezoneOffsetW,     Date_getTimezoneOffset,     PROPF_METHOD},
1950     {getUTCDateW,            Date_getUTCDate,            PROPF_METHOD},
1951     {getUTCDayW,             Date_getUTCDay,             PROPF_METHOD},
1952     {getUTCFullYearW,        Date_getUTCFullYear,        PROPF_METHOD},
1953     {getUTCHoursW,           Date_getUTCHours,           PROPF_METHOD},
1954     {getUTCMillisecondsW,    Date_getUTCMilliseconds,    PROPF_METHOD},
1955     {getUTCMinutesW,         Date_getUTCMinutes,         PROPF_METHOD},
1956     {getUTCMonthW,           Date_getUTCMonth,           PROPF_METHOD},
1957     {getUTCSecondsW,         Date_getUTCSeconds,         PROPF_METHOD},
1958     {getYearW,               Date_getYear,               PROPF_METHOD},
1959     {setDateW,               Date_setDate,               PROPF_METHOD|1},
1960     {setFullYearW,           Date_setFullYear,           PROPF_METHOD|3},
1961     {setHoursW,              Date_setHours,              PROPF_METHOD|4},
1962     {setMillisecondsW,       Date_setMilliseconds,       PROPF_METHOD|1},
1963     {setMinutesW,            Date_setMinutes,            PROPF_METHOD|3},
1964     {setMonthW,              Date_setMonth,              PROPF_METHOD|2},
1965     {setSecondsW,            Date_setSeconds,            PROPF_METHOD|2},
1966     {setTimeW,               Date_setTime,               PROPF_METHOD|1},
1967     {setUTCDateW,            Date_setUTCDate,            PROPF_METHOD|1},
1968     {setUTCFullYearW,        Date_setUTCFullYear,        PROPF_METHOD|3},
1969     {setUTCHoursW,           Date_setUTCHours,           PROPF_METHOD|4},
1970     {setUTCMillisecondsW,    Date_setUTCMilliseconds,    PROPF_METHOD|1},
1971     {setUTCMinutesW,         Date_setUTCMinutes,         PROPF_METHOD|3},
1972     {setUTCMonthW,           Date_setUTCMonth,           PROPF_METHOD|2},
1973     {setUTCSecondsW,         Date_setUTCSeconds,         PROPF_METHOD|2},
1974     {setYearW,               Date_setYear,               PROPF_METHOD|1},
1975     {toDateStringW,          Date_toDateString,          PROPF_METHOD},
1976     {toGMTStringW,           Date_toGMTString,           PROPF_METHOD},
1977     {toLocaleDateStringW,    Date_toLocaleDateString,    PROPF_METHOD},
1978     {toLocaleStringW,        Date_toLocaleString,        PROPF_METHOD},
1979     {toLocaleTimeStringW,    Date_toLocaleTimeString,    PROPF_METHOD},
1980     {toStringW,              Date_toString,              PROPF_METHOD},
1981     {toTimeStringW,          Date_toTimeString,          PROPF_METHOD},
1982     {toUTCStringW,           Date_toUTCString,           PROPF_METHOD},
1983     {valueOfW,               Date_valueOf,               PROPF_METHOD},
1984 };
1985
1986 static const builtin_info_t Date_info = {
1987     JSCLASS_DATE,
1988     {NULL, Date_value, 0},
1989     sizeof(Date_props)/sizeof(*Date_props),
1990     Date_props,
1991     NULL,
1992     NULL
1993 };
1994
1995 static const builtin_info_t DateInst_info = {
1996     JSCLASS_DATE,
1997     {NULL, Date_value, 0},
1998     0, NULL,
1999     NULL,
2000     NULL
2001 };
2002
2003 static HRESULT create_date(script_ctx_t *ctx, jsdisp_t *object_prototype, DOUBLE time, jsdisp_t **ret)
2004 {
2005     DateInstance *date;
2006     HRESULT hres;
2007     TIME_ZONE_INFORMATION tzi;
2008
2009     GetTimeZoneInformation(&tzi);
2010
2011     date = heap_alloc_zero(sizeof(DateInstance));
2012     if(!date)
2013         return E_OUTOFMEMORY;
2014
2015     if(object_prototype)
2016         hres = init_dispex(&date->dispex, ctx, &Date_info, object_prototype);
2017     else
2018         hres = init_dispex_from_constr(&date->dispex, ctx, &DateInst_info, ctx->date_constr);
2019     if(FAILED(hres)) {
2020         heap_free(date);
2021         return hres;
2022     }
2023
2024     date->time = time;
2025     date->bias = tzi.Bias;
2026     date->standardDate = tzi.StandardDate;
2027     date->standardBias = tzi.StandardBias;
2028     date->daylightDate = tzi.DaylightDate;
2029     date->daylightBias = tzi.DaylightBias;
2030
2031     *ret = &date->dispex;
2032     return S_OK;
2033 }
2034
2035 static inline HRESULT date_parse(jsstr_t *input_str, double *ret) {
2036     static const DWORD string_ids[] = { LOCALE_SMONTHNAME12, LOCALE_SMONTHNAME11,
2037         LOCALE_SMONTHNAME10, LOCALE_SMONTHNAME9, LOCALE_SMONTHNAME8,
2038         LOCALE_SMONTHNAME7, LOCALE_SMONTHNAME6, LOCALE_SMONTHNAME5,
2039         LOCALE_SMONTHNAME4, LOCALE_SMONTHNAME3, LOCALE_SMONTHNAME2,
2040         LOCALE_SMONTHNAME1, LOCALE_SDAYNAME7, LOCALE_SDAYNAME1,
2041         LOCALE_SDAYNAME2, LOCALE_SDAYNAME3, LOCALE_SDAYNAME4,
2042         LOCALE_SDAYNAME5, LOCALE_SDAYNAME6 };
2043     WCHAR *strings[sizeof(string_ids)/sizeof(DWORD)];
2044     WCHAR *parse;
2045     int input_len, parse_len = 0, nest_level = 0, i, size;
2046     int year = 0, month = 0, day = 0, hour = 0, min = 0, sec = 0;
2047     int ms = 0, offset = 0, hour_adjust = 0;
2048     BOOL set_year = FALSE, set_month = FALSE, set_day = FALSE, set_hour = FALSE;
2049     BOOL set_offset = FALSE, set_era = FALSE, ad = TRUE, set_am = FALSE, am = TRUE;
2050     BOOL set_hour_adjust = TRUE;
2051     TIME_ZONE_INFORMATION tzi;
2052     const WCHAR *input;
2053     DateInstance di;
2054     DWORD lcid_en;
2055
2056     input_len = jsstr_length(input_str);
2057     input = jsstr_flatten(input_str);
2058     if(!input)
2059         return E_OUTOFMEMORY;
2060
2061     for(i=0; i<input_len; i++) {
2062         if(input[i] == '(') nest_level++;
2063         else if(input[i] == ')') {
2064             nest_level--;
2065             if(nest_level<0) {
2066                 *ret = NAN;
2067                 return S_OK;
2068             }
2069         }
2070         else if(!nest_level) parse_len++;
2071     }
2072
2073     parse = heap_alloc((parse_len+1)*sizeof(WCHAR));
2074     if(!parse)
2075         return E_OUTOFMEMORY;
2076     nest_level = 0;
2077     parse_len = 0;
2078     for(i=0; i<input_len; i++) {
2079         if(input[i] == '(') nest_level++;
2080         else if(input[i] == ')') nest_level--;
2081         else if(!nest_level) parse[parse_len++] = toupperW(input[i]);
2082     }
2083     parse[parse_len] = 0;
2084
2085     GetTimeZoneInformation(&tzi);
2086     di.bias = tzi.Bias;
2087     di.standardDate = tzi.StandardDate;
2088     di.standardBias = tzi.StandardBias;
2089     di.daylightDate = tzi.DaylightDate;
2090     di.daylightBias = tzi.DaylightBias;
2091
2092     /* FIXME: Cache strings */
2093     lcid_en = MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT);
2094     for(i=0; i<sizeof(string_ids)/sizeof(DWORD); i++) {
2095         size = GetLocaleInfoW(lcid_en, string_ids[i], NULL, 0);
2096         strings[i] = heap_alloc((size+1)*sizeof(WCHAR));
2097         if(!strings[i]) {
2098             i--;
2099             while(i-- >= 0)
2100                 heap_free(strings[i]);
2101             heap_free(parse);
2102             return E_OUTOFMEMORY;
2103         }
2104         GetLocaleInfoW(lcid_en, string_ids[i], strings[i], size);
2105     }
2106
2107     for(i=0; i<parse_len;) {
2108         while(isspaceW(parse[i])) i++;
2109         if(parse[i] == ',') {
2110             while(parse[i] == ',') i++;
2111             continue;
2112         }
2113
2114         if(parse[i]>='0' && parse[i]<='9') {
2115             int tmp = atoiW(&parse[i]);
2116             while(parse[i]>='0' && parse[i]<='9') i++;
2117             while(isspaceW(parse[i])) i++;
2118
2119             if(parse[i] == ':') {
2120                 /* Time */
2121                 if(set_hour) break;
2122                 set_hour = TRUE;
2123
2124                 hour = tmp;
2125
2126                 while(parse[i] == ':') i++;
2127                 while(isspaceW(parse[i])) i++;
2128                 if(parse[i]>='0' && parse[i]<='9') {
2129                     min = atoiW(&parse[i]);
2130                     while(parse[i]>='0' && parse[i]<='9') i++;
2131                 }
2132
2133                 while(isspaceW(parse[i])) i++;
2134                 while(parse[i] == ':') i++;
2135                 while(isspaceW(parse[i])) i++;
2136                 if(parse[i]>='0' && parse[i]<='9') {
2137                     sec = atoiW(&parse[i]);
2138                     while(parse[i]>='0' && parse[i]<='9') i++;
2139                 }
2140             }
2141             else if(parse[i]=='-' || parse[i]=='/') {
2142                 /* Short date */
2143                 if(set_day || set_month || set_year) break;
2144                 set_day = TRUE;
2145                 set_month = TRUE;
2146                 set_year = TRUE;
2147
2148                 month = tmp-1;
2149
2150                 while(isspaceW(parse[i])) i++;
2151                 while(parse[i]=='-' || parse[i]=='/') i++;
2152                 while(isspaceW(parse[i])) i++;
2153                 if(parse[i]<'0' || parse[i]>'9') break;
2154                 day = atoiW(&parse[i]);
2155                 while(parse[i]>='0' && parse[i]<='9') i++;
2156
2157                 while(parse[i]=='-' || parse[i]=='/') i++;
2158                 while(isspaceW(parse[i])) i++;
2159                 if(parse[i]<'0' || parse[i]>'9') break;
2160                 year = atoiW(&parse[i]);
2161                 while(parse[i]>='0' && parse[i]<='9') i++;
2162             }
2163             else if(tmp<0) break;
2164             else if(tmp<70) {
2165                 /* Day */
2166                 if(set_day) break;
2167                 set_day = TRUE;
2168                 day = tmp;
2169             }
2170             else {
2171                 /* Year */
2172                 if(set_year) break;
2173                 set_year = TRUE;
2174                 year = tmp;
2175             }
2176         }
2177         else {
2178             if(parse[i]<'A' || parse[i]>'Z') break;
2179             else if(parse[i]=='B' && (parse[i+1]=='C' ||
2180                         (parse[i+1]=='.' && parse[i+2]=='C'))) {
2181                 /* AD/BC */
2182                 if(set_era) break;
2183                 set_era = TRUE;
2184                 ad = FALSE;
2185
2186                 i++;
2187                 if(parse[i] == '.') i++;
2188                 i++;
2189                 if(parse[i] == '.') i++;
2190             }
2191             else if(parse[i]=='A' && (parse[i+1]=='D' ||
2192                         (parse[i+1]=='.' && parse[i+2]=='D'))) {
2193                 /* AD/BC */
2194                 if(set_era) break;
2195                 set_era = TRUE;
2196
2197                 i++;
2198                 if(parse[i] == '.') i++;
2199                 i++;
2200                 if(parse[i] == '.') i++;
2201             }
2202             else if(parse[i+1]<'A' || parse[i+1]>'Z') {
2203                 /* Timezone */
2204                 if(set_offset) break;
2205                 set_offset = TRUE;
2206
2207                 if(parse[i] <= 'I') hour_adjust = parse[i]-'A'+2;
2208                 else if(parse[i] == 'J') break;
2209                 else if(parse[i] <= 'M') hour_adjust = parse[i]-'K'+11;
2210                 else if(parse[i] <= 'Y') hour_adjust = parse[i]-'N';
2211                 else hour_adjust = 1;
2212
2213                 i++;
2214                 if(parse[i] == '.') i++;
2215             }
2216             else if(parse[i]=='A' && parse[i+1]=='M') {
2217                 /* AM/PM */
2218                 if(set_am) break;
2219                 set_am = TRUE;
2220                 am = TRUE;
2221                 i += 2;
2222             }
2223             else if(parse[i]=='P' && parse[i+1]=='M') {
2224                 /* AM/PM */
2225                 if(set_am) break;
2226                 set_am = TRUE;
2227                 am = FALSE;
2228                 i += 2;
2229             }
2230             else if((parse[i]=='U' && parse[i+1]=='T' && parse[i+2]=='C')
2231                     || (parse[i]=='G' && parse[i+1]=='M' && parse[i+2]=='T')) {
2232                 /* Timezone */
2233                 BOOL positive = TRUE;
2234
2235                 if(set_offset) break;
2236                 set_offset = TRUE;
2237                 set_hour_adjust = FALSE;
2238
2239                 i += 3;
2240                 while(isspaceW(parse[i])) i++;
2241                 if(parse[i] == '-')  positive = FALSE;
2242                 else if(parse[i] != '+') continue;
2243
2244                 i++;
2245                 while(isspaceW(parse[i])) i++;
2246                 if(parse[i]<'0' || parse[i]>'9') break;
2247                 offset = atoiW(&parse[i]);
2248                 while(parse[i]>='0' && parse[i]<='9') i++;
2249
2250                 if(offset<24) offset *= 60;
2251                 else offset = (offset/100)*60 + offset%100;
2252
2253                 if(positive) offset = -offset;
2254             }
2255             else {
2256                 /* Month or garbage */
2257                 unsigned int j;
2258
2259                 for(size=i; parse[size]>='A' && parse[size]<='Z'; size++);
2260                 size -= i;
2261
2262                 for(j=0; j<sizeof(string_ids)/sizeof(DWORD); j++)
2263                     if(!strncmpiW(&parse[i], strings[j], size)) break;
2264
2265                 if(j < 12) {
2266                     if(set_month) break;
2267                     set_month = TRUE;
2268                     month = 11-j;
2269                 }
2270                 else if(j == sizeof(string_ids)/sizeof(DWORD)) break;
2271
2272                 i += size;
2273             }
2274         }
2275     }
2276
2277     if(i == parse_len && set_year && set_month && set_day && (!set_am || hour<13)) {
2278         if(set_am) {
2279             if(hour == 12) hour = 0;
2280             if(!am) hour += 12;
2281         }
2282
2283         if(!ad) year = -year+1;
2284         else if(year<100) year += 1900;
2285
2286         *ret = time_clip(make_date(make_day(year, month, day),
2287                     make_time(hour+hour_adjust, min, sec, ms)) + offset*MS_PER_MINUTE);
2288
2289         if(set_hour_adjust)
2290             *ret = utc(*ret, &di);
2291     }else {
2292         *ret = NAN;
2293     }
2294
2295     for(i=0; i<sizeof(string_ids)/sizeof(DWORD); i++)
2296         heap_free(strings[i]);
2297     heap_free(parse);
2298
2299     return S_OK;
2300 }
2301
2302 static HRESULT DateConstr_parse(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
2303         jsval_t *r)
2304 {
2305     jsstr_t *parse_str;
2306     double n;
2307     HRESULT hres;
2308
2309     TRACE("\n");
2310
2311     if(!argc) {
2312         if(r)
2313             *r = jsval_number(NAN);
2314         return S_OK;
2315     }
2316
2317     hres = to_string(ctx, argv[0], &parse_str);
2318     if(FAILED(hres))
2319         return hres;
2320
2321     hres = date_parse(parse_str, &n);
2322     jsstr_release(parse_str);
2323     if(FAILED(hres))
2324         return hres;
2325
2326     *r = jsval_number(n);
2327     return S_OK;
2328 }
2329
2330 static HRESULT date_utc(script_ctx_t *ctx, unsigned argc, jsval_t *argv, double *ret)
2331 {
2332     double year, month, vdate, hours, minutes, seconds, ms;
2333     HRESULT hres;
2334
2335     TRACE("\n");
2336
2337     if(argc) {
2338         hres = to_number(ctx, argv[0], &year);
2339         if(FAILED(hres))
2340             return hres;
2341         if(0 <= year && year <= 99)
2342             year += 1900;
2343     }else {
2344         year = 1900;
2345     }
2346
2347     if(argc>1) {
2348         hres = to_number(ctx, argv[1], &month);
2349         if(FAILED(hres))
2350             return hres;
2351     }else {
2352         month = 0;
2353     }
2354
2355     if(argc>2) {
2356         hres = to_number(ctx, argv[2], &vdate);
2357         if(FAILED(hres))
2358             return hres;
2359     }else {
2360         vdate = 1;
2361     }
2362
2363     if(argc>3) {
2364         hres = to_number(ctx, argv[3], &hours);
2365         if(FAILED(hres))
2366             return hres;
2367     }else {
2368         hours = 0;
2369     }
2370
2371     if(argc>4) {
2372         hres = to_number(ctx, argv[4], &minutes);
2373         if(FAILED(hres))
2374             return hres;
2375     }else {
2376         minutes = 0;
2377     }
2378
2379     if(argc>5) {
2380         hres = to_number(ctx, argv[5], &seconds);
2381         if(FAILED(hres))
2382             return hres;
2383     }else {
2384         seconds = 0;
2385     }
2386
2387     if(argc>6) {
2388         hres = to_number(ctx, argv[6], &ms);
2389         if(FAILED(hres))
2390             return hres;
2391     } else {
2392         ms = 0;
2393     }
2394
2395     *ret = time_clip(make_date(make_day(year, month, vdate),
2396             make_time(hours, minutes,seconds, ms)));
2397     return S_OK;
2398 }
2399
2400 static HRESULT DateConstr_UTC(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
2401         jsval_t *r)
2402 {
2403     double n;
2404     HRESULT hres;
2405
2406     TRACE("\n");
2407
2408     hres = date_utc(ctx, argc, argv, &n);
2409     if(SUCCEEDED(hres) && r)
2410         *r = jsval_number(n);
2411     return hres;
2412 }
2413
2414 static HRESULT DateConstr_value(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv,
2415         jsval_t *r)
2416 {
2417     jsdisp_t *date;
2418     HRESULT hres;
2419
2420     TRACE("\n");
2421
2422     switch(flags) {
2423     case DISPATCH_CONSTRUCT:
2424         switch(argc) {
2425         /* ECMA-262 3rd Edition    15.9.3.3 */
2426         case 0: {
2427             FILETIME time;
2428             LONGLONG lltime;
2429
2430             GetSystemTimeAsFileTime(&time);
2431             lltime = ((LONGLONG)time.dwHighDateTime<<32)
2432                 + time.dwLowDateTime;
2433
2434             hres = create_date(ctx, NULL, lltime/10000-TIME_EPOCH, &date);
2435             if(FAILED(hres))
2436                 return hres;
2437             break;
2438         }
2439
2440         /* ECMA-262 3rd Edition    15.9.3.2 */
2441         case 1: {
2442             jsval_t prim;
2443             double n;
2444
2445             hres = to_primitive(ctx, argv[0], &prim, NO_HINT);
2446             if(FAILED(hres))
2447                 return hres;
2448
2449             if(is_string(prim))
2450                 hres = date_parse(get_string(prim), &n);
2451             else
2452                 hres = to_number(ctx, prim, &n);
2453
2454             jsval_release(prim);
2455             if(FAILED(hres))
2456                 return hres;
2457
2458             hres = create_date(ctx, NULL, time_clip(n), &date);
2459             if(FAILED(hres))
2460                 return hres;
2461             break;
2462         }
2463
2464         /* ECMA-262 3rd Edition    15.9.3.1 */
2465         default: {
2466             double ret_date;
2467             DateInstance *di;
2468
2469             hres = date_utc(ctx, argc, argv, &ret_date);
2470             if(FAILED(hres))
2471                 return hres;
2472
2473             hres = create_date(ctx, NULL, ret_date, &date);
2474             if(FAILED(hres))
2475                 return hres;
2476
2477             di = (DateInstance*)date;
2478             di->time = utc(di->time, di);
2479         }
2480         }
2481
2482         *r = jsval_obj(date);
2483         return S_OK;
2484
2485     case INVOKE_FUNC: {
2486         FILETIME system_time, local_time;
2487         LONGLONG lltime;
2488
2489         GetSystemTimeAsFileTime(&system_time);
2490         FileTimeToLocalFileTime(&system_time, &local_time);
2491         lltime = ((LONGLONG)local_time.dwHighDateTime<<32)
2492             + local_time.dwLowDateTime;
2493
2494         return date_to_string(lltime/10000-TIME_EPOCH, FALSE, 0, r);
2495     }
2496
2497     default:
2498         FIXME("unimplemented flags %x\n", flags);
2499         return E_NOTIMPL;
2500     }
2501
2502     return S_OK;
2503 }
2504
2505 static const builtin_prop_t DateConstr_props[] = {
2506     {UTCW,    DateConstr_UTC,    PROPF_METHOD},
2507     {parseW,  DateConstr_parse,  PROPF_METHOD}
2508 };
2509
2510 static const builtin_info_t DateConstr_info = {
2511     JSCLASS_FUNCTION,
2512     {NULL, Function_value, 0},
2513     sizeof(DateConstr_props)/sizeof(*DateConstr_props),
2514     DateConstr_props,
2515     NULL,
2516     NULL
2517 };
2518
2519 HRESULT create_date_constr(script_ctx_t *ctx, jsdisp_t *object_prototype, jsdisp_t **ret)
2520 {
2521     jsdisp_t *date;
2522     HRESULT hres;
2523
2524     static const WCHAR DateW[] = {'D','a','t','e',0};
2525
2526     hres = create_date(ctx, object_prototype, 0.0, &date);
2527     if(FAILED(hres))
2528         return hres;
2529
2530     hres = create_builtin_constructor(ctx, DateConstr_value, DateW, &DateConstr_info,
2531             PROPF_CONSTR|7, date, ret);
2532
2533     jsdisp_release(date);
2534     return hres;
2535 }