1 # $Id: shell.tcl,v 1.5 1998-05-20 12:27:45 adam Exp $
4 if {[catch {ir-log-init all irtcl shell.log}]} {
5 set e [info sharedlibextension]
6 puts "Loading irtcl$e ..."
8 ir-log-init all irtcl shell.log
15 set pref(base) Default
16 set pref(format) usmarc
22 puts " format <format>"
24 puts " show <offset> <number>"
28 proc fail-response {} {
37 z failback {fail-response}
38 z callback {connect-response}
39 if [catch "z connect $name"] {
45 puts "Connected and initialized."
57 proc format {format} {
59 set pref(format) $format
62 proc connect-response {} {
63 z callback {init-response}
67 proc init-response {} {
74 proc find-response {z} {
75 set sstatus [$z searchStatus]
77 set h [$z resultCount]
78 puts "Search ok. $h hits"
85 proc common-response {z from} {
89 set status [$z responseStatus]
90 switch [lindex $status 0] {
93 puts -nonewline [lindex $status 1]
95 puts -nonewline [lindex $status 2]
97 puts -nonewline [lindex $status 3]
102 set to [expr $from + [$z numberOfRecordsReturned]]
103 for {set i $from} {$i < $to} {incr i} {
104 if {[$z type $i] == ""} {
114 proc show {{from 1} {number 1}} {
118 z callback "common-response z.1 $from"
119 z.1 present $from $number
124 proc explain {query} {
128 z.1 databaseNames IR-Explain-1
129 z.1 preferredRecordSyntax explain
130 z callback {find-response z.1}
131 z.1 search "@attrset exp1 @attr 1=1 @attr 2=3 @attr 3=3 @attr 4=3 $query"
140 z.1 databaseNames $pref(base)
141 z.1 preferredRecordSyntax $pref(format)
142 z callback {find-response z.1}