OC-PsychOS/modules/lib/shutil.lua

57 lines
1.2 KiB
Lua
Raw Normal View History

local shutil = {}
shutil.cd=fs.cd
shutil.rm=fs.rm
shutil.mkdir=fs.mkdir
shutil.cp=fs.cp
shutil.mv=fs.mv
function shutil.ls(p)
2017-08-01 15:49:39 +10:00
for k,v in ipairs(fs.list(p)) do print(v) end
end
function shutil.cat(p)
2017-08-01 16:56:33 +10:00
local f=io.open(p)
print(f:read("*a"))
f:close()
end
function shutil.ps(f)
local f=f or ""
print("PID\tUser\tName")
2017-08-28 16:04:26 +10:00
for k,v in pairs(os.tasks()) do
local _,_,uid = os.taskinfo(k)
if v:find(f) then
print(tostring(k).."\t"..tostring(uid:sub(1,6)).."\t"..tostring(v))
end
end
end
function shutil.mem()
2017-08-03 17:53:36 +10:00
print(" \tTotal\tFree\tUsed")
io.write("Mem\t")
io.write(tostring(math.floor(computer.totalMemory()/1024)).."K\t")
io.write(tostring(math.floor(computer.freeMemory()/1024)).."K\t")
print(tostring(math.floor((computer.totalMemory()-computer.freeMemory())/1024)).."K\t")
end
function shutil.genenv()
local et = os.genenv()
for k,v in pairs(shutil) do
if k ~= "genenv" then
et[k] = v
end
end
return et
end
function loadfile(fn)
local f=io.open(fn,"rb")
local S=f:read("*a")
f:close()
return load(S,"=("..fn..")","bt",os.genenv())
end
function run(fn,...)
2017-08-04 17:44:37 +10:00
local r = {pcall(loadfile(fn),...)}
if r[1] == true then
table.remove(r,1)
end
print(table.unpack(r))
end
function srun(fn,...)
spawn(fn,print(pcall(loadfile(fn),...)))
end