| /* |
| * Kernel synchronization objects |
| * |
| * Copyright 1998 Alexandre Julliard |
| * |
| * This library is free software; you can redistribute it and/or |
| * modify it under the terms of the GNU Lesser General Public |
| * License as published by the Free Software Foundation; either |
| * version 2.1 of the License, or (at your option) any later version. |
| * |
| * This library 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 |
| * Lesser General Public License for more details. |
| * |
| * You should have received a copy of the GNU Lesser General Public |
| * License along with this library; if not, write to the Free Software |
| * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| */ |
| |
| #include "config.h" |
| #include "wine/port.h" |
| |
| #include <string.h> |
| #ifdef HAVE_UNISTD_H |
| # include <unistd.h> |
| #endif |
| #include <errno.h> |
| #ifdef HAVE_SYS_IOCTL_H |
| #include <sys/ioctl.h> |
| #endif |
| #ifdef HAVE_SYS_POLL_H |
| #include <sys/poll.h> |
| #endif |
| #ifdef HAVE_SYS_SOCKET_H |
| #include <sys/socket.h> |
| #endif |
| #include <stdarg.h> |
| #include <stdio.h> |
| |
| #include "ntstatus.h" |
| #include "windef.h" |
| #include "winbase.h" |
| #include "winerror.h" |
| #include "winnls.h" |
| #include "winreg.h" |
| #include "winternl.h" |
| |
| #include "wine/server.h" |
| #include "wine/unicode.h" |
| #include "wine/winbase16.h" |
| #include "kernel_private.h" |
| |
| #include "wine/debug.h" |
| |
| WINE_DEFAULT_DEBUG_CHANNEL(sync); |
| |
| /* check if current version is NT or Win95 */ |
| inline static int is_version_nt(void) |
| { |
| return !(GetVersion() & 0x80000000); |
| } |
| |
| |
| /*********************************************************************** |
| * Sleep (KERNEL32.@) |
| */ |
| VOID WINAPI Sleep( DWORD timeout ) |
| { |
| SleepEx( timeout, FALSE ); |
| } |
| |
| /****************************************************************************** |
| * SleepEx (KERNEL32.@) |
| */ |
| DWORD WINAPI SleepEx( DWORD timeout, BOOL alertable ) |
| { |
| NTSTATUS status; |
| |
| if (timeout == INFINITE) status = NtDelayExecution( alertable, NULL ); |
| else |
| { |
| LARGE_INTEGER time; |
| |
| time.QuadPart = timeout * (ULONGLONG)10000; |
| time.QuadPart = -time.QuadPart; |
| status = NtDelayExecution( alertable, &time ); |
| } |
| if (status != STATUS_USER_APC) status = STATUS_SUCCESS; |
| return status; |
| } |
| |
| |
| /*********************************************************************** |
| * SwitchToThread (KERNEL32.@) |
| */ |
| BOOL WINAPI SwitchToThread(void) |
| { |
| return (NtYieldExecution() != STATUS_NO_YIELD_PERFORMED); |
| } |
| |
| |
| /*********************************************************************** |
| * WaitForSingleObject (KERNEL32.@) |
| */ |
| DWORD WINAPI WaitForSingleObject( HANDLE handle, DWORD timeout ) |
| { |
| return WaitForMultipleObjectsEx( 1, &handle, FALSE, timeout, FALSE ); |
| } |
| |
| |
| /*********************************************************************** |
| * WaitForSingleObjectEx (KERNEL32.@) |
| */ |
| DWORD WINAPI WaitForSingleObjectEx( HANDLE handle, DWORD timeout, |
| BOOL alertable ) |
| { |
| return WaitForMultipleObjectsEx( 1, &handle, FALSE, timeout, alertable ); |
| } |
| |
| |
| /*********************************************************************** |
| * WaitForMultipleObjects (KERNEL32.@) |
| */ |
| DWORD WINAPI WaitForMultipleObjects( DWORD count, const HANDLE *handles, |
| BOOL wait_all, DWORD timeout ) |
| { |
| return WaitForMultipleObjectsEx( count, handles, wait_all, timeout, FALSE ); |
| } |
| |
| |
| /*********************************************************************** |
| * WaitForMultipleObjectsEx (KERNEL32.@) |
| */ |
| DWORD WINAPI WaitForMultipleObjectsEx( DWORD count, const HANDLE *handles, |
| BOOL wait_all, DWORD timeout, |
| BOOL alertable ) |
| { |
| NTSTATUS status; |
| HANDLE hloc[MAXIMUM_WAIT_OBJECTS]; |
| unsigned int i; |
| |
| if (count >= MAXIMUM_WAIT_OBJECTS) |
| { |
| SetLastError(ERROR_INVALID_PARAMETER); |
| return WAIT_FAILED; |
| } |
| for (i = 0; i < count; i++) |
| { |
| if ((handles[i] == (HANDLE)STD_INPUT_HANDLE) || |
| (handles[i] == (HANDLE)STD_OUTPUT_HANDLE) || |
| (handles[i] == (HANDLE)STD_ERROR_HANDLE)) |
| hloc[i] = GetStdHandle( (DWORD)handles[i] ); |
| else |
| hloc[i] = handles[i]; |
| |
| /* yes, even screen buffer console handles are waitable, and are |
| * handled as a handle to the console itself !! |
| */ |
| if (is_console_handle(hloc[i])) |
| { |
| if (!VerifyConsoleIoHandle(hloc[i])) |
| { |
| return FALSE; |
| } |
| hloc[i] = GetConsoleInputWaitHandle(); |
| } |
| } |
| |
| if (timeout == INFINITE) |
| { |
| status = NtWaitForMultipleObjects( count, hloc, wait_all, alertable, NULL ); |
| } |
| else |
| { |
| LARGE_INTEGER time; |
| |
| time.QuadPart = timeout * (ULONGLONG)10000; |
| time.QuadPart = -time.QuadPart; |
| status = NtWaitForMultipleObjects( count, hloc, wait_all, alertable, &time ); |
| } |
| |
| if (HIWORD(status)) /* is it an error code? */ |
| { |
| SetLastError( RtlNtStatusToDosError(status) ); |
| status = WAIT_FAILED; |
| } |
| return status; |
| } |
| |
| |
| /*********************************************************************** |
| * WaitForSingleObject (KERNEL.460) |
| */ |
| DWORD WINAPI WaitForSingleObject16( HANDLE handle, DWORD timeout ) |
| { |
| DWORD retval, mutex_count; |
| |
| ReleaseThunkLock( &mutex_count ); |
| retval = WaitForSingleObject( handle, timeout ); |
| RestoreThunkLock( mutex_count ); |
| return retval; |
| } |
| |
| /*********************************************************************** |
| * WaitForMultipleObjects (KERNEL.461) |
| */ |
| DWORD WINAPI WaitForMultipleObjects16( DWORD count, const HANDLE *handles, |
| BOOL wait_all, DWORD timeout ) |
| { |
| DWORD retval, mutex_count; |
| |
| ReleaseThunkLock( &mutex_count ); |
| retval = WaitForMultipleObjectsEx( count, handles, wait_all, timeout, FALSE ); |
| RestoreThunkLock( mutex_count ); |
| return retval; |
| } |
| |
| /*********************************************************************** |
| * WaitForMultipleObjectsEx (KERNEL.495) |
| */ |
| DWORD WINAPI WaitForMultipleObjectsEx16( DWORD count, const HANDLE *handles, |
| BOOL wait_all, DWORD timeout, BOOL alertable ) |
| { |
| DWORD retval, mutex_count; |
| |
| ReleaseThunkLock( &mutex_count ); |
| retval = WaitForMultipleObjectsEx( count, handles, wait_all, timeout, alertable ); |
| RestoreThunkLock( mutex_count ); |
| return retval; |
| } |
| |
| /*********************************************************************** |
| * RegisterWaitForSingleObject (KERNEL32.@) |
| */ |
| BOOL WINAPI RegisterWaitForSingleObject(PHANDLE phNewWaitObject, HANDLE hObject, |
| WAITORTIMERCALLBACK Callback, PVOID Context, |
| ULONG dwMilliseconds, ULONG dwFlags) |
| { |
| FIXME("%p %p %p %p %ld %ld\n", |
| phNewWaitObject,hObject,Callback,Context,dwMilliseconds,dwFlags); |
| return FALSE; |
| } |
| |
| /*********************************************************************** |
| * RegisterWaitForSingleObjectEx (KERNEL32.@) |
| */ |
| HANDLE WINAPI RegisterWaitForSingleObjectEx( HANDLE hObject, |
| WAITORTIMERCALLBACK Callback, PVOID Context, |
| ULONG dwMilliseconds, ULONG dwFlags ) |
| { |
| FIXME("%p %p %p %ld %ld\n", |
| hObject,Callback,Context,dwMilliseconds,dwFlags); |
| return 0; |
| } |
| |
| /*********************************************************************** |
| * UnregisterWait (KERNEL32.@) |
| */ |
| BOOL WINAPI UnregisterWait( HANDLE WaitHandle ) |
| { |
| FIXME("%p\n",WaitHandle); |
| return FALSE; |
| } |
| |
| /*********************************************************************** |
| * UnregisterWaitEx (KERNEL32.@) |
| */ |
| BOOL WINAPI UnregisterWaitEx( HANDLE WaitHandle, HANDLE CompletionEvent ) |
| { |
| FIXME("%p %p\n",WaitHandle, CompletionEvent); |
| return FALSE; |
| } |
| |
| /*********************************************************************** |
| * SignalObjectAndWait (KERNEL32.@) |
| * |
| * Allows to atomically signal any of the synchro objects (semaphore, |
| * mutex, event) and wait on another. |
| */ |
| DWORD WINAPI SignalObjectAndWait( HANDLE hObjectToSignal, HANDLE hObjectToWaitOn, DWORD dwMilliseconds, BOOL bAlertable ) |
| { |
| FIXME("(%p %p %ld %d): stub\n", hObjectToSignal, hObjectToWaitOn, dwMilliseconds, bAlertable); |
| return WAIT_OBJECT_0; |
| } |
| |
| |
| /*********************************************************************** |
| * InitializeCriticalSection (KERNEL32.@) |
| * |
| * Initialise a critical section before use. |
| * |
| * PARAMS |
| * crit [O] Critical section to initialise. |
| * |
| * RETURNS |
| * Nothing. If the function fails an exception is raised. |
| */ |
| void WINAPI InitializeCriticalSection( CRITICAL_SECTION *crit ) |
| { |
| NTSTATUS ret = RtlInitializeCriticalSection( crit ); |
| if (ret) RtlRaiseStatus( ret ); |
| } |
| |
| /*********************************************************************** |
| * InitializeCriticalSectionAndSpinCount (KERNEL32.@) |
| * |
| * Initialise a critical section with a spin count. |
| * |
| * PARAMS |
| * crit [O] Critical section to initialise. |
| * spincount [I] Number of times to spin upon contention. |
| * |
| * RETURNS |
| * Success: TRUE. |
| * Failure: Nothing. If the function fails an exception is raised. |
| * |
| * NOTES |
| * spincount is ignored on uni-processor systems. |
| */ |
| BOOL WINAPI InitializeCriticalSectionAndSpinCount( CRITICAL_SECTION *crit, DWORD spincount ) |
| { |
| NTSTATUS ret = RtlInitializeCriticalSectionAndSpinCount( crit, spincount ); |
| if (ret) RtlRaiseStatus( ret ); |
| return !ret; |
| } |
| |
| /*********************************************************************** |
| * MakeCriticalSectionGlobal (KERNEL32.@) |
| */ |
| void WINAPI MakeCriticalSectionGlobal( CRITICAL_SECTION *crit ) |
| { |
| /* let's assume that only one thread at a time will try to do this */ |
| HANDLE sem = crit->LockSemaphore; |
| if (!sem) NtCreateSemaphore( &sem, SEMAPHORE_ALL_ACCESS, NULL, 0, 1 ); |
| crit->LockSemaphore = ConvertToGlobalHandle( sem ); |
| if (crit->DebugInfo) |
| { |
| RtlFreeHeap( GetProcessHeap(), 0, crit->DebugInfo ); |
| crit->DebugInfo = NULL; |
| } |
| } |
| |
| |
| /*********************************************************************** |
| * ReinitializeCriticalSection (KERNEL32.@) |
| * |
| * Initialise an already used critical section. |
| * |
| * PARAMS |
| * crit [O] Critical section to initialise. |
| * |
| * RETURNS |
| * Nothing. |
| */ |
| void WINAPI ReinitializeCriticalSection( CRITICAL_SECTION *crit ) |
| { |
| if ( !crit->LockSemaphore ) |
| RtlInitializeCriticalSection( crit ); |
| } |
| |
| |
| /*********************************************************************** |
| * UninitializeCriticalSection (KERNEL32.@) |
| * |
| * UnInitialise a critical section after use. |
| * |
| * PARAMS |
| * crit [O] Critical section to uninitialise (destroy). |
| * |
| * RETURNS |
| * Nothing. |
| */ |
| void WINAPI UninitializeCriticalSection( CRITICAL_SECTION *crit ) |
| { |
| RtlDeleteCriticalSection( crit ); |
| } |
| |
| |
| /*********************************************************************** |
| * CreateEventA (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateEventA( SECURITY_ATTRIBUTES *sa, BOOL manual_reset, |
| BOOL initial_state, LPCSTR name ) |
| { |
| WCHAR buffer[MAX_PATH]; |
| |
| if (!name) return CreateEventW( sa, manual_reset, initial_state, NULL ); |
| |
| if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH )) |
| { |
| SetLastError( ERROR_FILENAME_EXCED_RANGE ); |
| return 0; |
| } |
| return CreateEventW( sa, manual_reset, initial_state, buffer ); |
| } |
| |
| |
| /*********************************************************************** |
| * CreateEventW (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateEventW( SECURITY_ATTRIBUTES *sa, BOOL manual_reset, |
| BOOL initial_state, LPCWSTR name ) |
| { |
| HANDLE ret; |
| UNICODE_STRING nameW; |
| OBJECT_ATTRIBUTES attr; |
| NTSTATUS status; |
| |
| /* one buggy program needs this |
| * ("Van Dale Groot woordenboek der Nederlandse taal") |
| */ |
| if (sa && IsBadReadPtr(sa,sizeof(SECURITY_ATTRIBUTES))) |
| { |
| ERR("Bad security attributes pointer %p\n",sa); |
| SetLastError( ERROR_INVALID_PARAMETER); |
| return 0; |
| } |
| |
| attr.Length = sizeof(attr); |
| attr.RootDirectory = 0; |
| attr.ObjectName = NULL; |
| attr.Attributes = (sa && sa->bInheritHandle) ? OBJ_INHERIT : 0; |
| attr.SecurityDescriptor = sa ? sa->lpSecurityDescriptor : NULL; |
| attr.SecurityQualityOfService = NULL; |
| if (name) |
| { |
| RtlInitUnicodeString( &nameW, name ); |
| attr.ObjectName = &nameW; |
| } |
| |
| status = NtCreateEvent( &ret, EVENT_ALL_ACCESS, &attr, manual_reset, initial_state ); |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return ret; |
| } |
| |
| |
| /*********************************************************************** |
| * CreateW32Event (KERNEL.457) |
| */ |
| HANDLE WINAPI WIN16_CreateEvent( BOOL manual_reset, BOOL initial_state ) |
| { |
| return CreateEventW( NULL, manual_reset, initial_state, NULL ); |
| } |
| |
| |
| /*********************************************************************** |
| * OpenEventA (KERNEL32.@) |
| */ |
| HANDLE WINAPI OpenEventA( DWORD access, BOOL inherit, LPCSTR name ) |
| { |
| WCHAR buffer[MAX_PATH]; |
| |
| if (!name) return OpenEventW( access, inherit, NULL ); |
| |
| if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH )) |
| { |
| SetLastError( ERROR_FILENAME_EXCED_RANGE ); |
| return 0; |
| } |
| return OpenEventW( access, inherit, buffer ); |
| } |
| |
| |
| /*********************************************************************** |
| * OpenEventW (KERNEL32.@) |
| */ |
| HANDLE WINAPI OpenEventW( DWORD access, BOOL inherit, LPCWSTR name ) |
| { |
| HANDLE ret; |
| UNICODE_STRING nameW; |
| OBJECT_ATTRIBUTES attr; |
| NTSTATUS status; |
| |
| if (!is_version_nt()) access = EVENT_ALL_ACCESS; |
| |
| attr.Length = sizeof(attr); |
| attr.RootDirectory = 0; |
| attr.ObjectName = NULL; |
| attr.Attributes = inherit ? OBJ_INHERIT : 0; |
| attr.SecurityDescriptor = NULL; |
| attr.SecurityQualityOfService = NULL; |
| if (name) |
| { |
| RtlInitUnicodeString( &nameW, name ); |
| attr.ObjectName = &nameW; |
| } |
| |
| status = NtOpenEvent( &ret, access, &attr ); |
| if (status != STATUS_SUCCESS) |
| { |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return 0; |
| } |
| return ret; |
| } |
| |
| /*********************************************************************** |
| * PulseEvent (KERNEL32.@) |
| */ |
| BOOL WINAPI PulseEvent( HANDLE handle ) |
| { |
| NTSTATUS status; |
| |
| if ((status = NtPulseEvent( handle, NULL ))) |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return !status; |
| } |
| |
| |
| /*********************************************************************** |
| * SetW32Event (KERNEL.458) |
| * SetEvent (KERNEL32.@) |
| */ |
| BOOL WINAPI SetEvent( HANDLE handle ) |
| { |
| NTSTATUS status; |
| |
| if ((status = NtSetEvent( handle, NULL ))) |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return !status; |
| } |
| |
| |
| /*********************************************************************** |
| * ResetW32Event (KERNEL.459) |
| * ResetEvent (KERNEL32.@) |
| */ |
| BOOL WINAPI ResetEvent( HANDLE handle ) |
| { |
| NTSTATUS status; |
| |
| if ((status = NtResetEvent( handle, NULL ))) |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return !status; |
| } |
| |
| |
| /*********************************************************************** |
| * NOTE: The Win95 VWin32_Event routines given below are really low-level |
| * routines implemented directly by VWin32. The user-mode libraries |
| * implement Win32 synchronisation routines on top of these low-level |
| * primitives. We do it the other way around here :-) |
| */ |
| |
| /*********************************************************************** |
| * VWin32_EventCreate (KERNEL.442) |
| */ |
| HANDLE WINAPI VWin32_EventCreate(VOID) |
| { |
| HANDLE hEvent = CreateEventW( NULL, FALSE, 0, NULL ); |
| return ConvertToGlobalHandle( hEvent ); |
| } |
| |
| /*********************************************************************** |
| * VWin32_EventDestroy (KERNEL.443) |
| */ |
| VOID WINAPI VWin32_EventDestroy(HANDLE event) |
| { |
| CloseHandle( event ); |
| } |
| |
| /*********************************************************************** |
| * VWin32_EventWait (KERNEL.450) |
| */ |
| VOID WINAPI VWin32_EventWait(HANDLE event) |
| { |
| DWORD mutex_count; |
| |
| ReleaseThunkLock( &mutex_count ); |
| WaitForSingleObject( event, INFINITE ); |
| RestoreThunkLock( mutex_count ); |
| } |
| |
| /*********************************************************************** |
| * VWin32_EventSet (KERNEL.451) |
| * KERNEL_479 (KERNEL.479) |
| */ |
| VOID WINAPI VWin32_EventSet(HANDLE event) |
| { |
| SetEvent( event ); |
| } |
| |
| |
| |
| /*********************************************************************** |
| * CreateMutexA (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateMutexA( SECURITY_ATTRIBUTES *sa, BOOL owner, LPCSTR name ) |
| { |
| WCHAR buffer[MAX_PATH]; |
| |
| if (!name) return CreateMutexW( sa, owner, NULL ); |
| |
| if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH )) |
| { |
| SetLastError( ERROR_FILENAME_EXCED_RANGE ); |
| return 0; |
| } |
| return CreateMutexW( sa, owner, buffer ); |
| } |
| |
| |
| /*********************************************************************** |
| * CreateMutexW (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateMutexW( SECURITY_ATTRIBUTES *sa, BOOL owner, LPCWSTR name ) |
| { |
| HANDLE ret; |
| UNICODE_STRING nameW; |
| OBJECT_ATTRIBUTES attr; |
| NTSTATUS status; |
| |
| attr.Length = sizeof(attr); |
| attr.RootDirectory = 0; |
| attr.ObjectName = NULL; |
| attr.Attributes = (sa && sa->bInheritHandle) ? OBJ_INHERIT : 0; |
| attr.SecurityDescriptor = sa ? sa->lpSecurityDescriptor : NULL; |
| attr.SecurityQualityOfService = NULL; |
| if (name) |
| { |
| RtlInitUnicodeString( &nameW, name ); |
| attr.ObjectName = &nameW; |
| } |
| |
| status = NtCreateMutant( &ret, MUTEX_ALL_ACCESS, &attr, owner ); |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return ret; |
| } |
| |
| |
| /*********************************************************************** |
| * OpenMutexA (KERNEL32.@) |
| */ |
| HANDLE WINAPI OpenMutexA( DWORD access, BOOL inherit, LPCSTR name ) |
| { |
| WCHAR buffer[MAX_PATH]; |
| |
| if (!name) return OpenMutexW( access, inherit, NULL ); |
| |
| if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH )) |
| { |
| SetLastError( ERROR_FILENAME_EXCED_RANGE ); |
| return 0; |
| } |
| return OpenMutexW( access, inherit, buffer ); |
| } |
| |
| |
| /*********************************************************************** |
| * OpenMutexW (KERNEL32.@) |
| */ |
| HANDLE WINAPI OpenMutexW( DWORD access, BOOL inherit, LPCWSTR name ) |
| { |
| HANDLE ret; |
| UNICODE_STRING nameW; |
| OBJECT_ATTRIBUTES attr; |
| NTSTATUS status; |
| |
| if (!is_version_nt()) access = MUTEX_ALL_ACCESS; |
| |
| attr.Length = sizeof(attr); |
| attr.RootDirectory = 0; |
| attr.ObjectName = NULL; |
| attr.Attributes = inherit ? OBJ_INHERIT : 0; |
| attr.SecurityDescriptor = NULL; |
| attr.SecurityQualityOfService = NULL; |
| if (name) |
| { |
| RtlInitUnicodeString( &nameW, name ); |
| attr.ObjectName = &nameW; |
| } |
| |
| status = NtOpenMutant( &ret, access, &attr ); |
| if (status != STATUS_SUCCESS) |
| { |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return 0; |
| } |
| return ret; |
| } |
| |
| |
| /*********************************************************************** |
| * ReleaseMutex (KERNEL32.@) |
| */ |
| BOOL WINAPI ReleaseMutex( HANDLE handle ) |
| { |
| NTSTATUS status; |
| |
| status = NtReleaseMutant(handle, NULL); |
| if (status != STATUS_SUCCESS) |
| { |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return FALSE; |
| } |
| return TRUE; |
| } |
| |
| |
| /* |
| * Semaphores |
| */ |
| |
| |
| /*********************************************************************** |
| * CreateSemaphoreA (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateSemaphoreA( SECURITY_ATTRIBUTES *sa, LONG initial, LONG max, LPCSTR name ) |
| { |
| WCHAR buffer[MAX_PATH]; |
| |
| if (!name) return CreateSemaphoreW( sa, initial, max, NULL ); |
| |
| if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH )) |
| { |
| SetLastError( ERROR_FILENAME_EXCED_RANGE ); |
| return 0; |
| } |
| return CreateSemaphoreW( sa, initial, max, buffer ); |
| } |
| |
| |
| /*********************************************************************** |
| * CreateSemaphoreW (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateSemaphoreW( SECURITY_ATTRIBUTES *sa, LONG initial, |
| LONG max, LPCWSTR name ) |
| { |
| HANDLE ret; |
| UNICODE_STRING nameW; |
| OBJECT_ATTRIBUTES attr; |
| NTSTATUS status; |
| |
| attr.Length = sizeof(attr); |
| attr.RootDirectory = 0; |
| attr.ObjectName = NULL; |
| attr.Attributes = (sa && sa->bInheritHandle) ? OBJ_INHERIT : 0; |
| attr.SecurityDescriptor = sa ? sa->lpSecurityDescriptor : NULL; |
| attr.SecurityQualityOfService = NULL; |
| if (name) |
| { |
| RtlInitUnicodeString( &nameW, name ); |
| attr.ObjectName = &nameW; |
| } |
| |
| status = NtCreateSemaphore( &ret, SEMAPHORE_ALL_ACCESS, &attr, initial, max ); |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return ret; |
| } |
| |
| |
| /*********************************************************************** |
| * OpenSemaphoreA (KERNEL32.@) |
| */ |
| HANDLE WINAPI OpenSemaphoreA( DWORD access, BOOL inherit, LPCSTR name ) |
| { |
| WCHAR buffer[MAX_PATH]; |
| |
| if (!name) return OpenSemaphoreW( access, inherit, NULL ); |
| |
| if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH )) |
| { |
| SetLastError( ERROR_FILENAME_EXCED_RANGE ); |
| return 0; |
| } |
| return OpenSemaphoreW( access, inherit, buffer ); |
| } |
| |
| |
| /*********************************************************************** |
| * OpenSemaphoreW (KERNEL32.@) |
| */ |
| HANDLE WINAPI OpenSemaphoreW( DWORD access, BOOL inherit, LPCWSTR name ) |
| { |
| HANDLE ret; |
| UNICODE_STRING nameW; |
| OBJECT_ATTRIBUTES attr; |
| NTSTATUS status; |
| |
| if (!is_version_nt()) access = SEMAPHORE_ALL_ACCESS; |
| |
| attr.Length = sizeof(attr); |
| attr.RootDirectory = 0; |
| attr.ObjectName = NULL; |
| attr.Attributes = inherit ? OBJ_INHERIT : 0; |
| attr.SecurityDescriptor = NULL; |
| attr.SecurityQualityOfService = NULL; |
| if (name) |
| { |
| RtlInitUnicodeString( &nameW, name ); |
| attr.ObjectName = &nameW; |
| } |
| |
| status = NtOpenSemaphore( &ret, access, &attr ); |
| if (status != STATUS_SUCCESS) |
| { |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return 0; |
| } |
| return ret; |
| } |
| |
| |
| /*********************************************************************** |
| * ReleaseSemaphore (KERNEL32.@) |
| */ |
| BOOL WINAPI ReleaseSemaphore( HANDLE handle, LONG count, LONG *previous ) |
| { |
| NTSTATUS status = NtReleaseSemaphore( handle, count, previous ); |
| if (status) SetLastError( RtlNtStatusToDosError(status) ); |
| return !status; |
| } |
| |
| |
| /* |
| * Timers |
| */ |
| |
| |
| /*********************************************************************** |
| * CreateWaitableTimerA (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateWaitableTimerA( SECURITY_ATTRIBUTES *sa, BOOL manual, LPCSTR name ) |
| { |
| WCHAR buffer[MAX_PATH]; |
| |
| if (!name) return CreateWaitableTimerW( sa, manual, NULL ); |
| |
| if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH )) |
| { |
| SetLastError( ERROR_FILENAME_EXCED_RANGE ); |
| return 0; |
| } |
| return CreateWaitableTimerW( sa, manual, buffer ); |
| } |
| |
| |
| /*********************************************************************** |
| * CreateWaitableTimerW (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateWaitableTimerW( SECURITY_ATTRIBUTES *sa, BOOL manual, LPCWSTR name ) |
| { |
| HANDLE handle; |
| NTSTATUS status; |
| UNICODE_STRING nameW; |
| OBJECT_ATTRIBUTES attr; |
| |
| attr.Length = sizeof(attr); |
| attr.RootDirectory = 0; |
| attr.ObjectName = NULL; |
| attr.Attributes = (sa && sa->bInheritHandle) ? OBJ_INHERIT : 0; |
| attr.SecurityDescriptor = sa ? sa->lpSecurityDescriptor : NULL; |
| attr.SecurityQualityOfService = NULL; |
| if (name) |
| { |
| RtlInitUnicodeString( &nameW, name ); |
| attr.ObjectName = &nameW; |
| } |
| |
| status = NtCreateTimer(&handle, TIMER_ALL_ACCESS, &attr, |
| manual ? NotificationTimer : SynchronizationTimer); |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return handle; |
| } |
| |
| |
| /*********************************************************************** |
| * OpenWaitableTimerA (KERNEL32.@) |
| */ |
| HANDLE WINAPI OpenWaitableTimerA( DWORD access, BOOL inherit, LPCSTR name ) |
| { |
| WCHAR buffer[MAX_PATH]; |
| |
| if (!name) return OpenWaitableTimerW( access, inherit, NULL ); |
| |
| if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH )) |
| { |
| SetLastError( ERROR_FILENAME_EXCED_RANGE ); |
| return 0; |
| } |
| return OpenWaitableTimerW( access, inherit, buffer ); |
| } |
| |
| |
| /*********************************************************************** |
| * OpenWaitableTimerW (KERNEL32.@) |
| */ |
| HANDLE WINAPI OpenWaitableTimerW( DWORD access, BOOL inherit, LPCWSTR name ) |
| { |
| HANDLE handle; |
| UNICODE_STRING nameW; |
| OBJECT_ATTRIBUTES attr; |
| NTSTATUS status; |
| |
| if (!is_version_nt()) access = TIMER_ALL_ACCESS; |
| |
| attr.Length = sizeof(attr); |
| attr.RootDirectory = 0; |
| attr.ObjectName = NULL; |
| attr.Attributes = inherit ? OBJ_INHERIT : 0; |
| attr.SecurityDescriptor = NULL; |
| attr.SecurityQualityOfService = NULL; |
| if (name) |
| { |
| RtlInitUnicodeString( &nameW, name ); |
| attr.ObjectName = &nameW; |
| } |
| |
| status = NtOpenTimer(&handle, access, &attr); |
| if (status != STATUS_SUCCESS) |
| { |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return 0; |
| } |
| return handle; |
| } |
| |
| |
| /*********************************************************************** |
| * SetWaitableTimer (KERNEL32.@) |
| */ |
| BOOL WINAPI SetWaitableTimer( HANDLE handle, const LARGE_INTEGER *when, LONG period, |
| PTIMERAPCROUTINE callback, LPVOID arg, BOOL resume ) |
| { |
| NTSTATUS status = NtSetTimer(handle, when, callback, arg, resume, period, NULL); |
| |
| if (status != STATUS_SUCCESS) |
| { |
| SetLastError( RtlNtStatusToDosError(status) ); |
| if (status != STATUS_TIMER_RESUME_IGNORED) return FALSE; |
| } |
| return TRUE; |
| } |
| |
| |
| /*********************************************************************** |
| * CancelWaitableTimer (KERNEL32.@) |
| */ |
| BOOL WINAPI CancelWaitableTimer( HANDLE handle ) |
| { |
| NTSTATUS status; |
| |
| status = NtCancelTimer(handle, NULL); |
| if (status != STATUS_SUCCESS) |
| { |
| SetLastError( RtlNtStatusToDosError(status) ); |
| return FALSE; |
| } |
| return TRUE; |
| } |
| |
| |
| /*********************************************************************** |
| * CreateTimerQueue (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateTimerQueue(void) |
| { |
| FIXME("stub\n"); |
| SetLastError(ERROR_CALL_NOT_IMPLEMENTED); |
| return NULL; |
| } |
| |
| |
| /*********************************************************************** |
| * DeleteTimerQueueEx (KERNEL32.@) |
| */ |
| BOOL WINAPI DeleteTimerQueueEx(HANDLE TimerQueue, HANDLE CompletionEvent) |
| { |
| FIXME("(%p, %p): stub\n", TimerQueue, CompletionEvent); |
| SetLastError(ERROR_CALL_NOT_IMPLEMENTED); |
| return 0; |
| } |
| |
| /*********************************************************************** |
| * CreateTimerQueueTimer (KERNEL32.@) |
| * |
| * Creates a timer-queue timer. This timer expires at the specified due |
| * time (in ms), then after every specified period (in ms). When the timer |
| * expires, the callback function is called. |
| * |
| * RETURNS |
| * nonzero on success or zero on faillure |
| * |
| * BUGS |
| * Unimplemented |
| */ |
| BOOL WINAPI CreateTimerQueueTimer( PHANDLE phNewTimer, HANDLE TimerQueue, |
| WAITORTIMERCALLBACK Callback, PVOID Parameter, |
| DWORD DueTime, DWORD Period, ULONG Flags ) |
| { |
| FIXME("stub\n"); |
| SetLastError(ERROR_CALL_NOT_IMPLEMENTED); |
| return TRUE; |
| } |
| |
| /*********************************************************************** |
| * DeleteTimerQueueTimer (KERNEL32.@) |
| * |
| * Cancels a timer-queue timer. |
| * |
| * RETURNS |
| * nonzero on success or zero on faillure |
| * |
| * BUGS |
| * Unimplemented |
| */ |
| BOOL WINAPI DeleteTimerQueueTimer( HANDLE TimerQueue, HANDLE Timer, |
| HANDLE CompletionEvent ) |
| { |
| FIXME("stub\n"); |
| SetLastError(ERROR_CALL_NOT_IMPLEMENTED); |
| return TRUE; |
| } |
| |
| |
| /* |
| * Pipes |
| */ |
| |
| |
| /*********************************************************************** |
| * CreateNamedPipeA (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateNamedPipeA( LPCSTR name, DWORD dwOpenMode, |
| DWORD dwPipeMode, DWORD nMaxInstances, |
| DWORD nOutBufferSize, DWORD nInBufferSize, |
| DWORD nDefaultTimeOut, LPSECURITY_ATTRIBUTES attr ) |
| { |
| WCHAR buffer[MAX_PATH]; |
| |
| if (!name) return CreateNamedPipeW( NULL, dwOpenMode, dwPipeMode, nMaxInstances, |
| nOutBufferSize, nInBufferSize, nDefaultTimeOut, attr ); |
| |
| if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH )) |
| { |
| SetLastError( ERROR_FILENAME_EXCED_RANGE ); |
| return INVALID_HANDLE_VALUE; |
| } |
| return CreateNamedPipeW( buffer, dwOpenMode, dwPipeMode, nMaxInstances, |
| nOutBufferSize, nInBufferSize, nDefaultTimeOut, attr ); |
| } |
| |
| |
| /*********************************************************************** |
| * CreateNamedPipeW (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateNamedPipeW( LPCWSTR name, DWORD dwOpenMode, |
| DWORD dwPipeMode, DWORD nMaxInstances, |
| DWORD nOutBufferSize, DWORD nInBufferSize, |
| DWORD nDefaultTimeOut, LPSECURITY_ATTRIBUTES attr ) |
| { |
| HANDLE ret; |
| UNICODE_STRING nt_name; |
| static const WCHAR leadin[] = {'\\','?','?','\\','P','I','P','E','\\'}; |
| |
| TRACE("(%s, %#08lx, %#08lx, %ld, %ld, %ld, %ld, %p)\n", |
| debugstr_w(name), dwOpenMode, dwPipeMode, nMaxInstances, |
| nOutBufferSize, nInBufferSize, nDefaultTimeOut, attr ); |
| |
| if (!RtlDosPathNameToNtPathName_U( name, &nt_name, NULL, NULL )) |
| { |
| SetLastError( ERROR_PATH_NOT_FOUND ); |
| return INVALID_HANDLE_VALUE; |
| } |
| if (nt_name.Length >= MAX_PATH * sizeof(WCHAR) ) |
| { |
| SetLastError( ERROR_FILENAME_EXCED_RANGE ); |
| RtlFreeUnicodeString( &nt_name ); |
| return INVALID_HANDLE_VALUE; |
| } |
| if (nt_name.Length < sizeof(leadin) || |
| strncmpiW( nt_name.Buffer, leadin, sizeof(leadin)/sizeof(leadin[0]))) |
| { |
| SetLastError( ERROR_INVALID_NAME ); |
| RtlFreeUnicodeString( &nt_name ); |
| return INVALID_HANDLE_VALUE; |
| } |
| SERVER_START_REQ( create_named_pipe ) |
| { |
| req->openmode = dwOpenMode; |
| req->pipemode = dwPipeMode; |
| req->maxinstances = nMaxInstances; |
| req->outsize = nOutBufferSize; |
| req->insize = nInBufferSize; |
| req->timeout = nDefaultTimeOut; |
| req->inherit = (attr && (attr->nLength>=sizeof(*attr)) && attr->bInheritHandle); |
| wine_server_add_data( req, nt_name.Buffer + 4, nt_name.Length - 4*sizeof(WCHAR) ); |
| SetLastError(0); |
| if (!wine_server_call_err( req )) ret = reply->handle; |
| else ret = INVALID_HANDLE_VALUE; |
| } |
| SERVER_END_REQ; |
| RtlFreeUnicodeString( &nt_name ); |
| return ret; |
| } |
| |
| |
| /*********************************************************************** |
| * PeekNamedPipe (KERNEL32.@) |
| */ |
| BOOL WINAPI PeekNamedPipe( HANDLE hPipe, LPVOID lpvBuffer, DWORD cbBuffer, |
| LPDWORD lpcbRead, LPDWORD lpcbAvail, LPDWORD lpcbMessage ) |
| { |
| #ifdef FIONREAD |
| int avail=0, fd, ret, flags; |
| |
| ret = wine_server_handle_to_fd( hPipe, GENERIC_READ, &fd, &flags ); |
| if (ret) |
| { |
| SetLastError( RtlNtStatusToDosError(ret) ); |
| return FALSE; |
| } |
| if (flags & FD_FLAG_RECV_SHUTDOWN) |
| { |
| wine_server_release_fd( hPipe, fd ); |
| SetLastError ( ERROR_PIPE_NOT_CONNECTED ); |
| return FALSE; |
| } |
| |
| if (ioctl(fd,FIONREAD, &avail ) != 0) |
| { |
| TRACE("FIONREAD failed reason: %s\n",strerror(errno)); |
| wine_server_release_fd( hPipe, fd ); |
| return FALSE; |
| } |
| if (!avail) /* check for closed pipe */ |
| { |
| struct pollfd pollfd; |
| pollfd.fd = fd; |
| pollfd.events = POLLIN; |
| pollfd.revents = 0; |
| switch (poll( &pollfd, 1, 0 )) |
| { |
| case 0: |
| break; |
| case 1: /* got something */ |
| if (!(pollfd.revents & (POLLHUP | POLLERR))) break; |
| TRACE("POLLHUP | POLLERR\n"); |
| /* fall through */ |
| case -1: |
| wine_server_release_fd( hPipe, fd ); |
| SetLastError(ERROR_BROKEN_PIPE); |
| return FALSE; |
| } |
| } |
| TRACE(" 0x%08x bytes available\n", avail ); |
| ret = TRUE; |
| if (lpcbAvail) |
| *lpcbAvail = avail; |
| if (lpcbRead) |
| *lpcbRead = 0; |
| if (avail && lpvBuffer) |
| { |
| int readbytes = (avail < cbBuffer) ? avail : cbBuffer; |
| readbytes = recv(fd, lpvBuffer, readbytes, MSG_PEEK); |
| if (readbytes < 0) |
| { |
| WARN("failed to peek socket (%d)\n", errno); |
| ret = FALSE; |
| } |
| else if (lpcbRead) |
| *lpcbRead = readbytes; |
| } |
| wine_server_release_fd( hPipe, fd ); |
| return ret; |
| #endif /* defined(FIONREAD) */ |
| |
| SetLastError(ERROR_CALL_NOT_IMPLEMENTED); |
| FIXME("function not implemented\n"); |
| return FALSE; |
| } |
| |
| /*********************************************************************** |
| * SYNC_CompletePipeOverlapped (Internal) |
| */ |
| static void CALLBACK SYNC_CompletePipeOverlapped (LPOVERLAPPED overlapped, DWORD result) |
| { |
| TRACE("for %p result %08lx\n",overlapped,result); |
| if(!overlapped) |
| return; |
| overlapped->Internal = result; |
| SetEvent(overlapped->hEvent); |
| } |
| |
| |
| /*********************************************************************** |
| * WaitNamedPipeA (KERNEL32.@) |
| */ |
| BOOL WINAPI WaitNamedPipeA (LPCSTR name, DWORD nTimeOut) |
| { |
| WCHAR buffer[MAX_PATH]; |
| |
| if (!name) return WaitNamedPipeW( NULL, nTimeOut ); |
| |
| if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH )) |
| { |
| SetLastError( ERROR_FILENAME_EXCED_RANGE ); |
| return 0; |
| } |
| return WaitNamedPipeW( buffer, nTimeOut ); |
| } |
| |
| |
| /*********************************************************************** |
| * WaitNamedPipeW (KERNEL32.@) |
| */ |
| BOOL WINAPI WaitNamedPipeW (LPCWSTR name, DWORD nTimeOut) |
| { |
| BOOL ret; |
| OVERLAPPED ov; |
| UNICODE_STRING nt_name; |
| static const WCHAR leadin[] = {'\\','?','?','\\','P','I','P','E','\\'}; |
| |
| TRACE("%s 0x%08lx\n",debugstr_w(name),nTimeOut); |
| |
| if (!RtlDosPathNameToNtPathName_U( name, &nt_name, NULL, NULL )) |
| return FALSE; |
| |
| if (nt_name.Length >= MAX_PATH * sizeof(WCHAR) ) |
| { |
| RtlFreeUnicodeString( &nt_name ); |
| return FALSE; |
| } |
| if (nt_name.Length < sizeof(leadin) || |
| strncmpiW( nt_name.Buffer, leadin, sizeof(leadin)/sizeof(leadin[0]))) |
| { |
| RtlFreeUnicodeString( &nt_name ); |
| return FALSE; |
| } |
| |
| memset(&ov,0,sizeof(ov)); |
| ov.hEvent = CreateEventW( NULL, 0, 0, NULL ); |
| if (!ov.hEvent) |
| return FALSE; |
| |
| SERVER_START_REQ( wait_named_pipe ) |
| { |
| req->timeout = nTimeOut; |
| req->overlapped = &ov; |
| req->func = SYNC_CompletePipeOverlapped; |
| wine_server_add_data( req, nt_name.Buffer + 4, nt_name.Length - 4*sizeof(WCHAR) ); |
| ret = !wine_server_call_err( req ); |
| } |
| SERVER_END_REQ; |
| |
| RtlFreeUnicodeString( &nt_name ); |
| |
| if(ret) |
| { |
| if (WAIT_OBJECT_0==WaitForSingleObject(ov.hEvent,INFINITE)) |
| { |
| SetLastError(RtlNtStatusToDosError(ov.Internal)); |
| ret = (ov.Internal==STATUS_SUCCESS); |
| } |
| } |
| CloseHandle(ov.hEvent); |
| return ret; |
| } |
| |
| |
| /*********************************************************************** |
| * SYNC_ConnectNamedPipe (Internal) |
| */ |
| static BOOL SYNC_ConnectNamedPipe(HANDLE hPipe, LPOVERLAPPED overlapped) |
| { |
| BOOL ret; |
| |
| if(!overlapped) |
| return FALSE; |
| |
| overlapped->Internal = STATUS_PENDING; |
| |
| SERVER_START_REQ( connect_named_pipe ) |
| { |
| req->handle = hPipe; |
| req->overlapped = overlapped; |
| req->func = SYNC_CompletePipeOverlapped; |
| ret = !wine_server_call_err( req ); |
| } |
| SERVER_END_REQ; |
| |
| return ret; |
| } |
| |
| /*********************************************************************** |
| * ConnectNamedPipe (KERNEL32.@) |
| */ |
| BOOL WINAPI ConnectNamedPipe(HANDLE hPipe, LPOVERLAPPED overlapped) |
| { |
| OVERLAPPED ov; |
| BOOL ret; |
| |
| TRACE("(%p,%p)\n",hPipe, overlapped); |
| |
| if(overlapped) |
| { |
| if(SYNC_ConnectNamedPipe(hPipe,overlapped)) |
| SetLastError( ERROR_IO_PENDING ); |
| return FALSE; |
| } |
| |
| memset(&ov,0,sizeof(ov)); |
| ov.hEvent = CreateEventW(NULL,0,0,NULL); |
| if (!ov.hEvent) |
| return FALSE; |
| |
| ret=SYNC_ConnectNamedPipe(hPipe, &ov); |
| if(ret) |
| { |
| if (WAIT_OBJECT_0==WaitForSingleObject(ov.hEvent,INFINITE)) |
| { |
| SetLastError(RtlNtStatusToDosError(ov.Internal)); |
| ret = (ov.Internal==STATUS_SUCCESS); |
| } |
| } |
| |
| CloseHandle(ov.hEvent); |
| |
| return ret; |
| } |
| |
| /*********************************************************************** |
| * DisconnectNamedPipe (KERNEL32.@) |
| */ |
| BOOL WINAPI DisconnectNamedPipe(HANDLE hPipe) |
| { |
| BOOL ret; |
| |
| TRACE("(%p)\n",hPipe); |
| |
| SERVER_START_REQ( disconnect_named_pipe ) |
| { |
| req->handle = hPipe; |
| ret = !wine_server_call_err( req ); |
| if (ret && reply->fd != -1) close( reply->fd ); |
| } |
| SERVER_END_REQ; |
| |
| return ret; |
| } |
| |
| /*********************************************************************** |
| * TransactNamedPipe (KERNEL32.@) |
| * |
| * BUGS |
| * should be done as a single operation in the wineserver or kernel |
| */ |
| BOOL WINAPI TransactNamedPipe( |
| HANDLE handle, LPVOID lpInput, DWORD dwInputSize, LPVOID lpOutput, |
| DWORD dwOutputSize, LPDWORD lpBytesRead, LPOVERLAPPED lpOverlapped) |
| { |
| BOOL r; |
| DWORD count; |
| |
| TRACE("%p %p %ld %p %ld %p %p\n", |
| handle, lpInput, dwInputSize, lpOutput, |
| dwOutputSize, lpBytesRead, lpOverlapped); |
| |
| if (lpOverlapped) |
| { |
| FIXME("Doesn't support overlapped operation as yet\n"); |
| return FALSE; |
| } |
| |
| r = WriteFile(handle, lpOutput, dwOutputSize, &count, NULL); |
| if (r) |
| r = ReadFile(handle, lpInput, dwInputSize, lpBytesRead, NULL); |
| |
| return r; |
| } |
| |
| /*********************************************************************** |
| * GetNamedPipeInfo (KERNEL32.@) |
| */ |
| BOOL WINAPI GetNamedPipeInfo( |
| HANDLE hNamedPipe, LPDWORD lpFlags, LPDWORD lpOutputBufferSize, |
| LPDWORD lpInputBufferSize, LPDWORD lpMaxInstances) |
| { |
| BOOL ret; |
| |
| TRACE("%p %p %p %p %p\n", hNamedPipe, lpFlags, |
| lpOutputBufferSize, lpInputBufferSize, lpMaxInstances); |
| |
| SERVER_START_REQ( get_named_pipe_info ) |
| { |
| req->handle = hNamedPipe; |
| ret = !wine_server_call_err( req ); |
| if(lpFlags) *lpFlags = reply->flags; |
| if(lpOutputBufferSize) *lpOutputBufferSize = reply->outsize; |
| if(lpInputBufferSize) *lpInputBufferSize = reply->outsize; |
| if(lpMaxInstances) *lpMaxInstances = reply->maxinstances; |
| } |
| SERVER_END_REQ; |
| |
| return ret; |
| } |
| |
| /*********************************************************************** |
| * GetNamedPipeHandleStateA (KERNEL32.@) |
| */ |
| BOOL WINAPI GetNamedPipeHandleStateA( |
| HANDLE hNamedPipe, LPDWORD lpState, LPDWORD lpCurInstances, |
| LPDWORD lpMaxCollectionCount, LPDWORD lpCollectDataTimeout, |
| LPSTR lpUsername, DWORD nUsernameMaxSize) |
| { |
| FIXME("%p %p %p %p %p %p %ld\n", |
| hNamedPipe, lpState, lpCurInstances, |
| lpMaxCollectionCount, lpCollectDataTimeout, |
| lpUsername, nUsernameMaxSize); |
| |
| return FALSE; |
| } |
| |
| /*********************************************************************** |
| * GetNamedPipeHandleStateW (KERNEL32.@) |
| */ |
| BOOL WINAPI GetNamedPipeHandleStateW( |
| HANDLE hNamedPipe, LPDWORD lpState, LPDWORD lpCurInstances, |
| LPDWORD lpMaxCollectionCount, LPDWORD lpCollectDataTimeout, |
| LPWSTR lpUsername, DWORD nUsernameMaxSize) |
| { |
| FIXME("%p %p %p %p %p %p %ld\n", |
| hNamedPipe, lpState, lpCurInstances, |
| lpMaxCollectionCount, lpCollectDataTimeout, |
| lpUsername, nUsernameMaxSize); |
| |
| return FALSE; |
| } |
| |
| /*********************************************************************** |
| * SetNamedPipeHandleState (KERNEL32.@) |
| */ |
| BOOL WINAPI SetNamedPipeHandleState( |
| HANDLE hNamedPipe, LPDWORD lpMode, LPDWORD lpMaxCollectionCount, |
| LPDWORD lpCollectDataTimeout) |
| { |
| FIXME("%p %p %p %p\n", |
| hNamedPipe, lpMode, lpMaxCollectionCount, lpCollectDataTimeout); |
| return FALSE; |
| } |
| |
| /*********************************************************************** |
| * CallNamedPipeA (KERNEL32.@) |
| */ |
| BOOL WINAPI CallNamedPipeA( |
| LPCSTR lpNamedPipeName, LPVOID lpInput, DWORD dwInputSize, |
| LPVOID lpOutput, DWORD dwOutputSize, |
| LPDWORD lpBytesRead, DWORD nTimeout) |
| { |
| DWORD len; |
| LPWSTR str = NULL; |
| BOOL ret; |
| |
| TRACE("%s %p %ld %p %ld %p %ld\n", |
| debugstr_a(lpNamedPipeName), lpInput, dwInputSize, |
| lpOutput, dwOutputSize, lpBytesRead, nTimeout); |
| |
| if( lpNamedPipeName ) |
| { |
| len = MultiByteToWideChar( CP_ACP, 0, lpNamedPipeName, -1, NULL, 0 ); |
| str = HeapAlloc( GetProcessHeap(), 0, len*sizeof(WCHAR) ); |
| MultiByteToWideChar( CP_ACP, 0, lpNamedPipeName, -1, str, len ); |
| } |
| ret = CallNamedPipeW( str, lpInput, dwInputSize, lpOutput, |
| dwOutputSize, lpBytesRead, nTimeout ); |
| if( lpNamedPipeName ) |
| HeapFree( GetProcessHeap(), 0, str ); |
| |
| return ret; |
| } |
| |
| /*********************************************************************** |
| * CallNamedPipeW (KERNEL32.@) |
| */ |
| BOOL WINAPI CallNamedPipeW( |
| LPCWSTR lpNamedPipeName, LPVOID lpInput, DWORD lpInputSize, |
| LPVOID lpOutput, DWORD lpOutputSize, |
| LPDWORD lpBytesRead, DWORD nTimeout) |
| { |
| FIXME("%s %p %ld %p %ld %p %ld\n", |
| debugstr_w(lpNamedPipeName), lpInput, lpInputSize, |
| lpOutput, lpOutputSize, lpBytesRead, nTimeout); |
| return FALSE; |
| } |
| |
| /****************************************************************** |
| * CreatePipe (KERNEL32.@) |
| * |
| */ |
| BOOL WINAPI CreatePipe( PHANDLE hReadPipe, PHANDLE hWritePipe, |
| LPSECURITY_ATTRIBUTES sa, DWORD size ) |
| { |
| static unsigned index = 0; |
| WCHAR name[64]; |
| HANDLE hr, hw; |
| unsigned in_index = index; |
| |
| *hReadPipe = *hWritePipe = INVALID_HANDLE_VALUE; |
| /* generate a unique pipe name (system wide) */ |
| do |
| { |
| static const WCHAR nameFmt[] = { '\\','\\','.','\\','p','i','p','e', |
| '\\','W','i','n','3','2','.','P','i','p','e','s','.','%','0','8','l', |
| 'u','.','%','0','8','u','\0' }; |
| snprintfW(name, sizeof(name) / sizeof(name[0]), nameFmt, |
| GetCurrentProcessId(), ++index); |
| hr = CreateNamedPipeW(name, PIPE_ACCESS_INBOUND, |
| PIPE_TYPE_BYTE | PIPE_WAIT, 1, size, size, |
| NMPWAIT_USE_DEFAULT_WAIT, sa); |
| } while (hr == INVALID_HANDLE_VALUE && index != in_index); |
| /* from completion sakeness, I think system resources might be exhausted before this happens !! */ |
| if (hr == INVALID_HANDLE_VALUE) return FALSE; |
| |
| hw = CreateFileW(name, GENERIC_WRITE, 0, sa, OPEN_EXISTING, 0, 0); |
| if (hw == INVALID_HANDLE_VALUE) |
| { |
| CloseHandle(hr); |
| return FALSE; |
| } |
| |
| *hReadPipe = hr; |
| *hWritePipe = hw; |
| return TRUE; |
| } |
| |
| |
| /****************************************************************************** |
| * CreateMailslotA [KERNEL32.@] |
| */ |
| HANDLE WINAPI CreateMailslotA( LPCSTR lpName, DWORD nMaxMessageSize, |
| DWORD lReadTimeout, LPSECURITY_ATTRIBUTES sa ) |
| { |
| DWORD len; |
| HANDLE handle; |
| LPWSTR name = NULL; |
| |
| TRACE("%s %ld %ld %p\n", debugstr_a(lpName), |
| nMaxMessageSize, lReadTimeout, sa); |
| |
| if( lpName ) |
| { |
| len = MultiByteToWideChar( CP_ACP, 0, lpName, -1, NULL, 0 ); |
| name = HeapAlloc( GetProcessHeap(), 0, len*sizeof(WCHAR) ); |
| MultiByteToWideChar( CP_ACP, 0, lpName, -1, name, len ); |
| } |
| |
| handle = CreateMailslotW( name, nMaxMessageSize, lReadTimeout, sa ); |
| |
| HeapFree( GetProcessHeap(), 0, name ); |
| |
| return handle; |
| } |
| |
| |
| /****************************************************************************** |
| * CreateMailslotW [KERNEL32.@] |
| * |
| * Create a mailslot with specified name. |
| * |
| * PARAMS |
| * lpName [I] Pointer to string for mailslot name |
| * nMaxMessageSize [I] Maximum message size |
| * lReadTimeout [I] Milliseconds before read time-out |
| * sa [I] Pointer to security structure |
| * |
| * RETURNS |
| * Success: Handle to mailslot |
| * Failure: INVALID_HANDLE_VALUE |
| */ |
| HANDLE WINAPI CreateMailslotW( LPCWSTR lpName, DWORD nMaxMessageSize, |
| DWORD lReadTimeout, LPSECURITY_ATTRIBUTES sa ) |
| { |
| FIXME("(%s,%ld,%ld,%p): stub\n", debugstr_w(lpName), |
| nMaxMessageSize, lReadTimeout, sa); |
| SetLastError(ERROR_CALL_NOT_IMPLEMENTED); |
| return INVALID_HANDLE_VALUE; |
| } |
| |
| |
| /****************************************************************************** |
| * GetMailslotInfo [KERNEL32.@] |
| * |
| * Retrieve information about a mailslot. |
| * |
| * PARAMS |
| * hMailslot [I] Mailslot handle |
| * lpMaxMessageSize [O] Address of maximum message size |
| * lpNextSize [O] Address of size of next message |
| * lpMessageCount [O] Address of number of messages |
| * lpReadTimeout [O] Address of read time-out |
| * |
| * RETURNS |
| * Success: TRUE |
| * Failure: FALSE |
| */ |
| BOOL WINAPI GetMailslotInfo( HANDLE hMailslot, LPDWORD lpMaxMessageSize, |
| LPDWORD lpNextSize, LPDWORD lpMessageCount, |
| LPDWORD lpReadTimeout ) |
| { |
| FIXME("(%p): stub\n",hMailslot); |
| SetLastError(ERROR_CALL_NOT_IMPLEMENTED); |
| return FALSE; |
| } |
| |
| |
| /****************************************************************************** |
| * SetMailslotInfo [KERNEL32.@] |
| * |
| * Set the read timeout of a mailslot. |
| * |
| * PARAMS |
| * hMailslot [I] Mailslot handle |
| * dwReadTimeout [I] Timeout in milliseconds. |
| * |
| * RETURNS |
| * Success: TRUE |
| * Failure: FALSE |
| */ |
| BOOL WINAPI SetMailslotInfo( HANDLE hMailslot, DWORD dwReadTimeout) |
| { |
| FIXME("%p %ld: stub\n", hMailslot, dwReadTimeout); |
| SetLastError(ERROR_CALL_NOT_IMPLEMENTED); |
| return FALSE; |
| } |
| |
| |
| /****************************************************************************** |
| * CreateIoCompletionPort (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateIoCompletionPort(HANDLE hFileHandle, HANDLE hExistingCompletionPort, |
| ULONG_PTR CompletionKey, DWORD dwNumberOfConcurrentThreads) |
| { |
| FIXME("(%p, %p, %08lx, %08lx): stub.\n", |
| hFileHandle, hExistingCompletionPort, CompletionKey, dwNumberOfConcurrentThreads); |
| return NULL; |
| } |
| |
| |
| /****************************************************************************** |
| * GetQueuedCompletionStatus (KERNEL32.@) |
| */ |
| BOOL WINAPI GetQueuedCompletionStatus( HANDLE CompletionPort, LPDWORD lpNumberOfBytesTransferred, |
| PULONG_PTR pCompletionKey, LPOVERLAPPED *lpOverlapped, |
| DWORD dwMilliseconds ) |
| { |
| FIXME("(%p,%p,%p,%p,%ld), stub!\n", |
| CompletionPort,lpNumberOfBytesTransferred,pCompletionKey,lpOverlapped,dwMilliseconds); |
| SetLastError(ERROR_CALL_NOT_IMPLEMENTED); |
| return FALSE; |
| } |
| |
| /****************************************************************************** |
| * CreateJobObjectW (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateJobObjectW( LPSECURITY_ATTRIBUTES attr, LPCWSTR name ) |
| { |
| FIXME("%p %s\n", attr, debugstr_w(name) ); |
| SetLastError(ERROR_CALL_NOT_IMPLEMENTED); |
| return 0; |
| } |
| |
| /****************************************************************************** |
| * CreateJobObjectA (KERNEL32.@) |
| */ |
| HANDLE WINAPI CreateJobObjectA( LPSECURITY_ATTRIBUTES attr, LPCSTR name ) |
| { |
| LPWSTR str = NULL; |
| UINT len; |
| HANDLE r; |
| |
| TRACE("%p %s\n", attr, debugstr_a(name) ); |
| |
| if( name ) |
| { |
| len = MultiByteToWideChar( CP_ACP, 0, name, -1, NULL, 0 ); |
| str = HeapAlloc( GetProcessHeap(), 0, len*sizeof(WCHAR) ); |
| if( !str ) |
| { |
| SetLastError( ERROR_OUTOFMEMORY ); |
| return 0; |
| } |
| len = MultiByteToWideChar( CP_ACP, 0, name, -1, str, len ); |
| } |
| |
| r = CreateJobObjectW( attr, str ); |
| |
| HeapFree( GetProcessHeap(), 0, str ); |
| |
| return r; |
| } |
| |
| /****************************************************************************** |
| * AssignProcessToJobObject (KERNEL32.@) |
| */ |
| BOOL WINAPI AssignProcessToJobObject( HANDLE hJob, HANDLE hProcess ) |
| { |
| FIXME("%p %p\n", hJob, hProcess); |
| return TRUE; |
| } |
| |
| #ifdef __i386__ |
| |
| /*********************************************************************** |
| * InterlockedCompareExchange (KERNEL32.@) |
| */ |
| /* LONG WINAPI InterlockedCompareExchange( PLONG dest, LONG xchg, LONG compare ); */ |
| __ASM_GLOBAL_FUNC(InterlockedCompareExchange, |
| "movl 12(%esp),%eax\n\t" |
| "movl 8(%esp),%ecx\n\t" |
| "movl 4(%esp),%edx\n\t" |
| "lock; cmpxchgl %ecx,(%edx)\n\t" |
| "ret $12") |
| |
| /*********************************************************************** |
| * InterlockedExchange (KERNEL32.@) |
| */ |
| /* LONG WINAPI InterlockedExchange( PLONG dest, LONG val ); */ |
| __ASM_GLOBAL_FUNC(InterlockedExchange, |
| "movl 8(%esp),%eax\n\t" |
| "movl 4(%esp),%edx\n\t" |
| "lock; xchgl %eax,(%edx)\n\t" |
| "ret $8") |
| |
| /*********************************************************************** |
| * InterlockedExchangeAdd (KERNEL32.@) |
| */ |
| /* LONG WINAPI InterlockedExchangeAdd( PLONG dest, LONG incr ); */ |
| __ASM_GLOBAL_FUNC(InterlockedExchangeAdd, |
| "movl 8(%esp),%eax\n\t" |
| "movl 4(%esp),%edx\n\t" |
| "lock; xaddl %eax,(%edx)\n\t" |
| "ret $8") |
| |
| /*********************************************************************** |
| * InterlockedIncrement (KERNEL32.@) |
| */ |
| /* LONG WINAPI InterlockedIncrement( PLONG dest ); */ |
| __ASM_GLOBAL_FUNC(InterlockedIncrement, |
| "movl 4(%esp),%edx\n\t" |
| "movl $1,%eax\n\t" |
| "lock; xaddl %eax,(%edx)\n\t" |
| "incl %eax\n\t" |
| "ret $4") |
| |
| /*********************************************************************** |
| * InterlockedDecrement (KERNEL32.@) |
| */ |
| __ASM_GLOBAL_FUNC(InterlockedDecrement, |
| "movl 4(%esp),%edx\n\t" |
| "movl $-1,%eax\n\t" |
| "lock; xaddl %eax,(%edx)\n\t" |
| "decl %eax\n\t" |
| "ret $4") |
| |
| #else /* __i386__ */ |
| |
| /*********************************************************************** |
| * InterlockedCompareExchange (KERNEL32.@) |
| * |
| * Atomically swap one value with another. |
| * |
| * PARAMS |
| * dest [I/O] The value to replace |
| * xchq [I] The value to be swapped |
| * compare [I] The value to compare to dest |
| * |
| * RETURNS |
| * The resulting value of dest. |
| * |
| * NOTES |
| * dest is updated only if it is equal to compare, otherwise no swap is done. |
| */ |
| LONG WINAPI InterlockedCompareExchange( PLONG dest, LONG xchg, LONG compare ) |
| { |
| return interlocked_cmpxchg( dest, xchg, compare ); |
| } |
| |
| /*********************************************************************** |
| * InterlockedExchange (KERNEL32.@) |
| * |
| * Atomically swap one value with another. |
| * |
| * PARAMS |
| * dest [I/O] The value to replace |
| * val [I] The value to be swapped |
| * |
| * RETURNS |
| * The resulting value of dest. |
| */ |
| LONG WINAPI InterlockedExchange( PLONG dest, LONG val ) |
| { |
| return interlocked_xchg( dest, val ); |
| } |
| |
| /*********************************************************************** |
| * InterlockedExchangeAdd (KERNEL32.@) |
| * |
| * Atomically add one value to another. |
| * |
| * PARAMS |
| * dest [I/O] The value to add to |
| * incr [I] The value to be added |
| * |
| * RETURNS |
| * The resulting value of dest. |
| */ |
| LONG WINAPI InterlockedExchangeAdd( PLONG dest, LONG incr ) |
| { |
| return interlocked_xchg_add( dest, incr ); |
| } |
| |
| /*********************************************************************** |
| * InterlockedIncrement (KERNEL32.@) |
| * |
| * Atomically increment a value. |
| * |
| * PARAMS |
| * dest [I/O] The value to increment |
| * |
| * RETURNS |
| * The resulting value of dest. |
| */ |
| LONG WINAPI InterlockedIncrement( PLONG dest ) |
| { |
| return interlocked_xchg_add( dest, 1 ) + 1; |
| } |
| |
| /*********************************************************************** |
| * InterlockedDecrement (KERNEL32.@) |
| * |
| * Atomically decrement a value. |
| * |
| * PARAMS |
| * dest [I/O] The value to decrement |
| * |
| * RETURNS |
| * The resulting value of dest. |
| */ |
| LONG WINAPI InterlockedDecrement( PLONG dest ) |
| { |
| return interlocked_xchg_add( dest, -1 ) - 1; |
| } |
| |
| #endif /* __i386__ */ |
