/*
- * Copyright (c) 1995-2001, Index Data.
+ * Copyright (c) 1995-2004, Index Data.
*
* Permission to use, copy, modify, distribute, and sell this software and
* its documentation, in whole or in part, for any purpose, is hereby granted,
+------------------------------------------------------
+26/04/04 Release of ir-tcl-1.4.2
+
11/29/03 Added getXml method to retrieve XML record. (Franck Falcoz).
05/03/03 IRTCL.DLL is using Tcl stubs on Win32.
------------------------------------------------------
06/19/95 Release of ir-tcl-1.0b
-$Id: NEWS,v 1.1 2004-04-25 14:41:34 adam Exp $
+$Id: NEWS,v 1.2 2004-04-26 09:09:06 adam Exp $
IrTcl http://www.indexdata.dk/irtcl/
-Copyright (C) 1995-2001, Index Data.
+Copyright (C) 1995-2004, Index Data.
See the file LICENSE for details.
----- $Date: 2001-12-03 18:52:06 $
+---- $Date: 2004-04-26 09:09:06 $
Documentation can be found in the sub directory 'doc'.
+++ /dev/null
-# generated automatically by aclocal 1.7.9 -*- Autoconf -*-
-
-# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
-# Free Software Foundation, Inc.
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-# Use this m4 funciton for autoconf if you use YAZ in your own
-# configure script.
-# YAZ_INIT
-
-AC_DEFUN([YAZ_INIT],
-[
- AC_SUBST(YAZLIB)
- AC_SUBST(YAZLALIB)
- AC_SUBST(YAZINC)
- AC_SUBST(YAZVERSION)
- yazconfig=NONE
- yazpath=NONE
- AC_ARG_WITH(yazconfig, [ --with-yazconfig=DIR yaz-config in DIR (example /home/yaz-1.7)], [yazpath=$withval])
- if test "x$yazpath" != "xNONE"; then
- yazconfig=$yazpath/yaz-config
- else
- if test "x$srcdir" = "x"; then
- yazsrcdir=.
- else
- yazsrcdir=$srcdir
- fi
- for i in ${yazsrcdir}/../yaz* ${yazsrcdir}/../yaz ../yaz* ../yaz; do
- if test -d $i; then
- if test -r $i/yaz-config; then
- yazconfig=$i/yaz-config
- fi
- fi
- done
- if test "x$yazconfig" = "xNONE"; then
- AC_PATH_PROG(yazconfig, yaz-config, NONE)
- fi
- fi
- AC_MSG_CHECKING(for YAZ)
- if $yazconfig --version >/dev/null 2>&1; then
- YAZLIB=`$yazconfig --libs $1`
- # if this is empty, it's a simple version YAZ 1.6 script
- # so we have to source it instead...
- if test "X$YAZLIB" = "X"; then
- . $yazconfig
- else
- YAZLALIB=`$yazconfig --lalibs $1`
- YAZINC=`$yazconfig --cflags $1`
- YAZVERSION=`$yazconfig --version`
- fi
- AC_MSG_RESULT([$yazconfig])
- else
- AC_MSG_RESULT(Not found)
- YAZVERSION=NONE
- fi
- if test "X$YAZVERSION" != "XNONE"; then
- AC_MSG_CHECKING([for YAZ version])
- AC_MSG_RESULT([$YAZVERSION])
- if test "$2"; then
- have_yaz_version=`echo "$YAZVERSION" | awk 'BEGIN { FS = "."; } { printf "%d", ([$]1 * 1000 + [$]2) * 1000 + [$]3;}'`
- req_yaz_version=`echo "$2" | awk 'BEGIN { FS = "."; } { printf "%d", ([$]1 * 1000 + [$]2) * 1000 + [$]3;}'`
- if test "$have_yaz_version" -lt "$req_yaz_version"; then
- AC_MSG_ERROR([$YAZVERSION. Requires $2 or later])
- fi
- fi
- fi
-])
-
#!/usr/bin/make -f
#
-# Script for building Zebra from source to .deb-packages.
-#
# Created by Adam Dickmeiss, based on script by
# Morten Hendriksen <mgh@dbc.dk> and from Joey Hess.
-.\" Copyright (c) 1995, 1996 Index Data
+.\" Copyright (c) 1995-2004 Index Data
.\" All rights reserved.
-.\" $Id: ir-assoc.n,v 1.4 2002-09-16 22:16:10 adam Exp $
+.\" $Id: ir-assoc.n,v 1.5 2004-04-26 09:09:06 adam Exp $
.TH ir-assoc n "24 June 1996" "IrTcl" "IR Association"
.SH NAME
ir \- IR association
-.\" Copyright (c) 1995, 1996 Index Data
+.\" Copyright (c) 1995-2004 Index Data
.\" All rights reserved.
-.\" $Id: ir-scan.n,v 1.2 2002-09-16 22:16:10 adam Exp $
+.\" $Id: ir-scan.n,v 1.3 2004-04-26 09:09:06 adam Exp $
.TH ir-scan n "24 June 1996" "IrTcl" "IR Scan"
.SH NAME
ir-scan \- IR scan
-.\" Copyright (c) 1995, 1996 Index Data
+.\" Copyright (c) 1995-2004 Index Data
.\" All rights reserved.
-.\" $Id: ir-set.n,v 1.5 2002-09-16 22:16:10 adam Exp $
+.\" $Id: ir-set.n,v 1.6 2004-04-26 09:09:06 adam Exp $
.TH ir-set n "24 June 1996" "IrTcl" "IR Set"
.SH NAME
ir-set \- IR set
string token. If the record at the position is not present or is not a
SUTRS record an error is returned.
.TP
+.BI "" zs " getXml " position
+Returns the XML record at the given \fIposition\fR as a single
+string token. If the record at the position is not present or is not a
+XML record an error is returned.
+.TP
.BI "" zs " getGrs " position " [" spec " " spec " " ... "]"
Extracts information about the GRS-1 record at the specified \Iposition\fR.
The \fIspec\fR arguments determine the parts of the GRS-1 record to
<!doctype linuxdoc system>
<!--
- $Id: ir-tcl.sgml,v 1.33 2003-03-05 22:32:36 adam Exp $
+ $Id: ir-tcl.sgml,v 1.34 2004-04-26 09:09:06 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>$Date: 2003-03-05 22:32:36 $
+<date>$Date: 2004-04-26 09:09:06 $
<abstract>
-IrTcl version 1.4.1 -- a Tcl extension that allows you to build
+IrTcl version 1.4.2 -- a Tcl extension that allows you to build
Z39.50 clients.
</abstract>
In <sf/IrTcl/ a SUTRS record is treated as one single string. To retrieve
a SUTRS record use the <tt>getSutrs</tt> followed by an index.
+<sect1>XML
+
+<p>
+In <sf/IrTcl/ an XML record is treated as one single string. To retrieve
+a XML record use the <tt>getXml</tt> followed by an index.
+
<sect1>GRS-1
<p>
A GRS-1 record in <sf/IrTcl/ is represented as a list of elements.
<sect>License
<p>
-Copyright © 1995-2003, Index Data ApS.
+Copyright © 1995-2004, Index Data ApS.
Permission to use, copy, modify, distribute, and sell this software and
its documentation, in whole or in part, for any purpose, is hereby granted,
projects / ir-tcl-moved-to-github.git / commitdiff