/* * 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 #ifdef HAVE_UNISTD_H # include #endif #include #ifdef HAVE_SYS_IOCTL_H #include #endif #ifdef HAVE_POLL_H #include #endif #ifdef HAVE_SYS_POLL_H #include #endif #ifdef HAVE_SYS_SOCKET_H #include #endif #include #include #define NONAMELESSUNION #define NONAMELESSSTRUCT #include "ntstatus.h" #include "windef.h" #include "winbase.h" #include "winerror.h" #include "winnls.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 ) { NTSTATUS status; LARGE_INTEGER timeout, *ptimeout = NULL; TRACE("%p %p %ld %d\n", hObjectToSignal, hObjectToWaitOn, dwMilliseconds, bAlertable); if (dwMilliseconds != INFINITE) { timeout.QuadPart = dwMilliseconds * (ULONGLONG)10000; timeout.QuadPart = -timeout.QuadPart; ptimeout = &timeout; } status = NtSignalAndWaitForSingleObject( hObjectToSignal, hObjectToWaitOn, bAlertable, ptimeout ); if (HIWORD(status)) { SetLastError( RtlNtStatusToDosError(status) ); status = WAIT_FAILED; } return status; } /*********************************************************************** * 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, (PULONG)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, (PTIMER_APC_ROUTINE)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 sa ) { HANDLE handle; UNICODE_STRING nt_name; OBJECT_ATTRIBUTES attr; DWORD options; BOOLEAN pipe_type, read_mode, non_block; NTSTATUS status; IO_STATUS_BLOCK iosb; LARGE_INTEGER timeout; TRACE("(%s, %#08lx, %#08lx, %ld, %ld, %ld, %ld, %p)\n", debugstr_w(name), dwOpenMode, dwPipeMode, nMaxInstances, nOutBufferSize, nInBufferSize, nDefaultTimeOut, sa ); 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; } attr.Length = sizeof(attr); attr.RootDirectory = 0; attr.ObjectName = &nt_name; attr.Attributes = (sa && sa->bInheritHandle) ? OBJ_INHERIT : 0; attr.SecurityDescriptor = sa ? sa->lpSecurityDescriptor : NULL; attr.SecurityQualityOfService = NULL; options = 0; if (dwOpenMode & FILE_FLAG_WRITE_THROUGH) options |= FILE_WRITE_THROUGH; if (!(dwOpenMode & FILE_FLAG_OVERLAPPED)) options |= FILE_SYNCHRONOUS_IO_ALERT; if ((dwOpenMode & PIPE_ACCESS_DUPLEX) == PIPE_ACCESS_DUPLEX) options |= FILE_PIPE_FULL_DUPLEX; else if (dwOpenMode & PIPE_ACCESS_INBOUND) options |= FILE_PIPE_INBOUND; else if (dwOpenMode & PIPE_ACCESS_OUTBOUND) options |= FILE_PIPE_OUTBOUND; pipe_type = (dwPipeMode & PIPE_TYPE_MESSAGE) ? TRUE : FALSE; read_mode = (dwPipeMode & PIPE_READMODE_MESSAGE) ? TRUE : FALSE; non_block = (dwPipeMode & PIPE_NOWAIT) ? TRUE : FALSE; if (nMaxInstances >= PIPE_UNLIMITED_INSTANCES) nMaxInstances = ~0UL; timeout.QuadPart = (ULONGLONG)nDefaultTimeOut * -10000; SetLastError(0); status = NtCreateNamedPipeFile(&handle, 0, &attr, &iosb, 0, FILE_OVERWRITE_IF, options, pipe_type, read_mode, non_block, nMaxInstances, nInBufferSize, nOutBufferSize, &timeout); RtlFreeUnicodeString( &nt_name ); if (status) { handle = INVALID_HANDLE_VALUE; SetLastError( RtlNtStatusToDosError(status) ); } return handle; } /*********************************************************************** * 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; TRACE("(%p,%p,%lu,%p,%p,%p)\n", hPipe, lpvBuffer, cbBuffer, lpcbRead, lpcbAvail, lpcbMessage); 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 && cbBuffer) { 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; } /*********************************************************************** * PIPE_CompletionWait (Internal) */ static void CALLBACK PIPE_CompletionWait(void *user, PIO_STATUS_BLOCK iosb, ULONG status) { LPOVERLAPPED ovlp = (LPOVERLAPPED)user; TRACE("for %p/%p, status=%08lx\n", ovlp, iosb, status); if (ovlp) { ovlp->Internal = status; SetEvent(ovlp->hEvent); } TRACE("done\n"); } /*********************************************************************** * 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 = PIPE_CompletionWait; 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; } /*********************************************************************** * ConnectNamedPipe (KERNEL32.@) */ BOOL WINAPI ConnectNamedPipe(HANDLE hPipe, LPOVERLAPPED overlapped) { BOOL ret; LPOVERLAPPED pov; OVERLAPPED ov; TRACE("(%p,%p)\n", hPipe, overlapped); if (!overlapped) { memset(&ov, 0, sizeof(ov)); ov.hEvent = CreateEventW(NULL, 0, 0, NULL); if (!ov.hEvent) return FALSE; pov = &ov; } else pov = overlapped; pov->Internal = STATUS_PENDING; SERVER_START_REQ( connect_named_pipe ) { req->handle = hPipe; req->overlapped = pov; req->func = PIPE_CompletionWait; ret = !wine_server_call_err( req ); } SERVER_END_REQ; if (ret) { if (overlapped) { SetLastError( ERROR_IO_PENDING ); ret = FALSE; } else { ret = GetOverlappedResult(hPipe, &ov, NULL, TRUE); 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 = 0; if (reply->flags & NAMED_PIPE_MESSAGE_STREAM_WRITE) *lpFlags |= PIPE_TYPE_MESSAGE; if (reply->flags & NAMED_PIPE_MESSAGE_STREAM_READ) *lpFlags |= PIPE_READMODE_MESSAGE; if (reply->flags & NAMED_PIPE_NONBLOCKING_MODE) *lpFlags |= PIPE_NOWAIT; } 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) { /* should be a fixme, but this function is called a lot by the RPC * runtime, and it slows down InstallShield a fair bit. */ WARN("stub: %p %p/%ld %p %p\n", hNamedPipe, lpMode, lpMode ? *lpMode : 0, 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 ) { HANDLE handle = INVALID_HANDLE_VALUE; OBJECT_ATTRIBUTES attr; UNICODE_STRING nameW; LARGE_INTEGER timeout; IO_STATUS_BLOCK iosb; NTSTATUS status; TRACE("%s %ld %ld %p\n", debugstr_w(lpName), nMaxMessageSize, lReadTimeout, sa); if (!RtlDosPathNameToNtPathName_U( lpName, &nameW, NULL, NULL )) { SetLastError( ERROR_PATH_NOT_FOUND ); return INVALID_HANDLE_VALUE; } if (nameW.Length >= MAX_PATH * sizeof(WCHAR) ) { SetLastError( ERROR_FILENAME_EXCED_RANGE ); RtlFreeUnicodeString( &nameW ); return INVALID_HANDLE_VALUE; } attr.Length = sizeof(attr); attr.RootDirectory = 0; attr.Attributes = OBJ_CASE_INSENSITIVE; attr.ObjectName = &nameW; attr.SecurityDescriptor = sa ? sa->lpSecurityDescriptor : NULL; attr.SecurityQualityOfService = NULL; timeout.QuadPart = (ULONGLONG) lReadTimeout * -10000; status = NtCreateMailslotFile( &handle, GENERIC_READ | GENERIC_WRITE, &attr, &iosb, 0, 0, nMaxMessageSize, &timeout ); if (status) { SetLastError( RtlNtStatusToDosError(status) ); handle = INVALID_HANDLE_VALUE; } RtlFreeUnicodeString( &nameW ); return handle; } /****************************************************************************** * 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 ) { FILE_MAILSLOT_QUERY_INFORMATION info; IO_STATUS_BLOCK iosb; NTSTATUS status; TRACE("%p %p %p %p %p\n",hMailslot, lpMaxMessageSize, lpNextSize, lpMessageCount, lpReadTimeout); status = NtQueryInformationFile( hMailslot, &iosb, &info, sizeof info, FileMailslotQueryInformation ); if( status != STATUS_SUCCESS ) { SetLastError( RtlNtStatusToDosError(status) ); return FALSE; } if( lpMaxMessageSize ) *lpMaxMessageSize = info.MaximumMessageSize; if( lpNextSize ) *lpNextSize = info.NextMessageSize; if( lpMessageCount ) *lpMessageCount = info.MessagesAvailable; if( lpReadTimeout ) *lpReadTimeout = info.ReadTimeout.QuadPart / -10000; return TRUE; } /****************************************************************************** * 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) { FILE_MAILSLOT_SET_INFORMATION info; IO_STATUS_BLOCK iosb; NTSTATUS status; TRACE("%p %ld\n", hMailslot, dwReadTimeout); info.ReadTimeout.QuadPart = dwReadTimeout * -10000; status = NtSetInformationFile( hMailslot, &iosb, &info, sizeof info, FileMailslotSetInformation ); if( status != STATUS_SUCCESS ) { SetLastError( RtlNtStatusToDosError(status) ); return FALSE; } return TRUE; } /****************************************************************************** * 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__ */