Changeset 676 for trunk/ab5.0/ablib/src/Classes/System/IO/TextReader.ab

Timestamp:

Jan 13, 2009, 2:01:38 AM (15 years ago)

Author:

イグトランス (egtra)

Message:

#231に関連して、エンコーディング周りを見直し、Encoder/Decoderをストリーム用に特化。
UTF8Encodingをコンパイル可能にし、ビルドに含めるようにした。ただし、実装が不完全なためテストは不可。
(#231)

File:

• trunk/ab5.0/ablib/src/Classes/System/IO/TextReader.ab (modified) (5 diffs)

trunk/ab5.0/ablib/src/Classes/System/IO/TextReader.ab

@@ -22 +22 @@
     Virtual Function Peek() As Long
         If pos >= buf.Length Then
+            buf.Length = 0
+            pos = 0
             If Not Underflow() Then
                 Peek = -1
@@ -114 +116 @@
         Wend
         ReadToEnd = buf.ToString()
+        buf.Length = 0
+        pos = 0
     End Function
 
@@ -141 +145 @@
     @auther Egtra
     @return 内部バッファ
+    内部バッファの既存の要素は、一切の変更をしないこと。また、空であるという仮定を置かないこと。
     */
     Function Buffer() As Text.StringBuilder
@@ -151 +156 @@
     */
     Function ReadImpl(buffer As *Char, count As Long) As Long
+        'ToDo 適当なところでバッファの読み取り済みの部分を除去する処理を入れる（現在Peekのみ）。
         Dim p = StrPtr(buf)
         While buf.Length - pos < count
@@ -156 +162 @@
         Wend
         ReadImpl = Math.Min(buf.Length - pos, count)
-        ActiveBasic.Strings.ChrCopy(buffer, VarPtr(p[pos]), ReadImpl As SIZE_T)
+        ActiveBasic.Strings.ChrCopy(buffer, VarPtr(p[pos]) As *Char, ReadImpl As SIZE_T)
         pos += ReadImpl
     End Function