--- a/Stream.st Tue Feb 16 16:10:10 2016 +0100
+++ b/Stream.st Tue Feb 16 16:25:23 2016 +0100
@@ -275,8 +275,6 @@
"Modified: 10.1.1996 / 19:39:19 / cg"
! !
-
-
!Stream methodsFor:'accessing'!
contents
@@ -2093,70 +2091,6 @@
^ self nextPutInt64:aNumber MSB:true
!
-nextPutUInt64:aNumber MSB:msbFlag
- "Write the argument, aNumber as a hyper (8 bytes).
- If msbFlag is true, data is written most-significant byte first;
- otherwise least first.
- Returns the receiver on ok, nil on error.
- The receiver must support writing of binary bytes.
-
- This interface is provided to allow talking to external programs,
- where its 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."
-
- msbFlag ifTrue:[
- 1 to:8 do:[:i |
- self nextPutByte:(aNumber digitByteAt:8+1-i)
- ].
- ] ifFalse:[
- 1 to:8 do:[:i |
- self nextPutByte:(aNumber digitByteAt:i)
- ].
- ].
-
- "
- |s bytes|
-
- s := #[] writeStream.
- s nextPutUInt64:16r123456789abcdef0 MSB:false.
- bytes := s contents.
- s := bytes readStream.
- (s nextUInt64MSB:false) hexPrintString.
- "
- "
- |s bytes|
-
- s := #[] writeStream.
- s nextPutUInt64:16r123456789abcdef0 MSB:true.
- bytes := s contents.
- s := bytes readStream.
- (s nextUInt64MSB:true) hexPrintString.
- "
- "
- |s bytes|
-
- s := #[] writeStream.
- s nextPutUInt64:16r-8000000000000000 MSB:true.
- bytes := s contents.
- s := bytes readStream.
- (s nextUInt64MSB:true) hexPrintString.
- "
- "
- |s bytes|
-
- s := #[] writeStream.
- s nextPutUInt64:16r-8000000000000000 MSB:false.
- bytes := s contents.
- s := bytes readStream.
- (s nextUInt64MSB:false) hexPrintString.
- "
-
- "Modified: / 01-11-1997 / 18:30:52 / cg"
- "Modified: / 22-06-2006 / 11:31:37 / fm"
-!
-
nextPutUtf16:aCharacter
"append my UTF-16 representation to the argument, aStream.
UTF-16 can encode only characters with code points between 0 to 16r10FFFF.