Stream.st
changeset 19234 95ad66b2a610
parent 19221 d7e9529963a4
child 19235 65951fa81f9a
--- 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.