fixed typos in documentation and comments

16 files changed, 36 insertions, 35 deletions

diff --git a/doc/CrtCommand.3 b/doc/CrtCommand.3
index f766361..9f53b93 100644
--- a/doc/CrtCommand.3
+++ b/doc/CrtCommand.3
@@ -5,7 +5,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: CrtCommand.3,v 1.5 2002/08/05 03:24:39 dgp Exp $
+'\" RCS: @(#) $Id: CrtCommand.3,v 1.6 2004/03/09 12:59:04 vincentdarley Exp $
 '\" 
 .so man.macros
 .TH Tcl_CreateCommand 3 "" Tcl "Tcl Library Procedures"
@@ -111,7 +111,7 @@ the interpreter result to point to a string value;
 in the case of a \fBTCL_OK\fR return code this gives the result
 of the command, and in the case of \fBTCL_ERROR\fR it gives an error message.
 The \fBTcl_SetResult\fR procedure provides an easy interface for setting
-the return value;  for complete details on how the the interpreter result
+the return value;  for complete details on how the interpreter result
 field is managed, see the \fBTcl_Interp\fR man page.
 Before invoking a command procedure,
 \fBTcl_Eval\fR sets the interpreter result to point to an empty string,
diff --git a/doc/FileSystem.3 b/doc/FileSystem.3
index 00a38da..f431e1a 100644
--- a/doc/FileSystem.3
+++ b/doc/FileSystem.3
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: FileSystem.3,v 1.38 2004/01/21 19:59:33 vincentdarley Exp $
+'\" RCS: @(#) $Id: FileSystem.3,v 1.39 2004/03/09 12:59:04 vincentdarley Exp $
 '\" 
 .so man.macros
 .TH Filesystem 3 8.4 Tcl "Tcl Library Procedures"
@@ -260,7 +260,7 @@ examples, be remote (e.g. situated on a remote ftp server) or archived
 (e.g. lying inside a .zip archive).  Such registered filesystems provide
 a lookup table of functions to implement all or some of the functionality
 listed here.  Finally, the \fBTcl_FSStat\fR and \fBTcl_FSLstat\fR calls
-abstract away from what the 'struct stat' buffer buffer is actually
+abstract away from what the 'struct stat' buffer is actually
 declared to be, allowing the same code to be used both on systems with
 and systems without support for files larger than 2GB in size.
 .PP
diff --git a/doc/Namespace.3 b/doc/Namespace.3
index b9af186..d5442ca 100644
--- a/doc/Namespace.3
+++ b/doc/Namespace.3
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: Namespace.3,v 1.1 2003/08/31 23:18:02 dkf Exp $
+'\" RCS: @(#) $Id: Namespace.3,v 1.2 2004/03/09 12:59:04 vincentdarley Exp $
 '\" 
 '\" Note that some of these functions do not seem to belong, but they
 '\" were all introduced with the same TIP (#139)
@@ -131,7 +131,7 @@ is true.
 .PP
 \fBTcl_Import\fR imports commands matching a pattern into a
 namespace.  Note that the pattern must include the name of the
-namespace to import from.  This function returns returns an error if
+namespace to import from.  This function returns an error if
 an attempt to import a command over an existing command is made,
 unless the \fIallowOverwrite\fR flag has been set.
 .PP
diff --git a/doc/ParseCmd.3 b/doc/ParseCmd.3
index aa243d2..3839b7c 100644
--- a/doc/ParseCmd.3
+++ b/doc/ParseCmd.3
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: ParseCmd.3,v 1.12 2003/11/14 20:44:43 dgp Exp $
+'\" RCS: @(#) $Id: ParseCmd.3,v 1.13 2004/03/09 12:59:04 vincentdarley Exp $
 '\" 
 .so man.macros
 .TH Tcl_ParseCommand 3 8.3 Tcl "Tcl Library Procedures"
@@ -306,7 +306,7 @@ The token describes a backslash sequence such as \fB\en\fR or \fB\e0xa3\fR.
 The \fInumComponents\fR field is always 0.
 .TP
 \fBTCL_TOKEN_COMMAND\fR
