rlm@1: /* Threads.c -- multithreading library
rlm@1: 2008-08-05
rlm@1: Igor Pavlov
rlm@1: Public domain */
rlm@1: 
rlm@1: #include "Threads.h"
rlm@1: #include <process.h>
rlm@1: 
rlm@1: static WRes GetError()
rlm@1: {
rlm@1:   DWORD res = GetLastError();
rlm@1:   return (res) ? (WRes)(res) : 1;
rlm@1: }
rlm@1: 
rlm@1: WRes HandleToWRes(HANDLE h) { return (h != 0) ? 0 : GetError(); }
rlm@1: WRes BOOLToWRes(BOOL v) { return v ? 0 : GetError(); }
rlm@1: 
rlm@1: static WRes MyCloseHandle(HANDLE *h)
rlm@1: {
rlm@1:   if (*h != NULL)
rlm@1:     if (!CloseHandle(*h))
rlm@1:       return GetError();
rlm@1:   *h = NULL;
rlm@1:   return 0;
rlm@1: }
rlm@1: 
rlm@1: WRes Thread_Create(CThread *thread, THREAD_FUNC_RET_TYPE (THREAD_FUNC_CALL_TYPE *startAddress)(void *), LPVOID parameter)
rlm@1: {
rlm@1:   unsigned threadId; /* Windows Me/98/95: threadId parameter may not be NULL in _beginthreadex/CreateThread functions */
rlm@1:   thread->handle =
rlm@1:     /* CreateThread(0, 0, startAddress, parameter, 0, &threadId); */
rlm@1:     (HANDLE)_beginthreadex(NULL, 0, startAddress, parameter, 0, &threadId);
rlm@1:     /* maybe we must use errno here, but probably GetLastError() is also OK. */
rlm@1:   return HandleToWRes(thread->handle);
rlm@1: }
rlm@1: 
rlm@1: WRes WaitObject(HANDLE h)
rlm@1: {
rlm@1:   return (WRes)WaitForSingleObject(h, INFINITE);
rlm@1: }
rlm@1: 
rlm@1: WRes Thread_Wait(CThread *thread)
rlm@1: {
rlm@1:   if (thread->handle == NULL)
rlm@1:     return 1;
rlm@1:   return WaitObject(thread->handle);
rlm@1: }
rlm@1: 
rlm@1: WRes Thread_Close(CThread *thread)
rlm@1: {
rlm@1:   return MyCloseHandle(&thread->handle);
rlm@1: }
rlm@1: 
rlm@1: WRes Event_Create(CEvent *p, BOOL manualReset, int initialSignaled)
rlm@1: {
rlm@1:   p->handle = CreateEvent(NULL, manualReset, (initialSignaled ? TRUE : FALSE), NULL);
rlm@1:   return HandleToWRes(p->handle);
rlm@1: }
rlm@1: 
rlm@1: WRes ManualResetEvent_Create(CManualResetEvent *p, int initialSignaled)
rlm@1:   { return Event_Create(p, TRUE, initialSignaled); }
rlm@1: WRes ManualResetEvent_CreateNotSignaled(CManualResetEvent *p)
rlm@1:   { return ManualResetEvent_Create(p, 0); }
rlm@1: 
rlm@1: WRes AutoResetEvent_Create(CAutoResetEvent *p, int initialSignaled)
rlm@1:   { return Event_Create(p, FALSE, initialSignaled); }
rlm@1: WRes AutoResetEvent_CreateNotSignaled(CAutoResetEvent *p)
rlm@1:   { return AutoResetEvent_Create(p, 0); }
rlm@1: 
rlm@1: WRes Event_Set(CEvent *p) { return BOOLToWRes(SetEvent(p->handle)); }
rlm@1: WRes Event_Reset(CEvent *p) { return BOOLToWRes(ResetEvent(p->handle)); }
rlm@1: WRes Event_Wait(CEvent *p) { return WaitObject(p->handle); }
rlm@1: WRes Event_Close(CEvent *p) { return MyCloseHandle(&p->handle); }
rlm@1: 
rlm@1: 
rlm@1: WRes Semaphore_Create(CSemaphore *p, UInt32 initiallyCount, UInt32 maxCount)
rlm@1: {
rlm@1:   p->handle = CreateSemaphore(NULL, (LONG)initiallyCount, (LONG)maxCount, NULL);
rlm@1:   return HandleToWRes(p->handle);
rlm@1: }
rlm@1: 
rlm@1: WRes Semaphore_Release(CSemaphore *p, LONG releaseCount, LONG *previousCount)
rlm@1: {
rlm@1:   return BOOLToWRes(ReleaseSemaphore(p->handle, releaseCount, previousCount));
rlm@1: }
rlm@1: WRes Semaphore_ReleaseN(CSemaphore *p, UInt32 releaseCount)
rlm@1: {
rlm@1:   return Semaphore_Release(p, (LONG)releaseCount, NULL);
rlm@1: }
rlm@1: WRes Semaphore_Release1(CSemaphore *p)
rlm@1: {
rlm@1:   return Semaphore_ReleaseN(p, 1);
rlm@1: }
rlm@1: 
rlm@1: WRes Semaphore_Wait(CSemaphore *p) { return WaitObject(p->handle); }
rlm@1: WRes Semaphore_Close(CSemaphore *p) { return MyCloseHandle(&p->handle); }
rlm@1: 
rlm@1: WRes CriticalSection_Init(CCriticalSection *p)
rlm@1: {
rlm@1:   /* InitializeCriticalSection can raise only STATUS_NO_MEMORY exception */
rlm@1:   __try
rlm@1:   {
rlm@1:     InitializeCriticalSection(p);
rlm@1:     /* InitializeCriticalSectionAndSpinCount(p, 0); */
rlm@1:   }
rlm@1:   __except (EXCEPTION_EXECUTE_HANDLER) { return 1; }
rlm@1:   return 0;
rlm@1: }
rlm@1: