From 0eb5a3ba349b5b0a544ccd68b8a54f88cfba691d Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Fri, 9 Aug 1996 15:33:05 +0000
Subject: [PATCH] Modified the code to use tk4.1/tcl7.5 patch level 1. The
 time-driven polling is no longer activated on Windows since
 asynchrounous I/O works better.

---
 CHANGELOG |    8 +++++++-
 README    |    4 ++--
 ir-tcl.c  |   17 +++++++++++++++--
 3 files changed, 24 insertions(+), 5 deletions(-)

diff --git a/CHANGELOG b/CHANGELOG
index c0d5ddf..5e70764 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,4 +1,4 @@
-$Id: CHANGELOG,v 1.25 1996-07-26 09:15:06 adam Exp $
+$Id: CHANGELOG,v 1.26 1996-08-09 15:33:05 adam Exp $
 
 06/19/95 Release of ir-tcl-1.0b
 ------------------------------------------------------
@@ -97,3 +97,9 @@ $Id: CHANGELOG,v 1.25 1996-07-26 09:15:06 adam Exp $
 
 07/26/96 Release of ir-tcl-1.2pl1
 ------------------------------------------------------
+
+08/09/96 Updated IrTcl to work with Tcl7.5/tk4.1 patch level 1. The
+         asynchronous I/O works much better on Windows now.
+
+08/09/96 Borland C 5 makefile supplied with IrTcl.
+         
diff --git a/README b/README
index 7e5d918..3543d47 100644
--- a/README
+++ b/README
@@ -5,9 +5,9 @@
 
 IrTcl version 1.2pl1
 
----- $Date: 1996-07-26 09:15:07 $
+---- $Date: 1996-08-09 15:33:05 $
 
-Information about Tcl can be found at http://www.indexdata.dk/irtcl.html.
+Information about IrTcl can be found at http://www.indexdata.dk/irtcl.html.
 This page contains pointers to documentation in various formats.
 
 To get more information or assistance, send mail to yaz-help@index.ping.dk.
diff --git a/ir-tcl.c b/ir-tcl.c
index a9742c1..1271e6f 100644
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -5,7 +5,12 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.91  1996-07-03 13:31:11  adam
+ * Revision 1.92  1996-08-09 15:33:07  adam
+ * Modified the code to use tk4.1/tcl7.5 patch level 1. The time-driven
+ * polling is no longer activated on Windows since asynchrounous I/O works
+ * better.
+ *
+ * Revision 1.91  1996/07/03  13:31:11  adam
  * The xmalloc/xfree functions from YAZ are used to manage memory.
  *
  * Revision 1.90  1996/06/27  14:21:00  adam
@@ -327,7 +332,11 @@
 
 #include <stdlib.h>
 #include <stdio.h>
+#ifdef WINDOWS
+
+#else
 #include <unistd.h>
+#endif
 #include <time.h>
 #include <assert.h>
 
@@ -925,7 +934,11 @@ static int do_implementationVersion (void *obj, Tcl_Interp *interp,
 
     if (argc == 0)
         return ir_tcl_strdup (interp, &p->implementationVersion, 
-                          "YAZ: " YAZ_VERSION " / IrTcl: " IR_TCL_VERSION);
+                          "YAZ: " YAZ_VERSION
+#ifdef IR_TCL_VERSION
+                          " / Irtcl: " IR_TCL_VERSION
+#endif
+                          );
     else if (argc == -1)
         return ir_tcl_strdel (interp, &p->implementationVersion);
     Tcl_AppendResult (interp, p->implementationVersion, (char*) NULL);
-- 
1.7.10.4