#include "BsThreadPool.h"

namespace BansheeEngine
{
	PooledThread::PooledThread(const String& name)
		:mName(name), mIdle(true), mThreadStarted(false),
			mThreadReady(false), mIdleTime(0)
	{
		CM_THREAD_CREATE(t, std::bind(&PooledThread::run, this));

		CM_LOCK_MUTEX_NAMED(mMutex, lock);

		while(!mThreadStarted)
			CM_THREAD_WAIT(mStartedCond, mMutex, lock);
	}

	PooledThread::~PooledThread()
	{

	}

	void PooledThread::start(std::function<void()> workerMethod)
	{
		{
			CM_LOCK_MUTEX(mMutex);
			mWorkerMethod = workerMethod;
			mThreadReady = true;
		}

		CM_THREAD_NOTIFY_ONE(mReadyCond);
	}

	void PooledThread::run()
	{
		onThreadStarted(mName);

		{
			CM_LOCK_MUTEX(mMutex);
			mThreadStarted = true;
		}

		CM_THREAD_NOTIFY_ONE(mStartedCond);

		while(true)
		{
			std::function<void()> worker = nullptr;

			{
				CM_LOCK_MUTEX_NAMED(mMutex, lock);

				while(!mThreadReady)
					CM_THREAD_WAIT(mReadyCond, mMutex, lock);

				if(mWorkerMethod == nullptr)
				{
					onThreadEnded(mName);
					return;
				}

				worker = mWorkerMethod;
				mIdle = false;
			}

			worker();

			{
				CM_LOCK_MUTEX(mMutex);

				mIdle = true;
				mIdleTime = std::time(nullptr);
				mThreadReady = false;
			}
		}
	}

	void PooledThread::destroy()
	{
		{
			CM_LOCK_MUTEX(mMutex);
			mWorkerMethod = nullptr;
			mThreadReady = true;
		}

		CM_THREAD_NOTIFY_ONE(mReadyCond);
		CM_THREAD_JOIN((*mThread));
		CM_THREAD_DESTROY(mThread);
	}

	bool PooledThread::isIdle()
	{
		CM_LOCK_MUTEX(mMutex);

		return mIdle;
	}

	time_t PooledThread::idleTime()
	{
		CM_LOCK_MUTEX(mMutex);

		return (time(nullptr) - mIdleTime);
	}

	void PooledThread::setName(const String& name)
	{
		mName = name;
	}

	ThreadPoolBase::ThreadPoolBase(UINT32 threadCapacity, UINT32 maxCapacity, UINT32 idleTimeout)
		:mDefaultCapacity(threadCapacity), mMaxCapacity(maxCapacity), mIdleTimeout(idleTimeout), mAge(0)
	{

	}

	ThreadPoolBase::~ThreadPoolBase()
	{
		stopAll();
	}

	void ThreadPoolBase::run(const String& name, std::function<void()> workerMethod)
	{
		getThread(name)->start(workerMethod);
	}

	void ThreadPoolBase::stopAll()
	{
		CM_LOCK_MUTEX(mMutex);
		for(auto& thread : mThreads)
		{
			destroyThread(thread);
		}

		mThreads.clear();
	}

	void ThreadPoolBase::clearUnused()
	{
		CM_LOCK_MUTEX(mMutex);
		mAge = 0;

		if(mThreads.size() <= mDefaultCapacity)
			return;

		Vector<PooledThread*>::type idleThreads;
		Vector<PooledThread*>::type expiredThreads;
		Vector<PooledThread*>::type activeThreads;

		idleThreads.reserve(mThreads.size());
		expiredThreads.reserve(mThreads.size());
		activeThreads.reserve(mThreads.size());

		for(auto& thread : mThreads)
		{
			if(thread->isIdle())
			{
				if(thread->idleTime() >= mIdleTimeout)
					expiredThreads.push_back(thread);
				else
					idleThreads.push_back(thread);
			}
			else
				activeThreads.push_back(thread);
		}

		idleThreads.insert(idleThreads.end(), expiredThreads.begin(), expiredThreads.end());
		UINT32 limit = std::min((UINT32)idleThreads.size(), mDefaultCapacity);

		UINT32 i = 0;
		mThreads.clear();

		for(auto& thread : idleThreads)
		{
			if(i < limit)
				mThreads.push_back(thread);
			else
				destroyThread(thread);
		}

		mThreads.insert(mThreads.end(), activeThreads.begin(), activeThreads.end());
	}

	void ThreadPoolBase::destroyThread(PooledThread* thread)
	{
		thread->destroy();
		cm_delete(thread);
	}

	PooledThread* ThreadPoolBase::getThread(const String& name)
	{
		UINT32 age = 0;
		{
			CM_LOCK_MUTEX(mMutex);
			age = ++mAge;
		}

		if(age == 32)
			clearUnused();

		PooledThread* newThread = nullptr;
		CM_LOCK_MUTEX(mMutex);

		for(auto& thread : mThreads)
		{
			if(thread->isIdle())
			{
				thread->setName(name);
				return thread;
			}
		}

		if(newThread == nullptr)
		{
			if(mThreads.size() >= mMaxCapacity)
				CM_EXCEPT(InvalidStateException, "Unable to create a new thread in the pool because maximum capacity has been reached.");

			newThread = createThread(name);
			mThreads.push_back(newThread);
		}

		return newThread;
	}

	UINT32 ThreadPoolBase::getNumAvailable() const
	{
		UINT32 numAvailable = 0;

		CM_LOCK_MUTEX(mMutex);
		for(auto& thread : mThreads)
		{
			if(thread->isIdle())
				numAvailable++;
		}

		return numAvailable;
	}

	UINT32 ThreadPoolBase::getNumActive() const
	{
		UINT32 numActive = 0;

		CM_LOCK_MUTEX(mMutex);
		for(auto& thread : mThreads)
		{
			if(!thread->isIdle())
				numActive++;
		}

		return numActive;
	}

	UINT32 ThreadPoolBase::getNumAllocated() const
	{
		CM_LOCK_MUTEX(mMutex);

		return (UINT32)mThreads.size();
	}
}