Changeset 606

Timestamp:

Aug 21, 2008, 10:21:19 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

Consoleにてエラー出力を整備

Location:

trunk/ab5.0/ablib/src

Files:

• Classes/System/Console.ab (modified) (2 diffs)
• basic/dos_console.sbp (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/Console.ab

@@ -10 +10 @@
 Class Console
 Public
+    /*
+    @brief 標準エラー出力を設定する
+    @date 2008/08/21
+    @auther Egtra
+    */
+    Static Sub SetError(newErr As IO.TextWriter)
+        If ActiveBasic.IsNothing(newErr) Then
+            Throw New ArgumentNullException("newErr")
+        End If
+        err = newErr
+    End Sub
+
+    /*
+    @brief 標準エラー出力を取得する
+    @date 2008/08/21
+    @auther Egtra
+    */
+    Static Function Error() As IO.TextWriter
+        Error = err
+    End Function
+
     /*
     @brief 標準出力を設定する
@@ -209 +230 @@
     Static in = Nothing As IO.TextReader
     Static out = Nothing As IO.TextWriter
+    Static err = Nothing As IO.TextWriter
     Static cs = Nothing As ActiveBasic.Windows.CriticalSection
 End Class

trunk/ab5.0/ablib/src/basic/dos_console.sbp

@@ -7 +7 @@
 
 
+Dim _System_hConsoleErr = GetStdHandle(STD_ERROR_HANDLE)
 Dim _System_hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)
 Dim _System_hConsoleIn = GetStdHandle(STD_INPUT_HANDLE)
+System.Console.SetError(
+     System.IO.TextWriter.Synchronized(New System.IO.StreamWriter(
+        New System.IO.FileStream(_System_hConsoleErr, System.IO.FileAccess.Write, False))))
+
 System.Console.SetOut(
      System.IO.TextWriter.Synchronized(New System.IO.StreamWriter(