2 * Copyright 2008 Jacek Caban for CodeWeavers
3 * Copyright 2009 Piotr Caban
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.
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.
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
22 /* 1601 to 1970 is 369 years plus 89 leap days */
23 #define TIME_EPOCH ((ULONGLONG)(369 * 365 + 89) * 86400 * 1000)
28 /* ECMA-262 3rd Edition 15.9.1.1 */
32 SYSTEMTIME standardDate
;
34 SYSTEMTIME daylightDate
;
38 static const WCHAR toStringW
[] = {'t','o','S','t','r','i','n','g',0};
39 static const WCHAR toLocaleStringW
[] = {'t','o','L','o','c','a','l','e','S','t','r','i','n','g',0};
40 static const WCHAR valueOfW
[] = {'v','a','l','u','e','O','f',0};
41 static const WCHAR toUTCStringW
[] = {'t','o','U','T','C','S','t','r','i','n','g',0};
42 static const WCHAR toGMTStringW
[] = {'t','o','G','M','T','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 getMillisecondsW
[] = {'g','e','t','M','i','l','l','i','s','e','c','o','n','d','s',0};
63 static const WCHAR getUTCMillisecondsW
[] = {'g','e','t','U','T','C','M','i','l','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 setMillisecondsW
[] = {'s','e','t','M','i','l','l','i','s','e','c','o','n','d','s',0};
67 static const WCHAR setUTCMillisecondsW
[] = {'s','e','t','U','T','C','M','i','l','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','U','T','C','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 static const WCHAR getYearW
[] = {'g','e','t','Y','e','a','r',0};
81 static const WCHAR setYearW
[] = {'s','e','t','Y','e','a','r',0};
83 static const WCHAR UTCW
[] = {'U','T','C',0};
84 static const WCHAR parseW
[] = {'p','a','r','s','e',0};
86 static inline DateInstance
*date_from_jsdisp(jsdisp_t
*jsdisp
)
88 return CONTAINING_RECORD(jsdisp
, DateInstance
, dispex
);
91 static inline DateInstance
*date_this(vdisp_t
*jsthis
)
93 return is_vclass(jsthis
, JSCLASS_DATE
) ? date_from_jsdisp(jsthis
->u
.jsdisp
) : NULL
;
96 /*ECMA-262 3rd Edition 15.9.1.2 */
97 #define MS_PER_DAY 86400000
98 #define MS_PER_HOUR 3600000
99 #define MS_PER_MINUTE 60000
101 /* ECMA-262 3rd Edition 15.9.1.2 */
102 static inline DOUBLE
day(DOUBLE time
)
104 return floor(time
/ MS_PER_DAY
);
107 /* ECMA-262 3rd Edition 15.9.1.2 */
108 static inline DOUBLE
time_within_day(DOUBLE time
)
112 ret
= fmod(time
, MS_PER_DAY
);
119 /* ECMA-262 3rd Edition 15.9.1.3 */
120 static inline DOUBLE
days_in_year(DOUBLE year
)
124 if(year
!= (int)year
)
128 if(y
%4 != 0) return 365;
129 if(y
%100 != 0) return 366;
130 if(y
%400 != 0) return 365;
134 /* ECMA-262 3rd Edition 15.9.1.3 */
135 static inline DOUBLE
day_from_year(DOUBLE year
)
137 if(year
!= (int)year
)
140 return floor(365.0*(year
-1970) + floor((year
-1969)/4)
141 - floor((year
-1901)/100) + floor((year
-1601)/400));
144 static inline int day_from_month(int month
, int in_leap_year
)
153 return 59+in_leap_year
;
155 return 90+in_leap_year
;
157 return 120+in_leap_year
;
159 return 151+in_leap_year
;
161 return 181+in_leap_year
;
163 return 212+in_leap_year
;
165 return 243+in_leap_year
;
167 return 273+in_leap_year
;
169 return 304+in_leap_year
;
171 return 334+in_leap_year
;
175 /* ECMA-262 3rd Edition 15.9.1.3 */
176 static inline DOUBLE
time_from_year(DOUBLE year
)
178 return MS_PER_DAY
*day_from_year(year
);
181 /* ECMA-262 3rd Edition 15.9.1.3 */
182 static inline DOUBLE
year_from_time(DOUBLE time
)
189 y
= 1970 + time
/365.25/MS_PER_DAY
;
191 if(time_from_year(y
) > time
)
192 while(time_from_year(y
) > time
) y
--;
194 while(time_from_year(y
+1)<=time
) y
++;
199 /* ECMA-262 3rd Edition 15.9.1.3 */
200 static inline int in_leap_year(DOUBLE time
)
202 if(days_in_year(year_from_time(time
))==366)
207 /* ECMA-262 3rd Edition 15.9.1.4 */
208 static inline int day_within_year(DOUBLE time
)
210 return day(time
) - day_from_year(year_from_time(time
));
213 /* ECMA-262 3rd Edition 15.9.1.4 */
214 static inline DOUBLE
month_from_time(DOUBLE time
)
216 int ily
= in_leap_year(time
);
217 int dwy
= day_within_year(time
);
222 if(0<=dwy
&& dwy
<31) return 0;
223 if(dwy
< 59+ily
) return 1;
224 if(dwy
< 90+ily
) return 2;
225 if(dwy
< 120+ily
) return 3;
226 if(dwy
< 151+ily
) return 4;
227 if(dwy
< 181+ily
) return 5;
228 if(dwy
< 212+ily
) return 6;
229 if(dwy
< 243+ily
) return 7;
230 if(dwy
< 273+ily
) return 8;
231 if(dwy
< 304+ily
) return 9;
232 if(dwy
< 334+ily
) return 10;
236 /* ECMA-262 3rd Edition 15.9.1.5 */
237 static inline DOUBLE
date_from_time(DOUBLE time
)
239 int dwy
= day_within_year(time
);
240 int ily
= in_leap_year(time
);
241 int mft
= month_from_time(time
);
246 if(mft
==0) return dwy
+1;
247 if(mft
==1) return dwy
-30;
248 if(mft
==2) return dwy
-58-ily
;
249 if(mft
==3) return dwy
-89-ily
;
250 if(mft
==4) return dwy
-119-ily
;
251 if(mft
==5) return dwy
-150-ily
;
252 if(mft
==6) return dwy
-180-ily
;
253 if(mft
==7) return dwy
-211-ily
;
254 if(mft
==8) return dwy
-242-ily
;
255 if(mft
==9) return dwy
-272-ily
;
256 if(mft
==10) return dwy
-303-ily
;
260 /* ECMA-262 3rd Edition 15.9.1.6 */
261 static inline DOUBLE
week_day(DOUBLE time
)
268 ret
= fmod(day(time
)+4, 7);
274 static inline DOUBLE
convert_time(int year
, SYSTEMTIME st
)
285 time
= time_from_year(year
);
286 time
+= (DOUBLE
)day_from_month(st
.wMonth
-1, in_leap_year(time
)) * MS_PER_DAY
;
289 set_week_day
= st
.wDayOfWeek
-week_day(time
);
292 time
+= set_week_day
* MS_PER_DAY
;
294 time
+= (DOUBLE
)(st
.wDay
-1) * 7 * MS_PER_DAY
;
295 if(month_from_time(time
) != st
.wMonth
-1)
296 time
-= 7 * MS_PER_DAY
;
299 time
+= st
.wDay
* MS_PER_DAY
;
301 time
+= st
.wHour
* MS_PER_HOUR
;
302 time
+= st
.wMinute
* MS_PER_MINUTE
;
307 /* ECMA-262 3rd Edition 15.9.1.9 */
308 static inline DOUBLE
daylight_saving_ta(DOUBLE time
, DateInstance
*date
)
310 int year
= year_from_time(time
);
311 DOUBLE standardTime
, daylightTime
;
316 standardTime
= convert_time(year
, date
->standardDate
);
317 daylightTime
= convert_time(year
, date
->daylightDate
);
319 if(isnan(standardTime
) || isnan(daylightTime
))
321 else if(standardTime
> daylightTime
) {
322 if(daylightTime
<= time
&& time
< standardTime
)
323 return date
->daylightBias
;
325 return date
->standardBias
;
328 if(standardTime
<= time
&& time
< daylightTime
)
329 return date
->standardBias
;
331 return date
->daylightBias
;
335 /* ECMA-262 3rd Edition 15.9.1.9 */
336 static inline DOUBLE
local_time(DOUBLE time
, DateInstance
*date
)
338 return time
- (daylight_saving_ta(time
, date
)+date
->bias
)*MS_PER_MINUTE
;
341 /* ECMA-262 3rd Edition 15.9.1.9 */
342 static inline DOUBLE
utc(DOUBLE time
, DateInstance
*date
)
344 time
+= date
->bias
* MS_PER_MINUTE
;
345 return time
+ daylight_saving_ta(time
, date
)*MS_PER_MINUTE
;
348 /* ECMA-262 3rd Edition 15.9.1.10 */
349 static inline DOUBLE
hour_from_time(DOUBLE time
)
356 ret
= fmod(floor(time
/MS_PER_HOUR
), 24);
362 /* ECMA-262 3rd Edition 15.9.1.10 */
363 static inline DOUBLE
min_from_time(DOUBLE time
)
370 ret
= fmod(floor(time
/MS_PER_MINUTE
), 60);
376 /* ECMA-262 3rd Edition 15.9.1.10 */
377 static inline DOUBLE
sec_from_time(DOUBLE time
)
384 ret
= fmod(floor(time
/1000), 60);
390 /* ECMA-262 3rd Edition 15.9.1.10 */
391 static inline DOUBLE
ms_from_time(DOUBLE time
)
398 ret
= fmod(time
, 1000);
399 if(ret
<0) ret
+= 1000;
404 /* ECMA-262 3rd Edition 15.9.1.11 */
405 static inline DOUBLE
make_time(DOUBLE hour
, DOUBLE min
, DOUBLE sec
, DOUBLE ms
)
407 return hour
*MS_PER_HOUR
+ min
*MS_PER_MINUTE
+ sec
*1000 + ms
;
410 /* ECMA-262 3rd Edition 15.9.1.12 */
411 static inline DOUBLE
make_day(DOUBLE year
, DOUBLE month
, DOUBLE day
)
415 year
+= floor(month
/12);
417 month
= fmod(month
, 12);
418 if(month
<0) month
+= 12;
420 time
= time_from_year(year
);
422 day
+= floor(time
/ MS_PER_DAY
);
423 day
+= day_from_month(month
, in_leap_year(time
));
428 /* ECMA-262 3rd Edition 15.9.1.13 */
429 static inline DOUBLE
make_date(DOUBLE day
, DOUBLE time
)
431 return day
*MS_PER_DAY
+ time
;
434 /* ECMA-262 3rd Edition 15.9.1.14 */
435 static inline DOUBLE
time_clip(DOUBLE time
)
437 if(8.64e15
< time
|| time
< -8.64e15
) {
444 static SYSTEMTIME
create_systemtime(DOUBLE time
)
448 st
.wYear
= year_from_time(time
);
449 st
.wMonth
= month_from_time(time
) + 1;
450 st
.wDayOfWeek
= week_day(time
);
451 st
.wDay
= date_from_time(time
);
452 st
.wHour
= hour_from_time(time
);
453 st
.wMinute
= min_from_time(time
);
454 st
.wSecond
= sec_from_time(time
);
455 st
.wMilliseconds
= ms_from_time(time
);
460 static inline HRESULT
date_to_string(DOUBLE time
, BOOL show_offset
, int offset
, jsval_t
*r
)
462 static const WCHAR formatW
[] = { '%','s',' ','%','s',' ','%','d',' ',
463 '%','0','2','d',':','%','0','2','d',':','%','0','2','d',' ',
464 'U','T','C','%','c','%','0','2','d','%','0','2','d',' ','%','d','%','s',0 };
465 static const WCHAR formatUTCW
[] = { '%','s',' ','%','s',' ','%','d',' ',
466 '%','0','2','d',':','%','0','2','d',':','%','0','2','d',' ',
467 'U','T','C',' ','%','d','%','s',0 };
468 static const WCHAR formatNoOffsetW
[] = { '%','s',' ','%','s',' ',
469 '%','d',' ','%','0','2','d',':','%','0','2','d',':',
470 '%','0','2','d',' ','%','d','%','s',0 };
471 static const WCHAR ADW
[] = { 0 };
472 static const WCHAR BCW
[] = { ' ','B','.','C','.',0 };
474 static const DWORD week_ids
[] = { LOCALE_SABBREVDAYNAME7
, LOCALE_SABBREVDAYNAME1
,
475 LOCALE_SABBREVDAYNAME2
, LOCALE_SABBREVDAYNAME3
, LOCALE_SABBREVDAYNAME4
,
476 LOCALE_SABBREVDAYNAME5
, LOCALE_SABBREVDAYNAME6
};
477 static const DWORD month_ids
[] = { LOCALE_SABBREVMONTHNAME1
, LOCALE_SABBREVMONTHNAME2
,
478 LOCALE_SABBREVMONTHNAME3
, LOCALE_SABBREVMONTHNAME4
,
479 LOCALE_SABBREVMONTHNAME5
, LOCALE_SABBREVMONTHNAME6
,
480 LOCALE_SABBREVMONTHNAME7
, LOCALE_SABBREVMONTHNAME8
,
481 LOCALE_SABBREVMONTHNAME9
, LOCALE_SABBREVMONTHNAME10
,
482 LOCALE_SABBREVMONTHNAME11
, LOCALE_SABBREVMONTHNAME12
};
484 BOOL formatAD
= TRUE
;
485 WCHAR week
[64], month
[64];
494 *r
= jsval_string(jsstr_nan());
499 lcid_en
= MAKELCID(MAKELANGID(LANG_ENGLISH
,SUBLANG_ENGLISH_US
),SORT_DEFAULT
);
502 GetLocaleInfoW(lcid_en
, week_ids
[(int)week_day(time
)], week
, sizeof(week
)/sizeof(*week
));
505 GetLocaleInfoW(lcid_en
, month_ids
[(int)month_from_time(time
)], month
, sizeof(month
)/sizeof(*month
));
507 year
= year_from_time(time
);
513 day
= date_from_time(time
);
521 sprintfW(buf
, formatNoOffsetW
, week
, month
, day
,
522 (int)hour_from_time(time
), (int)min_from_time(time
),
523 (int)sec_from_time(time
), year
, formatAD
?ADW
:BCW
);
525 sprintfW(buf
, formatW
, week
, month
, day
,
526 (int)hour_from_time(time
), (int)min_from_time(time
),
527 (int)sec_from_time(time
), sign
, offset
/60, offset
%60,
528 year
, formatAD
?ADW
:BCW
);
530 sprintfW(buf
, formatUTCW
, week
, month
, day
,
531 (int)hour_from_time(time
), (int)min_from_time(time
),
532 (int)sec_from_time(time
), year
, formatAD
?ADW
:BCW
);
534 date_jsstr
= jsstr_alloc(buf
);
536 return E_OUTOFMEMORY
;
538 *r
= jsval_string(date_jsstr
);
543 /* ECMA-262 3rd Edition 15.9.1.2 */
544 static HRESULT
dateobj_to_string(DateInstance
*date
, jsval_t
*r
)
549 time
= local_time(date
->time
, date
);
550 offset
= date
->bias
+
551 daylight_saving_ta(time
, date
);
553 return date_to_string(time
, TRUE
, offset
, r
);
556 static HRESULT
Date_toString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
, jsval_t
*r
)
562 if(!(date
= date_this(jsthis
)))
563 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
565 return dateobj_to_string(date
, r
);
568 /* ECMA-262 3rd Edition 15.9.1.5 */
569 static HRESULT
Date_toLocaleString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
575 int date_len
, time_len
;
579 if(!(date
= date_this(jsthis
)))
580 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
582 if(isnan(date
->time
)) {
584 *r
= jsval_string(jsstr_nan());
588 st
= create_systemtime(local_time(date
->time
, date
));
590 if(st
.wYear
<1601 || st
.wYear
>9999)
591 return dateobj_to_string(date
, r
);
596 date_len
= GetDateFormatW(ctx
->lcid
, DATE_LONGDATE
, &st
, NULL
, NULL
, 0);
597 time_len
= GetTimeFormatW(ctx
->lcid
, 0, &st
, NULL
, NULL
, 0);
599 date_str
= jsstr_alloc_buf(date_len
+time_len
-1, &ptr
);
601 return E_OUTOFMEMORY
;
603 GetDateFormatW(ctx
->lcid
, DATE_LONGDATE
, &st
, NULL
, ptr
, date_len
);
604 GetTimeFormatW(ctx
->lcid
, 0, &st
, NULL
, ptr
+date_len
, time_len
);
605 ptr
[date_len
-1] = ' ';
607 *r
= jsval_string(date_str
);
612 static HRESULT
Date_valueOf(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
619 if(!(date
= date_this(jsthis
)))
620 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
623 *r
= jsval_number(date
->time
);
627 static inline HRESULT
create_utc_string(script_ctx_t
*ctx
, vdisp_t
*jsthis
, jsval_t
*r
)
629 static const WCHAR formatADW
[] = { '%','s',',',' ','%','d',' ','%','s',' ','%','d',' ',
630 '%','0','2','d',':','%','0','2','d',':','%','0','2','d',' ','U','T','C',0 };
631 static const WCHAR formatBCW
[] = { '%','s',',',' ','%','d',' ','%','s',' ','%','d',' ','B','.','C','.',' ',
632 '%','0','2','d',':','%','0','2','d',':','%','0','2','d',' ','U','T','C',0 };
634 static const DWORD week_ids
[] = { LOCALE_SABBREVDAYNAME7
, LOCALE_SABBREVDAYNAME1
,
635 LOCALE_SABBREVDAYNAME2
, LOCALE_SABBREVDAYNAME3
, LOCALE_SABBREVDAYNAME4
,
636 LOCALE_SABBREVDAYNAME5
, LOCALE_SABBREVDAYNAME6
};
637 static const DWORD month_ids
[] = { LOCALE_SABBREVMONTHNAME1
, LOCALE_SABBREVMONTHNAME2
,
638 LOCALE_SABBREVMONTHNAME3
, LOCALE_SABBREVMONTHNAME4
,
639 LOCALE_SABBREVMONTHNAME5
, LOCALE_SABBREVMONTHNAME6
,
640 LOCALE_SABBREVMONTHNAME7
, LOCALE_SABBREVMONTHNAME8
,
641 LOCALE_SABBREVMONTHNAME9
, LOCALE_SABBREVMONTHNAME10
,
642 LOCALE_SABBREVMONTHNAME11
, LOCALE_SABBREVMONTHNAME12
};
644 BOOL formatAD
= TRUE
;
645 WCHAR week
[64], month
[64];
652 if(!(date
= date_this(jsthis
)))
653 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
655 if(isnan(date
->time
)) {
657 *r
= jsval_string(jsstr_nan());
662 lcid_en
= MAKELCID(MAKELANGID(LANG_ENGLISH
,SUBLANG_ENGLISH_US
),SORT_DEFAULT
);
665 GetLocaleInfoW(lcid_en
, week_ids
[(int)week_day(date
->time
)], week
, sizeof(week
)/sizeof(*week
));
668 GetLocaleInfoW(lcid_en
, month_ids
[(int)month_from_time(date
->time
)], month
, sizeof(month
)/sizeof(*month
));
670 year
= year_from_time(date
->time
);
676 day
= date_from_time(date
->time
);
678 sprintfW(buf
, formatAD
? formatADW
: formatBCW
, week
, day
, month
, year
,
679 (int)hour_from_time(date
->time
), (int)min_from_time(date
->time
),
680 (int)sec_from_time(date
->time
));
682 date_str
= jsstr_alloc(buf
);
684 return E_OUTOFMEMORY
;
686 *r
= jsval_string(date_str
);
691 /* ECMA-262 3rd Edition 15.9.5.42 */
692 static HRESULT
Date_toUTCString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
696 return create_utc_string(ctx
, jsthis
, r
);
699 static HRESULT
Date_toGMTString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
703 return create_utc_string(ctx
, jsthis
, r
);
706 /* ECMA-262 3rd Edition 15.9.5.3 */
707 static HRESULT
dateobj_to_date_string(DateInstance
*date
, jsval_t
*r
)
709 static const WCHAR formatADW
[] = { '%','s',' ','%','s',' ','%','d',' ','%','d',0 };
710 static const WCHAR formatBCW
[] = { '%','s',' ','%','s',' ','%','d',' ','%','d',' ','B','.','C','.',0 };
712 static const DWORD week_ids
[] = { LOCALE_SABBREVDAYNAME7
, LOCALE_SABBREVDAYNAME1
,
713 LOCALE_SABBREVDAYNAME2
, LOCALE_SABBREVDAYNAME3
, LOCALE_SABBREVDAYNAME4
,
714 LOCALE_SABBREVDAYNAME5
, LOCALE_SABBREVDAYNAME6
};
715 static const DWORD month_ids
[] = { LOCALE_SABBREVMONTHNAME1
, LOCALE_SABBREVMONTHNAME2
,
716 LOCALE_SABBREVMONTHNAME3
, LOCALE_SABBREVMONTHNAME4
,
717 LOCALE_SABBREVMONTHNAME5
, LOCALE_SABBREVMONTHNAME6
,
718 LOCALE_SABBREVMONTHNAME7
, LOCALE_SABBREVMONTHNAME8
,
719 LOCALE_SABBREVMONTHNAME9
, LOCALE_SABBREVMONTHNAME10
,
720 LOCALE_SABBREVMONTHNAME11
, LOCALE_SABBREVMONTHNAME12
};
722 BOOL formatAD
= TRUE
;
723 WCHAR week
[64], month
[64];
730 if(isnan(date
->time
)) {
732 *r
= jsval_string(jsstr_nan());
736 time
= local_time(date
->time
, date
);
739 lcid_en
= MAKELCID(MAKELANGID(LANG_ENGLISH
,SUBLANG_ENGLISH_US
),SORT_DEFAULT
);
742 GetLocaleInfoW(lcid_en
, week_ids
[(int)week_day(time
)], week
, sizeof(week
)/sizeof(*week
));
745 GetLocaleInfoW(lcid_en
, month_ids
[(int)month_from_time(time
)], month
, sizeof(month
)/sizeof(*month
));
747 year
= year_from_time(time
);
753 day
= date_from_time(time
);
755 sprintfW(buf
, formatAD
? formatADW
: formatBCW
, week
, month
, day
, year
);
757 date_str
= jsstr_alloc(buf
);
759 return E_OUTOFMEMORY
;
761 *r
= jsval_string(date_str
);
766 static HRESULT
Date_toDateString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
771 if(!(date
= date_this(jsthis
)))
772 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
774 return dateobj_to_date_string(date
, r
);
777 /* ECMA-262 3rd Edition 15.9.5.4 */
778 static HRESULT
Date_toTimeString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
781 static const WCHAR formatW
[] = { '%','0','2','d',':','%','0','2','d',':','%','0','2','d',
782 ' ','U','T','C','%','c','%','0','2','d','%','0','2','d',0 };
783 static const WCHAR formatUTCW
[] = { '%','0','2','d',':','%','0','2','d',
784 ':','%','0','2','d',' ','U','T','C',0 };
794 if(!(date
= date_this(jsthis
)))
795 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
797 if(isnan(date
->time
)) {
799 *r
= jsval_string(jsstr_nan());
803 time
= local_time(date
->time
, date
);
806 offset
= date
->bias
+
807 daylight_saving_ta(time
, date
);
816 sprintfW(buf
, formatW
, (int)hour_from_time(time
),
817 (int)min_from_time(time
), (int)sec_from_time(time
),
818 sign
, offset
/60, offset
%60);
820 sprintfW(buf
, formatUTCW
, (int)hour_from_time(time
),
821 (int)min_from_time(time
), (int)sec_from_time(time
));
823 date_str
= jsstr_alloc(buf
);
825 return E_OUTOFMEMORY
;
827 *r
= jsval_string(date_str
);
832 /* ECMA-262 3rd Edition 15.9.5.6 */
833 static HRESULT
Date_toLocaleDateString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
843 if(!(date
= date_this(jsthis
)))
844 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
846 if(isnan(date
->time
)) {
848 *r
= jsval_string(jsstr_nan());
852 st
= create_systemtime(local_time(date
->time
, date
));
854 if(st
.wYear
<1601 || st
.wYear
>9999)
855 return dateobj_to_date_string(date
, r
);
860 len
= GetDateFormatW(ctx
->lcid
, DATE_LONGDATE
, &st
, NULL
, NULL
, 0);
861 date_str
= jsstr_alloc_buf(len
-1, &ptr
);
863 return E_OUTOFMEMORY
;
864 GetDateFormatW(ctx
->lcid
, DATE_LONGDATE
, &st
, NULL
, ptr
, len
);
866 *r
= jsval_string(date_str
);
871 /* ECMA-262 3rd Edition 15.9.5.7 */
872 static HRESULT
Date_toLocaleTimeString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
882 if(!(date
= date_this(jsthis
)))
883 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
885 if(isnan(date
->time
)) {
887 *r
= jsval_string(jsstr_nan());
891 st
= create_systemtime(local_time(date
->time
, date
));
893 if(st
.wYear
<1601 || st
.wYear
>9999)
894 return Date_toTimeString(ctx
, jsthis
, flags
, argc
, argv
, r
);
899 len
= GetTimeFormatW(ctx
->lcid
, 0, &st
, NULL
, NULL
, 0);
900 date_str
= jsstr_alloc_buf(len
-1, &ptr
);
902 return E_OUTOFMEMORY
;
903 GetTimeFormatW(ctx
->lcid
, 0, &st
, NULL
, ptr
, len
);
905 *r
= jsval_string(date_str
);
910 /* ECMA-262 3rd Edition 15.9.5.9 */
911 static HRESULT
Date_getTime(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
918 if(!(date
= date_this(jsthis
)))
919 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
922 *r
= jsval_number(date
->time
);
926 /* ECMA-262 3rd Edition 15.9.5.10 */
927 static HRESULT
Date_getFullYear(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
934 if(!(date
= date_this(jsthis
)))
935 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
938 DOUBLE time
= local_time(date
->time
, date
);
940 *r
= jsval_number(year_from_time(time
));
945 /* ECMA-262 3rd Edition 15.9.5.11 */
946 static HRESULT
Date_getUTCFullYear(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
953 if(!(date
= date_this(jsthis
)))
954 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
957 *r
= jsval_number(year_from_time(date
->time
));
961 /* ECMA-262 3rd Edition 15.9.5.12 */
962 static HRESULT
Date_getMonth(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
, jsval_t
*r
)
968 if(!(date
= date_this(jsthis
)))
969 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
972 *r
= jsval_number(month_from_time(local_time(date
->time
, date
)));
976 /* ECMA-262 3rd Edition 15.9.5.13 */
977 static HRESULT
Date_getUTCMonth(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
984 if(!(date
= date_this(jsthis
)))
985 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
988 *r
= jsval_number(month_from_time(date
->time
));
992 /* ECMA-262 3rd Edition 15.9.5.14 */
993 static HRESULT
Date_getDate(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
, jsval_t
*r
)
999 if(!(date
= date_this(jsthis
)))
1000 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1003 *r
= jsval_number(date_from_time(local_time(date
->time
, date
)));
1007 /* ECMA-262 3rd Edition 15.9.5.15 */
1008 static HRESULT
Date_getUTCDate(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1015 if(!(date
= date_this(jsthis
)))
1016 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1019 *r
= jsval_number(date_from_time(date
->time
));
1023 /* ECMA-262 3rd Edition 15.9.5.16 */
1024 static HRESULT
Date_getDay(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1031 if(!(date
= date_this(jsthis
)))
1032 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1035 *r
= jsval_number(week_day(local_time(date
->time
, date
)));
1039 /* ECMA-262 3rd Edition 15.9.5.17 */
1040 static HRESULT
Date_getUTCDay(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1047 if(!(date
= date_this(jsthis
)))
1048 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1051 *r
= jsval_number(week_day(date
->time
));
1055 /* ECMA-262 3rd Edition 15.9.5.18 */
1056 static HRESULT
Date_getHours(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1063 if(!(date
= date_this(jsthis
)))
1064 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1067 *r
= jsval_number(hour_from_time(local_time(date
->time
, date
)));
1071 /* ECMA-262 3rd Edition 15.9.5.19 */
1072 static HRESULT
Date_getUTCHours(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1079 if(!(date
= date_this(jsthis
)))
1080 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1083 *r
= jsval_number(hour_from_time(date
->time
));
1087 /* ECMA-262 3rd Edition 15.9.5.20 */
1088 static HRESULT
Date_getMinutes(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1095 if(!(date
= date_this(jsthis
)))
1096 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1099 *r
= jsval_number(min_from_time(local_time(date
->time
, date
)));
1103 /* ECMA-262 3rd Edition 15.9.5.21 */
1104 static HRESULT
Date_getUTCMinutes(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1111 if(!(date
= date_this(jsthis
)))
1112 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1115 *r
= jsval_number(min_from_time(date
->time
));
1119 /* ECMA-262 3rd Edition 15.9.5.22 */
1120 static HRESULT
Date_getSeconds(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
, jsval_t
*r
)
1126 if(!(date
= date_this(jsthis
)))
1127 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1130 *r
= jsval_number(sec_from_time(local_time(date
->time
, date
)));
1134 /* ECMA-262 3rd Edition 15.9.5.23 */
1135 static HRESULT
Date_getUTCSeconds(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1142 if(!(date
= date_this(jsthis
)))
1143 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1146 *r
= jsval_number(sec_from_time(date
->time
));
1150 /* ECMA-262 3rd Edition 15.9.5.24 */
1151 static HRESULT
Date_getMilliseconds(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1158 if(!(date
= date_this(jsthis
)))
1159 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1162 *r
= jsval_number(ms_from_time(local_time(date
->time
, date
)));
1166 /* ECMA-262 3rd Edition 15.9.5.25 */
1167 static HRESULT
Date_getUTCMilliseconds(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1174 if(!(date
= date_this(jsthis
)))
1175 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1178 *r
= jsval_number(ms_from_time(date
->time
));
1182 /* ECMA-262 3rd Edition 15.9.5.26 */
1183 static HRESULT
Date_getTimezoneOffset(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1190 if(!(date
= date_this(jsthis
)))
1191 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1194 *r
= jsval_number(floor((date
->time
-local_time(date
->time
, date
))/MS_PER_MINUTE
));
1198 /* ECMA-262 3rd Edition 15.9.5.27 */
1199 static HRESULT
Date_setTime(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1208 if(!(date
= date_this(jsthis
)))
1209 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1212 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1214 hres
= to_number(ctx
, argv
[0], &n
);
1218 date
->time
= time_clip(n
);
1221 *r
= jsval_number(date
->time
);
1225 /* ECMA-262 3rd Edition 15.9.5.28 */
1226 static HRESULT
Date_setMilliseconds(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1235 if(!(date
= date_this(jsthis
)))
1236 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1239 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1241 hres
= to_number(ctx
, argv
[0], &n
);
1245 t
= local_time(date
->time
, date
);
1246 t
= make_date(day(t
), make_time(hour_from_time(t
), min_from_time(t
),
1247 sec_from_time(t
), n
));
1248 date
->time
= time_clip(utc(t
, date
));
1251 *r
= jsval_number(date
->time
);
1255 /* ECMA-262 3rd Edition 15.9.5.29 */
1256 static HRESULT
Date_setUTCMilliseconds(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1265 if(!(date
= date_this(jsthis
)))
1266 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1269 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1271 hres
= to_number(ctx
, argv
[0], &n
);
1276 t
= make_date(day(t
), make_time(hour_from_time(t
), min_from_time(t
),
1277 sec_from_time(t
), n
));
1278 date
->time
= time_clip(t
);
1281 *r
= jsval_number(date
->time
);
1285 /* ECMA-262 3rd Edition 15.9.5.30 */
1286 static HRESULT
Date_setSeconds(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1295 if(!(date
= date_this(jsthis
)))
1296 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1299 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1301 t
= local_time(date
->time
, date
);
1303 hres
= to_number(ctx
, argv
[0], &sec
);
1308 hres
= to_number(ctx
, argv
[1], &ms
);
1312 ms
= ms_from_time(t
);
1315 t
= make_date(day(t
), make_time(hour_from_time(t
),
1316 min_from_time(t
), sec
, ms
));
1317 date
->time
= time_clip(utc(t
, date
));
1320 *r
= jsval_number(date
->time
);
1324 /* ECMA-262 3rd Edition 15.9.5.31 */
1325 static HRESULT
Date_setUTCSeconds(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1334 if(!(date
= date_this(jsthis
)))
1335 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1338 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1342 hres
= to_number(ctx
, argv
[0], &sec
);
1347 hres
= to_number(ctx
, argv
[1], &ms
);
1351 ms
= ms_from_time(t
);
1354 t
= make_date(day(t
), make_time(hour_from_time(t
),
1355 min_from_time(t
), sec
, ms
));
1356 date
->time
= time_clip(t
);
1359 *r
= jsval_number(date
->time
);
1363 /* ECMA-262 3rd Edition 15.9.5.33 */
1364 static HRESULT
Date_setMinutes(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1368 double t
, min
, sec
, ms
;
1373 if(!(date
= date_this(jsthis
)))
1374 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1377 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1379 t
= local_time(date
->time
, date
);
1381 hres
= to_number(ctx
, argv
[0], &min
);
1386 hres
= to_number(ctx
, argv
[1], &sec
);
1390 sec
= sec_from_time(t
);
1394 hres
= to_number(ctx
, argv
[2], &ms
);
1398 ms
= ms_from_time(t
);
1401 t
= make_date(day(t
), make_time(hour_from_time(t
),
1403 date
->time
= time_clip(utc(t
, date
));
1406 *r
= jsval_number(date
->time
);
1410 /* ECMA-262 3rd Edition 15.9.5.34 */
1411 static HRESULT
Date_setUTCMinutes(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1415 double t
, min
, sec
, ms
;
1420 if(!(date
= date_this(jsthis
)))
1421 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1424 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1428 hres
= to_number(ctx
, argv
[0], &min
);
1433 hres
= to_number(ctx
, argv
[1], &sec
);
1437 sec
= sec_from_time(t
);
1441 hres
= to_number(ctx
, argv
[2], &ms
);
1445 ms
= ms_from_time(t
);
1448 t
= make_date(day(t
), make_time(hour_from_time(t
),
1450 date
->time
= time_clip(t
);
1453 *r
= jsval_number(date
->time
);
1457 /* ECMA-262 3rd Edition 15.9.5.35 */
1458 static HRESULT
Date_setHours(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1462 double t
, hour
, min
, sec
, ms
;
1467 if(!(date
= date_this(jsthis
)))
1468 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1471 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1473 t
= local_time(date
->time
, date
);
1475 hres
= to_number(ctx
, argv
[0], &hour
);
1480 hres
= to_number(ctx
, argv
[1], &min
);
1484 min
= min_from_time(t
);
1488 hres
= to_number(ctx
, argv
[2], &sec
);
1492 sec
= sec_from_time(t
);
1496 hres
= to_number(ctx
, argv
[3], &ms
);
1500 ms
= ms_from_time(t
);
1503 t
= make_date(day(t
), make_time(hour
, min
, sec
, ms
));
1504 date
->time
= time_clip(utc(t
, date
));
1507 *r
= jsval_number(date
->time
);
1511 /* ECMA-262 3rd Edition 15.9.5.36 */
1512 static HRESULT
Date_setUTCHours(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1516 double t
, hour
, min
, sec
, ms
;
1521 if(!(date
= date_this(jsthis
)))
1522 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1525 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1529 hres
= to_number(ctx
, argv
[0], &hour
);
1534 hres
= to_number(ctx
, argv
[1], &min
);
1538 min
= min_from_time(t
);
1542 hres
= to_number(ctx
, argv
[2], &sec
);
1546 sec
= sec_from_time(t
);
1550 hres
= to_number(ctx
, argv
[3], &ms
);
1554 ms
= ms_from_time(t
);
1557 t
= make_date(day(t
), make_time(hour
, min
, sec
, ms
));
1558 date
->time
= time_clip(t
);
1561 *r
= jsval_number(date
->time
);
1565 /* ECMA-262 3rd Edition 15.9.5.36 */
1566 static HRESULT
Date_setDate(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1575 if(!(date
= date_this(jsthis
)))
1576 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1579 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1581 hres
= to_number(ctx
, argv
[0], &n
);
1585 t
= local_time(date
->time
, date
);
1586 t
= make_date(make_day(year_from_time(t
), month_from_time(t
), n
), time_within_day(t
));
1587 date
->time
= time_clip(utc(t
, date
));
1590 *r
= jsval_number(date
->time
);
1594 /* ECMA-262 3rd Edition 15.9.5.37 */
1595 static HRESULT
Date_setUTCDate(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1604 if(!(date
= date_this(jsthis
)))
1605 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1608 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1610 hres
= to_number(ctx
, argv
[0], &n
);
1615 t
= make_date(make_day(year_from_time(t
), month_from_time(t
), n
), time_within_day(t
));
1616 date
->time
= time_clip(t
);
1619 *r
= jsval_number(date
->time
);
1623 /* ECMA-262 3rd Edition 15.9.5.38 */
1624 static HRESULT
Date_setMonth(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1628 DOUBLE t
, month
, ddate
;
1633 if(!(date
= date_this(jsthis
)))
1634 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1637 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1639 t
= local_time(date
->time
, date
);
1641 hres
= to_number(ctx
, argv
[0], &month
);
1646 hres
= to_number(ctx
, argv
[1], &ddate
);
1650 ddate
= date_from_time(t
);
1653 t
= make_date(make_day(year_from_time(t
), month
, ddate
),
1654 time_within_day(t
));
1655 date
->time
= time_clip(utc(t
, date
));
1658 *r
= jsval_number(date
->time
);
1662 /* ECMA-262 3rd Edition 15.9.5.39 */
1663 static HRESULT
Date_setUTCMonth(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1667 double t
, month
, ddate
;
1672 if(!(date
= date_this(jsthis
)))
1673 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1676 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1680 hres
= to_number(ctx
, argv
[0], &month
);
1685 hres
= to_number(ctx
, argv
[1], &ddate
);
1689 ddate
= date_from_time(t
);
1692 t
= make_date(make_day(year_from_time(t
), month
, ddate
),
1693 time_within_day(t
));
1694 date
->time
= time_clip(t
);
1697 *r
= jsval_number(date
->time
);
1701 /* ECMA-262 3rd Edition 15.9.5.40 */
1702 static HRESULT
Date_setFullYear(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1706 double t
, year
, month
, ddate
;
1711 if(!(date
= date_this(jsthis
)))
1712 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1715 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1717 t
= local_time(date
->time
, date
);
1719 hres
= to_number(ctx
, argv
[0], &year
);
1724 hres
= to_number(ctx
, argv
[1], &month
);
1728 month
= month_from_time(t
);
1732 hres
= to_number(ctx
, argv
[2], &ddate
);
1736 ddate
= date_from_time(t
);
1739 t
= make_date(make_day(year
, month
, ddate
), time_within_day(t
));
1740 date
->time
= time_clip(utc(t
, date
));
1743 *r
= jsval_number(date
->time
);
1747 /* ECMA-262 3rd Edition 15.9.5.41 */
1748 static HRESULT
Date_setUTCFullYear(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1752 double t
, year
, month
, ddate
;
1757 if(!(date
= date_this(jsthis
)))
1758 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1761 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1765 hres
= to_number(ctx
, argv
[0], &year
);
1770 hres
= to_number(ctx
, argv
[1], &month
);
1774 month
= month_from_time(t
);
1778 hres
= to_number(ctx
, argv
[2], &ddate
);
1782 ddate
= date_from_time(t
);
1785 t
= make_date(make_day(year
, month
, ddate
), time_within_day(t
));
1786 date
->time
= time_clip(t
);
1789 *r
= jsval_number(date
->time
);
1793 /* ECMA-262 3rd Edition B2.4 */
1794 static HRESULT
Date_getYear(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1802 if(!(date
= date_this(jsthis
)))
1803 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1805 t
= local_time(date
->time
, date
);
1808 *r
= jsval_number(NAN
);
1812 year
= year_from_time(t
);
1814 *r
= jsval_number((1900<=year
&& year
<2000)?year
-1900:year
);
1818 /* ECMA-262 3rd Edition B2.5 */
1819 static HRESULT
Date_setYear(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
1828 if(!(date
= date_this(jsthis
)))
1829 return throw_type_error(ctx
, JS_E_DATE_EXPECTED
, NULL
);
1832 return throw_type_error(ctx
, JS_E_MISSING_ARG
, NULL
);
1834 t
= local_time(date
->time
, date
);
1836 hres
= to_number(ctx
, argv
[0], &year
);
1843 *r
= jsval_number(NAN
);
1847 year
= year
>= 0.0 ? floor(year
) : -floor(-year
);
1848 if(-1.0 < year
&& year
< 100.0)
1851 date
->time
= time_clip(utc(make_date(make_day(year
, month_from_time(t
), date_from_time(t
)), time_within_day(t
)), date
));
1854 *r
= jsval_number(date
->time
);
1858 static HRESULT
Date_get_value(script_ctx_t
*ctx
, jsdisp_t
*jsthis
, jsval_t
*r
)
1862 return dateobj_to_string(date_from_jsdisp(jsthis
), r
);
1865 static const builtin_prop_t Date_props
[] = {
1866 {getDateW
, Date_getDate
, PROPF_METHOD
},
1867 {getDayW
, Date_getDay
, PROPF_METHOD
},
1868 {getFullYearW
, Date_getFullYear
, PROPF_METHOD
},
1869 {getHoursW
, Date_getHours
, PROPF_METHOD
},
1870 {getMillisecondsW
, Date_getMilliseconds
, PROPF_METHOD
},
1871 {getMinutesW
, Date_getMinutes
, PROPF_METHOD
},
1872 {getMonthW
, Date_getMonth
, PROPF_METHOD
},
1873 {getSecondsW
, Date_getSeconds
, PROPF_METHOD
},
1874 {getTimeW
, Date_getTime
, PROPF_METHOD
},
1875 {getTimezoneOffsetW
, Date_getTimezoneOffset
, PROPF_METHOD
},
1876 {getUTCDateW
, Date_getUTCDate
, PROPF_METHOD
},
1877 {getUTCDayW
, Date_getUTCDay
, PROPF_METHOD
},
1878 {getUTCFullYearW
, Date_getUTCFullYear
, PROPF_METHOD
},
1879 {getUTCHoursW
, Date_getUTCHours
, PROPF_METHOD
},
1880 {getUTCMillisecondsW
, Date_getUTCMilliseconds
, PROPF_METHOD
},
1881 {getUTCMinutesW
, Date_getUTCMinutes
, PROPF_METHOD
},
1882 {getUTCMonthW
, Date_getUTCMonth
, PROPF_METHOD
},
1883 {getUTCSecondsW
, Date_getUTCSeconds
, PROPF_METHOD
},
1884 {getYearW
, Date_getYear
, PROPF_METHOD
},
1885 {setDateW
, Date_setDate
, PROPF_METHOD
|1},
1886 {setFullYearW
, Date_setFullYear
, PROPF_METHOD
|3},
1887 {setHoursW
, Date_setHours
, PROPF_METHOD
|4},
1888 {setMillisecondsW
, Date_setMilliseconds
, PROPF_METHOD
|1},
1889 {setMinutesW
, Date_setMinutes
, PROPF_METHOD
|3},
1890 {setMonthW
, Date_setMonth
, PROPF_METHOD
|2},
1891 {setSecondsW
, Date_setSeconds
, PROPF_METHOD
|2},
1892 {setTimeW
, Date_setTime
, PROPF_METHOD
|1},
1893 {setUTCDateW
, Date_setUTCDate
, PROPF_METHOD
|1},
1894 {setUTCFullYearW
, Date_setUTCFullYear
, PROPF_METHOD
|3},
1895 {setUTCHoursW
, Date_setUTCHours
, PROPF_METHOD
|4},
1896 {setUTCMillisecondsW
, Date_setUTCMilliseconds
, PROPF_METHOD
|1},
1897 {setUTCMinutesW
, Date_setUTCMinutes
, PROPF_METHOD
|3},
1898 {setUTCMonthW
, Date_setUTCMonth
, PROPF_METHOD
|2},
1899 {setUTCSecondsW
, Date_setUTCSeconds
, PROPF_METHOD
|2},
1900 {setYearW
, Date_setYear
, PROPF_METHOD
|1},
1901 {toDateStringW
, Date_toDateString
, PROPF_METHOD
},
1902 {toGMTStringW
, Date_toGMTString
, PROPF_METHOD
},
1903 {toLocaleDateStringW
, Date_toLocaleDateString
, PROPF_METHOD
},
1904 {toLocaleStringW
, Date_toLocaleString
, PROPF_METHOD
},
1905 {toLocaleTimeStringW
, Date_toLocaleTimeString
, PROPF_METHOD
},
1906 {toStringW
, Date_toString
, PROPF_METHOD
},
1907 {toTimeStringW
, Date_toTimeString
, PROPF_METHOD
},
1908 {toUTCStringW
, Date_toUTCString
, PROPF_METHOD
},
1909 {valueOfW
, Date_valueOf
, PROPF_METHOD
},
1912 static const builtin_info_t Date_info
= {
1914 {NULL
, NULL
,0, Date_get_value
},
1915 sizeof(Date_props
)/sizeof(*Date_props
),
1921 static const builtin_info_t DateInst_info
= {
1923 {NULL
, NULL
,0, Date_get_value
},
1929 static HRESULT
create_date(script_ctx_t
*ctx
, jsdisp_t
*object_prototype
, DOUBLE time
, jsdisp_t
**ret
)
1933 TIME_ZONE_INFORMATION tzi
;
1935 GetTimeZoneInformation(&tzi
);
1937 date
= heap_alloc_zero(sizeof(DateInstance
));
1939 return E_OUTOFMEMORY
;
1941 if(object_prototype
)
1942 hres
= init_dispex(&date
->dispex
, ctx
, &Date_info
, object_prototype
);
1944 hres
= init_dispex_from_constr(&date
->dispex
, ctx
, &DateInst_info
, ctx
->date_constr
);
1951 date
->bias
= tzi
.Bias
;
1952 date
->standardDate
= tzi
.StandardDate
;
1953 date
->standardBias
= tzi
.StandardBias
;
1954 date
->daylightDate
= tzi
.DaylightDate
;
1955 date
->daylightBias
= tzi
.DaylightBias
;
1957 *ret
= &date
->dispex
;
1961 static inline HRESULT
date_parse(jsstr_t
*input_str
, double *ret
) {
1962 static const DWORD string_ids
[] = { LOCALE_SMONTHNAME12
, LOCALE_SMONTHNAME11
,
1963 LOCALE_SMONTHNAME10
, LOCALE_SMONTHNAME9
, LOCALE_SMONTHNAME8
,
1964 LOCALE_SMONTHNAME7
, LOCALE_SMONTHNAME6
, LOCALE_SMONTHNAME5
,
1965 LOCALE_SMONTHNAME4
, LOCALE_SMONTHNAME3
, LOCALE_SMONTHNAME2
,
1966 LOCALE_SMONTHNAME1
, LOCALE_SDAYNAME7
, LOCALE_SDAYNAME1
,
1967 LOCALE_SDAYNAME2
, LOCALE_SDAYNAME3
, LOCALE_SDAYNAME4
,
1968 LOCALE_SDAYNAME5
, LOCALE_SDAYNAME6
};
1969 WCHAR
*strings
[sizeof(string_ids
)/sizeof(DWORD
)];
1971 int input_len
, parse_len
= 0, nest_level
= 0, i
, size
;
1972 int year
= 0, month
= 0, day
= 0, hour
= 0, min
= 0, sec
= 0;
1973 int ms
= 0, offset
= 0, hour_adjust
= 0;
1974 BOOL set_year
= FALSE
, set_month
= FALSE
, set_day
= FALSE
, set_hour
= FALSE
;
1975 BOOL set_offset
= FALSE
, set_era
= FALSE
, ad
= TRUE
, set_am
= FALSE
, am
= TRUE
;
1976 BOOL set_hour_adjust
= TRUE
;
1977 TIME_ZONE_INFORMATION tzi
;
1982 input_len
= jsstr_length(input_str
);
1983 input
= jsstr_flatten(input_str
);
1985 return E_OUTOFMEMORY
;
1987 for(i
=0; i
<input_len
; i
++) {
1988 if(input
[i
] == '(') nest_level
++;
1989 else if(input
[i
] == ')') {
1996 else if(!nest_level
) parse_len
++;
1999 parse
= heap_alloc((parse_len
+1)*sizeof(WCHAR
));
2001 return E_OUTOFMEMORY
;
2004 for(i
=0; i
<input_len
; i
++) {
2005 if(input
[i
] == '(') nest_level
++;
2006 else if(input
[i
] == ')') nest_level
--;
2007 else if(!nest_level
) parse
[parse_len
++] = toupperW(input
[i
]);
2009 parse
[parse_len
] = 0;
2011 GetTimeZoneInformation(&tzi
);
2013 di
.standardDate
= tzi
.StandardDate
;
2014 di
.standardBias
= tzi
.StandardBias
;
2015 di
.daylightDate
= tzi
.DaylightDate
;
2016 di
.daylightBias
= tzi
.DaylightBias
;
2018 /* FIXME: Cache strings */
2019 lcid_en
= MAKELCID(MAKELANGID(LANG_ENGLISH
,SUBLANG_ENGLISH_US
),SORT_DEFAULT
);
2020 for(i
=0; i
<sizeof(string_ids
)/sizeof(DWORD
); i
++) {
2021 size
= GetLocaleInfoW(lcid_en
, string_ids
[i
], NULL
, 0);
2022 strings
[i
] = heap_alloc((size
+1)*sizeof(WCHAR
));
2026 heap_free(strings
[i
]);
2028 return E_OUTOFMEMORY
;
2030 GetLocaleInfoW(lcid_en
, string_ids
[i
], strings
[i
], size
);
2033 for(i
=0; i
<parse_len
;) {
2034 while(isspaceW(parse
[i
])) i
++;
2035 if(parse
[i
] == ',') {
2036 while(parse
[i
] == ',') i
++;
2040 if(parse
[i
]>='0' && parse
[i
]<='9') {
2041 int tmp
= atoiW(&parse
[i
]);
2042 while(parse
[i
]>='0' && parse
[i
]<='9') i
++;
2043 while(isspaceW(parse
[i
])) i
++;
2045 if(parse
[i
] == ':') {
2052 while(parse
[i
] == ':') i
++;
2053 while(isspaceW(parse
[i
])) i
++;
2054 if(parse
[i
]>='0' && parse
[i
]<='9') {
2055 min
= atoiW(&parse
[i
]);
2056 while(parse
[i
]>='0' && parse
[i
]<='9') i
++;
2059 while(isspaceW(parse
[i
])) i
++;
2060 while(parse
[i
] == ':') i
++;
2061 while(isspaceW(parse
[i
])) i
++;
2062 if(parse
[i
]>='0' && parse
[i
]<='9') {
2063 sec
= atoiW(&parse
[i
]);
2064 while(parse
[i
]>='0' && parse
[i
]<='9') i
++;
2067 else if(parse
[i
]=='-' || parse
[i
]=='/') {
2068 /* Short or long date */
2069 if(set_day
|| set_month
|| set_year
) break;
2076 while(isspaceW(parse
[i
])) i
++;
2077 while(parse
[i
]=='-' || parse
[i
]=='/') i
++;
2078 while(isspaceW(parse
[i
])) i
++;
2079 if(parse
[i
]<'0' || parse
[i
]>'9') break;
2080 day
= atoiW(&parse
[i
]);
2081 while(parse
[i
]>='0' && parse
[i
]<='9') i
++;
2083 while(parse
[i
]=='-' || parse
[i
]=='/') i
++;
2084 while(isspaceW(parse
[i
])) i
++;
2085 if(parse
[i
]<'0' || parse
[i
]>'9') break;
2086 year
= atoiW(&parse
[i
]);
2087 while(parse
[i
]>='0' && parse
[i
]<='9') i
++;
2096 else if(tmp
<0) break;
2110 else if(parse
[i
]=='+' || parse
[i
]=='-') {
2111 /* Timezone offset */
2112 BOOL positive
= TRUE
;
2114 if(set_offset
&& set_hour_adjust
) break;
2116 set_hour_adjust
= FALSE
;
2118 if(parse
[i
] == '-') positive
= FALSE
;
2121 while(isspaceW(parse
[i
])) i
++;
2122 if(parse
[i
]<'0' || parse
[i
]>'9') break;
2123 offset
= atoiW(&parse
[i
]);
2124 while(parse
[i
]>='0' && parse
[i
]<='9') i
++;
2126 if(offset
<24) offset
*= 60;
2127 else offset
= (offset
/100)*60 + offset
%100;
2129 if(positive
) offset
= -offset
;
2133 if(parse
[i
]<'A' || parse
[i
]>'Z') break;
2134 else if(parse
[i
]=='B' && (parse
[i
+1]=='C' ||
2135 (parse
[i
+1]=='.' && parse
[i
+2]=='C'))) {
2142 if(parse
[i
] == '.') i
++;
2144 if(parse
[i
] == '.') i
++;
2146 else if(parse
[i
]=='A' && (parse
[i
+1]=='D' ||
2147 (parse
[i
+1]=='.' && parse
[i
+2]=='D'))) {
2153 if(parse
[i
] == '.') i
++;
2155 if(parse
[i
] == '.') i
++;
2157 else if(parse
[i
+1]<'A' || parse
[i
+1]>'Z') {
2159 if(set_offset
) break;
2162 if(parse
[i
] <= 'I') hour_adjust
= parse
[i
]-'A'+2;
2163 else if(parse
[i
] == 'J') break;
2164 else if(parse
[i
] <= 'M') hour_adjust
= parse
[i
]-'K'+11;
2165 else if(parse
[i
] <= 'Y') hour_adjust
= parse
[i
]-'N';
2166 else hour_adjust
= 1;
2169 if(parse
[i
] == '.') i
++;
2171 else if(parse
[i
]=='A' && parse
[i
+1]=='M') {
2178 else if(parse
[i
]=='P' && parse
[i
+1]=='M') {
2185 else if((parse
[i
]=='U' && parse
[i
+1]=='T' && parse
[i
+2]=='C')
2186 || (parse
[i
]=='G' && parse
[i
+1]=='M' && parse
[i
+2]=='T')) {
2188 if(set_offset
) break;
2190 set_hour_adjust
= FALSE
;
2195 /* Month or garbage */
2198 for(size
=i
; parse
[size
]>='A' && parse
[size
]<='Z'; size
++);
2201 for(j
=0; j
<sizeof(string_ids
)/sizeof(DWORD
); j
++)
2202 if(!strncmpiW(&parse
[i
], strings
[j
], size
)) break;
2205 if(set_month
) break;
2209 else if(j
== sizeof(string_ids
)/sizeof(DWORD
)) break;
2216 if(i
== parse_len
&& set_year
&& set_month
&& set_day
&& (!set_am
|| hour
<13)) {
2218 if(hour
== 12) hour
= 0;
2222 if(!ad
) year
= -year
+1;
2223 else if(year
<100) year
+= 1900;
2225 *ret
= time_clip(make_date(make_day(year
, month
, day
),
2226 make_time(hour
+hour_adjust
, min
, sec
, ms
)) + offset
*MS_PER_MINUTE
);
2229 *ret
= utc(*ret
, &di
);
2234 for(i
=0; i
<sizeof(string_ids
)/sizeof(DWORD
); i
++)
2235 heap_free(strings
[i
]);
2241 static HRESULT
DateConstr_parse(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
2252 *r
= jsval_number(NAN
);
2256 hres
= to_string(ctx
, argv
[0], &parse_str
);
2260 hres
= date_parse(parse_str
, &n
);
2261 jsstr_release(parse_str
);
2265 *r
= jsval_number(n
);
2269 static HRESULT
date_utc(script_ctx_t
*ctx
, unsigned argc
, jsval_t
*argv
, double *ret
)
2271 double year
, month
, vdate
, hours
, minutes
, seconds
, ms
;
2277 hres
= to_number(ctx
, argv
[0], &year
);
2280 if(0 <= year
&& year
<= 99)
2287 hres
= to_number(ctx
, argv
[1], &month
);
2295 hres
= to_number(ctx
, argv
[2], &vdate
);
2303 hres
= to_number(ctx
, argv
[3], &hours
);
2311 hres
= to_number(ctx
, argv
[4], &minutes
);
2319 hres
= to_number(ctx
, argv
[5], &seconds
);
2327 hres
= to_number(ctx
, argv
[6], &ms
);
2334 *ret
= time_clip(make_date(make_day(year
, month
, vdate
),
2335 make_time(hours
, minutes
,seconds
, ms
)));
2339 static HRESULT
DateConstr_UTC(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
2347 hres
= date_utc(ctx
, argc
, argv
, &n
);
2348 if(SUCCEEDED(hres
) && r
)
2349 *r
= jsval_number(n
);
2353 static HRESULT
DateConstr_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
2362 case DISPATCH_CONSTRUCT
:
2364 /* ECMA-262 3rd Edition 15.9.3.3 */
2369 GetSystemTimeAsFileTime(&time
);
2370 lltime
= ((LONGLONG
)time
.dwHighDateTime
<<32)
2371 + time
.dwLowDateTime
;
2373 hres
= create_date(ctx
, NULL
, lltime
/10000-TIME_EPOCH
, &date
);
2379 /* ECMA-262 3rd Edition 15.9.3.2 */
2384 hres
= to_primitive(ctx
, argv
[0], &prim
, NO_HINT
);
2389 hres
= date_parse(get_string(prim
), &n
);
2391 hres
= to_number(ctx
, prim
, &n
);
2393 jsval_release(prim
);
2397 hres
= create_date(ctx
, NULL
, time_clip(n
), &date
);
2403 /* ECMA-262 3rd Edition 15.9.3.1 */
2408 hres
= date_utc(ctx
, argc
, argv
, &ret_date
);
2412 hres
= create_date(ctx
, NULL
, ret_date
, &date
);
2416 di
= date_from_jsdisp(date
);
2417 di
->time
= utc(di
->time
, di
);
2421 *r
= jsval_obj(date
);
2425 FILETIME system_time
, local_time
;
2428 GetSystemTimeAsFileTime(&system_time
);
2429 FileTimeToLocalFileTime(&system_time
, &local_time
);
2430 lltime
= ((LONGLONG
)local_time
.dwHighDateTime
<<32)
2431 + local_time
.dwLowDateTime
;
2433 return date_to_string(lltime
/10000-TIME_EPOCH
, FALSE
, 0, r
);
2437 FIXME("unimplemented flags %x\n", flags
);
2444 static const builtin_prop_t DateConstr_props
[] = {
2445 {UTCW
, DateConstr_UTC
, PROPF_METHOD
},
2446 {parseW
, DateConstr_parse
, PROPF_METHOD
}
2449 static const builtin_info_t DateConstr_info
= {
2451 DEFAULT_FUNCTION_VALUE
,
2452 sizeof(DateConstr_props
)/sizeof(*DateConstr_props
),
2458 HRESULT
create_date_constr(script_ctx_t
*ctx
, jsdisp_t
*object_prototype
, jsdisp_t
**ret
)
2463 static const WCHAR DateW
[] = {'D','a','t','e',0};
2465 hres
= create_date(ctx
, object_prototype
, 0.0, &date
);
2469 hres
= create_builtin_constructor(ctx
, DateConstr_value
, DateW
, &DateConstr_info
,
2470 PROPF_CONSTR
|7, date
, ret
);
2472 jsdisp_release(date
);