"

 COPYRIGHT (c) 1989 by Claus Gittinger

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

Collection subclass:#FileDirectory

       instanceVariableNames:'pathName lazy'

       classVariableNames:'PathOfCurrentDirectory'

       poolDictionaries:''

       category:'Collections-Files'

!

FileDirectory comment:'

COPYRIGHT (c) 1989 by Claus Gittinger

             All Rights Reserved

'!

!FileDirectory class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

version

"

"

!

documentation

"

    FileDirectories represent directories in the underlying host system.

    They provide various methods to create/delete and query for files and/or

    directories.

"

! !

!FileDirectory class methodsFor:'initialization'!

initialize

    super initialize.

    ObjectMemory addDependent:self

!

update:something

    something == #restarted ifTrue:[

        PathOfCurrentDirectory := nil

    ]

! !

!FileDirectory class methodsFor:'instance creation'!

rootDirectory

    "create and return a new FileDirectory for the root directory"

    "

     FileDirectory rootDirectory contents

     FileDirectory rootDirectory files

     FileDirectory rootDirectory isReadable

    "

!

currentDirectory

    "create and return a new FileDirectory for the current directory"

    ^ (self basicNew) pathName:'.'

    "

     FileDirectory currentDirectory contents

     FileDirectory currentDirectory files

     FileDirectory currentDirectory isReadable

     FileDirectory currentDirectory pathName

    "

!

directoryNamed:name

    "create and return a new FileDirectory for the directory

     with given pathname"

    ^ (self basicNew) pathName:name

    "

     (FileDirectory directoryNamed:'..') pathName

     (FileDirectory directoryNamed:'../..') files

    "

!

directoryNamed:name in:aFileDirectory

    "create and return a new FileDirectory for the directory with given name

     in another FileDirectory"

        ^ self directoryNamed:name

    ].

    (aFileDirectory isKindOf:FileDirectory) ifTrue:[

        baseName := aFileDirectory pathName

    ] ifFalse:[

        baseName := aFileDirectory

    ].

"

    (name = '..') ifTrue:[

        ^ (self basicNew) pathName:(OperatingSystem directoryNameOf:baseName)

    ].

"

    (name = '.') ifTrue:[^ aFileDirectory].

        ]

    ].

    ^ (self basicNew) pathName:(baseName , name)

! !

!FileDirectory methodsFor:'accessing'!

baseName

    "return my baseName

     - thats the directory name without leading parent-dirs"

    lazy ifTrue:[self getFullPathName].

    ^ OperatingSystem baseNameOf:pathName

!

directoryName

    "return my directoryName

     - thats the directory name where I'm in"

    lazy ifTrue:[self getFullPathName].

    ^ OperatingSystem directoryNameOf:pathName

!

pathName

    "return my full pathname"

    lazy ifTrue:[self getFullPathName].

    ^ pathName

!

pathName:dirName

    "set my pathname; return nil if not a valid path; self otherwise"

    pathName := dirName.

        lazy := true

    ] ifTrue:[

        (dirName includes:$.) ifTrue:[

            lazy := true

        ]

    ].

    ^ self

"

    (OperatingSystem isDirectory:pathName) ifFalse:[^ nil]

"

!

contents 

    "return a collection with all files and subdirectories in the receiver"

    |coll|

    coll := OrderedCollection new.

    self do:[:name |

        coll add:name

    ].

    (coll size ~~ 0) ifTrue:[

        coll sort

    ].

    ^ coll

!

directories

    "return a collection with all subdirectories in the receiver directory"

    |coll|

    coll := OrderedCollection new.

    self directoriesDo:[:name |

        coll add:name

    ].

    (coll size ~~ 0) ifTrue:[

        coll sort

    ].

    ^ coll

!

files

    "return a collection with all plain files in the receiver directory"

    |coll|

    coll := OrderedCollection new.

    self filesDo:[:name |

        coll add:name

    ].

    ^ coll sort

! !

!FileDirectory methodsFor:'private'!

getFullPathName

    "make my pathname be a full pathname - i.e. starting at root"

    |aStream command shortPathName fullPathName|

        lazy := false.

        ^ self

    ].

    "since currentDirectory is used very often, cache its path here"

    (pathName = '.') ifTrue:[

        PathOfCurrentDirectory notNil ifTrue:[

            pathName := PathOfCurrentDirectory.

            lazy := false.

            ^ self

        ]

    ].

    shortPathName := pathName.

    "some have a convenient function for this ..."

%{  /* STACK: 16000 */

#ifdef HAS_REALPATH

#   include <stdlib.h>

#   include <sys/param.h>

    char nameBuffer[MAXPATHLEN + 1];

    if (realpath(_stringVal(_INST(pathName)), nameBuffer)) {

        fullPathName = _MKSTRING(nameBuffer COMMA_CON);

    }

#endif

%}

