diff options
| author | dgp <dgp@noemail.net> | 2002-01-15 17:55:28 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2002-01-15 17:55:28 (GMT) |
| commit | 5b4d1516e3f1423e34da058f77c6aa959285fcbe (patch) | |
| tree | 1b8e5662ba53f74c7365043b21833a6534056f98 /mac/tclMacSock.c | |
| parent | 11d84d5f8dac317f3ea2b12080f3e920d193ab61 (diff) | |
| download | tcl-5b4d1516e3f1423e34da058f77c6aa959285fcbe.zip tcl-5b4d1516e3f1423e34da058f77c6aa959285fcbe.tar.gz tcl-5b4d1516e3f1423e34da058f77c6aa959285fcbe.tar.bz2 | |
* Updated APIs in the file generic/tclIO.c according to the guidelines
of TIP 27. Several minor documentation corrections as well.
* Updated channel driver interface according to the guidelines of
TIP 27. See also [Bug 500348].
* Moved Tcl_EolTranslation enum declaration from generic/tcl.h to
generic/tclInt.h (renamed to TclEolTranslation). It is not used
anywhere in Tcl's public interface.
FossilOrigin-Name: 9c9edf24ebc9ced7a348fbf0bc524fa36c851598
Diffstat (limited to 'mac/tclMacSock.c')
| -rw-r--r-- | mac/tclMacSock.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/mac/tclMacSock.c b/mac/tclMacSock.c index 7c71109..5239cfc 100644 --- a/mac/tclMacSock.c +++ b/mac/tclMacSock.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacSock.c,v 1.9 2001/11/23 01:28:30 das Exp $ + * RCS: @(#) $Id: tclMacSock.c,v 1.10 2002/01/15 17:55:30 dgp Exp $ */ #include "tclInt.h" @@ -171,12 +171,12 @@ static int TcpClose _ANSI_ARGS_((ClientData instanceData, static int TcpGetHandle _ANSI_ARGS_((ClientData instanceData, int direction, ClientData *handlePtr)); static int TcpGetOptionProc _ANSI_ARGS_((ClientData instanceData, - Tcl_Interp *interp, char *optionName, + Tcl_Interp *interp, CONST char *optionName, Tcl_DString *dsPtr)); static int TcpInput _ANSI_ARGS_((ClientData instanceData, char *buf, int toRead, int *errorCodePtr)); static int TcpOutput _ANSI_ARGS_((ClientData instanceData, - char *buf, int toWrite, int *errorCodePtr)); + CONST char *buf, int toWrite, int *errorCodePtr)); static void TcpWatch _ANSI_ARGS_((ClientData instanceData, int mask)); static int WaitForSocketEvent _ANSI_ARGS_((TcpState *infoPtr, @@ -1201,7 +1201,7 @@ TcpGetHandle( static int TcpOutput( ClientData instanceData, /* Channel state. */ - char *buf, /* The data buffer. */ + CONST char *buf, /* The data buffer. */ int toWrite, /* How many bytes to write? */ int *errorCodePtr) /* Where to store error code. */ { @@ -1346,7 +1346,7 @@ static int TcpGetOptionProc( ClientData instanceData, /* Socket state. */ Tcl_Interp *interp, /* For error reporting - can be NULL.*/ - char *optionName, /* Name of the option to + CONST char *optionName, /* Name of the option to * retrieve the value for, or * NULL to get all options and * their values. */ @@ -1385,7 +1385,7 @@ TcpGetOptionProc( * if optionName is NULL. */ - if (optionName == (char *) NULL || optionName[0] == '\0') { + if (optionName == (CONST char *) NULL || optionName[0] == '\0') { doAll = true; } else { if (!strcmp(optionName, "-peername")) { |