Changeset 599 for trunk/ab5.0/ablib/src/Classes/System/Threading/EventWaitHandle.ab

Timestamp:

Aug 20, 2008, 3:37:44 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

ThreadPoolの実装、WaitHandle.WaitAny/WaitAllのまともな実装、ほか。

File:

• trunk/ab5.0/ablib/src/Classes/System/Threading/EventWaitHandle.ab (modified) (3 diffs)

trunk/ab5.0/ablib/src/Classes/System/Threading/EventWaitHandle.ab

@@ -11 +11 @@
 Class EventWaitHandle
     Inherits System.Threading.WaitHandle
-
+Private
+    Sub EventWaitHandle()
+    End Sub
 Public
     Sub EventWaitHandle (initialState As Boolean, mode As EventResetMode)
@@ -54 +56 @@
     既存の名前付き同期イベントを開きます。
     */
-    Static Function OpenExisting(name As String) As WaitHandle
-        This.Handle(OpenEvent(EVENT_ALL_ACCESS,FALSE,ToTCStr(name)))
+    Static Function OpenExisting(name As String) As EventWaitHandle
+        If ActiveBasic.IsNothing(name) Then
+            Throw New ArgumentNullException("name")
+        Else If name.Length = 0 Then
+            Throw New ArgumentException("name")
+        End If
+        OpenExisting = New EventWaitHandle
+        Dim h = OpenEvent(EVENT_ALL_ACCESS, FALSE, ToTCStr(name))
+        If h = 0 Then
+            IO.Detail.ThrowWinLastErrorIOException("OpenEvent failed.")
+        End If
+        OpenExisting.Handle = h
     End Function
 
@@ -95 +107 @@
 WaitHandle から継承
 Handle
-SafeWaitHandle 
+SafeWaitHandle
 */