summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCmdAH.c5
-rw-r--r--generic/tclIO.c8
-rw-r--r--generic/tclInitScript.h4
-rw-r--r--generic/tclInt.h4
-rw-r--r--generic/tclLoad.c4
-rw-r--r--generic/tclPathObj.c6
-rw-r--r--generic/tclProc.c4
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.
*/