/*
 Copyright (c) 2013 yvt
 
 This file is part of OpenSpades.
 
 OpenSpades 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.
 
 OpenSpades 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 OpenSpades.  If not, see <http://www.gnu.org/licenses/>.
 
 */

#include "ThreadLocalStorage.h"
#include <vector>

#ifdef WIN32
#include <windows.h>
#else
#include <pthread.h>
#endif

namespace spades {
	
	class ThreadLocalStorageImplInternal;
	
	static std::vector<ThreadLocalStorageImplInternal *> allTls;
	
	class ThreadLocalStorageImplInternal: public ThreadLocalStorageImpl{
	public:
		ThreadLocalStorageImplInternal(){
			allTls.push_back(this);
		}
		~ThreadLocalStorageImplInternal(){
			// TODO: remove this from allTls?
		}
		void ThreadExiting() {
			void *p = Get();
			if(p)
				destructor->Destruct(p);
		}
	};
	
	void ThreadExiting() {
		for(size_t i = 0; i < allTls.size(); i++){
			allTls[i]->ThreadExiting();
		}
	}
	
#ifdef WIN32
	class Win32ThreadLocalStorageImpl: public ThreadLocalStorageImplInternal{
		DWORD key;
	public:
		Win32ThreadLocalStorageImpl() {
			key = TlsAlloc();
			if(key + 1 == 0){
				SPRaise("Failed to create Windows TLS key");
			}
		}
		virtual ~Win32ThreadLocalStorageImpl(){
			TlsFree(key);
		}
		
		virtual void Set(void *value){
			TlsSetValue(key, value);
		}
		
		virtual void *Get() {
			return TlsGetValue(key);
		}
	};
	
	ThreadLocalStorageImpl *ThreadLocalStorageImpl::Create() {
		return new Win32ThreadLocalStorageImpl();
	}
	
#else
	class PThreadThreadLocalStorageImpl: public ThreadLocalStorageImplInternal{
		pthread_key_t key;
	public:
		PThreadThreadLocalStorageImpl() {
			if(pthread_key_create(&key, NULL)){
				SPRaise("Failed to create PThread TLS key");
			}
		}
		virtual ~PThreadThreadLocalStorageImpl(){
			pthread_key_delete(key);
		}
		
		virtual void Set(void *value){
			if(pthread_setspecific(key, value)){
				SPRaise("Failed to set TLS value");
			}
		}
		
		virtual void *Get() {
			return pthread_getspecific(key);
		}
	};
	
	ThreadLocalStorageImpl *ThreadLocalStorageImpl::Create() {
		return new PThreadThreadLocalStorageImpl();
	}
#endif
	
}