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

31
advtrains_interlocking/ars.lua
View File

@ -30,12 +30,16 @@ function il.ars_to_text(arstab)
end
local txt = {}
for i, arsent in ipairs(arstab) do
local n = ""
if arsent.n then
n = "!"
end
if arsent.ln then
txt[#txt+1] = "LN "..arsent.ln
txt[#txt+1] = n.."LN "..arsent.ln
elseif arsent.rc then
txt[#txt+1] = "RC "..arsent.rc
txt[#txt+1] = n.."RC "..arsent.rc
elseif arsent.c then
txt[#txt+1] = "#"..arsent.c
end
@ -58,13 +62,18 @@ function il.text_to_ars(t)
if line=="*" then
arstab.default = true
else
local c, v = string.match(line, "^(..)%s(.*)$")
local c, v = string.match(line, "^(...?)%s(.*)$")
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)
if tt=="LN" then
arstab[#arstab+1] = {ln=v}
arstab[#arstab+1] = {ln=v, n=n}
elseif tt=="RC" then
arstab[#arstab+1] = {rc=v}
arstab[#arstab+1] = {rc=v, n=n}
end
else
local ct = string.match(line, "^#(.*)$")
@ -101,6 +110,16 @@ function il.ars_check_rule_match(ars, train)
local routingcode = train.routingcode
for arskey, arsent in ipairs(ars) do
--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
return arskey
elseif arsent.rc and routingcode and string.find(" "..routingcode.." ", " "..arsent.rc.." ", nil, true) then