mirror of https://git.sr.ht/~rabbits/uxn
104 lines
2.7 KiB
Lua
104 lines
2.7 KiB
Lua
local output = assert(io.open('.asma.tal', 'w'))
|
|
local process_subtree
|
|
process_subtree = function(items)
|
|
local middle = math.floor(#items / 2 + 1.25)
|
|
local node = items[middle]
|
|
if not node then
|
|
return
|
|
end
|
|
node.left = process_subtree((function()
|
|
local _accum_0 = { }
|
|
local _len_0 = 1
|
|
for i, item in ipairs(items) do
|
|
if i < middle then
|
|
_accum_0[_len_0] = item
|
|
_len_0 = _len_0 + 1
|
|
end
|
|
end
|
|
return _accum_0
|
|
end)())
|
|
node.right = process_subtree((function()
|
|
local _accum_0 = { }
|
|
local _len_0 = 1
|
|
for i, item in ipairs(items) do
|
|
if i > middle then
|
|
_accum_0[_len_0] = item
|
|
_len_0 = _len_0 + 1
|
|
end
|
|
end
|
|
return _accum_0
|
|
end)())
|
|
return node
|
|
end
|
|
local process_tree
|
|
process_tree = function(items)
|
|
local sorted_items
|
|
do
|
|
local _accum_0 = { }
|
|
local _len_0 = 1
|
|
for _index_0 = 1, #items do
|
|
local item = items[_index_0]
|
|
_accum_0[_len_0] = item
|
|
_len_0 = _len_0 + 1
|
|
end
|
|
sorted_items = _accum_0
|
|
end
|
|
table.sort(sorted_items, function(a, b)
|
|
return a.order < b.order
|
|
end);
|
|
(process_subtree(sorted_items)).label = '&_entry'
|
|
for _index_0 = 1, #items do
|
|
local item = items[_index_0]
|
|
output:write(('\t%-11s %-10s %-12s %s%s\n'):format(item.label, item.left and item.left.ref or ' $2', (item.right and item.right.ref or ' $2') .. item.extra, item.key, item.rest))
|
|
end
|
|
end
|
|
local parse_tree
|
|
parse_tree = function(it)
|
|
local items = { }
|
|
for l in it do
|
|
if l == '' then
|
|
process_tree(items)
|
|
output:write('\n')
|
|
return
|
|
end
|
|
local item = {
|
|
extra = ''
|
|
}
|
|
item.key, item.rest = l:match('^%s*%S+%s+%S+%s+%S+%s+(%S+)(.*)')
|
|
if item.key:match('^%&') then
|
|
item.extra = (' %s'):format(item.key)
|
|
item.key, item.rest = item.rest:match('^%s+(%S+)(.*)')
|
|
end
|
|
if item.key:match('^%"') then
|
|
item.order = item.key:sub(2)
|
|
elseif item.key:match('^%x%x') then
|
|
item.order = string.char(tonumber(item.key, 16))
|
|
else
|
|
error(('unknown key: %q'):format(item.key))
|
|
end
|
|
if item.order:match('^%a') then
|
|
item.label = ('&%s'):format(item.order)
|
|
elseif item.order:match('^.$') then
|
|
item.label = ('&%x'):format(item.order:byte())
|
|
else
|
|
error(('unknown label: %q'):format(item.order))
|
|
end
|
|
item.ref = (':%s'):format(item.label)
|
|
table.insert(items, item)
|
|
end
|
|
end
|
|
local it = assert(io.lines('projects/library/asma.tal'))
|
|
local waiting_for_cut = true
|
|
for l in it do
|
|
output:write(l)
|
|
output:write('\n')
|
|
if l:find('--- cut here ---', 1, true) then
|
|
waiting_for_cut = false
|
|
end
|
|
if not waiting_for_cut and '@' == l:sub(1, 1) then
|
|
parse_tree(it)
|
|
end
|
|
end
|
|
output:close()
|
|
return os.execute('mv .asma.tal projects/library/asma.tal')
|