Ignore:
Timestamp:
Mar 28, 2008, 5:43:34 PM (17 years ago)
Author:
イグトランス (egtra)
Message:

インクルードガードとその他不要な前処理定義などの削除

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Include/basic/command.sbp

    r478 r497  
    11'command.sbp
    2 
    3 
    4 #ifndef _INC_COMMAND
    5 #define _INC_COMMAND
    62
    73Const _System_Type_SByte = 1
    … …  
    152148Sub INPUT_FromFile(FileNumber As Long)
    153149    FileNumber--
    154    
     150
    155151    Dim i = 0 As Long
    156152    Dim buffer = New System.Text.StringBuilder(256)
    157     Dim temp[1] As StrChar
     153    Dim temp[1] As Char
    158154    Dim dwAccessBytes As DWord
    159155    Dim IsStr As Long
    … …  
    162158        '次のデータをサーチ
    163159        Do
    164             Dim ret = ReadFile(_System_hFile[FileNumber],temp,SizeOf (StrChar),VarPtr(dwAccessBytes),ByVal 0)
     160            Dim ret = ReadFile(_System_hFile[FileNumber],temp,SizeOf (Char),VarPtr(dwAccessBytes),ByVal 0)
    165161            If ret=0 or dwAccessBytes=0 Then
    166162                'error
    … …  
    173169        IsStr=0
    174170        While 1
    175             Dim ret = ReadFile(_System_hFile[FileNumber],temp,SizeOf (StrChar),VarPtr(dwAccessBytes),ByVal 0)
     171            Dim ret = ReadFile(_System_hFile[FileNumber],temp,SizeOf (Char),VarPtr(dwAccessBytes),ByVal 0)
    176172            If ret = 0 or dwAccessBytes = 0 Then
    177173                'error
    … …  
    183179            If dwAccessBytes=0 or temp[0]=0 or temp[0]=13 or temp[0]=10 or (IsStr=0 and temp[0]=Asc(",")) or (IsStr=0 and (temp[0]=32 or temp[0]=9) and _System_InputDataType[i]<>_System_Type_String) Then
    184180                If temp[0]=13 Then
    185                     ReadFile(_System_hFile[FileNumber],temp,SizeOf (StrChar),VarPtr(dwAccessBytes),ByVal 0)
     181                    ReadFile(_System_hFile[FileNumber],temp,SizeOf (Char),VarPtr(dwAccessBytes),ByVal 0)
    186182                    If Not(dwAccessBytes<>0 And temp[0]=10) Then
    187183                        SetFilePointer(_System_hFile[FileNumber],-1,0,FILE_CURRENT)
    … …  
    202198                End If
    203199
    204                 buffer.Append(0 As StrChar)
     200                buffer.Append(0 As Char)
    205201                Exit While
    206202            End If
    … …  
    252248Function _System_GetUsingFormat(UsingStr As String) As String
    253249    Dim i2 As Long, i3 As Long, i4 As Long, i5 As Long, ParmNum As Long
    254     Dim temporary[255] As StrChar
     250    Dim temporary[255] As Char
    255251    Dim buffer = New System.Text.StringBuilder(1024)
    256252
    … …  
    270266        If UsingStr[i2]=Asc("#") Then
    271267            Dim dec As Long, sign As Long
    272             Dim temp2 As *StrChar
     268            Dim temp2 As *Char
    273269
    274270            Dim length_num As Long, length_buf As Long
    … …  
    325321
    326322                If dec > 0 Then
    327                     memcpy(VarPtr(buffer.Chars[i3]), temp2, SizeOf (StrChar) * length_num)
     323                    memcpy(VarPtr(buffer.Chars[i3]), temp2, SizeOf (Char) * length_num)
    328324                Else
    329325                    buffer[i3] = &H30
    … …  
    376372                    ActiveBasic.Strings.Detail.ChrFill(VarPtr(buffer.Chars[i3]), i4, &h20) 'Asc(" ")
    377373                End If
    378                 memcpy(VarPtr(buffer.Chars[i3]), _System_UsingStrData[ParmNum], SizeOf (StrChar) * i5)
     374                memcpy(VarPtr(buffer.Chars[i3]), _System_UsingStrData[ParmNum], SizeOf (Char) * i5)
    379375                i3 += i4
    380376            Else
    … …  
    416412    RecodeNumber--
    417413
    418     SetFilePointer(_System_hFile(FileNumber), SizeOf (StrChar) * RecodeNumber * _System_FieldSize(FileNumber), 0, FILE_BEGIN)
     414    SetFilePointer(_System_hFile(FileNumber), SizeOf (Char) * RecodeNumber * _System_FieldSize(FileNumber), 0, FILE_BEGIN)
    419415    Dim t = ZeroString(_System_FieldSize(FileNumber))
    420     ReadFile(_System_hFile(FileNumber), StrPtr(t), SizeOf (StrChar) * _System_FieldSize(FileNumber), VarPtr(dwAccessByte), ByVal 0)
     416    ReadFile(_System_hFile(FileNumber), StrPtr(t), SizeOf (Char) * _System_FieldSize(FileNumber), VarPtr(dwAccessByte), ByVal 0)
    421417    If dwAccessByte = _System_FieldSize(FileNumber) Then
    422418        buffer = t.ToString
    … …  
    431427    RecodeNumber--
    432428
    433     SetFilePointer(_System_hFile(FileNumber), SizeOf (StrChar) * RecodeNumber*_System_FieldSize(FileNumber), 0, FILE_BEGIN)
    434     WriteFile(_System_hFile(FileNumber), StrPtr(buffer), SizeOf (StrChar) * _System_FieldSize(FileNumber), VarPtr(dwAccessByte), ByVal 0)
     429    SetFilePointer(_System_hFile(FileNumber), SizeOf (Char) * RecodeNumber*_System_FieldSize(FileNumber), 0, FILE_BEGIN)
     430    WriteFile(_System_hFile(FileNumber), StrPtr(buffer), SizeOf (Char) * _System_FieldSize(FileNumber), VarPtr(dwAccessByte), ByVal 0)
    435431End Macro
    436432
    … …  
    444440    DeleteFile(ToTCStr(path))
    445441End Macro
    446 
    447 
    448 #endif '_INC_COMMAND
Note: See TracChangeset for help on using the changeset viewer.