mirror of https://github.com/kepler155c/opus
37 lines
702 B
Clojure
37 lines
702 B
Clojure
local fs = _G.fs
|
|
|
|
local sandboxEnv = setmetatable({ }, { __index = _G })
|
|
for k,v in pairs(_ENV) do
|
|
sandboxEnv[k] = v
|
|
end
|
|
|
|
local function run(file, ...)
|
|
local env = setmetatable({ }, { __index = _G })
|
|
for k,v in pairs(sandboxEnv) do
|
|
env[k] = v
|
|
end
|
|
|
|
local s, m = loadfile(file, env)
|
|
if s then
|
|
return s(...)
|
|
end
|
|
error('Error loading ' .. file .. '\n' .. m)
|
|
end
|
|
|
|
_G._syslog = function() end
|
|
_G.OPUS_BRANCH = 'develop-1.8'
|
|
|
|
-- Install require shim
|
|
_G.requireInjector = run('sys/modules/opus/injector.lua')
|
|
|
|
local s, m = pcall(run, 'sys/apps/shell.lua', 'sys/kernel.lua', ...)
|
|
|
|
if not s then
|
|
print('\nError loading Opus OS\n')
|
|
_G.printError(m .. '\n')
|
|
end
|
|
|
|
if fs.restore then
|
|
fs.restore()
|
|
end
|