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()
|