Example for using coroutine-based workarounds for blocking callbacks in Lua Alchemy (issue #121)

with_coroutines.lua

-- See http://code.google.com/p/lua-alchemy/issues/detail?id=121

-- Example. Actual implementation should reuse as much resources as possible.
-- Code is not tested.
local sleep = function(interval)
    local timer = as3.class.flash.utils.Timer.new(interval)
    local function callback()
        if timer then
            timer.stop()
            timer.removeEventListener(
                    as3.class.flash.events.TimerEvent.TIMER, callback
                )
            timer = nil
            coroutine.resume()
        end
    end
    timer.addEventListener(as3.class.flash.events.TimerEvent.TIMER, callback)
    timer.start()
    as3.onclose(function(e)
        if timer then
            timer.stop()
            timer.removeEventListener(
                    as3.class.flash.events.TimerEvent.TIMER, callback
                )
            timer = nil
        end
    end)
    coro.yield_outer()
end

-- Usage:

do_something()
sleep(5000)
do_something_else()

with_flyield.lua

-- Example. Actual implementation should reuse as much resources as possible.
-- Code is not tested.
local sleep = function(interval)
    local done = false
    local timer = as3.class.flash.utils.Timer.new(interval)
    local function callback()
        if timer then
            timer.stop()
            timer.removeEventListener(
                    as3.class.flash.events.TimerEvent.TIMER, callback
                )
            timer = nil
        end
        done = true
    end
    timer.addEventListener(as3.class.flash.events.TimerEvent.TIMER, callback)
    timer.start()
    as3.onclose(function(e)
        if timer then
            timer.stop()
            timer.removeEventListener(
                    as3.class.flash.events.TimerEvent.TIMER, callback
                )
            timer = nil
        end
    end)
    while not done do
        as3.flyield()
    end
end

-- Usage:

do_something()
sleep(5000)
do_something_else()