1 # $Id: shell.tcl,v 1.4 1998-01-30 13:30:50 adam Exp $
6 set e [info sharedlibextension]
7 puts "Loading irtcl$e ..."
11 set pref(base) Default
12 set pref(format) usmarc
18 puts " format <format>"
20 puts " show <offset> <number>"
24 proc fail-response {} {
33 z failback {fail-response}
34 z callback {connect-response}
35 if [catch "z connect $name"] {
41 puts "Connected and initialized."
53 proc format {format} {
55 set pref(format) $format
58 proc connect-response {} {
59 z callback {init-response}
63 proc init-response {} {
70 proc find-response {z} {
71 set sstatus [$z searchStatus]
73 set h [$z resultCount]
74 puts "Search ok. $h hits"
81 proc common-response {z from} {
85 set status [$z responseStatus]
86 switch [lindex $status 0] {
89 puts -nonewline [lindex $status 1]
91 puts -nonewline [lindex $status 2]
93 puts -nonewline [lindex $status 3]
98 for {set i $from} {$i < [$z nextResultSetPosition]} {incr i} {
99 if {[$z type $i] == ""} {
109 proc show {from number} {
113 z callback "common-response z.1 $from"
114 z.1 present $from $number
123 z.1 databaseNames $pref(base)
124 z.1 preferredRecordSyntax $pref(format)
125 z callback {find-response z.1}