X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=select.c;h=d9baf65ac446e3a6498a469a101017389710f2ad;hb=4c44d731206d69f822cbe47b0c91e45bb4ff935d;hp=f16cf5fc7dad97c65b2beb0215e22f9d48c4dd40;hpb=4b0a2dcc8145c6b721a23c2a9bfe9f3f9596fb5a;p=ir-tcl-moved-to-github.git

diff --git a/select.c b/select.c
index f16cf5f..d9baf65 100644
--- a/select.c
+++ b/select.c
@@ -1,11 +1,20 @@
 /*
  * IR toolkit for tcl/tk
- * (c) Index Data 1996
+ * (c) Index Data 1996-1999
  * See the file LICENSE for details.
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: select.c,v $
- * Revision 1.4  1997-08-28 20:20:48  adam
+ * Revision 1.7  1999-11-30 14:05:58  adam
+ * Updated for new location of YAZ headers.
+ *
+ * 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
  * Added support for Tk8.0/Tcl8.0. Since Tcl_File handlers are gone
  * we've moved to Tcl_Channel handlers instead.
  *
@@ -22,7 +31,7 @@
  */
 
 #include <tcl.h>
-#include <log.h>
+#include <yaz/log.h>
 #include "ir-tcl.h"
 
 #if TCL_MAJOR_VERSION == 8
@@ -87,7 +96,8 @@ void ir_tcl_select_set (void (*f)(ClientData clientData, int r, int w, int e),
     (*sp)->f = f;
     (*sp)->clientData = clientData;
     Tcl_CreateChannelHandler ((*sp)->tcl_Channel, mask,
-                              ir_tcl_tk_select_proc, *sp);
+                              ir_tcl_tk_select_proc,
+			      (ClientData) *sp);
 }
 #endif
 
@@ -147,7 +157,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);