# (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
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"; \
# 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
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.
}
# 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 {} {
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"
+++ /dev/null
-# 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 {}}}}
<!doctype linuxdoc system>
<!--
- $Id: ir-tcl.sgml,v 1.26 1998-01-16 11:30:44 adam Exp $
+ $Id: ir-tcl.sgml,v 1.27 1998-01-30 13:30:50 adam Exp $
-->
<article>
<title>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.
<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>
<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>.
<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).
--- /dev/null
+# 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 {}}}}
# 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
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
}
-# $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
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 {}
}
global ok pref
set ok 1
- puts "Connected and initialized."
ir-set z.1 z
}
projects / ir-tcl-moved-to-github.git / commitdiff