[Pkg] The Trunk: Files-nice.75.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Mar 19 18:20:49 UTC 2010

Nicolas Cellier uploaded a new version of Files to project The Trunk:

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

Name: Files-nice.75
Author: nice
Time: 19 March 2010, 7:20:45.018 pm
UUID: f57e8994-da41-034e-965d-147528eab731
Ancestors: Files-cmm.74

Let nextPut: answer the put object.
Same for nextPutAll:, answer the collection argument

=============== Diff against Files-cmm.74 ===============

Item was changed:
  ----- Method: CompressedSourceStream>>nextPutAll: (in category 'access') -----
  nextPutAll: str
  	| n nInSeg |
  	n := str size.
  	n <= (writeLimit - position) ifTrue:
  		["All characters fit in buffer"
  		collection replaceFrom: position + 1 to: position + n with: str.
  		dirty := true.
  		position := position + n.
  		readLimit := readLimit max: position.
  		endOfFile := endOfFile max: self position.
  		^ str].
  	"Write what fits in segment.  Then (after positioning) write what remains"
  	nInSeg := writeLimit - position.
  	nInSeg = 0
  		ifTrue: [self position: self position.
  				self nextPutAll: str]
  		ifFalse: [self nextPutAll: (str first: nInSeg).
  				self position: self position.
+ 				self nextPutAll: (str allButFirst: nInSeg)].
+ 	^str
- 				self nextPutAll: (str allButFirst: nInSeg)]

Item was changed:
  ----- Method: HtmlFileStream>>nextPutAll: (in category 'read, write, position') -----
  nextPutAll: aString
  	"Write the whole string, translating as we go. 4/6/96 tk"
  	"Slow, but faster than using aString asHtml?"
+ 	^aString do: [:each | self nextPut: each].!
- 	aString do: [:each | self nextPut: each].!

More information about the Packages mailing list