I would suggest to rename two methods of PositionableStream: nextWord "Answer the next two bytes from the receiver as an Integer." nextWordPut: aWord "Append to the receiver an Integer as the next two bytes." to next2Bytes or nextTwoBytes and next2BytesPut: or nextTwoBytesPut:
The reason for this suggestion is that I would like to see a method nextWord to return the next word from aStream in a literal sense. I remember that at least VSE has a method like this
!PositionableStream methodsFor: 'accessing' stamp: 'pm 6/14/1998 22:24'! nextWord "Answer a String containing the next word in the receiver stream. A word starts with a letter, followed by a sequence of letters and digits." | first | [self atEnd ifTrue: [^ nil]. self next isAlphaNumeric] whileFalse: []. "skip separators" first _ self position. [self atEnd ifTrue: [^ collection copyFrom: first to: self position]. self next isAlphaNumeric] whileTrue: []. position _ position - 1. ^ collection copyFrom: first to: self position! !
With best regards Martin Pammer mpammer@vrz.net VRZ Informatik
squeak-dev@lists.squeakfoundation.org