diff options
author | fourdan | 2007-02-14 13:00:40 +0000 |
---|---|---|
committer | fourdan | 2007-02-14 13:00:40 +0000 |
commit | 018219f2fc25f76e83f4111455d7a6c678223482 (patch) | |
tree | 5cf2b45e4bda9206998ec943e476e86bf3cd9bfe /src/ivytcl.c | |
parent | 30748deeab75a17254aba6696d137037ff2e2294 (diff) | |
download | ivy-c-018219f2fc25f76e83f4111455d7a6c678223482.zip ivy-c-018219f2fc25f76e83f4111455d7a6c678223482.tar.gz ivy-c-018219f2fc25f76e83f4111455d7a6c678223482.tar.bz2 ivy-c-018219f2fc25f76e83f4111455d7a6c678223482.tar.xz |
Include patches from Michel Estienne <estienne@cena.fr> for older gcc
Diffstat (limited to 'src/ivytcl.c')
-rw-r--r-- | src/ivytcl.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/ivytcl.c b/src/ivytcl.c index a43821a..5f70a5a 100644 --- a/src/ivytcl.c +++ b/src/ivytcl.c @@ -33,11 +33,11 @@ #include "ivy.h" #include "timer.h" -// defined or not in the Makefile only +/* defined or not in the Makefile only */ #ifdef TCL_CHANNEL_INTEGRATION -// On utilisa la boucle Standard TCL -// mais il y a des problemes sur les socket server -// Il n'y a pas de Tcl_MakeTCPserver +/* On utilisa la boucle Standard TCL */ +/* mais il y a des problemes sur les socket server */ +/* Il n'y a pas de Tcl_MakeTCPserver */ struct _channel { HANDLE fd; @@ -126,7 +126,7 @@ Channel IvyChannelAdd(HANDLE fd, void *data, } #else -// On utilisa la procedure Idle et la boucle Standard Ivy +/* On utilisa la procedure Idle et la boucle Standard Ivy */ void IvyIdleProc(ClientData clientData) { IvyIdle(); @@ -397,11 +397,11 @@ IvyBindCmd(ClientData clientData, } filter = (filter_struct *) ckalloc(sizeof(filter_struct)); - filter->filter = ckalloc(strlen(argv[1])+1); // regexp + filter->filter = ckalloc(strlen(argv[1])+1); /* regexp */ strcpy(filter->filter, argv[1]); - filter->script = ckalloc(strlen(argv[2])+1); // callback proc name + filter->script = ckalloc(strlen(argv[2])+1); /* callback proc name */ strcpy(filter->script, argv[2]); - filter->id = IvyBindMsg(IvyMsgCB, (void *) filter, filter->filter, NULL); // MsgPtr id + filter->id = IvyBindMsg(IvyMsgCB, (void *) filter, filter->filter, NULL); /* MsgPtr id */ filter->interp = interp; entry = Tcl_CreateHashEntry(&filter_table, (char *) filter_id, &dummy); Tcl_SetHashValue(entry, (ClientData) filter); |