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