Changeset 468 for trunk/Include/Classes/System/IO/StreamWriter.ab

Timestamp:

Mar 9, 2008, 12:00:01 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

TextWriter, StreamWriterの追加。
SPrintfの浮動小数点数変換で、NaN, Infiniteの出力に対応。
PathとDirectoryInfoのCreateDirectoryで、対象が既に存在するときには例外を投げないように修正。
SimpleTestCase内で使用する一時フォルダの場所にGetTempPathで取得する版を追加（コメントアウト）。

File:

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

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

@@ -4 +4 @@
     
 Class StreamWriter
-    ' TODO: 実装
+    Inherits TextWriter
+Public
+    /*
+    @date 2008/02/25
+    @auther Egtra
+    */
+    Sub StreamWriter(path As String)
+        init(New FileStream(path, FileMode.Create, FileAccess.Write, FileShare.None))
+    End Sub
+
+    /*
+    @date 2008/02/25
+    @auther Egtra
+    */
+    Sub StreamWriter(stream As Stream)
+        init(stream)
+    End Sub
+
+    Override Sub Write(str As String)
+        buf.Append(str)
+        Dim len = buf.Length
+        If len >= 2048 Then
+            s.Write(StrPtr(buf) As *Byte, 0, len)
+            buf.Length = 0
+        End If
+    End Sub
+
+    Override Sub Write(x As Boolean)
+        buf.Append(x)
+    End Sub
+    
+    Override Sub Write(x As Char)
+        buf.Append(x)
+    End Sub
+
+    Override Sub Write(x As Byte)
+        buf.Append(x)
+    End Sub
+#ifdef UNICODE
+    Override Sub Write(x As SByte)
+        buf.Append(x)
+    End Sub
+#else
+    Override Sub Write(x As Word)
+        buf.Append(x)
+    End Sub
+#endif
+    Override Sub Write(x As Integer)
+        buf.Append(x)
+    End Sub
+
+    Override Sub Write(x As DWord)
+        buf.Append(x)
+    End Sub
+
+    Override Sub Write(x As Long)
+        buf.Append(x)
+    End Sub
+
+    Override Sub Write(x As QWord)
+        buf.Append(x)
+    End Sub
+
+    Override Sub Write(x As Int64)
+        buf.Append(x)
+    End Sub
+
+    Override Sub Write(x As Single)
+        buf.Append(x)
+    End Sub
+
+    Override Sub Write(x As Double)
+        buf.Append(x)
+    End Sub
+
+    Override Sub Write(x As Object)
+        Write(x.ToString)
+    End Sub
+
+Protected
+    Override Sub Dispose(disposing As Boolean)
+        If disposing Then
+            s.Dispose()
+        End If
+    End Sub
+
+Private
+    Sub init(stream As Stream)
+        s = stream
+        buf = New System.Text.StringBuilder(4096)
+    End Sub
+
+    buf As Text.StringBuilder
+    s As System.IO.Stream
 End Class