Changeset 251 for Include/basic/function.sbp

Timestamp:

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

Author:

dai

Message:

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

File:

• Include/basic/function.sbp (modified) (1 diff)

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