From a7caf27a7125f7be3aa5e8c8c1a5f806f2a51a17 Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Thu, 11 Feb 1999 11:30:08 +0000
Subject: [PATCH] Updated for WIN32.

---
 client.tcl |    9 ++++++---
 ir-tcl.c   |    7 +++++--
 ir-tcl.h   |    7 +++++--
 irtdb.tcl  |    4 ++--
 select.c   |    7 +++++--
 5 files changed, 23 insertions(+), 11 deletions(-)

diff --git a/client.tcl b/client.tcl
index 9112e98..e0a2d1d 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.106  1998-06-10 13:22:47  adam
+# Revision 1.107  1999-02-11 11:30:08  adam
+# Updated for WIN32.
+#
+# Revision 1.106  1998/06/10 13:22:47  adam
 # Minor changes.
 #
 # Revision 1.105  1998/06/10 13:00:45  adam
@@ -817,8 +820,8 @@ if {[catch {set g $windowGeometry(.)}]} {
 # to a default value or to the value in windowGeometry(.)
 toplevelG .init
 place-force .init .
-message .init.top -text "IrTcl" -relief raised -border 1 -font $font(bb,normal)
-text .init.msg -width 30 -height 4
+message .init.top -aspect 500 -text "IrTcl" -relief raised -border 1 -font $font(bb,normal)
+text .init.msg -width 40 -height 4
 pack .init.top -side top -fill x -expand yes
 pack .init.msg -side bottom -fill both -expand yes
 wm iconify .
diff --git a/ir-tcl.c b/ir-tcl.c
index 0784461..ebaf76e 100644
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -5,7 +5,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.110  1998-10-20 15:15:31  adam
+ * Revision 1.111  1999-02-11 11:30:09  adam
+ * Updated for WIN32.
+ *
+ * Revision 1.110  1998/10/20 15:15:31  adam
  * Changed scan response handler.
  *
  * Revision 1.109  1998/10/13 21:23:26  adam
@@ -391,7 +394,7 @@
 
 #include <stdlib.h>
 #include <stdio.h>
-#ifdef WINDOWS
+#ifdef WIN32
 
 #else
 #include <unistd.h>
diff --git a/ir-tcl.h b/ir-tcl.h
index 213a935..54f6d8a 100644
--- a/ir-tcl.h
+++ b/ir-tcl.h
@@ -24,7 +24,10 @@
  * OF THIS SOFTWARE.
  *
  * $Log: ir-tcl.h,v $
- * Revision 1.16  1997-04-13 18:57:28  adam
+ * Revision 1.17  1999-02-11 11:30:11  adam
+ * Updated for WIN32.
+ *
+ * Revision 1.16  1997/04/13 18:57:28  adam
  * Better error reporting and aligned with Tcl/Tk style.
  * Rework of notifier code with Tcl_File handles.
  *
@@ -78,7 +81,7 @@
 #ifndef IR_TCL_H
 #define IR_TCL_H
 
-#ifndef WINDOWS
+#ifndef WIN32
 int Irtcl_Init (Tcl_Interp *interp);
 #endif
 
diff --git a/irtdb.tcl b/irtdb.tcl
index aa8ff5c..a7fd700 100644
--- a/irtdb.tcl
+++ b/irtdb.tcl
@@ -23,7 +23,7 @@ set profile(BIBSYS,smallSetUpperBound) 0
 set profile(BIBSYS,targetInfoName) {}
 set profile(BIBSYS,timeDefine) 878567355
 set profile(BIBSYS,timeLastExplain) {}
-set profile(BIBSYS,timeLastInit) 887288330
+set profile(BIBSYS,timeLastInit) 918732216
 set profile(BIBSYS,welcomeMessage) {}
 set profile(BIBSYS,windowNumber) 3
 set {profile(Bell Laboratories Library Network,authentication)} {}
@@ -192,7 +192,7 @@ set profile(LOC,targetMaxResultSize) {}
 set profile(LOC,targetMaxTerms) {}
 set profile(LOC,timeDefine) 878567355
 set profile(LOC,timeLastExplain) {}
-set profile(LOC,timeLastInit) 897485131
+set profile(LOC,timeLastInit) 918732361
 set profile(LOC,welcomeMessage) {}
 set profile(LOC,windowNumber) 12
 set {profile(OCLC FirstSearch,authentication)} {}
diff --git a/select.c b/select.c
index 2c0319b..a661ae4 100644
--- a/select.c
+++ b/select.c
@@ -5,7 +5,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: select.c,v $
- * Revision 1.5  1997-09-09 10:19:55  adam
+ * Revision 1.6  1999-02-11 11:30:13  adam
+ * Updated for WIN32.
+ *
+ * Revision 1.5  1997/09/09 10:19:55  adam
  * New MSV5.0 port with fewer warnings.
  *
  * Revision 1.4  1997/08/28 20:20:48  adam
@@ -151,7 +154,7 @@ void ir_tcl_select_set (void (*f)(ClientData clientData, int r, int w, int e),
         *sp = ir_tcl_malloc (sizeof(**sp));
         (*sp)->next = NULL;
         (*sp)->fd = fd;
-#if WINDOWS
+#if WIN32
         (*sp)->tcl_File = Tcl_GetFile ((ClientData) fd, TCL_WIN_SOCKET);
 #else
         (*sp)->tcl_File = Tcl_GetFile ((ClientData) fd, TCL_UNIX_FD);
-- 
1.7.10.4