summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2009-02-10 22:49:42 (GMT)
committernijtmans <nijtmans>2009-02-10 22:49:42 (GMT)
commitb07274fff759a29a06f8c988c019d09d583fe435 (patch)
treeca3baf5495ef51e4e0ad8aa5ed4221b784f68ae6 /generic/tclIO.c
parent9968eece0a412b8035a5437db0e8c52723c94e7f (diff)
downloadtcl-b07274fff759a29a06f8c988c019d09d583fe435.zip
tcl-b07274fff759a29a06f8c988c019d09d583fe435.tar.gz
tcl-b07274fff759a29a06f8c988c019d09d583fe435.tar.bz2
- eliminate some unnessary type casts
- some internal const decorations - spacing
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 3ed45a2..7814e32 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.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: tclIO.c,v 1.158 2009/01/09 11:21:45 dkf Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.159 2009/02/10 22:49:45 nijtmans Exp $
*/
#include "tclInt.h"
@@ -3158,7 +3158,7 @@ Tcl_CloseEx(
NULL);
return TCL_ERROR;
}
-
+
/*
* Check direction against channel mode. It is an error if we try to close
* a direction not supported by the channel (already closed, or never
@@ -3192,14 +3192,14 @@ Tcl_CloseEx(
return TCL_ERROR;
}
- if (flags & TCL_CLOSE_READ) {
+ if (flags & TCL_CLOSE_READ) {
/*
* Call the finalization code directly. There are no events to handle,
* there cannot be for the read-side.
*/
return CloseChannelPart(interp, chanPtr, 0, flags);
- } else if (flags & TCL_CLOSE_WRITE) {
+ } else if (flags & TCL_CLOSE_WRITE) {
if ((statePtr->curOutPtr != NULL) &&
IsBufferReady(statePtr->curOutPtr)) {
SetFlag(statePtr, BUFFER_READY);
@@ -3785,7 +3785,7 @@ Tcl_WriteObj(
Channel *chanPtr;
ChannelState *statePtr; /* State info for channel */
- char *src;
+ const char *src;
int srcLen;
statePtr = ((Channel *) chan)->state;
@@ -4324,7 +4324,7 @@ Tcl_Gets(
{
Tcl_Obj *objPtr;
int charsStored, length;
- char *string;
+ const char *string;
TclNewObj(objPtr);
charsStored = Tcl_GetsObj(chan, objPtr);
@@ -8714,7 +8714,7 @@ Tcl_FileEventObjCmd(
Channel *chanPtr; /* The channel to create the handler for. */
ChannelState *statePtr; /* State info for channel */
Tcl_Channel chan; /* The opaque type for the channel. */
- char *chanName;
+ const char *chanName;
int modeIndex; /* Index of mode argument. */
int mask;
static const char *const modeOptions[] = {"readable", "writable", NULL};
@@ -8922,7 +8922,7 @@ CopyData(
Tcl_Channel inChan, outChan;
ChannelState *inStatePtr, *outStatePtr;
int result = TCL_OK, size, total, sizeb;
- char *buffer;
+ const char *buffer;
int inBinary, outBinary, sameEncoding;
/* Encoding control */
int underflow; /* Input underflow */