Changeset 432 for trunk/Include/basic/dos_console.sbp

Timestamp:

Feb 27, 2008, 1:04:59 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

StreamReaderの完成。StringReaderの追加。
Consoleの追加（現在入力関係の一部のみ）。

File:

• trunk/Include/basic/dos_console.sbp (modified) (4 diffs)

trunk/Include/basic/dos_console.sbp

@@ -9 +9 @@
 Dim _System_hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)
 Dim _System_hConsoleIn = GetStdHandle(STD_INPUT_HANDLE)
+System.Console.SetIn(
+    New System.IO.StreamReader(
+        New System.IO.FileStream(_System_hConsoleIn, System.IO.FileAccess.Read, False)))
 
 '---------- command.sbp内で定義済み ----------
@@ -15 +18 @@
 '---------------------------------------------
 Sub INPUT_FromPrompt(ShowStr As String)
-    Dim InputBuf[1023] As TCHAR
-    Dim dwAccessBytes As DWord
-
-*InputReStart
-
+*InputReStart '多重Continueがあるので、これはループ構文に直せない。
     PRINT_ToPrompt(ShowStr)
 
     '入力
-    ReadConsole(_System_hConsoleIn, InputBuf, Len(InputBuf), dwAccessBytes, 0)
-    If InputBuf[dwAccessBytes-2] = &h0d And InputBuf[dwAccessBytes-1] = &h0a Then
-        InputBuf[dwAccessBytes-2] = 0
-        dwAccessBytes -= 2
+    Dim input = System.Console.ReadLine()
+    If ActiveBasic.IsNothing(input) Then
+        Exit Sub
     End If
 
-    If dwAccessBytes = 0 Then Goto *InputReStart
+    If input.Length = 0 Then Goto *InputReStart
 
     'データを変数に格納
     Const comma = &h2c As StrChar 'Asc(",")
-    Dim broken = ActiveBasic.Strings.Detail.Split(New String(InputBuf, dwAccessBytes As Long), comma)
+    Dim broken = ActiveBasic.Strings.Detail.Split(input, comma)
     Dim i As Long
     For i = 0 To ELM(broken.Count)
         If _System_InputDataPtr[i] = 0 Then
             PRINT_ToPrompt(Ex"入力データの個数が多すぎます\r\n")
-            Goto *InputReStart
+             Goto *InputReStart
         End If
         _System_Input_SetArgument(_System_InputDataPtr[i], _System_InputDataType[i], broken[i])
@@ -45 +43 @@
     If _System_InputDataPtr[i]<>0 Then
         PRINT_ToPrompt(Ex"入力データの個数が足りません\r\n")
-        Goto *InputReStart
+         Goto *InputReStart
     End If
 End Sub
@@ -54 +52 @@
 
 Sub PRINT_ToPrompt(buf As String)
+    If String.IsNullOrEmpty(buf) Then
+        Exit Sub
+    End If
+
     Dim dwAccessBytes As DWord
 #ifdef __STRING_UNICODE_WINDOWS_ANSI