[Pkg] DeltaStreams: DeltaStreams-Tirade-gk.4.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of DeltaStreams-Tirade was added to project DeltaStreams:
http://www.squeaksource.com/DeltaStreams/DeltaStreams-Tirade-gk.4.mcz

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

Name: DeltaStreams-Tirade-gk.4
Author: gk
Time: 6 September 2009, 2:24:07 am
UUID: 37cc376d-04d4-4cda-8f11-8ca90bd959f6
Ancestors: DeltaStreams-Tirade-gk.3

- Added Tirade support for DsDoIt.
- Added DSDelta>>fileOut and fileOutCompressed


=============== Diff against DeltaStreams-Tirade-gk.3 ===============

Item was added:
+ ----- Method: DSDoIt>>tiradeOn: (in category '*deltastreams-tirade') -----
+ tiradeOn: recorder
+ 	
+ 	recorder
+ 		doIt: expression
+ 		antiDoIt: antiExpression
+ 		properties: properties!

Item was added:
+ ----- Method: DSDelta>>fileOutDeltas:InDirectory:compressed: (in category '*deltastreams-tirade') -----
+ fileOutDeltas: deltas InDirectory: directory compressed: compressed
+ 	"Simple default fileOut using Tirade, the base format for Deltas."
+ 
+ 	| fn file writer |
+ 	fn := directory fullNameFor: (directory nextNameFor: self name extension: 'd').
+ 	Cursor write showWhile: [
+ 		file := FileStream newFileNamed: fn.
+ 		[writer := DSTiradeWriter on: file
+ 		deltas do: [:delta | writer nextPut: delta]]
+ 			ensure: [file close].
+ 		compressed ifTrue: [
+ 			file := directory readOnlyFileNamed: fn.
+ 			file compressFile.
+ 			directory deleteFileNamed: fn ifAbsent:[]]]!

Item was added:
+ ----- Method: DSDelta>>fileOutCompressed (in category '*deltastreams-tirade') -----
+ fileOutCompressed
+ 	"Simple default fileOut using Tirade, the base format for Deltas."
+ 
+ 	self fileOutDeltas: (Array with: self) InDirectory:  FileDirectory default compressed: true
+ 	!

Item was added:
+ ----- Method: DSDelta>>doIt:antiDoIt:properties: (in category '*deltastreams-tirade') -----
+ doIt: expression antiDoIt: antiExpression properties: properties
+ 
+ 	^((self getClass: DSDoIt)
+ 		doIt: expression;
+ 		antiDoIt: antiExpression)
+ 			properties: properties!

Item was added:
+ ----- Method: DSDelta>>fileOut (in category '*deltastreams-tirade') -----
+ fileOut
+ 	"Simple default fileOut using Tirade, the base format for Deltas."
+ 
+ 	self fileOutDeltas: (Array with: self) InDirectory:  FileDirectory default compressed: false
+ 	!