From 34977087471d3f07cd18a855e78cef6d5e27c13d Mon Sep 17 00:00:00 2001
From: 20kdc <asdd2808@gmail.com>
Date: Sat, 18 Mar 2017 21:21:27 +0000
Subject: [PATCH] Add occure

---
 occure.lua | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 occure.lua

diff --git a/occure.lua b/occure.lua
new file mode 100644
index 0000000..ab8e8d3
--- /dev/null
+++ b/occure.lua
@@ -0,0 +1,46 @@
+-- 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)