Merge branch 'dev'

control.lua

@@ -1,61 +1,136 @@
 Aux.control = {}
 
-local events = {}
-
 local event_listeners = {}
 
 local update_listeners = {}
 
-function Aux.util.controller()
-	local ready, continuation
-	return {
-		
-	}
-end
-
-function Aux.util.event_listener(event, action)
-	return {
-		start = function()
-			tinsert(events, f)
-		end,
-		stop = function()
-			Aux.util.remove(events, f)
+function Aux.control.on_event()
+	for listener, _ in pairs(event_listeners) do
+		if event == listener.event then
+			listener.action()
 		end
-	
-	
-	}
-end
-
-
-
-
-
-
-
-function Aux.control.onevent()
-
-end
-
-
-function Aux.control.onupdate()
-
-
-
-
-
-
-
-
-
-
-local listen_for_event(listener)
-	tinsert(event_listeners, listener)
-	return function()
-		Aux.util.remove(event_listeners, listener)
 	end
 end
 
-function wait_for_event(event)
-	return function
+function Aux.control.on_update()
+	for listener, _ in pairs(update_listeners) do
+		listener.action()
+	end
+end
 
-end
+
+
+function Aux.control.event_listener(event, action) -- async!
+	local self = {}
+	
+	local listener = { event=event, action=action }
+	
+	function self:set_action(self, action)
+		listener.action = action
+	end
+	
+	function self:start(self)
+		Aux.util.set_add(event_listeners, listener)
+		if not Aux.util.any(event_listeners, function(l) l.event == event end then
+			AuxControlFrame:RegisterEvent(event)
+		end
+		return self
+	end
+	
+	function self:stop(self)
+		Aux.util.set_remove(event_listeners, listener)
+		if not Aux.util.any(event_listeners, function(l) l.event == event end then
+			AuxControlFrame:UnregisterEvent(event)
+		end
+		return self
+	end
+	
+	return self
+end
+
+function Aux.control.update_listener(action)
+	local self = {}
+	
+	local listener = { action=action }
+
+	function self:set_action(self, action)
+		listener.action = action
+	end
+	
+	function self:start(self)
+		Aux.util.set_add(update_listeners, listener)
+		return self
+	end
+	
+	function self:stop(self)
+		Aux.util.set_remove(update_listeners, listener)
+		return self
+	end
+	
+	return self
+end
+
+
+
+function Aux.control.on_next_update(callback)
+	local listener = Aux.control.update_listener()
+	
+	listener:set_action(function()
+		listener:stop()
+		callback()
+	end
+	
+	listener:start()
+end
+
+function Aux.control.as_soon_as(p, callback)
+	local listener = Aux.control.update_listener()	
+	
+	listener:set_action(function()
+		if p() then
+			callback()
+			listener:stop()
+		end
+	end)
+	
+	listener:start()
+end
+
+function Aux.control.on_next_event(event, callback)
+	local ok
+	
+	local listener = Aux.control.event_listener(event)
+	
+	listener:set_action(function()
+		listener:stop()
+		ok = true
+	end
+	
+	listener:start()
+	
+	Aux.control.as_soon_as(function() return ok end, callback)
+end
+
+
+
+function Aux.control.timer()
+	local self = {}
+	
+	local t_0
+	
+	function self:start(self)
+		t_0 = GetTime()
+	end
+	
+	function self:after(self, t, callback)
+		Aux.util.as_soon_as(function() return t_0 and GetTime() - t_0 > t end, callback)
+	end
+	
+	return self
+end
+
+function Aux.control.after_time(t, callback)
+	local timer = Aux.control.timer()
+	timer:start()
+	timer:after(t, callback)
+end