some filesystem util functions like copy and move and stuff

This commit is contained in:
Izaya 2017-05-03 17:53:33 +10:00
parent 39a7fa7819
commit 1d6d863bd2

View File

@ -0,0 +1,30 @@
function fcopy(i,o)
local f1,f2 = fopen(i,"rb"),fopen(o,"wb")
if f1 and f2 then
local c=fread(f1,math.huge)
repeat
fwrite(f2,c)
c=fread(f1,math.huge)
until c == nil
fclose(f1)
fclose(f2)
return true
end
return false
end
function fmove(i,o)
fcopy(i,o)
frm(i)
end
function fload(i)
local f,s = fopen(i,"rb"),""
if f then
local c=fread(f,math.huge)
repeat
s=s..c
c=fread(f,math.huge)
until c == nil
load(s)
end
return false
end