Changeset 432 for trunk/Include/Classes/System/IO/TextReader.ab

Timestamp:

Feb 27, 2008, 1:04:59 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

StreamReaderの完成。StringReaderの追加。
Consoleの追加（現在入力関係の一部のみ）。

File:

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

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

@@ -25 +25 @@
     End Sub
 
+    Abstract Function Peek() As Long
+    Abstract Function Read() As Long
+    /*
+    @date 2008/02/26
+    @auther Egtra
+    */
+    Function Read(buffer As *StrChar, index As Long, count As Long) As Long
+        If buffer = 0 Then
+        ElseIf index < 0 Then
+        ElseIf count < 0 Then
+        End If
+    End Function
+
+    /*
+    @date 2008/02/26
+    @auther Egtra
+    @retval Nothing EOFに達しているとき
+    @retval 有効なStringインスタンス 読み取った1行
+    */
+    Virtual Function ReadLine() As String
+        If Peek() = -1 Then
+            Exit Function
+        End If
+        Dim sb = New Text.StringBuilder(256)
+        Do
+            Dim ch = Read()
+            If ch = &h0D Then
+                If Peek() = &h0A Then
+                    Read() 'CR LFの場合
+                End If
+                Exit Do
+            End If
+            Select Case ch
+                Case -1 'EOF
+                    Exit Do
+                Case &h0A 'LF
+                    Exit Do
+                Case &h0B 'VT
+                    Exit Do
+                Case &h0C 'FF
+                    Exit Do
+                Case &h0D 'CR
+                    Exit Do
+'               Case &h85 'NEL
+'                   Exit Do
+'               Case &h2028 'LS
+'                   Exit Do
+'               Case &h2029 'PS
+'                   Exit Do
+            End Select
+            sb.Append(ch As StrChar) 'ToDo キャスト不要にすべきというチケットを書くこと
+        Loop
+        ReadLine = sb.ToString
+    End Function
+    /*
+    @date 2008/02/26
+    @auther Egtra
+    */
+    Virtual Function ReadToEnd() As String
+        Dim sb = New Text.StringBuilder(8192)
+        Do
+            Dim ch = Read()
+            If ch = -1 Then
+                ReadToEnd = sb.ToString
+                Exit Function
+            End If
+            sb.Append(ch As StrChar)
+        Loop
+    End Function
+
+Protected
     Abstract Sub Dispose(disposing As Boolean)
 
-    Abstract Function Peek() As Long
-    Abstract Function Read() As Long
-    Abstract Function Read(buffer As *StrChar, index As Long, count As Long) As Long
-    Virtual Function ReadBlock(buffer As *StrChar, index As Long, count As Long) As Long
-        ReadBlock = Read(buffer, index, count)
+    /*
+    @date 2008/02/26
+    @auther Egtra
+    */
+    Virtual Function ReadImpl(buffer As *StrChar, index As Long, count As Long) As Long
+        Dim i As Long
+        Dim p = VarPtr(buffer[index])
+        For i = 0 To ELM(count)
+            Dim c = Read()
+            If c = -1 Then
+                ReadImpl = i - 1
+                Exit Function
+            Else
+                p[i] = c As StrChar
+            End If
+        Next
+        ReadImpl = i - 1
     End Function
-    Abstract Function ReadLine() As String
-    Abstract Function ReadToEnd() As String
 End Class