--- a/Stream.st Wed Jul 23 16:13:50 2014 +0200
+++ b/Stream.st Thu Jul 24 13:08:57 2014 +0200
@@ -194,6 +194,8 @@
^ ChunkSeparator
! !
+
+
!Stream methodsFor:'accessing'!
contents
@@ -222,8 +224,7 @@
"set the signalAtEnd flag setting. If true, reading past the end
will raise an EndOfStream exception. If false, no exception is
raised and nil is returned from all reading messages.
- The default is to raise a signal, but return nil if
- not handled."
+ The default is to raise a signal, but return nil if not handled (st80 compatibility)."
signalAtEnd := aBoolean.
@@ -242,13 +243,13 @@
s := '12' readStream.
Stream endOfStreamSignal handle:[:ex |
- Transcript showCR:'end reached'.
- ex return
+ Transcript showCR:'end reached'.
+ ex return
] do:[
- Transcript showCR:s next.
- Transcript showCR:s next.
- Transcript showCR:s next.
- Transcript showCR:s next.
+ Transcript showCR:s next.
+ Transcript showCR:s next.
+ Transcript showCR:s next.
+ Transcript showCR:s next.
]
"
@@ -270,13 +271,13 @@
s := '12' readStream.
s signalAtEnd:false.
Stream endOfStreamSignal handle:[:ex |
- Transcript showCR:'end reached'.
- ex return
+ Transcript showCR:'end reached'.
+ ex return
] do:[
- Transcript showCR:s next.
- Transcript showCR:s next.
- Transcript showCR:s next.
- Transcript showCR:s next.
+ Transcript showCR:s next.
+ Transcript showCR:s next.
+ Transcript showCR:s next.
+ Transcript showCR:s next.
]
"
@@ -1059,8 +1060,8 @@
The msbFlag argument controls if the integer is to be read with
most-significant-byte-first (true) or least-first (false).
This interface is provided to allow talking to external programs,
- where its known that the byte order is some definite one.
- If you dont care (i.e. talk to other smalltalks) or you can control the
+ where it's known that the byte order is some definite one.
+ If you don't care (i.e. talk to other smalltalks) or you can control the
order, please use the corresponding xxxNet methods, which use a standard
network byte order."
@@ -3604,11 +3605,11 @@
!Stream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.225 2014-07-15 09:37:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.226 2014-07-24 11:08:57 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.225 2014-07-15 09:37:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.226 2014-07-24 11:08:57 cg Exp $'
! !