mirror of
https://github.com/notwa/mm
synced 2024-11-05 16:09:03 -08:00
86 lines
2.4 KiB
Lua
86 lines
2.4 KiB
Lua
|
local writers = {}
|
||
|
|
|
||
|
|
function writers.make_word()
|
||
|
|
local buff = {}
|
||
|
|
local max = -1
|
||
|
|
return function(pos, b)
|
||
|
|
if pos then
|
||
|
|
buff[pos] = ("%02X"):format(b)
|
||
|
|
if pos > max then
|
||
|
|
max = pos
|
||
|
|
end
|
||
|
|
elseif max >= 0 then
|
||
|
|
for i=0, max, 4 do
|
||
|
|
local a = buff[i+0] or '00'
|
||
|
|
local b = buff[i+1] or '00'
|
||
|
|
local c = buff[i+2] or '00'
|
||
|
|
local d = buff[i+3] or '00'
|
||
|
|
print(a..b..c..d)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
function writers.make_verbose()
|
||
|
|
local buff = {}
|
||
|
|
local max = -1
|
||
|
|
return function(pos, b)
|
||
|
|
if pos then
|
||
|
|
buff[pos] = b
|
||
|
|
if pos > max then
|
||
|
|
max = pos
|
||
|
|
end
|
||
|
|
elseif max >= 0 then
|
||
|
|
for i=0, max, 4 do
|
||
|
|
local a = buff[i+0] or nil
|
||
|
|
local b = buff[i+1] or nil
|
||
|
|
local c = buff[i+2] or nil
|
||
|
|
local d = buff[i+3] or nil
|
||
|
|
if a or b or c or d then
|
||
|
|
a = a and ("%02X"):format(a) or '--'
|
||
|
|
b = b and ("%02X"):format(b) or '--'
|
||
|
|
c = c and ("%02X"):format(c) or '--'
|
||
|
|
d = d and ("%02X"):format(d) or '--'
|
||
|
|
print(('%08X %s'):format(i, a..b..c..d))
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
function writers.make_tester()
|
||
|
|
local buff = {}
|
||
|
|
local max = -1
|
||
|
|
return function(pos, b)
|
||
|
|
if pos then
|
||
|
|
buff[pos] = b
|
||
|
|
if pos > max then
|
||
|
|
max = pos
|
||
|
|
end
|
||
|
|
elseif max >= 0 then
|
||
|
|
local s = ''
|
||
|
|
local last_i = 0
|
||
|
|
for i=0, max, 4 do
|
||
|
|
local a = buff[i+0] or nil
|
||
|
|
local b = buff[i+1] or nil
|
||
|
|
local c = buff[i+2] or nil
|
||
|
|
local d = buff[i+3] or nil
|
||
|
|
if a or b or c or d then
|
||
|
|
a = a and ("%02X"):format(a) or '--'
|
||
|
|
b = b and ("%02X"):format(b) or '--'
|
||
|
|
c = c and ("%02X"):format(c) or '--'
|
||
|
|
d = d and ("%02X"):format(d) or '--'
|
||
|
|
if last_i ~= i - 4 then
|
||
|
|
s = s..('@%08X\n'):format(i)
|
||
|
|
end
|
||
|
|
s = s..a..b..c..d.."\n"
|
||
|
|
last_i = i
|
||
|
|
end
|
||
|
|
end
|
||
|
|
return s
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
return writers
|