equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
100 position := position+count. |
98 position := position+count. |
101 ^ answer |
99 ^ answer |
102 ]. |
100 ]. |
103 ]. |
101 ]. |
104 ^ super next:count |
102 ^ super next:count |
105 ! |
|
106 |
|
107 peek |
|
108 "return the element to be read next without advancing read position. |
|
109 If there are no more elements, nil is returned." |
|
110 |
|
111 (position >= readLimit) ifTrue:[^ self pastEndRead]. |
|
112 ^ collection at:(position+1) |
|
113 |
|
114 "Modified: 5.2.1996 / 21:57:47 / stefan" |
|
115 ! ! |
103 ! ! |
116 |
104 |
117 !ReadWriteStream methodsFor:'accessing'! |
105 !ReadWriteStream methodsFor:'accessing'! |
118 |
106 |
119 clear |
107 clear |
196 "return the number of elements in the streamed collection." |
184 "return the number of elements in the streamed collection." |
197 |
185 |
198 ^ (readLimit ? 0) max:(position ? 0). |
186 ^ (readLimit ? 0) max:(position ? 0). |
199 ! ! |
187 ! ! |
200 |
188 |
|
189 !ReadWriteStream methodsFor:'reading'! |
|
190 |
|
191 peek |
|
192 "return the element to be read next without advancing read position. |
|
193 If there are no more elements, nil is returned." |
|
194 |
|
195 (position >= readLimit) ifTrue:[^ self pastEndRead]. |
|
196 ^ collection at:(position+1) |
|
197 |
|
198 "Modified: 5.2.1996 / 21:57:47 / stefan" |
|
199 ! ! |
|
200 |
201 !ReadWriteStream class methodsFor:'documentation'! |
201 !ReadWriteStream class methodsFor:'documentation'! |
202 |
202 |
203 version |
203 version |
204 ^ '$Header$' |
204 ^ '$Header$' |
205 ! |
205 ! |