"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

Object subclass:#Stream

       instanceVariableNames:''

       classVariableNames:''

       poolDictionaries:''

       category:'Streams'

!

Stream comment:'

COPYRIGHT (c) 1989 by Claus Gittinger

	      All Rights Reserved

'!

!Stream class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

version

"

"

!

documentation

"

    An abstract class defining common behavior for all stream-like objects.

    See concrete subclasses for more detail.

"

! !

!Stream class methodsFor:'instance creation'!

new

    "report an error - Streams are created using on:-messages"

    ^ self error:'Streams cannot be created with new'

! !

!Stream methodsFor:'accessing'!

contents

    "return the entire contents of the stream

     - we do not know here how to do it, it must be redefined in subclass"

    ^ self subclassResponsibility

! !

!Stream methodsFor:'reading'!

next

    "return the next element of the stream

     - we do not know here how to do it, it must be redefined in subclass"

    ^ self subclassResponsibility

!

next:count

    "return the next count elements of the stream as a Collection."

    |coll|

    coll := self contentsSpecies new:count.

    1 to:count do:[:index |

	coll at:index put:(self next)

    ].

    ^ coll

!

nextMatchFor:anObject

    "read an element from the receiver, return true if it was equal to

     the argument, anObject"

    ^ (self next = anObject)

    "

     |s|

     s := ReadStream on:#(1 2 3 4 5 6 7 8).

     s nextMatchFor:2

    "

    "

     |s|

     s := ReadStream on:#(1 2 3 4 5 6 7 8).

     s nextMatchFor:2.

     s nextMatchFor:2

    "

!

skip:count 

    "skip count objects, return the receiver"

    "dont know how to unread ..."

    count < 0 ifTrue:[

	^ self error:'stream is not positionable'

    ].

    count timesRepeat:self next

    "

     |s|

     s := ReadStream on:#(1 2 3 4 5 6 7 8).

     s skip:4.

     s next

    "

!

skipFor:anObject

    "skip all objects up-to and including anObject; return the element after anObject."

    (self skipThrough:anObject) notNil ifTrue:[

	^ self next

    ].

    ^ nil

    "

     |s|

     s := ReadStream on:#(1 2 3 4 5 6 7 8).

     s skipFor:4.

    "

!

skipThrough:anObject

    "skip all objects up-to and including anObject. Return the receiver if

     skip was successfull, otherwise (i.e. if not found) return nil.

     The next read operation will return the element after anObject."

    |nextElement|

    [self atEnd] whileFalse:[

	nextElement := self next.

	(nextElement = anObject) ifTrue: [ ^ self ]

    ].

    ^ nil

    "

     |s|

     s := ReadStream on:#(1 2 3 4 5 6 7 8).

     s skipThrough:4.

     s next

    "

!

upToEnd

    "return a collection of the elements up-to the end.

     Return nil if the stream-end is reached before."

    |answerStream|

    answerStream := WriteStream on:(self contentsSpecies new).

    [self atEnd] whileFalse:[

	answerStream nextPut:(self next)

    ].

    ^ answerStream contents

!

through:anObject

    "read a collection of all objects up-to and including anObject. 

     The next read operation will return the element after anObject."

    |answerStream element|

    answerStream := WriteStream on:(self contentsSpecies new).

    [self atEnd] whileFalse:[

	element := self next.

	answerStream nextPut: element.

	(element = anObject) ifTrue: [

	    ^ answerStream contents

	]

    ].

    ^ answerStream contents

    "

     |s|

     s := ReadStream on:#(1 2 3 4 5 6 7 8).

     s through:4.

    "

    "

     |s|

     s := ReadStream on:'hello world'.

     s through:Character space.

    "

! !

!Stream methodsFor:'writing'!

nextPut:anObject

    "put the argument, anObject onto the receiver

     - we do not know here how to do it, it must be redefined in subclass"

    ^ self subclassResponsibility

!

next:count put:anObject

    "put the argument, anObject count times onto the receiver"

    count timesRepeat:[self nextPut:anObject].

    ^ anObject

    "

     |s|

     s := WriteStream on:#().

     s nextPut:1.

     s next:5 put:2.

     s nextPut:3.

     s contents

    "

!

nextPutAll:aCollection

    "put all elements of the argument, aCollection onto the receiver"

    aCollection do:[:element |

	self nextPut:element

    ].

    ^ aCollection

    "

     |s|

     s := WriteStream on:#().

     s nextPutAll:(1 to:5).

     s nextPutAll:#('one' 'two' 'three').

     s contents

    "

    "

     |s|

     s := WriteStream on:(String new).

     s nextPutAll:($a to:$f).

     s nextPutAll:'one '; 

       nextPutAll:'two ';

       nextPutAll:'three'.

     s contents

    "

!

nextPutAll:aCollection startingAt:first to:last

    "put the elements with index from first to last

     of the argument, aCollection onto the receiver"

    aCollection from:first to:last do:[:element |

	self nextPut:element

    ].

    ^ aCollection

    "

     |s|

     s := WriteStream on:#().

     s nextPutAll:#('one' 'two' 'three' 'four' 'five') startingAt:2 to:4.

     s contents

    "

!

endEntry

    "ignored here - for compatibility with Transcript"

    ^ self

