-# $Id: shell.tcl,v 1.3 1996-08-21 11:24:03 adam Exp $
+# $Id: shell.tcl,v 1.5 1998-05-20 12:27:45 adam Exp $
#
+
+if {[catch {ir-log-init all irtcl shell.log}]} {
+ set e [info sharedlibextension]
+ puts "Loading irtcl$e ..."
+ load ./irtcl$e irtcl
+ ir-log-init all irtcl shell.log
+}
+
source display.tcl
ir z
+
set pref(base) Default
set pref(format) usmarc
z callback {connect-response}
if [catch "z connect $name"] {
fail-response
- } else {
+ } elseif {$ok == 0} {
vwait ok
}
+ if {$ok == 1} {
+ puts "Connected and initialized."
+ } else {
+ puts "Failed."
+ }
return {}
}
global ok pref
set ok 1
- puts "Connected and initialized."
ir-set z.1 z
}
}
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
}
}
}
-proc show {from number} {
+proc show {{from 1} {number 1}} {
global ok pref
set ok 0
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