No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is
well known (true).
--- a/Stream.st Mon Jun 27 12:24:19 2005 +0200
+++ b/Stream.st Tue Jun 28 09:46:16 2005 +0200
@@ -944,7 +944,7 @@
"return a signed long (4 bytes) in network byte order from the stream.
The receiver must support reading of binary bytes."
- ^ self nextLongMSB:true "/ (Socket networkLongOrderIsMSB)
+ ^ self nextLongMSB:true
"Created: 10.1.1996 / 19:49:28 / cg"
!
@@ -1036,11 +1036,11 @@
nextShortNet
"return a signed short (2 bytes) in network byte order from the stream.
- The receiver must support reading of binary bytes."
-
- ^ self nextShortMSB:(Socket networkShortOrderIsMSB)
-
- "Modified: 10.1.1996 / 19:48:50 / cg"
+ The receiver must support reading of binary bytes.
+ Network byte order is MSB per definition"
+
+ ^ self nextShortMSB:true
+
"Created: 10.1.1996 / 19:49:41 / cg"
!
@@ -1164,7 +1164,7 @@
"return an unsigned long (4 bytes) in network byte order from the stream.
The receiver must support reading of binary bytes."
- ^ self nextUnsignedLongMSB:true "/ (Socket networkLongOrderIsMSB)
+ ^ self nextUnsignedLongMSB:true
"Created: 10.1.1996 / 19:49:02 / cg"
"Modified: 10.1.1996 / 19:49:50 / cg"
@@ -1197,9 +1197,10 @@
nextUnsignedShortNet
"return an unsigned short (2 bytes) in network byte order from the stream.
- The receiver must support reading of binary bytes."
-
- ^ self nextUnsignedShortMSB:(Socket networkShortOrderIsMSB)
+ The receiver must support reading of binary bytes.
+ Network byte order is MSB per definition"
+
+ ^ self nextUnsignedShortMSB:true
"Created: 10.1.1996 / 19:50:02 / cg"
! !
@@ -1501,7 +1502,7 @@
Returns the receiver on ok, nil on error.
The receiver must support writing of binary bytes."
- ^ self nextPutLong:aNumber MSB:true "/ (Socket networkLongOrderIsMSB).
+ ^ self nextPutLong:aNumber MSB:true
"Modified: 10.1.1996 / 19:47:10 / cg"
"Created: 10.1.1996 / 19:50:23 / cg"
@@ -1556,9 +1557,10 @@
nextPutShortNet:aNumber
"Write the argument, aNumber as a short (two bytes) in the network byte order.
Returns the receiver on ok, nil on error.
- The receiver must support writing of binary bytes."
-
- ^ self nextPutLong:aNumber MSB:(Socket networkShortOrderIsMSB).
+ The receiver must support writing of binary bytes.
+ Network byte order is MSB per definition"
+
+ ^ self nextPutLong:aNumber MSB:true.
"Created: 10.1.1996 / 19:50:33 / cg"
!
@@ -2823,7 +2825,7 @@
!Stream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.140 2005-04-04 10:15:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.141 2005-06-28 07:46:16 stefan Exp $'
! !
Stream initialize!