projects
/
ir-tcl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3d56e43
)
Connect response bug fix.
author
Adam Dickmeiss
<adam@indexdata.dk>
Mon, 26 Jun 1995 10:26:16 +0000
(10:26 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Mon, 26 Jun 1995 10:26:16 +0000
(10:26 +0000)
iterate.tcl
patch
|
blob
|
history
diff --git
a/iterate.tcl
b/iterate.tcl
index
65c506e
..
4841003
100644
(file)
--- a/
iterate.tcl
+++ b/
iterate.tcl
@@
-1,6
+1,11
@@
-# $Id: iterate.tcl,v 1.2 1995-05-26 11:44:10 adam Exp $
+# $Id: iterate.tcl,v 1.3 1995-06-26 10:26:16 adam Exp $
#
# Small test script which searches for science ...
#
# Small test script which searches for science ...
+proc connect-response {} {
+ z callback {init-response}
+ ir-set z.1 z
+ z init
+}
proc init-response {} {
global count
proc init-response {} {
global count
@@
-24,7
+29,11
@@
proc search-response {} {
do-search
}
z callback {present-response}
do-search
}
z callback {present-response}
- z.1 present 1 $hits
+ if {$hits < 10} {
+ z.1 present 1 $hits
+ } else {
+ z.1 present 1 10
+ }
}
proc present-response {} {
}
proc present-response {} {
@@
-32,9
+41,7
@@
proc present-response {} {
}
ir z
}
ir z
-z databaseNames DEM
+z databaseNames dummy
+z callback {connect-response}
z connect localhost:9999
z connect localhost:9999
-z callback {init-response}
-ir-set z.1 z
-z init