35 lines
1.4 KiB
Lua
35 lines
1.4 KiB
Lua
function loadfile(p) -- string -- function -- reads file *p* and returns a function if possible
|
|
local f = io.open(p,"rb")
|
|
local c = f:read("*a")
|
|
f:close()
|
|
return load(c,p,"t")
|
|
end
|
|
function runfile(p,...) -- string -- -- runs file *p* with arbitrary arguments in the current thread
|
|
return loadfile(p)(...)
|
|
end
|
|
function os.spawnfile(p,n,...) -- string string -- number -- spawns a new process from file *p* with name *n*, with arguments following *n*.
|
|
local tA = {...}
|
|
return os.spawn(function() local res={pcall(loadfile(p), table.unpack(tA))} computer.pushSignal("process_finished", os.pid(), table.unpack(res)) dprint(table.concat(res)) end,n or p)
|
|
end
|
|
_G.package = {}
|
|
package.loaded = {computer=computer,component=component,fs=fs,buffer=buffer}
|
|
function require(f,force) -- string boolean -- table -- searches for a library with name *f* and returns what the library returns, if possible. if *force* is set, loads the library even if it is cached
|
|
if not package.loaded[f] or force then
|
|
local lib = os.getenv("LIB") or "/boot/lib"
|
|
for d in lib:gmatch("[^\n]+") do
|
|
if fs.exists(d.."/"..f) then
|
|
package.loaded[f] = runfile(d.."/"..f)
|
|
elseif fs.exists(d.."/"..f..".lua") then
|
|
package.loaded[f] = runfile(d.."/"..f..".lua")
|
|
end
|
|
end
|
|
end
|
|
if package.loaded[f] then
|
|
return package.loaded[f]
|
|
end
|
|
error("library not found: "..f)
|
|
end
|
|
function reload(f) -- string -- table -- Reloads library *f* from disk into memory.
|
|
return require(f,true)
|
|
end
|