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
Disable CCL2RPN by default
[ir-tcl-moved-to-github.git]
/
shell.tcl
diff --git
a/shell.tcl
b/shell.tcl
index
02f6b92
..
9b64f68
100644
(file)
--- a/
shell.tcl
+++ b/
shell.tcl
@@
-1,4
+1,4
@@
-# $Id: shell.tcl,v 1.6 1999-03-22 06:51:34 adam Exp $
+# $Id: shell.tcl,v 1.8 2002-03-21 11:11:53 adam Exp $
#
if {[catch {ir-log-init all irtcl shell.log}]} {
#
if {[catch {ir-log-init all irtcl shell.log}]} {
@@
-77,6
+77,10
@@
proc find-response {z} {
if {$sstatus} {
set h [$z resultCount]
puts "Search ok. $h hits"
if {$sstatus} {
set h [$z resultCount]
puts "Search ok. $h hits"
+ set terms [$z searchResult]
+ foreach tc $terms {
+ puts "[lindex $tc 0]: [lindex $tc 1]"
+ }
} else {
puts "Search failed"
}
} else {
puts "Search failed"
}