[INTL] Implement Date.prototype.toLocaleDateString in ECMA-402
[WebKit-https.git] / Source / JavaScriptCore / runtime / DatePrototype.cpp
1 /*
2  *  Copyright (C) 1999-2000 Harri Porten (porten@kde.org)
3  *  Copyright (C) 2004, 2005, 2006, 2007, 2008 Apple Inc. All rights reserved.
4  *  Copyright (C) 2008, 2009 Torch Mobile, Inc. All rights reserved.
5  *  Copyright (C) 2010 Torch Mobile (Beijing) Co. Ltd. All rights reserved.
6  *
7  *  This library is free software; you can redistribute it and/or
8  *  modify it under the terms of the GNU Lesser General Public
9  *  License as published by the Free Software Foundation; either
10  *  version 2 of the License, or (at your option) any later version.
11  *
12  *  This library is distributed in the hope that it will be useful,
13  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
14  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  *  Lesser General Public License for more details.
16  *
17  *  You should have received a copy of the GNU Lesser General Public
18  *  License along with this library; if not, write to the Free Software
19  *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301
20  *  USA
21  *
22  */
23
24 #include "config.h"
25 #include "DatePrototype.h"
26
27 #include "DateConversion.h"
28 #include "DateInstance.h"
29 #include "Error.h"
30 #include "JSCBuiltins.h"
31 #include "JSDateMath.h"
32 #include "JSGlobalObject.h"
33 #include "JSObject.h"
34 #include "JSString.h"
35 #include "Lookup.h"
36 #include "ObjectPrototype.h"
37 #include "JSCInlines.h"
38 #include <limits.h>
39 #include <locale.h>
40 #include <math.h>
41 #include <stdlib.h>
42 #include <time.h>
43 #include <wtf/Assertions.h>
44 #include <wtf/MathExtras.h>
45 #include <wtf/StringExtras.h>
46
47 #if HAVE(LANGINFO_H)
48 #include <langinfo.h>
49 #endif
50
51 #if HAVE(SYS_PARAM_H)
52 #include <sys/param.h>
53 #endif
54
55 #if HAVE(SYS_TIME_H)
56 #include <sys/time.h>
57 #endif
58
59 #if HAVE(SYS_TIMEB_H)
60 #include <sys/timeb.h>
61 #endif
62
63 #if !(OS(DARWIN) && USE(CF))
64 #include <unicode/udat.h>
65 #endif
66
67 #if USE(CF)
68 #include <CoreFoundation/CoreFoundation.h>
69 #endif
70
71 using namespace WTF;
72
73 namespace JSC {
74
75 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetDate(ExecState*);
76 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetDay(ExecState*);
77 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetFullYear(ExecState*);
78 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetHours(ExecState*);
79 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetMilliSeconds(ExecState*);
80 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetMinutes(ExecState*);
81 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetMonth(ExecState*);
82 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetSeconds(ExecState*);
83 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetTimezoneOffset(ExecState*);
84 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCDate(ExecState*);
85 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCDay(ExecState*);
86 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCFullYear(ExecState*);
87 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCHours(ExecState*);
88 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCMilliseconds(ExecState*);
89 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCMinutes(ExecState*);
90 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCMonth(ExecState*);
91 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCSeconds(ExecState*);
92 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetYear(ExecState*);
93 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetDate(ExecState*);
94 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetFullYear(ExecState*);
95 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetHours(ExecState*);
96 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetMilliSeconds(ExecState*);
97 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetMinutes(ExecState*);
98 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetMonth(ExecState*);
99 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetSeconds(ExecState*);
100 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetTime(ExecState*);
101 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCDate(ExecState*);
102 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCFullYear(ExecState*);
103 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCHours(ExecState*);
104 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCMilliseconds(ExecState*);
105 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCMinutes(ExecState*);
106 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCMonth(ExecState*);
107 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCSeconds(ExecState*);
108 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetYear(ExecState*);
109 EncodedJSValue JSC_HOST_CALL dateProtoFuncToDateString(ExecState*);
110 EncodedJSValue JSC_HOST_CALL dateProtoFuncToGMTString(ExecState*);
111 EncodedJSValue JSC_HOST_CALL dateProtoFuncToLocaleDateString(ExecState*);
112 EncodedJSValue JSC_HOST_CALL dateProtoFuncToLocaleString(ExecState*);
113 EncodedJSValue JSC_HOST_CALL dateProtoFuncToLocaleTimeString(ExecState*);
114 EncodedJSValue JSC_HOST_CALL dateProtoFuncToString(ExecState*);
115 EncodedJSValue JSC_HOST_CALL dateProtoFuncToTimeString(ExecState*);
116 EncodedJSValue JSC_HOST_CALL dateProtoFuncToUTCString(ExecState*);
117 EncodedJSValue JSC_HOST_CALL dateProtoFuncToISOString(ExecState*);
118 EncodedJSValue JSC_HOST_CALL dateProtoFuncToJSON(ExecState*);
119
120 }
121
122 #include "DatePrototype.lut.h"
123
124 namespace JSC {
125
126 enum LocaleDateTimeFormat { LocaleDateAndTime, LocaleDate, LocaleTime };
127  
128 #if OS(DARWIN) && USE(CF)
129
130 // FIXME: Since this is superior to the strftime-based version, why limit this to OS(DARWIN)?
131 // Instead we should consider using this whenever USE(CF) is true.
132
133 static CFDateFormatterStyle styleFromArgString(const String& string, CFDateFormatterStyle defaultStyle)
134 {
135     if (string == "short")
136         return kCFDateFormatterShortStyle;
137     if (string == "medium")
138         return kCFDateFormatterMediumStyle;
139     if (string == "long")
140         return kCFDateFormatterLongStyle;
141     if (string == "full")
142         return kCFDateFormatterFullStyle;
143     return defaultStyle;
144 }
145
146 static JSCell* formatLocaleDate(ExecState* exec, DateInstance*, double timeInMilliseconds, LocaleDateTimeFormat format)
147 {
148     CFDateFormatterStyle dateStyle = (format != LocaleTime ? kCFDateFormatterLongStyle : kCFDateFormatterNoStyle);
149     CFDateFormatterStyle timeStyle = (format != LocaleDate ? kCFDateFormatterLongStyle : kCFDateFormatterNoStyle);
150
151     bool useCustomFormat = false;
152     String customFormatString;
153
154     String arg0String = exec->argument(0).toString(exec)->value(exec);
155     if (arg0String == "custom" && !exec->argument(1).isUndefined()) {
156         useCustomFormat = true;
157         customFormatString = exec->argument(1).toString(exec)->value(exec);
158     } else if (format == LocaleDateAndTime && !exec->argument(1).isUndefined()) {
159         dateStyle = styleFromArgString(arg0String, dateStyle);
160         timeStyle = styleFromArgString(exec->argument(1).toString(exec)->value(exec), timeStyle);
161     } else if (format != LocaleTime && !exec->argument(0).isUndefined())
162         dateStyle = styleFromArgString(arg0String, dateStyle);
163     else if (format != LocaleDate && !exec->argument(0).isUndefined())
164         timeStyle = styleFromArgString(arg0String, timeStyle);
165
166     CFAbsoluteTime absoluteTime = floor(timeInMilliseconds / msPerSecond) - kCFAbsoluteTimeIntervalSince1970;
167
168     auto formatter = adoptCF(CFDateFormatterCreate(kCFAllocatorDefault, adoptCF(CFLocaleCopyCurrent()).get(), dateStyle, timeStyle));
169     if (useCustomFormat)
170         CFDateFormatterSetFormat(formatter.get(), customFormatString.createCFString().get());
171     return jsNontrivialString(exec, adoptCF(CFDateFormatterCreateStringWithAbsoluteTime(kCFAllocatorDefault, formatter.get(), absoluteTime)).get());
172 }
173
174 #elif !UCONFIG_NO_FORMATTING
175
176 static JSCell* formatLocaleDate(ExecState* exec, DateInstance*, double timeInMilliseconds, LocaleDateTimeFormat format)
177 {
178     UDateFormatStyle timeStyle = (format != LocaleDate ? UDAT_LONG : UDAT_NONE);
179     UDateFormatStyle dateStyle = (format != LocaleTime ? UDAT_LONG : UDAT_NONE);
180
181     UErrorCode status = U_ZERO_ERROR;
182     UDateFormat* df = udat_open(timeStyle, dateStyle, 0, 0, -1, 0, 0, &status);
183     if (!df)
184         return jsEmptyString(exec);
185
186     UChar buffer[128];
187     int32_t length;
188     length = udat_format(df, timeInMilliseconds, buffer, 128, 0, &status);
189     udat_close(df);
190     if (status != U_ZERO_ERROR)
191         return jsEmptyString(exec);
192
193     return jsNontrivialString(exec, String(buffer, length));
194 }
195
196 #else
197
198 static JSCell* formatLocaleDate(ExecState* exec, const GregorianDateTime& gdt, LocaleDateTimeFormat format)
199 {
200 #if OS(WINDOWS)
201     SYSTEMTIME systemTime;
202     memset(&systemTime, 0, sizeof(systemTime));
203     systemTime.wYear = gdt.year();
204     systemTime.wMonth = gdt.month() + 1;
205     systemTime.wDay = gdt.monthDay();
206     systemTime.wDayOfWeek = gdt.weekDay();
207     systemTime.wHour = gdt.hour();
208     systemTime.wMinute = gdt.minute();
209     systemTime.wSecond = gdt.second();
210
211     Vector<UChar, 128> buffer;
212     size_t length = 0;
213
214     if (format == LocaleDate) {
215         buffer.resize(GetDateFormatW(LOCALE_USER_DEFAULT, DATE_LONGDATE, &systemTime, 0, 0, 0));
216         length = GetDateFormatW(LOCALE_USER_DEFAULT, DATE_LONGDATE, &systemTime, 0, buffer.data(), buffer.size());
217     } else if (format == LocaleTime) {
218         buffer.resize(GetTimeFormatW(LOCALE_USER_DEFAULT, 0, &systemTime, 0, 0, 0));
219         length = GetTimeFormatW(LOCALE_USER_DEFAULT, 0, &systemTime, 0, buffer.data(), buffer.size());
220     } else if (format == LocaleDateAndTime) {
221         buffer.resize(GetDateFormatW(LOCALE_USER_DEFAULT, DATE_LONGDATE, &systemTime, 0, 0, 0) + GetTimeFormatW(LOCALE_USER_DEFAULT, 0, &systemTime, 0, 0, 0));
222         length = GetDateFormatW(LOCALE_USER_DEFAULT, DATE_LONGDATE, &systemTime, 0, buffer.data(), buffer.size());
223         if (length) {
224             buffer[length - 1] = ' ';
225             length += GetTimeFormatW(LOCALE_USER_DEFAULT, 0, &systemTime, 0, buffer.data() + length, buffer.size() - length);
226         }
227     } else
228         RELEASE_ASSERT_NOT_REACHED();
229
230     //  Remove terminating null character.
231     if (length)
232         length--;
233
234     return jsNontrivialString(exec, String(buffer.data(), length));
235
236 #else // OS(WINDOWS)
237
238 #if HAVE(LANGINFO_H)
239     static const nl_item formats[] = { D_T_FMT, D_FMT, T_FMT };
240 #else
241     static const char* const formatStrings[] = { "%#c", "%#x", "%X" };
242 #endif
243
244     // Offset year if needed
245     struct tm localTM = gdt;
246     int year = gdt.year();
247     bool yearNeedsOffset = year < 1900 || year > 2038;
248     if (yearNeedsOffset)
249         localTM.tm_year = equivalentYearForDST(year) - 1900;
250
251 #if HAVE(LANGINFO_H)
252     // We do not allow strftime to generate dates with 2-digits years,
253     // both to avoid ambiguity, and a crash in strncpy, for years that
254     // need offset.
255     char* formatString = strdup(nl_langinfo(formats[format]));
256     char* yPos = strchr(formatString, 'y');
257     if (yPos)
258         *yPos = 'Y';
259 #endif
260
261     // Do the formatting
262     const int bufsize = 128;
263     char timebuffer[bufsize];
264
265 #if HAVE(LANGINFO_H)
266     size_t ret = strftime(timebuffer, bufsize, formatString, &localTM);
267     free(formatString);
268 #else
269     size_t ret = strftime(timebuffer, bufsize, formatStrings[format], &localTM);
270 #endif
271
272     if (ret == 0)
273         return jsEmptyString(exec);
274
275     // Copy original into the buffer
276     if (yearNeedsOffset && format != LocaleTime) {
277         static const int yearLen = 5;   // FIXME will be a problem in the year 10,000
278         char yearString[yearLen];
279
280         snprintf(yearString, yearLen, "%d", localTM.tm_year + 1900);
281         char* yearLocation = strstr(timebuffer, yearString);
282         snprintf(yearString, yearLen, "%d", year);
283
284         strncpy(yearLocation, yearString, yearLen - 1);
285     }
286
287     // Convert multi-byte result to UNICODE.
288     // If __STDC_ISO_10646__ is defined, wide character represents
289     // UTF-16 (or UTF-32) code point. In most modern Unix like system
290     // (e.g. Linux with glibc 2.2 and above) the macro is defined,
291     // and wide character represents UTF-32 code point.
292     // Here we static_cast potential UTF-32 to UTF-16, it should be
293     // safe because date and (or) time related characters in different languages
294     // should be in UNICODE BMP. If mbstowcs fails, we just fall
295     // back on using multi-byte result as-is.
296 #ifdef __STDC_ISO_10646__
297     UChar buffer[bufsize];
298     wchar_t tempbuffer[bufsize];
299     size_t length = mbstowcs(tempbuffer, timebuffer, bufsize - 1);
300     if (length != static_cast<size_t>(-1)) {
301         for (size_t i = 0; i < length; ++i)
302             buffer[i] = static_cast<UChar>(tempbuffer[i]);
303         return jsNontrivialString(exec, String(buffer, length));
304     }
305 #endif
306
307     return jsNontrivialString(exec, timebuffer);
308 #endif // OS(WINDOWS)
309 }
310
311 static JSCell* formatLocaleDate(ExecState* exec, DateInstance* dateObject, double, LocaleDateTimeFormat format)
312 {
313     const GregorianDateTime* gregorianDateTime = dateObject->gregorianDateTime(exec);
314     if (!gregorianDateTime)
315         return jsNontrivialString(exec, ASCIILiteral("Invalid Date"));
316     return formatLocaleDate(exec, *gregorianDateTime, format);
317 }
318
319 #endif // OS(DARWIN) && USE(CF)
320
321 static EncodedJSValue formateDateInstance(ExecState* exec, DateTimeFormat format, bool asUTCVariant)
322 {
323     JSValue thisValue = exec->thisValue();
324     if (!thisValue.inherits(DateInstance::info()))
325         return throwVMTypeError(exec);
326
327     DateInstance* thisDateObj = asDateInstance(thisValue);
328
329     const GregorianDateTime* gregorianDateTime = asUTCVariant
330         ? thisDateObj->gregorianDateTimeUTC(exec)
331         : thisDateObj->gregorianDateTime(exec);
332     if (!gregorianDateTime)
333         return JSValue::encode(jsNontrivialString(exec, String(ASCIILiteral("Invalid Date"))));
334
335     return JSValue::encode(jsNontrivialString(exec, formatDateTime(*gregorianDateTime, format, asUTCVariant)));
336 }
337
338 // Converts a list of arguments sent to a Date member function into milliseconds, updating
339 // ms (representing milliseconds) and t (representing the rest of the date structure) appropriately.
340 //
341 // Format of member function: f([hour,] [min,] [sec,] [ms])
342 static bool fillStructuresUsingTimeArgs(ExecState* exec, int maxArgs, double* ms, GregorianDateTime* t)
343 {
344     double milliseconds = 0;
345     bool ok = true;
346     int idx = 0;
347     int numArgs = exec->argumentCount();
348     
349     // JS allows extra trailing arguments -- ignore them
350     if (numArgs > maxArgs)
351         numArgs = maxArgs;
352
353     // hours
354     if (maxArgs >= 4 && idx < numArgs) {
355         t->setHour(0);
356         double hours = exec->uncheckedArgument(idx++).toIntegerPreserveNaN(exec);
357         ok = std::isfinite(hours);
358         milliseconds += hours * msPerHour;
359     }
360
361     // minutes
362     if (maxArgs >= 3 && idx < numArgs && ok) {
363         t->setMinute(0);
364         double minutes = exec->uncheckedArgument(idx++).toIntegerPreserveNaN(exec);
365         ok = std::isfinite(minutes);
366         milliseconds += minutes * msPerMinute;
367     }
368     
369     // seconds
370     if (maxArgs >= 2 && idx < numArgs && ok) {
371         t->setSecond(0);
372         double seconds = exec->uncheckedArgument(idx++).toIntegerPreserveNaN(exec);
373         ok = std::isfinite(seconds);
374         milliseconds += seconds * msPerSecond;
375     }
376     
377     if (!ok)
378         return false;
379         
380     // milliseconds
381     if (idx < numArgs) {
382         double millis = exec->uncheckedArgument(idx).toIntegerPreserveNaN(exec);
383         ok = std::isfinite(millis);
384         milliseconds += millis;
385     } else
386         milliseconds += *ms;
387     
388     *ms = milliseconds;
389     return ok;
390 }
391
392 // Converts a list of arguments sent to a Date member function into years, months, and milliseconds, updating
393 // ms (representing milliseconds) and t (representing the rest of the date structure) appropriately.
394 //
395 // Format of member function: f([years,] [months,] [days])
396 static bool fillStructuresUsingDateArgs(ExecState *exec, int maxArgs, double *ms, GregorianDateTime *t)
397 {
398     int idx = 0;
399     bool ok = true;
400     int numArgs = exec->argumentCount();
401   
402     // JS allows extra trailing arguments -- ignore them
403     if (numArgs > maxArgs)
404         numArgs = maxArgs;
405   
406     // years
407     if (maxArgs >= 3 && idx < numArgs) {
408         double years = exec->uncheckedArgument(idx++).toIntegerPreserveNaN(exec);
409         ok = std::isfinite(years);
410         t->setYear(toInt32(years));
411     }
412     // months
413     if (maxArgs >= 2 && idx < numArgs && ok) {
414         double months = exec->uncheckedArgument(idx++).toIntegerPreserveNaN(exec);
415         ok = std::isfinite(months);
416         t->setMonth(toInt32(months));
417     }
418     // days
419     if (idx < numArgs && ok) {
420         double days = exec->uncheckedArgument(idx++).toIntegerPreserveNaN(exec);
421         ok = std::isfinite(days);
422         t->setMonthDay(0);
423         *ms += days * msPerDay;
424     }
425     
426     return ok;
427 }
428
429 const ClassInfo DatePrototype::s_info = {"Object", &JSNonFinalObject::s_info, &dateTable, CREATE_METHOD_TABLE(DatePrototype)};
430
431 /* Source for DatePrototype.lut.h
432 @begin dateTable
433   toString              dateProtoFuncToString                DontEnum|Function       0
434   toISOString           dateProtoFuncToISOString             DontEnum|Function       0
435   toUTCString           dateProtoFuncToUTCString             DontEnum|Function       0
436   toDateString          dateProtoFuncToDateString            DontEnum|Function       0
437   toTimeString          dateProtoFuncToTimeString            DontEnum|Function       0
438   toLocaleString        dateProtoFuncToLocaleString          DontEnum|Function       0
439   toLocaleDateString    dateProtoFuncToLocaleDateString      DontEnum|Function       0
440   toLocaleTimeString    dateProtoFuncToLocaleTimeString      DontEnum|Function       0
441   valueOf               dateProtoFuncGetTime                 DontEnum|Function       0
442   getTime               dateProtoFuncGetTime                 DontEnum|Function       0
443   getFullYear           dateProtoFuncGetFullYear             DontEnum|Function       0
444   getUTCFullYear        dateProtoFuncGetUTCFullYear          DontEnum|Function       0
445   toGMTString           dateProtoFuncToGMTString             DontEnum|Function       0
446   getMonth              dateProtoFuncGetMonth                DontEnum|Function       0
447   getUTCMonth           dateProtoFuncGetUTCMonth             DontEnum|Function       0
448   getDate               dateProtoFuncGetDate                 DontEnum|Function       0
449   getUTCDate            dateProtoFuncGetUTCDate              DontEnum|Function       0
450   getDay                dateProtoFuncGetDay                  DontEnum|Function       0
451   getUTCDay             dateProtoFuncGetUTCDay               DontEnum|Function       0
452   getHours              dateProtoFuncGetHours                DontEnum|Function       0
453   getUTCHours           dateProtoFuncGetUTCHours             DontEnum|Function       0
454   getMinutes            dateProtoFuncGetMinutes              DontEnum|Function       0
455   getUTCMinutes         dateProtoFuncGetUTCMinutes           DontEnum|Function       0
456   getSeconds            dateProtoFuncGetSeconds              DontEnum|Function       0
457   getUTCSeconds         dateProtoFuncGetUTCSeconds           DontEnum|Function       0
458   getMilliseconds       dateProtoFuncGetMilliSeconds         DontEnum|Function       0
459   getUTCMilliseconds    dateProtoFuncGetUTCMilliseconds      DontEnum|Function       0
460   getTimezoneOffset     dateProtoFuncGetTimezoneOffset       DontEnum|Function       0
461   setTime               dateProtoFuncSetTime                 DontEnum|Function       1
462   setMilliseconds       dateProtoFuncSetMilliSeconds         DontEnum|Function       1
463   setUTCMilliseconds    dateProtoFuncSetUTCMilliseconds      DontEnum|Function       1
464   setSeconds            dateProtoFuncSetSeconds              DontEnum|Function       2
465   setUTCSeconds         dateProtoFuncSetUTCSeconds           DontEnum|Function       2
466   setMinutes            dateProtoFuncSetMinutes              DontEnum|Function       3
467   setUTCMinutes         dateProtoFuncSetUTCMinutes           DontEnum|Function       3
468   setHours              dateProtoFuncSetHours                DontEnum|Function       4
469   setUTCHours           dateProtoFuncSetUTCHours             DontEnum|Function       4
470   setDate               dateProtoFuncSetDate                 DontEnum|Function       1
471   setUTCDate            dateProtoFuncSetUTCDate              DontEnum|Function       1
472   setMonth              dateProtoFuncSetMonth                DontEnum|Function       2
473   setUTCMonth           dateProtoFuncSetUTCMonth             DontEnum|Function       2
474   setFullYear           dateProtoFuncSetFullYear             DontEnum|Function       3
475   setUTCFullYear        dateProtoFuncSetUTCFullYear          DontEnum|Function       3
476   setYear               dateProtoFuncSetYear                 DontEnum|Function       1
477   getYear               dateProtoFuncGetYear                 DontEnum|Function       0
478   toJSON                dateProtoFuncToJSON                  DontEnum|Function       1
479 @end
480 */
481
482 // ECMA 15.9.4
483
484 DatePrototype::DatePrototype(VM& vm, Structure* structure)
485     : Base(vm, structure)
486 {
487 }
488
489 void DatePrototype::finishCreation(VM& vm, JSGlobalObject* globalObject)
490 {
491     Base::finishCreation(vm);
492     ASSERT(inherits(info()));
493
494 #if ENABLE(INTL)
495     JSC_BUILTIN_FUNCTION("toLocaleString", datePrototypeToLocaleStringCodeGenerator, DontEnum);
496     JSC_BUILTIN_FUNCTION("toLocaleDateString", datePrototypeToLocaleDateStringCodeGenerator, DontEnum);
497 #else
498     UNUSED_PARAM(globalObject);
499 #endif // ENABLE(INTL)
500
501     // The constructor will be added later, after DateConstructor has been built.
502 }
503
504 bool DatePrototype::getOwnPropertySlot(JSObject* object, ExecState* exec, PropertyName propertyName, PropertySlot& slot)
505 {
506     return getStaticFunctionSlot<JSObject>(exec, dateTable, jsCast<DatePrototype*>(object), propertyName, slot);
507 }
508
509 // Functions
510
511 EncodedJSValue JSC_HOST_CALL dateProtoFuncToString(ExecState* exec)
512 {
513     const bool asUTCVariant = false;
514     return formateDateInstance(exec, DateTimeFormatDateAndTime, asUTCVariant);
515 }
516
517 EncodedJSValue JSC_HOST_CALL dateProtoFuncToUTCString(ExecState* exec)
518 {
519     const bool asUTCVariant = true;
520     return formateDateInstance(exec, DateTimeFormatDateAndTime, asUTCVariant);
521 }
522
523 EncodedJSValue JSC_HOST_CALL dateProtoFuncToISOString(ExecState* exec)
524 {
525     JSValue thisValue = exec->thisValue();
526     if (!thisValue.inherits(DateInstance::info()))
527         return throwVMTypeError(exec);
528     
529     DateInstance* thisDateObj = asDateInstance(thisValue); 
530     if (!std::isfinite(thisDateObj->internalNumber()))
531         return throwVMError(exec, createRangeError(exec, ASCIILiteral("Invalid Date")));
532
533     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTimeUTC(exec);
534     if (!gregorianDateTime)
535         return JSValue::encode(jsNontrivialString(exec, String(ASCIILiteral("Invalid Date"))));
536     // Maximum amount of space we need in buffer: 7 (max. digits in year) + 2 * 5 (2 characters each for month, day, hour, minute, second) + 4 (. + 3 digits for milliseconds)
537     // 6 for formatting and one for null termination = 28. We add one extra character to allow us to force null termination.
538     char buffer[28];
539     // If the year is outside the bounds of 0 and 9999 inclusive we want to use the extended year format (ES 15.9.1.15.1).
540     int ms = static_cast<int>(fmod(thisDateObj->internalNumber(), msPerSecond));
541     if (ms < 0)
542         ms += msPerSecond;
543
544     int charactersWritten;
545     if (gregorianDateTime->year() > 9999 || gregorianDateTime->year() < 0)
546         charactersWritten = snprintf(buffer, sizeof(buffer), "%+07d-%02d-%02dT%02d:%02d:%02d.%03dZ", gregorianDateTime->year(), gregorianDateTime->month() + 1, gregorianDateTime->monthDay(), gregorianDateTime->hour(), gregorianDateTime->minute(), gregorianDateTime->second(), ms);
547     else
548         charactersWritten = snprintf(buffer, sizeof(buffer), "%04d-%02d-%02dT%02d:%02d:%02d.%03dZ", gregorianDateTime->year(), gregorianDateTime->month() + 1, gregorianDateTime->monthDay(), gregorianDateTime->hour(), gregorianDateTime->minute(), gregorianDateTime->second(), ms);
549
550     ASSERT(charactersWritten > 0 && static_cast<unsigned>(charactersWritten) < sizeof(buffer));
551     if (static_cast<unsigned>(charactersWritten) >= sizeof(buffer))
552         return JSValue::encode(jsEmptyString(exec));
553
554     return JSValue::encode(jsNontrivialString(exec, String(buffer, charactersWritten)));
555 }
556
557 EncodedJSValue JSC_HOST_CALL dateProtoFuncToDateString(ExecState* exec)
558 {
559     const bool asUTCVariant = false;
560     return formateDateInstance(exec, DateTimeFormatDate, asUTCVariant);
561 }
562
563 EncodedJSValue JSC_HOST_CALL dateProtoFuncToTimeString(ExecState* exec)
564 {
565     const bool asUTCVariant = false;
566     return formateDateInstance(exec, DateTimeFormatTime, asUTCVariant);
567 }
568
569 EncodedJSValue JSC_HOST_CALL dateProtoFuncToLocaleString(ExecState* exec)
570 {
571     JSValue thisValue = exec->thisValue();
572     if (!thisValue.inherits(DateInstance::info()))
573         return throwVMTypeError(exec);
574
575     DateInstance* thisDateObj = asDateInstance(thisValue); 
576     return JSValue::encode(formatLocaleDate(exec, thisDateObj, thisDateObj->internalNumber(), LocaleDateAndTime));
577 }
578
579 EncodedJSValue JSC_HOST_CALL dateProtoFuncToLocaleDateString(ExecState* exec)
580 {
581     JSValue thisValue = exec->thisValue();
582     if (!thisValue.inherits(DateInstance::info()))
583         return throwVMTypeError(exec);
584
585     DateInstance* thisDateObj = asDateInstance(thisValue); 
586     return JSValue::encode(formatLocaleDate(exec, thisDateObj, thisDateObj->internalNumber(), LocaleDate));
587 }
588
589 EncodedJSValue JSC_HOST_CALL dateProtoFuncToLocaleTimeString(ExecState* exec)
590 {
591     JSValue thisValue = exec->thisValue();
592     if (!thisValue.inherits(DateInstance::info()))
593         return throwVMTypeError(exec);
594
595     DateInstance* thisDateObj = asDateInstance(thisValue); 
596     return JSValue::encode(formatLocaleDate(exec, thisDateObj, thisDateObj->internalNumber(), LocaleTime));
597 }
598
599 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetTime(ExecState* exec)
600 {
601     JSValue thisValue = exec->thisValue();
602     if (!thisValue.inherits(DateInstance::info()))
603         return throwVMTypeError(exec);
604
605     return JSValue::encode(asDateInstance(thisValue)->internalValue());
606 }
607
608 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetFullYear(ExecState* exec)
609 {
610     JSValue thisValue = exec->thisValue();
611     if (!thisValue.inherits(DateInstance::info()))
612         return throwVMTypeError(exec);
613
614     DateInstance* thisDateObj = asDateInstance(thisValue); 
615
616     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTime(exec);
617     if (!gregorianDateTime)
618         return JSValue::encode(jsNaN());
619     return JSValue::encode(jsNumber(gregorianDateTime->year()));
620 }
621
622 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCFullYear(ExecState* exec)
623 {
624     JSValue thisValue = exec->thisValue();
625     if (!thisValue.inherits(DateInstance::info()))
626         return throwVMTypeError(exec);
627
628     DateInstance* thisDateObj = asDateInstance(thisValue); 
629
630     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTimeUTC(exec);
631     if (!gregorianDateTime)
632         return JSValue::encode(jsNaN());
633     return JSValue::encode(jsNumber(gregorianDateTime->year()));
634 }
635
636 EncodedJSValue JSC_HOST_CALL dateProtoFuncToGMTString(ExecState* exec)
637 {
638     const bool asUTCVariant = true;
639     return formateDateInstance(exec, DateTimeFormatDateAndTime, asUTCVariant);
640 }
641
642 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetMonth(ExecState* exec)
643 {
644     JSValue thisValue = exec->thisValue();
645     if (!thisValue.inherits(DateInstance::info()))
646         return throwVMTypeError(exec);
647
648     DateInstance* thisDateObj = asDateInstance(thisValue); 
649
650     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTime(exec);
651     if (!gregorianDateTime)
652         return JSValue::encode(jsNaN());
653     return JSValue::encode(jsNumber(gregorianDateTime->month()));
654 }
655
656 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCMonth(ExecState* exec)
657 {
658     JSValue thisValue = exec->thisValue();
659     if (!thisValue.inherits(DateInstance::info()))
660         return throwVMTypeError(exec);
661
662     DateInstance* thisDateObj = asDateInstance(thisValue); 
663
664     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTimeUTC(exec);
665     if (!gregorianDateTime)
666         return JSValue::encode(jsNaN());
667     return JSValue::encode(jsNumber(gregorianDateTime->month()));
668 }
669
670 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetDate(ExecState* exec)
671 {
672     JSValue thisValue = exec->thisValue();
673     if (!thisValue.inherits(DateInstance::info()))
674         return throwVMTypeError(exec);
675
676     DateInstance* thisDateObj = asDateInstance(thisValue); 
677
678     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTime(exec);
679     if (!gregorianDateTime)
680         return JSValue::encode(jsNaN());
681     return JSValue::encode(jsNumber(gregorianDateTime->monthDay()));
682 }
683
684 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCDate(ExecState* exec)
685 {
686     JSValue thisValue = exec->thisValue();
687     if (!thisValue.inherits(DateInstance::info()))
688         return throwVMTypeError(exec);
689
690     DateInstance* thisDateObj = asDateInstance(thisValue); 
691
692     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTimeUTC(exec);
693     if (!gregorianDateTime)
694         return JSValue::encode(jsNaN());
695     return JSValue::encode(jsNumber(gregorianDateTime->monthDay()));
696 }
697
698 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetDay(ExecState* exec)
699 {
700     JSValue thisValue = exec->thisValue();
701     if (!thisValue.inherits(DateInstance::info()))
702         return throwVMTypeError(exec);
703
704     DateInstance* thisDateObj = asDateInstance(thisValue); 
705
706     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTime(exec);
707     if (!gregorianDateTime)
708         return JSValue::encode(jsNaN());
709     return JSValue::encode(jsNumber(gregorianDateTime->weekDay()));
710 }
711
712 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCDay(ExecState* exec)
713 {
714     JSValue thisValue = exec->thisValue();
715     if (!thisValue.inherits(DateInstance::info()))
716         return throwVMTypeError(exec);
717
718     DateInstance* thisDateObj = asDateInstance(thisValue); 
719
720     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTimeUTC(exec);
721     if (!gregorianDateTime)
722         return JSValue::encode(jsNaN());
723     return JSValue::encode(jsNumber(gregorianDateTime->weekDay()));
724 }
725
726 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetHours(ExecState* exec)
727 {
728     JSValue thisValue = exec->thisValue();
729     if (!thisValue.inherits(DateInstance::info()))
730         return throwVMTypeError(exec);
731
732     DateInstance* thisDateObj = asDateInstance(thisValue); 
733
734     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTime(exec);
735     if (!gregorianDateTime)
736         return JSValue::encode(jsNaN());
737     return JSValue::encode(jsNumber(gregorianDateTime->hour()));
738 }
739
740 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCHours(ExecState* exec)
741 {
742     JSValue thisValue = exec->thisValue();
743     if (!thisValue.inherits(DateInstance::info()))
744         return throwVMTypeError(exec);
745
746     DateInstance* thisDateObj = asDateInstance(thisValue); 
747
748     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTimeUTC(exec);
749     if (!gregorianDateTime)
750         return JSValue::encode(jsNaN());
751     return JSValue::encode(jsNumber(gregorianDateTime->hour()));
752 }
753
754 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetMinutes(ExecState* exec)
755 {
756     JSValue thisValue = exec->thisValue();
757     if (!thisValue.inherits(DateInstance::info()))
758         return throwVMTypeError(exec);
759
760     DateInstance* thisDateObj = asDateInstance(thisValue); 
761
762     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTime(exec);
763     if (!gregorianDateTime)
764         return JSValue::encode(jsNaN());
765     return JSValue::encode(jsNumber(gregorianDateTime->minute()));
766 }
767
768 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCMinutes(ExecState* exec)
769 {
770     JSValue thisValue = exec->thisValue();
771     if (!thisValue.inherits(DateInstance::info()))
772         return throwVMTypeError(exec);
773
774     DateInstance* thisDateObj = asDateInstance(thisValue); 
775
776     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTimeUTC(exec);
777     if (!gregorianDateTime)
778         return JSValue::encode(jsNaN());
779     return JSValue::encode(jsNumber(gregorianDateTime->minute()));
780 }
781
782 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetSeconds(ExecState* exec)
783 {
784     JSValue thisValue = exec->thisValue();
785     if (!thisValue.inherits(DateInstance::info()))
786         return throwVMTypeError(exec);
787
788     DateInstance* thisDateObj = asDateInstance(thisValue); 
789
790     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTime(exec);
791     if (!gregorianDateTime)
792         return JSValue::encode(jsNaN());
793     return JSValue::encode(jsNumber(gregorianDateTime->second()));
794 }
795
796 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCSeconds(ExecState* exec)
797 {
798     JSValue thisValue = exec->thisValue();
799     if (!thisValue.inherits(DateInstance::info()))
800         return throwVMTypeError(exec);
801
802     DateInstance* thisDateObj = asDateInstance(thisValue); 
803
804     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTimeUTC(exec);
805     if (!gregorianDateTime)
806         return JSValue::encode(jsNaN());
807     return JSValue::encode(jsNumber(gregorianDateTime->second()));
808 }
809
810 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetMilliSeconds(ExecState* exec)
811 {
812     JSValue thisValue = exec->thisValue();
813     if (!thisValue.inherits(DateInstance::info()))
814         return throwVMTypeError(exec);
815
816     DateInstance* thisDateObj = asDateInstance(thisValue); 
817     double milli = thisDateObj->internalNumber();
818     if (std::isnan(milli))
819         return JSValue::encode(jsNaN());
820
821     double secs = floor(milli / msPerSecond);
822     double ms = milli - secs * msPerSecond;
823     return JSValue::encode(jsNumber(ms));
824 }
825
826 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetUTCMilliseconds(ExecState* exec)
827 {
828     JSValue thisValue = exec->thisValue();
829     if (!thisValue.inherits(DateInstance::info()))
830         return throwVMTypeError(exec);
831
832     DateInstance* thisDateObj = asDateInstance(thisValue); 
833     double milli = thisDateObj->internalNumber();
834     if (std::isnan(milli))
835         return JSValue::encode(jsNaN());
836
837     double secs = floor(milli / msPerSecond);
838     double ms = milli - secs * msPerSecond;
839     return JSValue::encode(jsNumber(ms));
840 }
841
842 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetTimezoneOffset(ExecState* exec)
843 {
844     JSValue thisValue = exec->thisValue();
845     if (!thisValue.inherits(DateInstance::info()))
846         return throwVMTypeError(exec);
847
848     DateInstance* thisDateObj = asDateInstance(thisValue); 
849
850     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTime(exec);
851     if (!gregorianDateTime)
852         return JSValue::encode(jsNaN());
853     return JSValue::encode(jsNumber(-gregorianDateTime->utcOffset() / minutesPerHour));
854 }
855
856 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetTime(ExecState* exec)
857 {
858     JSValue thisValue = exec->thisValue();
859     if (!thisValue.inherits(DateInstance::info()))
860         return throwVMTypeError(exec);
861
862     DateInstance* thisDateObj = asDateInstance(thisValue); 
863
864     double milli = timeClip(exec->argument(0).toNumber(exec));
865     JSValue result = jsNumber(milli);
866     thisDateObj->setInternalValue(exec->vm(), result);
867     return JSValue::encode(result);
868 }
869
870 static EncodedJSValue setNewValueFromTimeArgs(ExecState* exec, int numArgsToUse, WTF::TimeType inputTimeType)
871 {
872     JSValue thisValue = exec->thisValue();
873     if (!thisValue.inherits(DateInstance::info()))
874         return throwVMTypeError(exec);
875
876     DateInstance* thisDateObj = asDateInstance(thisValue);
877     double milli = thisDateObj->internalNumber();
878     VM& vm = exec->vm();
879     
880     if (!exec->argumentCount() || std::isnan(milli)) {
881         JSValue result = jsNaN();
882         thisDateObj->setInternalValue(vm, result);
883         return JSValue::encode(result);
884     }
885      
886     double secs = floor(milli / msPerSecond);
887     double ms = milli - secs * msPerSecond;
888
889     const GregorianDateTime* other = inputTimeType == WTF::UTCTime
890         ? thisDateObj->gregorianDateTimeUTC(exec)
891         : thisDateObj->gregorianDateTime(exec);
892     if (!other)
893         return JSValue::encode(jsNaN());
894
895     GregorianDateTime gregorianDateTime;
896     gregorianDateTime.copyFrom(*other);
897     if (!fillStructuresUsingTimeArgs(exec, numArgsToUse, &ms, &gregorianDateTime)) {
898         JSValue result = jsNaN();
899         thisDateObj->setInternalValue(vm, result);
900         return JSValue::encode(result);
901     } 
902     
903     JSValue result = jsNumber(gregorianDateTimeToMS(vm, gregorianDateTime, ms, inputTimeType));
904     thisDateObj->setInternalValue(vm, result);
905     return JSValue::encode(result);
906 }
907
908 static EncodedJSValue setNewValueFromDateArgs(ExecState* exec, int numArgsToUse, WTF::TimeType inputTimeType)
909 {
910     JSValue thisValue = exec->thisValue();
911     if (!thisValue.inherits(DateInstance::info()))
912         return throwVMTypeError(exec);
913
914     DateInstance* thisDateObj = asDateInstance(thisValue);
915     if (!exec->argumentCount()) {
916         JSValue result = jsNaN();
917         thisDateObj->setInternalValue(exec->vm(), result);
918         return JSValue::encode(result);
919     }
920
921     VM& vm = exec->vm();
922     double milli = thisDateObj->internalNumber();
923     double ms = 0; 
924
925     GregorianDateTime gregorianDateTime; 
926     if (numArgsToUse == 3 && std::isnan(milli)) 
927         msToGregorianDateTime(vm, 0, WTF::UTCTime, gregorianDateTime);
928     else { 
929         ms = milli - floor(milli / msPerSecond) * msPerSecond; 
930         const GregorianDateTime* other = inputTimeType == WTF::UTCTime
931             ? thisDateObj->gregorianDateTimeUTC(exec)
932             : thisDateObj->gregorianDateTime(exec);
933         if (!other)
934             return JSValue::encode(jsNaN());
935         gregorianDateTime.copyFrom(*other);
936     }
937     
938     if (!fillStructuresUsingDateArgs(exec, numArgsToUse, &ms, &gregorianDateTime)) {
939         JSValue result = jsNaN();
940         thisDateObj->setInternalValue(vm, result);
941         return JSValue::encode(result);
942     } 
943            
944     JSValue result = jsNumber(gregorianDateTimeToMS(vm, gregorianDateTime, ms, inputTimeType));
945     thisDateObj->setInternalValue(vm, result);
946     return JSValue::encode(result);
947 }
948
949 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetMilliSeconds(ExecState* exec)
950 {
951     return setNewValueFromTimeArgs(exec, 1, WTF::LocalTime);
952 }
953
954 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCMilliseconds(ExecState* exec)
955 {
956     return setNewValueFromTimeArgs(exec, 1, WTF::UTCTime);
957 }
958
959 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetSeconds(ExecState* exec)
960 {
961     return setNewValueFromTimeArgs(exec, 2, WTF::LocalTime);
962 }
963
964 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCSeconds(ExecState* exec)
965 {
966     return setNewValueFromTimeArgs(exec, 2, WTF::UTCTime);
967 }
968
969 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetMinutes(ExecState* exec)
970 {
971     return setNewValueFromTimeArgs(exec, 3, WTF::LocalTime);
972 }
973
974 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCMinutes(ExecState* exec)
975 {
976     return setNewValueFromTimeArgs(exec, 3, WTF::UTCTime);
977 }
978
979 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetHours(ExecState* exec)
980 {
981     return setNewValueFromTimeArgs(exec, 4, WTF::LocalTime);
982 }
983
984 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCHours(ExecState* exec)
985 {
986     return setNewValueFromTimeArgs(exec, 4, WTF::UTCTime);
987 }
988
989 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetDate(ExecState* exec)
990 {
991     return setNewValueFromDateArgs(exec, 1, WTF::LocalTime);
992 }
993
994 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCDate(ExecState* exec)
995 {
996     return setNewValueFromDateArgs(exec, 1, WTF::UTCTime);
997 }
998
999 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetMonth(ExecState* exec)
1000 {
1001     return setNewValueFromDateArgs(exec, 2, WTF::LocalTime);
1002 }
1003
1004 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCMonth(ExecState* exec)
1005 {
1006     return setNewValueFromDateArgs(exec, 2, WTF::UTCTime);
1007 }
1008
1009 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetFullYear(ExecState* exec)
1010 {
1011     return setNewValueFromDateArgs(exec, 3, WTF::LocalTime);
1012 }
1013
1014 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetUTCFullYear(ExecState* exec)
1015 {
1016     return setNewValueFromDateArgs(exec, 3, WTF::UTCTime);
1017 }
1018
1019 EncodedJSValue JSC_HOST_CALL dateProtoFuncSetYear(ExecState* exec)
1020 {
1021     JSValue thisValue = exec->thisValue();
1022     if (!thisValue.inherits(DateInstance::info()))
1023         return throwVMTypeError(exec);
1024
1025     VM& vm = exec->vm();
1026     DateInstance* thisDateObj = asDateInstance(thisValue);
1027     if (!exec->argumentCount()) { 
1028         JSValue result = jsNaN();
1029         thisDateObj->setInternalValue(vm, result);
1030         return JSValue::encode(result);
1031     }
1032
1033     double milli = thisDateObj->internalNumber();
1034     double ms = 0;
1035
1036     GregorianDateTime gregorianDateTime;
1037     if (std::isnan(milli))
1038         // Based on ECMA 262 B.2.5 (setYear)
1039         // the time must be reset to +0 if it is NaN.
1040         msToGregorianDateTime(vm, 0, WTF::UTCTime, gregorianDateTime);
1041     else {
1042         double secs = floor(milli / msPerSecond);
1043         ms = milli - secs * msPerSecond;
1044         if (const GregorianDateTime* other = thisDateObj->gregorianDateTime(exec))
1045             gregorianDateTime.copyFrom(*other);
1046     }
1047
1048     double year = exec->argument(0).toIntegerPreserveNaN(exec);
1049     if (!std::isfinite(year)) {
1050         JSValue result = jsNaN();
1051         thisDateObj->setInternalValue(vm, result);
1052         return JSValue::encode(result);
1053     }
1054
1055     gregorianDateTime.setYear(toInt32((year >= 0 && year <= 99) ? (year + 1900) : year));
1056     JSValue result = jsNumber(gregorianDateTimeToMS(vm, gregorianDateTime, ms, WTF::LocalTime));
1057     thisDateObj->setInternalValue(vm, result);
1058     return JSValue::encode(result);
1059 }
1060
1061 EncodedJSValue JSC_HOST_CALL dateProtoFuncGetYear(ExecState* exec)
1062 {
1063     JSValue thisValue = exec->thisValue();
1064     if (!thisValue.inherits(DateInstance::info()))
1065         return throwVMTypeError(exec);
1066
1067     DateInstance* thisDateObj = asDateInstance(thisValue); 
1068
1069     const GregorianDateTime* gregorianDateTime = thisDateObj->gregorianDateTime(exec);
1070     if (!gregorianDateTime)
1071         return JSValue::encode(jsNaN());
1072
1073     // NOTE: IE returns the full year even in getYear.
1074     return JSValue::encode(jsNumber(gregorianDateTime->year() - 1900));
1075 }
1076
1077 EncodedJSValue JSC_HOST_CALL dateProtoFuncToJSON(ExecState* exec)
1078 {
1079     JSValue thisValue = exec->thisValue();
1080     JSObject* object = jsCast<JSObject*>(thisValue.toThis(exec, NotStrictMode));
1081     if (exec->hadException())
1082         return JSValue::encode(jsNull());
1083
1084     JSValue timeValue = object->toPrimitive(exec, PreferNumber);
1085     if (exec->hadException())
1086         return JSValue::encode(jsNull());
1087     if (timeValue.isNumber() && !(timeValue.isInt32() || std::isfinite(timeValue.asDouble())))
1088         return JSValue::encode(jsNull());
1089
1090     JSValue toISOValue = object->get(exec, exec->vm().propertyNames->toISOString);
1091     if (exec->hadException())
1092         return JSValue::encode(jsNull());
1093
1094     CallData callData;
1095     CallType callType = getCallData(toISOValue, callData);
1096     if (callType == CallTypeNone)
1097         return throwVMError(exec, createTypeError(exec, ASCIILiteral("toISOString is not a function")));
1098
1099     JSValue result = call(exec, asObject(toISOValue), callType, callData, object, exec->emptyList());
1100     if (exec->hadException())
1101         return JSValue::encode(jsNull());
1102     if (result.isObject())
1103         return throwVMError(exec, createTypeError(exec, ASCIILiteral("toISOString did not return a primitive value")));
1104     return JSValue::encode(result);
1105 }
1106
1107 } // namespace JSC