diff options
author | hobbs <hobbs@noemail.net> | 2000-10-28 00:29:57 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2000-10-28 00:29:57 (GMT) |
commit | 378f1f0794dca6470061f1c85a4e34de14ac4cf1 (patch) | |
tree | e189ed80e69c00a1f3acf11fe4cf9852e0415a70 /unix/tclUnixChan.c | |
parent | 247ee468ad9da1aa1c772a8c1c4fbd3c636d9c8a (diff) | |
download | tcl-378f1f0794dca6470061f1c85a4e34de14ac4cf1.zip tcl-378f1f0794dca6470061f1c85a4e34de14ac4cf1.tar.gz tcl-378f1f0794dca6470061f1c85a4e34de14ac4cf1.tar.bz2 |
* unix/tclUnixChan.c: updated channel types to strict
TCL_CHANNEL_VERSION_2 style to avoid compiler warnings. They work
either way, but this avoids compiler warnings (that worries people).
FossilOrigin-Name: af55bc2b2d5b34e57661090cb5f336b8f37058a8
Diffstat (limited to 'unix/tclUnixChan.c')
-rw-r--r-- | unix/tclUnixChan.c | 74 |
1 files changed, 43 insertions, 31 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index d687c9c..1bf9d54 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixChan.c,v 1.18 2000/05/02 22:02:37 kupries Exp $ + * RCS: @(#) $Id: tclUnixChan.c,v 1.19 2000/10/28 00:29:58 hobbs Exp $ */ #include "tclInt.h" /* Internal definitions for Tcl. */ @@ -235,16 +235,20 @@ static int WaitForConnect _ANSI_ARGS_((TcpState *statePtr, */ static Tcl_ChannelType fileChannelType = { - "file", /* Type name. */ - FileBlockModeProc, /* Set blocking/nonblocking mode.*/ - FileCloseProc, /* Close proc. */ - FileInputProc, /* Input proc. */ - FileOutputProc, /* Output proc. */ - FileSeekProc, /* Seek proc. */ - NULL, /* Set option proc. */ - NULL, /* Get option proc. */ - FileWatchProc, /* Initialize notifier. */ - FileGetHandleProc, /* Get OS handles out of channel. */ + "file", /* Type name. */ + TCL_CHANNEL_VERSION_2, /* v2 channel */ + FileCloseProc, /* Close proc. */ + FileInputProc, /* Input proc. */ + FileOutputProc, /* Output proc. */ + FileSeekProc, /* Seek proc. */ + NULL, /* Set option proc. */ + NULL, /* Get option proc. */ + FileWatchProc, /* Initialize notifier. */ + FileGetHandleProc, /* Get OS handles out of channel. */ + NULL, /* close2proc. */ + FileBlockModeProc, /* Set blocking or non-blocking mode.*/ + NULL, /* flush proc. */ + NULL, /* handler proc. */ }; #ifdef SUPPORTS_TTY @@ -254,16 +258,20 @@ static Tcl_ChannelType fileChannelType = { */ static Tcl_ChannelType ttyChannelType = { - "tty", /* Type name. */ - FileBlockModeProc, /* Set blocking/nonblocking mode.*/ - TtyCloseProc, /* Close proc. */ - FileInputProc, /* Input proc. */ - FileOutputProc, /* Output proc. */ - NULL, /* Seek proc. */ - TtySetOptionProc, /* Set option proc. */ - TtyGetOptionProc, /* Get option proc. */ - FileWatchProc, /* Initialize notifier. */ - FileGetHandleProc, /* Get OS handles out of channel. */ + "tty", /* Type name. */ + TCL_CHANNEL_VERSION_2, /* v2 channel */ + TtyCloseProc, /* Close proc. */ + FileInputProc, /* Input proc. */ + FileOutputProc, /* Output proc. */ + NULL, /* Seek proc. */ + TtySetOptionProc, /* Set option proc. */ + TtyGetOptionProc, /* Get option proc. */ + FileWatchProc, /* Initialize notifier. */ + FileGetHandleProc, /* Get OS handles out of channel. */ + NULL, /* close2proc. */ + FileBlockModeProc, /* Set blocking or non-blocking mode.*/ + NULL, /* flush proc. */ + NULL, /* handler proc. */ }; #endif /* SUPPORTS_TTY */ @@ -273,16 +281,20 @@ static Tcl_ChannelType ttyChannelType = { */ static Tcl_ChannelType tcpChannelType = { - "tcp", /* Type name. */ - TcpBlockModeProc, /* Set blocking/nonblocking mode.*/ - TcpCloseProc, /* Close proc. */ - TcpInputProc, /* Input proc. */ - TcpOutputProc, /* Output proc. */ - NULL, /* Seek proc. */ - NULL, /* Set option proc. */ - TcpGetOptionProc, /* Get option proc. */ - TcpWatchProc, /* Initialize notifier. */ - TcpGetHandleProc, /* Get OS handles out of channel. */ + "tcp", /* Type name. */ + TCL_CHANNEL_VERSION_2, /* v2 channel */ + TcpCloseProc, /* Close proc. */ + TcpInputProc, /* Input proc. */ + TcpOutputProc, /* Output proc. */ + NULL, /* Seek proc. */ + NULL, /* Set option proc. */ + TcpGetOptionProc, /* Get option proc. */ + TcpWatchProc, /* Initialize notifier. */ + TcpGetHandleProc, /* Get OS handles out of channel. */ + NULL, /* close2proc. */ + TcpBlockModeProc, /* Set blocking or non-blocking mode.*/ + NULL, /* flush proc. */ + NULL, /* handler proc. */ }; |