repositories
/
clean-tests.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tsets
[clean-tests.git]
/
tcp
/
test.icl
diff --git
a/tcp/test.icl
b/tcp/test.icl
index
29a4b71
..
edfea7a
100644
(file)
--- a/
tcp/test.icl
+++ b/
tcp/test.icl
@@
-4,23
+4,22
@@
import iTasks
import StdMisc,StdDebug
import Data.Maybe
import StdMisc,StdDebug
import Data.Maybe
-Start w =
startEngine t
w
+Start w =
doTasks (onStartup t)
w
t = withShared () \channels->
t = withShared () \channels->
- forever (chooseAction [(Action "Set", ())] >>- \_->set () channels)
- ||- tcpconnect "localhost" 8123 channels
+ tcpconnect "localhost" 8123 channels
{ConnectionHandlers|
onConnect=onConnect,
onData=onData,
onShareChange=onShareChange,
onDisconnect=onDisconnect}
where
{ConnectionHandlers|
onConnect=onConnect,
onData=onData,
onShareChange=onShareChange,
onDisconnect=onDisconnect}
where
- onConnect acc ()
- | not (trace_tn
"onConnect"
) = undef
+ onConnect
cid
acc ()
+ | not (trace_tn
("onConnect: " +++ toString cid)
) = undef
= (Ok "", Nothing, [], False)
onData newdata acc ()
= (Ok "", Nothing, [], False)
onData newdata acc ()
- | not (trace_tn
"onData"
) = undef
+ | not (trace_tn
("onData: " +++ newdata)
) = undef
= (Ok "", Nothing, [], False)
onShareChange acc ()
= (Ok "", Nothing, [], False)
onShareChange acc ()