diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCmdAH.c | 5 | ||||
| -rw-r--r-- | generic/tclIO.c | 8 | ||||
| -rw-r--r-- | generic/tclInitScript.h | 4 | ||||
| -rw-r--r-- | generic/tclInt.h | 4 | ||||
| -rw-r--r-- | generic/tclLoad.c | 4 | ||||
| -rw-r--r-- | generic/tclPathObj.c | 6 | ||||
| -rw-r--r-- | generic/tclProc.c | 4 |
7 files changed, 18 insertions, 17 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 287d139..b9ddd58 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdAH.c,v 1.41 2004/02/04 06:45:30 dgp Exp $ + * RCS: @(#) $Id: tclCmdAH.c,v 1.42 2004/03/09 12:59:04 vincentdarley Exp $ */ #include "tclInt.h" @@ -1079,7 +1079,8 @@ Tcl_FileObjCmd(dummy, interp, objc, objv) * doesn't exist. */ int access; - Tcl_Obj *dirPtr = TclPathPart(interp, objv[index], TCL_PATH_DIRNAME); + Tcl_Obj *dirPtr = TclPathPart(interp, objv[index], + TCL_PATH_DIRNAME); if (dirPtr == NULL) { return TCL_ERROR; } diff --git a/generic/tclIO.c b/generic/tclIO.c index 09ebdba..55db84a 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.70 2004/02/02 21:31:21 davygrvy Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.71 2004/03/09 12:59:04 vincentdarley Exp $ */ #include "tclInt.h" @@ -4131,7 +4131,7 @@ CommonGetsCleanup(chanPtr, encoding) * Tcl_Read -- * * Reads a given number of bytes from a channel. EOL and EOF - * translation is done on the bytes being read, so the the number + * translation is done on the bytes being read, so the number * of bytes consumed from the channel may not be equal to the * number of bytes stored in the destination buffer. * @@ -4175,7 +4175,7 @@ Tcl_Read(chan, dst, bytesToRead) * Tcl_ReadRaw -- * * Reads a given number of bytes from a channel. EOL and EOF - * translation is done on the bytes being read, so the the number + * translation is done on the bytes being read, so the number * of bytes consumed from the channel may not be equal to the * number of bytes stored in the destination buffer. * @@ -6886,7 +6886,7 @@ UpdateInterest(chanPtr) * - It reads data into a buffer smaller than the buffer * used by Tcl itself. * - It does not process all events in the event queue, but - * only only one, at least in some situations. + * only one, at least in some situations. * * In that case we can get into a situation where * diff --git a/generic/tclInitScript.h b/generic/tclInitScript.h index 0d52623..1165e9f 100644 --- a/generic/tclInitScript.h +++ b/generic/tclInitScript.h @@ -8,7 +8,7 @@ * Copyright (c) 1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclInitScript.h,v 1.13 2001/09/10 21:06:55 dgp Exp $ + * RCS: @(#) $Id: tclInitScript.h,v 1.14 2004/03/09 12:59:05 vincentdarley Exp $ */ /* @@ -78,7 +78,7 @@ tclInit"; /* * A pointer to a string that holds an initialization script that if non-NULL - * is evaluated in Tcl_Init() prior to the the built-in initialization script + * is evaluated in Tcl_Init() prior to the built-in initialization script * above. This variable can be modified by the procedure below. */ diff --git a/generic/tclInt.h b/generic/tclInt.h index 1e66abc..bd52922 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.145 2004/03/04 23:25:10 dgp Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.146 2004/03/09 12:59:05 vincentdarley Exp $ */ #ifndef _TCLINT @@ -238,7 +238,7 @@ typedef struct Namespace { * variables and command have already been destroyed. This bit * allows the namespace resolution code to recognize that the * namespace is "deleted". When the last namespaceName object - * in any byte code code unit that refers to the namespace has + * in any byte code unit that refers to the namespace has * been freed (i.e., when the namespace's refCount is 0), the * namespace's storage will be freed. */ diff --git a/generic/tclLoad.c b/generic/tclLoad.c index 39a5833..3ce5200 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclLoad.c,v 1.12 2004/02/25 16:17:17 dkf Exp $ + * RCS: @(#) $Id: tclLoad.c,v 1.13 2004/03/09 12:59:05 vincentdarley Exp $ */ #include "tclInt.h" @@ -251,7 +251,7 @@ Tcl_LoadObjCmd(dummy, interp, objc, objv) /* * Scan through the list of packages already loaded in the target * interpreter. If the package we want is already loaded there, - * then there's nothing for us to to. + * then there's nothing for us to do. */ if (pkgPtr != NULL) { diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index 4391d46..f7f2132 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.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: tclPathObj.c,v 1.23 2004/01/29 13:01:24 vincentdarley Exp $ + * RCS: @(#) $Id: tclPathObj.c,v 1.24 2004/03/09 12:59:05 vincentdarley Exp $ */ #include "tclInt.h" @@ -460,7 +460,7 @@ TclFSGetPathType(pathPtr, filesystemPtrPtr, driveNameLengthPtr) * * TclPathPart * - * This procedure calculates the requested part of the the given + * This procedure calculates the requested part of the given * path, which can be: * * - the directory above ('file dirname') @@ -1713,7 +1713,7 @@ Tcl_FSGetNormalizedPath(interp, pathPtr) } else if (type == TCL_PATH_VOLUME_RELATIVE) { /* * Only Windows has volume-relative paths. These - * paths are rather rare, but is is nice if Tcl can + * paths are rather rare, but it is nice if Tcl can * handle them. It is much better if we can * handle them here, rather than in the native fs code, * because we really need to have a real absolute path diff --git a/generic/tclProc.c b/generic/tclProc.c index 79c2695..e1a4116 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.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: tclProc.c,v 1.49 2003/12/24 04:18:20 davygrvy Exp $ + * RCS: @(#) $Id: tclProc.c,v 1.50 2004/03/09 12:59:05 vincentdarley Exp $ */ #include "tclInt.h" @@ -311,7 +311,7 @@ TclCreateProc(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr) * Break up the argument list into argument specifiers, then process * each argument specifier. * If the body is precompiled, processing is limited to checking that - * the the parsed argument is consistent with the one stored in the + * the parsed argument is consistent with the one stored in the * Proc. * THIS FAILS IF THE ARG LIST OBJECT'S STRING REP CONTAINS NULLS. */ |