X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;ds=sidebyside;f=ir-tcl.h;h=39b24344088a48449defaaa8ec7b7d9851845952;hb=666316a92ba28594acd7e2611f3a05be34f14722;hp=36fdf3acff762a43e531db63d32878524b43d960;hpb=c10f5ecfbd81e3a9bda4cca310e13b066a520f4a;p=ir-tcl-moved-to-github.git diff --git a/ir-tcl.h b/ir-tcl.h index 36fdf3a..39b2434 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,14 @@ * OF THIS SOFTWARE. * * $Log: ir-tcl.h,v $ - * Revision 1.13 1996-02-19 15:41:54 adam + * 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. * @@ -67,27 +74,9 @@ #ifndef IR_TCL_H #define IR_TCL_H -#if 0 -#define IRTCL_GENERIC_FILES 1 -#else -#define IRTCL_GENERIC_FILES 0 -#endif - 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