some filesystem util functions like copy and move and stuff
This commit is contained in:
parent
39a7fa7819
commit
1d6d863bd2
30
modules/library/fs-util.lua
Normal file
30
modules/library/fs-util.lua
Normal 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
|
Loading…
Reference in New Issue
Block a user