47 lines
963 B
Smalltalk
47 lines
963 B
Smalltalk
"Copyright Header"
|
|
|
|
PackageLoader fileInPackage: 'Sockets'.
|
|
|
|
Integer extend [
|
|
swap16 [
|
|
| tmp |
|
|
tmp := self bitAnd: 16rFFFF.
|
|
^ (tmp bitShift: -8) bitOr: ((tmp bitAnd: 16rFF) bitShift: 8)
|
|
]
|
|
]
|
|
|
|
|
|
"Code from FileDescriptor, GST license"
|
|
Sockets.Socket extend [
|
|
nextUshort [
|
|
"Return the next 2 bytes in the byte array, interpreted as a 16 bit unsigned int"
|
|
|
|
<category: 'binary I/O'>
|
|
^self nextBytes: 2 signed: false
|
|
]
|
|
|
|
nextBytes: n signed: signed [
|
|
"Private - Get an integer out of the next anInteger bytes in the stream"
|
|
|
|
<category: 'private'>
|
|
| int msb |
|
|
int := 0.
|
|
0 to: n * 8 - 16
|
|
by: 8
|
|
do: [:i | int := int + (self nextByte bitShift: i)].
|
|
msb := self nextByte.
|
|
(signed and: [msb > 127]) ifTrue: [msb := msb - 256].
|
|
^int + (msb bitShift: n * 8 - 8)
|
|
]
|
|
|
|
nextByte [
|
|
"Return the next byte in the file, or nil at eof"
|
|
|
|
<category: 'basic'>
|
|
| a |
|
|
a := self next.
|
|
^a isNil ifTrue: [a] ifFalse: [a asInteger]
|
|
]
|
|
|
|
]
|