X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=ir-tcl.h;h=36fdf3acff762a43e531db63d32878524b43d960;hb=c10f5ecfbd81e3a9bda4cca310e13b066a520f4a;hp=0bdd391f5858076ec8ce1e5349d5372475ef64f5;hpb=941b89a3842de3606ed065d1594e1e17d9ad8cd7;p=ir-tcl-moved-to-github.git

diff --git a/ir-tcl.h b/ir-tcl.h
index 0bdd391..36fdf3a 100644
--- a/ir-tcl.h
+++ b/ir-tcl.h
@@ -24,7 +24,22 @@
  * OF THIS SOFTWARE.
  *
  * $Log: ir-tcl.h,v $
- * Revision 1.9  1995-06-19 13:54:21  adam
+ * 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
+ * Support of dynamic loading.
+ * Test script uses load command if necessary.
+ *
+ * Revision 1.10  1995/06/22  07:15:59  adam
+ * Version number moved to Makefile.in
+ * Some work on autoconf.
+ *
+ * Revision 1.9  1995/06/19  13:54:21  adam
  * New version.
  *
  * Revision 1.8  1995/06/19  13:06:08  adam
@@ -52,14 +67,26 @@
 #ifndef IR_TCL_H
 #define IR_TCL_H
 
-#define IR_TCL_VERSION "1.0beta"
+#if 0
+#define IRTCL_GENERIC_FILES 1
+#else
+#define IRTCL_GENERIC_FILES 0
+#endif
 
-int ir_tcl_init (Tcl_Interp *interp);
+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);