FilteringStream.st
changeset 5246 bfd51179c98a
parent 5179 5db8ac2ad6bd
equal deleted inserted replaced
5245:b7c6a5b7bf44 5246:bfd51179c98a
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1996 by Claus Gittinger
     2  COPYRIGHT (c) 1996 by Claus Gittinger
     5 	      All Rights Reserved
     3 	      All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
   419     ]
   417     ]
   420 
   418 
   421     "Created: 11.1.1997 / 15:27:17 / cg"
   419     "Created: 11.1.1997 / 15:27:17 / cg"
   422 ! !
   420 ! !
   423 
   421 
       
   422 !FilteringStream methodsFor:'obsolete positioning'!
       
   423 
       
   424 position0Based
       
   425     <resource: #obsolete>
       
   426     "return the receiver streams position"
       
   427 
       
   428     ^ self position
       
   429 !
       
   430 
       
   431 position1Based
       
   432     <resource: #obsolete>
       
   433     "return the receiver streams position"
       
   434 
       
   435     ^ self position + 1
       
   436 ! !
       
   437 
   424 !FilteringStream methodsFor:'queries'!
   438 !FilteringStream methodsFor:'queries'!
   425 
   439 
   426 atEnd
   440 atEnd
   427     "return true, if the receiver stream is at the end"
   441     "return true, if the receiver stream is at the end"
   428 
   442 
   489 	rawPosition := rawPosition - 1
   503 	rawPosition := rawPosition - 1
   490     ].
   504     ].
   491     ^ rawPosition
   505     ^ rawPosition
   492 !
   506 !
   493 
   507 
   494 position0Based
       
   495     <resource: #obsolete>
       
   496     "return the receiver streams position"
       
   497 
       
   498     ^ self position
       
   499 !
       
   500 
       
   501 position1Based
       
   502     <resource: #obsolete>
       
   503     "return the receiver streams position"
       
   504 
       
   505     ^ self position + 1
       
   506 !
       
   507 
       
   508 readStream
   508 readStream
   509     ^ self
   509     ^ self
   510 
   510 
   511     "Created: / 06-12-2011 / 01:05:26 / cg"
   511     "Created: / 06-12-2011 / 01:05:26 / cg"
   512 !
   512 !