Ponali
134 lines
3.2 KiB
Lua
134 lines
3.2 KiB
Lua
local gpu = component.proxy(component.list("gpu")())
|
|
local resX, resY = gpu.getResolution()
|
|
|
|
local function loadfile(file)
|
|
checkArg(1, file, "string")
|
|
local handle = component.invoke(computer.getBootAddress(), "open", file, "r")
|
|
local data = ""
|
|
repeat
|
|
local tmpdata = component.invoke(computer.getBootAddress(), "read", handle, math.huge or math.maxinteger)
|
|
data = data .. (tmpdata or "")
|
|
until not tmpdata
|
|
component.invoke(computer.getBootAddress(), "close", handle)
|
|
return assert(load(data, "=" .. file))
|
|
end
|
|
|
|
local function handleError(errorMessage)
|
|
return (errorMessage .. "\n \n" .. debug.traceback())
|
|
end
|
|
|
|
function loadBoot()
|
|
local foundArchitecture = false
|
|
for _, arch in pairs(computer.getArchitectures()) do
|
|
if arch == "Lua 5.3" then
|
|
foundArchitecture = true
|
|
break
|
|
end
|
|
end
|
|
|
|
if foundArchitecture then
|
|
local _, errorMesage = computer.setArchitecture("Lua 5.3")
|
|
if errorMessage then
|
|
error(errorMessage)
|
|
end
|
|
else
|
|
gpu.set(1, 1, "Required architecture (Lua 5.3) is not supported.")
|
|
gpu.set(1, 2, "Halting.")
|
|
while true do
|
|
computer.pullSignal()
|
|
end
|
|
end
|
|
loadfile("/halyde/kernel/boot.lua")(loadfile)
|
|
end
|
|
|
|
gpu.setBackground(0x000000)
|
|
gpu.fill(1, 1, resX, resY, " ")
|
|
|
|
-- Copying low-level functions in case of post-preload failure
|
|
local pullSignal = computer.pullSignal
|
|
local beep = computer.beep
|
|
local unicode = unicode
|
|
|
|
local result, reason = xpcall(loadBoot, handleError)
|
|
local lines = {}
|
|
if not result then
|
|
reason = "A fatal error has occurred.\nHalyde cannot continue.\n \n"
|
|
.. tostring(reason or "unknown error"):gsub("\t", " ")
|
|
local bgColor
|
|
if gpu.getDepth() == 1 then
|
|
bgColor = 0x000000
|
|
else
|
|
bgColor = 0x000080
|
|
end
|
|
gpu.setBackground(bgColor)
|
|
gpu.fill(1, 1, resX, resY, " ")
|
|
for line in string.gmatch(reason, "([^\n]*)\n?") do
|
|
table.insert(lines, line)
|
|
end
|
|
local function render()
|
|
gpu.setForeground(0xFFFFFF)
|
|
for i = 1, #lines do
|
|
gpu.set(2, i + 1, lines[i])
|
|
end
|
|
gpu.fill(1, resY - 1, resX, 1, "─")
|
|
gpu.fill(1, resY, resX, 1, " ")
|
|
gpu.setForeground(bgColor)
|
|
gpu.setBackground(0xFFFFFF)
|
|
gpu.set(2, resY, "🠅 🠄 🠇 🠆")
|
|
gpu.setForeground(0xFFFFFF)
|
|
gpu.setBackground(bgColor)
|
|
gpu.set(4, resY, " / ")
|
|
gpu.set(9, resY, " / ")
|
|
gpu.set(14, resY, " / ")
|
|
gpu.set(19, resY, " Scroll" .. string.rep(" ", resX - 21))
|
|
end
|
|
local scrollY = 0 -- TODO: make scrolling capped
|
|
local function scrollDown()
|
|
if scrollY >= #lines - resY + 2 then
|
|
return
|
|
end
|
|
gpu.copy(1, 2, resX, resY - 3, 0, -1)
|
|
gpu.fill(1, resY - 2, resX, 1, " ")
|
|
local line = lines[scrollY + resY - 2]
|
|
if type(line) == "string" then
|
|
gpu.set(2, resY - 2, line)
|
|
end
|
|
scrollY = scrollY + 1
|
|
end
|
|
local function scrollUp()
|
|
if scrollY <= 0 then
|
|
return
|
|
end
|
|
gpu.copy(1, 1, resX, resY - 3, 0, 1)
|
|
gpu.fill(1, 1, resX, 1, " ")
|
|
local line = lines[scrollY - 1]
|
|
if type(line) == "string" then
|
|
gpu.set(2, 1, line)
|
|
end
|
|
scrollY = scrollY - 1
|
|
end
|
|
render()
|
|
beep(440, 0.2)
|
|
beep(465, 0.2)
|
|
beep(440, 0.2)
|
|
beep(370, 0.5)
|
|
while true do
|
|
local ev = { pullSignal() }
|
|
if ev[1] == "key_down" then
|
|
if ev[4] == 200 then
|
|
scrollUp()
|
|
end
|
|
if ev[4] == 208 then
|
|
scrollDown()
|
|
end
|
|
end
|
|
if ev[1] == "scroll" then
|
|
if ev[5] > 0 then
|
|
scrollUp()
|
|
else
|
|
scrollDown()
|
|
end
|
|
end
|
|
end
|
|
end
|