index : advtrains.git	atcjit cesky-hvozd-new doc l10n luaatcdebug master profiler tracy trainhud trainhud-unifont
	Advtrains mod for minetest.	orwell

aboutsummaryrefslogtreecommitdiff

log msg author committer range

path: root/advtrains_interlocking/route_prog.lua

	Commit message (Expand)	Author	Age
*	Minor Bugfixes	orwell96	2019-02-03
*	Actually allow what manual promises (setting IP on non-assigned signals)	orwell96	2018-10-17
*	Make signal influence point (~halt point) specifiable	orwell96	2018-10-09
*	Improve route programming:	orwell96	2018-10-07
*	Fix route programming lock-placement	orwell96	2018-09-28
*	Add LuaAutomation interface functions for interlocking routesetting and aspec...	orwell96	2018-08-24
*	Move passive API to the advtrains core	orwell96	2018-08-16
*	Fix various bugs found while testing	orwell96	2018-08-13
*	Add 'interlocking' privilege and add security checks	orwell96	2018-08-12
*	Implement routesetting	orwell96	2018-07-21
*	Change stuff on route programming, begin routesetting	orwell96	2018-07-17
*	Basic route management from signalling formspec	orwell96	2018-07-04
*	Signal assignment and route programming procedure	orwell96	2018-07-04

generated by cgit v1.2.3 (git 2.39.1) at 2025-06-24 16:29:51 +0000

-- Setting and clearing routes

-- TODO duplicate
local lntrans = { "A", "B" }
local function sigd_to_string(sigd)
	return minetest.pos_to_string(sigd.p).." / "..lntrans[sigd.s]
end

local ildb = advtrains.interlocking.db
local ilrs = {}

-- table containing locked points
-- also manual locks (maintenance a.s.o.) are recorded here
-- [pts] = { 
--		[n] = { [by = <ts_id>], rsn = <human-readable text>, [origin = <sigd>] }
--	}
ilrs.rte_locks = {}
ilrs.rte_callbacks = {
	ts = {},
	lck = {}
}

-- Requests the given route
-- This function will try to set the designated route.
-- If this is not possible, route is inserted in the subscriber list for
-- the problematic lock points
function ilrs.request_route(signal, tcbs, routeid)
	
end

-- main route setting. First checks if everything can be set as designated,
-- then (if "try" is not set) actually sets it
-- returns:
-- true - route can be/was successfully set
-- false, message, cbts, cblk - something went wrong, what is contained in the message.
-- cbts: the ts id of the conflicting ts, cblk: the pts of the conflicting component
function ilrs.set_route(signal, route, try)
	if not try then
		local tsuc, trsn, cbts, cblk = ilrs.set_route(signal, route, true)
		if not tsuc then
			return false, trsn, cbts, cblk
		end
	end
	
	-- we start at the tc designated by signal
	local c_sigd = signal
	local first = true
	local i = 1
	local rtename = route.name
	local signalname = ildb.get_tcbs(signal).signal_name
	local c_tcbs, c_ts_id, c_ts, c_rseg, c_lckp
	while c_sigd and i<=#route do
		c_tcbs = ildb.get_tcbs(c_sigd)
		c_ts_id = c_tcbs.ts_id
		if not c_ts_id then
			if not try then atwarn("Encountered End-Of-Interlocking while setting route",rtename,"of",signal) end
			return false, "No track section adjacent to "..sigd_to_string(c_sigd)..". Please reconfigure route!"
		end
		c_ts = ildb.get_ts(c_ts_id)
		c_rseg = route[i]
		c_lckp = {}
		
		if c_ts.route then
			if not try then atwarn("Encountered ts lock during a real run of routesetting routine, at ts=",c_ts_id,"while setting route",rtename,"of",signal) end
			return false, "Section '"..c_ts.name.."' already has route set from "..sigd_to_string(c_ts.route.origin).."!", c_ts_id, nil
		end
		if c_ts.trains and #c_ts.trains>0 then