fixed typos in documentation and comments

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.
      */