dlls/kernelbase/sync.c

   1 /*
   2  * Kernel synchronization objects
   3  *
   4  * Copyright 1998 Alexandre Julliard
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include <stdarg.h>
  22 #include <string.h>
  23 #include <stdio.h>
  24
  25 #include "ntstatus.h"
  26 #define WIN32_NO_STATUS
  27 #define NONAMELESSUNION
  28 #include "windef.h"
  29 #include "winbase.h"
  30 #include "wincon.h"
  31 #include "winerror.h"
  32 #include "winnls.h"
  33 #include "winternl.h"
  34 #include "winioctl.h"
  35 #include "ddk/wdm.h"
  36
  37 #include "kernelbase.h"
  38 #include "wine/asm.h"
  39 #include "wine/exception.h"
  40 #include "wine/debug.h"
  41
  42 WINE_DEFAULT_DEBUG_CHANNEL(sync);
  43
  44 static const struct _KUSER_SHARED_DATA *user_shared_data = (struct _KUSER_SHARED_DATA *)0x7ffe0000;
  45
  46 /* check if current version is NT or Win95 */
  47 static inline BOOL is_version_nt(void)
  48 {
  49     return !(GetVersion() & 0x80000000);
  50 }
  51
  52 /* helper for kernel32->ntdll timeout format conversion */
  53 static inline LARGE_INTEGER *get_nt_timeout( LARGE_INTEGER *time, DWORD timeout )
  54 {
  55     if (timeout == INFINITE) return NULL;
  56     time->QuadPart = (ULONGLONG)timeout * -10000;
  57     return time;
  58 }
  59
  60
  61 /***********************************************************************
  62  *              BaseGetNamedObjectDirectory  (kernelbase.@)
  63  */
  64 NTSTATUS WINAPI BaseGetNamedObjectDirectory( HANDLE *dir )
  65 {
  66     static HANDLE handle;
  67     WCHAR buffer[64];
  68     UNICODE_STRING str;
  69     OBJECT_ATTRIBUTES attr;
  70     NTSTATUS status = STATUS_SUCCESS;
  71
  72     if (!handle)
  73     {
  74         HANDLE dir;
  75
  76         swprintf( buffer, ARRAY_SIZE(buffer), L"\\Sessions\\%u\\BaseNamedObjects",
  77                   NtCurrentTeb()->Peb->SessionId );
  78         RtlInitUnicodeString( &str, buffer );
  79         InitializeObjectAttributes(&attr, &str, 0, 0, NULL);
  80         status = NtOpenDirectoryObject( &dir, DIRECTORY_CREATE_OBJECT|DIRECTORY_TRAVERSE, &attr );
  81         if (!status && InterlockedCompareExchangePointer( &handle, dir, 0 ) != 0)
  82         {
  83             /* someone beat us here... */
  84             CloseHandle( dir );
  85         }
  86     }
  87     *dir = handle;
  88     return status;
  89 }
  90
  91 static void get_create_object_attributes( OBJECT_ATTRIBUTES *attr, UNICODE_STRING *nameW,
  92                                           SECURITY_ATTRIBUTES *sa, const WCHAR *name )
  93 {
  94     attr->Length                   = sizeof(*attr);
  95     attr->RootDirectory            = 0;
  96     attr->ObjectName               = NULL;
  97     attr->Attributes               = OBJ_OPENIF | ((sa && sa->bInheritHandle) ? OBJ_INHERIT : 0);
  98     attr->SecurityDescriptor       = sa ? sa->lpSecurityDescriptor : NULL;
  99     attr->SecurityQualityOfService = NULL;
 100     if (name)
 101     {
 102         RtlInitUnicodeString( nameW, name );
 103         attr->ObjectName = nameW;
 104         BaseGetNamedObjectDirectory( &attr->RootDirectory );
 105     }
 106 }
 107
 108 static BOOL get_open_object_attributes( OBJECT_ATTRIBUTES *attr, UNICODE_STRING *nameW,
 109                                         BOOL inherit, const WCHAR *name )
 110 {
 111     HANDLE dir;
 112
 113     if (!name)
 114     {
 115         SetLastError( ERROR_INVALID_PARAMETER );
 116         return FALSE;
 117     }
 118     RtlInitUnicodeString( nameW, name );
 119     BaseGetNamedObjectDirectory( &dir );
 120     InitializeObjectAttributes( attr, nameW, inherit ? OBJ_INHERIT : 0, dir, NULL );
 121     return TRUE;
 122 }
 123
 124
 125 /***********************************************************************
 126  * Time functions
 127  ***********************************************************************/
 128
 129
 130 /*********************************************************************
 131  *           GetSystemTimes   (kernelbase.@)
 132  */
 133 BOOL WINAPI DECLSPEC_HOTPATCH GetSystemTimes( FILETIME *idle, FILETIME *kernel, FILETIME *user )
 134 {
 135     LARGE_INTEGER idle_time, kernel_time, user_time;
 136     SYSTEM_PROCESSOR_PERFORMANCE_INFORMATION *info;
 137     ULONG ret_size;
 138     DWORD i, cpus = NtCurrentTeb()->Peb->NumberOfProcessors;
 139
 140     if (!(info = HeapAlloc( GetProcessHeap(), 0, sizeof(*info) * cpus )))
 141     {
 142         SetLastError( ERROR_OUTOFMEMORY );
 143         return FALSE;
 144     }
 145     if (!set_ntstatus( NtQuerySystemInformation( SystemProcessorPerformanceInformation, info,
 146                                                  sizeof(*info) * cpus, &ret_size )))
 147     {
 148         HeapFree( GetProcessHeap(), 0, info );
 149         return FALSE;
 150     }
 151     idle_time.QuadPart = 0;
 152     kernel_time.QuadPart = 0;
 153     user_time.QuadPart = 0;
 154     for (i = 0; i < cpus; i++)
 155     {
 156         idle_time.QuadPart += info[i].IdleTime.QuadPart;
 157         kernel_time.QuadPart += info[i].KernelTime.QuadPart;
 158         user_time.QuadPart += info[i].UserTime.QuadPart;
 159     }
 160     if (idle)
 161     {
 162         idle->dwLowDateTime  = idle_time.u.LowPart;
 163         idle->dwHighDateTime = idle_time.u.HighPart;
 164     }
 165     if (kernel)
 166     {
 167         kernel->dwLowDateTime  = kernel_time.u.LowPart;
 168         kernel->dwHighDateTime = kernel_time.u.HighPart;
 169     }
 170     if (user)
 171     {
 172         user->dwLowDateTime  = user_time.u.LowPart;
 173         user->dwHighDateTime = user_time.u.HighPart;
 174     }
 175     HeapFree( GetProcessHeap(), 0, info );
 176     return TRUE;
 177 }
 178
 179
 180 /******************************************************************************
 181  *           GetTickCount   (kernelbase.@)
 182  */
 183 ULONG WINAPI DECLSPEC_HOTPATCH GetTickCount(void)
 184 {
 185     /* note: we ignore TickCountMultiplier */
 186     return user_shared_data->u.TickCount.LowPart;
 187 }
 188
 189
 190 /******************************************************************************
 191  *           GetTickCount64   (kernelbase.@)
 192  */
 193 ULONGLONG WINAPI DECLSPEC_HOTPATCH GetTickCount64(void)
 194 {
 195     ULONG high, low;
 196
 197     do
 198     {
 199         high = user_shared_data->u.TickCount.High1Time;
 200         low = user_shared_data->u.TickCount.LowPart;
 201     }
 202     while (high != user_shared_data->u.TickCount.High2Time);
 203     /* note: we ignore TickCountMultiplier */
 204     return (ULONGLONG)high << 32 | low;
 205 }
 206
 207
 208 /***********************************************************************
 209  * Waits
 210  ***********************************************************************/
 211
 212
 213 static HANDLE normalize_std_handle( HANDLE handle )
 214 {
 215     if ((handle == (HANDLE)STD_INPUT_HANDLE) ||
 216         (handle == (HANDLE)STD_OUTPUT_HANDLE) ||
 217         (handle == (HANDLE)STD_ERROR_HANDLE))
 218         return GetStdHandle( HandleToULong(handle) );
 219
 220     return handle;
 221 }
 222
 223
 224 /***********************************************************************
 225  *           RegisterWaitForSingleObjectEx   (kernelbase.@)
 226  */
 227 HANDLE WINAPI DECLSPEC_HOTPATCH RegisterWaitForSingleObjectEx( HANDLE handle, WAITORTIMERCALLBACK callback,
 228                                                                PVOID context, ULONG timeout, ULONG flags )
 229 {
 230     HANDLE ret;
 231
 232     TRACE( "%p %p %p %ld %ld\n", handle, callback, context, timeout, flags );
 233
 234     handle = normalize_std_handle( handle );
 235     if (!set_ntstatus( RtlRegisterWait( &ret, handle, callback, context, timeout, flags ))) return NULL;
 236     return ret;
 237 }
 238
 239
 240 /***********************************************************************
 241  *           SignalObjectAndWait  (kernelbase.@)
 242  */
 243 DWORD WINAPI DECLSPEC_HOTPATCH SignalObjectAndWait( HANDLE signal, HANDLE wait,
 244                                                     DWORD timeout, BOOL alertable )
 245 {
 246     NTSTATUS status;
 247     LARGE_INTEGER time;
 248
 249     TRACE( "%p %p %ld %d\n", signal, wait, timeout, alertable );
 250
 251     status = NtSignalAndWaitForSingleObject( signal, wait, alertable, get_nt_timeout( &time, timeout ) );
 252     if (HIWORD(status))
 253     {
 254         SetLastError( RtlNtStatusToDosError(status) );
 255         status = WAIT_FAILED;
 256     }
 257     return status;
 258 }
 259
 260
 261 /***********************************************************************
 262  *              Sleep  (kernelbase.@)
 263  */
 264 void WINAPI DECLSPEC_HOTPATCH Sleep( DWORD timeout )
 265 {
 266     LARGE_INTEGER time;
 267
 268     NtDelayExecution( FALSE, get_nt_timeout( &time, timeout ) );
 269 }
 270
 271
 272 /******************************************************************************
 273  *              SleepEx   (kernelbase.@)
 274  */
 275 DWORD WINAPI DECLSPEC_HOTPATCH SleepEx( DWORD timeout, BOOL alertable )
 276 {
 277     NTSTATUS status;
 278     LARGE_INTEGER time;
 279
 280     status = NtDelayExecution( alertable, get_nt_timeout( &time, timeout ) );
 281     if (status == STATUS_USER_APC) return WAIT_IO_COMPLETION;
 282     return 0;
 283 }
 284
 285
 286 /***********************************************************************
 287  *           UnregisterWaitEx   (kernelbase.@)
 288  */
 289 BOOL WINAPI DECLSPEC_HOTPATCH UnregisterWaitEx( HANDLE handle, HANDLE event )
 290 {
 291     return set_ntstatus( RtlDeregisterWaitEx( handle, event ));
 292 }
 293
 294
 295 /***********************************************************************
 296  *           WaitForSingleObject   (kernelbase.@)
 297  */
 298 DWORD WINAPI DECLSPEC_HOTPATCH WaitForSingleObject( HANDLE handle, DWORD timeout )
 299 {
 300     return WaitForMultipleObjectsEx( 1, &handle, FALSE, timeout, FALSE );
 301 }
 302
 303
 304 /***********************************************************************
 305  *           WaitForSingleObjectEx   (kernelbase.@)
 306  */
 307 DWORD WINAPI DECLSPEC_HOTPATCH WaitForSingleObjectEx( HANDLE handle, DWORD timeout, BOOL alertable )
 308 {
 309     return WaitForMultipleObjectsEx( 1, &handle, FALSE, timeout, alertable );
 310 }
 311
 312
 313 /***********************************************************************
 314  *           WaitForMultipleObjects   (kernelbase.@)
 315  */
 316 DWORD WINAPI DECLSPEC_HOTPATCH WaitForMultipleObjects( DWORD count, const HANDLE *handles,
 317                                                        BOOL wait_all, DWORD timeout )
 318 {
 319     return WaitForMultipleObjectsEx( count, handles, wait_all, timeout, FALSE );
 320 }
 321
 322
 323 /***********************************************************************
 324  *           WaitForMultipleObjectsEx   (kernelbase.@)
 325  */
 326 DWORD WINAPI DECLSPEC_HOTPATCH WaitForMultipleObjectsEx( DWORD count, const HANDLE *handles,
 327                                                          BOOL wait_all, DWORD timeout, BOOL alertable )
 328 {
 329     NTSTATUS status;
 330     HANDLE hloc[MAXIMUM_WAIT_OBJECTS];
 331     LARGE_INTEGER time;
 332     unsigned int i;
 333
 334     if (count > MAXIMUM_WAIT_OBJECTS)
 335     {
 336         SetLastError(ERROR_INVALID_PARAMETER);
 337         return WAIT_FAILED;
 338     }
 339     for (i = 0; i < count; i++) hloc[i] = normalize_std_handle( handles[i] );
 340
 341     status = NtWaitForMultipleObjects( count, hloc, !wait_all, alertable,
 342                                        get_nt_timeout( &time, timeout ) );
 343     if (HIWORD(status))  /* is it an error code? */
 344     {
 345         SetLastError( RtlNtStatusToDosError(status) );
 346         status = WAIT_FAILED;
 347     }
 348     return status;
 349 }
 350
 351
 352 /******************************************************************************
 353  *           WaitForDebugEvent   (kernelbase.@)
 354  */
 355 BOOL WINAPI DECLSPEC_HOTPATCH WaitForDebugEvent( DEBUG_EVENT *event, DWORD timeout )
 356 {
 357     NTSTATUS status;
 358     LARGE_INTEGER time;
 359     DBGUI_WAIT_STATE_CHANGE state;
 360
 361     for (;;)
 362     {
 363         status = DbgUiWaitStateChange( &state, get_nt_timeout( &time, timeout ) );
 364         switch (status)
 365         {
 366         case STATUS_SUCCESS:
 367             DbgUiConvertStateChangeStructure( &state, event );
 368             return TRUE;
 369         case STATUS_USER_APC:
 370             continue;
 371         case STATUS_TIMEOUT:
 372             SetLastError( ERROR_SEM_TIMEOUT );
 373             return FALSE;
 374         default:
 375             return set_ntstatus( status );
 376         }
 377     }
 378 }
 379
 380
 381 /***********************************************************************
 382  *           WaitOnAddress   (kernelbase.@)
 383  */
 384 BOOL WINAPI DECLSPEC_HOTPATCH WaitOnAddress( volatile void *addr, void *cmp, SIZE_T size, DWORD timeout )
 385 {
 386     LARGE_INTEGER to;
 387
 388     if (timeout != INFINITE)
 389     {
 390         to.QuadPart = -(LONGLONG)timeout * 10000;
 391         return set_ntstatus( RtlWaitOnAddress( (const void *)addr, cmp, size, &to ));
 392     }
 393     return set_ntstatus( RtlWaitOnAddress( (const void *)addr, cmp, size, NULL ));
 394 }
 395
 396
 397 /***********************************************************************
 398  * Events
 399  ***********************************************************************/
 400
 401
 402 /***********************************************************************
 403  *           CreateEventA    (kernelbase.@)
 404  */
 405 HANDLE WINAPI DECLSPEC_HOTPATCH CreateEventA( SECURITY_ATTRIBUTES *sa, BOOL manual_reset,
 406                                               BOOL initial_state, LPCSTR name )
 407 {
 408     DWORD flags = 0;
 409
 410     if (manual_reset) flags |= CREATE_EVENT_MANUAL_RESET;
 411     if (initial_state) flags |= CREATE_EVENT_INITIAL_SET;
 412     return CreateEventExA( sa, name, flags, EVENT_ALL_ACCESS );
 413 }
 414
 415
 416 /***********************************************************************
 417  *           CreateEventW    (kernelbase.@)
 418  */
 419 HANDLE WINAPI DECLSPEC_HOTPATCH CreateEventW( SECURITY_ATTRIBUTES *sa, BOOL manual_reset,
 420                                               BOOL initial_state, LPCWSTR name )
 421 {
 422     DWORD flags = 0;
 423
 424     if (manual_reset) flags |= CREATE_EVENT_MANUAL_RESET;
 425     if (initial_state) flags |= CREATE_EVENT_INITIAL_SET;
 426     return CreateEventExW( sa, name, flags, EVENT_ALL_ACCESS );
 427 }
 428
 429
 430 /***********************************************************************
 431  *           CreateEventExA    (kernelbase.@)
 432  */
 433 HANDLE WINAPI DECLSPEC_HOTPATCH CreateEventExA( SECURITY_ATTRIBUTES *sa, LPCSTR name,
 434                                                 DWORD flags, DWORD access )
 435 {
 436     WCHAR buffer[MAX_PATH];
 437
 438     if (!name) return CreateEventExW( sa, NULL, flags, access );
 439
 440     if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH ))
 441     {
 442         SetLastError( ERROR_FILENAME_EXCED_RANGE );
 443         return 0;
 444     }
 445     return CreateEventExW( sa, buffer, flags, access );
 446 }
 447
 448
 449 /***********************************************************************
 450  *           CreateEventExW    (kernelbase.@)
 451  */
 452 HANDLE WINAPI DECLSPEC_HOTPATCH CreateEventExW( SECURITY_ATTRIBUTES *sa, LPCWSTR name,
 453                                                 DWORD flags, DWORD access )
 454 {
 455     HANDLE ret = 0;
 456     UNICODE_STRING nameW;
 457     OBJECT_ATTRIBUTES attr;
 458     NTSTATUS status;
 459
 460     /* one buggy program needs this
 461      * ("Van Dale Groot woordenboek der Nederlandse taal")
 462      */
 463     __TRY
 464     {
 465         get_create_object_attributes( &attr, &nameW, sa, name );
 466     }
 467     __EXCEPT_PAGE_FAULT
 468     {
 469         SetLastError( ERROR_INVALID_PARAMETER);
 470         return 0;
 471     }
 472     __ENDTRY
 473
 474     status = NtCreateEvent( &ret, access, &attr,
 475                             (flags & CREATE_EVENT_MANUAL_RESET) ? NotificationEvent : SynchronizationEvent,
 476                             (flags & CREATE_EVENT_INITIAL_SET) != 0 );
 477     if (status == STATUS_OBJECT_NAME_EXISTS)
 478         SetLastError( ERROR_ALREADY_EXISTS );
 479     else
 480         SetLastError( RtlNtStatusToDosError(status) );
 481     return ret;
 482 }
 483
 484
 485 /***********************************************************************
 486  *           OpenEventA    (kernelbase.@)
 487  */
 488 HANDLE WINAPI DECLSPEC_HOTPATCH OpenEventA( DWORD access, BOOL inherit, LPCSTR name )
 489 {
 490     WCHAR buffer[MAX_PATH];
 491
 492     if (!name) return OpenEventW( access, inherit, NULL );
 493
 494     if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH ))
 495     {
 496         SetLastError( ERROR_FILENAME_EXCED_RANGE );
 497         return 0;
 498     }
 499     return OpenEventW( access, inherit, buffer );
 500 }
 501
 502
 503 /***********************************************************************
 504  *           OpenEventW    (kernelbase.@)
 505  */
 506 HANDLE WINAPI DECLSPEC_HOTPATCH OpenEventW( DWORD access, BOOL inherit, LPCWSTR name )
 507 {
 508     HANDLE ret;
 509     UNICODE_STRING nameW;
 510     OBJECT_ATTRIBUTES attr;
 511
 512     if (!is_version_nt()) access = EVENT_ALL_ACCESS;
 513
 514     if (!get_open_object_attributes( &attr, &nameW, inherit, name )) return 0;
 515
 516     if (!set_ntstatus( NtOpenEvent( &ret, access, &attr ))) return 0;
 517     return ret;
 518 }
 519
 520 /***********************************************************************
 521  *           PulseEvent    (kernelbase.@)
 522  */
 523 BOOL WINAPI DECLSPEC_HOTPATCH PulseEvent( HANDLE handle )
 524 {
 525     return set_ntstatus( NtPulseEvent( handle, NULL ));
 526 }
 527
 528
 529 /***********************************************************************
 530  *           SetEvent    (kernelbase.@)
 531  */
 532 BOOL WINAPI DECLSPEC_HOTPATCH SetEvent( HANDLE handle )
 533 {
 534     return set_ntstatus( NtSetEvent( handle, NULL ));
 535 }
 536
 537
 538 /***********************************************************************
 539  *           ResetEvent    (kernelbase.@)
 540  */
 541 BOOL WINAPI DECLSPEC_HOTPATCH ResetEvent( HANDLE handle )
 542 {
 543     return set_ntstatus( NtResetEvent( handle, NULL ));
 544 }
 545
 546
 547 /***********************************************************************
 548  * Mutexes
 549  ***********************************************************************/
 550
 551
 552 /***********************************************************************
 553  *           CreateMutexA   (kernelbase.@)
 554  */
 555 HANDLE WINAPI DECLSPEC_HOTPATCH CreateMutexA( SECURITY_ATTRIBUTES *sa, BOOL owner, LPCSTR name )
 556 {
 557     return CreateMutexExA( sa, name, owner ? CREATE_MUTEX_INITIAL_OWNER : 0, MUTEX_ALL_ACCESS );
 558 }
 559
 560
 561 /***********************************************************************
 562  *           CreateMutexW   (kernelbase.@)
 563  */
 564 HANDLE WINAPI DECLSPEC_HOTPATCH CreateMutexW( SECURITY_ATTRIBUTES *sa, BOOL owner, LPCWSTR name )
 565 {
 566     return CreateMutexExW( sa, name, owner ? CREATE_MUTEX_INITIAL_OWNER : 0, MUTEX_ALL_ACCESS );
 567 }
 568
 569
 570 /***********************************************************************
 571  *           CreateMutexExA   (kernelbase.@)
 572  */
 573 HANDLE WINAPI DECLSPEC_HOTPATCH CreateMutexExA( SECURITY_ATTRIBUTES *sa, LPCSTR name,
 574                                                 DWORD flags, DWORD access )
 575 {
 576     ANSI_STRING nameA;
 577     NTSTATUS status;
 578
 579     if (!name) return CreateMutexExW( sa, NULL, flags, access );
 580
 581     RtlInitAnsiString( &nameA, name );
 582     status = RtlAnsiStringToUnicodeString( &NtCurrentTeb()->StaticUnicodeString, &nameA, FALSE );
 583     if (status != STATUS_SUCCESS)
 584     {
 585         SetLastError( ERROR_FILENAME_EXCED_RANGE );
 586         return 0;
 587     }
 588     return CreateMutexExW( sa, NtCurrentTeb()->StaticUnicodeString.Buffer, flags, access );
 589 }
 590
 591
 592 /***********************************************************************
 593  *           CreateMutexExW   (kernelbase.@)
 594  */
 595 HANDLE WINAPI DECLSPEC_HOTPATCH CreateMutexExW( SECURITY_ATTRIBUTES *sa, LPCWSTR name,
 596                                                 DWORD flags, DWORD access )
 597 {
 598     HANDLE ret = 0;
 599     UNICODE_STRING nameW;
 600     OBJECT_ATTRIBUTES attr;
 601     NTSTATUS status;
 602
 603     get_create_object_attributes( &attr, &nameW, sa, name );
 604
 605     status = NtCreateMutant( &ret, access, &attr, (flags & CREATE_MUTEX_INITIAL_OWNER) != 0 );
 606     if (status == STATUS_OBJECT_NAME_EXISTS)
 607         SetLastError( ERROR_ALREADY_EXISTS );
 608     else
 609         SetLastError( RtlNtStatusToDosError(status) );
 610     return ret;
 611 }
 612
 613
 614 /***********************************************************************
 615  *           OpenMutexW   (kernelbase.@)
 616  */
 617 HANDLE WINAPI DECLSPEC_HOTPATCH OpenMutexW( DWORD access, BOOL inherit, LPCWSTR name )
 618 {
 619     HANDLE ret;
 620     UNICODE_STRING nameW;
 621     OBJECT_ATTRIBUTES attr;
 622
 623     if (!is_version_nt()) access = MUTEX_ALL_ACCESS;
 624
 625     if (!get_open_object_attributes( &attr, &nameW, inherit, name )) return 0;
 626
 627     if (!set_ntstatus( NtOpenMutant( &ret, access, &attr ))) return 0;
 628     return ret;
 629 }
 630
 631
 632 /***********************************************************************
 633  *           ReleaseMutex   (kernelbase.@)
 634  */
 635 BOOL WINAPI DECLSPEC_HOTPATCH ReleaseMutex( HANDLE handle )
 636 {
 637     return set_ntstatus( NtReleaseMutant( handle, NULL ));
 638 }
 639
 640
 641 /***********************************************************************
 642  * Semaphores
 643  ***********************************************************************/
 644
 645
 646 /***********************************************************************
 647  *           CreateSemaphoreW   (kernelbase.@)
 648  */
 649 HANDLE WINAPI DECLSPEC_HOTPATCH CreateSemaphoreW( SECURITY_ATTRIBUTES *sa, LONG initial,
 650                                                   LONG max, LPCWSTR name )
 651 {
 652     return CreateSemaphoreExW( sa, initial, max, name, 0, SEMAPHORE_ALL_ACCESS );
 653 }
 654
 655
 656 /***********************************************************************
 657  *           CreateSemaphoreExW   (kernelbase.@)
 658  */
 659 HANDLE WINAPI DECLSPEC_HOTPATCH CreateSemaphoreExW( SECURITY_ATTRIBUTES *sa, LONG initial, LONG max,
 660                                                     LPCWSTR name, DWORD flags, DWORD access )
 661 {
 662     HANDLE ret = 0;
 663     UNICODE_STRING nameW;
 664     OBJECT_ATTRIBUTES attr;
 665     NTSTATUS status;
 666
 667     get_create_object_attributes( &attr, &nameW, sa, name );
 668
 669     status = NtCreateSemaphore( &ret, access, &attr, initial, max );
 670     if (status == STATUS_OBJECT_NAME_EXISTS)
 671         SetLastError( ERROR_ALREADY_EXISTS );
 672     else
 673         SetLastError( RtlNtStatusToDosError(status) );
 674     return ret;
 675 }
 676
 677
 678 /***********************************************************************
 679  *           OpenSemaphoreW   (kernelbase.@)
 680  */
 681 HANDLE WINAPI DECLSPEC_HOTPATCH OpenSemaphoreW( DWORD access, BOOL inherit, LPCWSTR name )
 682 {
 683     HANDLE ret;
 684     UNICODE_STRING nameW;
 685     OBJECT_ATTRIBUTES attr;
 686
 687     if (!is_version_nt()) access = SEMAPHORE_ALL_ACCESS;
 688
 689     if (!get_open_object_attributes( &attr, &nameW, inherit, name )) return 0;
 690
 691     if (!set_ntstatus( NtOpenSemaphore( &ret, access, &attr ))) return 0;
 692     return ret;
 693 }
 694
 695
 696 /***********************************************************************
 697  *           ReleaseSemaphore   (kernelbase.@)
 698  */
 699 BOOL WINAPI DECLSPEC_HOTPATCH ReleaseSemaphore( HANDLE handle, LONG count, LONG *previous )
 700 {
 701     return set_ntstatus( NtReleaseSemaphore( handle, count, (PULONG)previous ));
 702 }
 703
 704
 705 /***********************************************************************
 706  * Waitable timers
 707  ***********************************************************************/
 708
 709
 710 /***********************************************************************
 711  *           CreateWaitableTimerW    (kernelbase.@)
 712  */
 713 HANDLE WINAPI DECLSPEC_HOTPATCH CreateWaitableTimerW( SECURITY_ATTRIBUTES *sa, BOOL manual, LPCWSTR name )
 714 {
 715     return CreateWaitableTimerExW( sa, name, manual ? CREATE_WAITABLE_TIMER_MANUAL_RESET : 0,
 716                                    TIMER_ALL_ACCESS );
 717 }
 718
 719
 720 /***********************************************************************
 721  *           CreateWaitableTimerExW    (kernelbase.@)
 722  */
 723 HANDLE WINAPI DECLSPEC_HOTPATCH CreateWaitableTimerExW( SECURITY_ATTRIBUTES *sa, LPCWSTR name,
 724                                                         DWORD flags, DWORD access )
 725 {
 726     HANDLE handle;
 727     NTSTATUS status;
 728     UNICODE_STRING nameW;
 729     OBJECT_ATTRIBUTES attr;
 730
 731     get_create_object_attributes( &attr, &nameW, sa, name );
 732
 733     status = NtCreateTimer( &handle, access, &attr,
 734                  (flags & CREATE_WAITABLE_TIMER_MANUAL_RESET) ? NotificationTimer : SynchronizationTimer );
 735     if (status == STATUS_OBJECT_NAME_EXISTS)
 736         SetLastError( ERROR_ALREADY_EXISTS );
 737     else
 738         SetLastError( RtlNtStatusToDosError(status) );
 739     return handle;
 740 }
 741
 742
 743 /***********************************************************************
 744  *           OpenWaitableTimerW    (kernelbase.@)
 745  */
 746 HANDLE WINAPI DECLSPEC_HOTPATCH OpenWaitableTimerW( DWORD access, BOOL inherit, LPCWSTR name )
 747 {
 748     HANDLE handle;
 749     UNICODE_STRING nameW;
 750     OBJECT_ATTRIBUTES attr;
 751
 752     if (!is_version_nt()) access = TIMER_ALL_ACCESS;
 753
 754     if (!get_open_object_attributes( &attr, &nameW, inherit, name )) return 0;
 755
 756     if (!set_ntstatus( NtOpenTimer( &handle, access, &attr ))) return 0;
 757     return handle;
 758 }
 759
 760
 761 /***********************************************************************
 762  *           SetWaitableTimer    (kernelbase.@)
 763  */
 764 BOOL WINAPI DECLSPEC_HOTPATCH SetWaitableTimer( HANDLE handle, const LARGE_INTEGER *when, LONG period,
 765                                                 PTIMERAPCROUTINE callback, LPVOID arg, BOOL resume )
 766 {
 767     NTSTATUS status = NtSetTimer( handle, when, (PTIMER_APC_ROUTINE)callback,
 768                                   arg, resume, period, NULL );
 769     return set_ntstatus( status ) || status == STATUS_TIMER_RESUME_IGNORED;
 770 }
 771
 772
 773 /***********************************************************************
 774  *           SetWaitableTimerEx    (kernelbase.@)
 775  */
 776 BOOL WINAPI DECLSPEC_HOTPATCH SetWaitableTimerEx( HANDLE handle, const LARGE_INTEGER *when, LONG period,
 777                                                   PTIMERAPCROUTINE callback, LPVOID arg,
 778                                                   REASON_CONTEXT *context, ULONG tolerabledelay )
 779 {
 780     static int once;
 781     if (!once++) FIXME( "(%p, %p, %ld, %p, %p, %p, %ld) semi-stub\n",
 782                         handle, when, period, callback, arg, context, tolerabledelay );
 783
 784     return SetWaitableTimer( handle, when, period, callback, arg, FALSE );
 785 }
 786
 787
 788 /***********************************************************************
 789  *           CancelWaitableTimer    (kernelbase.@)
 790  */
 791 BOOL WINAPI DECLSPEC_HOTPATCH CancelWaitableTimer( HANDLE handle )
 792 {
 793     return set_ntstatus( NtCancelTimer( handle, NULL ));
 794 }
 795
 796
 797 /***********************************************************************
 798  * Timer queues
 799  ***********************************************************************/
 800
 801
 802 /***********************************************************************
 803  *           CreateTimerQueue  (kernelbase.@)
 804  */
 805 HANDLE WINAPI DECLSPEC_HOTPATCH CreateTimerQueue(void)
 806 {
 807     HANDLE q;
 808
 809     if (!set_ntstatus( RtlCreateTimerQueue( &q ))) return NULL;
 810     return q;
 811 }
 812
 813
 814 /***********************************************************************
 815  *           CreateTimerQueueTimer  (kernelbase.@)
 816  */
 817 BOOL WINAPI DECLSPEC_HOTPATCH CreateTimerQueueTimer( PHANDLE timer, HANDLE queue,
 818                                                      WAITORTIMERCALLBACK callback, PVOID arg,
 819                                                      DWORD when, DWORD period, ULONG flags )
 820 {
 821     return set_ntstatus( RtlCreateTimer( queue, timer, callback, arg, when, period, flags ));
 822 }
 823
 824
 825 /***********************************************************************
 826  *           ChangeTimerQueueTimer  (kernelbase.@)
 827  */
 828 BOOL WINAPI DECLSPEC_HOTPATCH ChangeTimerQueueTimer( HANDLE queue, HANDLE timer,
 829                                                      ULONG when, ULONG period )
 830 {
 831     return set_ntstatus( RtlUpdateTimer( queue, timer, when, period ));
 832 }
 833
 834
 835 /***********************************************************************
 836  *           DeleteTimerQueueEx  (kernelbase.@)
 837  */
 838 BOOL WINAPI DECLSPEC_HOTPATCH DeleteTimerQueueEx( HANDLE queue, HANDLE event )
 839 {
 840     return set_ntstatus( RtlDeleteTimerQueueEx( queue, event ));
 841 }
 842
 843
 844 /***********************************************************************
 845  *           DeleteTimerQueueTimer  (kernelbase.@)
 846  */
 847 BOOL WINAPI DECLSPEC_HOTPATCH DeleteTimerQueueTimer( HANDLE queue, HANDLE timer, HANDLE event )
 848 {
 849     return set_ntstatus( RtlDeleteTimer( queue, timer, event ));
 850 }
 851
 852
 853 /***********************************************************************
 854  * Critical sections
 855  ***********************************************************************/
 856
 857
 858 /***********************************************************************
 859  *           InitializeCriticalSectionAndSpinCount   (kernelbase.@)
 860  */
 861 BOOL WINAPI DECLSPEC_HOTPATCH InitializeCriticalSectionAndSpinCount( CRITICAL_SECTION *crit, DWORD count )
 862 {
 863     return !RtlInitializeCriticalSectionAndSpinCount( crit, count );
 864 }
 865
 866 /***********************************************************************
 867  *           InitializeCriticalSectionEx   (kernelbase.@)
 868  */
 869 BOOL WINAPI DECLSPEC_HOTPATCH InitializeCriticalSectionEx( CRITICAL_SECTION *crit, DWORD spincount,
 870                                                            DWORD flags )
 871 {
 872     NTSTATUS ret = RtlInitializeCriticalSectionEx( crit, spincount, flags );
 873     if (ret) RtlRaiseStatus( ret );
 874     return !ret;
 875 }
 876
 877
 878 /***********************************************************************
 879  * File mappings
 880  ***********************************************************************/
 881
 882 /***********************************************************************
 883  *             CreateFileMappingW   (kernelbase.@)
 884  */
 885 HANDLE WINAPI DECLSPEC_HOTPATCH CreateFileMappingW( HANDLE file, LPSECURITY_ATTRIBUTES sa, DWORD protect,
 886                                                     DWORD size_high, DWORD size_low, LPCWSTR name )
 887 {
 888     static const int sec_flags = (SEC_FILE | SEC_IMAGE | SEC_RESERVE | SEC_COMMIT |
 889                                   SEC_NOCACHE | SEC_WRITECOMBINE | SEC_LARGE_PAGES);
 890     HANDLE ret;
 891     NTSTATUS status;
 892     DWORD access, sec_type;
 893     LARGE_INTEGER size;
 894     UNICODE_STRING nameW;
 895     OBJECT_ATTRIBUTES attr;
 896
 897     sec_type = protect & sec_flags;
 898     protect &= ~sec_flags;
 899     if (!sec_type) sec_type = SEC_COMMIT;
 900
 901     /* Win9x compatibility */
 902     if (!protect && !is_version_nt()) protect = PAGE_READONLY;
 903
 904     switch(protect)
 905     {
 906     case PAGE_READONLY:
 907     case PAGE_WRITECOPY:
 908         access = STANDARD_RIGHTS_REQUIRED | SECTION_QUERY | SECTION_MAP_READ;
 909         break;
 910     case PAGE_READWRITE:
 911         access = STANDARD_RIGHTS_REQUIRED | SECTION_QUERY | SECTION_MAP_READ | SECTION_MAP_WRITE;
 912         break;
 913     case PAGE_EXECUTE_READ:
 914     case PAGE_EXECUTE_WRITECOPY:
 915         access = STANDARD_RIGHTS_REQUIRED | SECTION_QUERY | SECTION_MAP_READ | SECTION_MAP_EXECUTE;
 916         break;
 917     case PAGE_EXECUTE_READWRITE:
 918         access = STANDARD_RIGHTS_REQUIRED | SECTION_QUERY | SECTION_MAP_READ | SECTION_MAP_WRITE | SECTION_MAP_EXECUTE;
 919         break;
 920     default:
 921         SetLastError( ERROR_INVALID_PARAMETER );
 922         return 0;
 923     }
 924
 925     size.u.LowPart  = size_low;
 926     size.u.HighPart = size_high;
 927
 928     if (file == INVALID_HANDLE_VALUE)
 929     {
 930         file = 0;
 931         if (!size.QuadPart)
 932         {
 933             SetLastError( ERROR_INVALID_PARAMETER );
 934             return 0;
 935         }
 936     }
 937
 938     get_create_object_attributes( &attr, &nameW, sa, name );
 939
 940     status = NtCreateSection( &ret, access, &attr, &size, protect, sec_type, file );
 941     if (status == STATUS_OBJECT_NAME_EXISTS)
 942         SetLastError( ERROR_ALREADY_EXISTS );
 943     else
 944         SetLastError( RtlNtStatusToDosError(status) );
 945     return ret;
 946 }
 947
 948
 949 /***********************************************************************
 950  *             CreateFileMappingFromApp   (kernelbase.@)
 951  */
 952 HANDLE WINAPI DECLSPEC_HOTPATCH CreateFileMappingFromApp( HANDLE file, LPSECURITY_ATTRIBUTES sa, ULONG protect,
 953         ULONG64 size, LPCWSTR name )
 954 {
 955     return CreateFileMappingW( file, sa, protect, size << 32, size, name );
 956 }
 957
 958 /***********************************************************************
 959  *             OpenFileMappingW   (kernelbase.@)
 960  */
 961 HANDLE WINAPI DECLSPEC_HOTPATCH OpenFileMappingW( DWORD access, BOOL inherit, LPCWSTR name )
 962 {
 963     OBJECT_ATTRIBUTES attr;
 964     UNICODE_STRING nameW;
 965     HANDLE ret;
 966
 967     if (!get_open_object_attributes( &attr, &nameW, inherit, name )) return 0;
 968
 969     if (access == FILE_MAP_COPY) access = SECTION_MAP_READ;
 970
 971     if (!is_version_nt())
 972     {
 973         /* win9x doesn't do access checks, so try with full access first */
 974         if (!NtOpenSection( &ret, access | SECTION_MAP_READ | SECTION_MAP_WRITE, &attr )) return ret;
 975     }
 976
 977     if (!set_ntstatus( NtOpenSection( &ret, access, &attr ))) return 0;
 978     return ret;
 979 }
 980
 981
 982 /***********************************************************************
 983  *             OpenFileMappingFromApp   (kernelbase.@)
 984  */
 985 HANDLE WINAPI DECLSPEC_HOTPATCH OpenFileMappingFromApp( ULONG access, BOOL inherit, LPCWSTR name )
 986 {
 987     OBJECT_ATTRIBUTES attr;
 988     UNICODE_STRING nameW;
 989     HANDLE ret;
 990
 991     if (!get_open_object_attributes( &attr, &nameW, inherit, name )) return 0;
 992
 993     if (access == FILE_MAP_COPY) access = SECTION_MAP_READ;
 994
 995     if (!set_ntstatus( NtOpenSection( &ret, access, &attr ))) return 0;
 996     return ret;
 997 }
 998
 999
