X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=iterate.tcl;h=0a8c4c12bdb04bd98b96da7dd1bc7099a522ae4b;hb=d026c3e06f6e19e5ed4174ab1a504a4b5af79183;hp=65c506ee48cc14c49c03124692ffb9ec28a97bab;hpb=38d3a59423e91dc9c0985c678afdfba1837cdb5f;p=ir-tcl-moved-to-github.git

diff --git a/iterate.tcl b/iterate.tcl
index 65c506e..0a8c4c1 100644
--- a/iterate.tcl
+++ b/iterate.tcl
@@ -1,6 +1,14 @@
-# $Id: iterate.tcl,v 1.2 1995-05-26 11:44:10 adam Exp $
+# $Id: iterate.tcl,v 1.6 1997-04-13 19:00:43 adam Exp $
 #
 # Small test script which searches for science ...
+proc fail-back {} {
+    puts "Fail"
+}
+
+proc connect-response {} {
+    z callback {init-response}
+    z init
+}
 proc init-response {} {
     global count
 
@@ -14,17 +22,25 @@ proc do-search {} {
 
     incr count
     puts $count
+    catch {rename z.1 {}}
+    ir-set z.1 z
     z callback {search-response}
-    z.1 search science
+    z.1 preferredRecordSyntax sutrs
+    z.1 search the
 }
 
 proc search-response {} {
     set hits [z.1 resultCount]
     if {$hits <= 0} {
         do-search
+        return
     }
     z callback {present-response}
-    z.1 present 1 $hits
+    if {$hits < 20} {
+        z.1 present 1 $hits
+    } else {
+        z.1 present 1 20
+    }
 }
 
 proc present-response {} {
@@ -32,9 +48,8 @@ proc present-response {} {
 }
 
 ir z
-z databaseNames DEM
+z failback {fail-back}
+z databaseNames Default
+z callback {connect-response}
 z connect localhost:9999
-z callback {init-response}
-ir-set z.1 z
-z init
-
+vwait forever