The Trunk: Compression-nice.16.mcz

Nicolas Cellier uploaded a new version of Compression to project The Trunk:
http://source.squeak.org/trunk/Compression-nice.16.mcz

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

Name: Compression-nice.16
Author: nice
Time: 16 March 2010, 11:18:13.123 pm
UUID: 220aef1a-9452-46f3-95c0-38b57d9802aa
Ancestors: Compression-nice.15

Generalize stream protocol #readInto:startingAt:count:
It's the same as #next:into:startingAt: but avoid a copy and rather answer number of elements read.

=============== Diff against Compression-nice.15 ===============

Item was added:
+ ----- Method: InflateStream>>readInto:startingAt:count: (in category 'accessing') -----
+ readInto: buffer startingAt: startIndex count: n
+ "Read n objects into the given collection.
+ Return number of elements that have been read."
+ | c numRead count |
+ numRead := 0.
+ ["Force decompression if necessary"
+ (c := self next) == nil
+ ifTrue: [^numRead].
+ "Store the first value which provoked decompression"
+ buffer at: startIndex + numRead put: c.
+ numRead := numRead + 1.
+ "After collection has been filled copy as many objects as possible"
+ count := (readLimit - position) min: (n - numRead).
+ buffer
+ replaceFrom: startIndex + numRead
+ to: startIndex + numRead + count - 1
+ with: collection
+ startingAt: position+1.
+ position := position + count.
+ numRead := numRead + count.
+ numRead = n] whileFalse.
+ ^n!