machina api test

machina = {}

local funclist = {}

machina.setList = function(...)
    local yarr = table.pack(...)
    local errorlist = {}
    for a = 1, #yarr do
        if type(yarr[a]) ~= "function" then
            errorlist[#errorlist+1] = a
        end
    end
    if #errorlist > 0 then
        local errormsg = "bad argument types: "
        for a = 1, #errorlist do
            errormsg = errormsg.."arg"..a.." is "..type(yarr[errorlist[a]])
            if a < #errorlist then
                errormsg = errormsg..", "
            else
                errormsg = errormsg.."."
            end
        end
    else
        funclist = table.pack(...)
        return true
    end
end

machina.startLoop = function()
    local golly_G = setmetatable({}, {__index=(_ENV or getfenv())})
    local funcpos
    golly_G.coroutine.yield = function(check)
        if funcpos < #funclist then
            funcpos = funcpos + 1
            local func = funclist[a]
            func = setfenv(func, golly_G)
            func()
        end
        return table.unpack(evt)
    end
    while true do
        funcpos = 1
        local evt = {os.pullEvent()}
        local func = funclist[a]
        func = setfenv(func, golly_G)
        local output = {pcall( function() return func() end )}
    end
end