[squeak-dev] The Trunk: ReleaseBuilder-edc.48.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 18 10:52:21 UTC 2010

Edgar J. De Cleene uploaded a new version of ReleaseBuilder to project The Trunk:

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

Name: ReleaseBuilder-edc.48
Author: edc
Time: 18 February 2010, 7:55:40.136 am
UUID: 2a249794-2ee7-417a-b9ca-a746f828f54a
Ancestors: ReleaseBuilder-dtl.47

ReleaseBuilderFor3dot11 new createCompressedSources is fixed and make the dir and files 

=============== Diff against ReleaseBuilder-dtl.47 ===============

Item was changed:
  ----- Method: ReleaseBuilderFor3dot11>>createCompressedSources (in category 'sources managment') -----
  " ReleaseBuilderFor3dot11 new createCompressedSources"
  ProtoObject allSubclassesWithLevelDo:[:cl :l| | dir | 
  	dir := self createDirIfnotExists:cl category.
  	Cursor write showWhile: [ | zipped nameToUse unzipped buffer |
+ 		nameToUse :=  cl printString , FileDirectory dot, ImageSegment compressedFileExtension. 
- 		nameToUse :=  cl printString .
  		(dir fileExists: nameToUse) ifFalse:[
  			unzipped :=RWBinaryOrTextStream on: ''.
  			unzipped header; timeStamp.
  	 cl  fileOutOn: unzipped moveSource: false toFile: 0.
  	unzipped trailer.
  			unzipped reset.
+ 			zipped := dir newFileNamed: (nameToUse).
- 			zipped := dir newFileNamed: (nameToUse, FileDirectory dot, ImageSegment compressedFileExtension).
  	zipped binary.
  	zipped := GZipWriteStream on: zipped.
  	buffer := ByteArray new: 50000.
  	'Compressing ', nameToUse displayProgressAt: Sensor cursorPoint
  		from: 0 to: unzipped size
  			[unzipped atEnd] whileFalse:[
  				bar value: unzipped position.
  				zipped nextPutAll: (unzipped nextInto: buffer)].
  			zipped close.
  			unzipped close]]]] startingLevel: 0!

More information about the Squeak-dev mailing list