tools/lua/template.lua

32 local setmetatable = setmetatable
33 local loadstring = loadstring
34 local tostring = tostring
35 local setfenv = setfenv
36 local require = require
37 local concat = table.concat
38 local assert = assert
39 local write = io.write
40 local pcall = pcall
41 local phase
42 local open = io.open
43 local load = load
44 local type = type
45 local dump = string.dump
46 local find = string.find
47 local gsub = string.gsub
48 local byte = string.byte
49 local null
50 local sub = string.sub
51 local var
53 local _VERSION = _VERSION
54 local _ENV = _ENV -- luacheck: globals _ENV
55 local _G = _G
57 local HTML_ENTITIES = {
66 local CODE_ENTITIES = {
77 local VAR_PHASES
79 local ESC    = byte("\27")
80 local NUL    = byte("\0")
81 local HT     = byte("\t")
82 local VT     = byte("\v")
83 local LF     = byte("\n")
84 local SOL    = byte("/")
85 local BSOL   = byte("\\")
86 local SP     = byte(" ")
87 local AST    = byte("*")
88 local NUM    = byte("#")
89 local LPAR   = byte("(")
90 local LSQB   = byte("[")
91 local LCUB   = byte("{")
92 local MINUS  = byte("-")
93 local PERCNT = byte("%")
95 local EMPTY  = ""
97 local VIEW_ENV
108 local newtab
110     local ok
115 local function enabled(val)
120 local function trim(s)
124 local function rpos(view, s)
126         local c = byte(view, s, s)
136 local function escaped(view, s)
147 local function read_file(path)
148     local file, err = open(path, "rb")
150     local content
156 local function load_view(template)
159 	local path, root = view, template.root
169 local function load_file(func)
173 local function load_string(func)
177 local function loader(template)
183 local function visit(visitors, content, tag, name)
195 local function new(template, safe)
205     local load_chunk = loader(template)
207     local caching
214     local visitors
244         local vt = type(view)
250         local render
251         local process
296                     local ok, err = pcall(render, ...)
302                     local ok, output = pcall(process, ...)
310                     local ok, output = pcall(process, ...)
327         local chunk = dump(template.compile(view, nil, plain), strip ~= false)
329             local file = open(path, "wb")
350         local cache = template.cache
352         local func = load_chunk(template.parse(view, plain))
371         local j = 2
372         local c = {[[
374 local ___,blocks,layout={},blocks or {}
375 local function include(v, c) return template.process(v, c or context) end
376 local function echo(...) for i=1,select("#", ...) do ___[#___+1] = tostring(select(i, ...)) end end
378         local i, s = 1, find(view, "{", 1, true)
380             local t, p = byte(view, s + 1, s + 1), s + 2
382                 local e = find(view, "}}", p, true)
384                     local z, w = escaped(view, s)
402                 local e = find(view, "*}", p, true)
404                     local z, w = escaped(view, s)
422                 local e = find(view, "%}", p, true)
424                     local z, w = escaped(view, s)
434                         local n = e + 2
438                         local r = rpos(view, s - 1)
452                 local e = find(view, ")}", p, true)
454                     local z, w = escaped(view, s)
464                         local f = visit(visitors, sub(view, p, e - 1), "(")
465                         local x = find(f, ",", 2, true)
483                 local e = find(view, "]}", p, true)
485                     local z, w = escaped(view, s)
503                 local e = find(view, "-}", p, true)
505                     local x, y = find(view, sub(view, s, e + 1), e + 2, true)
507                         local z, w = escaped(view, s)
522                             local b = trim(sub(view, p, e - 1))
538                                 local r = rpos(view, s - 1)
557                 local e = find(view, "#}", p, true)
559                     local z, w = escaped(view, s)
633                         local ok, a, b = pcall(template[k], ...)