Changeset 457 for trunk/Include/Classes/System/IO

Timestamp:

Mar 6, 2008, 9:49:43 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

(SPrintF.ab) FormatIntegerExにStringBuilderを引数に取る版を追加。

File:

• trunk/Include/Classes/System/IO/TextReader.ab (modified) (4 diffs)

trunk/Include/Classes/System/IO/TextReader.ab

@@ -36 +36 @@
         ElseIf count < 0 Then
         End If
+        Read = ReadImpl(buffer, index, count)
     End Function
 
@@ -80 +81 @@
     End Function
     /*
+    @brief 現在位置からストリームの終わりまで読み込む。
     @date 2008/02/26
     @auther Egtra
@@ -93 +95 @@
             sb.Append(ch As StrChar)
         Loop
+    End Function
+
+    Static Function Synchronized(reader As TextReader) As TextReader
     End Function
 
@@ -118 +123 @@
 End Class
 
+Namespace Detail
+
+Class SynchronizedTextReader
+    Inherits TextReader
+Public
+    Sub SynchronizedTextReader(reader As TextReader)
+        cs = New ActiveBasic.Windows.CriticalSection
+        base = reader
+    End Sub
+
+    Override Function Peek() As Long
+'       Using lock = cs.Lock
+            Peek = base.Peek
+'       End Using
+    End Function
+
+    Override Function Read() As Long
+'       Using lock = cs.Lock
+            Read = base.Read
+'       End Using
+    End Function
+
+    Override Function ReadLine() As String
+'       Using lock = cs.Lock
+            ReadLine = base.ReadLine
+'       End Using
+    End Function
+
+    Override Function ReadToEnd() As String
+'       Using lock = cs.Lock
+            ReadToEnd = base.ReadToEnd
+'       End Using
+    End Function
+
+Protected
+    Override Sub Dispose(disposing As Boolean)
+        Dim s = Nothing As Stream
+        SetPointer(VarPtr(s) As *VoidPtr, InterlockedExchangePointer(ByVal VarPtr(base) As *VoidPtr, 0))
+        If disposing Then
+            If Not ActiveBasic.IsNothing(s) Then
+                s.Dispose()
+            End If
+            cs.Dispose()
+        End If
+    End Sub
+
+    Override Function ReadImpl(buffer As *StrChar, index As Long, count As Long) As Long
+'       Using lock = cs.Lock
+            ReadImpl = base.ReadImpl(buffer, index, count)
+'       End Using
+    End Function
+Private
+    cs As ActiveBasic.Windows.CriticalSection
+    base As TextReader
+End Class
+
+End Namespace
+
 End NameSpace
 End NameSpace