From 977f685c8392f79dc529a9b71c42c7dcf9f9e245 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Fri, 30 Jan 1998 13:30:49 +0000 Subject: [PATCH] Name of target database is irtdb.tcl instead of clientrc.tcl. --- Makefile.in | 18 +- client.tcl | 34 ++-- clientrc.tcl | 595 ------------------------------------------------------- doc/ir-tcl.sgml | 15 +- irtdb.tcl | 535 +++++++++++++++++++++++++++++++++++++++++++++++++ setup.tcl | 19 +- shell.tcl | 17 +- 7 files changed, 595 insertions(+), 638 deletions(-) delete mode 100644 clientrc.tcl create mode 100644 irtdb.tcl diff --git a/Makefile.in b/Makefile.in index de05866..5323f88 100644 --- a/Makefile.in +++ b/Makefile.in @@ -2,7 +2,7 @@ # (c) Index Data 1995-1998 # See the file LICENSE for details. # Sebastian Hammer, Adam Dickmeiss -# $Id: Makefile.in,v 1.46 1998-01-16 11:01:17 adam Exp $ +# $Id: Makefile.in,v 1.47 1998-01-30 13:30:49 adam Exp $ SHELL=/bin/sh # IrTcl Version @@ -136,15 +136,15 @@ install: @ALL_SPEC@ echo "#! $(BINDIR)/@IRCLIENT_SHELL@ -f" >head.bak; \ cat head.bak client.tcl| sed "s,^set libdir LIBDIR,set libdir $(IRTCLDIR)," >client.bak; \ $(INSTALL_PROGRAM) client.bak $(BINDIR)/irclient; \ - if [ -f $(IRTCLDIR)/clientrc.tcl ]; then \ - echo "clientrc.tcl already exists"; \ - echo "Installing clientrc.tcl.n"; \ - cp clientrc.tcl clientrc.tcl.n; \ - $(INSTALL_DATA) clientrc.tcl.n $(IRTCLDIR); \ - rm clientrc.tcl.n; \ + if [ -f $(IRTCLDIR)/irtdb.tcl ]; then \ + echo "irtdb.tcl already exists"; \ + echo "Installing irtdb.tcl.n"; \ + cp irtdb.tcl irtdb.tcl.n; \ + $(INSTALL_DATA) irtdb.tcl.n $(IRTCLDIR); \ + rm irtdb.tcl.n; \ else \ - echo "Installing clientrc.tcl"; \ - $(INSTALL_DATA) clientrc.tcl $(IRTCLDIR); \ + echo "Installing irtdb.tcl"; \ + $(INSTALL_DATA) irtdb.tcl $(IRTCLDIR); \ fi; \ for f in *.tcl; do \ echo "Installing $$f"; \ diff --git a/client.tcl b/client.tcl index 183c7c7..a2ff277 100644 --- a/client.tcl +++ b/client.tcl @@ -1,10 +1,13 @@ # IR toolkit for tcl/tk -# (c) Index Data 1995-1997 +# (c) Index Data 1995-1998 # See the file LICENSE for details. # Sebastian Hammer, Adam Dickmeiss # # $Log: client.tcl,v $ -# Revision 1.102 1997-11-19 13:19:54 adam +# Revision 1.103 1998-01-30 13:30:50 adam +# Name of target database is irtdb.tcl instead of clientrc.tcl. +# +# Revision 1.102 1997/11/19 13:19:54 adam # Font fix. # # Revision 1.101 1997/11/19 11:20:56 adam @@ -547,11 +550,13 @@ if {[file readable "${libdir}/tagsets.tcl"]} { source "${libdir}/tagsets.tcl" } -# Read the global configuration file. -if {[file readable "clientrc.tcl"]} { - source "clientrc.tcl" -} elseif {[file readable "${libdir}/clientrc.tcl"]} { - source "${libdir}/clientrc.tcl" +# Read the global target configuration file. +if {[file readable "${libdir}/irtdb.tcl"]} { + source "${libdir}/irtdb.tcl" +} +# Read the local target configuration file. +if {[file readable "irtdb.tcl"]} { + source "irtdb.tcl" } # Read the user configuration file. @@ -2901,7 +2906,7 @@ proc save-geometry {} { } # Procedure save-settings -# This procedure saves the per-host related settings clientrc.tcl which +# This procedure saves the per-host related settings irtdb.tcl which # is normally kept in the directory /usr/local/lib/irtcl. # All query types and target defintion profiles are saved. proc save-settings {} { @@ -2912,17 +2917,10 @@ proc save-settings {} { global queryButtons global queryInfo - if {[file exists clientrc.tcl]} { - set f [open "clientrc.tcl" w] - } elseif {![file writable "${libdir}/clientrc.tcl"]} { - set a [alert "Cannot open ${libdir}/clientrc.tcl for writing. Do you \ - wish to save clientrc.tcl in the current directory instead?"] - if {! $a} { - return - } - set f [open "clientrc.tcl" w] + if {[file writable "${libdir}/irtdb.tcl"]} { + set f [open "${libdir}/irtdb.tcl" w] } else { - set f [open "${libdir}/clientrc.tcl" w] + set f [open "irtdb.tcl" w] } puts $f "# Setup file" diff --git a/clientrc.tcl b/clientrc.tcl deleted file mode 100644 index 4bc62fa..0000000 --- a/clientrc.tcl +++ /dev/null @@ -1,595 +0,0 @@ -# Setup file -set profile(AGRICOLA,authentication) {} -set profile(AGRICOLA,comstack) tcpip -set profile(AGRICOLA,databases) AGRICOLA -set profile(AGRICOLA,description) AGRICOLA -set profile(AGRICOLA,host) Tikal.dev.oclc.org -set profile(AGRICOLA,largeSetLowerBound) 2 -set profile(AGRICOLA,maxResultSets) {} -set profile(AGRICOLA,maxResultSize) {} -set profile(AGRICOLA,maxTerms) {} -set profile(AGRICOLA,maximumRecordSize) 50000 -set profile(AGRICOLA,mediumSetPresentNumber) 0 -set profile(AGRICOLA,multipleDatabases) 0 -set profile(AGRICOLA,namedResultSets) 1 -set profile(AGRICOLA,port) 210 -set profile(AGRICOLA,preferredMessageSize) 30000 -set profile(AGRICOLA,presentChunk) 4 -set profile(AGRICOLA,protocol) Z39 -set profile(AGRICOLA,queryCCL) 0 -set profile(AGRICOLA,queryRPN) 1 -set profile(AGRICOLA,recentNews) {} -set profile(AGRICOLA,smallSetUpperBound) 0 -set profile(AGRICOLA,targetInfoName) {} -set profile(AGRICOLA,timeDefine) 878567355 -set profile(AGRICOLA,timeLastExplain) {} -set profile(AGRICOLA,timeLastInit) 884946306 -set profile(AGRICOLA,welcomeMessage) {} -set profile(AGRICOLA,windowNumber) 2 -set profile(AULS,authentication) {} -set profile(AULS,comstack) tcpip -set profile(AULS,databases) {AULS mad} -set profile(AULS,description) {Acadia university -} -set profile(AULS,host) auls.acadiau.ca -set profile(AULS,largeSetLowerBound) 2 -set profile(AULS,maxResultSets) {} -set profile(AULS,maxResultSize) {} -set profile(AULS,maxTerms) {} -set profile(AULS,maximumRecordSize) 16384 -set profile(AULS,mediumSetPresentNumber) 0 -set profile(AULS,multipleDatabases) 0 -set profile(AULS,namedResultSets) 1 -set profile(AULS,port) 210 -set profile(AULS,preferredMessageSize) 8192 -set profile(AULS,presentChunk) 4 -set profile(AULS,protocol) Z39 -set profile(AULS,queryCCL) 0 -set profile(AULS,queryRPN) 1 -set profile(AULS,recentNews) {} -set profile(AULS,smallSetUpperBound) 0 -set profile(AULS,targetInfoName) {} -set profile(AULS,timeDefine) 878567355 -set profile(AULS,timeLastExplain) {} -set profile(AULS,timeLastInit) {} -set profile(AULS,welcomeMessage) {} -set profile(AULS,windowNumber) 14 -set profile(BIBSYS,authentication) {} -set profile(BIBSYS,comstack) tcpip -set profile(BIBSYS,databases) {BIBSYS PERI} -set profile(BIBSYS,description) BIBSYS -set profile(BIBSYS,host) z3950.bibsys.no -set profile(BIBSYS,largeSetLowerBound) 2 -set profile(BIBSYS,maxResultSets) {} -set profile(BIBSYS,maxResultSize) {} -set profile(BIBSYS,maxTerms) {} -set profile(BIBSYS,maximumRecordSize) 50000 -set profile(BIBSYS,mediumSetPresentNumber) 0 -set profile(BIBSYS,multipleDatabases) 0 -set profile(BIBSYS,namedResultSets) 1 -set profile(BIBSYS,port) 2100 -set profile(BIBSYS,preferredMessageSize) 30000 -set profile(BIBSYS,presentChunk) 4 -set profile(BIBSYS,protocol) Z39 -set profile(BIBSYS,queryCCL) 0 -set profile(BIBSYS,queryRPN) 1 -set profile(BIBSYS,recentNews) {} -set profile(BIBSYS,smallSetUpperBound) 0 -set profile(BIBSYS,targetInfoName) {} -set profile(BIBSYS,timeDefine) 878567355 -set profile(BIBSYS,timeLastExplain) {} -set profile(BIBSYS,timeLastInit) 878569986 -set profile(BIBSYS,welcomeMessage) {} -set profile(BIBSYS,windowNumber) 6 -set {profile(Bell Laboratories Library Network,authentication)} {} -set {profile(Bell Laboratories Library Network,comstack)} tcpip -set {profile(Bell Laboratories Library Network,databases)} {ir-explain-1 books gils netlib ls-lr z39dbs acc1 acc2 acc3 factbook books} -set {profile(Bell Laboratories Library Network,description)} {Bell Laboratories Library Network} -set {profile(Bell Laboratories Library Network,host)} z3950.bell-labs.com -set {profile(Bell Laboratories Library Network,largeSetLowerBound)} 2 -set {profile(Bell Laboratories Library Network,maxResultSets)} 100 -set {profile(Bell Laboratories Library Network,maxResultSize)} 600000 -set {profile(Bell Laboratories Library Network,maxTerms)} {} -set {profile(Bell Laboratories Library Network,maximumRecordSize)} 50000 -set {profile(Bell Laboratories Library Network,mediumSetPresentNumber)} 0 -set {profile(Bell Laboratories Library Network,multipleDatabases)} 0 -set {profile(Bell Laboratories Library Network,namedResultSets)} 1 -set {profile(Bell Laboratories Library Network,port)} 210 -set {profile(Bell Laboratories Library Network,preferredMessageSize)} 30000 -set {profile(Bell Laboratories Library Network,presentChunk)} 4 -set {profile(Bell Laboratories Library Network,protocol)} Z39 -set {profile(Bell Laboratories Library Network,queryCCL)} 0 -set {profile(Bell Laboratories Library Network,queryRPN)} 1 -set {profile(Bell Laboratories Library Network,recentNews)} {} -set {profile(Bell Laboratories Library Network,smallSetUpperBound)} 0 -set {profile(Bell Laboratories Library Network,targetInfoName)} {Lucent Technologies Research Server} -set {profile(Bell Laboratories Library Network,timeDefine)} 878567355 -set {profile(Bell Laboratories Library Network,timeLastExplain)} 879263917 -set {profile(Bell Laboratories Library Network,timeLastInit)} 879263917 -set {profile(Bell Laboratories Library Network,welcomeMessage)} {Salutations - this is Lucent Technologies experimental Z39.50 server. No guarentees, but free and unlimited access!} -set {profile(Bell Laboratories Library Network,windowNumber)} 13 -set {profile(Bibliothèque Nationale du Québec,authentication)} {} -set {profile(Bibliothèque Nationale du Québec,comstack)} tcpip -set {profile(Bibliothèque Nationale du Québec,databases)} IRIS -set {profile(Bibliothèque Nationale du Québec,description)} {Bibliothèque Nationale du Québec} -set {profile(Bibliothèque Nationale du Québec,host)} www.biblinat.gouv.qc.ca -set {profile(Bibliothèque Nationale du Québec,largeSetLowerBound)} 2 -set {profile(Bibliothèque Nationale du Québec,maxResultSets)} {} -set {profile(Bibliothèque Nationale du Québec,maxResultSize)} {} -set {profile(Bibliothèque Nationale du Québec,maxTerms)} {} -set {profile(Bibliothèque Nationale du Québec,maximumRecordSize)} 50000 -set {profile(Bibliothèque Nationale du Québec,mediumSetPresentNumber)} 0 -set {profile(Bibliothèque Nationale du Québec,multipleDatabases)} 0 -set {profile(Bibliothèque Nationale du Québec,namedResultSets)} 1 -set {profile(Bibliothèque Nationale du Québec,port)} 210 -set {profile(Bibliothèque Nationale du Québec,preferredMessageSize)} 30000 -set {profile(Bibliothèque Nationale du Québec,presentChunk)} 4 -set {profile(Bibliothèque Nationale du Québec,protocol)} Z39 -set {profile(Bibliothèque Nationale du Québec,queryCCL)} 0 -set {profile(Bibliothèque Nationale du Québec,queryRPN)} 1 -set {profile(Bibliothèque Nationale du Québec,recentNews)} {} -set {profile(Bibliothèque Nationale du Québec,smallSetUpperBound)} 0 -set {profile(Bibliothèque Nationale du Québec,targetInfoName)} {} -set {profile(Bibliothèque Nationale du Québec,timeDefine)} 878567355 -set {profile(Bibliothèque Nationale du Québec,timeLastExplain)} {} -set {profile(Bibliothèque Nationale du Québec,timeLastInit)} 878569953 -set {profile(Bibliothèque Nationale du Québec,welcomeMessage)} {} -set {profile(Bibliothèque Nationale du Québec,windowNumber)} 11 -set profile(DanBib,authentication) {} -set profile(DanBib,comstack) tcpip -set profile(DanBib,databases) {danbib DANBIBV2} -set profile(DanBib,description) {Danish Union Catalogue} -set profile(DanBib,host) ir.dbc.bib.dk -set profile(DanBib,largeSetLowerBound) 2 -set profile(DanBib,maxResultSets) {} -set profile(DanBib,maxResultSize) {} -set profile(DanBib,maxTerms) {} -set profile(DanBib,maximumRecordSize) 50000 -set profile(DanBib,mediumSetPresentNumber) 0 -set profile(DanBib,multipleDatabases) 0 -set profile(DanBib,namedResultSets) 1 -set profile(DanBib,port) 1804 -set profile(DanBib,preferredMessageSize) 30000 -set profile(DanBib,presentChunk) 4 -set profile(DanBib,protocol) Z39 -set profile(DanBib,queryCCL) 0 -set profile(DanBib,queryRPN) 1 -set profile(DanBib,recentNews) {} -set profile(DanBib,smallSetUpperBound) 0 -set profile(DanBib,targetInfoName) {} -set profile(DanBib,timeDefine) 878567355 -set profile(DanBib,timeLastExplain) {} -set profile(DanBib,timeLastInit) {} -set profile(DanBib,welcomeMessage) {} -set profile(DanBib,windowNumber) 10 -set profile(Default,authentication) {} -set profile(Default,comstack) tcpip -set profile(Default,description) {} -set profile(Default,host) {} -set profile(Default,largeSetLowerBound) 2 -set profile(Default,maxResultSets) {} -set profile(Default,maxResultSize) {} -set profile(Default,maxTerms) {} -set profile(Default,maximumRecordSize) 50000 -set profile(Default,mediumSetPresentNumber) 0 -set profile(Default,multipleDatabases) 0 -set profile(Default,namedResultSets) 1 -set profile(Default,port) 210 -set profile(Default,preferredMessageSize) 30000 -set profile(Default,presentChunk) 4 -set profile(Default,protocol) Z39 -set profile(Default,queryCCL) 0 -set profile(Default,queryRPN) 1 -set profile(Default,recentNews) {} -set profile(Default,smallSetUpperBound) 0 -set profile(Default,targetInfoName) {} -set profile(Default,timeDefine) {} -set profile(Default,timeLastExplain) {} -set profile(Default,timeLastInit) {} -set profile(Default,welcomeMessage) {} -set profile(Default,windowNumber) 20 -set profile(LOC,authentication) {} -set profile(LOC,comstack) tcpip -set profile(LOC,databases) {BOOKS NAMES AUTH MAPS MUSIC BIB SERIALS SUBJECTS} -set profile(LOC,description) {Library of Congress} -set profile(LOC,host) IBM2.LOC.gov -set profile(LOC,largeSetLowerBound) 2 -set profile(LOC,maxResultSets) {} -set profile(LOC,maxResultSize) {} -set profile(LOC,maxTerms) {} -set profile(LOC,maximumRecordSize) 16384 -set profile(LOC,mediumSetPresentNumber) 0 -set profile(LOC,multipleDatabases) 0 -set profile(LOC,namedResultSets) 1 -set profile(LOC,port) 2210 -set profile(LOC,preferredMessageSize) 16384 -set profile(LOC,presentChunk) 4 -set profile(LOC,protocol) Z39 -set profile(LOC,queryCCL) 0 -set profile(LOC,queryRPN) 1 -set profile(LOC,recentNews) {} -set profile(LOC,smallSetUpperBound) 0 -set profile(LOC,targetInfoName) {} -set profile(LOC,timeDefine) 878567355 -set profile(LOC,timeLastExplain) {} -set profile(LOC,timeLastInit) {} -set profile(LOC,welcomeMessage) {} -set profile(LOC,windowNumber) 8 -set profile(Penn,authentication) {} -set profile(Penn,comstack) tcpip -set profile(Penn,databases) CATALOG -set profile(Penn,description) {Penn State's Library} -set profile(Penn,host) 128.118.88.200 -set profile(Penn,largeSetLowerBound) 2 -set profile(Penn,maxResultSets) {} -set profile(Penn,maxResultSize) {} -set profile(Penn,maxTerms) {} -set profile(Penn,maximumRecordSize) 16384 -set profile(Penn,mediumSetPresentNumber) 0 -set profile(Penn,multipleDatabases) 0 -set profile(Penn,namedResultSets) 1 -set profile(Penn,port) 210 -set profile(Penn,preferredMessageSize) 8192 -set profile(Penn,presentChunk) 4 -set profile(Penn,protocol) Z39 -set profile(Penn,queryCCL) 0 -set profile(Penn,queryRPN) 1 -set profile(Penn,recentNews) {} -set profile(Penn,smallSetUpperBound) 0 -set profile(Penn,targetInfoName) {} -set profile(Penn,timeDefine) 878567355 -set profile(Penn,timeLastExplain) {} -set profile(Penn,timeLastInit) {} -set profile(Penn,welcomeMessage) {} -set profile(Penn,windowNumber) 1 -set profile(aleph500,authentication) {} -set profile(aleph500,comstack) tcpip -set profile(aleph500,databases) bib01 -set profile(aleph500,description) { -} -set profile(aleph500,host) uranus.dtv.dk -set profile(aleph500,largeSetLowerBound) 2 -set profile(aleph500,maxResultSets) {} -set profile(aleph500,maxResultSize) {} -set profile(aleph500,maxTerms) {} -set profile(aleph500,maximumRecordSize) 50000 -set profile(aleph500,mediumSetPresentNumber) 0 -set profile(aleph500,multipleDatabases) 0 -set profile(aleph500,namedResultSets) 1 -set profile(aleph500,port) 9999 -set profile(aleph500,preferredMessageSize) 30000 -set profile(aleph500,presentChunk) 4 -set profile(aleph500,protocol) Z39 -set profile(aleph500,queryCCL) 0 -set profile(aleph500,queryRPN) 1 -set profile(aleph500,recentNews) {} -set profile(aleph500,smallSetUpperBound) 0 -set profile(aleph500,targetInfoName) {} -set profile(aleph500,timeDefine) 878567355 -set profile(aleph500,timeLastExplain) {} -set profile(aleph500,timeLastInit) 879262883 -set profile(aleph500,welcomeMessage) {} -set profile(aleph500,windowNumber) 16 -set profile(arcatarget,authentication) {} -set profile(arcatarget,comstack) tcpip -set profile(arcatarget,databases) {IEI-books IR-Explain-1} -set profile(arcatarget,description) {ARCA Target - - - - - - - - - - - - - - - - - - -} -set profile(arcatarget,host) arca.iei.pi.cnr.it -set profile(arcatarget,largeSetLowerBound) 2 -set profile(arcatarget,maxResultSets) {} -set profile(arcatarget,maxResultSize) {} -set profile(arcatarget,maxTerms) {} -set profile(arcatarget,maximumRecordSize) 50000 -set profile(arcatarget,mediumSetPresentNumber) 0 -set profile(arcatarget,multipleDatabases) 0 -set profile(arcatarget,namedResultSets) 1 -set profile(arcatarget,port) 2000 -set profile(arcatarget,preferredMessageSize) 30000 -set profile(arcatarget,presentChunk) 4 -set profile(arcatarget,protocol) Z39 -set profile(arcatarget,queryCCL) 0 -set profile(arcatarget,queryRPN) 1 -set profile(arcatarget,recentNews) {} -set profile(arcatarget,smallSetUpperBound) 0 -set profile(arcatarget,targetInfoName) {} -set profile(arcatarget,timeDefine) 878567355 -set profile(arcatarget,timeLastExplain) {} -set profile(arcatarget,timeLastInit) {} -set profile(arcatarget,welcomeMessage) {} -set profile(arcatarget,windowNumber) 9 -set profile(author,authentication) {} -set profile(author,comstack) tcpip -set profile(author,databases) {spain portugal france england belgium} -set profile(author,description) {} -set profile(author,host) mars.dtv.dk -set profile(author,largeSetLowerBound) 2 -set profile(author,maxResultSets) {} -set profile(author,maxResultSize) {} -set profile(author,maxTerms) {} -set profile(author,maximumRecordSize) 50000 -set profile(author,mediumSetPresentNumber) 0 -set profile(author,multipleDatabases) 0 -set profile(author,namedResultSets) 1 -set profile(author,port) 8889 -set profile(author,preferredMessageSize) 30000 -set profile(author,presentChunk) 4 -set profile(author,protocol) Z39 -set profile(author,queryCCL) 0 -set profile(author,queryRPN) 1 -set profile(author,recentNews) {} -set profile(author,smallSetUpperBound) 0 -set profile(author,targetInfoName) {} -set profile(author,timeDefine) 878567355 -set profile(author,timeLastExplain) {} -set profile(author,timeLastInit) 879777702 -set profile(author,welcomeMessage) {} -set profile(author,windowNumber) 4 -set profile(bacon,authentication) {} -set profile(bacon,comstack) tcpip -set profile(bacon,databases) Default -set profile(bacon,description) {} -set profile(bacon,host) bacon.indexdata.dk -set profile(bacon,largeSetLowerBound) 2 -set profile(bacon,maxResultSets) {} -set profile(bacon,maxResultSize) {} -set profile(bacon,maxTerms) {} -set profile(bacon,maximumRecordSize) 50000 -set profile(bacon,mediumSetPresentNumber) 0 -set profile(bacon,multipleDatabases) 0 -set profile(bacon,namedResultSets) 1 -set profile(bacon,port) 9999 -set profile(bacon,preferredMessageSize) 30000 -set profile(bacon,presentChunk) 4 -set profile(bacon,protocol) Z39 -set profile(bacon,queryCCL) 0 -set profile(bacon,queryRPN) 1 -set profile(bacon,recentNews) {} -set profile(bacon,smallSetUpperBound) 0 -set profile(bacon,targetInfoName) {} -set profile(bacon,timeDefine) 878567355 -set profile(bacon,timeLastExplain) {} -set profile(bacon,timeLastInit) {} -set profile(bacon,welcomeMessage) {} -set profile(bacon,windowNumber) 5 -set profile(burns,authentication) {} -set profile(burns,comstack) tcpip -set profile(burns,databases) Default -set profile(burns,description) { - - - -} -set profile(burns,host) burns.fdgroup.co.uk -set profile(burns,idAuthentication) {} -set profile(burns,largeSetLowerBound) 2 -set profile(burns,maxResultSets) {} -set profile(burns,maxResultSize) {} -set profile(burns,maxTerms) {} -set profile(burns,maximumRecordSize) 50000 -set profile(burns,mediumSetPresentNumber) 0 -set profile(burns,multipleDatabases) 0 -set profile(burns,namedResultSets) 1 -set profile(burns,port) 9999 -set profile(burns,preferredMessageSize) 30000 -set profile(burns,presentChunk) 4 -set profile(burns,protocol) Z39 -set profile(burns,queryCCL) 0 -set profile(burns,queryRPN) 1 -set profile(burns,recentNews) { - - - -} -set profile(burns,smallSetUpperBound) 0 -set profile(burns,targetInfoName) { - - - -} -set profile(burns,targetMaxResultSets) {} -set profile(burns,targetMaxResultSize) {} -set profile(burns,targetMaxTerms) {} -set profile(burns,timeDefine) {} -set profile(burns,timeLastExplain) {} -set profile(burns,timeLastInit) 879415443 -set profile(burns,welcomeMessage) { - - - -} -set profile(burns,windowNumber) 18 -set profile(dranet,authentication) {} -set profile(dranet,comstack) tcpip -set profile(dranet,databases) drewdb -set profile(dranet,description) dranet -set profile(dranet,host) dranet.dra.com -set profile(dranet,largeSetLowerBound) 2 -set profile(dranet,maxResultSets) {} -set profile(dranet,maxResultSize) {} -set profile(dranet,maxTerms) {} -set profile(dranet,maximumRecordSize) 563840 -set profile(dranet,mediumSetPresentNumber) 0 -set profile(dranet,multipleDatabases) 0 -set profile(dranet,namedResultSets) 1 -set profile(dranet,port) 210 -set profile(dranet,preferredMessageSize) 563840 -set profile(dranet,presentChunk) 4 -set profile(dranet,protocol) Z39 -set profile(dranet,queryCCL) 0 -set profile(dranet,queryRPN) 1 -set profile(dranet,recentNews) {} -set profile(dranet,smallSetUpperBound) 0 -set profile(dranet,targetInfoName) {} -set profile(dranet,timeDefine) 878567355 -set profile(dranet,timeLastExplain) {} -set profile(dranet,timeLastInit) {} -set profile(dranet,welcomeMessage) {} -set profile(dranet,windowNumber) 15 -set profile(gilstest,authentication) {} -set profile(gilstest,comstack) tcpip -set profile(gilstest,databases) Default -set profile(gilstest,description) { -} -set profile(gilstest,host) localhost -set profile(gilstest,idAuthentication) {} -set profile(gilstest,largeSetLowerBound) 2 -set profile(gilstest,maxResultSets) {} -set profile(gilstest,maxResultSize) {} -set profile(gilstest,maxTerms) {} -set profile(gilstest,maximumRecordSize) 50000 -set profile(gilstest,mediumSetPresentNumber) 0 -set profile(gilstest,multipleDatabases) 0 -set profile(gilstest,namedResultSets) 1 -set profile(gilstest,port) 9999 -set profile(gilstest,preferredMessageSize) 30000 -set profile(gilstest,presentChunk) 4 -set profile(gilstest,protocol) Z39 -set profile(gilstest,queryCCL) 0 -set profile(gilstest,queryRPN) 1 -set profile(gilstest,recentNews) { -} -set profile(gilstest,smallSetUpperBound) 0 -set profile(gilstest,targetInfoName) { -} -set profile(gilstest,targetMaxResultSets) {} -set profile(gilstest,targetMaxResultSize) {} -set profile(gilstest,targetMaxTerms) {} -set profile(gilstest,timeDefine) {} -set profile(gilstest,timeLastExplain) {} -set profile(gilstest,timeLastInit) 879779577 -set profile(gilstest,welcomeMessage) { -} -set profile(gilstest,windowNumber) 19 -set profile(libris,authentication) {} -set profile(libris,comstack) tcpip -set profile(libris,databases) libr -set profile(libris,description) LIBRIS -set profile(libris,host) z3950.libris.kb.se -set profile(libris,largeSetLowerBound) 2 -set profile(libris,maxResultSets) {} -set profile(libris,maxResultSize) {} -set profile(libris,maxTerms) {} -set profile(libris,maximumRecordSize) 50000 -set profile(libris,mediumSetPresentNumber) 0 -set profile(libris,multipleDatabases) 0 -set profile(libris,namedResultSets) 1 -set profile(libris,port) 210 -set profile(libris,preferredMessageSize) 30000 -set profile(libris,presentChunk) 4 -set profile(libris,protocol) Z39 -set profile(libris,queryCCL) 0 -set profile(libris,queryRPN) 1 -set profile(libris,recentNews) {} -set profile(libris,smallSetUpperBound) 0 -set profile(libris,targetInfoName) {} -set profile(libris,timeDefine) 878567355 -set profile(libris,timeLastExplain) {} -set profile(libris,timeLastInit) {} -set profile(libris,welcomeMessage) {} -set profile(libris,windowNumber) 12 -set profile(madison,authentication) {} -set profile(madison,comstack) tcpip -set profile(madison,databases) madison -set profile(madison,description) {University of Wisconsin-Madison} -set profile(madison,host) z3950.adp.wisc.edu -set profile(madison,largeSetLowerBound) 2 -set profile(madison,maxResultSets) {} -set profile(madison,maxResultSize) {} -set profile(madison,maxTerms) {} -set profile(madison,maximumRecordSize) 16384 -set profile(madison,mediumSetPresentNumber) 0 -set profile(madison,multipleDatabases) 0 -set profile(madison,namedResultSets) 1 -set profile(madison,port) 210 -set profile(madison,preferredMessageSize) 8192 -set profile(madison,presentChunk) 4 -set profile(madison,protocol) Z39 -set profile(madison,queryCCL) 0 -set profile(madison,queryRPN) 1 -set profile(madison,recentNews) {} -set profile(madison,smallSetUpperBound) 0 -set profile(madison,targetInfoName) {} -set profile(madison,timeDefine) 878567355 -set profile(madison,timeLastExplain) {} -set profile(madison,timeLastInit) {} -set profile(madison,welcomeMessage) {} -set profile(madison,windowNumber) 3 -set profile(x,authentication) {} -set profile(x,comstack) tcpip -set profile(x,description) { -} -set profile(x,host) {} -set profile(x,largeSetLowerBound) 2 -set profile(x,maxResultSets) {} -set profile(x,maxResultSize) {} -set profile(x,maxTerms) {} -set profile(x,maximumRecordSize) 50000 -set profile(x,mediumSetPresentNumber) 0 -set profile(x,multipleDatabases) 0 -set profile(x,namedResultSets) 1 -set profile(x,port) 210 -set profile(x,preferredMessageSize) 30000 -set profile(x,presentChunk) 4 -set profile(x,protocol) Z39 -set profile(x,queryCCL) 0 -set profile(x,queryRPN) 1 -set profile(x,recentNews) { -} -set profile(x,smallSetUpperBound) 0 -set profile(x,targetInfoName) { -} -set profile(x,timeDefine) {} -set profile(x,timeLastExplain) {} -set profile(x,timeLastInit) {} -set profile(x,welcomeMessage) { -} -set profile(x,windowNumber) 17 -set profile(ztest9999,authentication) {} -set profile(ztest9999,comstack) tcpip -set profile(ztest9999,databases) Default -set profile(ztest9999,description) {YAZ server on localhost} -set profile(ztest9999,host) localhost -set profile(ztest9999,largeSetLowerBound) 2 -set profile(ztest9999,maxResultSets) {} -set profile(ztest9999,maxResultSize) {} -set profile(ztest9999,maxTerms) {} -set profile(ztest9999,maximumRecordSize) 50000 -set profile(ztest9999,mediumSetPresentNumber) 0 -set profile(ztest9999,multipleDatabases) 1 -set profile(ztest9999,namedResultSets) 1 -set profile(ztest9999,port) 9999 -set profile(ztest9999,preferredMessageSize) 30000 -set profile(ztest9999,presentChunk) 4 -set profile(ztest9999,protocol) Z39 -set profile(ztest9999,queryCCL) 0 -set profile(ztest9999,queryRPN) 1 -set profile(ztest9999,recentNews) {} -set profile(ztest9999,smallSetUpperBound) 0 -set profile(ztest9999,targetInfoName) {} -set profile(ztest9999,timeDefine) 878567355 -set profile(ztest9999,timeLastExplain) {} -set profile(ztest9999,timeLastInit) 880111094 -set profile(ztest9999,welcomeMessage) {} -set profile(ztest9999,windowNumber) 7 -set queryTypes {Simple phrase} -set queryButtons {{{I 3} {I 0} {I 0}} {{I 0} {I 1} {I 0}}} -set queryInfo {{{Title {1=4}} {Author {1=1}} {Subject {1=21}} {Any {1=1016}} {Query 1=1016 2=102} {Title-rank 1=4 2=102} {Date/time 1=1012} {Title-regular 1=4 2=3 4=2 5=102} {Ranked 1=1016 2=102 3=3 4=1 6=1}} {{Title 1=4 4=1 6=2} {Author 1=1003 4=1 6=2} {ISBN 1=7} {ISSN 1=8} {Year 1=30 4=4 6=2} {Any {}}}} diff --git a/doc/ir-tcl.sgml b/doc/ir-tcl.sgml index c634304..a3a40f8 100644 --- a/doc/ir-tcl.sgml +++ b/doc/ir-tcl.sgml @@ -1,14 +1,14 @@
IrTcl User's Guide and Reference <author><htmlurl url="http://www.indexdata.dk/" name="Index Data">, <tt><htmlurl url="mailto:info@indexdata.dk" name="info@indexdata.dk"></tt> -<date>$Revision: 1.26 $ +<date>$Revision: 1.27 $ <abstract> This document describes IrTcl -- an information retrieval toolkit for Tcl and Tk that provides access to the Z39.50/SR protocol. @@ -49,7 +49,7 @@ In order to compile you need: <item> An ANSI C compiler such as GNU C. <item> <htmlurl url="http://sunscript.sun.com/TclTkCore/" name="Tcl">. Version 7.5, 7.6 and 8.0 has been tested. -<item> <htmlurl url="http://www.indexdata.dk/yaz.html" name="YAZ"> +<item> <htmlurl url="http://www.indexdata.dk/yaz/" name="YAZ"> version 1.4 or higher. </itemize> @@ -143,7 +143,7 @@ This file is only generated when using newer versions of Tcl. <tag><tt>ir-tcl.h</tt></tag> The <sf/IrTcl/ header file. Installed in <tt>INCDIR</tt> -- defaults to <tt>/usr/local/include</tt>. -<tag><tt>clientrc.tcl</tt></tag> A setup file with definitions +<tag><tt>irtdb.tcl</tt></tag> A setup file with definitions of target and queries. Read and updated by <tt>client.tcl</tt>. Installed in <tt>IRTCLDIR</tt> -- defaults to <tt>/usr/local/lib/irtcl</tt>. @@ -1463,14 +1463,17 @@ Email: info@indexdata.dk <p> <descrip> -<tag>1 Ousterhout, John K.:</tag> +<tag>1 IrTcl Homepage</tag> +<htmlurl url="http://www.indexdata.dk/irtcl/" +name="http://www.indexdata.dk/irtcl/"> +<tag>2 Ousterhout, John K.:</tag> Tcl and the Tk Toolkit. Addison-Wesley Company Inc (ISBN 0-201-63337-X). The Tcl/Tk toolkit home page is <tt><htmlurl url="http://www.sunscript.com" name="http://www.sunscript.com"></tt>. The primary ftp site is <tt><htmlurl url="ftp://ftp.smli.com/pub/tcl/" name="ftp://ftp.smli.com/pub/tcl/"></tt>. -<tag>2 Welch, Brent B.:</tag> +<tag>3 Welch, Brent B.:</tag> Practical Programming in Tcl and Tk. Prentice Hall (ISBN 0-13-616830-2). diff --git a/irtdb.tcl b/irtdb.tcl new file mode 100644 index 0000000..63b4a8a --- /dev/null +++ b/irtdb.tcl @@ -0,0 +1,535 @@ +# Setup file +set profile(BIBSYS,authentication) {} +set profile(BIBSYS,comstack) tcpip +set profile(BIBSYS,databases) {BIBSYS PERI} +set profile(BIBSYS,description) BIBSYS +set profile(BIBSYS,host) z3950.bibsys.no +set profile(BIBSYS,largeSetLowerBound) 2 +set profile(BIBSYS,maxResultSets) {} +set profile(BIBSYS,maxResultSize) {} +set profile(BIBSYS,maxTerms) {} +set profile(BIBSYS,maximumRecordSize) 50000 +set profile(BIBSYS,mediumSetPresentNumber) 0 +set profile(BIBSYS,multipleDatabases) 0 +set profile(BIBSYS,namedResultSets) 1 +set profile(BIBSYS,port) 2100 +set profile(BIBSYS,preferredMessageSize) 30000 +set profile(BIBSYS,presentChunk) 4 +set profile(BIBSYS,protocol) Z39 +set profile(BIBSYS,queryCCL) 0 +set profile(BIBSYS,queryRPN) 1 +set profile(BIBSYS,recentNews) {} +set profile(BIBSYS,smallSetUpperBound) 0 +set profile(BIBSYS,targetInfoName) {} +set profile(BIBSYS,timeDefine) 878567355 +set profile(BIBSYS,timeLastExplain) {} +set profile(BIBSYS,timeLastInit) 884958341 +set profile(BIBSYS,welcomeMessage) {} +set profile(BIBSYS,windowNumber) 6 +set {profile(Bell Laboratories Library Network,authentication)} {} +set {profile(Bell Laboratories Library Network,comstack)} tcpip +set {profile(Bell Laboratories Library Network,databases)} {ir-explain-1 books gils netlib ls-lr z39dbs acc1 acc2 acc3 factbook books} +set {profile(Bell Laboratories Library Network,description)} {Bell Laboratories Library Network} +set {profile(Bell Laboratories Library Network,host)} z3950.bell-labs.com +set {profile(Bell Laboratories Library Network,largeSetLowerBound)} 2 +set {profile(Bell Laboratories Library Network,maxResultSets)} 100 +set {profile(Bell Laboratories Library Network,maxResultSize)} 600000 +set {profile(Bell Laboratories Library Network,maxTerms)} {} +set {profile(Bell Laboratories Library Network,maximumRecordSize)} 50000 +set {profile(Bell Laboratories Library Network,mediumSetPresentNumber)} 0 +set {profile(Bell Laboratories Library Network,multipleDatabases)} 0 +set {profile(Bell Laboratories Library Network,namedResultSets)} 1 +set {profile(Bell Laboratories Library Network,port)} 210 +set {profile(Bell Laboratories Library Network,preferredMessageSize)} 30000 +set {profile(Bell Laboratories Library Network,presentChunk)} 4 +set {profile(Bell Laboratories Library Network,protocol)} Z39 +set {profile(Bell Laboratories Library Network,queryCCL)} 0 +set {profile(Bell Laboratories Library Network,queryRPN)} 1 +set {profile(Bell Laboratories Library Network,recentNews)} {} +set {profile(Bell Laboratories Library Network,smallSetUpperBound)} 0 +set {profile(Bell Laboratories Library Network,targetInfoName)} {Lucent Technologies Research Server} +set {profile(Bell Laboratories Library Network,timeDefine)} 878567355 +set {profile(Bell Laboratories Library Network,timeLastExplain)} 879263917 +set {profile(Bell Laboratories Library Network,timeLastInit)} 879263917 +set {profile(Bell Laboratories Library Network,welcomeMessage)} {Salutations - this is Lucent Technologies experimental Z39.50 server. No guarentees, but free and unlimited access!} +set {profile(Bell Laboratories Library Network,windowNumber)} 13 +set {profile(Bibliothèque Nationale du Québec,authentication)} {} +set {profile(Bibliothèque Nationale du Québec,comstack)} tcpip +set {profile(Bibliothèque Nationale du Québec,databases)} IRIS +set {profile(Bibliothèque Nationale du Québec,description)} {Bibliothèque Nationale du Québec} +set {profile(Bibliothèque Nationale du Québec,host)} www.biblinat.gouv.qc.ca +set {profile(Bibliothèque Nationale du Québec,largeSetLowerBound)} 2 +set {profile(Bibliothèque Nationale du Québec,maxResultSets)} {} +set {profile(Bibliothèque Nationale du Québec,maxResultSize)} {} +set {profile(Bibliothèque Nationale du Québec,maxTerms)} {} +set {profile(Bibliothèque Nationale du Québec,maximumRecordSize)} 50000 +set {profile(Bibliothèque Nationale du Québec,mediumSetPresentNumber)} 0 +set {profile(Bibliothèque Nationale du Québec,multipleDatabases)} 0 +set {profile(Bibliothèque Nationale du Québec,namedResultSets)} 1 +set {profile(Bibliothèque Nationale du Québec,port)} 210 +set {profile(Bibliothèque Nationale du Québec,preferredMessageSize)} 30000 +set {profile(Bibliothèque Nationale du Québec,presentChunk)} 4 +set {profile(Bibliothèque Nationale du Québec,protocol)} Z39 +set {profile(Bibliothèque Nationale du Québec,queryCCL)} 0 +set {profile(Bibliothèque Nationale du Québec,queryRPN)} 1 +set {profile(Bibliothèque Nationale du Québec,recentNews)} {} +set {profile(Bibliothèque Nationale du Québec,smallSetUpperBound)} 0 +set {profile(Bibliothèque Nationale du Québec,targetInfoName)} {} +set {profile(Bibliothèque Nationale du Québec,timeDefine)} 878567355 +set {profile(Bibliothèque Nationale du Québec,timeLastExplain)} {} +set {profile(Bibliothèque Nationale du Québec,timeLastInit)} 878569953 +set {profile(Bibliothèque Nationale du Québec,welcomeMessage)} {} +set {profile(Bibliothèque Nationale du Québec,windowNumber)} 11 +set profile(DanBib,authentication) {} +set profile(DanBib,comstack) tcpip +set profile(DanBib,databases) {danbib DANBIBV2} +set profile(DanBib,description) {Danish Union Catalogue} +set profile(DanBib,host) ir.dbc.bib.dk +set profile(DanBib,largeSetLowerBound) 2 +set profile(DanBib,maxResultSets) {} +set profile(DanBib,maxResultSize) {} +set profile(DanBib,maxTerms) {} +set profile(DanBib,maximumRecordSize) 50000 +set profile(DanBib,mediumSetPresentNumber) 0 +set profile(DanBib,multipleDatabases) 0 +set profile(DanBib,namedResultSets) 1 +set profile(DanBib,port) 1804 +set profile(DanBib,preferredMessageSize) 30000 +set profile(DanBib,presentChunk) 4 +set profile(DanBib,protocol) Z39 +set profile(DanBib,queryCCL) 0 +set profile(DanBib,queryRPN) 1 +set profile(DanBib,recentNews) {} +set profile(DanBib,smallSetUpperBound) 0 +set profile(DanBib,targetInfoName) {} +set profile(DanBib,timeDefine) 878567355 +set profile(DanBib,timeLastExplain) {} +set profile(DanBib,timeLastInit) {} +set profile(DanBib,welcomeMessage) {} +set profile(DanBib,windowNumber) 10 +set profile(Default,authentication) {} +set profile(Default,comstack) tcpip +set profile(Default,description) {} +set profile(Default,host) {} +set profile(Default,largeSetLowerBound) 2 +set profile(Default,maxResultSets) {} +set profile(Default,maxResultSize) {} +set profile(Default,maxTerms) {} +set profile(Default,maximumRecordSize) 50000 +set profile(Default,mediumSetPresentNumber) 0 +set profile(Default,multipleDatabases) 0 +set profile(Default,namedResultSets) 1 +set profile(Default,port) 210 +set profile(Default,preferredMessageSize) 30000 +set profile(Default,presentChunk) 4 +set profile(Default,protocol) Z39 +set profile(Default,queryCCL) 0 +set profile(Default,queryRPN) 1 +set profile(Default,recentNews) {} +set profile(Default,smallSetUpperBound) 0 +set profile(Default,targetInfoName) {} +set profile(Default,timeDefine) {} +set profile(Default,timeLastExplain) {} +set profile(Default,timeLastInit) {} +set profile(Default,welcomeMessage) {} +set profile(Default,windowNumber) 21 +set profile(LOC,authentication) {} +set profile(LOC,comstack) tcpip +set profile(LOC,databases) {BOOKS NAMES AUTH MAPS MUSIC BIB SERIALS SUBJECTS} +set profile(LOC,description) {Library of Congress} +set profile(LOC,host) IBM2.LOC.gov +set profile(LOC,idAuthentication) {} +set profile(LOC,largeSetLowerBound) 2 +set profile(LOC,maxResultSets) {} +set profile(LOC,maxResultSize) {} +set profile(LOC,maxTerms) {} +set profile(LOC,maximumRecordSize) 16384 +set profile(LOC,mediumSetPresentNumber) 0 +set profile(LOC,multipleDatabases) 0 +set profile(LOC,namedResultSets) 0 +set profile(LOC,port) 2210 +set profile(LOC,preferredMessageSize) 16384 +set profile(LOC,presentChunk) 4 +set profile(LOC,protocol) Z39 +set profile(LOC,queryCCL) 0 +set profile(LOC,queryRPN) 1 +set profile(LOC,recentNews) {} +set profile(LOC,smallSetUpperBound) 0 +set profile(LOC,targetInfoName) { } +set profile(LOC,targetMaxResultSets) {} +set profile(LOC,targetMaxResultSize) {} +set profile(LOC,targetMaxTerms) {} +set profile(LOC,timeDefine) 878567355 +set profile(LOC,timeLastExplain) {} +set profile(LOC,timeLastInit) 884950921 +set profile(LOC,welcomeMessage) {} +set profile(LOC,windowNumber) 8 +set {profile(OCLC FirstSearch,authentication)} {} +set {profile(OCLC FirstSearch,comstack)} tcpip +set {profile(OCLC FirstSearch,databases)} {AGRICOLA MEDLINE} +set {profile(OCLC FirstSearch,description)} {} +set {profile(OCLC FirstSearch,host)} Tikal.dev.oclc.org +set {profile(OCLC FirstSearch,idAuthentication)} {} +set {profile(OCLC FirstSearch,largeSetLowerBound)} 2 +set {profile(OCLC FirstSearch,maxResultSets)} {} +set {profile(OCLC FirstSearch,maxResultSize)} {} +set {profile(OCLC FirstSearch,maxTerms)} {} +set {profile(OCLC FirstSearch,maximumRecordSize)} 50000 +set {profile(OCLC FirstSearch,mediumSetPresentNumber)} 0 +set {profile(OCLC FirstSearch,multipleDatabases)} 0 +set {profile(OCLC FirstSearch,namedResultSets)} 1 +set {profile(OCLC FirstSearch,port)} 210 +set {profile(OCLC FirstSearch,preferredMessageSize)} 30000 +set {profile(OCLC FirstSearch,presentChunk)} 4 +set {profile(OCLC FirstSearch,protocol)} Z39 +set {profile(OCLC FirstSearch,queryCCL)} 0 +set {profile(OCLC FirstSearch,queryRPN)} 1 +set {profile(OCLC FirstSearch,recentNews)} {} +set {profile(OCLC FirstSearch,smallSetUpperBound)} 0 +set {profile(OCLC FirstSearch,targetInfoName)} {OCLC FirstSearch} +set {profile(OCLC FirstSearch,targetMaxResultSets)} {} +set {profile(OCLC FirstSearch,targetMaxResultSize)} {} +set {profile(OCLC FirstSearch,targetMaxTerms)} {} +set {profile(OCLC FirstSearch,timeDefine)} {} +set {profile(OCLC FirstSearch,timeLastExplain)} {} +set {profile(OCLC FirstSearch,timeLastInit)} 884958174 +set {profile(OCLC FirstSearch,welcomeMessage)} {} +set {profile(OCLC FirstSearch,windowNumber)} 20 +set profile(Penn,authentication) {} +set profile(Penn,comstack) tcpip +set profile(Penn,databases) CATALOG +set profile(Penn,description) {Penn State's Library} +set profile(Penn,host) 128.118.88.200 +set profile(Penn,largeSetLowerBound) 2 +set profile(Penn,maxResultSets) {} +set profile(Penn,maxResultSize) {} +set profile(Penn,maxTerms) {} +set profile(Penn,maximumRecordSize) 16384 +set profile(Penn,mediumSetPresentNumber) 0 +set profile(Penn,multipleDatabases) 0 +set profile(Penn,namedResultSets) 1 +set profile(Penn,port) 210 +set profile(Penn,preferredMessageSize) 8192 +set profile(Penn,presentChunk) 4 +set profile(Penn,protocol) Z39 +set profile(Penn,queryCCL) 0 +set profile(Penn,queryRPN) 1 +set profile(Penn,recentNews) {} +set profile(Penn,smallSetUpperBound) 0 +set profile(Penn,targetInfoName) {} +set profile(Penn,timeDefine) 878567355 +set profile(Penn,timeLastExplain) {} +set profile(Penn,timeLastInit) {} +set profile(Penn,welcomeMessage) {} +set profile(Penn,windowNumber) 1 +set profile(aleph500,authentication) {} +set profile(aleph500,comstack) tcpip +set profile(aleph500,databases) bib01 +set profile(aleph500,description) { } +set profile(aleph500,host) uranus.dtv.dk +set profile(aleph500,largeSetLowerBound) 2 +set profile(aleph500,maxResultSets) {} +set profile(aleph500,maxResultSize) {} +set profile(aleph500,maxTerms) {} +set profile(aleph500,maximumRecordSize) 50000 +set profile(aleph500,mediumSetPresentNumber) 0 +set profile(aleph500,multipleDatabases) 0 +set profile(aleph500,namedResultSets) 1 +set profile(aleph500,port) 9999 +set profile(aleph500,preferredMessageSize) 30000 +set profile(aleph500,presentChunk) 4 +set profile(aleph500,protocol) Z39 +set profile(aleph500,queryCCL) 0 +set profile(aleph500,queryRPN) 1 +set profile(aleph500,recentNews) {} +set profile(aleph500,smallSetUpperBound) 0 +set profile(aleph500,targetInfoName) {} +set profile(aleph500,timeDefine) 878567355 +set profile(aleph500,timeLastExplain) {} +set profile(aleph500,timeLastInit) 879262883 +set profile(aleph500,welcomeMessage) {} +set profile(aleph500,windowNumber) 16 +set profile(arcatarget,authentication) {} +set profile(arcatarget,comstack) tcpip +set profile(arcatarget,databases) {IEI-books IR-Explain-1} +set profile(arcatarget,description) {ARCA Target} +set profile(arcatarget,host) arca.iei.pi.cnr.it +set profile(arcatarget,idAuthentication) {} +set profile(arcatarget,largeSetLowerBound) 2 +set profile(arcatarget,maxResultSets) 20 +set profile(arcatarget,maxResultSize) 4000 +set profile(arcatarget,maxTerms) 15 +set profile(arcatarget,maximumRecordSize) 50000 +set profile(arcatarget,mediumSetPresentNumber) 0 +set profile(arcatarget,multipleDatabases) 0 +set profile(arcatarget,namedResultSets) 1 +set profile(arcatarget,port) 2000 +set profile(arcatarget,preferredMessageSize) 30000 +set profile(arcatarget,presentChunk) 4 +set profile(arcatarget,protocol) Z39 +set profile(arcatarget,queryCCL) 0 +set profile(arcatarget,queryRPN) 1 +set profile(arcatarget,recentNews) {} +set profile(arcatarget,smallSetUpperBound) 0 +set profile(arcatarget,targetInfoName) {ARCA } +set profile(arcatarget,targetMaxResultSets) {} +set profile(arcatarget,targetMaxResultSize) {} +set profile(arcatarget,targetMaxTerms) {} +set profile(arcatarget,timeDefine) 878567355 +set profile(arcatarget,timeLastExplain) 884950966 +set profile(arcatarget,timeLastInit) 884950966 +set profile(arcatarget,welcomeMessage) {buon lavoro} +set profile(arcatarget,windowNumber) 9 +set profile(author,authentication) {} +set profile(author,comstack) tcpip +set profile(author,databases) {spain portugal france england belgium} +set profile(author,description) {} +set profile(author,host) mars.dtv.dk +set profile(author,largeSetLowerBound) 2 +set profile(author,maxResultSets) {} +set profile(author,maxResultSize) {} +set profile(author,maxTerms) {} +set profile(author,maximumRecordSize) 50000 +set profile(author,mediumSetPresentNumber) 0 +set profile(author,multipleDatabases) 0 +set profile(author,namedResultSets) 1 +set profile(author,port) 8889 +set profile(author,preferredMessageSize) 30000 +set profile(author,presentChunk) 4 +set profile(author,protocol) Z39 +set profile(author,queryCCL) 0 +set profile(author,queryRPN) 1 +set profile(author,recentNews) {} +set profile(author,smallSetUpperBound) 0 +set profile(author,targetInfoName) {} +set profile(author,timeDefine) 878567355 +set profile(author,timeLastExplain) {} +set profile(author,timeLastInit) 879777702 +set profile(author,welcomeMessage) {} +set profile(author,windowNumber) 4 +set profile(bacon,authentication) {} +set profile(bacon,comstack) tcpip +set profile(bacon,databases) Default +set profile(bacon,description) {} +set profile(bacon,host) bacon.indexdata.dk +set profile(bacon,largeSetLowerBound) 2 +set profile(bacon,maxResultSets) {} +set profile(bacon,maxResultSize) {} +set profile(bacon,maxTerms) {} +set profile(bacon,maximumRecordSize) 50000 +set profile(bacon,mediumSetPresentNumber) 0 +set profile(bacon,multipleDatabases) 0 +set profile(bacon,namedResultSets) 1 +set profile(bacon,port) 9999 +set profile(bacon,preferredMessageSize) 30000 +set profile(bacon,presentChunk) 4 +set profile(bacon,protocol) Z39 +set profile(bacon,queryCCL) 0 +set profile(bacon,queryRPN) 1 +set profile(bacon,recentNews) {} +set profile(bacon,smallSetUpperBound) 0 +set profile(bacon,targetInfoName) {} +set profile(bacon,timeDefine) 878567355 +set profile(bacon,timeLastExplain) {} +set profile(bacon,timeLastInit) {} +set profile(bacon,welcomeMessage) {} +set profile(bacon,windowNumber) 5 +set profile(burns,authentication) {} +set profile(burns,comstack) tcpip +set profile(burns,databases) Default +set profile(burns,description) { } +set profile(burns,host) burns.fdgroup.co.uk +set profile(burns,idAuthentication) {} +set profile(burns,largeSetLowerBound) 2 +set profile(burns,maxResultSets) {} +set profile(burns,maxResultSize) {} +set profile(burns,maxTerms) {} +set profile(burns,maximumRecordSize) 50000 +set profile(burns,mediumSetPresentNumber) 0 +set profile(burns,multipleDatabases) 0 +set profile(burns,namedResultSets) 1 +set profile(burns,port) 9999 +set profile(burns,preferredMessageSize) 30000 +set profile(burns,presentChunk) 4 +set profile(burns,protocol) Z39 +set profile(burns,queryCCL) 0 +set profile(burns,queryRPN) 1 +set profile(burns,recentNews) { } +set profile(burns,smallSetUpperBound) 0 +set profile(burns,targetInfoName) { } +set profile(burns,targetMaxResultSets) {} +set profile(burns,targetMaxResultSize) {} +set profile(burns,targetMaxTerms) {} +set profile(burns,timeDefine) {} +set profile(burns,timeLastExplain) {} +set profile(burns,timeLastInit) 879415443 +set profile(burns,welcomeMessage) { } +set profile(burns,windowNumber) 18 +set profile(dranet,authentication) {} +set profile(dranet,comstack) tcpip +set profile(dranet,databases) drewdb +set profile(dranet,description) dranet +set profile(dranet,host) dranet.dra.com +set profile(dranet,largeSetLowerBound) 2 +set profile(dranet,maxResultSets) {} +set profile(dranet,maxResultSize) {} +set profile(dranet,maxTerms) {} +set profile(dranet,maximumRecordSize) 563840 +set profile(dranet,mediumSetPresentNumber) 0 +set profile(dranet,multipleDatabases) 0 +set profile(dranet,namedResultSets) 1 +set profile(dranet,port) 210 +set profile(dranet,preferredMessageSize) 563840 +set profile(dranet,presentChunk) 4 +set profile(dranet,protocol) Z39 +set profile(dranet,queryCCL) 0 +set profile(dranet,queryRPN) 1 +set profile(dranet,recentNews) {} +set profile(dranet,smallSetUpperBound) 0 +set profile(dranet,targetInfoName) {} +set profile(dranet,timeDefine) 878567355 +set profile(dranet,timeLastExplain) {} +set profile(dranet,timeLastInit) 884950527 +set profile(dranet,welcomeMessage) {} +set profile(dranet,windowNumber) 15 +set profile(gilstest,authentication) {} +set profile(gilstest,comstack) tcpip +set profile(gilstest,databases) Default +set profile(gilstest,description) { } +set profile(gilstest,host) localhost +set profile(gilstest,idAuthentication) {} +set profile(gilstest,largeSetLowerBound) 2 +set profile(gilstest,maxResultSets) {} +set profile(gilstest,maxResultSize) {} +set profile(gilstest,maxTerms) {} +set profile(gilstest,maximumRecordSize) 50000 +set profile(gilstest,mediumSetPresentNumber) 0 +set profile(gilstest,multipleDatabases) 0 +set profile(gilstest,namedResultSets) 1 +set profile(gilstest,port) 9999 +set profile(gilstest,preferredMessageSize) 30000 +set profile(gilstest,presentChunk) 4 +set profile(gilstest,protocol) Z39 +set profile(gilstest,queryCCL) 0 +set profile(gilstest,queryRPN) 1 +set profile(gilstest,recentNews) { } +set profile(gilstest,smallSetUpperBound) 0 +set profile(gilstest,targetInfoName) { } +set profile(gilstest,targetMaxResultSets) {} +set profile(gilstest,targetMaxResultSize) {} +set profile(gilstest,targetMaxTerms) {} +set profile(gilstest,timeDefine) {} +set profile(gilstest,timeLastExplain) {} +set profile(gilstest,timeLastInit) 879779577 +set profile(gilstest,welcomeMessage) { } +set profile(gilstest,windowNumber) 19 +set profile(libris,authentication) {} +set profile(libris,comstack) tcpip +set profile(libris,databases) libr +set profile(libris,description) LIBRIS +set profile(libris,host) z3950.libris.kb.se +set profile(libris,largeSetLowerBound) 2 +set profile(libris,maxResultSets) {} +set profile(libris,maxResultSize) {} +set profile(libris,maxTerms) {} +set profile(libris,maximumRecordSize) 50000 +set profile(libris,mediumSetPresentNumber) 0 +set profile(libris,multipleDatabases) 0 +set profile(libris,namedResultSets) 1 +set profile(libris,port) 210 +set profile(libris,preferredMessageSize) 30000 +set profile(libris,presentChunk) 4 +set profile(libris,protocol) Z39 +set profile(libris,queryCCL) 0 +set profile(libris,queryRPN) 1 +set profile(libris,recentNews) {} +set profile(libris,smallSetUpperBound) 0 +set profile(libris,targetInfoName) {} +set profile(libris,timeDefine) 878567355 +set profile(libris,timeLastExplain) {} +set profile(libris,timeLastInit) {} +set profile(libris,welcomeMessage) {} +set profile(libris,windowNumber) 12 +set profile(madison,authentication) {} +set profile(madison,comstack) tcpip +set profile(madison,databases) madison +set profile(madison,description) {University of Wisconsin-Madison} +set profile(madison,host) z3950.adp.wisc.edu +set profile(madison,largeSetLowerBound) 2 +set profile(madison,maxResultSets) {} +set profile(madison,maxResultSize) {} +set profile(madison,maxTerms) {} +set profile(madison,maximumRecordSize) 16384 +set profile(madison,mediumSetPresentNumber) 0 +set profile(madison,multipleDatabases) 0 +set profile(madison,namedResultSets) 1 +set profile(madison,port) 210 +set profile(madison,preferredMessageSize) 8192 +set profile(madison,presentChunk) 4 +set profile(madison,protocol) Z39 +set profile(madison,queryCCL) 0 +set profile(madison,queryRPN) 1 +set profile(madison,recentNews) {} +set profile(madison,smallSetUpperBound) 0 +set profile(madison,targetInfoName) {} +set profile(madison,timeDefine) 878567355 +set profile(madison,timeLastExplain) {} +set profile(madison,timeLastInit) {} +set profile(madison,welcomeMessage) {} +set profile(madison,windowNumber) 3 +set profile(x,authentication) {} +set profile(x,comstack) tcpip +set profile(x,description) { } +set profile(x,host) {} +set profile(x,largeSetLowerBound) 2 +set profile(x,maxResultSets) {} +set profile(x,maxResultSize) {} +set profile(x,maxTerms) {} +set profile(x,maximumRecordSize) 50000 +set profile(x,mediumSetPresentNumber) 0 +set profile(x,multipleDatabases) 0 +set profile(x,namedResultSets) 1 +set profile(x,port) 210 +set profile(x,preferredMessageSize) 30000 +set profile(x,presentChunk) 4 +set profile(x,protocol) Z39 +set profile(x,queryCCL) 0 +set profile(x,queryRPN) 1 +set profile(x,recentNews) { } +set profile(x,smallSetUpperBound) 0 +set profile(x,targetInfoName) { } +set profile(x,timeDefine) {} +set profile(x,timeLastExplain) {} +set profile(x,timeLastInit) {} +set profile(x,welcomeMessage) { } +set profile(x,windowNumber) 17 +set profile(ztest9999,authentication) {} +set profile(ztest9999,comstack) tcpip +set profile(ztest9999,databases) Default +set profile(ztest9999,description) {YAZ server on localhost} +set profile(ztest9999,host) localhost +set profile(ztest9999,largeSetLowerBound) 2 +set profile(ztest9999,maxResultSets) {} +set profile(ztest9999,maxResultSize) {} +set profile(ztest9999,maxTerms) {} +set profile(ztest9999,maximumRecordSize) 50000 +set profile(ztest9999,mediumSetPresentNumber) 0 +set profile(ztest9999,multipleDatabases) 1 +set profile(ztest9999,namedResultSets) 1 +set profile(ztest9999,port) 9999 +set profile(ztest9999,preferredMessageSize) 30000 +set profile(ztest9999,presentChunk) 4 +set profile(ztest9999,protocol) Z39 +set profile(ztest9999,queryCCL) 0 +set profile(ztest9999,queryRPN) 1 +set profile(ztest9999,recentNews) {} +set profile(ztest9999,smallSetUpperBound) 0 +set profile(ztest9999,targetInfoName) {} +set profile(ztest9999,timeDefine) 878567355 +set profile(ztest9999,timeLastExplain) {} +set profile(ztest9999,timeLastInit) 880111094 +set profile(ztest9999,welcomeMessage) {} +set profile(ztest9999,windowNumber) 7 +set queryTypes {Simple phrase} +set queryButtons {{{I 3} {I 0} {I 0}} {{I 0} {I 1} {I 0}}} +set queryInfo {{{Title {1=4}} {Author {1=1}} {Subject {1=21}} {Any {1=1016}} {Query 1=1016 2=102} {Title-rank 1=4 2=102} {Date/time 1=1012} {Title-regular 1=4 2=3 4=2 5=102} {Ranked 1=1016 2=102 3=3 4=1 6=1}} {{Title 1=4 4=1 6=2} {Author 1=1003 4=1 6=2} {ISBN 1=7} {ISSN 1=8} {Year 1=30 4=4 6=2} {Any {}}}} diff --git a/setup.tcl b/setup.tcl index 4e617da..98a033b 100644 --- a/setup.tcl +++ b/setup.tcl @@ -1,10 +1,13 @@ # IR toolkit for tcl/tk -# (c) Index Data 1995-1996 +# (c) Index Data 1995-1998 # See the file LICENSE for details. # Sebastian Hammer, Adam Dickmeiss # # $Log: setup.tcl,v $ -# Revision 1.2 1997-11-19 11:20:57 adam +# Revision 1.3 1998-01-30 13:30:50 adam +# Name of target database is irtdb.tcl instead of clientrc.tcl. +# +# Revision 1.2 1997/11/19 11:20:57 adam # New target profile format - associative arrrays instead of LONG lists. # # Revision 1.1 1996/09/13 10:54:25 adam @@ -198,10 +201,14 @@ proc target-setup-leave-1 {target} { set w .setup100 set y $w.top.nr - set profileS($target,targetInfoName) [$y.name.text get 0.0 end] - set profileS($target,recentNews) [$y.recentNews.text get 0.0 end] - set profileS($target,description) [$y.description.text get 0.0 end] - set profileS($target,welcomeMessage) [$y.welcome.text get 0.0 end] + set profileS($target,targetInfoName) \ + [string trim [$y.name.text get 0.0 end]] + set profileS($target,recentNews) \ + [string trim [$y.recentNews.text get 0.0 end]] + set profileS($target,description) \ + [string trim [$y.description.text get 0.0 end]] + set profileS($target,welcomeMessage) \ + [string trim [$y.welcome.text get 0.0 end]] set y $w.top.rs } diff --git a/shell.tcl b/shell.tcl index a6a1c92..30fe687 100644 --- a/shell.tcl +++ b/shell.tcl @@ -1,8 +1,13 @@ -# $Id: shell.tcl,v 1.3 1996-08-21 11:24:03 adam Exp $ +# $Id: shell.tcl,v 1.4 1998-01-30 13:30:50 adam Exp $ # source display.tcl -ir z +if {[catch {ir z}]} { + set e [info sharedlibextension] + puts "Loading irtcl$e ..." + load ./irtcl$e irtcl + ir z +} set pref(base) Default set pref(format) usmarc @@ -29,9 +34,14 @@ proc target {name} { z callback {connect-response} if [catch "z connect $name"] { fail-response - } else { + } elseif {$ok == 0} { vwait ok } + if {$ok == 1} { + puts "Connected and initialized." + } else { + puts "Failed." + } return {} } @@ -54,7 +64,6 @@ proc init-response {} { global ok pref set ok 1 - puts "Connected and initialized." ir-set z.1 z } -- 1.7.10.4