244 lines
5.7 KiB
C
244 lines
5.7 KiB
C
/**
|
|
* WinPR: Windows Portable Runtime
|
|
* Synchronization Functions
|
|
*
|
|
* Copyright 2012 Marc-Andre Moreau <marcandre.moreau@gmail.com>
|
|
*
|
|
* Licensed under the Apache License, Version 2.0 (the "License");
|
|
* you may not use this file except in compliance with the License.
|
|
* You may obtain a copy of the License at
|
|
*
|
|
* http://www.apache.org/licenses/LICENSE-2.0
|
|
*
|
|
* Unless required by applicable law or agreed to in writing, software
|
|
* distributed under the License is distributed on an "AS IS" BASIS,
|
|
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
* See the License for the specific language governing permissions and
|
|
* limitations under the License.
|
|
*/
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include "config.h"
|
|
#endif
|
|
|
|
#include <winpr/synch.h>
|
|
#include <winpr/debug.h>
|
|
#include <winpr/wlog.h>
|
|
#include <winpr/string.h>
|
|
|
|
#include "synch.h"
|
|
|
|
#ifndef _WIN32
|
|
|
|
#include <errno.h>
|
|
|
|
#include "../handle/handle.h"
|
|
|
|
#include "../log.h"
|
|
#define TAG WINPR_TAG("sync.mutex")
|
|
|
|
static BOOL MutexCloseHandle(HANDLE handle);
|
|
|
|
static BOOL MutexIsHandled(HANDLE handle)
|
|
{
|
|
WINPR_TIMER* pMutex = (WINPR_TIMER*)handle;
|
|
|
|
if (!pMutex || (pMutex->Type != HANDLE_TYPE_MUTEX))
|
|
{
|
|
SetLastError(ERROR_INVALID_HANDLE);
|
|
return FALSE;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static int MutexGetFd(HANDLE handle)
|
|
{
|
|
WINPR_MUTEX* mux = (WINPR_MUTEX*)handle;
|
|
|
|
if (!MutexIsHandled(handle))
|
|
return -1;
|
|
|
|
/* TODO: Mutex does not support file handles... */
|
|
(void)mux;
|
|
return -1;
|
|
}
|
|
|
|
BOOL MutexCloseHandle(HANDLE handle)
|
|
{
|
|
WINPR_MUTEX* mutex = (WINPR_MUTEX*)handle;
|
|
int rc;
|
|
|
|
if (!MutexIsHandled(handle))
|
|
return FALSE;
|
|
|
|
if ((rc = pthread_mutex_destroy(&mutex->mutex)))
|
|
{
|
|
WLog_ERR(TAG, "pthread_mutex_destroy failed with %s [%d]", strerror(rc), rc);
|
|
#if defined(WITH_DEBUG_MUTEX)
|
|
{
|
|
size_t used = 0, i;
|
|
void* stack = winpr_backtrace(20);
|
|
char** msg = NULL;
|
|
|
|
if (stack)
|
|
msg = winpr_backtrace_symbols(stack, &used);
|
|
|
|
if (msg)
|
|
{
|
|
for (i = 0; i < used; i++)
|
|
WLog_ERR(TAG, "%2" PRIdz ": %s", i, msg[i]);
|
|
}
|
|
|
|
free(msg);
|
|
winpr_backtrace_free(stack);
|
|
}
|
|
#endif
|
|
/**
|
|
* Note: unfortunately we may not return FALSE here since CloseHandle(hmutex) on
|
|
* Windows always seems to succeed independently of the mutex object locking state
|
|
*/
|
|
}
|
|
|
|
free(mutex->name);
|
|
free(handle);
|
|
return TRUE;
|
|
}
|
|
|
|
static HANDLE_OPS ops = { MutexIsHandled, MutexCloseHandle,
|
|
MutexGetFd, NULL, /* CleanupHandle */
|
|
NULL, NULL,
|
|
NULL, NULL,
|
|
NULL, NULL,
|
|
NULL, NULL,
|
|
NULL, NULL,
|
|
NULL, NULL,
|
|
NULL, NULL,
|
|
NULL, NULL };
|
|
|
|
HANDLE CreateMutexW(LPSECURITY_ATTRIBUTES lpMutexAttributes, BOOL bInitialOwner, LPCWSTR lpName)
|
|
{
|
|
HANDLE handle;
|
|
char* name = NULL;
|
|
|
|
if (lpName)
|
|
{
|
|
int rc = ConvertFromUnicode(CP_UTF8, 0, lpName, -1, &name, 0, NULL, NULL);
|
|
|
|
if (rc < 0)
|
|
return NULL;
|
|
}
|
|
|
|
handle = CreateMutexA(lpMutexAttributes, bInitialOwner, name);
|
|
free(name);
|
|
return handle;
|
|
}
|
|
|
|
HANDLE CreateMutexA(LPSECURITY_ATTRIBUTES lpMutexAttributes, BOOL bInitialOwner, LPCSTR lpName)
|
|
{
|
|
HANDLE handle = NULL;
|
|
WINPR_MUTEX* mutex;
|
|
mutex = (WINPR_MUTEX*)calloc(1, sizeof(WINPR_MUTEX));
|
|
|
|
if (lpMutexAttributes)
|
|
WLog_WARN(TAG, "%s [%s] does not support lpMutexAttributes", __FUNCTION__, lpName);
|
|
|
|
if (mutex)
|
|
{
|
|
pthread_mutexattr_t attr;
|
|
pthread_mutexattr_init(&attr);
|
|
pthread_mutexattr_settype(&attr, PTHREAD_MUTEX_RECURSIVE);
|
|
pthread_mutex_init(&mutex->mutex, &attr);
|
|
WINPR_HANDLE_SET_TYPE_AND_MODE(mutex, HANDLE_TYPE_MUTEX, WINPR_FD_READ);
|
|
mutex->ops = &ops;
|
|
handle = (HANDLE)mutex;
|
|
|
|
if (bInitialOwner)
|
|
pthread_mutex_lock(&mutex->mutex);
|
|
|
|
if (lpName)
|
|
mutex->name = strdup(lpName); /* Non runtime relevant information, skip NULL check */
|
|
}
|
|
|
|
return handle;
|
|
}
|
|
|
|
HANDLE CreateMutexExA(LPSECURITY_ATTRIBUTES lpMutexAttributes, LPCSTR lpName, DWORD dwFlags,
|
|
DWORD dwDesiredAccess)
|
|
{
|
|
BOOL initial = FALSE;
|
|
/* TODO: support access modes */
|
|
|
|
if (dwDesiredAccess != 0)
|
|
WLog_WARN(TAG, "%s [%s] does not support dwDesiredAccess 0x%08" PRIx32, __FUNCTION__,
|
|
lpName, dwDesiredAccess);
|
|
|
|
if (dwFlags & CREATE_MUTEX_INITIAL_OWNER)
|
|
initial = TRUE;
|
|
|
|
return CreateMutexA(lpMutexAttributes, initial, lpName);
|
|
}
|
|
|
|
HANDLE CreateMutexExW(LPSECURITY_ATTRIBUTES lpMutexAttributes, LPCWSTR lpName, DWORD dwFlags,
|
|
DWORD dwDesiredAccess)
|
|
{
|
|
BOOL initial = FALSE;
|
|
|
|
/* TODO: support access modes */
|
|
if (dwDesiredAccess != 0)
|
|
WLog_WARN(TAG, "%s [%s] does not support dwDesiredAccess 0x%08" PRIx32, __FUNCTION__,
|
|
lpName, dwDesiredAccess);
|
|
|
|
if (dwFlags & CREATE_MUTEX_INITIAL_OWNER)
|
|
initial = TRUE;
|
|
|
|
return CreateMutexW(lpMutexAttributes, initial, lpName);
|
|
}
|
|
|
|
HANDLE OpenMutexA(DWORD dwDesiredAccess, BOOL bInheritHandle, LPCSTR lpName)
|
|
{
|
|
/* TODO: Implement */
|
|
WINPR_UNUSED(dwDesiredAccess);
|
|
WINPR_UNUSED(bInheritHandle);
|
|
WINPR_UNUSED(lpName);
|
|
WLog_ERR(TAG, "%s not implemented", __FUNCTION__);
|
|
return NULL;
|
|
}
|
|
|
|
HANDLE OpenMutexW(DWORD dwDesiredAccess, BOOL bInheritHandle, LPCWSTR lpName)
|
|
{
|
|
/* TODO: Implement */
|
|
WINPR_UNUSED(dwDesiredAccess);
|
|
WINPR_UNUSED(bInheritHandle);
|
|
WINPR_UNUSED(lpName);
|
|
WLog_ERR(TAG, "%s not implemented", __FUNCTION__);
|
|
return NULL;
|
|
}
|
|
|
|
BOOL ReleaseMutex(HANDLE hMutex)
|
|
{
|
|
ULONG Type;
|
|
WINPR_HANDLE* Object;
|
|
|
|
if (!winpr_Handle_GetInfo(hMutex, &Type, &Object))
|
|
return FALSE;
|
|
|
|
if (Type == HANDLE_TYPE_MUTEX)
|
|
{
|
|
WINPR_MUTEX* mutex = (WINPR_MUTEX*)Object;
|
|
int rc = pthread_mutex_unlock(&mutex->mutex);
|
|
|
|
if (rc)
|
|
{
|
|
WLog_ERR(TAG, "pthread_mutex_unlock failed with %s [%d]", strerror(rc), rc);
|
|
return FALSE;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
#endif
|