1 files changed, 73 insertions, 0 deletions
diff --git a/advtrains_luaautomation/interrupt.lua b/advtrains_luaautomation/interrupt.lua
new file mode 100644
index 0000000..2e54ad8
--- /dev/null
+++ b/advtrains_luaautomation/interrupt.lua
@@ -0,0 +1,73 @@
+-- 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, timer=timer}
+end
+
+function iq.has_at_pos(pos)
+	for i=1,#queue do
+		local qe=queue[i]
+		if vector.equals(pos, qe.p) then
+			return true
+		end
+	end
+	return false
+end
+
+function iq.clear_ints_at_pos(pos)
+	local i=1
+	while i<=#queue do
+		local qe=queue[i]
+		if not qe then
+			table.remove(queue, i)
+		elseif vector.equals(pos, qe.p) and (qe.e.int or qe.e.ext_int) then
+			table.remove(queue, i)
+		else
+			i=i+1
+		end
+	end
+end
+
+function iq.add(t, pos, evtdata)
+	queue[#queue+1]={t=t+timer, p=pos, e=evtdata}
+	run=true
+end
+
+function iq.mainloop(dtime)
+	timer=timer + math.min(dtime, 0.2)
+	local i=1
+	while i<=#queue do
+		local qe=queue[i]
+		if not qe then
+			table.remove(queue, i)
+		elseif timer>qe.t then
+			table.remove(queue, i)
+			local pos, evtdata=qe.p, qe.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)
+			else
+				atwarn("[atlatc][interrupt] Couldn't run event",evtdata.type,"on",pos,", something wrong with the node",node)
+			end
+		else
+			i=i+1
+		end
+	end
+end
+
+
+
+atlatc.interrupt=iq