1
2
3
4
5
6
7
8
9
10
11
12
13
..
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
-- vim: ft=terra
-- string template generator:
-- returns a function that fills out a template
-- with the strings given
local util = dofile 'common.lua'
local m = {}
function m.mk(tplspec)
local str
if type(tplspec) == 'string'
then str = tplspec tplspec = {}
else str = tplspec.body
end
................................................................................
tplchar_o = string.gsub(tplchar_o,'%%','%%%%')
tplchar = string.gsub(tplchar, '.', function(c)
if magic[c] then return '%' .. c end
end)
local last = 1
local fields = {}
local segs = {}
local constlen = 0
-- strip out all irrelevant whitespace to tidy things up
-- TODO: find way to exclude <pre> tags?
str = str:gsub('[\n^]%s+','')
str = str:gsub('%s+[\n$]','')
str = str:gsub('\n','')
str = str:gsub('</a><a ','</a> <a ') -- keep nav links from getting smooshed
for start, key, stop in string.gmatch(str,'()'..tplchar..'(%w+)()') do
if string.sub(str,start-1,start-1) ~= '\\' then
segs[#segs+1] = string.sub(str,last,start-1)
fields[#segs] = key
last = stop
end
end
segs[#segs+1] = string.sub(str,last)
for i, s in ipairs(segs) do
segs[i] = string.gsub(s, '\\'..tplchar, tplchar_o)
constlen = constlen + string.len(segs[i])
end
local runningtally = symbol(intptr)
local tallyup = {quote
var [runningtally] = 1 + constlen
end}
local rec = terralib.types.newstruct(string.format('template<%s>',tplspec.id or ''))
local symself = symbol(&rec)
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
..
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
-- vim: ft=terra
-- string template generator:
-- returns a function that fills out a template
-- with the strings given
local util = lib.util
local m = {}
function m.mk(tplspec)
local str
if type(tplspec) == 'string'
then str = tplspec tplspec = {}
else str = tplspec.body
end
................................................................................
tplchar_o = string.gsub(tplchar_o,'%%','%%%%')
tplchar = string.gsub(tplchar, '.', function(c)
if magic[c] then return '%' .. c end
end)
local last = 1
local fields = {}
local segs = {}
local docs = {}
local constlen = 0
-- strip out all irrelevant whitespace to tidy things up
-- TODO: find way to exclude <pre> tags?
str = str:gsub('[\n^]%s+','')
str = str:gsub('%s+[\n$]','')
str = str:gsub('\n','')
str = str:gsub('</a><a ','</a> <a ') -- keep nav links from getting smooshed
str = str:gsub(tplchar .. '%?([-%w]+)', function(file)
if not docs[file] then docs[file] = data.doc[file] end
return string.format('<a href="#help-%s" class="help">?</a>', file)
end)
for start, key, stop in string.gmatch(str,'()'..tplchar..'(%w+)()') do
if string.sub(str,start-1,start-1) ~= '\\' then
segs[#segs+1] = string.sub(str,last,start-1)
fields[#segs] = key
last = stop
end
end
segs[#segs+1] = string.sub(str,last)
for i, s in ipairs(segs) do
segs[i] = string.gsub(s, '\\'..tplchar, tplchar_o)
constlen = constlen + string.len(segs[i])
end
for n,d in pairs(docs) do
local html = string.format(
'<div id="help-%s" class="modal"> <a href="#0">close</a> <div>%s</div></div>', n, d.text
)
segs[#segs] = segs[#segs] .. html
constlen = constlen + #html
end
local runningtally = symbol(intptr)
local tallyup = {quote
var [runningtally] = 1 + constlen
end}
local rec = terralib.types.newstruct(string.format('template<%s>',tplspec.id or ''))
local symself = symbol(&rec)
|