equal
deleted
inserted
replaced
2180 value." |
2180 value." |
2181 |
2181 |
2182 |answerStream element| |
2182 |answerStream element| |
2183 |
2183 |
2184 answerStream := WriteStream on:(self contentsSpecies new). |
2184 answerStream := WriteStream on:(self contentsSpecies new). |
2185 [self atEnd] whileFalse:[ |
2185 [ |
2186 element := self next. |
2186 element := self nextOrNil. |
2187 (element = anObject) ifTrue: [ |
2187 ((element isNil and:[self atEnd]) or:[element = anObject]) ifTrue:[ |
2188 ^ answerStream contents |
2188 true |
2189 ]. |
2189 ] ifFalse:[ |
2190 answerStream nextPut:element. |
2190 answerStream nextPut:element. |
2191 ]. |
2191 false |
|
2192 ]. |
|
2193 ] whileFalse. |
|
2194 |
2192 ^ answerStream contents |
2195 ^ answerStream contents |
2193 |
2196 |
2194 " |
2197 " |
2195 |s| |
2198 |s| |
2196 s := ReadStream on:#(1 2 3 4 5 6 7 8). |
2199 s := ReadStream on:#(1 2 3 4 5 6 7 8). |
2218 (ReadStream on:'123456') upTo:$7 |
2221 (ReadStream on:'123456') upTo:$7 |
2219 |
2222 |
2220 (ReadStream on:#(1 2 3 4 5 6)) upTo:4 |
2223 (ReadStream on:#(1 2 3 4 5 6)) upTo:4 |
2221 |
2224 |
2222 (ReadStream on:'line 1 |
2225 (ReadStream on:'line 1 |
2223 line 2') upTo:Character cr |
2226 line 2') upTo:Character cr |
2224 |
2227 |
2225 'Makefile' asFilename readStream upTo:Character cr;upTo:Character cr |
2228 'Makefile' asFilename readStream upTo:Character cr;upTo:Character cr |
2226 " |
2229 " |
2227 |
2230 |
2228 "Modified: / 12.1.1998 / 21:58:38 / cg" |
2231 "Modified: / 12.1.1998 / 21:58:38 / cg" |
2776 ! ! |
2779 ! ! |
2777 |
2780 |
2778 !Stream class methodsFor:'documentation'! |
2781 !Stream class methodsFor:'documentation'! |
2779 |
2782 |
2780 version |
2783 version |
2781 ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.154 2007-01-24 16:27:02 stefan Exp $' |
2784 ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.155 2007-01-24 16:45:51 stefan Exp $' |
2782 ! ! |
2785 ! ! |
2783 |
2786 |
2784 Stream initialize! |
2787 Stream initialize! |