1 files changed, 56 insertions, 0 deletions
diff --git a/advtrains/debugitems.lua b/advtrains/debugitems.lua
index e598216..2236cba 100644
--- a/advtrains/debugitems.lua
+++ b/advtrains/debugitems.lua
@@ -81,3 +81,59 @@ minetest.register_tool("advtrains:wagonpos_tester",
 	end,
 }
 )
+
+
+local function trackitest(initial_pos, initial_connid)
+	local ti, pos, connid, ok
+	ti = advtrains.get_track_iterator(initial_pos, initial_connid, 500, true)
+	atdebug("Starting at pos:",initial_pos,initial_connid)
+	while ti:has_next_branch() do
+		pos, connid = ti:next_branch() -- in first iteration, this will be the node at initial_pos. In subsequent iterations this will be the switch node from which we are branching off
+		atdebug("Next Branch:",pos, connid)
+		ok = true
+		while ok do
+			ok, pos, connid = ti:next_track()
+			atdebug("Next Track:", ok, pos, connid)
+		end
+	end
+	atdebug("End of traverse. Visited: ",table.concat(ti.visited, ","))
+end
+
+minetest.register_tool("advtrains:trackitest",
+{
+	description = "Track Iterator Tester (leftclick conn 1, rightclick conn 2)",
+	groups = {cracky=1}, -- key=name, value=rating; rating=1..3.
+	inventory_image = "advtrains_track_swlcr_45.png",
+	wield_image = "advtrains_track_swlcr_45.png",
+	stack_max = 1,
+	range = 7.0,
+		
+	on_place = function(itemstack, placer, pointed_thing)
+		if pointed_thing.type ~= "node" then return end
+		trackitest(pointed_thing.under, 2)
+	end,
+	on_use = function(itemstack, user, pointed_thing)
+		if pointed_thing.type ~= "node" then return end
+		trackitest(pointed_thing.under, 1)
+	end,
+}
+)
+
+minetest.register_chatcommand("at_trackdef_audit",
+	{
+        params = "", 
+        description = "Performs an audit of all track definitions currently loaded and checks for potential problems", 
+        func = function(name, param)
+			for name, ndef in pairs(minetest.registered_nodes) do
+				--TODO finish this!
+				if ndef.at_conns then
+					-- check if conn_map is there and if it has enough entries
+					if #ndef.at_conns > 2 then
+						if #ndef.at_conn_map < #ndef.at_conns then
+							atwarn("AUDIT: Node",name,"- Not enough connmap entries! Check ndef:",ndef)
+						end
+					end
+				end
+			end
+        end,
+})