X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=select.c;h=d9baf65ac446e3a6498a469a101017389710f2ad;hb=f4dfdf10de44985020d90581aa426d106dddc542;hp=2c0319bf22ec7271572bdaaea4d763a22666124a;hpb=ddc1fe181cb079af835166126fa052e2378e930b;p=ir-tcl-moved-to-github.git diff --git a/select.c b/select.c index 2c0319b..d9baf65 100644 --- a/select.c +++ b/select.c @@ -1,11 +1,17 @@ /* * 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.5 1997-09-09 10:19:55 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 @@ -25,7 +31,7 @@ */ #include -#include +#include #include "ir-tcl.h" #if TCL_MAJOR_VERSION == 8 @@ -151,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);