Merge pull request #4 from Ocawesome101/patch-1

Add Monolith loader

mods/loader_monolith/init.lua

@@ -0,0 +1,35 @@
+-- monolith loader --
+local zy = krequire("zorya")
+local utils = krequire("utils")
+local thd = krequire("thd")
+local vdev = krequire("util_vcomponent")
+local function proxytable(t)
+	return setmetatable({}, {__index=function(self, i)
+		if (type(t[i]) == "table") then
+			self[i] = proxytable(t[i])
+			return rawget(self, i)
+		else
+			return t[i]
+		end
+	end})
+end
+local monolith_count = 0
+return function(addr)
+	local fs = component.proxy(addr)
+	thd.add("monolith$"..monolith_count, function()
+		local env = utils.make_env()
+		function env.computer.getBootAddress()
+			return addr
+		end
+		function env.computer.setBootAddress()end
+		local old_dl = utils.debug_log
+		load(utils.readfile(fs.address, fs.open("/boot/kernel/loader")), "=/boot/kernel/loader", "t", env)()
+		computer.pushSignal("monolith_dead")
+	end)
+	while true do
+		if computer.pullSignal() == "monolith_dead" then
+			utils.debug_log("Got signal.")
+			break
+		end
+	end
+end

util/OpenOS/config.d/05_monolith.lua

@@ -0,0 +1,12 @@
+local cfgadd = ...
+local component = require("component")
+for fs in component.list("filesystem") do
+  if (component.invoke(fs, "getLabel") == "Monolith" or component.invoke(fs, "exists", "/boot/monolith")) and component.invoke(fs, "exists", "init.lua") then
+    print("Monolith discovered on " .. fs)
+    cfgadd(string.format([[
+menu.add("Monolith on %s", function()
+  return loadmod("loader_monolith")("%s")
+end)
+    ]], fs:sub(1,3), fs))
+  end
+end