DM tasks rev 2

task.dm

// ASYNC task macros and definitions

#define TASK_RESULT_UNDEFINED "__task_undefined"

/datum/task_lock/proc/wait()
	while(TRUE)
		sleep(100000)

/task
	var/returnResult = TASK_RESULT_UNDEFINED
	var/isComplete = FALSE
	var/datum/task_lock/lock = new()
	parent_type = /datum


/task/proc/wait()
	lock.wait()
	return returnResult

/task/proc/complete(var/result)
	isComplete = TRUE
	returnResult = result
	del lock

/task/proc/await()
	if(lock)
		lock.wait()


#define MAKE_ASYNC \
	set waitfor = FALSE; \
	. = new /task();
	
#define ARETURN(value) \
	(.).complete(value)

#define AWAIT(taskvalue) \
	taskvalue.await()

#define ARESULT(task) task.returnResult

test.dm

/proc/DoLongThing()
    MAKE_ASYNC

    world << "LongThing Started"

    sleep(50)

    world << "LongThing Ended"

    ARETURN(69)



/client/verb/Test()
    MAKE_ASYNC
    world << "Test: start"
    var/task/myTask = DoLongThing()
    world << "Test: after doLongThing"
    AWAIT(myTask)
    world << "Test: after await"

    world << "Test: longThingResult - [ARESULT(myTask)]"