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

Timestamp:

Mar 12, 2008, 9:54:46 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

実験として書いていたControlクラスを追加（せめてコミット前に既存のContorolに混ぜようとしたがコンパイルできなかった）。
ほかForms, Drawing及びGDI+の修正。

Location:

trunk/Include/Classes/System/IO

Files:

• StreamWriter.ab (modified) (3 diffs)
• TextReader.ab (modified) (1 diff)
• TextWriter.ab (modified) (1 diff)

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

@@ +1 @@
+/*
+@file Include/Classes/System/IO/StreamWriter.ab
+@brief StreamWriterの実装。
+*/
+
 Namespace System
 Namespace IO
-    
-    
+
+/*
+@biref ストリームへの書き込みを行うTextWriterの派生。
+@date 2008/03/09
+@auther Egtra
+*/
 Class StreamWriter
     Inherits TextWriter
 Public
     /*
-    @date 2008/02/25
+    @date 2008/03/09
     @auther Egtra
     */
@@ -15 +24 @@
 
     /*
-    @date 2008/02/25
+    @date 2008/03/09
     @auther Egtra
     */
     Sub StreamWriter(stream As Stream)
         init(stream)
+    End Sub
+
+    Override Sub Flush()
+        Dim len = buf.Length
+        If len > 0 Then
+            s.Write(StrPtr(buf) As *Byte, 0, len)
+            buf.Length = 0
+        End If
     End Sub
 
@@ -104 +121 @@
 End Class
 
-
 End Namespace
 End Namespace

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

@@ -98 +98 @@
 
     Static Function Synchronized(reader As TextReader) As TextReader
+        Synchronized = New Detail.SynchronizedTextReader(reader)
     End Function
 

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

@@ -28 +28 @@
     Sub TextWriter()
         newLine = Environment.NewLine
+    End Sub
+
+    Virtual Sub Flush()
     End Sub