instanceVariableNames:'pathName lazy'

	 classVariableNames:'PathOfCurrentDirectory'

	 poolDictionaries:''

	 category:'Collections-Files'

!

version

    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.25 1995-11-23 01:16:37 cg Exp $'

directoryNamed:name

    "create and return a new FileDirectory for the directory

     with given pathname"

    ^ (self basicNew) pathName:name

    "

     (FileDirectory directoryNamed:'..') pathName

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

    "

!

!

rootDirectory

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

    ^ self directoryNamed:(OperatingSystem fileSeparator asString)

    "

     FileDirectory rootDirectory contents

     FileDirectory rootDirectory files

     FileDirectory rootDirectory isReadable

    "

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.

    (dirName startsWith:OperatingSystem fileSeparator) ifFalse:[

	lazy := true

    ] ifTrue:[

	(dirName startsWith:'./') ifFalse:[

"/        (dirName includes:$.) ifTrue:[

	    lazy := true

	]

    ].

    ^ self

"

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

"

! !

!FileDirectory methodsFor:'basic'!

createDirectory:newName

    "create a new filedirectory as a subdirectory of myself;

     return true if successful"

    |realName|

    (newName notNil and:[newName notEmpty]) ifTrue:[

	(newName ~= '.' and:[newName ~= '..']) ifTrue:[

	    ((newName at:1) == OperatingSystem fileSeparator) ifTrue:[

		realName := newName copyFrom:2

	    ] ifFalse:[

		realName := newName

	    ].

	    ^ OperatingSystem createDirectory:(self pathNameOf:realName)

	]

    ].

    ^ false

!

link:oldFileName to:newFileName

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

    |path1 path2|

    path1 := self pathNameOf:oldFileName.

    path2 := self pathNameOf:newFileName.

    ^ OperatingSystem linkFile:path1 to:path2

!

remove:aFileOrDirectoryName

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

    |path|

    path := self pathNameOf:aFileOrDirectoryName.

    (OperatingSystem isDirectory:path) ifTrue:[

	^ OperatingSystem removeDirectory:path

    ].

    ^ OperatingSystem removeFile:path

!

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."

    |path|

    path := self pathNameOf:dirName.

    (OperatingSystem removeDirectory:path) ifTrue:[^ true].

    ^ OperatingSystem recursiveRemoveDirectory:path

!

removeFile:fileName

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

    ^ OperatingSystem removeFile:(self pathNameOf:fileName).

!

renameFile:oldFileName newName:newFileName

    "rename the file; return true if successful"

    |path1 path2|

    path1 := self pathNameOf:oldFileName.

    path2 := self pathNameOf:newFileName.

    ^ OperatingSystem renameFile:path1 to:path2

!FileDirectory methodsFor:'enumerating'!

allDirectoriesDo:aBlock

    "evaluate the argument, aBlock for every directory name

     in the directory and in all subdirectories"

    |aStream command line|

    lazy ifTrue:[self getFullPathName].

    command := 'cd ' , pathName , '; find . -type d -print'.

    aStream := PipeStream readingFrom:command.

    aStream isNil ifTrue:[^ nil].

    [aStream atEnd] whileFalse:[

	line := aStream nextLine.

	line notNil ifTrue:[

	    (line = '.') ifFalse:[

		"cut off initial ./"

		line := line copyFrom:3

	    ].

	    aBlock value:line

	]

    ].

    aStream close

!

allFilesDo:aBlock

    "evaluate the argument, aBlock for every file name in the directory and in all

     subdirectories"

    |aStream command line|

    lazy ifTrue:[self getFullPathName].

    command := 'cd ' , pathName , '; find . -print'.

    aStream := PipeStream readingFrom:command.

    aStream isNil ifTrue:[^ nil].

    [aStream atEnd] whileFalse:[

	line := aStream nextLine.

	line notNil ifTrue:[

	    (line = '.') ifFalse:[

		"cut off initial ./"

		line := line copyFrom:3

	    ].

	    aBlock value:line

	]

    ].

    aStream close

!

directoriesDo:aBlock

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

    self where:[:name | (self isDirectory:name) ifTrue:[

			    ((name ~= '.') and:[name ~= '..'])

			] ifFalse:[

			    false

			]

	       ] do:aBlock

!

do:aBlock

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

    self where:[:name | true] do:aBlock

!

filesDo:aBlock

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

    self where:[:name | (self isDirectory:name) not] do:aBlock

!

namesDo:aBlock

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

     for ST-80 compatibility"

    self do:aBlock

!

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

! !

!FileDirectory methodsFor:'more instance creation'!

directoryNamed:aName

    ^ self class directoryNamed:aName in:self pathName

! !

!FileDirectory methodsFor:'printing & storing'!

printOn:aStream

    "append a printed representation of the receiver to aStream."

    lazy ifTrue:[self getFullPathName].

    aStream nextPutAll:'(a FileDirectory pathName:';

	    nextPutAll:pathName;

	    nextPutAll:')'

!

storeOn:aStream

    "append a printed representation of the receiver to aStream,

     which allows reconstructing it via readFrom:"

    lazy ifTrue:[self getFullPathName].

    aStream nextPutAll:'(FileDirectory directoryNamed:'.

    aStream nextPutAll:pathName.

    aStream nextPut:$)

! !

!FileDirectory methodsFor:'queries'!

accessModeOf:name

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

    ^ OperatingSystem accessModeOf:(self pathNameOf:name)

changeAccessModeOf:name to:modeBits

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