| 1 | #include "jsi.h" |
| 2 | #include "jsvalue.h" |
| 3 | #include "jsbuiltin.h" |
| 4 | |
| 5 | #include <time.h> |
| 6 | |
| 7 | #if defined(__unix__) || defined(__APPLE__) |
| 8 | #include <sys/time.h> |
| 9 | #elif defined(_WIN32) |
| 10 | #include <sys/timeb.h> |
| 11 | #endif |
| 12 | |
| 13 | #define js_optnumber(J,I,V) (js_isdefined(J,I) ? js_tonumber(J,I) : V) |
| 14 | |
| 15 | static double Now(void) |
| 16 | { |
| 17 | #if defined(__unix__) || defined(__APPLE__) |
| 18 | struct timeval tv; |
| 19 | gettimeofday(&tv, NULL); |
| 20 | return floor(tv.tv_sec * 1000.0 + tv.tv_usec / 1000.0); |
| 21 | #elif defined(_WIN32) |
| 22 | struct _timeb tv; |
| 23 | _ftime(&tv); |
| 24 | return tv.time * 1000.0 + tv.millitm; |
| 25 | #else |
| 26 | return time(NULL) * 1000.0; |
| 27 | #endif |
| 28 | } |
| 29 | |
| 30 | static double LocalTZA(void) |
| 31 | { |
| 32 | static int once = 1; |
| 33 | static double tza = 0; |
| 34 | if (once) { |
| 35 | time_t now = time(NULL); |
| 36 | time_t utc = mktime(gmtime(&now)); |
| 37 | time_t loc = mktime(localtime(&now)); |
| 38 | tza = (loc - utc) * 1000; |
| 39 | once = 0; |
| 40 | } |
| 41 | return tza; |
| 42 | } |
| 43 | |
| 44 | static double DaylightSavingTA(double t) |
| 45 | { |
| 46 | return 0; /* TODO */ |
| 47 | } |
| 48 | |
| 49 | /* Helpers from the ECMA 262 specification */ |
| 50 | |
| 51 | #define HoursPerDay 24.0 |
| 52 | #define MinutesPerDay (HoursPerDay * MinutesPerHour) |
| 53 | #define MinutesPerHour 60.0 |
| 54 | #define SecondsPerDay (MinutesPerDay * SecondsPerMinute) |
| 55 | #define SecondsPerHour (MinutesPerHour * SecondsPerMinute) |
| 56 | #define SecondsPerMinute 60.0 |
| 57 | |
| 58 | #define msPerDay (SecondsPerDay * msPerSecond) |
| 59 | #define msPerHour (SecondsPerHour * msPerSecond) |
| 60 | #define msPerMinute (SecondsPerMinute * msPerSecond) |
| 61 | #define msPerSecond 1000.0 |
| 62 | |
| 63 | static double pmod(double x, double y) |
| 64 | { |
| 65 | x = fmod(x, y); |
| 66 | if (x < 0) |
| 67 | x += y; |
| 68 | return x; |
| 69 | } |
| 70 | |
| 71 | static int Day(double t) |
| 72 | { |
| 73 | return floor(t / msPerDay); |
| 74 | } |
| 75 | |
| 76 | static double TimeWithinDay(double t) |
| 77 | { |
| 78 | return pmod(t, msPerDay); |
| 79 | } |
| 80 | |
| 81 | static int DaysInYear(int y) |
| 82 | { |
| 83 | return y % 4 == 0 && (y % 100 || (y % 400 == 0)) ? 366 : 365; |
| 84 | } |
| 85 | |
| 86 | static int DayFromYear(int y) |
| 87 | { |
| 88 | return 365 * (y - 1970) + |
| 89 | floor((y - 1969) / 4.0) - |
| 90 | floor((y - 1901) / 100.0) + |
| 91 | floor((y - 1601) / 400.0); |
| 92 | } |
| 93 | |
| 94 | static double TimeFromYear(int y) |
| 95 | { |
| 96 | return DayFromYear(y) * msPerDay; |
| 97 | } |
| 98 | |
| 99 | static int YearFromTime(double t) |
| 100 | { |
| 101 | int y = floor(t / (msPerDay * 365.2425)) + 1970; |
| 102 | double t2 = TimeFromYear(y); |
| 103 | if (t2 > t) |
| 104 | --y; |
| 105 | else if (t2 + msPerDay * DaysInYear(y) <= t) |
| 106 | ++y; |
| 107 | return y; |
| 108 | } |
| 109 | |
| 110 | static int InLeapYear(int t) |
| 111 | { |
| 112 | return DaysInYear(YearFromTime(t)) == 366; |
| 113 | } |
| 114 | |
| 115 | static int DayWithinYear(double t) |
| 116 | { |
| 117 | return Day(t) - DayFromYear(YearFromTime(t)); |
| 118 | } |
| 119 | |
| 120 | static int MonthFromTime(double t) |
| 121 | { |
| 122 | int day = DayWithinYear(t); |
| 123 | int leap = InLeapYear(t); |
| 124 | if (day < 31) return 0; |
| 125 | if (day < 59 + leap) return 1; |
| 126 | if (day < 90 + leap) return 2; |
| 127 | if (day < 120 + leap) return 3; |
| 128 | if (day < 151 + leap) return 4; |
| 129 | if (day < 181 + leap) return 5; |
| 130 | if (day < 212 + leap) return 6; |
| 131 | if (day < 243 + leap) return 7; |
| 132 | if (day < 273 + leap) return 8; |
| 133 | if (day < 304 + leap) return 9; |
| 134 | if (day < 334 + leap) return 10; |
| 135 | return 11; |
| 136 | } |
| 137 | |
| 138 | static int DateFromTime(double t) |
| 139 | { |
| 140 | int day = DayWithinYear(t); |
| 141 | int leap = InLeapYear(t); |
| 142 | switch (MonthFromTime(t)) { |
| 143 | case 0: return day + 1; |
| 144 | case 1: return day - 30; |
| 145 | case 2: return day - 58 - leap; |
| 146 | case 3: return day - 89 - leap; |
| 147 | case 4: return day - 119 - leap; |
| 148 | case 5: return day - 150 - leap; |
| 149 | case 6: return day - 180 - leap; |
| 150 | case 7: return day - 211 - leap; |
| 151 | case 8: return day - 242 - leap; |
| 152 | case 9: return day - 272 - leap; |
| 153 | case 10: return day - 303 - leap; |
| 154 | default : return day - 333 - leap; |
| 155 | } |
| 156 | } |
| 157 | |
| 158 | static int WeekDay(double t) |
| 159 | { |
| 160 | return pmod(Day(t) + 4, 7); |
| 161 | } |
| 162 | |
| 163 | static double LocalTime(double utc) |
| 164 | { |
| 165 | return utc + LocalTZA() + DaylightSavingTA(utc); |
| 166 | } |
| 167 | |
| 168 | static double UTC(double loc) |
| 169 | { |
| 170 | return loc - LocalTZA() - DaylightSavingTA(loc - LocalTZA()); |
| 171 | } |
| 172 | |
| 173 | static int HourFromTime(double t) |
| 174 | { |
| 175 | return pmod(floor(t / msPerHour), HoursPerDay); |
| 176 | } |
| 177 | |
| 178 | static int MinFromTime(double t) |
| 179 | { |
| 180 | return pmod(floor(t / msPerMinute), MinutesPerHour); |
| 181 | } |
| 182 | |
| 183 | static int SecFromTime(double t) |
| 184 | { |
| 185 | return pmod(floor(t / msPerSecond), SecondsPerMinute); |
| 186 | } |
| 187 | |
| 188 | static int msFromTime(double t) |
| 189 | { |
| 190 | return pmod(t, msPerSecond); |
| 191 | } |
| 192 | |
| 193 | static double MakeTime(double hour, double min, double sec, double ms) |
| 194 | { |
| 195 | return ((hour * MinutesPerHour + min) * SecondsPerMinute + sec) * msPerSecond + ms; |
| 196 | } |
| 197 | |
| 198 | static double MakeDay(double y, double m, double date) |
| 199 | { |
| 200 | /* |
| 201 | * The following array contains the day of year for the first day of |
| 202 | * each month, where index 0 is January, and day 0 is January 1. |
| 203 | */ |
| 204 | static const double firstDayOfMonth[2][12] = { |
| 205 | {0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334}, |
| 206 | {0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335} |
| 207 | }; |
| 208 | |
| 209 | double yd, md; |
| 210 | int im; |
| 211 | |
| 212 | y += floor(m / 12); |
| 213 | m = pmod(m, 12); |
| 214 | |
| 215 | im = (int)m; |
| 216 | if (im < 0 || im >= 12) |
| 217 | return NAN; |
| 218 | |
| 219 | yd = floor(TimeFromYear(y) / msPerDay); |
| 220 | md = firstDayOfMonth[InLeapYear(y)][im]; |
| 221 | |
| 222 | return yd + md + date - 1; |
| 223 | } |
| 224 | |
| 225 | static double MakeDate(double day, double time) |
| 226 | { |
| 227 | return day * msPerDay + time; |
| 228 | } |
| 229 | |
| 230 | static double TimeClip(double t) |
| 231 | { |
| 232 | if (!isfinite(t)) |
| 233 | return NAN; |
| 234 | if (fabs(t) > 8.64e15) |
| 235 | return NAN; |
| 236 | return t < 0 ? -floor(-t) : floor(t); |
| 237 | } |
| 238 | |
| 239 | static int toint(const char **sp, int w, int *v) |
| 240 | { |
| 241 | const char *s = *sp; |
| 242 | *v = 0; |
| 243 | while (w--) { |
| 244 | if (*s < '0' || *s > '9') |
| 245 | return 0; |
| 246 | *v = *v * 10 + (*s++ - '0'); |
| 247 | } |
| 248 | *sp = s; |
| 249 | return 1; |
| 250 | } |
| 251 | |
| 252 | static double parseDateTime(const char *s) |
| 253 | { |
| 254 | int y = 1970, m = 1, d = 1, H = 0, M = 0, S = 0, ms = 0; |
| 255 | int tza = 0; |
| 256 | double t; |
| 257 | |
| 258 | /* Parse ISO 8601 formatted date and time: */ |
| 259 | /* YYYY("-"MM("-"DD)?)?("T"HH":"mm(":"ss("."sss)?)?("Z"|[+-]HH(":"mm)?)?)? */ |
| 260 | |
| 261 | if (!toint(&s, 4, &y)) return NAN; |
| 262 | if (*s == '-') { |
| 263 | s += 1; |
| 264 | if (!toint(&s, 2, &m)) return NAN; |
| 265 | if (*s == '-') { |
| 266 | s += 1; |
| 267 | if (!toint(&s, 2, &d)) return NAN; |
| 268 | } |
| 269 | } |
| 270 | |
| 271 | if (*s == 'T') { |
| 272 | s += 1; |
| 273 | if (!toint(&s, 2, &H)) return NAN; |
| 274 | if (*s != ':') return NAN; |
| 275 | s += 1; |
| 276 | if (!toint(&s, 2, &M)) return NAN; |
| 277 | if (*s == ':') { |
| 278 | s += 1; |
| 279 | if (!toint(&s, 2, &S)) return NAN; |
| 280 | if (*s == '.') { |
| 281 | s += 1; |
| 282 | if (!toint(&s, 3, &ms)) return NAN; |
| 283 | } |
| 284 | } |
| 285 | if (*s == 'Z') { |
| 286 | s += 1; |
| 287 | tza = 0; |
| 288 | } else if (*s == '+' || *s == '-') { |
| 289 | int tzh = 0, tzm = 0; |
| 290 | int tzs = *s == '+' ? 1 : -1; |
| 291 | s += 1; |
| 292 | if (!toint(&s, 2, &tzh)) return NAN; |
| 293 | if (*s == ':') { |
| 294 | s += 1; |
| 295 | if (!toint(&s, 2, &tzm)) return NAN; |
| 296 | } |
| 297 | if (tzh > 23 || tzm > 59) return NAN; |
| 298 | tza = tzs * (tzh * msPerHour + tzm * msPerMinute); |
| 299 | } else { |
| 300 | tza = LocalTZA(); |
| 301 | } |
| 302 | } |
| 303 | |
| 304 | if (*s) return NAN; |
| 305 | |
| 306 | if (m < 1 || m > 12) return NAN; |
| 307 | if (d < 1 || d > 31) return NAN; |
| 308 | if (H < 0 || H > 24) return NAN; |
| 309 | if (M < 0 || M > 59) return NAN; |
| 310 | if (S < 0 || S > 59) return NAN; |
| 311 | if (ms < 0 || ms > 999) return NAN; |
| 312 | if (H == 24 && (M != 0 || S != 0 || ms != 0)) return NAN; |
| 313 | |
| 314 | /* TODO: DaylightSavingTA on local times */ |
| 315 | t = MakeDate(MakeDay(y, m-1, d), MakeTime(H, M, S, ms)); |
| 316 | return t - tza; |
| 317 | } |
| 318 | |
| 319 | /* date formatting */ |
| 320 | |
| 321 | static char *fmtdate(char *buf, double t) |
| 322 | { |
| 323 | int y = YearFromTime(t); |
| 324 | int m = MonthFromTime(t); |
| 325 | int d = DateFromTime(t); |
| 326 | if (!isfinite(t)) |
| 327 | return "Invalid Date" ; |
| 328 | sprintf(buf, "%04d-%02d-%02d" , y, m+1, d); |
| 329 | return buf; |
| 330 | } |
| 331 | |
| 332 | static char *fmttime(char *buf, double t, double tza) |
| 333 | { |
| 334 | int H = HourFromTime(t); |
| 335 | int M = MinFromTime(t); |
| 336 | int S = SecFromTime(t); |
| 337 | int ms = msFromTime(t); |
| 338 | int tzh = HourFromTime(fabs(tza)); |
| 339 | int tzm = MinFromTime(fabs(tza)); |
| 340 | if (!isfinite(t)) |
| 341 | return "Invalid Date" ; |
| 342 | if (tza == 0) |
| 343 | sprintf(buf, "%02d:%02d:%02d.%03dZ" , H, M, S, ms); |
| 344 | else if (tza < 0) |
| 345 | sprintf(buf, "%02d:%02d:%02d.%03d-%02d:%02d" , H, M, S, ms, tzh, tzm); |
| 346 | else |
| 347 | sprintf(buf, "%02d:%02d:%02d.%03d+%02d:%02d" , H, M, S, ms, tzh, tzm); |
| 348 | return buf; |
| 349 | } |
| 350 | |
| 351 | static char *fmtdatetime(char *buf, double t, double tza) |
| 352 | { |
| 353 | char dbuf[20], tbuf[20]; |
| 354 | if (!isfinite(t)) |
| 355 | return "Invalid Date" ; |
| 356 | fmtdate(dbuf, t); |
| 357 | fmttime(tbuf, t, tza); |
| 358 | sprintf(buf, "%sT%s" , dbuf, tbuf); |
| 359 | return buf; |
| 360 | } |
| 361 | |
| 362 | /* Date functions */ |
| 363 | |
| 364 | static double js_todate(js_State *J, int idx) |
| 365 | { |
| 366 | js_Object *self = js_toobject(J, idx); |
| 367 | if (self->type != JS_CDATE) |
| 368 | js_typeerror(J, "not a date" ); |
| 369 | return self->u.number; |
| 370 | } |
| 371 | |
| 372 | static void js_setdate(js_State *J, int idx, double t) |
| 373 | { |
| 374 | js_Object *self = js_toobject(J, idx); |
| 375 | if (self->type != JS_CDATE) |
| 376 | js_typeerror(J, "not a date" ); |
| 377 | self->u.number = TimeClip(t); |
| 378 | js_pushnumber(J, self->u.number); |
| 379 | } |
| 380 | |
| 381 | static void D_parse(js_State *J) |
| 382 | { |
| 383 | double t = parseDateTime(js_tostring(J, 1)); |
| 384 | js_pushnumber(J, t); |
| 385 | } |
| 386 | |
| 387 | static void D_UTC(js_State *J) |
| 388 | { |
| 389 | double y, m, d, H, M, S, ms, t; |
| 390 | y = js_tonumber(J, 1); |
| 391 | if (y < 100) y += 1900; |
| 392 | m = js_tonumber(J, 2); |
| 393 | d = js_optnumber(J, 3, 1); |
| 394 | H = js_optnumber(J, 4, 0); |
| 395 | M = js_optnumber(J, 5, 0); |
| 396 | S = js_optnumber(J, 6, 0); |
| 397 | ms = js_optnumber(J, 7, 0); |
| 398 | t = MakeDate(MakeDay(y, m, d), MakeTime(H, M, S, ms)); |
| 399 | t = TimeClip(t); |
| 400 | js_pushnumber(J, t); |
| 401 | } |
| 402 | |
| 403 | static void D_now(js_State *J) |
| 404 | { |
| 405 | js_pushnumber(J, Now()); |
| 406 | } |
| 407 | |
| 408 | static void jsB_Date(js_State *J) |
| 409 | { |
| 410 | char buf[64]; |
| 411 | js_pushstring(J, fmtdatetime(buf, LocalTime(Now()), LocalTZA())); |
| 412 | } |
| 413 | |
| 414 | static void jsB_new_Date(js_State *J) |
| 415 | { |
| 416 | int top = js_gettop(J); |
| 417 | js_Object *obj; |
| 418 | double t; |
| 419 | |
| 420 | if (top == 1) |
| 421 | t = Now(); |
| 422 | else if (top == 2) { |
| 423 | js_toprimitive(J, 1, JS_HNONE); |
| 424 | if (js_isstring(J, 1)) |
| 425 | t = parseDateTime(js_tostring(J, 1)); |
| 426 | else |
| 427 | t = TimeClip(js_tonumber(J, 1)); |
| 428 | } else { |
| 429 | double y, m, d, H, M, S, ms; |
| 430 | y = js_tonumber(J, 1); |
| 431 | if (y < 100) y += 1900; |
| 432 | m = js_tonumber(J, 2); |
| 433 | d = js_optnumber(J, 3, 1); |
| 434 | H = js_optnumber(J, 4, 0); |
| 435 | M = js_optnumber(J, 5, 0); |
| 436 | S = js_optnumber(J, 6, 0); |
| 437 | ms = js_optnumber(J, 7, 0); |
| 438 | t = MakeDate(MakeDay(y, m, d), MakeTime(H, M, S, ms)); |
| 439 | t = TimeClip(UTC(t)); |
| 440 | } |
| 441 | |
| 442 | obj = jsV_newobject(J, JS_CDATE, J->Date_prototype); |
| 443 | obj->u.number = t; |
| 444 | |
| 445 | js_pushobject(J, obj); |
| 446 | } |
| 447 | |
| 448 | static void Dp_valueOf(js_State *J) |
| 449 | { |
| 450 | double t = js_todate(J, 0); |
| 451 | js_pushnumber(J, t); |
| 452 | } |
| 453 | |
| 454 | static void Dp_toString(js_State *J) |
| 455 | { |
| 456 | char buf[64]; |
| 457 | double t = js_todate(J, 0); |
| 458 | js_pushstring(J, fmtdatetime(buf, LocalTime(t), LocalTZA())); |
| 459 | } |
| 460 | |
| 461 | static void Dp_toDateString(js_State *J) |
| 462 | { |
| 463 | char buf[64]; |
| 464 | double t = js_todate(J, 0); |
| 465 | js_pushstring(J, fmtdate(buf, LocalTime(t))); |
| 466 | } |
| 467 | |
| 468 | static void Dp_toTimeString(js_State *J) |
| 469 | { |
| 470 | char buf[64]; |
| 471 | double t = js_todate(J, 0); |
| 472 | js_pushstring(J, fmttime(buf, LocalTime(t), LocalTZA())); |
| 473 | } |
| 474 | |
| 475 | static void Dp_toUTCString(js_State *J) |
| 476 | { |
| 477 | char buf[64]; |
| 478 | double t = js_todate(J, 0); |
| 479 | js_pushstring(J, fmtdatetime(buf, t, 0)); |
| 480 | } |
| 481 | |
| 482 | static void Dp_toISOString(js_State *J) |
| 483 | { |
| 484 | char buf[64]; |
| 485 | double t = js_todate(J, 0); |
| 486 | if (!isfinite(t)) |
| 487 | js_rangeerror(J, "invalid date" ); |
| 488 | js_pushstring(J, fmtdatetime(buf, t, 0)); |
| 489 | } |
| 490 | |
| 491 | static void Dp_getFullYear(js_State *J) |
| 492 | { |
| 493 | double t = js_todate(J, 0); |
| 494 | js_pushnumber(J, YearFromTime(LocalTime(t))); |
| 495 | } |
| 496 | |
| 497 | static void Dp_getMonth(js_State *J) |
| 498 | { |
| 499 | double t = js_todate(J, 0); |
| 500 | js_pushnumber(J, MonthFromTime(LocalTime(t))); |
| 501 | } |
| 502 | |
| 503 | static void Dp_getDate(js_State *J) |
| 504 | { |
| 505 | double t = js_todate(J, 0); |
| 506 | js_pushnumber(J, DateFromTime(LocalTime(t))); |
| 507 | } |
| 508 | |
| 509 | static void Dp_getDay(js_State *J) |
| 510 | { |
| 511 | double t = js_todate(J, 0); |
| 512 | js_pushnumber(J, WeekDay(LocalTime(t))); |
| 513 | } |
| 514 | |
| 515 | static void Dp_getHours(js_State *J) |
| 516 | { |
| 517 | double t = js_todate(J, 0); |
| 518 | js_pushnumber(J, HourFromTime(LocalTime(t))); |
| 519 | } |
| 520 | |
| 521 | static void Dp_getMinutes(js_State *J) |
| 522 | { |
| 523 | double t = js_todate(J, 0); |
| 524 | js_pushnumber(J, MinFromTime(LocalTime(t))); |
| 525 | } |
| 526 | |
| 527 | static void Dp_getSeconds(js_State *J) |
| 528 | { |
| 529 | double t = js_todate(J, 0); |
| 530 | js_pushnumber(J, SecFromTime(LocalTime(t))); |
| 531 | } |
| 532 | |
| 533 | static void Dp_getMilliseconds(js_State *J) |
| 534 | { |
| 535 | double t = js_todate(J, 0); |
| 536 | js_pushnumber(J, msFromTime(LocalTime(t))); |
| 537 | } |
| 538 | |
| 539 | static void Dp_getUTCFullYear(js_State *J) |
| 540 | { |
| 541 | double t = js_todate(J, 0); |
| 542 | js_pushnumber(J, YearFromTime(t)); |
| 543 | } |
| 544 | |
| 545 | static void Dp_getUTCMonth(js_State *J) |
| 546 | { |
| 547 | double t = js_todate(J, 0); |
| 548 | js_pushnumber(J, MonthFromTime(t)); |
| 549 | } |
| 550 | |
| 551 | static void Dp_getUTCDate(js_State *J) |
| 552 | { |
| 553 | double t = js_todate(J, 0); |
| 554 | js_pushnumber(J, DateFromTime(t)); |
| 555 | } |
| 556 | |
| 557 | static void Dp_getUTCDay(js_State *J) |
| 558 | { |
| 559 | double t = js_todate(J, 0); |
| 560 | js_pushnumber(J, WeekDay(t)); |
| 561 | } |
| 562 | |
| 563 | static void Dp_getUTCHours(js_State *J) |
| 564 | { |
| 565 | double t = js_todate(J, 0); |
| 566 | js_pushnumber(J, HourFromTime(t)); |
| 567 | } |
| 568 | |
| 569 | static void Dp_getUTCMinutes(js_State *J) |
| 570 | { |
| 571 | double t = js_todate(J, 0); |
| 572 | js_pushnumber(J, MinFromTime(t)); |
| 573 | } |
| 574 | |
| 575 | static void Dp_getUTCSeconds(js_State *J) |
| 576 | { |
| 577 | double t = js_todate(J, 0); |
| 578 | js_pushnumber(J, SecFromTime(t)); |
| 579 | } |
| 580 | |
| 581 | static void Dp_getUTCMilliseconds(js_State *J) |
| 582 | { |
| 583 | double t = js_todate(J, 0); |
| 584 | js_pushnumber(J, msFromTime(t)); |
| 585 | } |
| 586 | |
| 587 | static void Dp_getTimezoneOffset(js_State *J) |
| 588 | { |
| 589 | double t = js_todate(J, 0); |
| 590 | js_pushnumber(J, (t - LocalTime(t)) / msPerMinute); |
| 591 | } |
| 592 | |
| 593 | static void Dp_setTime(js_State *J) |
| 594 | { |
| 595 | js_setdate(J, 0, js_tonumber(J, 1)); |
| 596 | } |
| 597 | |
| 598 | static void Dp_setMilliseconds(js_State *J) |
| 599 | { |
| 600 | double t = LocalTime(js_todate(J, 0)); |
| 601 | double h = HourFromTime(t); |
| 602 | double m = MinFromTime(t); |
| 603 | double s = SecFromTime(t); |
| 604 | double ms = js_tonumber(J, 1); |
| 605 | js_setdate(J, 0, UTC(MakeDate(Day(t), MakeTime(h, m, s, ms)))); |
| 606 | } |
| 607 | |
| 608 | static void Dp_setSeconds(js_State *J) |
| 609 | { |
| 610 | double t = LocalTime(js_todate(J, 0)); |
| 611 | double h = HourFromTime(t); |
| 612 | double m = MinFromTime(t); |
| 613 | double s = js_tonumber(J, 1); |
| 614 | double ms = js_optnumber(J, 2, msFromTime(t)); |
| 615 | js_setdate(J, 0, UTC(MakeDate(Day(t), MakeTime(h, m, s, ms)))); |
| 616 | } |
| 617 | |
| 618 | static void Dp_setMinutes(js_State *J) |
| 619 | { |
| 620 | double t = LocalTime(js_todate(J, 0)); |
| 621 | double h = HourFromTime(t); |
| 622 | double m = js_tonumber(J, 1); |
| 623 | double s = js_optnumber(J, 2, SecFromTime(t)); |
| 624 | double ms = js_optnumber(J, 3, msFromTime(t)); |
| 625 | js_setdate(J, 0, UTC(MakeDate(Day(t), MakeTime(h, m, s, ms)))); |
| 626 | } |
| 627 | |
| 628 | static void Dp_setHours(js_State *J) |
| 629 | { |
| 630 | double t = LocalTime(js_todate(J, 0)); |
| 631 | double h = js_tonumber(J, 1); |
| 632 | double m = js_optnumber(J, 2, MinFromTime(t)); |
| 633 | double s = js_optnumber(J, 3, SecFromTime(t)); |
| 634 | double ms = js_optnumber(J, 4, msFromTime(t)); |
| 635 | js_setdate(J, 0, UTC(MakeDate(Day(t), MakeTime(h, m, s, ms)))); |
| 636 | } |
| 637 | |
| 638 | static void Dp_setDate(js_State *J) |
| 639 | { |
| 640 | double t = LocalTime(js_todate(J, 0)); |
| 641 | double y = YearFromTime(t); |
| 642 | double m = MonthFromTime(t); |
| 643 | double d = js_tonumber(J, 1); |
| 644 | js_setdate(J, 0, UTC(MakeDate(MakeDay(y, m, d), TimeWithinDay(t)))); |
| 645 | } |
| 646 | |
| 647 | static void Dp_setMonth(js_State *J) |
| 648 | { |
| 649 | double t = LocalTime(js_todate(J, 0)); |
| 650 | double y = YearFromTime(t); |
| 651 | double m = js_tonumber(J, 1); |
| 652 | double d = js_optnumber(J, 3, DateFromTime(t)); |
| 653 | js_setdate(J, 0, UTC(MakeDate(MakeDay(y, m, d), TimeWithinDay(t)))); |
| 654 | } |
| 655 | |
| 656 | static void Dp_setFullYear(js_State *J) |
| 657 | { |
| 658 | double t = LocalTime(js_todate(J, 0)); |
| 659 | double y = js_tonumber(J, 1); |
| 660 | double m = js_optnumber(J, 2, MonthFromTime(t)); |
| 661 | double d = js_optnumber(J, 3, DateFromTime(t)); |
| 662 | js_setdate(J, 0, UTC(MakeDate(MakeDay(y, m, d), TimeWithinDay(t)))); |
| 663 | } |
| 664 | |
| 665 | static void Dp_setUTCMilliseconds(js_State *J) |
| 666 | { |
| 667 | double t = js_todate(J, 0); |
| 668 | double h = HourFromTime(t); |
| 669 | double m = MinFromTime(t); |
| 670 | double s = SecFromTime(t); |
| 671 | double ms = js_tonumber(J, 1); |
| 672 | js_setdate(J, 0, MakeDate(Day(t), MakeTime(h, m, s, ms))); |
| 673 | } |
| 674 | |
| 675 | static void Dp_setUTCSeconds(js_State *J) |
| 676 | { |
| 677 | double t = js_todate(J, 0); |
| 678 | double h = HourFromTime(t); |
| 679 | double m = MinFromTime(t); |
| 680 | double s = js_tonumber(J, 1); |
| 681 | double ms = js_optnumber(J, 2, msFromTime(t)); |
| 682 | js_setdate(J, 0, MakeDate(Day(t), MakeTime(h, m, s, ms))); |
| 683 | } |
| 684 | |
| 685 | static void Dp_setUTCMinutes(js_State *J) |
| 686 | { |
| 687 | double t = js_todate(J, 0); |
| 688 | double h = HourFromTime(t); |
| 689 | double m = js_tonumber(J, 1); |
| 690 | double s = js_optnumber(J, 2, SecFromTime(t)); |
| 691 | double ms = js_optnumber(J, 3, msFromTime(t)); |
| 692 | js_setdate(J, 0, MakeDate(Day(t), MakeTime(h, m, s, ms))); |
| 693 | } |
| 694 | |
| 695 | static void Dp_setUTCHours(js_State *J) |
| 696 | { |
| 697 | double t = js_todate(J, 0); |
| 698 | double h = js_tonumber(J, 1); |
| 699 | double m = js_optnumber(J, 2, HourFromTime(t)); |
| 700 | double s = js_optnumber(J, 3, SecFromTime(t)); |
| 701 | double ms = js_optnumber(J, 4, msFromTime(t)); |
| 702 | js_setdate(J, 0, MakeDate(Day(t), MakeTime(h, m, s, ms))); |
| 703 | } |
| 704 | |
| 705 | static void Dp_setUTCDate(js_State *J) |
| 706 | { |
| 707 | double t = js_todate(J, 0); |
| 708 | double y = YearFromTime(t); |
| 709 | double m = MonthFromTime(t); |
| 710 | double d = js_tonumber(J, 1); |
| 711 | js_setdate(J, 0, MakeDate(MakeDay(y, m, d), TimeWithinDay(t))); |
| 712 | } |
| 713 | |
| 714 | static void Dp_setUTCMonth(js_State *J) |
| 715 | { |
| 716 | double t = js_todate(J, 0); |
| 717 | double y = YearFromTime(t); |
| 718 | double m = js_tonumber(J, 1); |
| 719 | double d = js_optnumber(J, 3, DateFromTime(t)); |
| 720 | js_setdate(J, 0, MakeDate(MakeDay(y, m, d), TimeWithinDay(t))); |
| 721 | } |
| 722 | |
| 723 | static void Dp_setUTCFullYear(js_State *J) |
| 724 | { |
| 725 | double t = js_todate(J, 0); |
| 726 | double y = js_tonumber(J, 1); |
| 727 | double m = js_optnumber(J, 2, MonthFromTime(t)); |
| 728 | double d = js_optnumber(J, 3, DateFromTime(t)); |
| 729 | js_setdate(J, 0, MakeDate(MakeDay(y, m, d), TimeWithinDay(t))); |
| 730 | } |
| 731 | |
| 732 | static void Dp_toJSON(js_State *J) |
| 733 | { |
| 734 | js_copy(J, 0); |
| 735 | js_toprimitive(J, -1, JS_HNUMBER); |
| 736 | if (js_isnumber(J, -1) && !isfinite(js_tonumber(J, -1))) { |
| 737 | js_pushnull(J); |
| 738 | return; |
| 739 | } |
| 740 | js_pop(J, 1); |
| 741 | |
| 742 | js_getproperty(J, 0, "toISOString" ); |
| 743 | if (!js_iscallable(J, -1)) |
| 744 | js_typeerror(J, "this.toISOString is not a function" ); |
| 745 | js_copy(J, 0); |
| 746 | js_call(J, 0); |
| 747 | } |
| 748 | |
| 749 | void jsB_initdate(js_State *J) |
| 750 | { |
| 751 | J->Date_prototype->u.number = 0; |
| 752 | |
| 753 | js_pushobject(J, J->Date_prototype); |
| 754 | { |
| 755 | jsB_propf(J, "Date.prototype.valueOf" , Dp_valueOf, 0); |
| 756 | jsB_propf(J, "Date.prototype.toString" , Dp_toString, 0); |
| 757 | jsB_propf(J, "Date.prototype.toDateString" , Dp_toDateString, 0); |
| 758 | jsB_propf(J, "Date.prototype.toTimeString" , Dp_toTimeString, 0); |
| 759 | jsB_propf(J, "Date.prototype.toLocaleString" , Dp_toString, 0); |
| 760 | jsB_propf(J, "Date.prototype.toLocaleDateString" , Dp_toDateString, 0); |
| 761 | jsB_propf(J, "Date.prototype.toLocaleTimeString" , Dp_toTimeString, 0); |
| 762 | jsB_propf(J, "Date.prototype.toUTCString" , Dp_toUTCString, 0); |
| 763 | |
| 764 | jsB_propf(J, "Date.prototype.getTime" , Dp_valueOf, 0); |
| 765 | jsB_propf(J, "Date.prototype.getFullYear" , Dp_getFullYear, 0); |
| 766 | jsB_propf(J, "Date.prototype.getUTCFullYear" , Dp_getUTCFullYear, 0); |
| 767 | jsB_propf(J, "Date.prototype.getMonth" , Dp_getMonth, 0); |
| 768 | jsB_propf(J, "Date.prototype.getUTCMonth" , Dp_getUTCMonth, 0); |
| 769 | jsB_propf(J, "Date.prototype.getDate" , Dp_getDate, 0); |
| 770 | jsB_propf(J, "Date.prototype.getUTCDate" , Dp_getUTCDate, 0); |
| 771 | jsB_propf(J, "Date.prototype.getDay" , Dp_getDay, 0); |
| 772 | jsB_propf(J, "Date.prototype.getUTCDay" , Dp_getUTCDay, 0); |
| 773 | jsB_propf(J, "Date.prototype.getHours" , Dp_getHours, 0); |
| 774 | jsB_propf(J, "Date.prototype.getUTCHours" , Dp_getUTCHours, 0); |
| 775 | jsB_propf(J, "Date.prototype.getMinutes" , Dp_getMinutes, 0); |
| 776 | jsB_propf(J, "Date.prototype.getUTCMinutes" , Dp_getUTCMinutes, 0); |
| 777 | jsB_propf(J, "Date.prototype.getSeconds" , Dp_getSeconds, 0); |
| 778 | jsB_propf(J, "Date.prototype.getUTCSeconds" , Dp_getUTCSeconds, 0); |
| 779 | jsB_propf(J, "Date.prototype.getMilliseconds" , Dp_getMilliseconds, 0); |
| 780 | jsB_propf(J, "Date.prototype.getUTCMilliseconds" , Dp_getUTCMilliseconds, 0); |
| 781 | jsB_propf(J, "Date.prototype.getTimezoneOffset" , Dp_getTimezoneOffset, 0); |
| 782 | |
| 783 | jsB_propf(J, "Date.prototype.setTime" , Dp_setTime, 1); |
| 784 | jsB_propf(J, "Date.prototype.setMilliseconds" , Dp_setMilliseconds, 1); |
| 785 | jsB_propf(J, "Date.prototype.setUTCMilliseconds" , Dp_setUTCMilliseconds, 1); |
| 786 | jsB_propf(J, "Date.prototype.setSeconds" , Dp_setSeconds, 2); |
| 787 | jsB_propf(J, "Date.prototype.setUTCSeconds" , Dp_setUTCSeconds, 2); |
| 788 | jsB_propf(J, "Date.prototype.setMinutes" , Dp_setMinutes, 3); |
| 789 | jsB_propf(J, "Date.prototype.setUTCMinutes" , Dp_setUTCMinutes, 3); |
| 790 | jsB_propf(J, "Date.prototype.setHours" , Dp_setHours, 4); |
| 791 | jsB_propf(J, "Date.prototype.setUTCHours" , Dp_setUTCHours, 4); |
| 792 | jsB_propf(J, "Date.prototype.setDate" , Dp_setDate, 1); |
| 793 | jsB_propf(J, "Date.prototype.setUTCDate" , Dp_setUTCDate, 1); |
| 794 | jsB_propf(J, "Date.prototype.setMonth" , Dp_setMonth, 2); |
| 795 | jsB_propf(J, "Date.prototype.setUTCMonth" , Dp_setUTCMonth, 2); |
| 796 | jsB_propf(J, "Date.prototype.setFullYear" , Dp_setFullYear, 3); |
| 797 | jsB_propf(J, "Date.prototype.setUTCFullYear" , Dp_setUTCFullYear, 3); |
| 798 | |
| 799 | /* ES5 */ |
| 800 | jsB_propf(J, "Date.prototype.toISOString" , Dp_toISOString, 0); |
| 801 | jsB_propf(J, "Date.prototype.toJSON" , Dp_toJSON, 1); |
| 802 | } |
| 803 | js_newcconstructor(J, jsB_Date, jsB_new_Date, "Date" , 0); /* 1 */ |
| 804 | { |
| 805 | jsB_propf(J, "Date.parse" , D_parse, 1); |
| 806 | jsB_propf(J, "Date.UTC" , D_UTC, 7); |
| 807 | |
| 808 | /* ES5 */ |
| 809 | jsB_propf(J, "Date.now" , D_now, 0); |
| 810 | } |
| 811 | js_defglobal(J, "Date" , JS_DONTENUM); |
| 812 | } |
| 813 | |