Module:Escape

From escforumwiki
Jump to navigation Jump to search

local escape = { char = function(self, chr, args) args = args or {} local safe = args.safeChr or string.char(13) chr = tostring(chr or '\\') self[1] = ('%s0%%s%s'):format( ('%x%s%s'):format(chr:byte(), safe, safe), ('%s%x'):format(safe, chr:byte()) ) if not self[self[1]] then self[self[1]] = { char = chr, text = ('%s(.)'):format(chr), undo = self[1]:format'(%d+)' } end return args.text and self:text(args.text) or args.undo and self:undo(args.undo, chr) or args.kill and self:kill(args.kill) or self end, exec = function(self, text, mode, newEscape) local target = self[self[1] or self:char() and self[1]] for v in text:gfind(target[mode]) do text = text:gsub( mode == 'text' and ('%s%s'):format(target.char, v:gsub('%W', '%%%1')) or self[1]:format(v), mode == 'text' and self[1]:format(v:byte()) or (newEscape or ) .. v:char() ) end return text end, text = function(self, text) return self:exec(type(text) == 'table' and text[1] or text, 'text') end, undo = function(self, text, newEscape) if type(text) == 'table' then text, newEscape = unpack(text) end return self:exec(text, 'undo', newEscape) end, kill = function(self, text, chars, newEscape) if type(text) == 'table' then text, chars, newEscape = unpack(text) end return self:undo(self:text(text):gsub(chars or , ), newEscape) end }

function escape.main(frame) local args, family = {}, {frame:getParent(), frame} for f = 1, 2 do for k, v in pairs(family[f] and family[f].args or {}) do args[k] = args[k] or v:match('^%s*(.-)%s*$') end end if args.mode == 'char' then return escape:char(args.char or args[2], args) end return escape[args.mode](escape:char(args.char), args) end

return escape