From b19033b224f4f8ec33f10ba40327f1d811c04fbb Mon Sep 17 00:00:00 2001
From: orwell96 <mono96.mml@gmail.com>
Date: Thu, 2 Feb 2017 16:40:51 +0100
Subject: LuaAutomation - Basic component implementation Implements the base
 code for LuaAutomation, an ATC rail and a punch-operated 'operation panel' as
 well as interface for passive components. Changes in advtrains code where
 neccessary. Supported passive components are light signals, switches and
 mesecon switches

---
 advtrains/advtrains_luaautomation/interrupt.lua | 48 +++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 advtrains/advtrains_luaautomation/interrupt.lua

(limited to 'advtrains/advtrains_luaautomation/interrupt.lua')

diff --git a/advtrains/advtrains_luaautomation/interrupt.lua b/advtrains/advtrains_luaautomation/interrupt.lua
new file mode 100644
index 0000000..e9ad443
--- /dev/null
+++ b/advtrains/advtrains_luaautomation/interrupt.lua
@@ -0,0 +1,48 @@
+-- interrupt.lua
+-- implements interrupt queue
+
+--to be saved: pos and evtdata
+local iq={}
+local queue={}
+local timer=0
+local run=false
+
+function iq.load(data)
+	local d=data or {}
+	queue = d.queue or {}
+	timer = d.timer or 0
+end
+function iq.save()
+	return {queue = queue}
+end
+
+function iq.add(t, pos, evtdata)
+	queue[#queue+1]={t=t+timer, p=pos, e=evtdata}
+	run=true
+end
+
+minetest.register_globalstep(function(dtime)
+	if run then
+		timer=timer + math.min(dtime, 0.2)
+		for i=1,#queue do
+			local qe=queue[i]
+			if not qe then
+				table.remove(queue, i)
+				i=i-1
+			elseif timer>qe.t then
+				local pos, evtdata=queue[i].p, queue[i].e
+				local node=advtrains.ndb.get_node(pos)
+				local ndef=minetest.registered_nodes[node.name]
+				if ndef and ndef.luaautomation and ndef.luaautomation.fire_event then
+					ndef.luaautomation.fire_event(pos, evtdata)
+				end
+				table.remove(queue, i)
+				i=i-1
+			end
+		end
+	end
+end)
+
+
+
+atlatc.interrupt=iq
-- 
cgit v1.2.3