[46] | 1 | ' Classes/System/Threading/WaitHandle.ab
|
---|
| 2 |
|
---|
| 3 | #ifndef __SYSTEM_THREADING_WAITHANDLE_AB__
|
---|
| 4 | #define __SYSTEM_THREADING_WAITHANDLE_AB__
|
---|
| 5 |
|
---|
| 6 | Class WaitHandle
|
---|
| 7 | Public
|
---|
| 8 | Virtual Sub ~WaitHandle()
|
---|
| 9 | Close()
|
---|
| 10 | End Sub
|
---|
| 11 |
|
---|
| 12 | ' Const Function SafeWaitHandle() As SafeWaitHandle
|
---|
| 13 | ' Sub SafeWaitHandle(h As SafeWaitHandle)
|
---|
| 14 |
|
---|
| 15 | Const Virtual Function Handle() As HANDLE
|
---|
| 16 | Return h
|
---|
| 17 | End Function
|
---|
| 18 |
|
---|
| 19 | Virtual Sub Handle(newHandle As HANDLE)
|
---|
| 20 | h = newHandle
|
---|
| 21 | End Sub
|
---|
| 22 |
|
---|
| 23 | Virtual Sub Close()
|
---|
| 24 | CloseHandle(h)
|
---|
| 25 | End Sub
|
---|
| 26 |
|
---|
| 27 | Sub WaitOne()
|
---|
| 28 | WaitOne(INFINITE, FALSE)
|
---|
| 29 | End Sub
|
---|
| 30 |
|
---|
| 31 | Sub WaitOne(millisecondsTimeout As Long, exitContext As BOOL)
|
---|
| 32 | WaitHandle.ExitThreadIfWaitIsFailed(WaitForSingleObject(h, millisecondsTimeout As DWord))
|
---|
| 33 | End Sub
|
---|
| 34 |
|
---|
| 35 | ' Sub WaitOne(timeout As TimeSpan, exitContext As BOOL)
|
---|
| 36 | /*
|
---|
| 37 | Static Sub WaitAll(count As DWord, handles As *HANDLE)
|
---|
| 38 | WaitAll(count, handles, INFINITE, FALSE)
|
---|
| 39 | End Sub
|
---|
| 40 |
|
---|
| 41 | Static Sub WaitAll(count As DWord, handles As *HANDLE, millisecondsTimeout As Long, exitContext As BOOL)
|
---|
| 42 | WaitHandle.ExitThreadIfWaitIsFailed(WaitForMultipleObjects(count, handles, TRUE, millisecondsTimeout))
|
---|
| 43 | End Sub
|
---|
| 44 |
|
---|
| 45 | ' Static Sub WaitAll(timeout As TimeSpan, handles As *HANDLE, millisecondsTimeout As Long, exitContext As BOOL)
|
---|
| 46 |
|
---|
| 47 | Static Sub WaitAny(count As DWord, handles As *HANDLE)
|
---|
| 48 | WaitAny(count, handles, INFINITE, FALSE)
|
---|
| 49 | End Sub
|
---|
| 50 |
|
---|
| 51 | Static Sub WaitAny(count As DWord, handles As *HANDLE, millisecondsTimeout As Long, exitContext As BOOL)
|
---|
| 52 | WaitHandle.ExitThreadIfWaitIsFailed(WaitForMultipleObjects(count, handles, FALSE, millisecondsTimeout))
|
---|
| 53 | End Sub
|
---|
| 54 |
|
---|
| 55 | ' Static Sub WaitAny(timeout As TimeSpan, handles As *HANDLE, millisecondsTimeout As Long, exitContext As BOOL)
|
---|
| 56 | */
|
---|
| 57 | Static Sub SignalAndWait(ByRef toSignal As WaitHandle, ByRef toWaitOn As WaitHandle)
|
---|
| 58 | SignalAndWait(toSignal, toWaitOn, INFINITE, FALSE)
|
---|
| 59 | End Sub
|
---|
| 60 |
|
---|
| 61 | Static Sub SignalAndWait(ByRef toSignal As WaitHandle, ByRef toWaitOn As WaitHandle, millisecondsTimeout As Long, exitContext As BOOL)
|
---|
| 62 | Dim pSignalObjectAndWait = GetProcAddress(GetModuleHandle("Kernel32.dll"), "SignalObjectAndWait") _
|
---|
| 63 | As *Function(hObjectToSignal As HANDLE, hObjectToWaitOn As HANDLE, dwMilliseconds As DWord, bAlertable As DWord) As DWord
|
---|
| 64 | If pSignalObjectAndWait = 0 Then
|
---|
| 65 | ' PlatformNotSupportedException
|
---|
| 66 | Debug
|
---|
| 67 | ExitThread(0)
|
---|
| 68 | End If
|
---|
| 69 | ExitThreadIfWaitIsFailed(pSignalAndWait(toSignal.Handle, toWaitOn.Handle, millisecondsTimeout As DWord))
|
---|
| 70 | End Sub
|
---|
| 71 |
|
---|
| 72 | ' Static Sub SignalAndWait(ByRef toSignal As WaitHandle, ByRef toWaitOn As WaitHandle, timeout As TimeSpan, exitContext As BOOL)
|
---|
| 73 |
|
---|
| 74 | ' Protected
|
---|
| 75 | Sub WaitHandle()
|
---|
| 76 | End Sub
|
---|
| 77 |
|
---|
| 78 | Protected
|
---|
| 79 | Static Const InvalidHandle = INVALID_HANDLE_VALUE As HANDLE
|
---|
| 80 |
|
---|
| 81 | Private
|
---|
| 82 | h As HANDLE
|
---|
| 83 |
|
---|
| 84 | Static Sub ExitThreadIfWaitIsFailed(ret As DWord)
|
---|
| 85 | Select Case ret
|
---|
| 86 | Case WAIT_OBJECT_0
|
---|
| 87 | Exit Sub
|
---|
| 88 | Case WAIT_TIMEOUT
|
---|
| 89 | Exit Sub
|
---|
| 90 | Case WAIT_ABANDONED
|
---|
| 91 | ' Throw AbandonedMutexException
|
---|
| 92 | Debug
|
---|
| 93 | ExitThread(0)
|
---|
| 94 | 'Case WAIT_FAILED
|
---|
| 95 | Case Else
|
---|
| 96 | ' ObjectDisposedException?
|
---|
| 97 | Debug
|
---|
| 98 | ExitThread(0)
|
---|
| 99 | End Select
|
---|
| 100 | End Sub
|
---|
| 101 | End Class
|
---|
| 102 |
|
---|
| 103 | #endif '__SYSTEM_THREADING_WAITHANDLE_AB__
|
---|