Changeset 435 for trunk/Include/Classes/System/Console.ab

Timestamp:

Feb 28, 2008, 1:39:16 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

Consoleをスレッド安全化（クリティカルセクション使用）。
Exception.HResultをPublicにした。
StringBuilder.Replaceが正しく機能しない問題を解消。

File:

• trunk/Include/Classes/System/Console.ab (modified) (1 diff)

trunk/Include/Classes/System/Console.ab

@@ -36 +36 @@
     */
     Static Function ReadLine() As String
-        ReadLine = in.ReadLine()
+        Dim lock = enter()
+        Try
+            ReadLine = in.ReadLine()
+        Finally
+            lock.Leave()
+        End Try
+    End Function
+
+    /*
+    @brief 標準入力から1行読み込む
+    @date 2008/02/26
+    @auther Egtra
+    */
+    Static Function Read() As Long
+        Dim lock = enter()
+        Try
+            Read = in.Read()
+        Finally
+            lock.Leave()
+        End Try
     End Function
 Private
+    Function enter() As ActiveBasic.Windows.CriticalSectionLock
+        Imports ActiveBasic.Windows
+        If ActiveBasic.IsNothing(cs) Then
+            Dim lock = New CriticalSectionLock(_System_CriticalSection)
+            Try
+                If ActiveBasic.IsNothing(cs) Then
+                    cs = New CriticalSection
+                End If
+            Finally
+                lock.Dispose()
+            End Try
+        End If
+        enter = cs.Enter
+    End Function
+
     Static in = Nothing As IO.TextReader
+    Static cs = Nothing As ActiveBasic.Windows.CriticalSection
 End Class