hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

touched up Socket.moo

Browse Source
This commit is contained in:
hyunghwan.chung 2018-01-28 15:47:56 +00:00
parent 7f7f9e2977
commit cf8daaa8a3
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
moo/kernel/Socket.moo
View File

@ -336,7 +336,7 @@ extend Socket
] ]
} }
method writeBytes: bytes method writeBytes: bytes offset: offset length: length
{ {
| old_output_action | | old_output_action |
@ -348,7 +348,7 @@ extend Socket
old_output_action := self.outputAction. old_output_action := self.outputAction.
self.outputAction := [ :sck :state | self.outputAction := [ :sck :state |
if ((self _writeBytes: bytes) <= -1) if ((self _writeBytes: bytes offset: offset length: length) <= -1)
{ {
## EAGAIN ## EAGAIN
self.outputReady := false. self.outputReady := false.
@ -367,6 +367,11 @@ extend Socket
self watchOutput. self watchOutput.
} }
method writeBytes: bytes
{
^self writeBytes: bytes offset: 0 length: (bytes size)
}
## TODO: how to specify a timeout for an action? using another semaphore?? ## TODO: how to specify a timeout for an action? using another semaphore??
method watchInput method watchInput
@ -508,10 +513,11 @@ error -> exception
{ {
(n asString & ' bytes read') dump. (n asString & ' bytes read') dump.
data dump. data dump.
}.
##sck writeBytes: #[ $h, $e, $l, $l, $o, $., $., $., C'\n' ]. ##sck writeBytes: #[ $h, $e, $l, $l, $o, $., $., $., C'\n' ].
sck writeBytes: data. sck writeBytes: data offset: 0 length: n.
}.
} }
while (true). while (true).
]. ].