[squeak-dev] The Trunk: Compression-ul.29.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Aug 4 01:06:24 UTC 2011
Levente Uzonyi uploaded a new version of Compression to project The Trunk:
http://source.squeak.org/trunk/Compression-ul.29.mcz
==================== Summary ====================
Name: Compression-ul.29
Author: ul
Time: 3 August 2011, 1:43:44.835 am
UUID: cbbfcf21-2c4b-454f-88ce-d57b58abe41a
Ancestors: Compression-ul.28
Removed unnecessary blocks.
=============== Diff against Compression-ul.28 ===============
Item was changed:
----- Method: Archive>>addTree:removingFirstCharacters:match: (in category 'archive operations') -----
addTree: aFileNameOrDirectory removingFirstCharacters: n match: aBlock
| dir fullPath relativePath |
dir := (aFileNameOrDirectory isString)
ifTrue: [ FileDirectory on: aFileNameOrDirectory ]
ifFalse: [ aFileNameOrDirectory ].
fullPath := dir pathName, dir slash.
relativePath := fullPath copyFrom: n + 1 to: fullPath size.
+ (dir entries select: aBlock)
- (dir entries select: [ :entry | aBlock value: entry])
do: [ :ea | | fullName newMember |
fullName := fullPath, ea name.
newMember := ea isDirectory
ifTrue: [ self memberClass newFromDirectory: fullName ]
ifFalse: [ self memberClass newFromFile: fullName ].
newMember localFileName: relativePath, ea name.
self addMember: newMember.
ea isDirectory ifTrue: [ self addTree: fullName removingFirstCharacters: n match: aBlock].
].
!
More information about the Squeak-dev
mailing list
|