Changeset 121 for Include/basic/command.sbp

Timestamp:

Feb 25, 2007, 12:56:09 AM (18 years ago)

Author:

イグトランス (egtra)

Message:

続#51対応

File:

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

Include/basic/command.sbp

@@ -212 +212 @@
 
         'データを変数に格納
-        Select Case _System_InputDataType[i]
-            Case _System_Type_Double
-                SetDouble(_System_InputDataPtr[i],Val(buffer))
-            Case _System_Type_Single
-                SetSingle(_System_InputDataPtr[i],Val(buffer))
-            Case _System_Type_Int64,_System_Type_QWord
-                SetQWord(_System_InputDataPtr[i],Val(buffer))
-            Case _System_Type_Long,_System_Type_DWord
-                SetDWord(_System_InputDataPtr[i],Val(buffer))
-            Case _System_Type_Integer,_System_Type_Word
-                SetWord(_System_InputDataPtr[i],Val(buffer))
-            Case _System_Type_Char,_System_Type_Byte
-                SetByte(_System_InputDataPtr[i],Val(buffer))
-
-            Case _System_Type_String
-                Dim pTempStr As *String
-                pTempStr=_System_InputDataPtr[i] As *String
-
-                pTempStr->Length=i3
-                pTempStr->Chars=_System_realloc(pTempStr->Chars,pTempStr->Length+1)
-                memcpy(pTempStr->Chars,buffer.Chars,pTempStr->Length)
-                pTempStr->Chars[pTempStr->Length]=0
-        End Select
-
-        i=i+1
+        _System_Input_SetArgument(_System_InputDataPtr[i], _System_InputDataType[i], buffer, i3)
+
+
+        i++
         If _System_InputDataPtr[i]=0 Then Exit While
     Wend
 End Sub
+
+Function _System_Input_SetArgument(arg As VoidPtr, dataType As DWord, ByRef buf As String, bufLen As Long)
+    Select Case dataType
+        Case _System_Type_Double
+            SetDouble(arg, Val(buf))
+        Case _System_Type_Single
+            SetSingle(arg, Val(buf))
+        Case _System_Type_Int64,_System_Type_QWord
+            SetQWord(arg, Val(buf))
+        Case _System_Type_Long,_System_Type_DWord
+            SetDWord(arg, Val(buf))
+        Case _System_Type_Integer,_System_Type_Word
+            SetWord(arg, Val(buf))
+        Case _System_Type_SByte,_System_Type_Byte
+            SetByte(arg, Val(buf))
+        Case _System_Type_Char
+            SetChar(arg, buf[0])
+        Case _System_Type_String
+            Dim pTempStr As *String
+            pTempStr = arg As *String
+            pTempStr->ReSize(bufLen)
+            memcpy(pTempStr->Chars, buf.Chars, SizeOf (Char) * pTempStr->Length)
+            pTempStr->Chars[pTempStr->Length] = 0
+    End Select
+End Function
 
 Sub PRINT_ToFile(FileNumber As Long, buf As String)