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