forked from izaya/OC-PsychOS2
46 lines
1.1 KiB
Lua
46 lines
1.1 KiB
Lua
--#include "module/syslog.lua"
|
|
--#include "module/sched.lua"
|
|
--#include "module/buffer.lua"
|
|
--#include "module/osutil.lua"
|
|
--#include "module/fs.lua"
|
|
--#include "module/io.lua"
|
|
--#include "module/devfs.lua"
|
|
--#include "module/devfs/syslog.lua"
|
|
--#include "module/loadfile.lua"
|
|
--#include "module/vt-task.lua"
|
|
|
|
os.spawn(function()
|
|
os.setenv("PWD","/boot")
|
|
io.input("/dev/null")
|
|
io.output("/dev/syslog")
|
|
local f = io.open("/boot/cfg/hostname","rb")
|
|
local hostname = computer.address():sub(1,8)
|
|
if f then
|
|
hostname = f:read("*l")
|
|
f:close()
|
|
end
|
|
os.setenv("HOSTNAME",hostname)
|
|
syslog(string.format("Hostname set to %s",hostname))
|
|
local pids = {}
|
|
local function loadlist()
|
|
local f = io.open("/boot/cfg/init.txt","rb")
|
|
if not f then return false end
|
|
for line in f:read("*a"):gmatch("[^\r\n]+") do
|
|
pids[line] = -1
|
|
end
|
|
f:close()
|
|
end
|
|
loadlist()
|
|
while true do
|
|
for k,v in pairs(pids) do
|
|
if not os.taskInfo(v) then
|
|
syslog("Starting service "..k)
|
|
pids[k] = os.spawnfile("/boot/service/"..k)
|
|
end
|
|
end
|
|
coroutine.yield()
|
|
end
|
|
end, "init")
|
|
|
|
os.sched()
|