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