1
0
mirror of https://github.com/XeonSquared/OC-Copper.git synced 2024-11-09 19:38:05 +11:00
OC-Copper/occure.lua

47 lines
1.2 KiB
Lua
Raw Normal View History

2017-03-19 08:21:27 +11:00
-- OC/CU/RE Driver
-- (Copper w/Reliability Layer on OpenComputers/OpenOS)
-- I, 20kdc, release this into the public domain.
-- No warranty is provided, implied or otherwise.
local event = require("event")
local computer = require("computer")
local component = require("component")
local modems = {}
local args = {...}
if #args ~= 1 then error("Needs hostname") end
local host = tostring(args[1])
if package.loaded["occure"] then
error("Already installed")
end
local node = require("relib")(host, function (tgt, data)
for _, v in ipairs(modems) do
if tgt then
v.send(tgt, 4957, "copper", data)
else
v.broadcast(4957, "copper", data)
end
end
end, function (...)
computer.pushSignal("copper_packet", ...)
end, computer.uptime)
package.loaded["occure"] = node
for v, _ in component.list("modem") do
local m = component.proxy(v)
table.insert(modems, m)
m.open(4957)
end
event.listen("modem_message", function (et, adto, adfrom, port, dist, magic, data)
if et ~= "modem_message" then return end
if port == 4957 then
if magic == "copper" then
node.input(adfrom, data)
end
end
end)
event.timer(1, node.refresh, math.huge)