1000 /***********************************************************************
1001  * Condition variables
1002  ***********************************************************************/
1003
1004
1005 /***********************************************************************
1006  *           SleepConditionVariableCS   (kernelbase.@)
1007  */
1008 BOOL WINAPI DECLSPEC_HOTPATCH SleepConditionVariableCS( CONDITION_VARIABLE *variable,
1009                                                         CRITICAL_SECTION *crit, DWORD timeout )
1010 {
1011     LARGE_INTEGER time;
1012
1013     return set_ntstatus( RtlSleepConditionVariableCS( variable, crit, get_nt_timeout( &time, timeout )));
1014 }
1015
1016
1017 /***********************************************************************
1018  *           SleepConditionVariableSRW   (kernelbase.@)
1019  */
1020 BOOL WINAPI DECLSPEC_HOTPATCH SleepConditionVariableSRW( RTL_CONDITION_VARIABLE *variable,
1021                                                          RTL_SRWLOCK *lock, DWORD timeout, ULONG flags )
1022 {
1023     LARGE_INTEGER time;
1024
1025     return set_ntstatus( RtlSleepConditionVariableSRW( variable, lock,
1026                                                        get_nt_timeout( &time, timeout ), flags ));
1027 }
1028
1029
1030 /***********************************************************************
1031  * I/O completions
1032  ***********************************************************************/
1033
1034
1035 /******************************************************************************
1036  *              CreateIoCompletionPort   (kernelbase.@)
1037  */
1038 HANDLE WINAPI DECLSPEC_HOTPATCH CreateIoCompletionPort( HANDLE handle, HANDLE port,
1039                                                         ULONG_PTR key, DWORD threads )
1040 {
1041     FILE_COMPLETION_INFORMATION info;
1042     IO_STATUS_BLOCK iosb;
1043     HANDLE ret = port;
1044
1045     TRACE( "(%p, %p, %08Ix, %08lx)\n", handle, port, key, threads );
1046
1047     if (!port)
1048     {
1049         if (!set_ntstatus( NtCreateIoCompletion( &ret, IO_COMPLETION_ALL_ACCESS, NULL, threads )))
1050             return 0;
1051     }
1052     else if (handle == INVALID_HANDLE_VALUE)
1053     {
1054         SetLastError( ERROR_INVALID_PARAMETER );
1055         return 0;
1056     }
1057
1058     if (handle != INVALID_HANDLE_VALUE)
1059     {
1060         info.CompletionPort = ret;
1061         info.CompletionKey = key;
1062         if (!set_ntstatus( NtSetInformationFile( handle, &iosb, &info, sizeof(info), FileCompletionInformation )))
1063         {
1064             if (!port) CloseHandle( ret );
1065             return 0;
1066         }
1067     }
1068     return ret;
1069 }
1070
1071
1072 /******************************************************************************
1073  *              GetQueuedCompletionStatus   (kernelbase.@)
1074  */
1075 BOOL WINAPI DECLSPEC_HOTPATCH GetQueuedCompletionStatus( HANDLE port, LPDWORD count, PULONG_PTR key,
1076                                                          LPOVERLAPPED *overlapped, DWORD timeout )
1077 {
1078     NTSTATUS status;
1079     IO_STATUS_BLOCK iosb;
1080     LARGE_INTEGER wait_time;
1081
1082     TRACE( "(%p,%p,%p,%p,%ld)\n", port, count, key, overlapped, timeout );
1083
1084     *overlapped = NULL;
1085     status = NtRemoveIoCompletion( port, key, (PULONG_PTR)overlapped, &iosb,
1086                                    get_nt_timeout( &wait_time, timeout ) );
1087     if (status == STATUS_SUCCESS)
1088     {
1089         *count = iosb.Information;
1090         if (iosb.u.Status >= 0) return TRUE;
1091         SetLastError( RtlNtStatusToDosError(iosb.u.Status) );
1092         return FALSE;
1093     }
1094
1095     if (status == STATUS_TIMEOUT) SetLastError( WAIT_TIMEOUT );
1096     else SetLastError( RtlNtStatusToDosError(status) );
1097     return FALSE;
1098 }
1099
1100 /******************************************************************************
1101  *              GetQueuedCompletionStatusEx   (kernelbase.@)
1102  */
1103 BOOL WINAPI DECLSPEC_HOTPATCH GetQueuedCompletionStatusEx( HANDLE port, OVERLAPPED_ENTRY *entries,
1104                                                            ULONG count, ULONG *written,
1105                                                            DWORD timeout, BOOL alertable )
1106 {
1107     LARGE_INTEGER time;
1108     NTSTATUS ret;
1109
1110     TRACE( "%p %p %lu %p %lu %u\n", port, entries, count, written, timeout, alertable );
1111
1112     ret = NtRemoveIoCompletionEx( port, (FILE_IO_COMPLETION_INFORMATION *)entries, count,
1113                                   written, get_nt_timeout( &time, timeout ), alertable );
1114     if (ret == STATUS_SUCCESS) return TRUE;
1115     else if (ret == STATUS_TIMEOUT) SetLastError( WAIT_TIMEOUT );
1116     else if (ret == STATUS_USER_APC) SetLastError( WAIT_IO_COMPLETION );
1117     else SetLastError( RtlNtStatusToDosError(ret) );
1118     return FALSE;
1119 }
1120
1121
1122 /******************************************************************************
1123  *              PostQueuedCompletionStatus   (kernelbase.@)
1124  */
1125 BOOL WINAPI DECLSPEC_HOTPATCH PostQueuedCompletionStatus( HANDLE port, DWORD count,
1126                                                           ULONG_PTR key, LPOVERLAPPED overlapped )
1127 {
1128     TRACE( "%p %ld %08Ix %p\n", port, count, key, overlapped );
1129
1130     return set_ntstatus( NtSetIoCompletion( port, key, (ULONG_PTR)overlapped, STATUS_SUCCESS, count ));
1131 }
1132
1133
1134 /***********************************************************************
1135  * Named pipes
1136  ***********************************************************************/
1137
1138
1139 /***********************************************************************
1140  *           CallNamedPipeW   (kernelbase.@)
1141  */
1142 BOOL WINAPI DECLSPEC_HOTPATCH CallNamedPipeW( LPCWSTR name, LPVOID input, DWORD in_size,
1143                                               LPVOID output, DWORD out_size,
1144                                               LPDWORD read_size, DWORD timeout )
1145 {
1146     HANDLE pipe;
1147     BOOL ret;
1148     DWORD mode;
1149
1150     TRACE( "%s %p %ld %p %ld %p %ld\n", debugstr_w(name),
1151            input, in_size, output, out_size, read_size, timeout );
1152
1153     pipe = CreateFileW( name, GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL );
1154     if (pipe == INVALID_HANDLE_VALUE)
1155     {
1156         if (!WaitNamedPipeW( name, timeout )) return FALSE;
1157         pipe = CreateFileW( name, GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL );
1158         if (pipe == INVALID_HANDLE_VALUE) return FALSE;
1159     }
1160
1161     mode = PIPE_READMODE_MESSAGE;
1162     ret = SetNamedPipeHandleState( pipe, &mode, NULL, NULL );
1163     if (ret) ret = TransactNamedPipe( pipe, input, in_size, output, out_size, read_size, NULL );
1164     CloseHandle( pipe );
1165     return ret;
1166 }
1167
1168
1169 /***********************************************************************
1170  *           ConnectNamedPipe   (kernelbase.@)
1171  */
1172 BOOL WINAPI DECLSPEC_HOTPATCH ConnectNamedPipe( HANDLE pipe, LPOVERLAPPED overlapped )
1173 {
1174     NTSTATUS status;
1175     IO_STATUS_BLOCK status_block;
1176     LPVOID cvalue = NULL;
1177
1178     TRACE( "(%p,%p)\n", pipe, overlapped );
1179
1180     if (overlapped)
1181     {
1182         overlapped->Internal = STATUS_PENDING;
1183         overlapped->InternalHigh = 0;
1184         if (((ULONG_PTR)overlapped->hEvent & 1) == 0) cvalue = overlapped;
1185     }
1186
1187     status = NtFsControlFile( pipe, overlapped ? overlapped->hEvent : NULL, NULL, cvalue,
1188                               overlapped ? (IO_STATUS_BLOCK *)overlapped : &status_block,
1189                               FSCTL_PIPE_LISTEN, NULL, 0, NULL, 0 );
1190     if (status == STATUS_PENDING && !overlapped)
1191     {
1192         WaitForSingleObject( pipe, INFINITE );
1193         status = status_block.u.Status;
1194     }
1195     return set_ntstatus( status );
1196 }
1197
1198 /***********************************************************************
1199  *           CreateNamedPipeW   (kernelbase.@)
1200  */
1201 HANDLE WINAPI DECLSPEC_HOTPATCH CreateNamedPipeW( LPCWSTR name, DWORD open_mode, DWORD pipe_mode,
1202                                                   DWORD instances, DWORD out_buff, DWORD in_buff,
1203                                                   DWORD timeout, LPSECURITY_ATTRIBUTES sa )
1204 {
1205     HANDLE handle;
1206     UNICODE_STRING nt_name;
1207     OBJECT_ATTRIBUTES attr;
1208     DWORD access, options, sharing;
1209     BOOLEAN pipe_type, read_mode, non_block;
1210     NTSTATUS status;
1211     IO_STATUS_BLOCK iosb;
1212     LARGE_INTEGER time;
1213
1214     TRACE( "(%s, %#08lx, %#08lx, %ld, %ld, %ld, %ld, %p)\n", debugstr_w(name),
1215            open_mode, pipe_mode, instances, out_buff, in_buff, timeout, sa );
1216
1217     if (!RtlDosPathNameToNtPathName_U( name, &nt_name, NULL, NULL ))
1218     {
1219         SetLastError( ERROR_PATH_NOT_FOUND );
1220         return INVALID_HANDLE_VALUE;
1221     }
1222     if (nt_name.Length >= MAX_PATH * sizeof(WCHAR) )
1223     {
1224         SetLastError( ERROR_FILENAME_EXCED_RANGE );
1225         RtlFreeUnicodeString( &nt_name );
1226         return INVALID_HANDLE_VALUE;
1227     }
1228
1229     attr.Length                   = sizeof(attr);
1230     attr.RootDirectory            = 0;
1231     attr.ObjectName               = &nt_name;
1232     attr.Attributes               = OBJ_CASE_INSENSITIVE | ((sa && sa->bInheritHandle) ? OBJ_INHERIT : 0);
1233     attr.SecurityDescriptor       = sa ? sa->lpSecurityDescriptor : NULL;
1234     attr.SecurityQualityOfService = NULL;
1235
1236     switch (open_mode & 3)
1237     {
1238     case PIPE_ACCESS_INBOUND:
1239         sharing = FILE_SHARE_WRITE;
1240         access  = GENERIC_READ;
1241         break;
1242     case PIPE_ACCESS_OUTBOUND:
1243         sharing = FILE_SHARE_READ;
1244         access  = GENERIC_WRITE;
1245         break;
1246     case PIPE_ACCESS_DUPLEX:
1247         sharing = FILE_SHARE_READ | FILE_SHARE_WRITE;
1248         access  = GENERIC_READ | GENERIC_WRITE;
1249         break;
1250     default:
1251         SetLastError( ERROR_INVALID_PARAMETER );
1252         return INVALID_HANDLE_VALUE;
1253     }
1254     access |= SYNCHRONIZE;
1255     options = 0;
1256     if (open_mode & WRITE_DAC) access |= WRITE_DAC;
1257     if (open_mode & WRITE_OWNER) access |= WRITE_OWNER;
1258     if (open_mode & ACCESS_SYSTEM_SECURITY) access |= ACCESS_SYSTEM_SECURITY;
1259     if (open_mode & FILE_FLAG_WRITE_THROUGH) options |= FILE_WRITE_THROUGH;
1260     if (!(open_mode & FILE_FLAG_OVERLAPPED)) options |= FILE_SYNCHRONOUS_IO_NONALERT;
1261     pipe_type = (pipe_mode & PIPE_TYPE_MESSAGE) != 0;
1262     read_mode = (pipe_mode & PIPE_READMODE_MESSAGE) != 0;
1263     non_block = (pipe_mode & PIPE_NOWAIT) != 0;
1264     if (instances >= PIPE_UNLIMITED_INSTANCES) instances = ~0U;
1265
1266     time.QuadPart = (ULONGLONG)timeout * -10000;
1267     SetLastError( 0 );
1268     status = NtCreateNamedPipeFile( &handle, access, &attr, &iosb, sharing,
1269                                     FILE_OVERWRITE_IF, options, pipe_type,
1270                                     read_mode, non_block, instances, in_buff, out_buff, &time );
1271     RtlFreeUnicodeString( &nt_name );
1272     if (!set_ntstatus( status )) return INVALID_HANDLE_VALUE;
1273     return handle;
1274 }
1275
1276
1277 /******************************************************************
1278  *           CreatePipe   (kernelbase.@)
1279  */
1280 BOOL WINAPI DECLSPEC_HOTPATCH CreatePipe( HANDLE *read_pipe, HANDLE *write_pipe,
1281                                           SECURITY_ATTRIBUTES *sa, DWORD size )
1282 {
1283     static unsigned int index;
1284     WCHAR name[64];
1285     UNICODE_STRING nt_name;
1286     OBJECT_ATTRIBUTES attr;
1287     IO_STATUS_BLOCK iosb;
1288     LARGE_INTEGER timeout;
1289
1290     *read_pipe = *write_pipe = INVALID_HANDLE_VALUE;
1291
1292     attr.Length             = sizeof(attr);
1293     attr.RootDirectory      = 0;
1294     attr.ObjectName         = &nt_name;
1295     attr.Attributes         = OBJ_CASE_INSENSITIVE | ((sa && sa->bInheritHandle) ? OBJ_INHERIT : 0);
1296     attr.SecurityDescriptor = sa ? sa->lpSecurityDescriptor : NULL;
1297     attr.SecurityQualityOfService = NULL;
1298
1299     if (!size) size = 4096;
1300
1301     timeout.QuadPart = (ULONGLONG)NMPWAIT_USE_DEFAULT_WAIT * -10000;
1302
1303     /* generate a unique pipe name (system wide) */
1304     for (;;)
1305     {
1306         swprintf( name, ARRAY_SIZE(name), L"\\??\\pipe\\Win32.Pipes.%08lu.%08u",
1307                   GetCurrentProcessId(), ++index );
1308         RtlInitUnicodeString( &nt_name, name );
1309         if (!NtCreateNamedPipeFile( read_pipe, GENERIC_READ | FILE_WRITE_ATTRIBUTES | SYNCHRONIZE,
1310                                     &attr, &iosb, FILE_SHARE_WRITE, FILE_OVERWRITE_IF,
1311                                     FILE_SYNCHRONOUS_IO_NONALERT,
1312                                     FALSE, FALSE, FALSE, 1, size, size, &timeout ))
1313             break;
1314     }
1315     if (!set_ntstatus( NtOpenFile( write_pipe, GENERIC_WRITE | FILE_READ_ATTRIBUTES | SYNCHRONIZE, &attr,
1316                                    &iosb, 0, FILE_SYNCHRONOUS_IO_NONALERT | FILE_NON_DIRECTORY_FILE )))
1317     {
1318         NtClose( *read_pipe );
1319         return FALSE;
1320     }
1321     return TRUE;
1322 }
1323
1324
1325 /***********************************************************************
1326  *           DisconnectNamedPipe   (kernelbase.@)
1327  */
1328 BOOL WINAPI DECLSPEC_HOTPATCH DisconnectNamedPipe( HANDLE pipe )
1329 {
1330     IO_STATUS_BLOCK io_block;
1331
1332     TRACE( "(%p)\n", pipe );
1333     return set_ntstatus( NtFsControlFile( pipe, 0, NULL, NULL, &io_block,
1334                                           FSCTL_PIPE_DISCONNECT, NULL, 0, NULL, 0 ));
1335 }
1336
1337
1338 /***********************************************************************
1339  *           GetNamedPipeHandleStateW   (kernelbase.@)
1340  */
1341 BOOL WINAPI DECLSPEC_HOTPATCH GetNamedPipeHandleStateW( HANDLE pipe, DWORD *state, DWORD *instances,
1342                                                         DWORD *max_count, DWORD *timeout,
1343                                                         WCHAR *user, DWORD size )
1344 {
1345     IO_STATUS_BLOCK io;
1346
1347     FIXME( "%p %p %p %p %p %p %ld: semi-stub\n", pipe, state, instances, max_count, timeout, user, size );
1348
1349     if (max_count) *max_count = 0;
1350     if (timeout) *timeout = 0;
1351     if (user && size && !GetEnvironmentVariableW( L"WINEUSERNAME", user, size )) user[0] = 0;
1352
1353     if (state)
1354     {
1355         FILE_PIPE_INFORMATION info;
1356
1357         if (!set_ntstatus( NtQueryInformationFile( pipe, &io, &info, sizeof(info), FilePipeInformation )))
1358             return FALSE;
1359
1360         *state = (info.ReadMode ? PIPE_READMODE_MESSAGE : PIPE_READMODE_BYTE) |
1361                  (info.CompletionMode ? PIPE_NOWAIT : PIPE_WAIT);
1362     }
1363     if (instances)
1364     {
1365         FILE_PIPE_LOCAL_INFORMATION info;
1366
1367         if (!set_ntstatus( NtQueryInformationFile( pipe, &io, &info, sizeof(info),
1368                                                    FilePipeLocalInformation)))
1369             return FALSE;
1370         *instances = info.CurrentInstances;
1371     }
1372     return TRUE;
1373 }
1374
1375
1376 /***********************************************************************
1377  *           GetNamedPipeInfo   (kernelbase.@)
1378  */
1379 BOOL WINAPI DECLSPEC_HOTPATCH GetNamedPipeInfo( HANDLE pipe, LPDWORD flags, LPDWORD out_size,
1380                                                 LPDWORD in_size, LPDWORD instances )
1381 {
1382     FILE_PIPE_LOCAL_INFORMATION info;
1383     IO_STATUS_BLOCK iosb;
1384
1385     if (!set_ntstatus( NtQueryInformationFile( pipe, &iosb, &info, sizeof(info), FilePipeLocalInformation )))
1386         return FALSE;
1387
1388     if (flags)
1389     {
1390         *flags = (info.NamedPipeEnd & FILE_PIPE_SERVER_END) ? PIPE_SERVER_END : PIPE_CLIENT_END;
1391         *flags |= (info.NamedPipeType & FILE_PIPE_TYPE_MESSAGE) ? PIPE_TYPE_MESSAGE : PIPE_TYPE_BYTE;
1392     }
1393     if (out_size) *out_size = info.OutboundQuota;
1394     if (in_size) *in_size = info.InboundQuota;
1395     if (instances) *instances = info.MaximumInstances;
1396     return TRUE;
1397 }
1398
1399
1400 /***********************************************************************
1401  *           PeekNamedPipe   (kernelbase.@)
1402  */
1403 BOOL WINAPI DECLSPEC_HOTPATCH PeekNamedPipe( HANDLE pipe, LPVOID out_buffer, DWORD size,
1404                                              LPDWORD read_size, LPDWORD avail, LPDWORD message )
1405 {
1406     FILE_PIPE_PEEK_BUFFER local_buffer;
1407     FILE_PIPE_PEEK_BUFFER *buffer = &local_buffer;
1408     IO_STATUS_BLOCK io;
1409     NTSTATUS status;
1410
1411     if (size && !(buffer = HeapAlloc( GetProcessHeap(), 0,
1412                                       FIELD_OFFSET( FILE_PIPE_PEEK_BUFFER, Data[size] ))))
1413     {
1414         SetLastError( ERROR_NOT_ENOUGH_MEMORY );
1415         return FALSE;
1416     }
1417
1418     status = NtFsControlFile( pipe, 0, NULL, NULL, &io, FSCTL_PIPE_PEEK, NULL, 0,
1419                               buffer, FIELD_OFFSET( FILE_PIPE_PEEK_BUFFER, Data[size] ) );
1420     if (status == STATUS_BUFFER_OVERFLOW) status = STATUS_SUCCESS;
1421     if (!status)
1422     {
1423         ULONG count = io.Information - FIELD_OFFSET( FILE_PIPE_PEEK_BUFFER, Data );
1424         if (avail) *avail = buffer->ReadDataAvailable;
1425         if (read_size) *read_size = count;
1426         if (message) *message = buffer->MessageLength - count;
1427         if (out_buffer) memcpy( out_buffer, buffer->Data, count );
1428     }
1429     else SetLastError( RtlNtStatusToDosError(status) );
1430
1431     if (buffer != &local_buffer) HeapFree( GetProcessHeap(), 0, buffer );
1432     return !status;
1433 }
1434
1435
1436 /***********************************************************************
1437  *           SetNamedPipeHandleState  (kernelbase.@)
1438  */
1439 BOOL WINAPI DECLSPEC_HOTPATCH SetNamedPipeHandleState( HANDLE pipe, LPDWORD mode,
1440                                                        LPDWORD count, LPDWORD timeout )
1441 {
1442     FILE_PIPE_INFORMATION info;
1443     IO_STATUS_BLOCK iosb;
1444     NTSTATUS status = STATUS_SUCCESS;
1445
1446     TRACE( "%p %p/%ld %p %p\n", pipe, mode, mode ? *mode : 0, count, timeout );
1447     if (count || timeout) FIXME( "Unsupported arguments\n" );
1448
1449     if (mode)
1450     {
1451         if (*mode & ~(PIPE_READMODE_MESSAGE | PIPE_NOWAIT)) status = STATUS_INVALID_PARAMETER;
1452         else
1453         {
1454             info.CompletionMode = (*mode & PIPE_NOWAIT) ?
1455                 FILE_PIPE_COMPLETE_OPERATION : FILE_PIPE_QUEUE_OPERATION;
1456             info.ReadMode = (*mode & PIPE_READMODE_MESSAGE) ?
1457                 FILE_PIPE_MESSAGE_MODE : FILE_PIPE_BYTE_STREAM_MODE;
1458             status = NtSetInformationFile( pipe, &iosb, &info, sizeof(info), FilePipeInformation );
1459         }
1460     }
1461     return set_ntstatus( status );
1462 }
1463
1464 /***********************************************************************
1465  *           TransactNamedPipe   (kernelbase.@)
1466  */
1467 BOOL WINAPI DECLSPEC_HOTPATCH TransactNamedPipe( HANDLE handle, LPVOID write_buf, DWORD write_size,
1468                                                  LPVOID read_buf, DWORD read_size, LPDWORD bytes_read,
1469                                                  LPOVERLAPPED overlapped)
1470 {
1471     IO_STATUS_BLOCK default_iosb, *iosb = &default_iosb;
1472     HANDLE event = NULL;
1473     void *cvalue = NULL;
1474     NTSTATUS status;
1475
1476     TRACE( "%p %p %lu %p %lu %p %p\n", handle,
1477            write_buf, write_size, read_buf, read_size, bytes_read, overlapped );
1478
1479     if (overlapped)
1480     {
1481         event = overlapped->hEvent;
1482         iosb = (IO_STATUS_BLOCK *)overlapped;
1483         if (((ULONG_PTR)event & 1) == 0) cvalue = overlapped;
1484     }
1485     else
1486     {
1487         iosb->Information = 0;
1488     }
1489
1490     status = NtFsControlFile( handle, event, NULL, cvalue, iosb, FSCTL_PIPE_TRANSCEIVE,
1491                               write_buf, write_size, read_buf, read_size );
1492     if (status == STATUS_PENDING && !overlapped)
1493     {
1494         WaitForSingleObject(handle, INFINITE);
1495         status = iosb->u.Status;
1496     }
1497
1498     if (bytes_read) *bytes_read = overlapped && status ? 0 : iosb->Information;
1499     return set_ntstatus( status );
1500 }
1501
1502
1503 /***********************************************************************
1504  *           WaitNamedPipeW   (kernelbase.@)
1505  */
1506 BOOL WINAPI DECLSPEC_HOTPATCH WaitNamedPipeW( LPCWSTR name, DWORD timeout )
1507 {
1508     static const int prefix_len = sizeof(L"\\??\\PIPE\\") - sizeof(WCHAR);
1509     NTSTATUS status;
1510     UNICODE_STRING nt_name, pipe_dev_name;
1511     FILE_PIPE_WAIT_FOR_BUFFER *pipe_wait;
1512     IO_STATUS_BLOCK iosb;
1513     OBJECT_ATTRIBUTES attr;
1514     ULONG wait_size;
1515     HANDLE pipe_dev;
1516
1517     TRACE( "%s 0x%08lx\n", debugstr_w(name), timeout );
1518
1519     if (!RtlDosPathNameToNtPathName_U( name, &nt_name, NULL, NULL )) return FALSE;
1520
1521     if (nt_name.Length >= MAX_PATH * sizeof(WCHAR) ||
1522         nt_name.Length < prefix_len ||
1523         wcsnicmp( nt_name.Buffer, L"\\??\\PIPE\\", prefix_len / sizeof(WCHAR) ))
1524     {
1525         RtlFreeUnicodeString( &nt_name );
1526         SetLastError( ERROR_PATH_NOT_FOUND );
1527         return FALSE;
1528     }
1529
1530     wait_size = offsetof( FILE_PIPE_WAIT_FOR_BUFFER, Name[(nt_name.Length - prefix_len) / sizeof(WCHAR)] );
1531     if (!(pipe_wait = HeapAlloc( GetProcessHeap(), 0,  wait_size)))
1532     {
1533         RtlFreeUnicodeString( &nt_name );
1534         SetLastError( ERROR_OUTOFMEMORY );
1535         return FALSE;
1536     }
1537
1538     pipe_dev_name.Buffer = nt_name.Buffer;
1539     pipe_dev_name.Length = prefix_len;
1540     pipe_dev_name.MaximumLength = prefix_len;
1541     InitializeObjectAttributes( &attr,&pipe_dev_name, OBJ_CASE_INSENSITIVE, NULL, NULL );
1542     status = NtOpenFile( &pipe_dev, FILE_READ_ATTRIBUTES | SYNCHRONIZE, &attr,
1543                          &iosb, FILE_SHARE_READ | FILE_SHARE_WRITE,
1544                          FILE_SYNCHRONOUS_IO_NONALERT);
1545     if (status != STATUS_SUCCESS)
1546     {
1547         HeapFree( GetProcessHeap(), 0, pipe_wait );
1548         RtlFreeUnicodeString( &nt_name );
1549         SetLastError( ERROR_PATH_NOT_FOUND );
1550         return FALSE;
1551     }
1552
1553     pipe_wait->TimeoutSpecified = !(timeout == NMPWAIT_USE_DEFAULT_WAIT);
1554     if (timeout == NMPWAIT_WAIT_FOREVER)
1555         pipe_wait->Timeout.QuadPart = ((ULONGLONG)0x7fffffff << 32) | 0xffffffff;
1556     else
1557         pipe_wait->Timeout.QuadPart = (ULONGLONG)timeout * -10000;
1558     pipe_wait->NameLength = nt_name.Length - prefix_len;
1559     memcpy( pipe_wait->Name, nt_name.Buffer + prefix_len/sizeof(WCHAR), pipe_wait->NameLength );
1560     RtlFreeUnicodeString( &nt_name );
1561
1562     status = NtFsControlFile( pipe_dev, NULL, NULL, NULL, &iosb, FSCTL_PIPE_WAIT,
1563                               pipe_wait, wait_size, NULL, 0 );
1564
1565     HeapFree( GetProcessHeap(), 0, pipe_wait );
1566     NtClose( pipe_dev );
1567     return set_ntstatus( status );
1568 }
1569
1570
1571
1572 /***********************************************************************
1573  * Interlocked functions
1574  ***********************************************************************/
1575
1576
1577 /***********************************************************************
1578  *           InitOnceBeginInitialize    (kernelbase.@)
1579  */
1580 BOOL WINAPI DECLSPEC_HOTPATCH InitOnceBeginInitialize( INIT_ONCE *once, DWORD flags,
1581                                                        BOOL *pending, void **context )
1582 {
1583     NTSTATUS status = RtlRunOnceBeginInitialize( once, flags, context );
1584     if (status >= 0) *pending = (status == STATUS_PENDING);
1585     else SetLastError( RtlNtStatusToDosError(status) );
1586     return status >= 0;
1587 }
1588
1589
1590 /***********************************************************************
1591  *           InitOnceComplete    (kernelbase.@)
1592  */
1593 BOOL WINAPI DECLSPEC_HOTPATCH InitOnceComplete( INIT_ONCE *once, DWORD flags, void *context )
1594 {
1595     return set_ntstatus( RtlRunOnceComplete( once, flags, context ));
1596 }
1597
1598
1599 /***********************************************************************
1600  *           InitOnceExecuteOnce    (kernelbase.@)
1601  */
1602 BOOL WINAPI DECLSPEC_HOTPATCH InitOnceExecuteOnce( INIT_ONCE *once, PINIT_ONCE_FN func,
1603                                                    void *param, void **context )
1604 {
1605     return !RtlRunOnceExecuteOnce( once, (PRTL_RUN_ONCE_INIT_FN)func, param, context );
1606 }
1607
1608 #ifdef __i386__
1609
1610 /***********************************************************************
1611  *           InterlockedCompareExchange   (kernelbase.@)
1612  */
1613 __ASM_STDCALL_FUNC(InterlockedCompareExchange, 12,
1614                   "movl 12(%esp),%eax\n\t"
1615                   "movl 8(%esp),%ecx\n\t"
1616                   "movl 4(%esp),%edx\n\t"
1617                   "lock; cmpxchgl %ecx,(%edx)\n\t"
1618                   "ret $12")
1619
1620 /***********************************************************************
1621  *           InterlockedExchange   (kernelbase.@)
1622  */
1623 __ASM_STDCALL_FUNC(InterlockedExchange, 8,
1624                   "movl 8(%esp),%eax\n\t"
1625                   "movl 4(%esp),%edx\n\t"
1626                   "lock; xchgl %eax,(%edx)\n\t"
1627                   "ret $8")
1628
1629 /***********************************************************************
1630  *           InterlockedExchangeAdd   (kernelbase.@)
1631  */
1632 __ASM_STDCALL_FUNC(InterlockedExchangeAdd, 8,
1633                   "movl 8(%esp),%eax\n\t"
1634                   "movl 4(%esp),%edx\n\t"
1635                   "lock; xaddl %eax,(%edx)\n\t"
1636                   "ret $8")
1637
1638 /***********************************************************************
1639  *           InterlockedIncrement   (kernelbase.@)
1640  */
1641 __ASM_STDCALL_FUNC(InterlockedIncrement, 4,
1642                   "movl 4(%esp),%edx\n\t"
1643                   "movl $1,%eax\n\t"
1644                   "lock; xaddl %eax,(%edx)\n\t"
1645                   "incl %eax\n\t"
1646                   "ret $4")
1647
1648 /***********************************************************************
1649  *           InterlockedDecrement   (kernelbase.@)
1650  */
1651 __ASM_STDCALL_FUNC(InterlockedDecrement, 4,
1652                   "movl 4(%esp),%edx\n\t"
1653                   "movl $-1,%eax\n\t"
1654                   "lock; xaddl %eax,(%edx)\n\t"
1655                   "decl %eax\n\t"
1656                   "ret $4")
1657
1658 #endif  /* __i386__ */