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