Stream.st
changeset 16454 ea42dcd0ad0a
parent 16453 690e4afd2a5d
child 16472 6d33536e4fa4
equal deleted inserted replaced
16453:690e4afd2a5d 16454:ea42dcd0ad0a
   282 	Transcript showCR:s next.
   282 	Transcript showCR:s next.
   283      ]
   283      ]
   284     "
   284     "
   285 
   285 
   286     "Modified: / 16.6.1998 / 16:04:41 / cg"
   286     "Modified: / 16.6.1998 / 16:04:41 / cg"
   287 ! !
       
   288 
       
   289 !Stream methodsFor:'closing'!
       
   290 
       
   291 close
       
   292     "close the stream - nothing done here.
       
   293      Added for compatibility with external streams."
       
   294 
       
   295     ^ self
       
   296 ! !
   287 ! !
   297 
   288 
   298 !Stream methodsFor:'converting'!
   289 !Stream methodsFor:'converting'!
   299 
   290 
   300 asLineNumberReadStream
   291 asLineNumberReadStream
  1856     ^ self nextPutShort:aNumber MSB:true
  1847     ^ self nextPutShort:aNumber MSB:true
  1857 
  1848 
  1858     "Modified: 10.1.1996 / 19:39:19 / cg"
  1849     "Modified: 10.1.1996 / 19:39:19 / cg"
  1859 ! !
  1850 ! !
  1860 
  1851 
       
  1852 !Stream methodsFor:'open / close'!
       
  1853 
       
  1854 close
       
  1855     "close the stream - nothing done here.
       
  1856      Added for compatibility with external streams."
       
  1857 
       
  1858     ^ self
       
  1859 ! !
       
  1860 
  1861 !Stream methodsFor:'private'!
  1861 !Stream methodsFor:'private'!
  1862 
  1862 
  1863 contentsSpecies
  1863 contentsSpecies
  1864     "this should return the class of which an instance is
  1864     "this should return the class of which an instance is
  1865      returned by the #contents method. Here, Array is returned,
  1865      returned by the #contents method. Here, Array is returned,
  3149     self nextPutAll:aCollection
  3149     self nextPutAll:aCollection
  3150 !
  3150 !
  3151 
  3151 
  3152 nextPutLine:aCollection
  3152 nextPutLine:aCollection
  3153     "put all elements of the argument, aCollection onto the receiver,
  3153     "put all elements of the argument, aCollection onto the receiver,
  3154      and append a cr (carriage return). 
  3154      and append a cr (carriage return). aCollection should contain characters.
  3155      This is only useful with character streams in textMode,
  3155      This is only useful with character streams in textMode,
  3156      and only allowed, if the receiver supports writing."
  3156      and only allowed, if the receiver supports writing."
  3157 
  3157 
  3158     self nextPutAll:aCollection.
  3158     self nextPutAll:aCollection.
  3159     self cr.
  3159     self cr.
  3523 ! !
  3523 ! !
  3524 
  3524 
  3525 !Stream class methodsFor:'documentation'!
  3525 !Stream class methodsFor:'documentation'!
  3526 
  3526 
  3527 version
  3527 version
  3528     ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.219 2014-05-15 07:59:49 cg Exp $'
  3528     ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.220 2014-05-15 08:25:03 cg Exp $'
  3529 !
  3529 !
  3530 
  3530 
  3531 version_CVS
  3531 version_CVS
  3532     ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.219 2014-05-15 07:59:49 cg Exp $'
  3532     ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.220 2014-05-15 08:25:03 cg Exp $'
  3533 ! !
  3533 ! !
  3534 
  3534 
  3535 
  3535 
  3536 Stream initialize!
  3536 Stream initialize!