diff options
author | cheapie <no-email-for-you@example.com> | 2024-04-26 06:16:06 -0500 |
---|---|---|
committer | cheapie <no-email-for-you@example.com> | 2024-04-26 06:16:06 -0500 |
commit | e3aeb9ca553133828d08cabd7446c13062d44141 (patch) | |
tree | ce89c12bc963e837040142f0ab712732ac71c032 /dispatcherfw.lua | |
parent | 3ca0c25d7e3cee2f55dd4e5467d1ab9cce2a1a78 (diff) | |
download | celevator-e3aeb9ca553133828d08cabd7446c13062d44141.tar celevator-e3aeb9ca553133828d08cabd7446c13062d44141.tar.gz celevator-e3aeb9ca553133828d08cabd7446c13062d44141.tar.bz2 celevator-e3aeb9ca553133828d08cabd7446c13062d44141.tar.xz celevator-e3aeb9ca553133828d08cabd7446c13062d44141.zip |
Allow dispatcher to sleep when idle
Diffstat (limited to 'dispatcherfw.lua')
-rw-r--r-- | dispatcherfw.lua | 57 |
1 files changed, 54 insertions, 3 deletions
diff --git a/dispatcherfw.lua b/dispatcherfw.lua index 1d88888..3fc2036 100644 --- a/dispatcherfw.lua +++ b/dispatcherfw.lua @@ -8,6 +8,7 @@ local function interrupt(time,iid) end mem.messages = {} +if not mem.powerstate then mem.powerstate = "awake" end local function getpos(carid) local floormap = {} @@ -547,8 +548,29 @@ elseif event.channel == "status" then mem.dncalls[floor] = nil end end -elseif event.type == "abm" or event.iid == "run" and (mem.screenstate == "status" or mem.screenstate == "menu") then - interrupt(5,"run") + local busy = false + local check = { + "groupupcalls", + "groupdncalls", + "swingupcalls", + "swingdncalls", + "upcalls", + "dncalls", + "carcalls", + } + for _,list in ipairs(check) do + for _,i in ipairs(event.msg[list]) do + if i then busy = true end + end + end + if busy then + if mem.powerstate == "asleep" then + mem.powerstate = "awake" + interrupt(1,"run") + end + end +elseif event.type == "abm" or (event.iid == "run" and mem.powerstate ~= "asleep") and (mem.screenstate == "status" or mem.screenstate == "menu") then + local busy = false if not mem.upcalls then mem.upcalls = {} end if not mem.dncalls then mem.dncalls = {} end if not mem.upeta then mem.upeta = {} end @@ -566,6 +588,7 @@ elseif event.type == "abm" or event.iid == "run" and (mem.screenstate == "status end end for i in pairs(unassignedup) do + busy = true local eligiblecars = {} for _,carid in pairs(mem.params.carids) do if mem.carstatus[carid].state == "normal" and mem.params.floorsserved[carid][i] then @@ -602,6 +625,7 @@ elseif event.type == "abm" or event.iid == "run" and (mem.screenstate == "status end for i in pairs(mem.assignedup) do if mem.upcalls[i] and mem.upeta[i] then + busy = true local eligiblecars = {} local permanent = false for _,carid in pairs(mem.params.carids) do @@ -640,6 +664,7 @@ elseif event.type == "abm" or event.iid == "run" and (mem.screenstate == "status mem.upeta[floor] = calculateeta(carid,floor,"up") end for i in pairs(unassigneddn) do + busy = true local eligiblecars = {} local permanent = false for _,carid in pairs(mem.params.carids) do @@ -680,6 +705,7 @@ elseif event.type == "abm" or event.iid == "run" and (mem.screenstate == "status end for i in pairs(mem.assigneddn) do if mem.dncalls[i] and mem.dneta[i] then + busy = true local eligiblecars = {} for _,carid in pairs(mem.params.carids) do if mem.carstatus[carid].state == "normal" and mem.params.floorsserved[carid][i] then @@ -713,12 +739,34 @@ elseif event.type == "abm" or event.iid == "run" and (mem.screenstate == "status for floor,carid in pairs(mem.assigneddn) do mem.dneta[floor] = calculateeta(carid,floor,"down") end - interrupt(0.5,"getstatus") + if busy then + mem.powerstate = "awake" + interrupt(nil,"sleep") + interrupt(1,"run") + else + if mem.powerstate == "awake" then + interrupt(1,"run") + mem.powerstate = "timing" + interrupt(10,"sleep") + elseif mem.powerstate == "timing" then + interrupt(1,"run") + end + end + if mem.powerstate ~= "asleep" or event.type == "abm" then + interrupt(0.5,"getstatus") + end elseif event.iid == "getstatus" then for _,carid in ipairs(mem.params.carids) do send(carid,"getstatus") end elseif event.type == "callbutton" then + if mem.powerstate == "asleep" then + mem.powerstate = "awake" + interrupt(0,"getstatus") + interrupt(1,"run") + elseif mem.powerstate == "timing" then + mem.powerstate = "awake" + end if event.dir == "up" and event.landing >= 1 and event.landing < #mem.params.floornames then mem.upcalls[event.landing] = true elseif event.dir == "down" and event.landing > 1 and event.landing <= #mem.params.floornames then @@ -730,6 +778,9 @@ elseif event.type == "fs1switch" then for _,carid in ipairs(mem.params.carids) do send(carid,"fs1switch",event.state) end +elseif event.iid == "sleep" and mem.powerstate == "timing" then + interrupt(nil,"run") + mem.powerstate = "asleep" end if not (mem.screenstate == "status" or mem.screenstate == "menu") then |