/*
* 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.
*
*/
#include <tcl.h>
-#include <log.h>
+#include <yaz/log.h>
#include "ir-tcl.h"
#if TCL_MAJOR_VERSION == 8
(*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
*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);