Stream.st
changeset 8894 63cd83aa44e8
parent 8815 88c21d3f2c9c
child 8970 9f62098c6416
equal deleted inserted replaced
8893:99996b25482e 8894:63cd83aa44e8
   942 
   942 
   943 nextLongNet
   943 nextLongNet
   944     "return a signed long (4 bytes) in network byte order from the stream.
   944     "return a signed long (4 bytes) in network byte order from the stream.
   945      The receiver must support reading of binary bytes."
   945      The receiver must support reading of binary bytes."
   946 
   946 
   947     ^ self nextLongMSB:true "/ (Socket networkLongOrderIsMSB)
   947     ^ self nextLongMSB:true
   948 
   948 
   949     "Created: 10.1.1996 / 19:49:28 / cg"
   949     "Created: 10.1.1996 / 19:49:28 / cg"
   950 !
   950 !
   951 
   951 
   952 nextNumber:n 
   952 nextNumber:n 
  1034     "Modified: 11.7.1996 / 10:07:04 / cg"
  1034     "Modified: 11.7.1996 / 10:07:04 / cg"
  1035 !
  1035 !
  1036 
  1036 
  1037 nextShortNet
  1037 nextShortNet
  1038     "return a signed short (2 bytes) in network byte order from the stream.
  1038     "return a signed short (2 bytes) in network byte order from the stream.
  1039      The receiver must support reading of binary bytes."
  1039      The receiver must support reading of binary bytes.
  1040 
  1040      Network byte order is MSB per definition"
  1041     ^ self nextShortMSB:(Socket networkShortOrderIsMSB)
  1041 
  1042 
  1042     ^ self nextShortMSB:true
  1043     "Modified: 10.1.1996 / 19:48:50 / cg"
  1043 
  1044     "Created: 10.1.1996 / 19:49:41 / cg"
  1044     "Created: 10.1.1996 / 19:49:41 / cg"
  1045 !
  1045 !
  1046 
  1046 
  1047 nextSignedByte
  1047 nextSignedByte
  1048     "return a signed byte (-128..127) from the stream.
  1048     "return a signed byte (-128..127) from the stream.
  1162 
  1162 
  1163 nextUnsignedLongNet
  1163 nextUnsignedLongNet
  1164     "return an unsigned long (4 bytes) in network byte order from the stream.
  1164     "return an unsigned long (4 bytes) in network byte order from the stream.
  1165      The receiver must support reading of binary bytes."
  1165      The receiver must support reading of binary bytes."
  1166 
  1166 
  1167     ^ self nextUnsignedLongMSB:true "/ (Socket networkLongOrderIsMSB)
  1167     ^ self nextUnsignedLongMSB:true
  1168 
  1168 
  1169     "Created: 10.1.1996 / 19:49:02 / cg"
  1169     "Created: 10.1.1996 / 19:49:02 / cg"
  1170     "Modified: 10.1.1996 / 19:49:50 / cg"
  1170     "Modified: 10.1.1996 / 19:49:50 / cg"
  1171 !
  1171 !
  1172 
  1172 
  1195     "Modified: 11.7.1996 / 10:07:20 / cg"
  1195     "Modified: 11.7.1996 / 10:07:20 / cg"
  1196 !
  1196 !
  1197 
  1197 
  1198 nextUnsignedShortNet
  1198 nextUnsignedShortNet
  1199     "return an unsigned short (2 bytes) in network byte order from the stream.
  1199     "return an unsigned short (2 bytes) in network byte order from the stream.
  1200      The receiver must support reading of binary bytes."
  1200      The receiver must support reading of binary bytes.
  1201 
  1201      Network byte order is MSB per definition"
  1202     ^ self nextUnsignedShortMSB:(Socket networkShortOrderIsMSB)
  1202 
       
  1203     ^ self nextUnsignedShortMSB:true
  1203 
  1204 
  1204     "Created: 10.1.1996 / 19:50:02 / cg"
  1205     "Created: 10.1.1996 / 19:50:02 / cg"
  1205 ! !
  1206 ! !
  1206 
  1207 
  1207 !Stream methodsFor:'non homogenous writing'!
  1208 !Stream methodsFor:'non homogenous writing'!
  1499 nextPutLongNet:aNumber
  1500 nextPutLongNet:aNumber
  1500     "Write the argument, aNumber as a long (four bytes) in the network byte order.
  1501     "Write the argument, aNumber as a long (four bytes) in the network byte order.
  1501      Returns the receiver on ok, nil on error.
  1502      Returns the receiver on ok, nil on error.
  1502      The receiver must support writing of binary bytes."
  1503      The receiver must support writing of binary bytes."
  1503 
  1504 
  1504     ^ self nextPutLong:aNumber MSB:true "/ (Socket networkLongOrderIsMSB).
  1505     ^ self nextPutLong:aNumber MSB:true
  1505 
  1506 
  1506     "Modified: 10.1.1996 / 19:47:10 / cg"
  1507     "Modified: 10.1.1996 / 19:47:10 / cg"
  1507     "Created: 10.1.1996 / 19:50:23 / cg"
  1508     "Created: 10.1.1996 / 19:50:23 / cg"
  1508 !
  1509 !
  1509 
  1510 
  1554 !
  1555 !
  1555 
  1556 
  1556 nextPutShortNet:aNumber
  1557 nextPutShortNet:aNumber
  1557     "Write the argument, aNumber as a short (two bytes) in the network byte order.
  1558     "Write the argument, aNumber as a short (two bytes) in the network byte order.
  1558      Returns the receiver on ok, nil on error.
  1559      Returns the receiver on ok, nil on error.
  1559      The receiver must support writing of binary bytes."
  1560      The receiver must support writing of binary bytes.
  1560 
  1561      Network byte order is MSB per definition"
  1561     ^ self nextPutLong:aNumber MSB:(Socket networkShortOrderIsMSB).
  1562 
       
  1563     ^ self nextPutLong:aNumber MSB:true.
  1562 
  1564 
  1563     "Created: 10.1.1996 / 19:50:33 / cg"
  1565     "Created: 10.1.1996 / 19:50:33 / cg"
  1564 !
  1566 !
  1565 
  1567 
  1566 nextPutWord:aNumber
  1568 nextPutWord:aNumber
  2821 ! !
  2823 ! !
  2822 
  2824 
  2823 !Stream class methodsFor:'documentation'!
  2825 !Stream class methodsFor:'documentation'!
  2824 
  2826 
  2825 version
  2827 version
  2826     ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.140 2005-04-04 10:15:28 cg Exp $'
  2828     ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.141 2005-06-28 07:46:16 stefan Exp $'
  2827 ! !
  2829 ! !
  2828 
  2830 
  2829 Stream initialize!
  2831 Stream initialize!