Towards IRTCL 1.4.2

diff --git a/LICENSE b/LICENSE
index 5e59e8a..7727c4a 100644 (file)
--- 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,
  *
  * 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 (file)
--- 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. 
 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
 
 ------------------------------------------------------
 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 (file)
--- a/README
+++ b/README
@@ -1,10 +1,10 @@
 
 IrTcl http://www.indexdata.dk/irtcl/
  
 
 IrTcl http://www.indexdata.dk/irtcl/
  

-Copyright (C) 1995-2001, Index Data.
+Copyright (C) 1995-2004, Index Data.

 See the file LICENSE for details.
 
 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'.
 
 
 Documentation can be found in the sub directory 'doc'.
 

diff --git a/aclocal.m4 b/aclocal.m4
deleted file mode 100644 (file)
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 (executable)
--- a/debian/rules
+++ b/debian/rules
@@ -1,7 +1,5 @@
 #!/usr/bin/make -f
 # 
 #!/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.
 
 # Created by Adam Dickmeiss, based on script by
 # Morten Hendriksen <mgh@dbc.dk>  and from Joey Hess.
 

diff --git a/doc/ir-assoc.n b/doc/ir-assoc.n
index 94a44e6..755587c 100644 (file)
--- 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.
 .\" 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 
 .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 (file)
--- 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.
 .\" 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
 .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 (file)
--- 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.
 .\" 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
 .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
 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
 .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 (file)
--- a/doc/ir-tcl.sgml
+++ b/doc/ir-tcl.sgml
@@ -1,16 +1,16 @@
 <!doctype linuxdoc system>
 
 <!--
 <!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>
 -->
 
 <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>
 <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>
 
 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.
 
 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. 
 <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>
 <sect>License
 
 <p>

-Copyright &copy; 1995-2003, Index Data ApS.
+Copyright &copy; 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,
 
 Permission to use, copy, modify, distribute, and sell this software and
 its documentation, in whole or in part, for any purpose, is hereby granted,