[squeak-dev] The Trunk: Network-nice.65.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Mar 21 20:47:30 UTC 2010
Nicolas Cellier uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-nice.65.mcz
==================== Summary ====================
Name: Network-nice.65
Author: nice
Time: 21 March 2010, 9:47:14.77 pm
UUID: 40b92eea-5650-fc4a-9488-74bed0249af8
Ancestors: Network-nice.64
Avoid sending at: to a DirectoryEntry, it is deprecated
=============== Diff against Network-nice.64 ===============
Item was changed:
----- Method: ServerDirectory>>directoryNames (in category 'file directory') -----
directoryNames
"Return a collection of names for the subdirectories of this directory."
"(ServerDirectory serverNamed: 'UIUCArchive') directoryNames"
+ ^ (self entries select: [:entry | entry isDirectory])
+ collect: [:entry | entry name]
- ^ (self entries select: [:entry | entry at: 4])
- collect: [:entry | entry first]
!
Item was changed:
----- Method: ServerDirectory>>fileNames (in category 'file directory') -----
fileNames
"Return a collection of names for the files (but not directories) in this directory."
"(ServerDirectory serverNamed: 'UIUCArchive') fileNames"
+ ^ self entries select: [:entry | entry isDirectory not]
+ thenCollect: [:entry | entry name]
- ^ self entries select: [:entry | (entry at: 4) not]
- thenCollect: [:entry | entry first]
!
Item was changed:
----- Method: HTTPServerDirectory>>fileNames (in category 'file directory') -----
fileNames
"Return a collection of names for the files (but not directories) in this directory."
"(ServerDirectory serverNamed: 'UIUCArchive') fileNames"
self dirListUrl
ifNil: [^self error: 'No URL set for fetching the directory listing.' ].
+ ^(self entries select: [:entry | entry isDirectory not])
+ collect: [:entry | entry name]
- ^(self entries select: [:entry | (entry at: 4) not])
- collect: [:entry | entry first]
!
Item was changed:
----- Method: ServerDirectory>>fileAndDirectoryNames (in category 'file directory') -----
fileAndDirectoryNames
"FileDirectory default fileAndDirectoryNames"
+ ^ self entries collect: [:entry | entry name]
- ^ self entries collect: [:entry | entry first]
!
Item was changed:
----- Method: HTTPServerDirectory>>directoryNames (in category 'file directory') -----
directoryNames
| dirNames projectNames entries |
"Return a collection of names for the subdirectories of this directory but filter out project directories."
entries := self entries.
+ dirNames := (entries select: [:entry | entry isDirectory])
+ collect: [:entry | entry name].
- dirNames := (entries select: [:entry | entry at: 4])
- collect: [:entry | entry first].
projectNames := Set new.
entries do: [:entry |
+ (entry isDirectory not
+ and: ['*.pr' match: entry name])
+ ifTrue: [projectNames add: (entry name copyFrom: 1 to: entry name size - 3)]].
- ((entry at: 4) not
- and: ['*.pr' match: entry first])
- ifTrue: [projectNames add: (entry first copyFrom: 1 to: entry first size-3)]].
^dirNames reject: [:each | projectNames includes: each]
!
More information about the Squeak-dev
mailing list
|