#include <sys/signal.h>
#include <signal.h>

#include "config.h"
#include "BasicThread.h"
#include "Manager.h"

#ifdef HAVE_LINUX
#include <sys/prctl.h>
#endif

using namespace threading;

uint64_t BasicThread::thread_counter = 0;

BasicThread::BasicThread()
	{
	started = false;
	terminating = false;
	pthread = 0;

	buf = 0;
	buf_len = 1024;

	name = Fmt("thread-%d", ++thread_counter);

	thread_mgr->AddThread(this);
	}

BasicThread::~BasicThread()
	{
        if ( buf )
		free(buf);
	}

void BasicThread::SetName(const string& arg_name)
	{
	// Slight race condition here with reader threads, but shouldn't matter.
	name = arg_name;
	}

void BasicThread::SetOSName(const string& name)
	{
#ifdef HAVE_LINUX
	prctl(PR_SET_NAME, name.c_str(), 0, 0, 0);
#endif

#ifdef __APPLE__
	pthread_setname_np(name.c_str());
#endif

#ifdef FREEBSD
	pthread_set_name_np(pthread_self(), name, name.c_str());
#endif
	}

const char* BasicThread::Fmt(const char* format, ...)
	{
	if ( ! buf )
		buf = (char*) malloc(buf_len);

	va_list al;
	va_start(al, format);
	int n = safe_vsnprintf(buf, buf_len, format, al);
	va_end(al);

	if ( (unsigned int) n >= buf_len )
		{ // Not enough room, grow the buffer.
		buf_len = n + 32;
		buf = (char*) realloc(buf, buf_len);

		// Is it portable to restart?
		va_start(al, format);
		n = safe_vsnprintf(buf, buf_len, format, al);
		va_end(al);
		}

	return buf;
	}

void BasicThread::Start()
	{
	if ( started )
		return;

	if ( pthread_mutex_init(&terminate, 0) != 0  )
		reporter->FatalError("Cannot create terminate mutex for thread %s", name.c_str());

	// We use this like a binary semaphore and acquire it immediately.
	if ( pthread_mutex_lock(&terminate) != 0 )
		reporter->FatalError("Cannot aquire terminate mutex for thread %s", name.c_str());

	if ( pthread_create(&pthread, 0, BasicThread::launcher, this) != 0 )
		reporter->FatalError("Cannot create thread %s", name.c_str());

	DBG_LOG(DBG_THREADING, "Started thread %s", name.c_str());

	started = true;

	OnStart();
	}

void BasicThread::Stop()
	{
	if ( ! started )
		return;

	if ( terminating )
		return;

	DBG_LOG(DBG_THREADING, "Signaling thread %s to terminate ...", name.c_str());

	// Signal that it's ok for the thread to exit now by unlocking the
	// mutex.
	if ( pthread_mutex_unlock(&terminate) != 0 )
		reporter->FatalError("Failure flagging terminate condition for thread %s", name.c_str());

	terminating = true;

	OnStop();
	}

void BasicThread::Join()
	{
	if ( ! started )
		return;

	if ( ! terminating )
		Stop();

	DBG_LOG(DBG_THREADING, "Joining thread %s ...", name.c_str());

	if ( pthread_join(pthread, 0) != 0  )
		reporter->FatalError("Failure joining thread %s", name.c_str());

	pthread_mutex_destroy(&terminate);

	DBG_LOG(DBG_THREADING, "Done with thread %s", name.c_str());

	pthread = 0;
	}

void BasicThread::Kill()
	{
	if ( ! (started && pthread) )
		return;

	// I believe this is safe to call from a signal handler ... Not error
	// checking so that killing doesn't bail out if we have already
	// terminated.
	pthread_kill(pthread, SIGKILL);
	}

void* BasicThread::launcher(void *arg)
	{
	BasicThread* thread = (BasicThread *)arg;

	// Block signals in thread. We handle signals only in the main
	// process.
	sigset_t mask_set;
	sigfillset(&mask_set);
	int res = pthread_sigmask(SIG_BLOCK, &mask_set, 0);
	assert(res == 0);  //

	// Run thread's main function.
	thread->Run();

	// Wait until somebody actually wants us to terminate.
	if ( pthread_mutex_lock(&thread->terminate) != 0 )
		reporter->FatalError("Failure acquiring terminate mutex at end of thread %s", thread->Name().c_str());

	return 0;
	}