opus/sys/init/3.modules.lua

local Util       = require('util')

local device     = _G.device
local kernel     = _G.kernel
local os         = _G.os
local peripheral = _G.peripheral

local containers = {
	manipulator = true,
	neuralInterface = true,
}

local function getModules(dev, side)
	local list = { }

	if dev then
		for _, module in pairs(dev.listModules()) do
			list[module] = Util.shallowCopy(dev)
			list[module].name = module
			list[module].type = module
			list[module].side = side
		end
	end
	return list
end

for _,v in pairs(device) do
	if containers[v.type] then
		local list = getModules(v, v.side)
		for k, dev in pairs(list) do
			-- neural and attached modules have precedence over manipulator modules
			if not device[k] or v.type ~= 'manipulator' then
				device[k] = dev
			end
		end
	end
end

-- register modules as peripherals
kernel.hook('device_attach', function(_, eventData)
	local dev = eventData[2]

	if dev and containers[dev.type] then
		local list = getModules(peripheral.wrap(dev.side), dev.side)
		for k,v in pairs(list) do
			if not device[k] or dev.type ~= 'manipulator' then
				device[k] = v
				os.queueEvent('device_attach', k, v)
			end
		end
	end
end)