From: Adam Dickmeiss Date: Mon, 26 Apr 2004 09:09:06 +0000 (+0000) Subject: Towards IRTCL 1.4.2 X-Git-Tag: IRTCL.1.4.2~7 X-Git-Url: http://git.indexdata.com/?p=ir-tcl-moved-to-github.git;a=commitdiff_plain;h=42bef6a809c5b289e12f82f7ac8424689249409a Towards IRTCL 1.4.2 --- diff --git a/LICENSE b/LICENSE index 5e59e8a..7727c4a 100644 --- a/LICENSE +++ b/LICENSE @@ -1,5 +1,5 @@ /* - * 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, diff --git a/NEWS b/NEWS index c3331bb..f87c965 100644 --- a/NEWS +++ b/NEWS @@ -1,3 +1,6 @@ +------------------------------------------------------ +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. @@ -170,4 +173,4 @@ ------------------------------------------------------ 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 $ diff --git a/README b/README index c3cd592..1fd18aa 100644 --- a/README +++ b/README @@ -1,10 +1,10 @@ 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'. diff --git a/aclocal.m4 b/aclocal.m4 deleted file mode 100644 index 6d3b054..0000000 --- a/aclocal.m4 +++ /dev/null @@ -1,75 +0,0 @@ -# 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 -]) - diff --git a/debian/rules b/debian/rules index 43b2a53..ece0497 100755 --- a/debian/rules +++ b/debian/rules @@ -1,7 +1,5 @@ #!/usr/bin/make -f # -# Script for building Zebra from source to .deb-packages. -# # Created by Adam Dickmeiss, based on script by # Morten Hendriksen and from Joey Hess. diff --git a/doc/ir-assoc.n b/doc/ir-assoc.n index 94a44e6..755587c 100644 --- a/doc/ir-assoc.n +++ b/doc/ir-assoc.n @@ -1,6 +1,6 @@ -.\" 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 diff --git a/doc/ir-scan.n b/doc/ir-scan.n index f71b85e..0c28425 100644 --- a/doc/ir-scan.n +++ b/doc/ir-scan.n @@ -1,6 +1,6 @@ -.\" 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 diff --git a/doc/ir-set.n b/doc/ir-set.n index 299cc1d..74f0a73 100644 --- a/doc/ir-set.n +++ b/doc/ir-set.n @@ -1,6 +1,6 @@ -.\" 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 @@ -154,6 +154,11 @@ Returns the SUTRS record at the given \fIposition\fR as a single 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 diff --git a/doc/ir-tcl.sgml b/doc/ir-tcl.sgml index 1bb7b7b..40ce2b4 100644 --- a/doc/ir-tcl.sgml +++ b/doc/ir-tcl.sgml @@ -1,16 +1,16 @@
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> @@ -1105,6 +1105,12 @@ record. 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. @@ -1408,7 +1414,7 @@ been created. <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,