equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2009 by Claus Gittinger |
4 COPYRIGHT (c) 2009 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
110 |
112 |
111 atEnd |
113 atEnd |
112 ^ inStream atEnd |
114 ^ inStream atEnd |
113 ! |
115 ! |
114 |
116 |
|
117 contents |
|
118 ^ nil. |
|
119 |
|
120 "Created: / 26-05-2019 / 00:52:54 / Claus Gittinger" |
|
121 ! |
|
122 |
115 contentsSpecies |
123 contentsSpecies |
116 "return a class of which instances will be returned, when |
124 "return a class of which instances will be returned, when |
117 parts of the collection are asked for. |
125 parts of the collection are asked for. |
118 (see upTo-kind of methods in Stream)" |
126 (see upTo-kind of methods in Stream)" |
119 |
127 |
178 ^ inStream position + 1 |
186 ^ inStream position + 1 |
179 |
187 |
180 "Created: / 26-10-2011 / 17:22:42 / cg" |
188 "Created: / 26-10-2011 / 17:22:42 / cg" |
181 ! |
189 ! |
182 |
190 |
|
191 position:newPos |
|
192 inStream position:newPos |
|
193 |
|
194 "Created: / 26-05-2019 / 00:57:19 / Claus Gittinger" |
|
195 ! |
|
196 |
183 readStream |
197 readStream |
184 ^ self |
198 ^ self |
185 |
199 |
186 "Created: / 26-10-2011 / 17:25:43 / cg" |
200 "Created: / 26-10-2011 / 17:25:43 / cg" |
187 ! ! |
201 ! ! |