--- a/MultiReadStream.st Fri May 21 14:35:52 2010 +0200
+++ b/MultiReadStream.st Fri May 21 15:40:26 2010 +0200
@@ -78,6 +78,13 @@
"Created: / 21-05-2010 / 14:31:48 / cg"
!
+contentsSpecies
+ streamStack isEmptyOrNil ifTrue:[^ super contentsSpecies].
+ ^ streamStack first contentsSpecies
+
+ "Created: / 21-05-2010 / 14:44:26 / cg"
+!
+
next
self checkCurrentStreamAtEnd.
streamStack isEmpty ifTrue:[^ self pastEndRead].
@@ -92,6 +99,21 @@
^ streamStack last peek
"Created: / 21-05-2010 / 14:29:06 / cg"
+!
+
+position1Based
+ "/ thats depatable !!
+ "/ the code below only makes sense, if we see the multiStream as some kind of
+ "/ macro-expanding c-define stream
+ ^ streamStack first position1Based
+
+ "Created: / 21-05-2010 / 14:52:40 / cg"
+!
+
+readStream
+ ^ self
+
+ "Created: / 21-05-2010 / 14:51:05 / cg"
! !
!MultiReadStream methodsFor:'stream stacking'!
@@ -114,5 +136,5 @@
!MultiReadStream class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/MultiReadStream.st,v 1.1 2010-05-21 12:35:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/MultiReadStream.st,v 1.2 2010-05-21 13:40:26 cg Exp $'
! !