X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;f=ir-tcl.h;h=249197f8a48755b7adc86f53bdbbc917a7bf4394;hb=0d087b0c2c1f3eff36fad7f1e78e2b8438ea7258;hp=7e2db186a04a5b9cd49d7919cf957325ccc40bc4;hpb=0c66cddf6e923db676ed30691cd1d47b50db0d4a;p=ir-tcl-moved-to-github.git

diff --git a/ir-tcl.h b/ir-tcl.h
index 7e2db18..249197f 100644
--- a/ir-tcl.h
+++ b/ir-tcl.h
@@ -24,7 +24,15 @@
  * OF THIS SOFTWARE.
  *
  * $Log: ir-tcl.h,v $
- * Revision 1.12  1996-02-05 17:58:04  adam
+ * 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 +71,9 @@
 #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
-
 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