projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Towards 1.4.
[ir-tcl-moved-to-github.git]
/
iterate.tcl
diff --git
a/iterate.tcl
b/iterate.tcl
index
91c9b8a
..
0a8c4c1
100644
(file)
--- a/
iterate.tcl
+++ b/
iterate.tcl
@@
-1,4
+1,4
@@
-# $Id: iterate.tcl,v 1.4 1995-08-04 11:32:40 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 {} {
#
# Small test script which searches for science ...
proc fail-back {} {
@@
-7,7
+7,6
@@
proc fail-back {} {
proc connect-response {} {
z callback {init-response}
proc connect-response {} {
z callback {init-response}
- ir-set z.1 z
z init
}
proc init-response {} {
z init
}
proc init-response {} {
@@
-23,20
+22,24
@@
proc do-search {} {
incr count
puts $count
incr count
puts $count
+ catch {rename z.1 {}}
+ ir-set z.1 z
z callback {search-response}
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
}
proc search-response {} {
set hits [z.1 resultCount]
if {$hits <= 0} {
do-search
+ return
}
z callback {present-response}
}
z callback {present-response}
- if {$hits < 10} {
+ if {$hits < 20} {
z.1 present 1 $hits
} else {
z.1 present 1 $hits
} else {
- z.1 present 1 10
+ z.1 present 1 20
}
}
}
}
@@
-46,7
+49,7
@@
proc present-response {} {
ir z
z failback {fail-back}
ir z
z failback {fail-back}
-z databaseNames dummy
+z databaseNames Default
z callback {connect-response}
z callback {connect-response}
-z connect localhost:210
-
+z connect localhost:9999
+vwait forever