1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
|
print "Lua eXtended helpers for Kogata v1"
do
local old_tostring = tostring
function tostring(x)
local seen = {}
function aux(x)
if type(x) == "table" then
if next(x) == nil then
return '{}'
end
if seen[x] then
return '...'
end
seen[x] = true
local q = '{\n '
for k, v in pairs(x) do
if q:len() > 4 then
q = q .. ',\n '
end
q = q .. k .. ': ' .. aux(v):gsub('\n', '\n ')
end
return q .. '\n}'
else
return old_tostring(x)
end
end
return aux(x)
end
end
function string.split(str, sep)
local sep, fields = sep or ":", {}
local pattern = string.format("([^%s]*)", sep)
str:gsub(pattern, function(c) fields[#fields+1] = c end)
return fields
end
function hexdump(str)
for i = 1, #str, 16 do
local b = {string.byte(str, i, math.min(i+15, #str))}
local s = ""
for j = 1, 16 do
if b[j] then
s = s .. string.format("%02x ", b[j])
else
s = s .. ' '
end
end
s = s .. '| '
for j = 1, #b do
ss = string.char(b[j])
if b[j] >= 32 and b[j] < 128 then
s = s .. string.char(b[j])
else
s = s .. '.'
end
end
print(s)
end
end
|
