Multitasking - rewritten!

os.loadAPI("multitask") --#load it

thread = multitask.constructLayered(multitask.threadLayers) --#this creates an empty thread (think of it like a container for now)

f = function() while true do print(os.pullEvent()) end end --#function to put inside the thread

thread.init(f) --#init thread, now it has the function inside
thread.resume() --#Always resume after initing! This will execute code to the first yield

--#here it's the same but for other function:
thread2 = multitask.constructLayered(multitask.threadLayers) --#don't use the same thread because tables are pointer based

f2 = function() os.pullEvent() print("2") os.pullEvent() print("1") end

thread2.init(f2)
thread2.resume()

--#so here comes the interesting part
system = multitask.constructLayered(multitask.threadingSystemLayers) --#this is a system, a container for multiple threads
system.init() --#always init everything!

system.add(thread)
system.add(thread2)

for i=1,10 do
	system.resume(os.pullEvent()) --#resume ten times
end

thread = multitask.constructLayered(multitask.threadLayers) --#this creates an empty thread (think of it like a container for now)
thread.init(f) --#init thread, now it has the function inside
thread.resume() --#Always resume after initing! This will execute code to the first yield

thread = multitask.constructLayered(multitask.threadLayers) --#this creates an empty thread (think of it like a container for now)
thread.init(f) --#init thread, now it has the function inside
thread.assignWindow(w) --#Do it before first resuming
thread.resume() --#Always resume after initing! This will execute code to the first yield

os.loadAPI("multitask")
function waitForAny(...)
local system = newCCThreadSystem(...)
   while not system.anyended do
		system:resume({os.pullEvent()})
   end
end
function waitForAll(...)
local system = newCCThreadSystem(...)
	while system.count > 0 do
		system:resume({os.pullEvent()})
   end
end

--#f is a function, multitask lib. is loaded by running it (in default env)
local th = newThread(f) --#First we create a thread from f
local th = newPausable(th) --#We are doing this one by one because we don't want the CC Thread layer.
local th = newAdvThread(th)
--#Now we add our custom layer on top of advanced layer(we could add it below, too) that when our coroutine dies it logs it.
--#If we had a logging API loaded in Log with function Debug that takes one param: string:
local function newLogging(t,conv) --#t can be a function and a table
	t,parent = newLayer(t,conv or newAdvThread) --#Use the new function to get parent and auto convert if neccessary
	t.resume = function(self,...)
		parent.resume(self,...)
		if parent.status(self) == "dead" then
			Log.Debug("This thread is dead :(/>/>/>/>/>")
		end
	end
	--#You can modify everything, but always return a table with a resume and status functions (can be inherited or custom)
	return t
end
th = newLogging(th) --#Done!