blob: aad5cd4c82d250c1d59fd49a5dc26226cc22420f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
load libtclivy.so.3.5
proc conCB { app str2 } {
puts "TCL:Application:$app $str2"
}
proc discCB { app str2 } {
puts "TCL:Application:$app $str2"
}
proc msgCB {str} {
puts "TCL:Message:$str"
}
Ivy::init TESTTCL "TESTTCL Ready" conCB discCB
Ivy::start 143.196.53.255:2011
Ivy::bind "(.*)" msgCB
Ivy::applist
Ivy::send test
Ivy::applist
vwait tcl_interactive
|
