-#if IRTCL_GENERIC_FILES
-void ir_select_add_write (Tcl_File file, void *obj)
-{
- int fd = (int) Tcl_GetFileInfo (file, NULL);
-#else
-void ir_select_add_write (int fd, void *obj)
-{
-#endif
- callback_table[fd].w_handle = ir_select_write;
- if (fd > max_fd)
- max_fd = fd;
-}
-
-#if IRTCL_GENERIC_FILES
-void ir_select_remove_write (Tcl_File file, void *obj)
-{
- int fd = (int) Tcl_GetFileInfo (file, NULL);
-#else
-void ir_select_remove_write (int fd, void *obj)
-{
-#endif
- callback_table[fd].w_handle = NULL;
-}
-
-#if IRTCL_GENERIC_FILES
-void ir_select_remove (Tcl_File file, void *obj)
-{
- int fd = (int) Tcl_GetFileInfo (file, NULL);
-#else
-void ir_select_remove (int fd, void *obj)
-{
-#endif
- callback_table[fd].r_handle = NULL;
- callback_table[fd].w_handle = NULL;
- callback_table[fd].x_handle = NULL;
-}