hg/stx-libbasic: comparison Stream.st

equal deleted inserted replaced

-:635197c5e78b
+:db92dc60b19d
 "read a 4-byte IEEE single precision float number"
 ^ ShortFloat readBinaryIEEESingleFrom:self MSB:msbFirst
 !
+nextInt16LSB
+"return a signed short (2 bytes) in LSB-first order from the stream.
+The receiver must support reading of binary bytes."
+^ self nextInt16MSB:false
+!
+nextInt16MSB
+"return a signed short (2 bytes) in MSB-first order from the stream.
+The receiver must support reading of binary bytes."
+^ self nextInt16MSB:true
+!
 nextInt16MSB:msbFlag
 "return a signed short (2 bytes) from the stream.
 The receiver must support reading of binary bytes.
 The msbFlag argument controls if the integer is to be read with
 !
 nextInt16Net
 "return a signed short (2 bytes) in network byte order from the stream.
 The receiver must support reading of binary bytes.
-Network byte order is MSB per definition"
+Network byte order is MSB-first per definition"
 ^ self nextInt16MSB:true
 "Created: 10.1.1996 / 19:49:41 / cg"
 !
 ((ReadStream on:#[16rFF 16r20 16r30]) nextInt24MSB:false) hexPrintString
 ((ReadStream on:#[16rFF 16r20 16r30]) nextInt24MSB:true) hexPrintString
 ((ReadStream on:#[16r10 16r20 16rFF]) nextInt24MSB:false) hexPrintString
 "
+!
+nextInt32LSB
+"return a signed long (4 bytes) in LSB-first order from the stream.
+The receiver must support reading of binary bytes."
+^ self nextInt32MSB:false
+!
+nextInt32MSB
+"return a signed long (4 bytes) in MSB-first order from the stream.
+The receiver must support reading of binary bytes."
+^ self nextInt32MSB:true
 !
 nextInt32MSB:msbFlag
 "return a signed long (4 bytes) from the stream.
 The receiver must support reading of binary bytes.
 "Modified: / 14.1.1998 / 15:40:41 / cg"
 !
 nextInt32Net
 "return a signed long (4 bytes) in network byte order from the stream.
+The receiver must support reading of binary bytes.
+Network byte order is MSB-first per definition"
+^ self nextInt32MSB:true
+"Created: 10.1.1996 / 19:49:28 / cg"
+!
+nextInt64LSB
+"return a signed longlong (also called hyper) (8 bytes) in LSB-first order from the stream.
 The receiver must support reading of binary bytes."
-^ self nextInt32MSB:true
+^ self nextInt64MSB:false
+!
-"Created: 10.1.1996 / 19:49:28 / cg"
+nextInt64MSB
+"return a signed longlong (also called hyper) (8 bytes) in MSB-first order from the stream.
+The receiver must support reading of binary bytes."
+^ self nextInt64MSB:true
 !
 nextInt64MSB:msbFlag
-"return a signed hyper (8 bytes) from the stream.
+"return a signed longlong (also called hyper) (8 bytes) from the stream.
 The receiver must support reading of binary bytes.
 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,
 "Modified: / 14.1.1998 / 15:40:41 / cg"
 !
 nextInt64Net
-"return a signed longlong (8 bytes) in network byte order from the stream.
+"return a signed longlong (also called hyper) (8 bytes) in network byte order from the stream.
-The receiver must support reading of binary bytes."
+The receiver must support reading of binary bytes.
+Network byte order is MSB-first per definition"
 ^ self nextInt64MSB:true
 !
 nextNumber:numBytes
 "
 "Modified: / 14.1.1998 / 15:40:41 / cg"
 !
+nextUnsignedInt16LSB
+"return an unsigned short (2 bytes) in LSB-first order from the stream.
+The receiver must support reading of binary bytes."
+^ self nextUnsignedInt16MSB:false
+!
+nextUnsignedInt16MSB
+"return an unsigned short (2 bytes) in MSB-first order from the stream.
+The receiver must support reading of binary bytes."
+^ self nextUnsignedInt16MSB:true
+!
 nextUnsignedInt16MSB:msbFlag
 "return an unsigned short (2 bytes) from the stream.
 The receiver must support reading of binary bytes.
 The msbFlag argument controls if the integer is to be read with
 !
 nextUnsignedInt16Net
 "return an unsigned short (2 bytes) in network byte order from the stream.
 The receiver must support reading of binary bytes.
-Network byte order is MSB per definition"
+Network byte order is MSB-first per definition"
 ^ self nextUnsignedInt16MSB:true
 "Created: 10.1.1996 / 19:50:02 / cg"
 !
 ((ReadStream on:#[16r10 16r20 16r30]) nextUnsignedInt24MSB:true) hexPrintString
 ((ReadStream on:#[16r10 16r20 16r30]) nextUnsignedInt24MSB:false) hexPrintString
 "
 !
+nextUnsignedInt32LSB
+"return an unsigned long (4 bytes) in LSB-first order from the stream.
+The receiver must support reading of binary bytes."
+^ self nextUnsignedInt32MSB:false
+!
+nextUnsignedInt32MSB
+"return an unsigned long (4 bytes) in MSB-first order from the stream.
+The receiver must support reading of binary bytes."
+^ self nextUnsignedInt32MSB:true
+!
 nextUnsignedInt32MSB:msbFlag
 "return an unsigned long (4 bytes) from the stream.
 The receiver must support reading of binary bytes.
 The msbFlag argument controls if the integer is to be read with
 "Modified: 11.7.1996 / 10:07:13 / cg"
 !
 nextUnsignedInt32Net
 "return an unsigned long (4 bytes) in network byte order from the stream.
-The receiver must support reading of binary bytes."
+The receiver must support reading of binary bytes.
+Network byte order is MSB-first per definition"
 ^ self nextUnsignedInt32MSB:true
 "Created: 10.1.1996 / 19:49:02 / cg"
 "Modified: 10.1.1996 / 19:49:50 / cg"
 !
+nextUnsignedInt64LSB
+"return an unsigned longlong (also called hyper) (8 bytes) in LSB-first order from the stream.
+The receiver must support reading of binary bytes."
+^ self nextUnsignedInt64MSB:false
+!
+nextUnsignedInt64MSB
+"return an unsigned longlong (also called hyper) (8 bytes) in MSB-first order from the stream.
+The receiver must support reading of binary bytes."
+^ self nextUnsignedInt64MSB:true
+!
 nextUnsignedInt64MSB:msbFlag
-"return an unsigned hyper (8 bytes) from the stream.
+"return an unsigned longlong (also called hyper) (8 bytes) from the stream.
 The receiver must support reading of binary bytes.
 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,
 "Modified: / 14.1.1998 / 15:40:41 / cg"
 !
 nextUnsignedInt64Net
-"return an unsigned longlong (8 bytes) in network byte order from the stream.
+"return an unsigned longlong (also called hyper) (8 bytes) in network byte order from the stream.
-The receiver must support reading of binary bytes."
+The receiver must support reading of binary bytes.
+Network byte order is MSB-first per definition"
 ^ self nextUnsignedInt64MSB:true
 ! !
 !Stream methodsFor:'non homogenous reading - obsolete'!
 "
 "Modified: / 22-06-2006 / 11:30:26 / fm"
 !
+nextPutInt16LSB:aNumber
+"Write the argument, aNumber as a short (two bytes) in LSB-first order.
+Returns the receiver on ok, nil on error.
+The receiver must support writing of binary bytes."
+^ self nextPutInt16:aNumber MSB:false.
+!
+nextPutInt16MSB:aNumber
+"Write the argument, aNumber as a short (two bytes) in MSB-first order.
+Returns the receiver on ok, nil on error.
+The receiver must support writing of binary bytes."
+^ self nextPutInt16:aNumber MSB:true.
+!
 nextPutInt16Net: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.
-Network byte order is MSB per definition"
+Network byte order is MSB-first per definition"
 ^ self nextPutInt16:aNumber MSB:true.
 "Created: 10.1.1996 / 19:50:33 / cg"
 !
 "Modified: / 01-11-1997 / 18:30:52 / cg"
 "Modified: / 22-06-2006 / 11:31:43 / fm"
 !
+nextPutInt32LSB:aNumber
+"Write the argument, aNumber as a long (4 bytes) in LSB-first order.
+Returns the receiver on ok, nil on error.
+The receiver must support writing of binary bytes."
+^ self nextPutInt32:aNumber MSB:false.
+!
+nextPutInt32MSB:aNumber
+"Write the argument, aNumber as a long (4 bytes) in MSB-first order.
+Returns the receiver on ok, nil on error.
+The receiver must support writing of binary bytes."
+^ self nextPutInt32:aNumber MSB:true.
+!
 nextPutInt32Net:aNumber
 "Write the argument, aNumber as a long (four bytes) in the network byte order.
 Returns the receiver on ok, nil on error.
-The receiver must support writing of binary bytes."
+The receiver must support writing of binary bytes.
+Network byte order is MSB-first per definition"
 ^ self nextPutInt32:aNumber MSB:true
 !
 nextPutInt64:aNumber MSB:msbFlag
 "Modified: / 01-11-1997 / 18:30:52 / cg"
 "Modified: / 22-06-2006 / 11:31:37 / fm"
 !
+nextPutInt64LSB:aNumber
+"Write the argument, aNumber as a longlong (8 bytes) in LSB-first order.
+Returns the receiver on ok, nil on error.
+The receiver must support writing of binary bytes."
+^ self nextPutInt64:aNumber MSB:false.
+!
+nextPutInt64MSB:aNumber
+"Write the argument, aNumber as a longlong (8 bytes) in MSB-first order.
+Returns the receiver on ok, nil on error.
+The receiver must support writing of binary bytes."
+^ self nextPutInt64:aNumber MSB:true.
+!
 nextPutInt64Net:aNumber
 "Write the argument, aNumber as a longlong (8 bytes) in the network byte order.
 Returns the receiver on ok, nil on error.
-The receiver must support writing of binary bytes."
+The receiver must support writing of binary bytes.
+Network byte order is MSB-first per definition"
 ^ self nextPutInt64:aNumber MSB:true
 !
 nextPutUtf16:aCharacter

changeset 19604	db92dc60b19d
parent 19571	1bf42824967f
child 19607	34208e6488b8