changed the parent class of ByteArray from Collection to Array.
enhanced socket writing a bit
This commit is contained in:
parent
cf8daaa8a3
commit
1c60ef5d0b
@ -225,17 +225,9 @@ class(#character,#final,#limited,#immutable) Symbol(String)
|
||||
|
||||
## -------------------------------------------------------------------------------
|
||||
|
||||
class(#byte) ByteArray(Collection)
|
||||
class(#byte) ByteArray(Array)
|
||||
{
|
||||
method at: anInteger
|
||||
{
|
||||
^self basicAt: anInteger.
|
||||
}
|
||||
|
||||
method at: anInteger put: aValue
|
||||
{
|
||||
^self basicAt: anInteger put: aValue.
|
||||
}
|
||||
## TODO: is it ok for ByteArray to inherit from Array?
|
||||
}
|
||||
|
||||
## -------------------------------------------------------------------------------
|
||||
|
@ -342,7 +342,7 @@ extend Socket
|
||||
|
||||
if (self.outputReady)
|
||||
{
|
||||
if ((self _writeBytes: bytes) >= 0) { ^self }.
|
||||
if ((self _writeBytes: bytes offset: offset length: length) >= 0) { ^self }.
|
||||
self.outputReady := false.
|
||||
}.
|
||||
|
||||
@ -517,7 +517,6 @@ error -> exception
|
||||
##sck writeBytes: #[ $h, $e, $l, $l, $o, $., $., $., C'\n' ].
|
||||
sck writeBytes: data offset: 0 length: n.
|
||||
}.
|
||||
|
||||
}
|
||||
while (true).
|
||||
].
|
||||
|
Loading…
Reference in New Issue
Block a user