More door work

The hoistway doors are now able to open and close under control of the controller.

1 files changed, 16 insertions, 4 deletions

diff --git a/controllerfw.lua b/controllerfw.lua
index 4ac888c..9491396 100644
--- a/controllerfw.lua
+++ b/controllerfw.lua
@@ -160,15 +160,15 @@ local function gethighestdowncall()
 end
 
 local function open()
-	--TODO: Door operator interface
 	mem.doorstate = "opening"
-	interrupt(2,"opened")
+	drivecmd({command = "open"})
+	interrupt(0.2,"checkopen")
 end
 
 local function close()
-	--TODO: Door operator interface
 	mem.doorstate = "closing"
-	interrupt(2,"closed")
+	drivecmd({command = "close"})
+	interrupt(0.2,"checkclosed")
 end
 
 mem.formspec = ""
@@ -406,6 +406,18 @@ elseif event.type == "callbutton" and mem.carstate == "normal" then
 	elseif event.dir == "down" and event.landing > 1 and event.landing <= #mem.params.floornames then
 		mem.dncalls[event.landing] = true
 	end
+elseif event.iid == "checkopen" then
+	if mem.drive.status.doorstate == "open" then
+		interrupt(0,"opened")
+	else
+		interrupt(0.2,"checkopen")
+	end
+elseif event.iid == "checkclosed" then
+	if mem.drive.status.doorstate == "closed" then
+		interrupt(0,"closed")
+	else
+		interrupt(0.2,"checkclosed")
+	end
 end
 
 local oldstate = mem.carstate