diff options
Diffstat (limited to 'lib/fennelview.lua')
| -rw-r--r-- | lib/fennelview.lua | 201 |
1 files changed, 201 insertions, 0 deletions
diff --git a/lib/fennelview.lua b/lib/fennelview.lua new file mode 100644 index 0000000..1259f6e --- /dev/null +++ b/lib/fennelview.lua @@ -0,0 +1,201 @@ +local function _0_(str) + return ("\"" .. str:gsub("\"", "\\\"") .. "\"") +end +local quote = _0_ +local short_control_char_escapes = ({["\11"] = "\\v", ["\12"] = "\\f", ["\13"] = "\\r", ["\7"] = "\\a", ["\8"] = "\\b", ["\9"] = "\\t", ["\n"] = "\\n"}) +local function _1_() + local long = ({}) + for i = 0, 31 do + local ch = string.char(i) + local function _2_() + if not short_control_char_escapes[ch] then + short_control_char_escapes[ch] = ("\\" .. i) + long[ch] = ("\\%03d"):format(i) + return nil + end + end + _2_() + end + return long +end +local long_control_char_esapes = _1_() +local function _2_(str) + local str = str:gsub("\\", "\\\\") + local str = str:gsub("(%c)%f[0-9]", long_control_char_esapes) + return str:gsub("%c", short_control_char_escapes) +end +local escape = _2_ +local function _3_(k, len) + return ((type(k)) == ("number") and (1) <= (k) and (k) <= (len) and (math.floor(k)) == (k)) +end +local sequence_key_3f = _3_ +local type_order = ({["function"] = 5, boolean = 2, number = 1, string = 3, table = 4, thread = 7, userdata = 6}) +local function _4_(a, b) + local ta = type(a) + local tb = type(b) + if ((ta) == (tb) and (ta) ~= ("boolean") and ((ta) == ("string") or (ta) == ("number"))) then + return (a) < (b) + else + local dta = type_order[a] + local dtb = type_order[b] + if (dta and dtb) then + return (dta) < (dtb) + elseif dta then + return true + elseif dtb then + return false + elseif "else" then + return (ta) < (tb) + end + end +end +local sort_keys = _4_ +local function _5_(t) + local len = 1 + for i in ipairs(t) do + len = i + end + return len +end +local get_sequence_length = _5_ +local function _6_(t) + local keys = ({}) + local sequence_length = get_sequence_length(t) + for k in pairs(t) do + local function _7_() + if not sequence_key_3f(k, sequence_length) then + return table.insert(keys, k) + end + end + _7_() + end + table.sort(keys, sort_keys) + return keys, sequence_length +end +local get_nonsequential_keys = _6_ +local function recur(t, appearances) + local function _7_() + if (type(t)) == ("table") then + if not appearances[t] then + appearances[t] = 1 + for k, v in pairs(t) do + recur(k, appearances) + recur(v, appearances) + end + return nil + end + else + if (t and (t) == (t)) then + appearances[t] = ((appearances[t] or 0) + 1) + return nil + end + end + end + _7_() + return appearances +end +local count_table_appearances = recur +local put_value = nil +local function _7_(self, ...) + for _, v in ipairs(({...})) do + table.insert(self.buffer, v) + end + return nil +end +local puts = _7_ +local function _8_(self) + return puts(self, "\n", self.indent:rep(self.level)) +end +local tabify = _8_ +local function _9_(self, v) + return (self.ids[v]) ~= (nil) +end +local already_visited_3f = _9_ +local function _10_(self, v) + local id = self.ids[v] + local function _11_() + if not id then + local tv = type(v) + id = ((self["max-ids"][tv] or 0) + 1) + self["max-ids"][tv] = id + self.ids[v] = id + return nil + end + end + _11_() + return tostring(id) +end +local get_id = _10_ +local function _11_(self, t, length) + puts(self, "[") + self.level = (self.level + 1) + for i = 1, length do + puts(self, " ") + put_value(self, t[i]) + end + self.level = (self.level - 1) + return puts(self, " ]") +end +local put_sequential_table = _11_ +local function _12_(self, k) + if ((type(k)) == ("string") and k:find("^[%w?\\^_`!#$%&*+-./@~:|<=>]+$")) then + return puts(self, ":", k) + else + return put_value(self, k) + end +end +local put_key = _12_ +local function _13_(self, t) + puts(self, "{") + self.level = (self.level + 1) + for k, v in pairs(t) do + tabify(self) + put_key(self, k) + puts(self, " ") + put_value(self, v) + end + self.level = (self.level - 1) + tabify(self) + return puts(self, "}") +end +local put_kv_table = _13_ +local function _14_(self, t) + if already_visited_3f(self, t) then + return puts(self, "#<table ", get_id(self, t), ">") + elseif (self.level) >= (self.depth) then + return puts(self, "{...}") + elseif "else" then + local non_seq_keys, length = get_nonsequential_keys(t) + local id = get_id(self, t) + if (self.appearances[t]) > (1) then + return puts(self, "#<", id, ">") + elseif ((#non_seq_keys) == (0) and (#t) == (0)) then + return puts(self, "{}") + elseif (#non_seq_keys) == (0) then + return put_sequential_table(self, t, length) + elseif "else" then + return put_kv_table(self, t) + end + end +end +local put_table = _14_ +local function _15_(self, v) + local tv = type(v) + if (tv) == ("string") then + return puts(self, quote(escape(v))) + elseif ((tv) == ("number") or (tv) == ("boolean") or (tv) == ("nil")) then + return puts(self, tostring(v)) + elseif (tv) == ("table") then + return put_table(self, v) + elseif "else" then + return puts(self, "#<", tv, " ", get_id(self, v), ">") + end +end +put_value = _15_ +local function _16_(root, options) + local options = (options or ({})) + local inspector = ({["max-ids"] = ({}), appearances = count_table_appearances(root, ({})), buffer = ({}), depth = (options.depth or 128), ids = ({}), indent = (options.indent or " "), level = 0}) + put_value(inspector, root) + return table.concat(inspector.buffer) +end +return _16_ |