#if HAVE_CRT
#define _CRTDBG_MAP_ALLOC 
#include <stdlib.h> 
#include <crtdbg.h>
#endif //HAVE_CRT
/*
* Copyright (C) 2020, University of the Basque Country (UPV/EHU)
* Contact for licensing options: <licensing-mcpttclient(at)mcopenplatform(dot)com>
*
* The original file was part of Open Source Doubango Framework
* Copyright (C) 2010-2011 Mamadou Diop.
* Copyright (C) 2012 Doubango Telecom <http://doubango.org>
*
* This file is part of Open Source Doubango Framework.
*
* DOUBANGO is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* DOUBANGO is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with DOUBANGO.
*
*/


/**@file tsk_runnable.c
 * @brief Base class for runnable object.
 *
 * @author Mamadou Diop <diopmamadou(at)doubango[dot]org>
 *

 */
#include "tsk_runnable.h"
#include "tsk_thread.h"
#include "tsk_debug.h"

#if TSK_UNDER_WINDOWS
#	include <windows.h>
#endif

static void* TSK_STDCALL __async_join(void* self);

/**@defgroup tsk_runnable_group Base class for runnable object.
*/

/**@ingroup tsk_runnable_group
* Creates new Runnable object.
* @retval @ref tsk_runnable_t.
*/
tsk_runnable_t* tsk_runnable_create()
{
	return tsk_runnable_create_2(TSK_THREAD_PRIORITY_MEDIUM);

}

/**@ingroup tsk_runnable_group
* Creates new Runnable object.
* @param priority Thread priority. Possible values: TSK_THREAD_PRIORITY_LOW, TSK_THREAD_PRIORITY_MEDIUM, TSK_THREAD_PRIORITY_HIGH or TSK_THREAD_PRIORITY_TIME_CRITICAL	
* @retval @ref tsk_runnable_t.
*/
tsk_runnable_t* tsk_runnable_create_2(int32_t priority)
{
	tsk_runnable_t* runnable;
	if((runnable = (tsk_runnable_t*)tsk_object_new(tsk_runnable_def_t))){
		runnable->priority = priority;
	}
	return runnable;
}

/**@ingroup tsk_runnable_group
* Initializes a runnable object and allocate it's internal fields.
* @param self The runnable object to initialize.
* @param objdef Internal objects definition class.
* @retval Zero if succeed and nonzero error code otherwise.
* @sa tsk_runnable_deinit.
*/
static int tsk_runnable_init(tsk_runnable_t *self, const tsk_object_def_t *objdef)
{
	if(self && objdef){
		if(self->initialized){
			TSK_DEBUG_ERROR("Already initialized");
			return -2;
		}
		
		self->semaphore = tsk_semaphore_create();
		self->objdef = objdef;
		self->objects = tsk_list_create();

		self->initialized = tsk_true;
		return 0;
	}
	TSK_DEBUG_ERROR("Invalid Parameter");
	return -1;
}

/**@ingroup tsk_runnable_group
* DeInitializes a runnable object.
* @param self The runnable object to deinitialize.
* @retval Zero if succeed and nonzero error code otherwise.
* @sa tsk_runnable_init.
*/
static int tsk_runnable_deinit(tsk_runnable_t *self)
{
	if(self){
		if(!self->initialized){
			return 0; /* Already deinitialized */
		}
		else if(self->running){
			TSK_DEBUG_ERROR("Cannot deinit a runnable object while running.");
			return -3;
		}

		tsk_semaphore_destroy(&self->semaphore);
		TSK_OBJECT_SAFE_FREE(self->objects);

		self->initialized = tsk_false;

		return 0;
	}
	TSK_DEBUG_ERROR("Invalid parameter");
	return -1;
}

/**@ingroup tsk_runnable_group
* Starts a runnable object.
* @param self The runnable object to start.
* @param objdef Internal objects definition (meta-data) class.
* @retval Zero if succeed and nonzero error code otherwise.
* @sa tsk_runnable_stop.
*/
int tsk_runnable_start(tsk_runnable_t *self, const tsk_object_def_t *objdef)
{
	if(self){
		int ret = -1;
		if(self->running) return -2;
		else if(!self->run) return -3;
		else if(tsk_runnable_init(self, objdef)) return -4;

		/* call run() function in new thread. */
		if((ret = tsk_thread_create(&(self->h_thread[0]), self->run, self))){
			TSK_DEBUG_ERROR("Failed to start new thread.");
			return ret;
		}
		/* set priority now that the thread is created */
		if(tsk_runnable_set_priority(self, self->priority)){
			TSK_DEBUG_ERROR("Failed to set thread priority value to %d", self->priority);
		}
		// Do not set "running" to true here
		// Problem: When you try to stop the thread before it start
		// Will be done by "TSK_RUNNABLE_RUN_BEGIN" which is called into the thread
		//self->running = tsk_true;

		self->started = tsk_true;
		return 0;
	}
	else{
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}
}

