module Graphics.UI.SDL.Thread (
	-- * Thread Management
	createThread,
	detachThread,
	getThreadID,
	getThreadName,
	setThreadPriority,
	tlsCreate,
	tlsGet,
	tlsSet,
	threadID,
	waitThread,

	-- * Thread Synchronization Primitives
	condBroadcast,
	condSignal,
	condWait,
	condWaitTimeout,
	createCond,
	createMutex,
	createSemaphore,
	destroyCond,
	destroyMutex,
	destroySemaphore,
	lockMutex,
	semPost,
	semTryWait,
	semValue,
	semWait,
	semWaitTimeout,
	tryLockMutex,
	unlockMutex,

	-- * Atomic Operations
	atomicAdd,
	atomicCAS,
	atomicCASPtr,
	atomicDecRef,
	atomicGet,
	atomicGetPtr,
	atomicIncRef,
	atomicLock,
	atomicSet,
	atomicSetPtr,
	atomicTryLock,
	atomicUnlock
) where

import Data.Word
import Foreign.C.String
import Foreign.C.Types
import Foreign.Ptr
import Graphics.UI.SDL.Enum
import Graphics.UI.SDL.Types

foreign import ccall "SDL.h CreateThread" createThread :: ThreadFunction -> CString -> IO (Ptr ())
foreign import ccall "SDL.h DetachThread" detachThread :: Ptr Thread -> IO ()
foreign import ccall "SDL.h GetThreadID" getThreadID :: Ptr Thread -> IO ThreadID
foreign import ccall "SDL.h GetThreadName" getThreadName :: Ptr Thread -> IO CString
foreign import ccall "SDL.h SetThreadPriority" setThreadPriority :: ThreadPriority -> IO CInt
foreign import ccall "SDL.h TLSCreate" tlsCreate :: IO TLSID
foreign import ccall "SDL.h TLSGet" tlsGet :: TLSID -> IO (Ptr ())
foreign import ccall "SDL.h TLSSet" tlsSet :: TLSID -> Ptr () -> FunPtr (Ptr () -> IO ()) -> IO CInt
foreign import ccall "SDL.h ThreadID" threadID :: IO ThreadID
foreign import ccall "SDL.h WaitThread" waitThread :: Ptr Thread -> Ptr CInt -> IO ()

foreign import ccall "SDL.h CondBroadcast" condBroadcast :: Ptr Cond -> IO CInt
foreign import ccall "SDL.h CondSignal" condSignal :: Ptr Cond -> IO CInt
foreign import ccall "SDL.h CondWait" condWait :: Ptr Cond -> Ptr Mutex -> IO CInt
foreign import ccall "SDL.h CondWaitTimeout" condWaitTimeout :: Ptr Cond -> Ptr Mutex -> Word32 -> IO CInt
foreign import ccall "SDL.h CreateCond" createCond :: IO (Ptr Cond)
foreign import ccall "SDL.h CreateMutex" createMutex :: IO (Ptr Mutex)
foreign import ccall "SDL.h CreateSemaphore" createSemaphore :: Word32 -> IO (Ptr Sem)
foreign import ccall "SDL.h DestroyCond" destroyCond :: Ptr Cond -> IO ()
foreign import ccall "SDL.h DestroyMutex" destroyMutex :: Ptr Mutex -> IO ()
foreign import ccall "SDL.h DestroySemaphore" destroySemaphore :: Ptr Sem -> IO ()
foreign import ccall "SDL.h LockMutex" lockMutex :: Ptr Mutex -> IO CInt
foreign import ccall "SDL.h SemPost" semPost :: Ptr Sem -> IO CInt
foreign import ccall "SDL.h SemTryWait" semTryWait :: Ptr Sem -> IO CInt
foreign import ccall "SDL.h SemValue" semValue :: Ptr Sem -> IO Word32
foreign import ccall "SDL.h SemWait" semWait :: Ptr Sem -> IO CInt
foreign import ccall "SDL.h SemWaitTimeout" semWaitTimeout :: Ptr Sem -> Word32 -> IO CInt
foreign import ccall "SDL.h TryLockMutex" tryLockMutex :: Ptr Mutex -> IO CInt
foreign import ccall "SDL.h UnlockMutex" unlockMutex :: Ptr Mutex -> IO CInt

foreign import ccall "SDL.h AtomicAdd" atomicAdd :: Ptr Atomic -> CInt -> IO CInt
foreign import ccall "SDL.h AtomicCAS" atomicCAS :: Ptr Atomic -> CInt -> CInt -> IO Bool
foreign import ccall "SDL.h AtomicCASPtr" atomicCASPtr :: Ptr (Ptr ()) -> Ptr () -> Ptr () -> IO Bool
foreign import ccall "SDL.h AtomicGet" atomicGet :: Ptr Atomic -> IO CInt
foreign import ccall "SDL.h AtomicGetPtr" atomicGetPtr :: Ptr (Ptr ()) -> IO (Ptr ())
foreign import ccall "SDL.h AtomicLock" atomicLock :: Ptr SpinLock -> IO ()
foreign import ccall "SDL.h AtomicSet" atomicSet :: Ptr Atomic -> CInt -> IO CInt
foreign import ccall "SDL.h AtomicSetPtr" atomicSetPtr :: Ptr (Ptr ()) -> Ptr () -> IO (Ptr ())
foreign import ccall "SDL.h AtomicTryLock" atomicTryLock :: Ptr SpinLock -> IO Bool
foreign import ccall "SDL.h AtomicUnlock" atomicUnlock :: Ptr SpinLock -> IO ()

atomicDecRef :: Ptr Atomic -> IO Bool
atomicDecRef a = do
	old <- atomicAdd a (-1)
	return $ old == 1

atomicIncRef :: Ptr Atomic -> IO CInt
atomicIncRef a = atomicAdd a 1