Changeset 419 for trunk/Include/Classes

Timestamp:

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

Author:

NoWest

Message:

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

Location:

trunk/Include/Classes

Files:

• System/Threading/AutoResetEvent.ab (modified) (2 diffs)
• System/Threading/EventWaitHandle.ab (modified) (4 diffs)
• System/Threading/ManualResetEvent.ab (modified) (2 diffs)
• System/Threading/Mutex.ab (added)
• System/Threading/Semaphore.ab (added)
• System/Threading/Timeout.ab (added)
• index.ab (modified) (1 diff)

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

trunk/Include/Classes/index.ab

@@ -81 +81 @@
 #require "./System/Threading/EventWaitHandle.ab"
 #require "./System/Threading/ManualResetEvent.ab"
+#require "./System/Threading/Mutex.ab"
+#require "./System/Threading/Semaphore.ab"
 #require "./System/Threading/Thread.ab"
+#require "./System/Threading/Timeout.ab"
 #require "./System/Threading/WaitHandle.ab"
 #require "./System/Windows/Forms/Application.ab"