X-Git-Url: http://git.indexdata.com/?p=ir-tcl-moved-to-github.git;a=blobdiff_plain;f=ir-tcl.h;h=54f6d8a2ebb87f1bb8a417f11e5eb1f22b9dab93;hp=7e2db186a04a5b9cd49d7919cf957325ccc40bc4;hb=HEAD;hpb=0c66cddf6e923db676ed30691cd1d47b50db0d4a diff --git a/ir-tcl.h b/ir-tcl.h index 7e2db18..54f6d8a 100644 --- a/ir-tcl.h +++ b/ir-tcl.h @@ -1,5 +1,5 @@ /* - * Copyright (c) 1995, Index Data. + * Copyright (c) 1995-1996, Index Data. * * Permission to use, copy, modify, distribute, and sell this software and * its documentation, in whole or in part, for any purpose, is hereby granted, @@ -24,7 +24,25 @@ * OF THIS SOFTWARE. * * $Log: ir-tcl.h,v $ - * Revision 1.12 1996-02-05 17:58:04 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. + * + * Revision 1.15 1996/07/26 09:15:09 adam + * IrTcl version 1.2 patch level 1. + * + * Revision 1.14 1996/02/21 10:16:19 adam + * Simplified select handling. Only one function ir_tcl_select_set has + * to be externally defined. + * + * Revision 1.13 1996/02/19 15:41:54 adam + * Better log messages. + * Minor improvement of connect method. + * + * Revision 1.12 1996/02/05 17:58:04 adam * Ported ir-tcl to use the beta releases of tcl7.5/tk4.1. * * Revision 1.11 1995/09/21 13:11:52 adam @@ -63,27 +81,11 @@ #ifndef IR_TCL_H #define IR_TCL_H -#if TCL_MAJOR_VERSION > 7 || (TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION >= 5) -#define IRTCL_GENERIC_FILES 1 -#else -#define IRTCL_GENERIC_FILES 0 -#endif - +#ifndef WIN32 int Irtcl_Init (Tcl_Interp *interp); - -#if IRTCL_GENERIC_FILES -void ir_select_add (Tcl_File file, void *obj); -void ir_select_add_write (Tcl_File file, void *obj); -void ir_select_remove (Tcl_File file, void *obj); -void ir_select_remove_write (Tcl_File file, void *obj); -#else -void ir_select_add (int fd, void *obj); -void ir_select_add_write (int fd, void *obj); -void ir_select_remove (int fd, void *obj); -void ir_select_remove_write (int fd, void *obj); #endif -void ir_select_read (ClientData clientData); -void ir_select_write (ClientData clientData); - +void *ir_tcl_malloc (size_t size); +void ir_tcl_select_set (void (*f)(ClientData clientData, int r, int w, int e), + int fd, ClientData clientData, int r, int w, int e); #endif