X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=shell.tcl;h=02f6b92f01ba0d220d2a7f9286fe304258df8cc4;hb=ca7edf0362cb7343a84ca124ece1896139533ab2;hp=30fe687ccbe44b246a0ef2e9246b2030fb6f603c;hpb=977f685c8392f79dc529a9b71c42c7dcf9f9e245;p=ir-tcl-moved-to-github.git
diff --git a/shell.tcl b/shell.tcl
index 30fe687..02f6b92 100644
--- a/shell.tcl
+++ b/shell.tcl
@@ -1,13 +1,17 @@
-# $Id: shell.tcl,v 1.4 1998-01-30 13:30:50 adam Exp $
+# $Id: shell.tcl,v 1.6 1999-03-22 06:51:34 adam Exp $
#
-source display.tcl
-if {[catch {ir z}]} {
+if {[catch {ir-log-init all irtcl shell.log}]} {
set e [info sharedlibextension]
puts "Loading irtcl$e ..."
load ./irtcl$e irtcl
- ir z
+ ir-log-init all irtcl shell.log
}
+
+source display.tcl
+
+ir z
+
set pref(base) Default
set pref(format) usmarc
@@ -17,6 +21,7 @@ proc help {} {
puts " base "
puts " format "
puts " find "
+ puts " sort "
puts " show "
puts ""
}
@@ -78,6 +83,13 @@ proc find-response {z} {
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
@@ -95,7 +107,8 @@ proc common-response {z from} {
}
DBOSD {
puts "DBOSD"
- for {set i $from} {$i < [$z nextResultSetPosition]} {incr i} {
+ set to [expr $from + [$z numberOfRecordsReturned]]
+ for {set i $from} {$i < $to} {incr i} {
if {[$z type $i] == ""} {
break
}
@@ -106,7 +119,7 @@ proc common-response {z from} {
}
}
-proc show {from number} {
+proc show {{from 1} {number 1}} {
global ok pref
set ok 0
@@ -115,6 +128,18 @@ proc show {from number} {
vwait ok
return {}
}
+
+proc explain {query} {
+ global ok pref
+
+ set ok 0
+ z.1 databaseNames IR-Explain-1
+ z.1 preferredRecordSyntax explain
+ z callback {find-response z.1}
+ z.1 search "@attrset exp1 @attr 1=1 @attr 2=3 @attr 3=3 @attr 4=3 $query"
+ vwait ok
+ return {}
+}
proc find {query} {
global ok pref
@@ -128,3 +153,13 @@ proc find {query} {
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 {}
+}
+