tcp/test.icl

   1 module test
   2
   3 import iTasks
   4 import StdMisc,StdDebug
   5 import Data.Maybe
   6
   7 Start w = doTasks (onStartup t) w
   8
   9 t = withShared () \channels->
  10         tcpconnect "localhost" 8123 channels
  11                 {ConnectionHandlers|
  12                         onConnect=onConnect,
  13                         onData=onData,
  14                         onShareChange=onShareChange,
  15                         onDisconnect=onDisconnect}
  16         where
  17                 onConnect cid acc ()
  18                         | not (trace_tn ("onConnect: " +++ toString cid)) = undef
  19                         = (Ok "", Nothing, [], False)
  20
  21                 onData newdata acc ()
  22                         | not (trace_tn ("onData: " +++ newdata)) = undef
  23                         = (Ok "", Nothing, [], False)
  24
  25                 onShareChange acc ()
  26                         | not (trace_tn "onShareChange") = undef
  27                         = (Ok "", Nothing, [], False)
  28
  29                 onDisconnect _ ()
  30                         | not (trace_tn "onDisconnect") = undef
  31                         = (Ok "", Nothing)