equal
deleted
inserted
replaced
223 |
223 |
224 fileIn |
224 fileIn |
225 "file in from the receiver, i.e. read chunks and evaluate them - |
225 "file in from the receiver, i.e. read chunks and evaluate them - |
226 return the value of the last chunk." |
226 return the value of the last chunk." |
227 |
227 |
228 |notifiedLoader lastValue| |
228 |notifiedLoader lastValue s| |
|
229 |
|
230 self isEncodedStream ifFalse:[ |
|
231 s := EncodedStream decodedStreamFor:self. |
|
232 "/ may return myself, in case no decoding is required... |
|
233 s ~~ self ifTrue:[ |
|
234 ^ s fileIn |
|
235 ] |
|
236 ]. |
229 |
237 |
230 SourceFileLoader notNil ifTrue:[ |
238 SourceFileLoader notNil ifTrue:[ |
231 notifiedLoader := SourceFileLoader on:self. |
239 notifiedLoader := SourceFileLoader on:self. |
232 ]. |
240 ]. |
233 |
241 |
1039 ! ! |
1047 ! ! |
1040 |
1048 |
1041 !PeekableStream class methodsFor:'documentation'! |
1049 !PeekableStream class methodsFor:'documentation'! |
1042 |
1050 |
1043 version |
1051 version |
1044 ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.42 2013-03-19 13:15:55 stefan Exp $' |
1052 ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.43 2013-04-03 16:15:51 cg Exp $' |
1045 ! |
1053 ! |
1046 |
1054 |
1047 version_CVS |
1055 version_CVS |
1048 ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.42 2013-03-19 13:15:55 stefan Exp $' |
1056 ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.43 2013-04-03 16:15:51 cg Exp $' |
1049 ! ! |
1057 ! ! |
1050 |
1058 |
1051 |
1059 |
1052 PeekableStream initialize! |
1060 PeekableStream initialize! |