71 lines
1.9 KiB
Lua
71 lines
1.9 KiB
Lua
-- This our custom machine.lua
|
|
local utils = krequire("utils")
|
|
local computer = computer
|
|
xpcall(function()
|
|
utils.debug_log("Copying env...")
|
|
local env = utils.make_env()
|
|
utils.debug_log("Coppied env.")
|
|
env.krequire = nil
|
|
env._BIOS = nil
|
|
env._ZVSTR = nil
|
|
env._ZVER = nil
|
|
env._ZPAT = nil
|
|
env._ZGIT = nil
|
|
vdev.install(env)
|
|
local _oldlist = env.component.list
|
|
local thdid = string.format("%.4x", math.random(0, 2^16-1))
|
|
function env.component.list(...)
|
|
local ol = _oldlist(...)
|
|
local tcall = function()
|
|
local a, t = ol()
|
|
if (a ~= "vdev-ZY_VBIOS" and t == "eeprom") then
|
|
a, t = ol()
|
|
end
|
|
return a, t
|
|
end
|
|
for k, v in pairs(ol) do
|
|
if (k ~= "vdev-ZY_VBIOS" and v == "eeprom") then
|
|
ol[k] = nil
|
|
end
|
|
end
|
|
return setmetatable({}, {__index=ol, __call=tcall})
|
|
end
|
|
function env.load(code, name, mode, e, ...)
|
|
local e = e or env
|
|
return load(code, name, mode, e, ...)
|
|
end
|
|
local ded = false
|
|
function env.computer.returnToBios()
|
|
local thds = thd.get_threads()
|
|
local vbname = "vbios$"..tbl.getLabel().."#"..thdid
|
|
for i=1, #thds do
|
|
if (thds[i][1] == vbname) then
|
|
thds[i][6] = true
|
|
end
|
|
end
|
|
ded = true
|
|
utils.debug_log("Returning to BIOS...")
|
|
end
|
|
utils.debug_log("Loading vBIOS...")
|
|
thd.add("vbios$"..tbl.getLabel().."#"..thdid, function()
|
|
xpcall(function()
|
|
utils.debug_log("Starting BIOS.")
|
|
assert(load(tbl.get(), "=vbios", "t", env))()
|
|
end, function(err)
|
|
utils.debug_log("ERROR", "vBIOS error!")
|
|
utils.debug_log(err, debug.traceback())
|
|
end)
|
|
utils.debug_log("Sending signal.")
|
|
computer.pushSignal("vbios_dead")
|
|
end)
|
|
while true do
|
|
if computer.pullSignal() == "vbios_dead" then
|
|
utils.debug_log("Got signal.")
|
|
break
|
|
end
|
|
end
|
|
utils.debug_log("Dead.")
|
|
end, function(err)
|
|
utils.debug_log("ERROR", "vBIOS error!")
|
|
utils.debug_log(err, debug.traceback())
|
|
end) |