Montandalar
/
advtrains
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add inverse ARS rules 

!RC foo
!LN bar

will match all trains except those matching RC foo or LN bar. This can
be useful to exclude one specific service from a component.
master
Gabriel Pérez-Cerezo 2019-12-05 00:08:43 +01:00
parent 8d794525b3
commit 9c1d356505
1 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
advtrains_interlocking/ars.lua
View File

@ -32,10 +32,14 @@ function il.ars_to_text(arstab)
local txt = {} local txt = {}
for i, arsent in ipairs(arstab) do for i, arsent in ipairs(arstab) do
local n = ""
if arsent.n then
n = "!"
end
if arsent.ln then if arsent.ln then
txt[#txt+1] = "LN "..arsent.ln txt[#txt+1] = n.."LN "..arsent.ln
elseif arsent.rc then elseif arsent.rc then
txt[#txt+1] = "RC "..arsent.rc txt[#txt+1] = n.."RC "..arsent.rc
elseif arsent.c then elseif arsent.c then
txt[#txt+1] = "#"..arsent.c txt[#txt+1] = "#"..arsent.c
end end
@ -58,13 +62,18 @@ function il.text_to_ars(t)
if line=="*" then if line=="*" then
arstab.default = true arstab.default = true
else else
local c, v = string.match(line, "^(..)%s(.*)$") local c, v = string.match(line, "^(...?)%s(.*)$")
if c and v then if c and v then
local n = nil
if string.sub(c,1,1) == "!" then
n = true
c = string.sub(c,2)
end
local tt=string.upper(c) local tt=string.upper(c)
if tt=="LN" then if tt=="LN" then
arstab[#arstab+1] = {ln=v} arstab[#arstab+1] = {ln=v, n=n}
elseif tt=="RC" then elseif tt=="RC" then
arstab[#arstab+1] = {rc=v} arstab[#arstab+1] = {rc=v, n=n}
end end
else else
local ct = string.match(line, "^#(.*)$") local ct = string.match(line, "^#(.*)$")
@ -101,6 +110,16 @@ function il.ars_check_rule_match(ars, train)
local routingcode = train.routingcode local routingcode = train.routingcode
for arskey, arsent in ipairs(ars) do for arskey, arsent in ipairs(ars) do
--atdebug(arsent, line, routingcode) --atdebug(arsent, line, routingcode)
if arsent.n then
-- rule is inverse...
if arsent.ln and (not line or arsent.ln ~= line) then
return arskey
elseif arsent.rc and (not routingcode or not string.find(" "..routingcode.." ", " "..arsent.rc.." ", nil, true)) then
return arskey
end
return nil
end
if arsent.ln and line and arsent.ln == line then if arsent.ln and line and arsent.ln == line then
return arskey return arskey
elseif arsent.rc and routingcode and string.find(" "..routingcode.." ", " "..arsent.rc.." ", nil, true) then elseif arsent.rc and routingcode and string.find(" "..routingcode.." ", " "..arsent.rc.." ", nil, true) then