--- a/PositionableStream.st Wed Mar 15 11:35:21 2006 +0100
+++ b/PositionableStream.st Wed Mar 15 11:37:12 2006 +0100
@@ -149,6 +149,25 @@
self nextPutChunkSeparator
! !
+!PositionableStream methodsFor:'Compatibility-ST/V'!
+
+skipTo:anElement
+ "ST/V compatibility:
+ skip for the element given by the argument, anElement;
+ return nil if not found, self otherwise.
+ On a successful match, the next read will return the element after anElement."
+
+ ^ self skipThrough:anElement
+
+ "
+ |s|
+ s := ReadStream on:'12345678901234567890'.
+ s skipTo:$5.
+ s copyFrom:1 to:(s position).
+ s upToEnd
+ "
+! !
+
!PositionableStream methodsFor:'accessing'!
collection
@@ -409,27 +428,6 @@
"Modified: 11.1.1997 / 19:16:38 / cg"
!
-skipTo:anElement
- "skip for the element given by the argument, anElement;
- return nil if not found, self otherwise.
- On a successful match, the next read will return the element after anElement."
-
- |buffer len first idx|
-
- [self atEnd] whileFalse:[
- self next == anElement ifTrue:[^ self ].
- ].
- ^ nil
-
- "
- |s|
- s := ReadStream on:'12345678901234567890'.
- s skipTo:$5.
- s copyFrom:1 to:(s position).
- s upToEnd
- "
-!
-
skipToAll:aCollection
"skip for the sequence given by the argument, aCollection;
return nil if not found, self otherwise.
@@ -620,7 +618,7 @@
!PositionableStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.145 2006-03-15 10:35:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.146 2006-03-15 10:37:12 cg Exp $'
! !
PositionableStream initialize!