-The token describes a command whose result result must be substituted into
+The token describes a command whose result must be substituted into
 the word.  The token includes the square brackets that surround the
 command.  The \fInumComponents\fR field is always 0 (the nested command
 is not parsed; call \fBTcl_ParseCommand\fR recursively if you want to
diff --git a/doc/StringObj.3 b/doc/StringObj.3
index 6ed15b6..b40cf49 100644
--- a/doc/StringObj.3
+++ b/doc/StringObj.3
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: StringObj.3,v 1.14 2003/07/18 16:56:41 dgp Exp $
+'\" RCS: @(#) $Id: StringObj.3,v 1.15 2004/03/09 12:59:04 vincentdarley Exp $
 '\" 
 .so man.macros
 .TH Tcl_StringObj 3 8.1 Tcl "Tcl Library Procedures"
@@ -110,7 +110,7 @@ Points to an object to manipulate.
 The object to append to \fIobjPtr\fR in \fBTcl_AppendObjToObj\fR.
 .AP int *lengthPtr out
 If non-NULL, the location where \fBTcl_GetStringFromObj\fR will store
-the the length of an object's string representation.
+the length of an object's string representation.
 .AP "CONST char" *string in
 Null-terminated string value to append to \fIobjPtr\fR.
 .AP va_list argList in
diff --git a/doc/Tcl.n b/doc/Tcl.n
index cc14705..919a24e 100644
--- a/doc/Tcl.n
+++ b/doc/Tcl.n
@@ -5,7 +5,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: Tcl.n,v 1.11 2003/11/14 21:13:04 dkf Exp $
+'\" RCS: @(#) $Id: Tcl.n,v 1.12 2004/03/09 12:59:04 vincentdarley Exp $
 '\"
 .so man.macros
 .TH Tcl n "8.5" Tcl "Tcl Built-In Commands"
@@ -53,7 +53,7 @@ The double-quotes are not retained as part of the word.
 .IP "[5] \fBArgument expansion.\fR"
 If a word starts with the string ``{expand}'' followed by a 
 non-whitespace character, then the leading ``{expand}'' is removed
-and the rest of the word is parsed and substituted as any other other 
+and the rest of the word is parsed and substituted as any other  
 word. After substitution, the word is parsed again without
 substitutions, and its words are added to the command being
 substituted. For instance, ``cmd a {expand}{b c} d {expand}{e f}'' is
diff --git a/doc/file.n b/doc/file.n
index 80294b2..abb4dbb 100644
--- a/doc/file.n
+++ b/doc/file.n
@@ -5,7 +5,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: file.n,v 1.29 2004/01/29 10:28:20 vincentdarley Exp $
+'\" RCS: @(#) $Id: file.n,v 1.30 2004/03/09 12:59:04 vincentdarley Exp $
 '\" 
 .so man.macros
 .TH file n 8.3 Tcl "Tcl Built-In Commands"
@@ -280,7 +280,7 @@ all '../', './' removed.  Also it is one which is in the ``standard''
 format for the native platform.  On MacOS, Unix, this means the segments
 leading up to the path must be free of symbolic links/aliases (but the
 very last path component may be a symbolic link), and on Windows it also
-means means we want the long form with that form's case-dependence (which
+means we want the long form with that form's case-dependence (which
 gives us a unique, case-dependent path).  The one exception concerning the
 last link in the path is necessary, because Tcl or the user may wish to
 operate on the actual symbolic link itself (for example 'file delete', 'file
diff --git a/doc/filename.n b/doc/filename.n
index 28cc55c..931845a 100644
--- a/doc/filename.n
+++ b/doc/filename.n
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: filename.n,v 1.10 2004/01/23 11:03:29 vincentdarley Exp $
+'\" RCS: @(#) $Id: filename.n,v 1.11 2004/03/09 12:59:04 vincentdarley Exp $
 '\" 
 .so man.macros
 .TH filename n 7.5 Tcl "Tcl Built-In Commands"
@@ -216,7 +216,7 @@ to errors in most file operations.
 Another Windows peculiarity is that any number of trailing dots '.'  in
 filenames are totally ignored, so, for example, attempts to create a
 file or directory with a name "foo." will result in the creation of a
-file/directory with name "foo".  This fact is reflected in in the
+file/directory with name "foo".  This fact is reflected in the
 results of 'file normalize'.  Furthermore, a file name consisting only
 of dots '.........' or dots with trailing characters '.....abc' is
 illegal.
diff --git a/doc/namespace.n b/doc/namespace.n
index bd84853..f519505 100644
--- a/doc/namespace.n
+++ b/doc/namespace.n
@@ -6,7 +6,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: namespace.n,v 1.12 2004/02/28 15:45:53 vincentdarley Exp $
+'\" RCS: @(#) $Id: namespace.n,v 1.13 2004/03/09 12:59:04 vincentdarley Exp $
 '\" 
 .so man.macros
 .TH namespace n 8.5 Tcl "Tcl Built-In Commands"
@@ -332,7 +332,7 @@ The topmost or global namespace has the name ``'' (i.e., an empty string),
 although \fB::\fR is a synonym.
 As an example, the name \fB::safe::interp::create\fR
 refers to the command \fBcreate\fR in the namespace \fBinterp\fR
-that is a child of of namespace \fB::safe\fR,
+that is a child of namespace \fB::safe\fR,
 which in turn is a child of the global namespace \fB::\fR.
 .PP
 If you want to access commands and variables from another namespace,
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.
      */