Changeset 288 for Include


Ignore:
Timestamp:
Aug 15, 2007, 3:22:33 AM (17 years ago)
Author:
dai
Message:

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

Location:
Include
Files:
2 added
7 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/ActiveBasic/Windows/CriticalSection.ab

    r269 r288  
    5353
    5454    /*Override*/ Sub Dispose()
    55         Dim p = InterlockedExchangeAnyPointer(pcs, 0)
     55        Dim p = Detail.InterlockedExchangeAnyPointer(pcs, 0)
    5656        If p <> 0 Then
    5757            LeaveCriticalSection(ByVal p)
  • Include/Classes/System/IO/DriveInfo.ab

    r285 r288  
    4141        Dim systemName[15] As TCHAR
    4242        If GetVolumeInformation(m_DriveName, NULL, 0, NULL, NULL, NULL, systemName, Len (systemName)) Then
    43             Return systemName
     43            Dim resultStr = New String( systemName )
     44            Return resultStr
    4445        Else
    4546            'IOException
     
    8586
    8687    Function VolumeLabel() As String
    87         Dim volumeName[63] As TCAHR
    88         If GetVolumeInformation(m_DriveName, volumeName, 64, NULL, NULL, NULL, NULL, NULL) Then
    89             Return volumeName
     88        Dim volumeName[63] As TCHAR
     89        If GetVolumeInformation(m_DriveName, volumeName, 64, NULL, NULL, NULL, NULL, 0) Then
     90            Dim resultStr = New String( volumeName )
     91            Return resultStr
    9092        Else
    9193            'IOException
  • Include/Classes/System/Text/StringBuilder.ab

    r272 r288  
    308308        EnsureCapacity(newSize)
    309309        separateBuffer()
    310         ActiveBasic.Strings.ChrMove(VarPtr(chars[i + lenTotal]), VarPtr(chars[i]), (size - index) As SIZE_T)
     310
     311        ' TODO: fix me!(定義されていない変数iが使われています)
     312        'ActiveBasic.Strings.ChrMove(VarPtr(chars[i + lenTotal]), VarPtr(chars[i]), (size - index) As SIZE_T)
     313
    311314        Dim i As Long
    312315        For i = 0 To ELM(n)
  • Include/basic/command.sbp

    r281 r288  
    408408    _System_GetUsingFormat = buffer.ToString(0, lstrlen(StrBPtr(buffer)))
    409409End Function
    410 */
     410
     411' TODO: _System_GetUsingFormatを用意して実装する
    411412Sub PRINTUSING_ToFile(FileNumber As Long, UsingStr As String)
    412413    Dim dwAccessByte As DWord
     
    418419    WriteFile(_System_hFile(FileNumber),buf,Len(buf),VarPtr(dwAccessByte),ByVal NULL)
    419420End Sub
     421*/
    420422
    421423Dim _System_FieldSize(255) As Long
  • Include/basic/dos_console.sbp

    r272 r288  
    7171#endif
    7272End Sub
    73 
     73/* TODO: _System_GetUsingFormatを用意して実装する
    7474Sub PRINTUSING_ToPrompt(UsingStr As String)
    7575    PRINT_ToPrompt(_System_GetUsingFormat(UsingStr))
    7676End Sub
    77 
     77*/
    7878
    7979#endif '_INC_DOS_CONSOLE
  • Include/basic/prompt.sbp

    r272 r288  
    896896End Sub
    897897
     898/* TODO: _System_GetUsingFormatを用意して実装する
    898899Sub PRINTUSING_ToPrompt(UsingStr As String)
    899900    ActiveBasic.Prompt.Detail.PRINT_ToPrompt(_System_GetUsingFormat(UsingStr))
    900901End Sub
     902*/
    901903
    902904Macro LOCATE(x As Long, y As Long)
  • Include/system/enum.sbp

    r282 r288  
    4040        End If
    4141    End Function
    42 
     42/*
    4343    Function Operator or (enumBase As EnumBase) As EnumBase
    4444        Return New EnumBase(This.value Or enumBase.value)
     
    5252        Return New EnumBase(This.value Xor enumBase.value)
    5353    End Function
     54*/
    5455End Class
Note: See TracChangeset for help on using the changeset viewer.