Changeset 251

Timestamp:

May 17, 2007, 11:21:10 AM (17 years ago)

Author:

dai

Message:

INPUT#ステートメントにおいて、内部バッファのサイズが1バイト分足りないバグを修正。
Val関数で指数部分が読み取れないバグを修正。
sscanf関数（Cランタイム）の定義文を追加。

Location:

Include

Files:

• basic/command.sbp (modified) (1 diff)
• basic/function.sbp (modified) (1 diff)
• crt.sbp (modified) (1 diff)

Include/basic/command.sbp

@@ -170 +170 @@
     FileNumber--
 
-    buffer=ZeroString(GetFileSize(_System_hFile[FileNumber],0))
+    buffer=ZeroString(GetFileSize(_System_hFile[FileNumber],0) + 1)
 
     i=0

Include/basic/function.sbp

@@ -810 +810 @@
     Else
         '10進数
-        If buf[0]=&H2D Then
-            'マイナス値
-            i4=1
-            buf++
-        Else
-            'プラス値
-            i4=0
-            If buf[0]=&H2B Then
-                buf++
-            End If
-        End If
-
-        i=0
-
-        While 1
-            '数字以外の文字の場合は抜け出す
-            i3=buf[i]-&H30
-            If Not (0<=i3 And i3<=9) Then Exit While
-
-            i++
-        Wend
-
-        '整数部
-        dbl=1
-        i3=i-1
-        While i3>=0
-            Val += dbl*(buf[i3]-&H30)
-
-            dbl *= 10
-            i3--
-        Wend
-
-        If buf[i]=Asc(".") Then
-            '小数部
-            i++
-            dbl=10
-            While 1
-                '数字以外の文字の場合は抜け出す
-                i3=buf[i]-&H30
-                If Not (0<=i3 And i3<=9) Then Exit While
-
-                Val += (buf[i] - &H30) / dbl
-                dbl *= 10
-                i++
-            Wend
-        End If
-
-        If i4 Then Val=-Val
+        sscanf(buf,"%lf",VarPtr(Val))
     End If
 End Function

Include/crt.sbp

@@ -57 +57 @@
 #endif
 
+Declare Function sscanf CDecl Lib _CrtDllName (buffer As PSTR, format As PCSTR, ...) As Long
+
 #endif '_INC_CRT