.

    fullPathName notNil ifTrue:[

        pathName := fullPathName.

        lazy := false

    ] ifFalse:[

        "since there might be symbolic links and other stuff involved,

         better trust pwd than removing '..' by ourself

         - although this is very slow"

        command := 'cd ' , pathName , '; pwd'.

        aStream := PipeStream readingFrom:command.

        aStream isNil ifFalse:[

            (aStream atEnd) ifFalse:[

                fullPathName := aStream nextLine

            ].

            aStream close.

            fullPathName notNil ifTrue:[

                pathName := fullPathName.

                lazy := false

            ]

        ] ifTrue:[

            self error:('PipeStream for <' , command , '> failed').

            "by clearing lazy, we avoid triggering the error again"

            lazy := false

        ]

    ].

    "if it was the current dir, keep name for next query"

    (shortPathName = '.') ifTrue:[

        PathOfCurrentDirectory := fullPathName

    ]

! !

!FileDirectory methodsFor:'basic'!

createDirectory:newName

    "create a new filedirectory as a subdirectory of myself;

     return true if successful"

    |realName|

    (newName = '.') ifFalse:[

        (newName = '..') ifFalse:[

                realName := newName copyFrom:2

            ] ifFalse:[

                realName := newName

            ].

        ]

    ].

    ^ false

!

removeFile:fileName

    "remove the file 'fileName' from myself; return true if successful"

!

removeDirectory:dirName

    "remove the directory 'dirName' from myself; return true if successful.

     If the directory is not empty, the containing files/directories are also

     removed."

!

remove:aFileOrDirectoryName

    "remove the file or directory from myself; return true if successful"

    |path|

    (OperatingSystem isDirectory:path) ifTrue:[

        ^ OperatingSystem removeDirectory:path

    ].

    ^ OperatingSystem removeFile:path

!

link:oldFileName to:newFileName

    "link oldFileName to newFileName in myself, return true if successful"

    |path1 path2|

    ^ OperatingSystem linkFile:path1 to:path2

!

renameFile:oldFileName newName:newFileName

    "rename the file; return true if successful"

    |path1 path2|

    ].

! !

!FileDirectory methodsFor:'queries'!

id

    "return the directories file-id (inode number)"

    ^ OperatingSystem idOf:pathName

!

exists

    "return true if this directory exists"

    ^ OperatingSystem isDirectory:pathName

!

isEmpty

    "return true, if the directory is empty;

     redefined since '.' and '..' do not count as entries here."

    self do:[:fName |

        ((fName ~= '.') and:[fName ~= '..']) ifTrue:[^ false].

    ].

    ^ true

!

infoOf:name

    "return an array filled with file info for the file 'aFileName';

     return nil if such a file does not exist"

!

timeOfLastChange:name

    "return the timeStamp of a file in myself"

!

timeOfLastChange

    "return the timeStamp of myself"

    ^ OperatingSystem timeOfLastChange:pathName

!

    "return the access-mode bits (rwxrwxrwx) of a file in myself"

!

    "set the access-mode bits (rwxrwxrwx) of a file in myself"

                                      to:modeBits

!

    "return the symbolic type of a file in myself"

!

exists:name

    "return true, if the given name exists in myself"

!

isDirectory:name

    "return true, if the given name is that of a directory in myself"

!

isReadable:name

    "return true, if the given file is readable"

!

isWritable:name

    "return true, if the given file is readable"

!

isExecutable:name

    "return true, if the given file is executable"

! !

!FileDirectory methodsFor:'printing & storing'!

printString

    lazy ifTrue:[self getFullPathName].

    ^ '(a FileDirectory pathName:' , pathName, ')'

!

storeOn:aStream

    lazy ifTrue:[self getFullPathName].

    aStream nextPutAll:'(FileDirectory directoryNamed:'.

    aStream nextPutAll:pathName.

    aStream nextPut:$)

! !

!FileDirectory methodsFor:'more instance creation'!

directoryNamed:aName

    ^ self class directoryNamed:aName in:self pathName

! !

!FileDirectory methodsFor:'enumerating'!

where:testBlock do:aBlock

    "evaluate the argument, aBlock for every object in the directory

     for which testBlock evaluates to true."

    |aStream name|

    aStream := DirectoryStream directoryNamed:pathName.

    aStream isNil ifTrue:[^ nil].

    [aStream atEnd] whileFalse:[

        name := aStream nextLine.

        name notNil ifTrue:[

            (testBlock value:name) ifTrue:[

                aBlock value:name

            ]

        ]

    ].

    aStream close

!

do:aBlock

    "evaluate the argument, aBlock for every name in the directory"