205 lines
6.2 KiB
Plaintext
205 lines
6.2 KiB
Plaintext
// epoch = 0000-01-01 00:00:00 +0000
|
|
var time = this;
|
|
|
|
/* -------- host helpers -------------------------------------------------- */
|
|
var now = time.now; // seconds since Misty epoch (C stub)
|
|
var computer_zone = time.computer_zone; // integral hours, no DST
|
|
var computer_dst = time.computer_dst; // true ↔ DST in effect
|
|
|
|
delete time.now;
|
|
delete time.computer_zone;
|
|
delete time.computer_dst;
|
|
|
|
/* -------- units & static tables ----------------------------------------- */
|
|
|
|
time.second = 1;
|
|
time.minute = 60;
|
|
time.hour = 3_600;
|
|
time.day = 86_400;
|
|
time.week = 604_800;
|
|
|
|
time.weekdays = [
|
|
"Sunday", "Monday", "Tuesday",
|
|
"Wednesday", "Thursday", "Friday", "Saturday"
|
|
];
|
|
|
|
time.monthstr = [
|
|
"January", "February", "March", "April", "May", "June",
|
|
"July", "August", "September", "October", "November", "December"
|
|
];
|
|
|
|
time.epoch = 1970;
|
|
|
|
/* ratios (kept K&R-style) */
|
|
time.hour2minute = function() { return time.hour / time.minute; };
|
|
time.day2hour = function() { return time.day / time.hour; };
|
|
time.minute2second = function() { return time.minute / time.second; };
|
|
time.week2day = function() { return time.week / time.day; };
|
|
|
|
/* leap-year helpers */
|
|
time.yearsize = function yearsize(y)
|
|
{
|
|
if (y % 4 == 0 && (y % 100 != 0 || y % 400 == 0)) return 366;
|
|
return 365;
|
|
};
|
|
time.isleap = function(y) { return time.yearsize(y) == 366; };
|
|
|
|
/* timecode utility */
|
|
time.timecode = function(t, fps = 24)
|
|
{
|
|
var s = whole(t);
|
|
var frac = t - s;
|
|
return `${s}:${whole(frac * fps)}`;
|
|
};
|
|
|
|
/* per-month day counts (non-leap) */
|
|
time.monthdays = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
|
|
|
|
// convert seconds-since-epoch → broken-down record
|
|
function time_record(num = now(),
|
|
zone = computer_zone(),
|
|
dst = computer_dst())
|
|
{
|
|
if (is_object(num)) return num;
|
|
|
|
var monthdays = array(time.monthdays);
|
|
var rec = {
|
|
second : 0, minute : 0, hour : 0,
|
|
yday : 0, year : 0,
|
|
weekday: 0, month : 0, day : 0,
|
|
zone : zone, dst : !!dst,
|
|
ce : "AD"
|
|
};
|
|
|
|
/* include DST in the effective offset */
|
|
var offset = zone + (dst ? 1 : 0);
|
|
num += offset * time.hour;
|
|
|
|
/* split into day + seconds-of-day */
|
|
var hms = num % time.day;
|
|
var day = floor(num / time.day);
|
|
if (hms < 0) { hms += time.day; day--; }
|
|
|
|
rec.second = hms % time.minute;
|
|
var tmp = floor(hms / time.minute);
|
|
rec.minute = tmp % time.minute;
|
|
rec.hour = floor(tmp / time.minute);
|
|
rec.weekday = (day + 4_503_599_627_370_496 + 2) % 7; /* 2 → 1970-01-01 was Thursday */
|
|
|
|
/* year & day-of-year */
|
|
var y = time.epoch;
|
|
if (day >= 0) {
|
|
for (y = time.epoch; day >= time.yearsize(y); y++)
|
|
day -= time.yearsize(y);
|
|
} else {
|
|
for (y = time.epoch; day < 0; y--)
|
|
day += time.yearsize(y - 1);
|
|
}
|
|
rec.year = y;
|
|
rec.ce = (y <= 0) ? "BC" : "AD";
|
|
rec.yday = day;
|
|
|
|
/* month & month-day */
|
|
if (time.yearsize(y) == 366) monthdays[1] = 29;
|
|
var m = 0;
|
|
for (; day >= monthdays[m]; m++) day -= monthdays[m];
|
|
rec.month = m;
|
|
rec.day = day + 1;
|
|
|
|
return rec;
|
|
}
|
|
|
|
function time_number(rec = now())
|
|
{
|
|
if (is_number(rec)) return rec;
|
|
|
|
log.console(rec)
|
|
log.console(rec.minute)
|
|
|
|
var c = 0;
|
|
var year = rec.year || 0;
|
|
var hour = rec.hour || 0;
|
|
var minute = rec.minute || 0;
|
|
var second = rec.second || 0;
|
|
var zone = rec.zone || 0;
|
|
var dst = rec.dst ? 1 : 0;
|
|
var yday = rec.yday || 0;
|
|
|
|
if (year > time.epoch) {
|
|
for (var i = time.epoch; i < year; i++)
|
|
c += time.day * time.yearsize(i);
|
|
} else if (year < time.epoch) {
|
|
for (var i = time.epoch - 1; i > year; i--)
|
|
c += time.day * time.yearsize(i);
|
|
c += (time.yearsize(year) - yday - 1) * time.day;
|
|
c += (time.day2hour() - hour - 1) * time.hour;
|
|
c += (time.hour2minute() - minute - 1) * time.minute;
|
|
c += time.minute2second() - second;
|
|
c += (zone + dst) * time.hour;
|
|
return -c; /* BCE */
|
|
}
|
|
|
|
c = second;
|
|
c += minute * time.minute;
|
|
c += hour * time.hour;
|
|
c += yday * time.day;
|
|
c -= (zone + dst) * time.hour;
|
|
|
|
return c;
|
|
}
|
|
|
|
// text formatting
|
|
var default_fmt = "vB mB d hh:nn:ss a z y c"; /* includes new DST token */
|
|
|
|
function time_text(num = now(),
|
|
fmt = default_fmt,
|
|
zone = computer_zone(),
|
|
dst = computer_dst())
|
|
{
|
|
var rec = is_number(num) ? time_record(num, zone, dst) : num;
|
|
zone = rec.zone;
|
|
dst = rec.dst;
|
|
|
|
/* am/pm */
|
|
if (search(fmt, "a") != null) {
|
|
if (rec.hour >= 13) { rec.hour -= 12; fmt = replace(fmt, "a", "PM"); }
|
|
else if (rec.hour == 12) { fmt = replace(fmt, "a", "PM"); }
|
|
else if (rec.hour == 0) { rec.hour = 12; fmt = replace(fmt, "a", "AM"); }
|
|
else fmt = replace(fmt, "a", "AM");
|
|
}
|
|
|
|
/* BCE/CE */
|
|
var year = rec.year > 0 ? rec.year : rec.year - 1;
|
|
if (search(fmt, "c") != null) {
|
|
if (year < 0) { year = abs(year); fmt = replace(fmt, "c", "BC"); }
|
|
else fmt = replace(fmt, "c", "AD");
|
|
}
|
|
|
|
/* substitutions */
|
|
var full_offset = zone + (dst ? 1 : 0);
|
|
fmt = replace(fmt, "yyyy", text(year, "i4"))
|
|
fmt = replace(fmt, "y", year);
|
|
fmt = replace(fmt, "eee", rec.yday + 1);
|
|
fmt = replace(fmt, "dd", text(rec.day, "i2"))
|
|
fmt = replace(fmt, "d", rec.day);
|
|
fmt = replace(fmt, "hh", text(rec.hour, "i2"));
|
|
fmt = replace(fmt, "h", rec.hour);
|
|
fmt = replace(fmt, "nn", text(rec.minute, "i2"));
|
|
fmt = replace(fmt, "n", rec.minute);
|
|
fmt = replace(fmt, "ss", text(rec.second, "i2"));
|
|
fmt = replace(fmt, "s", rec.second);
|
|
fmt = replace(fmt, "x", dst ? "DST" : ""); /* new */
|
|
fmt = replace(fmt, "z", (full_offset >= 0 ? "+" : "") + text(full_offset));
|
|
fmt = replace(fmt, /mm[^bB]/g, rec.month + 1);
|
|
fmt = replace(fmt, /m[^bB]/g, rec.month + 1);
|
|
fmt = replace(fmt, /v[^bB]/g, rec.weekday);
|
|
fmt = replace(fmt, "mb", text(time.monthstr[rec.month], 0, 3));
|
|
fmt = replace(fmt, "mB", time.monthstr[rec.month]);
|
|
fmt = replace(fmt, "vB", time.weekdays[rec.weekday]);
|
|
fmt = replace(fmt, "vb", text(time.weekdays[rec.weekday], 0, 3));
|
|
|
|
return fmt;
|
|
}
|
|
|
|
return { record: time_record, number: time_number, text: time_text };
|