!

show:aString

    "put all elements of the argument, aString onto the receiver;

     this makes streams somewhat compatible to TextCollectors and

     allows you to say: Smalltalk at:#Transcript put:Stdout"

    ^ self nextPutAll:aString printString

!

showCr:aString

    "put all elements of the argument, aString onto the receiver;

     and append a newline.

     For compatibility with TextCollectors"

    self show:aString.

    self cr

!

print:anObject

    "append a printed representation of anObject to the receiver.

     Same as anObject printOn:self; For ST-80 compatibility."

    anObject printOn:self

!

store:anObject

    "append a printed representation of anObject to the receiver,

     from which the receiver can be reconstructed.

     Same as anObject storeOn:self; For ST-80 compatibility."

    anObject storeOn:self

!

cr

    "append a carriage-return to the stream"

    self nextPut:(Character cr)

!

tab

    "append a tab-character to the stream"

    self nextPut:(Character tab)

!

crTab

    "append a carriage-return followed by a tab to the stream"

    self nextPut:(Character cr).

    self nextPut:(Character tab)

!

crtab

    "append a carriage-return followed by a tab to the stream.

     Same as crTab for ST-80 compatibility"

    ^ self crTab

!

space

    "append a space character to the receiver-stream"

    self nextPut:(Character space)

!

spaces:count

    "append count space-characters to the receiver-stream"

    self next:count put:(Character space)

!

ff

    "append a form-feed (new-pagee) to the receiver-stream"

    self nextPut:(Character ff)

! !

!Stream methodsFor:'non homogenous writing'!

nextPutWord:aNumber

    "write the argument, aNumber as a signed short (two bytes);

     write msb-first for compatibility with other smalltalks.

     The receiver must support writing of binary bytes.

     I dont know if it should be named nextPutWord: or nextWordPut:;

     one of them will vanish ..."

    ^ self nextPutShort:aNumber MSB:true

!

nextWordPut:aNumber

    "for compatibility - this will vanish"

    ^ self nextPutShort:aNumber MSB:true

!

nextShortPut:aNumber MSB:msbFlag

    "for compatibility - this will vanish"

    ^ self nextPutShort:aNumber MSB:msbFlag

!

nextPutShort:aNumber MSB:msbFlag

    "Write the argument, aNumber as a short (two bytes). If msbFlag is

     true, data is written most-significant byte first; otherwise least

     first. Returns the receiver on ok, nil on error.

     The receiver must support writing of binary bytes."

    msbFlag ifTrue:[

	"most significant first"

    ].

    "least significant first"

!

nextPutLong:aNumber MSB:msbFlag

    "Write the argument, aNumber as a long (four bytes). If msbFlag is

     true, data is written most-significant byte first; otherwise least

     first. Returns the receiver on ok, nil on error.

     The receiver must support writing of binary bytes."

    msbFlag ifTrue:[

	"high word first"

	self nextShortPut:(aNumber // 16r10000) MSB:true.

	^ self nextShortPut:(aNumber \\ 16r10000) MSB:true

    ].

    "low word first"

    self nextShortPut:(aNumber \\ 16r10000) MSB:false.

    ^ self nextShortPut:(aNumber // 16r10000) MSB:false.

!

nextNumber:n put:v 

    "Append to the receiver the argument, v, which is a positive Integer,

     as the next n bytes. Bytes are written msb first. 

     Possibly pad with leading zeros.

     The receiver must support writing of binary bytes."

    "claus: this method is central in binaryStorage -

     therefore it has been tuned a bit (and needs even more tuning)"

    v class == SmallInteger ifTrue:[  "- this is a hint to stc"

	n == 1 ifTrue:[

	    (v between:0 and:16rFF) ifTrue:[

		self nextPut:v.

		^ self

	    ].

	].

	n == 2 ifTrue:[

	    (v between:0 and:16rFFFF) ifTrue:[

		self nextPut:(v bitShift:-8).

		self nextPut:(v bitAnd:16rFF).

		^ self

	    ].

	].

	n == 3 ifTrue:[

	    (v between:0 and:16rFFFFFF) ifTrue:[

		self nextPut:((v bitShift:-16) bitAnd:16rFF).

		self nextPut:((v bitShift:-8) bitAnd:16rFF).

		self nextPut:(v bitAnd:16rFF).

		^ self

	    ].

	].

	n == 4 ifTrue:[

	    (v >= 0) ifTrue:[

		self nextPut:((v bitShift:-24) bitAnd:16rFF).

		self nextPut:((v bitShift:-16) bitAnd:16rFF).

		self nextPut:((v bitShift:-8) bitAnd:16rFF).

		self nextPut:(v bitAnd:16rFF).

		^ self

	    ].

	].

    ].

    n < (vlen := v digitLength) ifTrue: [

	self error: 'number too big'

    ].

    "pad with leading zeros"

    i := n.

    [i > vlen] whileTrue: [

	self nextPut: 0. 

	i := i - 1

    ].

    i = 1 ifTrue: [

	^ self nextPut: v

    ].

    [i > 0] whileTrue: [

	self nextPut: (v digitAt: i). 

	i := i - 1

    ]

! !

!Stream methodsFor:'non homogenous reading'!