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

a bit of experiments with semaphores for socket writing

Browse Source
This commit is contained in:
hyunghwan.chung
2018-04-19 15:34:25 +00:00
parent df5b9301dc
commit b4de6c7926
2 changed files with 23 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
moo/kernel/Socket.moo
View File

@ -331,7 +331,7 @@ class AsyncHandle(Object)
}.
}
method writeBytes: bytes offset: offset length: length semaphore: sem
method writeBytes: bytes offset: offset length: length signal: sem
{
| oldact n |
#######################################
@ -379,19 +379,19 @@ class AsyncHandle(Object)
self watchOutput.
}
method writeBytes: bytes semaphore: sem
method writeBytes: bytes signal: sem
{
^self writeBytes: bytes offset: 0 length: (bytes size) semaphore: sem.
^self writeBytes: bytes offset: 0 length: (bytes size) signal: sem.
}
method writeBytes: bytes offset: offset length: length
{
^self writeBytes: bytes offset: offset length: length semaphore: nil.
^self writeBytes: bytes offset: offset length: length signal: nil.
}
method writeBytes: bytes
{
^self writeBytes: bytes offset: 0 length: (bytes size) semaphore: nil.
^self writeBytes: bytes offset: 0 length: (bytes size) signal: nil.
}
}
@ -607,20 +607,29 @@ error -> exception
if (state)
{
'CONNECTED NOW.............' dump.
###sck inputTimeout: 10; outputTimeout: 10; connectTimeout: 10.
#############################################
write_more := [:sem |
sck writeBytes: %[ $h, $e, $l, $l, $o, $-, $m, $o, count + 65, $o, $o, C'\n' ] semaphore: x.
if (count > 26) { count := 0 }
else { count := count + 1 }.
if (count <= 26)
{
sck writeBytes: %[ $h, $e, $l, $l, $o, $-, $m, $o, count + 65, $o, $o, C'\n' ] signal: x.
count := count + 1.
}
else
{
System removeAsyncSemaphore: x.
}.
].
x := Semaphore new.
x signalAction: write_more.
System addAsyncSemaphore: x.
x signal.
sck outputAction: outact.
sck writeBytes: #[ $h, $e, $l, $l, $o, $-, $m, $o, $o, C'\n' ] semaphore: x.
##sck outputAction: outact.
##sck writeBytes: #[ $h, $e, $l, $l, $o, $-, $m, $o, $o, C'\n' ] signal: x.
###############################################
sck inputAction: inact.
sck watchInput.
@ -648,6 +657,8 @@ error -> exception
newsck writeBytes: #[ $W, $e, $l, $c, $o, $m, $e, $., C'\n' ].
].
[
| s s2 st sg ss |
[