123 lines
2.8 KiB
Lua
123 lines
2.8 KiB
Lua
local utils = {}
|
|
@[[if svar.get("DEBUG") then]]
|
|
function utils.debug_log(...)
|
|
local sb = clist("sandbox")() or clist("ocemu")()
|
|
if (sb) then cinvoke(sb, "log", ...) end
|
|
end
|
|
@[[else]]
|
|
function utils.debug_log()end
|
|
@[[end]]
|
|
|
|
--[[function utils.baddr(address)
|
|
local address = address:gsub("-", "", true)
|
|
local b = ""
|
|
for i=1, #address, 2 do
|
|
b = b .. string.char(tonumber(address:sub(i, i+1), 16))
|
|
end
|
|
return b
|
|
end]]
|
|
|
|
utils.readfile = readfile
|
|
|
|
utils.load_lua = load_lua
|
|
|
|
utils.lzss_decompress = lzss_decompress
|
|
|
|
-- Hell yeah, deepcopy time.
|
|
function utils.deepcopy(src, dest)
|
|
dest = dest or {}
|
|
local coppied = {[src] = dest}
|
|
local cin = {src}
|
|
local cout = {dest}
|
|
while #cin > 0 do
|
|
for k, v in pairs(cin[1]) do
|
|
if type(v) ~= "table" then
|
|
cout[1][k] = v
|
|
else
|
|
if coppied[v] then
|
|
cout[1][k] = coppied[v]
|
|
else
|
|
local t = {}
|
|
cout[1][k] = t
|
|
cin[#cin+1] = v
|
|
cout[#cout+1] = t
|
|
coppied[v] = t
|
|
end
|
|
end
|
|
end
|
|
table.remove(cout, 1)
|
|
table.remove(cin, 1)
|
|
end
|
|
return dest
|
|
end
|
|
|
|
local velx_header = "<c5BBBBc4I3I3I3I4"
|
|
function utils.load_velx(read, seek, close, name)
|
|
-- Load a VELX format library.
|
|
local magic, fver, compression, lver, osid, arctype, psize, lsize, ssize, rsize = sunpack(velx_header, read(string.packsize(velx_header)))
|
|
if magic ~= "\27VelX" then
|
|
return nil, "bad magic ("..magic..")"
|
|
end
|
|
if osid & 0x7F ~= 0x5A then
|
|
return nil, string.format("wrong os (%x ~= 0x5A)", osid & 0x7F)
|
|
end
|
|
if compression > 1 then
|
|
return nil, "bad compression"
|
|
end
|
|
if arctype ~= "\0\0\0\0" and arctype ~= "tsar" then
|
|
return nil, "bad arctype ("..arctype..")"
|
|
end
|
|
if (fver ~= 1) then
|
|
return nil, "wrong version"
|
|
end
|
|
local prog = read(psize)
|
|
if compression == 1 then
|
|
prog = lzss_decompress(prog)
|
|
end
|
|
seek(lsize+ssize)
|
|
local env = {}
|
|
if arctype == "tsar" then
|
|
env._ARCHIVE = tsar.read(read, seek, close)
|
|
end
|
|
setmetatable(env, {__index=_G, __newindex=function(_, i, v) _G[i] = v end})
|
|
return load(prog, "="..(name or "(loaded velx)"), "t", env)
|
|
end
|
|
|
|
local _RENV = _G
|
|
|
|
function utils.make_env()
|
|
local env = utils.deepcopy(_RENV)
|
|
env._G = env
|
|
env.load = function(scr, name, mode, e)
|
|
return load(scr, name, mode, e or env)
|
|
end
|
|
return env
|
|
end
|
|
|
|
function utils.console_panic(er)
|
|
local gaddr = clist("gpu")()
|
|
local con, gpu = krq("zorya").loadmod("util_luaconsole"), cproxy(gaddr)
|
|
if not gpu.getScreen() or gpu.getScreen() == "" then
|
|
local saddr = clist("screen")()
|
|
gpu.bind(saddr)
|
|
end
|
|
if con then
|
|
con(string.format("tty.setcolor(0x4) print([[%s]])", er:gsub("\t", " ")))
|
|
return true
|
|
end
|
|
--gs = gpu.set
|
|
gpu.set(1, 1, "Kernel panic!")
|
|
local y = 2
|
|
for m in er:gmatch("(.+)\n") do
|
|
gpu.set(1,y,m)
|
|
y = y + 1
|
|
end
|
|
gpu.set(1, y, "Press any key to shut down.")
|
|
while true do
|
|
if (cr.pullSignal() == "key_down") then cr.shutdown() end
|
|
end
|
|
end
|
|
|
|
_RENV = utils.make_env()
|
|
|
|
builtins.utils = function() return utils end |