FilteringStream.st
changeset 955 97f0f14a61f4
parent 889 b3bfa0862f55
child 1239 fcb74307748c
equal deleted inserted replaced
954:198756c1e030 955:97f0f14a61f4
   430      for multiple elements."
   430      for multiple elements."
   431 
   431 
   432     ^ inputStream contentsSpecies
   432     ^ inputStream contentsSpecies
   433 
   433 
   434     "Created: 11.1.1997 / 16:23:22 / cg"
   434     "Created: 11.1.1997 / 16:23:22 / cg"
       
   435 !
       
   436 
       
   437 position
       
   438     "return the receiver streams position"
       
   439 
       
   440     |rawPosition|
       
   441 
       
   442     rawPosition := inputStream position.
       
   443     readAhead notNil ifTrue:[
       
   444         rawPosition := rawPosition - 1
       
   445     ].
       
   446     ^ rawPosition
   435 ! !
   447 ! !
   436 
   448 
   437 !FilteringStream class methodsFor:'documentation'!
   449 !FilteringStream class methodsFor:'documentation'!
   438 
   450 
   439 version
   451 version
   440     ^ '$Header: /cvs/stx/stx/libbasic2/FilteringStream.st,v 1.7 2000-05-22 11:11:30 cg Exp $'
   452     ^ '$Header: /cvs/stx/stx/libbasic2/FilteringStream.st,v 1.8 2001-02-01 13:32:24 cg Exp $'
   441 ! !
   453 ! !