76 lines
1.6 KiB
Clojure
76 lines
1.6 KiB
Clojure
-- Loads the Opus environment regardless if the file system is local or not
|
|
local fs = _G.fs
|
|
local http = _G.http
|
|
|
|
local BRANCH = 'develop-1.8'
|
|
local GIT_REPO = 'kepler155c/opus/' .. BRANCH
|
|
local BASE = 'https://raw.githubusercontent.com/' .. GIT_REPO
|
|
|
|
local sandboxEnv = setmetatable({ }, { __index = _G })
|
|
for k,v in pairs(_ENV) do
|
|
sandboxEnv[k] = v
|
|
end
|
|
sandboxEnv.BRANCH = BRANCH
|
|
|
|
_G.debug = function() end
|
|
|
|
local function makeEnv()
|
|
local env = setmetatable({ }, { __index = _G })
|
|
for k,v in pairs(sandboxEnv) do
|
|
env[k] = v
|
|
end
|
|
return env
|
|
end
|
|
|
|
local function run(file, ...)
|
|
local s, m = loadfile(file, makeEnv())
|
|
if s then
|
|
s, m = pcall(s, ...)
|
|
if s then
|
|
return m
|
|
end
|
|
end
|
|
error('Error loading ' .. file .. '\n' .. m)
|
|
end
|
|
|
|
local function runUrl(file, ...)
|
|
local url = BASE .. '/' .. file
|
|
|
|
local u = http.get(url)
|
|
if u then
|
|
local fn = load(u.readAll(), url, nil, makeEnv())
|
|
u.close()
|
|
if fn then
|
|
return fn(...)
|
|
end
|
|
end
|
|
error('Failed to download ' .. url)
|
|
end
|
|
|
|
local args = { ... }
|
|
|
|
local s, m = pcall(function()
|
|
-- Install require shim
|
|
if fs.exists('sys/apis/injector.lua') then
|
|
_G.requireInjector = run('sys/apis/injector.lua')
|
|
else
|
|
-- not local, run the file system directly from git
|
|
_G.requireInjector = runUrl('sys/apis/injector.lua')
|
|
runUrl('sys/extensions/2.vfs.lua')
|
|
|
|
-- install file system
|
|
fs.mount('', 'gitfs', GIT_REPO)
|
|
end
|
|
|
|
run('sys/apps/shell', 'sys/kernel.lua', table.unpack(args))
|
|
end)
|
|
|
|
if not s then
|
|
print('\nError loading Opus OS\n')
|
|
_G.printError(m .. '\n')
|
|
end
|
|
|
|
if fs.restore then
|
|
fs.restore()
|
|
end
|