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 + !
packages@lists.squeakfoundation.org