3 proc fail-response {} {
7 proc present-response-a {} {
8 puts "present-response-a"
15 proc present-response-b {} {
16 puts "present-response-a"
19 z callback {connect-response}
20 z connect localhost:9999
23 proc search-response {} {
24 puts "search-response"
25 set hits [z.1 resultCount]
27 z callback {present-response-a}
37 proc init-response {} {
40 z callback {search-response}
44 proc connect-response {} {
49 puts "connect-response"
50 z callback {init-response}
58 z failback {fail-response}
59 z callback {connect-response}
60 z connect localhost:9999