/**@ingroup tsk_runnable_group
* To indicate whether the enqueued data is important or not.
* @param self The runnable object
* @param important @a tsk_true or @a tsk_false. If set to @a tsk_true, the thread will not be joined 
* until all data in the queue have been consumed.
*/
int tsk_runnable_set_important(tsk_runnable_t *self, tsk_bool_t important)
{
	if(self){
		self->important = important;
		return 0;
	}
	else{
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}
}

/**@ingroup tsk_runnable_group
*/
int tsk_runnable_set_priority(tsk_runnable_t *self, int32_t priority)
{
	if(!self){
		TSK_DEBUG_ERROR("Invalid parameter");
		return -1;
	}
	self->priority = priority;
	if(self->h_thread[0]){
		return tsk_thread_set_priority(self->h_thread[0], priority);
	}
	return 0;
}

/**@ingroup tsk_runnable_group
* Stops a runnable object.
* @param self The runnable object to stop.
* @retval Zero if succeed and nonzero error code otherwise.
* @sa tsk_runnable_start.
*/
int tsk_runnable_stop(tsk_runnable_t *self)
{
	int ret = -1;
	if (self) {
		tsk_thread_id_t id_curr_thread;
		if (!self->initialized) {
			if (!self->running) {
				/* already deinitialized */
				return 0;
			}
			else {
				/* should never happen */
				TSK_DEBUG_ERROR("Not initialized.");
				return -2;
			}
		}
		else if (!self->running) {

			if (self->started) {
				tsk_size_t count = 0;
				/* Thread is started but not running ==> Give it time.*/
				while (++count <= 5) {
					tsk_thread_sleep(count * 200);
					if (self->running) {
						goto stop;
					}
				}
			}
			else{
				return 0; /* already stopped */
			} 
			return -3;
		}

stop:
		if(self->running){
			self->running = tsk_false;
		}
		tsk_semaphore_increment(self->semaphore);
		// To avoid deadlock we don't join() the thread if this funcion is called from the "run()" function
		// setting "self::running" to false is enough to exit the thread after the call to "TSK_RUNNABLE_RUN_BEGIN(self)"
		id_curr_thread = tsk_thread_get_id();
		if (tsk_thread_id_equals(&self->id_thread, &id_curr_thread)) {
			tsk_runnable_t* copy = tsk_object_ref(TSK_OBJECT(self)); // "copy" will be null if this function is called in the "dtor()" because "refCount" is already equal to "zero".
			TSK_DEBUG_INFO("tsk_thread_join(%s) called inside the thread(%lu) itself...delaying", copy ? "NOT null" : "null", id_curr_thread);			
			if (!copy || self->h_thread[1]) {
				if (self->h_thread[1]) { // must never happen
					TSK_DEBUG_ERROR("Join already delayed");
				}
				ret = tsk_thread_destroy(&(self->h_thread[0]));
				tsk_object_unref(TSK_OBJECT(copy));
			}
			else {
				ret = tsk_thread_create(&(self->h_thread[1]), __async_join, copy);
			}
		}
		else if ((ret = tsk_thread_join(&(self->h_thread[0])))) {
			self->running = tsk_true;
			TSK_DEBUG_ERROR("Failed to join the thread.");
			return ret;
		}
		tsk_runnable_deinit(self);

		self->started = tsk_false;
	}
	return ret;
}

static void* TSK_STDCALL __async_join(void* arg)
{
	tsk_runnable_t *self = (tsk_runnable_t *)arg;
	if (self) {
		tsk_thread_join(&self->h_thread[0]);
		return tsk_object_unref(TSK_OBJECT(self));
	}
	return self;
}

//=================================================================================================
//	Runnable object definition
//
static tsk_object_t* tsk_runnable_ctor(tsk_object_t * self, va_list * app)
{
	tsk_runnable_t* runnable = (tsk_runnable_t*)self;
	if (runnable) {
		
	}
	return self;
}

static tsk_object_t* tsk_runnable_dtor(tsk_object_t * self)
{ 
	tsk_runnable_t* runnable = (tsk_runnable_t*)self;
	if (runnable) {
		/* stops runnable object (if running or started) */
		tsk_runnable_stop(runnable); // join(runnable->h_thread[0])
		if (runnable->h_thread[1]) {
			tsk_thread_destroy(&(runnable->h_thread[1])); // must not be join()
		}
		TSK_DEBUG_INFO("*** tsk_runnable_t destroyed ***");
	}
	return self;
}

static const tsk_object_def_t tsk_runnable_def_s = 
{
	sizeof(tsk_runnable_t),
	tsk_runnable_ctor, 
	tsk_runnable_dtor,
	tsk_null, 
};
const tsk_object_def_t *tsk_runnable_def_t = &tsk_runnable_def_s;