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