[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