1 # $Id: shell.tcl,v 1.3 1996-08-21 11:24:03 adam Exp $
7 set pref(format) usmarc
13 puts " format <format>"
15 puts " show <offset> <number>"
19 proc fail-response {} {
28 z failback {fail-response}
29 z callback {connect-response}
30 if [catch "z connect $name"] {
43 proc format {format} {
45 set pref(format) $format
48 proc connect-response {} {
49 z callback {init-response}
53 proc init-response {} {
57 puts "Connected and initialized."
61 proc find-response {z} {
62 set sstatus [$z searchStatus]
64 set h [$z resultCount]
65 puts "Search ok. $h hits"
72 proc common-response {z from} {
76 set status [$z responseStatus]
77 switch [lindex $status 0] {
80 puts -nonewline [lindex $status 1]
82 puts -nonewline [lindex $status 2]
84 puts -nonewline [lindex $status 3]
89 for {set i $from} {$i < [$z nextResultSetPosition]} {incr i} {
90 if {[$z type $i] == ""} {
100 proc show {from number} {
104 z callback "common-response z.1 $from"
105 z.1 present $from $number
114 z.1 databaseNames $pref(base)
115 z.1 preferredRecordSyntax $pref(format)
116 z callback {find-response z.1}