From fbc04d171cd11ec16b9141dda95699323762a00b Mon Sep 17 00:00:00 2001
From: fcolin
Date: Thu, 26 May 2005 14:37:35 +0000
Subject: passage du separateur de message a \0 suppression des fonctions
 IvyChannel dynamique on se repose sur le linker modif des adresses mails

---
 src/ivytcl.c | 28 +++++++++++++---------------
 1 file changed, 13 insertions(+), 15 deletions(-)

(limited to 'src/ivytcl.c')

diff --git a/src/ivytcl.c b/src/ivytcl.c
index 74ed129..406bbd9 100755
--- a/src/ivytcl.c
+++ b/src/ivytcl.c
@@ -6,7 +6,7 @@
  *
  * 	Main loop based on Tcl
  *
- *	Authors: François-Régis Colin <fcolin@cena.dgac.fr>
+ *	Authors: François-Régis Colin <fcolin@cena.fr>
  *
  *	$Id$
  * 
@@ -38,9 +38,6 @@
 // mais il y a des problemes sur les socket server 
 // Il n'y a pas de Tcl_MakeTCPserver
 
-ChannelInit channel_init = IvyTclChannelInit;
-ChannelSetUp channel_setup = IvyTclChannelSetUp;
-ChannelClose channel_close = IvyTclChannelClose;
 
 struct _channel {
 	HANDLE fd;
@@ -59,7 +56,7 @@ static int channel_initialized = 0;
 WSADATA WsaData;
 #endif
 
-void IvyTclChannelInit(void)
+void IvyChannelInit(void)
 {
 #ifdef WIN32
 	int error;
@@ -78,6 +75,15 @@ void IvyTclChannelInit(void)
 #endif
 	channel_initialized = 1;
 }
+void IvyChannelStop(void)
+{
+	channel_initialized = 0;
+
+#ifndef TCL_CHANNEL_INTEGRATION
+	Tcl_CancelIdleCall(IvyIdleProc,0);
+#endif
+
+}
 static void
 IvyHandleFd(ClientData	cd,
 	    int		mask)
@@ -93,7 +99,7 @@ IvyHandleFd(ClientData	cd,
   }
 }
 
-void IvyTclChannelClose( Channel channel )
+void IvyChannelClose( Channel channel )
 {
 
 	if ( channel->handle_delete )
@@ -103,7 +109,7 @@ void IvyTclChannelClose( Channel channel )
 }
 
 
-Channel IvyTclChannelSetUp(HANDLE fd, void *data,
+Channel IvyChannelOpen(HANDLE fd, void *data,
 				ChannelHandleDelete handle_delete,
 				ChannelHandleRead handle_read
 				)						
@@ -137,14 +143,6 @@ void IvyIdleProc(ClientData clientData)
 }
 #endif
 
-void
-TclIvyStop ()
-{
-  /* To be implemented */
-#ifndef TCL_CHANNEL_INTEGRATION
-	Tcl_CancelIdleCall(IvyIdleProc,0);
-#endif
-}
 /* Code from PLC */
 
 #define INTEGER_SPACE 30
-- 
cgit v1.1