Changeset 288 for Include/basic

Timestamp:

Aug 15, 2007, 3:22:33 AM (17 years ago)

Author:

dai

Message:

いくつかタイプミスを修正。
エラーになるコードを排除、
enumクラスのビット演算メソッドをコメントアウト（仕様未確定なため）。

Location:

Include/basic

Files:

• command.sbp (modified) (2 diffs)
• dos_console.sbp (modified) (1 diff)
• prompt.sbp (modified) (1 diff)

Include/basic/command.sbp

@@ -408 +408 @@
     _System_GetUsingFormat = buffer.ToString(0, lstrlen(StrBPtr(buffer)))
 End Function
-*/
+
+' TODO: _System_GetUsingFormatを用意して実装する
 Sub PRINTUSING_ToFile(FileNumber As Long, UsingStr As String)
     Dim dwAccessByte As DWord
@@ -418 +419 @@
     WriteFile(_System_hFile(FileNumber),buf,Len(buf),VarPtr(dwAccessByte),ByVal NULL)
 End Sub
+*/
 
 Dim _System_FieldSize(255) As Long

Include/basic/dos_console.sbp

@@ -71 +71 @@
 #endif
 End Sub
-
+/* TODO: _System_GetUsingFormatを用意して実装する
 Sub PRINTUSING_ToPrompt(UsingStr As String)
     PRINT_ToPrompt(_System_GetUsingFormat(UsingStr))
 End Sub
-
+*/
 
 #endif '_INC_DOS_CONSOLE

Include/basic/prompt.sbp

@@ -896 +896 @@
 End Sub
 
+/* TODO: _System_GetUsingFormatを用意して実装する
 Sub PRINTUSING_ToPrompt(UsingStr As String)
     ActiveBasic.Prompt.Detail.PRINT_ToPrompt(_System_GetUsingFormat(UsingStr))
 End Sub
+*/
 
 Macro LOCATE(x As Long, y As Long)