MultiReadStream.st
changeset 2450 ffafc2eb3364
parent 2449 1401dd52e200
child 2463 cbb5fd7ae437
--- 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 $'
 ! !