Changeset 419 for trunk/Include/Classes/System/Threading

Timestamp:

Feb 25, 2008, 5:36:26 AM (17 years ago)

Author:

NoWest

Message:

この際なのでWaitHandle系を全部実装

Location:

trunk/Include/Classes/System/Threading

Files:

• AutoResetEvent.ab (modified) (2 diffs)
• EventWaitHandle.ab (modified) (4 diffs)
• ManualResetEvent.ab (modified) (2 diffs)
• Mutex.ab (added)
• Semaphore.ab (added)
• Timeout.ab (added)

trunk/Include/Classes/System/Threading/AutoResetEvent.ab

@@ +1 @@
+' Classes/System/Threading/AutoResetEvent.ab
+
+#ifndef __SYSTEM_THREADING_AUTORESETEVENT_AB__
+#define __SYSTEM_THREADING_AUTORESETEVENT_AB__
 
 NameSpace System
@@ -15 +19 @@
 End Namespace
 End Namespace
+
+#endif

trunk/Include/Classes/System/Threading/EventWaitHandle.ab

@@ +1 @@
+' Classes/System/Threading/EventWaitHandle.ab
+
+#ifndef __SYSTEM_THREADING_EVENTWAITHANDLE_AB__
+#define __SYSTEM_THREADING_EVENTWAITHANDLE_AB__
 
 NameSpace System
@@ -13 +17 @@
 Public
     Sub EventWaitHandle (initialState As Boolean, mode As EventResetMode)
-        This.Handle=CreateEvent(NULL,mode As BOOL,initialState As BOOL,NULL)
+        This.Handle(CreateEvent(NULL,mode As BOOL,initialState As BOOL,NULL))
     End Sub
     Sub EventWaitHandle (initialState As Boolean, mode As EventResetMode, name As String)
-        This.Handle=CreateEvent(NULL,mode As BOOL,initialState As BOOL,name)
+        This.Handle(CreateEvent(NULL,mode As BOOL,initialState As BOOL,ToTCStr(name)))
     End Sub
     Sub EventWaitHandle (initialState As Boolean, mode As EventResetMode, name As String, ByRef createdNew As Boolean)
-        This.Handle=CreateEvent(NULL,mode As BOOL,initialState As BOOL,name)
-        If ERROR_ALREADY_EXISTS=GetLastError() Then createdNew=False
+        This.Handle(CreateEvent(NULL,mode As BOOL,initialState As BOOL,ToTCStr(name)))
+        If ERROR_ALREADY_EXISTS=GetLastError() Then createdNew=False Else createdNew=True
     End Sub
 /*  Sub EventWaitHandle (initialState As Boolean, mode As EventResetMode, name As String, ByRef createdNew As Boolean, EventWaitHandleSecurity)
@@ -54 +58 @@
     */
     Static Function OpenExisting(name As String) As WaitHandle
+        This.Handle(OpenEvent(EVENT_ALL_ACCESS,FALSE,ToTCStr(name)))
     End Function
 
@@ -100 +105 @@
 End Namespace
 End Namespace
+
+#endif

trunk/Include/Classes/System/Threading/ManualResetEvent.ab

@@ +1 @@
+' Classes/System/Threading/ManualResetEvent.ab
+
+#ifndef __SYSTEM_THREADING_MANUALRESETEVENT_AB__
+#define __SYSTEM_THREADING_MANUALRESETEVENT_AB__
 
 NameSpace System
@@ -15 +19 @@
 End Namespace
 End Namespace
+
+#endif