30 lines
463 B
Lua
30 lines
463 B
Lua
local tArgs = {...}
|
|
|
|
local function toint(s)
|
|
s=s or ""
|
|
local n = 0
|
|
local i = 1
|
|
while true do
|
|
local p = s:sub(i,i)
|
|
if p == "" then break end
|
|
local b = string.byte(p)
|
|
n = n << 8
|
|
n = n | b
|
|
i=i+1
|
|
end
|
|
return n
|
|
end
|
|
|
|
local fi = io.open(tArgs[1])
|
|
while true do
|
|
local nlen = toint(fi:read(2))
|
|
if nlen == 0 then
|
|
break
|
|
end
|
|
local name = fi:read(nlen)
|
|
local fsize = toint(fi:read(2))
|
|
local fcontent = fi:read(fsize)
|
|
print(name,fsize)
|
|
end
|
|
fi:close()
|