-->
<article>
<title>IrTcl User's Guide and Reference
<author>Index Data, <tt/info@index.ping.dk/
-->
<article>
<title>IrTcl User's Guide and Reference
<author>Index Data, <tt/info@index.ping.dk/
<abstract>
This document describes IrTcl &mdash an information retrieval toolkit for
Tcl and Tk that provides access to the Z39.50/SR protocol.
<abstract>
This document describes IrTcl &mdash an information retrieval toolkit for
Tcl and Tk that provides access to the Z39.50/SR protocol.
proc search-response {assoc rset} {
set status [$rset responseStatus]
set type [lindex $status 0]
proc search-response {assoc rset} {
set status [$rset responseStatus]
set type [lindex $status 0]
set code [lindex $status 1]
set msg [lindex $status 2]
set addinfo [lindex $status 3]
set code [lindex $status 1]
set msg [lindex $status 2]
set addinfo [lindex $status 3]
set diag [$rset Diag $i]
set code [lindex $diag 0]
set msg [lindex $diag 1]
set addinfo [lindex $diag 2]
puts "$i: NSD $code: $msg: $addinfo"
set diag [$rset Diag $i]
set code [lindex $diag 0]
set msg [lindex $diag 1]
set addinfo [lindex $diag 2]
puts "$i: NSD $code: $msg: $addinfo"