Changeset 271 for Include/Classes/System


Ignore:
Timestamp:
Jun 12, 2007, 6:15:09 PM (17 years ago)
Author:
dai
Message:

SHFILEOPSTRUCT.hWnd → SHFILEOPSTRUCT.hwnd
System.IOに属するクラスに名前空間を適用した。

Location:
Include/Classes/System
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • Include/Classes/System/Collections/ArrayList.ab

    r233 r271  
    224224    /*Const*/ Virtual Function IndexOf(object As Object, startIndex As Long, count As Long) As Long
    225225        Dim i As Long
    226         Dim last = Math.Min(startIndex + count - 1, size)
     226        Dim last = System.Math.Min(startIndex + count - 1, size)
    227227        For i = startIndex To last
    228228            If object.Equals( pObject[i] ) Then

  • Include/Classes/System/IO/DirectoryInfo.ab

    r142 r271  
     1
     2Namespace System
     3Namespace IO
     4
    15Class DirectoryInfo
    26    Inherits FileSystemInfo
    … …  
    3438    End Sub
    3539
    36 /*  Override Sub Delete(recursive As Boolean)
    37     End Sub*/
     40    Sub Delete(recursive As Boolean)
     41        If recursive Then
     42            ' ディレクトリ内のすべての情報を削除する
     43
     44            Dim dirPath = FullPath As String
     45
     46            ' 終端の '\' を除去
     47            If dirPath[dirPath.Length-1] = Asc("\\") Then
     48                dirPath = dirPath.SubString(0, dirPath.Length-1)
     49            End If
     50
     51            ' double null-terminated にする
     52            dirPath = dirPath + Chr$(0)
     53
     54            Dim op As SHFILEOPSTRUCT
     55            op.hwnd = NULL
     56            op.wFunc = FO_DELETE
     57            op.pFrom = dirPath.Chars
     58            op.pTo = NULL
     59            op.fFlags = FOF_NOCONFIRMATION or FOF_NOERRORUI or FOF_SILENT
     60
     61            If SHFileOperation(op) <> 0 Then
     62                ' TODO: エラー処理
     63                debug
     64            End If
     65        Else
     66            ' ディレクトリが空の場合は削除する
     67            This.Delete()
     68        End If
     69    End Sub
    3870
    3971/*  Function GetAccessControl() As DirectorySecurity
    … …  
    82114    TopDirectoryOnly
    83115End Enum
     116
     117End Namespace
     118End Namespace

  • Include/Classes/System/IO/DriveInfo.ab

    r142 r271  
     1Namespace System
     2Namespace IO
     3
     4
    15Enum DriveType
    26    Unknown = 0
    … …  
    8993    End Function
    9094End Class
     95
     96
     97End Namespace
     98End Namespace

  • Include/Classes/System/IO/File.ab

    r105 r271  
     1Namespace System
     2Namespace IO
     3
    14
    25Enum FileAccess
    … …  
    244247
    245248End Class
     249
     250
     251End Namespace
     252End Namespace

  • Include/Classes/System/IO/FileInfo.ab

    r60 r271  
     1Namespace System
     2Namespace IO
     3
    14
    25Class FileInfo
    36End Class
     7
     8
     9End Namespace
     10End Namespace

  • Include/Classes/System/IO/FileStream.ab

    r262 r271  
     1Namespace System
     2Namespace IO
     3
    14
    25/* ほんとはmiscに入れるかかファイルを分けたほうがいいかもしれないが一先ず実装 */
    … …  
    366369    MemberwiseClone*/
    367370End Class
     371
     372
     373End Namespace
     374End Namespace

  • Include/Classes/System/IO/FileSystemInfo.ab

    r142 r271  
     1Namespace System
     2Namespace IO
     3
     4
    15Class FileSystemInfo
    26    m_CreationTime As FILETIME
    … …  
    193197    End Function
    194198End Class
     199
     200
     201End Namespace
     202End Namespace

  • Include/Classes/System/IO/Path.ab

    r197 r271  
    22
    33#require <Classes/System/Environment.ab>
     4
     5
     6Namespace System
     7Namespace IO
     8
    49
    510Class Path
    … …  
    150155    Return GetTempFileName(pPathName, pPrefixString, uUnique, pTempFileName)
    151156End Function
     157
     158
     159End Namespace
     160End Namespace

  • Include/Classes/System/IO/Stream.ab

    r262 r271  
     1Namespace System
     2Namespace IO
     3
    14
    25Class Stream
    … …  
    6568    Virtual Function CreateWaitHandle() As System.Threading.WaitHandle: End Function
    6669End Class
     70
     71
     72End Namespace
     73End Namespace

  • Include/Classes/System/IO/StreamReader.ab

    r105 r271  
     1Namespace System
     2Namespace IO
     3
     4
    15Class StreamReader
    26    ' TODO: 実装
    37End Class
     8
     9
     10End Namespace
     11End Namespace

  • Include/Classes/System/IO/StreamWriter.ab

    r105 r271  
     1Namespace System
     2Namespace IO
     3   
     4   
    15Class StreamWriter
    26    ' TODO: 実装
    37End Class
     8
     9
     10End Namespace
     11End Namespace

  • Include/Classes/System/IO/index.ab

    r129 r271  
    1 '#require "Directory.ab"
    2 '#require "DirectoryInfo.ab"
    3 
    41#require "misc.ab"
    52#require "DirectoryInfo.ab"

  • Include/Classes/System/index.ab

    r255 r271  
    1 #require <Classes/System/DateTime.ab>
    2 #require <Classes/System/Math.ab>
    3 #require <Classes/System/Object.ab>
    4 #require <Classes/System/String.ab.
    5 #require <Classes/System/TimeSpan.ab>
    6 #require <Classes/System/TypeInfo.ab>
    7 #require <Classes/System/OperatingSystem.ab>
    8 #require <Classes/System/Version.ab>
    9 #require <Classes/System/Environment.ab>
    10 #require <Classes/System/Int32.ab>
    11 #require <Classes/System/UInt32.ab>
     1#require "./DateTime.ab"
     2#require "./Math.ab"
     3#require "./Object.ab"
     4#require "./String.ab.
     5#require "./TimeSpan.ab"
     6#require "./TypeInfo.ab"
     7#require "./OperatingSystem.ab"
     8#require "./Version.ab"
     9#require "./Environment.ab"
     10#require "./Int32.ab"
     11#require "./UInt32.ab"
     12
     13#require "./Diagnostics/index.ab"
     14#require "./IO/index.ab"
     15#require "./Threading/index.ab"
Note: See TracChangeset for help on using the changeset viewer.