X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=shell.tcl;h=9b64f68ea0c9003fd85f69b2defe86acfe171ffd;hb=d026c3e06f6e19e5ed4174ab1a504a4b5af79183;hp=02f6b92f01ba0d220d2a7f9286fe304258df8cc4;hpb=1ab5c45763803335f22a1f6a37edf762b2270c8b;p=ir-tcl-moved-to-github.git

diff --git a/shell.tcl b/shell.tcl
index 02f6b92..9b64f68 100644
--- 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}]} {
@@ -77,6 +77,10 @@ proc find-response {z} {
     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"
     }