[Pkg] The Trunk: Files-mtf.81.mcz

[commits at source.squeak.org]

Matthew Fulmer uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-mtf.81.mcz

==================== Summary ====================

Name: Files-mtf.81
Author: mtf
Time: 1 June 2010, 6:51:26.183 pm
UUID: 3f837337-fd86-42eb-9c46-f5f9adf7f10a
Ancestors: Files-ul.80

Refactored directory scanning based on a method that was part of Tweak

=============== Diff against Files-ul.80 ===============

Item was changed:
  ----- Method: FileDirectory>>directoryContentsFor: (in category 'private') -----
  directoryContentsFor: fullPath
  	"Return a collection of directory entries for the files and directories in the directory with the given path. See primLookupEntryIn:index: for further details."
  	"FileDirectory default directoryContentsFor: ''"
  
  	^Array new: 200 streamContents: [:stream |
+ 		self directoryContentsFor: fullPath do: [:ea | stream nextPut: ea]].!
- 		| f entryArray index |
- 		f := fullPath asVmPathName.
- 		index := 1.
- 		[(entryArray := self primLookupEntryIn: f index: index) == nil] whileFalse: [
- 		.	#badDirectoryPath = entryArray ifTrue: [
- 				^(InvalidDirectoryError pathName: pathName asSqueakPathName) signal].
- 			index := index + 1.
- 			stream nextPut: (DirectoryEntry fromArray: entryArray directory: self) convertFromSystemName]].!

Item was added:
+ ----- Method: FileDirectory>>directoryContentsFor:do: (in category 'private') -----
+ directoryContentsFor: fullPath do: aBlock
+ "Do aBlock for the files and directories in the directory with the given path. See primLookupEntryIn:index: for further details."
+ 
+ 	| f entryArray index |
+ 	f := fullPath asVmPathName.
+ 	index := 1.
+ 	[(entryArray := self primLookupEntryIn: f index: index) == nil] whileFalse: [
+ 		#badDirectoryPath = entryArray ifTrue: [
+ 			^(InvalidDirectoryError pathName: pathName) signal].
+ 		index := index + 1.
+ 		aBlock value: (DirectoryEntry fromArray: entryArray directory: self) convertFromSystemName]!