Change HANDLE to IVY_HANDLE to match latest ivy-c changes

4 files changed, 12 insertions, 12 deletions

diff --git a/cglibivy.c b/cglibivy.c
index 228246d..8241b70 100644
--- a/cglibivy.c
+++ b/cglibivy.c
@@ -20,8 +20,8 @@ value ivy_GtkmainLoop(value unit)
 }
 
 extern void cb_delete_channel(void *delete_read);
-extern void cb_read_channel(Channel ch, HANDLE fd, void *closure);
-extern void cb_write_channel(Channel ch, HANDLE fd, void *closure);
+extern void cb_read_channel(Channel ch, IVY_HANDLE fd, void *closure);
+extern void cb_write_channel(Channel ch, IVY_HANDLE fd, void *closure);
 
 value ivy_GtkchannelSetUp(value fd, value closure_name)
 {
@@ -29,9 +29,9 @@ value ivy_GtkchannelSetUp(value fd, value closure_name)
   value * closure = caml_named_value(String_val(closure_name));
 
 #if IVYMINOR_VERSION == 8
-  c = IvyChannelAdd((HANDLE)Int_val(fd), (void*)closure, cb_delete_channel, cb_read_channel);
+  c = IvyChannelAdd((IVY_HANDLE)Int_val(fd), (void*)closure, cb_delete_channel, cb_read_channel);
 #else
-  c = IvyChannelAdd((HANDLE)Int_val(fd), (void*)closure, cb_delete_channel, cb_read_channel, cb_write_channel);
+  c = IvyChannelAdd((IVY_HANDLE)Int_val(fd), (void*)closure, cb_delete_channel, cb_read_channel, cb_write_channel);
 #endif
   return Val_int(c);
 }
diff --git a/civy.c b/civy.c
index 1556118..563f7ec 100644
--- a/civy.c
+++ b/civy.c
@@ -83,11 +83,11 @@ void cb_delete_channel(void *delete_read)
 {
 }
 
-void cb_write_channel(Channel ch, HANDLE fd, void *closure)
+void cb_write_channel(Channel ch, IVY_HANDLE fd, void *closure)
 {
 }
 
-void cb_read_channel(Channel ch, HANDLE fd, void *closure)
+void cb_read_channel(Channel ch, IVY_HANDLE fd, void *closure)
 {
   callback(*(value*)closure, Val_int(ch));
 }
diff --git a/civyloop.c b/civyloop.c
index 4ff0a93..083b104 100644
--- a/civyloop.c
+++ b/civyloop.c
@@ -39,8 +39,8 @@ value ivy_timerRepeatafter(value nb_ticks,value delay, value closure_name)
 read closures */
 
 extern void cb_delete_channel(void *delete_read);
-extern void cb_read_channel(Channel ch, HANDLE fd, void *closure);
-extern void cb_write_channel(Channel ch, HANDLE fd, void *closure);
+extern void cb_read_channel(Channel ch, IVY_HANDLE fd, void *closure);
+extern void cb_write_channel(Channel ch, IVY_HANDLE fd, void *closure);
 
 
 value ivy_channelSetUp(value fd, value closure_name)
@@ -49,9 +49,9 @@ value ivy_channelSetUp(value fd, value closure_name)
   value * closure = caml_named_value(String_val(closure_name));
 
 #if IVYMINOR_VERSION == 8
-  c = IvyChannelAdd((HANDLE)Int_val(fd), (void*)closure, cb_delete_channel, cb_read_channel);
+  c = IvyChannelAdd((IVY_HANDLE)Int_val(fd), (void*)closure, cb_delete_channel, cb_read_channel);
 #else
-  c = IvyChannelAdd((HANDLE)Int_val(fd), (void*)closure, cb_delete_channel, cb_read_channel, cb_write_channel);
+  c = IvyChannelAdd((IVY_HANDLE)Int_val(fd), (void*)closure, cb_delete_channel, cb_read_channel, cb_write_channel);
 #endif
   return Val_int(c);
 }
diff --git a/ctkivy.c b/ctkivy.c
index ae31560..87b7eb6 100644
--- a/ctkivy.c
+++ b/ctkivy.c
@@ -11,7 +11,7 @@
 #include "ivytcl.h"
 
 extern void cb_delete_channel(void *delete_read);
-extern void cb_read_channel(Channel ch, HANDLE fd, void *closure);
+extern void cb_read_channel(Channel ch, IVY_HANDLE fd, void *closure);
 
 value ivy_TclmainLoop(value unit)
 {
@@ -25,7 +25,7 @@ value ivy_TclchannelSetUp(value fd, value closure_name)
   Channel c;
   value * closure = caml_named_value(String_val(closure_name));
 
-  c = IvyTclChannelSetUp((HANDLE)Int_val(fd), (void*)closure, cb_delete_channel, cb_read_channel);
+  c = IvyTclChannelSetUp((IVY_HANDLE)Int_val(fd), (void*)closure, cb_delete_channel, cb_read_channel);
   return Val_int(c);
 }