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