1 # $Id: iterate.tcl,v 1.6 1997-04-13 19:00:43 adam Exp $
3 # Small test script which searches for science ...
8 proc connect-response {} {
9 z callback {init-response}
12 proc init-response {} {
16 puts "In init-response"
27 z callback {search-response}
28 z.1 preferredRecordSyntax sutrs
32 proc search-response {} {
33 set hits [z.1 resultCount]
38 z callback {present-response}
46 proc present-response {} {
51 z failback {fail-back}
52 z databaseNames Default
53 z callback {connect-response}
54 z connect localhost:9999