[Pkg] DeltaStreams: DeltaStreams-Tirade-gk.4.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Sun Sep 6 12:24:17 UTC 2009
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
+ !
More information about the Packages
mailing list