-# $Id: shell.tcl,v 1.5 1998-05-20 12:27:45 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}]} {
puts " base <base>"
puts " format <format>"
puts " find <query>"
+ puts " sort <attr> <flag>"
puts " show <offset> <number>"
puts ""
}
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"
}
common-response $z 1
}
+proc sort-response {z} {
+ global ok
+ set sstatus [$z sortStatus]
+ puts "Sort Status: $sstatus"
+ set ok 1
+}
+
proc common-response {z from} {
global ok pref
return {}
}
+proc sort {query flags} {
+ global ok pref
+
+ set ok 0
+ z callback {sort-response z.1}
+ z.1 sort "$query $flags"
+ vwait ok
+ return {}
+}
+