iterate.tcl

   1 # $Id: iterate.tcl,v 1.3 1995-06-26 10:26:16 adam Exp $
   2 #
   3 # Small test script which searches for science ...
   4 proc connect-response {} {
   5     z callback {init-response}
   6     ir-set z.1 z
   7     z init
   8 }
   9 proc init-response {} {
  10     global count
  11
  12     set count 0
  13     puts "In init-response"
  14     do-search
  15 }
  16
  17 proc do-search {} {
  18     global count
  19
  20     incr count
  21     puts $count
  22     z callback {search-response}
  23     z.1 search science
  24 }
  25
  26 proc search-response {} {
  27     set hits [z.1 resultCount]
  28     if {$hits <= 0} {
  29         do-search
  30     }
  31     z callback {present-response}
  32     if {$hits < 10} {
  33         z.1 present 1 $hits
  34     } else {
  35         z.1 present 1 10
  36     }
  37 }
  38
  39 proc present-response {} {
  40     do-search
  41 }
  42
  43 ir z
  44 z databaseNames dummy
  45 z callback {connect-response}
  46 z connect localhost:9999
  47