diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-01-15 17:55:29 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-01-15 17:55:29 (GMT) |
| commit | 722d3186397220e0bcd65b0e0bd4ba3b91ef5534 (patch) | |
| tree | 1b8e5662ba53f74c7365043b21833a6534056f98 /generic/tclIOGT.c | |
| parent | 0ff232587e3c63cf969da0859335adb56f4efdfd (diff) | |
| download | tcl-722d3186397220e0bcd65b0e0bd4ba3b91ef5534.zip tcl-722d3186397220e0bcd65b0e0bd4ba3b91ef5534.tar.gz tcl-722d3186397220e0bcd65b0e0bd4ba3b91ef5534.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.
Diffstat (limited to 'generic/tclIOGT.c')
| -rw-r--r-- | generic/tclIOGT.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/generic/tclIOGT.c b/generic/tclIOGT.c index 024dd34..4071217 100644 --- a/generic/tclIOGT.c +++ b/generic/tclIOGT.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. * - * CVS: $Id: tclIOGT.c,v 1.3 2000/09/29 21:42:19 hobbs Exp $ + * CVS: $Id: tclIOGT.c,v 1.4 2002/01/15 17:55:30 dgp Exp $ */ #include "tclInt.h" @@ -31,17 +31,17 @@ static int TransformInputProc _ANSI_ARGS_ (( ClientData instanceData, char* buf, int toRead, int* errorCodePtr)); static int TransformOutputProc _ANSI_ARGS_ (( - ClientData instanceData, - char* buf, int toWrite, int* errorCodePtr)); + ClientData instanceData, CONST char *buf, + int toWrite, int* errorCodePtr)); static int TransformSeekProc _ANSI_ARGS_ (( ClientData instanceData, long offset, int mode, int* errorCodePtr)); static int TransformSetOptionProc _ANSI_ARGS_(( ClientData instanceData, Tcl_Interp *interp, - char *optionName, char *value)); + CONST char *optionName, CONST char *value)); static int TransformGetOptionProc _ANSI_ARGS_(( ClientData instanceData, Tcl_Interp *interp, - char *optionName, Tcl_DString *dsPtr)); + CONST char *optionName, Tcl_DString *dsPtr)); static void TransformWatchProc _ANSI_ARGS_ (( ClientData instanceData, int mask)); static int TransformGetFileHandleProc _ANSI_ARGS_ (( @@ -796,7 +796,7 @@ TransformInputProc (instanceData, buf, toRead, errorCodePtr) static int TransformOutputProc (instanceData, buf, toWrite, errorCodePtr) ClientData instanceData; - char* buf; + CONST char* buf; int toWrite; int* errorCodePtr; { @@ -915,8 +915,8 @@ static int TransformSetOptionProc (instanceData, interp, optionName, value) ClientData instanceData; Tcl_Interp *interp; - char *optionName; - char *value; + CONST char *optionName; + CONST char *value; { TransformChannelData* dataPtr = (TransformChannelData*) instanceData; Tcl_Channel downChan = Tcl_GetStackedChannel(dataPtr->self); @@ -953,7 +953,7 @@ static int TransformGetOptionProc (instanceData, interp, optionName, dsPtr) ClientData instanceData; Tcl_Interp* interp; - char* optionName; + CONST char* optionName; Tcl_DString* dsPtr; { TransformChannelData* dataPtr = (TransformChannelData*) instanceData; @@ -964,7 +964,7 @@ TransformGetOptionProc (instanceData, interp, optionName, dsPtr) if (getOptionProc != NULL) { return (*getOptionProc)(Tcl_GetChannelInstanceData(downChan), interp, optionName, dsPtr); - } else if (optionName == (char*) NULL) { + } else if (optionName == (CONST char*) NULL) { /* * Request is query for all options, this is ok. */ |