1 # $Id: shell.tcl,v 1.2 1995-08-28 12:21:22 adam Exp $
9 puts " target <host> <database>"
11 puts " show <offset> <number>"
15 proc target {name database} {
17 z failback {puts "Connection failed"}
18 z callback {connect-response}
19 z databaseNames $database
24 proc connect-response {} {
25 z callback {init-response}
29 proc init-response {} {
30 puts "Connect and initialized."
33 proc find-response {z} {
34 set sstatus [$z searchStatus]
36 set h [$z resultCount]
37 puts "Search ok. $h hits"
44 proc common-response {z from} {
45 set status [lindex [$z responseStatus] 0]
49 puts -nonewline [lindex [$z responseStatus] 1]
51 puts -nonewline [lindex [$z responseStatus] 2]
53 puts -nonewline [lindex [$z responseStatus] 3]
58 for {set i $from} {$i < [$z nextResultSetPosition]} {incr i} {
59 if {[$z type $i] == ""} {
69 proc show {from number} {
70 z callback "common-response z.1 $from"
71 z.1 present $from $number
76 z failback {puts "Connection closed"}
77 z callback {find-response z.1}