summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/loslib.js302
1 files changed, 282 insertions, 20 deletions
diff --git a/src/loslib.js b/src/loslib.js
index 6240ed9..5768113 100644
--- a/src/loslib.js
+++ b/src/loslib.js
@@ -42,16 +42,13 @@ const {
} = require('./lauxlib.js');
const {
luastring_eq,
- luastring_indexOf,
to_jsstring,
to_luastring
} = require("./fengaricore.js");
-const strftime = require('strftime');
-
/* options for ANSI C 89 (only 1-char options) */
-const L_STRFTIMEC89 = to_luastring("aAbBcdHIjmMpSUwWxXyYZ%");
-const LUA_STRFTIMEOPTIONS = L_STRFTIMEC89;
+// const L_STRFTIMEC89 = to_luastring("aAbBcdHIjmMpSUwWxXyYZ%");
+// const LUA_STRFTIMEOPTIONS = L_STRFTIMEC89;
/* options for ISO C 99 and POSIX */
// const L_STRFTIMEC99 = to_luastring("aAbBcCdDeFgGhHIjmMnprRStTuUVwWxXyYzZ%||EcECExEXEyEYOdOeOHOIOmOMOSOuOUOVOwOWOy"); /* two-char options */
@@ -61,6 +58,18 @@ const LUA_STRFTIMEOPTIONS = L_STRFTIMEC89;
// const L_STRFTIMEWIN = to_luastring("aAbBcdHIjmMpSUwWxXyYzZ%||#c#x#d#H#I#j#m#M#S#U#w#W#y#Y"); /* two-char options */
// const LUA_STRFTIMEOPTIONS = L_STRFTIMEWIN;
+/* options for our own strftime implementation
+ - should be superset of C89 options for compat
+ - missing from C99:
+ - ISO 8601 week specifiers: gGV
+ - > single char specifiers
+ - beyond C99:
+ - %k: TZ extension: space-padded 24-hour
+ - %l: TZ extension: space-padded 12-hour
+ - %P: GNU extension: lower-case am/pm
+*/
+const LUA_STRFTIMEOPTIONS = to_luastring("aAbBcCdDeFhHIjklmMnpPrRStTuUwWxXyYzZ%");
+
const setfield = function(L, key, value) {
lua_pushinteger(L, value);
@@ -100,7 +109,272 @@ const getfield = function(L, key, d, delta) {
return res;
};
-const checkoption = function(L, conv, i, buff) {
+
+const locale = {
+ days: ["Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" ].map((s) => to_luastring(s)),
+ shortDays: ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"].map((s) => to_luastring(s)),
+ months: ["January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"].map((s) => to_luastring(s)),
+ shortMonths: ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"].map((s) => to_luastring(s)),
+ AM: to_luastring("AM"),
+ PM: to_luastring("PM"),
+ am: to_luastring("am"),
+ pm: to_luastring("pm"),
+ formats: {
+ c: to_luastring("%a %b %e %H:%M:%S %Y"),
+ D: to_luastring("%m/%d/%y"),
+ F: to_luastring("%Y-%m-%d"),
+ R: to_luastring("%H:%M"),
+ r: to_luastring("%I:%M:%S %p"),
+ T: to_luastring("%H:%M:%S"),
+ X: to_luastring("%T"),
+ x: to_luastring("%D")
+ }
+};
+
+const week_number = function(date, start_of_week) {
+ // This works by shifting the weekday back by one day if we
+ // are treating Monday as the first day of the week.
+ let weekday = date.getDay();
+ if (start_of_week === 'monday') {
+ if (weekday === 0) // Sunday
+ weekday = 6;
+ else
+ weekday--;
+ }
+ let yday = (date - new Date(date.getFullYear(), 0, 1)) / 86400000;
+ return Math.floor((yday + 7 - weekday) / 7);
+};
+
+const push_pad_2 = function(b, n, pad) {
+ if (n < 10)
+ luaL_addchar(b, pad);
+ luaL_addstring(b, to_luastring(String(n)));
+};
+
+const strftime = function(L, b, s, date) {
+ let i = 0;
+ while (i < s.length) {
+ if (s[i] !== 37 /* % */) { /* not a conversion specifier? */
+ luaL_addchar(b, s[i++]);
+ } else {
+ i++; /* skip '%' */
+ let len = checkoption(L, s, i);
+ /* each `case` has an example output above it for the UTC epoch */
+ switch(s[i]) {
+ // '%'
+ case 37 /* % */:
+ luaL_addchar(b, 37);
+ break;
+
+ // 'Thursday'
+ case 65 /* A */:
+ luaL_addstring(b, locale.days[date.getDay()]);
+ break;
+
+ // 'January'
+ case 66 /* B */:
+ luaL_addstring(b, locale.months[date.getMonth()]);
+ break;
+
+ // '19'
+ case 67 /* C */:
+ push_pad_2(b, Math.floor(date.getFullYear() / 100), 48 /* 0 */);
+ break;
+
+ // '01/01/70'
+ case 68 /* D */:
+ strftime(L, b, locale.formats.D, date);
+ break;
+
+ // '1970-01-01'
+ case 70 /* F */:
+ strftime(L, b, locale.formats.F, date);
+ break;
+
+ // '00'
+ case 72 /* H */:
+ push_pad_2(b, date.getHours(), 48 /* 0 */);
+ break;
+
+ // '12'
+ case 73 /* I */:
+ push_pad_2(b, (date.getHours() + 11) % 12 + 1, 48 /* 0 */);
+ break;
+
+ // '00'
+ case 77 /* M */:
+ push_pad_2(b, date.getMinutes(), 48 /* 0 */);
+ break;
+
+ // 'am'
+ case 80 /* P */:
+ luaL_addstring(b, date.getHours() < 12 ? locale.am : locale.pm);
+ break;
+
+ // '00:00'
+ case 82 /* R */:
+ strftime(L, b, locale.formats.R, date);
+ break;
+
+ // '00'
+ case 83 /* S */:
+ push_pad_2(b, date.getSeconds(), 48 /* 0 */);
+ break;
+
+ // '00:00:00'
+ case 84 /* T */:
+ strftime(L, b, locale.formats.T, date);
+ break;
+
+ // '00'
+ case 85 /* U */:
+ push_pad_2(b, week_number(date, "sunday"), 48 /* 0 */);
+ break;
+
+ // '00'
+ case 87 /* W */:
+ push_pad_2(b, week_number(date, "monday"), 48 /* 0 */);
+ break;
+
+ // '16:00:00'
+ case 88 /* X */:
+ strftime(L, b, locale.formats.X, date);
+ break;
+
+ // '1970'
+ case 89 /* Y */:
+ luaL_addstring(b, to_luastring(String(date.getFullYear())));
+ break;
+
+ // 'GMT'
+ case 90 /* Z */: {
+ let tzString = date.toString().match(/\(([\w\s]+)\)/);
+ if (tzString)
+ luaL_addstring(b, to_luastring(tzString[1]));
+ break;
+ }
+
+ // 'Thu'
+ case 97 /* a */:
+ luaL_addstring(b, locale.shortDays[date.getDay()]);
+ break;
+
+ // 'Jan'
+ case 98 /* b */:
+ case 104 /* h */:
+ luaL_addstring(b, locale.shortMonths[date.getMonth()]);
+ break;
+
+ // ''
+ case 99 /* c */:
+ strftime(L, b, locale.formats.c, date);
+ break;
+
+ // '01'
+ case 100 /* d */:
+ push_pad_2(b, date.getDate(), 48 /* 0 */);
+ break;
+
+ // ' 1'
+ case 101 /* e */:
+ push_pad_2(b, date.getDate(), 32 /* space */);
+ break;
+
+ // '000'
+ case 106 /* j */: {
+ let yday = Math.floor((date - new Date(date.getFullYear(), 0, 1)) / 86400000);
+ if (yday < 100) {
+ if (yday < 10)
+ luaL_addchar(b, 48 /* 0 */);
+ luaL_addchar(b, 48 /* 0 */);
+ }
+ luaL_addstring(b, to_luastring(String(yday)));
+ break;
+ }
+
+ // ' 0'
+ case 107 /* k */:
+ push_pad_2(b, date.getHours(), 32 /* space */);
+ break;
+
+ // '12'
+ case 108 /* l */:
+ push_pad_2(b, (date.getHours() + 11) % 12 + 1, 32 /* space */);
+ break;
+
+ // '01'
+ case 109 /* m */:
+ push_pad_2(b, date.getMonth() + 1, 48 /* 0 */);
+ break;
+
+ // '\n'
+ case 110 /* n */:
+ luaL_addchar(b, 10);
+ break;
+
+ // 'AM'
+ case 112 /* p */:
+ luaL_addstring(b, date.getHours() < 12 ? locale.AM : locale.PM);
+ break;
+
+ // '12:00:00 AM'
+ case 114 /* r */:
+ strftime(L, b, locale.formats.r, date);
+ break;
+
+ // '0'
+ case 115 /* s */:
+ luaL_addstring(b, to_luastring(String(Math.floor(date / 1000))));
+ break;
+
+ // '\t'
+ case 116 /* t */:
+ luaL_addchar(b, 8);
+ break;
+
+ // '4'
+ case 117 /* u */: {
+ let day = date.getDay();
+ luaL_addstring(b, to_luastring(String(day === 0 ? 7 : day)));
+ break;
+ }
+
+ // '4'
+ case 119 /* w */:
+ luaL_addstring(b, to_luastring(String(date.getDay())));
+ break;
+
+ // '12/31/69'
+ case 120 /* x */:
+ strftime(L, b, locale.formats.x, date);
+ break;
+
+ // '70'
+ case 121 /* y */:
+ push_pad_2(b, date.getFullYear() % 100, 48 /* 0 */);
+ break;
+
+ // '+0000'
+ case 122 /* z */: {
+ let off = date.getTimezoneOffset();
+ if (off > 0) {
+ luaL_addchar(b, 45 /* - */);
+ } else {
+ off = -off;
+ luaL_addchar(b, 43 /* + */);
+ }
+ push_pad_2(b, Math.floor(off/60), 48 /* 0 */);
+ push_pad_2(b, off % 60, 48 /* 0 */);
+ break;
+ }
+ }
+ i += len;
+ }
+ }
+};
+
+
+const checkoption = function(L, conv, i) {
let option = LUA_STRFTIMEOPTIONS;
let o = 0;
let oplen = 1; /* length of options being checked */
@@ -108,8 +382,7 @@ const checkoption = function(L, conv, i, buff) {
if (option[o] === '|'.charCodeAt(0)) /* next block? */
oplen++; /* will check options with next length (+1) */
else if (luastring_eq(conv.subarray(i, i+oplen), option.subarray(o, o+oplen))) { /* match? */
- buff.set(conv.subarray(i, i+oplen)); /* copy valid option to buffer */
- return i + oplen; /* return next item */
+ return oplen; /* return length */
}
}
luaL_argerror(L, 1,
@@ -137,18 +410,7 @@ const os_date = function(L) {
cc[0] = "%".charCodeAt(0);
let b = new luaL_Buffer();
luaL_buffinit(L, b);
- while (i < s.length) {
- if (s[i] !== '%'.charCodeAt(0)) { /* not a conversion specifier? */
- luaL_addchar(b, s[i++]);
- } else {
- i++; /* skip '%' */
- i = checkoption(L, s, i, cc.subarray(1)); /* copy specifier to 'cc' */
- let len = luastring_indexOf(cc, 0);
- if (len === -1) len = void 0;
- let buff = strftime(to_jsstring(cc, 0, len), stm);
- luaL_addstring(b, to_luastring(buff));
- }
- }
+ strftime(L, b, s, stm);
luaL_pushresult(b);
}
return 1;
generated by cgit v1.2.3-70-g09d2 (git 2.47.0) at 2024-11-15 08:28:09 +0000