The Trunk: Files-nice.52.mcz

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

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

Name: Files-nice.52
Author: nice
Time: 8 December 2009, 7:05:36 am
UUID: bc850e55-223e-4cc3-a88c-d0282f4b70c7
Ancestors: Files-ul.51

Correct my own bug in upToAnyOf:do: (nextLine)

=============== Diff against Files-ul.51 ===============

Item was changed:
  ----- Method: StandardFileStream>>upToAnyOf:do: (in category 'read, write, position') -----
  upToAnyOf: delimiters do: aBlock
  "Fast version to speed up nextChunk"
  | pos buffer count result |
  collection ifNotNil: [
  (position < readLimit and: [
  (count := collection indexOfAnyOf: delimiters startingAt: position + 1) <= readLimit and: [
  count > 0 ] ]) ifTrue: [
+ result := collection copyFrom: position + 1 to: (position := count) - 1.
- result := collection copyFrom: position + 1 to: (position := position + count).
  aBlock value: (collection at: count).
  ^result ] ].
  pos := self position.
  buffer := self next: 2000.
  (count := buffer indexOfAnyOf: delimiters) > 0 ifTrue:
  ["Found one of the delimiters part way into buffer"
  self position: pos + count.
  aBlock value: (buffer at: count).
  ^ buffer copyFrom: 1 to: count - 1].
  self atEnd ifTrue:
  ["Never found it, and hit end of file"
  ^ buffer].
  "Never found it, but there's more..."
  ^ buffer , (self upToAnyOf: delimiters do: aBlock)!