X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=ir-tcl.h;h=7e2db186a04a5b9cd49d7919cf957325ccc40bc4;hb=0c66cddf6e923db676ed30691cd1d47b50db0d4a;hp=b89a437d5c42f93736faef5976e9321c9c5be92a;hpb=ed6b88adb8132f4668c60113532d5c2da34523e7;p=ir-tcl-moved-to-github.git

diff --git a/ir-tcl.h b/ir-tcl.h
index b89a437..7e2db18 100644
--- a/ir-tcl.h
+++ b/ir-tcl.h
@@ -23,12 +23,25 @@
  * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
  * OF THIS SOFTWARE.
  *
- * IR toolkit for tcl/tk
- * (c) Index Data 1995
- * Sebastian Hammer, Adam Dickmeiss
- *
  * $Log: ir-tcl.h,v $
- * Revision 1.7  1995-05-29 08:44:23  adam
+ * 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
+ * New define: IR_TCL_VERSION.
+ *
+ * Revision 1.7  1995/05/29  08:44:23  adam
  * Work on delete of objects.
  *
  * Revision 1.6  1995/05/23  15:34:49  adam
@@ -50,12 +63,26 @@
 #ifndef IR_TCL_H
 #define IR_TCL_H
 
-int ir_tcl_init (Tcl_Interp *interp);
+#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);