diff options
author | hobbs <hobbs> | 1999-08-19 17:39:15 (GMT) |
---|---|---|
committer | hobbs <hobbs> | 1999-08-19 17:39:15 (GMT) |
commit | 6d54731bf1a1ddeccdceeb7c46b3c590a8f8140c (patch) | |
tree | e9b5e3293c8385177fadde4bab16c1254dad1828 | |
parent | 3623d06f54ae85532a4f9853ef274227b3540fae (diff) | |
download | tcl-6d54731bf1a1ddeccdceeb7c46b3c590a8f8140c.zip tcl-6d54731bf1a1ddeccdceeb7c46b3c590a8f8140c.tar.gz tcl-6d54731bf1a1ddeccdceeb7c46b3c590a8f8140c.tar.bz2 |
1999-08-19 Jeff Hobbs <hobbs@scriptics.com>
* generic/tclIO.c: changed Tcl_GetChannelNames* to use K&R
style headers (style guide, also pleases HP cc)
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | generic/tclIO.c | 9 |
2 files changed, 12 insertions, 3 deletions
@@ -1,3 +1,8 @@ +1999-08-19 Jeff Hobbs <hobbs@scriptics.com> + + * generic/tclIO.c: changed Tcl_GetChannelNames* to use K&R + style headers (style guide, also pleases HP cc) + 1999-08-18 Jeff Hobbs <hobbs@scriptics.com> * doc/Eval.3: fixed doc on input args [Bug: 2114] @@ -14,6 +19,7 @@ * generic/tclCompile.c: add TCL_TOKEN_VARIABLE to the part types that cause differed compilation for exprs, to correct the expr double-evaluation problem for vars. Added test cases. + Related to [Bug: 732] * unix/Makefile.in: changed the dependency structure so that install-* is dependent on * (ie - install-binaries is dependent diff --git a/generic/tclIO.c b/generic/tclIO.c index ea281a4..1dc808a 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.15 1999/08/19 02:59:10 hobbs Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.16 1999/08/19 17:39:17 hobbs Exp $ */ #include "tclInt.h" @@ -8175,7 +8175,8 @@ SetBlockMode(interp, chanPtr, mode) */ int -Tcl_GetChannelNames(Tcl_Interp *interp) +Tcl_GetChannelNames(interp) + Tcl_Interp *interp; /* Interp for error reporting. */ { return Tcl_GetChannelNamesEx(interp, (char *) NULL); } @@ -8199,7 +8200,9 @@ Tcl_GetChannelNames(Tcl_Interp *interp) */ int -Tcl_GetChannelNamesEx(Tcl_Interp *interp, char *pattern) +Tcl_GetChannelNamesEx(interp, pattern) + Tcl_Interp *interp; /* Interp for error reporting. */ + char *pattern; /* pattern to filter on. */ { Channel *chanPtr; ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey); |