akkartik
/
crosstable.love
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

a helper to add patterns without increasing indent

This commit is contained in:
Kartik K. Agaram 2024-04-11 12:50:31 -07:00
parent 11171f80d9
commit 9c102c6f74
2 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
0020-load_results
View File

@ -4,20 +4,21 @@ load_results = function(filename)
local f, err = App.open_for_reading(filename)
if err then error(err) end
for line in f:lines() do
local subject, object = line:match('^%s*(%S+)%s+beat%s+(%S+)%s*$')
table.insert(Global_state.results, {subject, object})
if subject == nil then
local _ = -- turn rest of loop (a single giant expr) into a statement to satisfy the Lua parser
do_if_match(line, '^%s*(%S+)%s+beat%s+(%S+)%s*$', function(subject, object)
table.insert(Global_state.results, {subject, object})
if results[subject] == nil then
results[subject] = {}
end
results[subject][object] = 2
if results[object] == nil then
results[object] = {}
end
results[object][subject] = 0
end)
or
error('incorrect format: '..line)
end
if results[subject] == nil then
results[subject] = {}
end
results[subject][object] = 2
if results[object] == nil then
results[object] = {}
end
results[object][subject] = 0
end
f:close()
return results
end
end

6
0029-do_if_match Normal file
View File

@ -0,0 +1,6 @@
do_if_match = function(line, pat, f)
local captures = {line:match(pat)}
if #captures == 0 then return end
f(unpack(captures))
return true
end