1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
-- ars.lua
-- automatic routesetting
--[[
The "ARS table" and its effects:
Every route has (or can have) an associated ARS table. This can either be
ars = { [n] = {ln="<line>"}/{rc="<routingcode>"}/{c="<a comment>"} }
a list of rules involving either line or routingcode matchers (or comments, those are ignored)
The first matching rule determines the route to set.
- or -
ars = {default = true}
this means that all trains that no other rule matches on should use this route
Compound ("and") conjunctions are not supported (--TODO should they?)
For editing, those tables are transformed into lines in a text area:
{ln=...} -> LN ...
{rc=...} -> RC ...
{c=...} -> #...
{default=true} -> *
See also route_ui.lua
]]
local il = advtrains.interlocking
local function find_rtematch(routes, train)
local default
local line = train.line
local routingcode = train.routingcode
for rteid, route in ipairs(routes) do
if route.ars then
if route.ars.default then
default = rteid
else
for arskey, arsent in ipairs(route.ars) do
--atdebug(arsent, line, routingcode)
if arsent.ln and line and arsent.ln == line then
return rteid
elseif arsent.rc and routingcode and string.find(" "..routingcode.." ", " "..arsent.rc.." ", nil, true) then
return rteid
end
end
end
end
end
return default
end
function advtrains.interlocking.ars_check(sigd, train)
local tcbs = il.db.get_tcbs(sigd)
if not tcbs or not tcbs.routes then return end
if tcbs.routeset then
-- ARS is not in effect when a route is already set
return
end
local rteid = find_rtematch(tcbs.routes, train)
if rteid then
--delay routesetting, it should not occur inside train step
-- using after here is OK because that gets called on every path recalculation
minetest.after(0, il.route.update_route, sigd, tcbs, rteid, nil)
end
end
|
