added an unarchiving program, changed mkarchive behavior slightly

This commit is contained in:
Izaya 2019-07-22 13:47:21 +10:00
parent f674efaa28
commit eaef339fe9
2 changed files with 53 additions and 2 deletions

View File

@ -1,7 +1,7 @@
local tArgs = {...}
local output = tArgs[2]
local output = table.remove(tArgs,#tArgs)
local of = io.open(output,"wb")
local files, dirs = {}, {tArgs[1]}
local files, dirs = {}, {tArgs[1] or "."}
local function cint(n,l)
local t={}

51
exec/unarchive.lua Normal file
View File

@ -0,0 +1,51 @@
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))
io.write(string.format("%s: %d... ",name,fsize))
if not tArgs[2] then
local dir = name:match("(.+)/.*%.?.+")
if (dir) then
fs.makeDirectory(dir)
end
local f = io.open(name,"wb")
local rsize,buf = fsize, ""
if f then
repeat
buf = fi:read(math.min(rsize,1024))
f:write(buf)
rsize = rsize - buf:len()
until rsize <= 1
f:close()
end
else
local rsize = fsize
repeat
buf = fi:read(math.min(rsize,1024))
rsize = rsize - buf:len()
until rsize <= 1
end
print(fsize)
end
fi:close()