Changeset 682 for trunk/ab5.0/ablib/src/Classes/System/IO/Stream.ab

Timestamp:

Feb 16, 2009, 4:26:24 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

UTF8Encodingクラスをとりあえず使える状態に。ただし、BOM出力はまだ不可能。
(#231)

File:

• trunk/ab5.0/ablib/src/Classes/System/IO/Stream.ab (modified) (1 diff)

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

@@ -155 +155 @@
 End Class
 
+/*!
+@brief 書き込みバイト数を記憶するヌルストリーム
+Encoding関連で使用
+@date 2009/02/16
+@auther Egtra
+*/
+Class WriteCountingNullStream
+    Inherits NullStream
+Public
+    Sub WriteCountingNullStream()
+        writeCount = 0
+    End Sub
+
+    Override Sub Write(buffer As *Byte, offset As Long, count As Long)
+        If count < 0 Then
+            Throw New ArgumentOutOfRangeException("count")
+        End If
+        writeCount += count
+    End Sub
+
+    Override Sub WriteByte(b As Byte)
+        writeCount++
+    End Sub
+
+    /*!
+    @brief 書き込まれたバイト数を返す。
+    */
+    Function WriteCount() As Long
+        WriteCount = writeCount
+    End Function
+
+Private
+    writeCount As Long
+End Class
+
 End Namespace