iterate.tcl

   1 # $Id: iterate.tcl,v 1.1 1995-03-20 08:53:28 adam Exp $
   2 #
   3 # Small test script which searches for adam ...
   4 proc init-response {} {
   5     global count
   6
   7     set count 0
   8     puts "In init-response"
   9     z callback {search-response}
  10     z.1 search adam
  11 }
  12
  13 proc search-response {} {
  14     global count
  15
  16     incr count
  17     puts "In search-response $count"
  18     z callback {search-response}
  19     z.1 search adam
  20 }
  21
  22 ir z
  23 ir-set z.1
  24 z databaseNames DEM
  25 z connect localhost:9999
  26 z callback {init-response}
  27 z init
  28