From 475d0498c66c8bbc7a0acbb9d1c58abe3fa78b52 Mon Sep 17 00:00:00 2001 From: dkf Date: Sat, 21 Sep 2024 08:41:51 +0000 Subject: Fix ungrammatical doubling of words in comments --- generic/tclBasic.c | 2 +- generic/tclBinary.c | 2 +- generic/tclCkalloc.c | 2 +- generic/tclCmdIL.c | 2 +- generic/tclCompile.c | 5 ++--- generic/tclEncoding.c | 2 +- generic/tclIO.c | 2 +- generic/tclIORChan.c | 4 ++-- generic/tclIORTrans.c | 4 ++-- generic/tclIOUtil.c | 22 +++++++++++----------- generic/tclIndexObj.c | 2 +- generic/tclListObj.c | 4 ++-- generic/tclLoad.c | 2 +- generic/tclOOProp.c | 2 +- generic/tclProc.c | 2 +- generic/tclStrToD.c | 4 ++-- generic/tclStringObj.c | 6 +++--- generic/tclTest.c | 4 ++-- generic/tclTestABSList.c | 2 +- generic/tclThreadAlloc.c | 2 +- generic/tclTrace.c | 2 +- generic/tclUtil.c | 4 ++-- generic/tclVar.c | 4 ++-- unix/tclUnixFCmd.c | 4 ++-- win/tclWinConsole.c | 4 ++-- 25 files changed, 47 insertions(+), 48 deletions(-) diff --git a/generic/tclBasic.c b/generic/tclBasic.c index a979ab9..dca1088 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -9756,7 +9756,7 @@ TclNRCoroutineObjCmd( /* * #280. * Provide the new coroutine with its own copy of the lineLABCPtr - * hashtable for literal command arguments in bytecode. Note that that + * hashtable for literal command arguments in bytecode. Note that * CFWordBC chains are not duplicated, only the entrypoints to them. This * means that in the presence of coroutines each chain is potentially a * tree. Like the chain -> tree conversion of the CmdFrame stack. diff --git a/generic/tclBinary.c b/generic/tclBinary.c index a78f955..d8feab7 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -2399,7 +2399,7 @@ DeleteScanNumberCache( * * NOTES -- * - * Some measurements show that it is faster to use a table to to perform + * Some measurements show that it is faster to use a table to perform * uuencode and base64 value encoding than to calculate the output (at * least on intel P4 arch). * diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c index be741a3..bf2b12c 100644 --- a/generic/tclCkalloc.c +++ b/generic/tclCkalloc.c @@ -1274,7 +1274,7 @@ TclAllocElemsEx( * * Attempts to allocate (oldPtr == NULL) or reallocate memory of the * requested size plus some more for future growth. The amount of - * reallocation is adjusted depending on on failure. + * reallocation is adjusted depending on failure. * * * Results: diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 19a6226..225f634 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2295,7 +2295,7 @@ Tcl_LassignObjCmd( } /* * Must incrref elemObj. If the var name being set is same as the - * the list value, ObjSetVar2 will shimmer the list to a VAR freeing + * list value, ObjSetVar2 will shimmer the list to a VAR freeing * the elements in the list (in case list refCount was 1) BEFORE * the elemObj is stored in the var. See tests 6.{25,26} */ diff --git a/generic/tclCompile.c b/generic/tclCompile.c index db5a5fd..edf1ca7 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -2493,7 +2493,7 @@ TclCompileTokens( * commands. See the branch below for TCL_TOKEN_COMMAND, where the * adjustment being tracked here is taken into account. The good * thing is a table of everything is not needed, just the number of - * lines to to add as correction. + * lines to add as correction. */ if ((length == 1) && (buffer[0] == ' ') && @@ -2688,8 +2688,7 @@ void TclCompileExprWords( Tcl_Interp *interp, /* Used for error and status reporting. */ Tcl_Token *tokenPtr, /* Points to first in an array of word tokens - * tokens for the expression to compile - * inline. */ + * for the expression to compile inline. */ size_t numWords1, /* Number of word tokens starting at tokenPtr. * Must be at least 1. Each word token * contains one or more subtokens. */ diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 97f9f2b..ab53e6d 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -1922,7 +1922,7 @@ LoadEncodingFile( * little-endian systems. * * Results: - * Returns the new Tcl_Encoding, or NULL if it could could + * Returns the new Tcl_Encoding, or NULL if it could * not be created because the file contained invalid data. * * Side effects: diff --git a/generic/tclIO.c b/generic/tclIO.c index b89f415..7e3f575 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -10563,7 +10563,7 @@ Tcl_GetChannelNames( * * Tcl_GetChannelNamesEx -- * - * Return the names of open channels in the interp filtered filtered + * Return the names of open channels in the interp filtered * through a pattern. If pattern is NULL, it returns all the open * channels. * diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index 859366f..beb4d2c 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -706,7 +706,7 @@ TclChanCreateObjCmd( } /* - * Register the channel in the I/O system, and in our our map for 'chan + * Register the channel in the I/O system, and in our map for 'chan * postevent'. */ @@ -2983,7 +2983,7 @@ ForwardProc( * quiescent. Because of this we can treat the data as belonging to us, * without fear of race conditions. I.e. we can read and write as we like. * - * The only thing we cannot be sure of is the resultPtr. This can be be + * The only thing we cannot be sure of is the resultPtr. This can be * NULLed if the originating thread went away while the event is handled * here now. */ diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c index d2853e2..16c357f 100644 --- a/generic/tclIORTrans.c +++ b/generic/tclIORTrans.c @@ -683,7 +683,7 @@ TclChanPushObjCmd( rtPtr->parent); /* - * Register the transform in our our map for proper handling of deleted + * Register the transform in our map for proper handling of deleted * interpreters and/or threads. */ @@ -2470,7 +2470,7 @@ ForwardProc( * quiescent. Because of this we can treat the data as belonging to us, * without fear of race conditions. I.e. we can read and write as we like. * - * The only thing we cannot be sure of is the resultPtr. This can be be + * The only thing we cannot be sure of is the resultPtr. This can be * NULLed if the originating thread went away while the event is handled * here now. */ diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 4f34053..26d7303 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -1223,7 +1223,7 @@ FsAddMountsToGlobResult( * * The reason for the exception in 2,3 for the native filesystem is that * the native filesystem claims every file without determining whether - * whether the file exists, or even whether the pathname makes sense. + * the file exists, or even whether the pathname makes sense. * *---------------------------------------------------------------------- */ @@ -2018,7 +2018,7 @@ Tcl_GetErrno(void) * None. * * Side effects: - * Modifies the the Tcl error code value. + * Modifies the Tcl error code value. * *---------------------------------------------------------------------- */ @@ -2769,7 +2769,7 @@ Tcl_FSGetCwd( if (retVal == NULL) { /* - * The current directory could not not determined. Reset the + * The current directory could not be determined. Reset the * current direcory to ensure, for example, that 'pwd' does actually * throw the correct error in Tcl. This is tested for in the test * suite on unix. @@ -2944,7 +2944,7 @@ Tcl_FSChdir( if (cd != oldcd) { /* * Call getCwdProc() and store the resulting internal handle to - * compare things with it later. This might might not be + * compare things with it later. This might not be * exactly the same string as that of the fully normalized * pathname. For example, for the Windows internal handle the * separator is the backslash character. On Unix it might well @@ -3512,7 +3512,7 @@ DivertUnloadFile( if (tvdlPtr->divertedFilesystem == NULL) { /* - * Use the function for the native filsystem, which works works even at + * Use the function for the native filsystem, which works even at * this late stage. */ @@ -3575,7 +3575,7 @@ void * Tcl_FindSymbol( Tcl_Interp *interp, /* The relevant interpreter. */ Tcl_LoadHandle loadHandle, /* A handle for the loaded object. */ - const char *symbol) /* The name name of the symbol to resolve. */ + const char *symbol) /* The name of the symbol to resolve. */ { return loadHandle->findSymbolProcPtr(interp, loadHandle, symbol); } @@ -3954,7 +3954,7 @@ TclFSNonnativePathType( /* If not NULL, a place to store the length of * the volume name if the pathname is absolute. */ Tcl_Obj **driveNameRef) /* If not NULL, a place to store a pointer to - * an object having its its refCount already + * an object having its refCount already * incremented, and contining the name of the * volume if the pathname is absolute. */ { @@ -3970,7 +3970,7 @@ TclFSNonnativePathType( Claim(); while (fsRecPtr != NULL) { /* - * Skip the the native filesystem because otherwise some of the tests + * Skip the native filesystem because otherwise some of the tests * in the Tcl testsuite might fail because some of the tests * artificially change the current platform (between win, unix) but the * list of volumes obtained by calling fsRecPtr->fsPtr->listVolumesProc @@ -4033,7 +4033,7 @@ TclFSNonnativePathType( Tcl_DecrRefCount(thisFsVolumes); if (type == TCL_PATH_ABSOLUTE) { /* - * No need to to examine additional filesystems. + * No need to examine additional filesystems. */ break; @@ -4284,7 +4284,7 @@ Tcl_FSCreateDirectory( * * Tcl_FSCopyDirectory -- * - * If both pathnames correspond to the the same filesystem, calls + * If both pathnames correspond to the same filesystem, calls * 'copyDirectoryProc' of that filesystem. * * Results: @@ -4348,7 +4348,7 @@ Tcl_FSRemoveDirectory( * Otherwise, removes the directory and all its * contents. */ Tcl_Obj **errorPtr) /* If not NULL and an error occurs, stores a - * place to store a a pointer to a new + * place to store a pointer to a new * object having a refCount of 1 and containing * the name of the file that produced an error. */ { diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index 3e92b5a..2dbc6f6 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -829,7 +829,7 @@ Tcl_WrongNumArgs( } /* - * If processing an an ensemble implementation, rewrite the results in + * If processing an ensemble implementation, rewrite the results in * terms of how the ensemble was invoked. */ diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 975bc2e..89168a7 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -1616,8 +1616,8 @@ TclListObjRange( * TclListObjGetElement -- * * Returns a single element from the array of the elements in a list - * object, without doing doing any bounds checking. Caller must ensure - * that ObjPtr of of type 'tclListType' and that index is valid for the + * object, without doing any bounds checking. Caller must ensure + * that ObjPtr of type 'tclListType' and that index is valid for the * list. * *---------------------------------------------------------------------- diff --git a/generic/tclLoad.c b/generic/tclLoad.c index dd4d470..95f9c22 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -535,7 +535,7 @@ Tcl_LoadObjCmd( * * Tcl_UnloadObjCmd -- * - * Implements the the "unload" Tcl command. See the + * Implements the "unload" Tcl command. See the * user documentation for details on what it does. * * Results: diff --git a/generic/tclOOProp.c b/generic/tclOOProp.c index a8b2002..7a66f7b 100644 --- a/generic/tclOOProp.c +++ b/generic/tclOOProp.c @@ -736,7 +736,7 @@ SortPropList( * * TclOOGetAllObjectProperties -- * - * Get the sorted list of all properties known to a object, including to its + * Get the sorted list of all properties known to an object, including to * its classes. Manages a cache so this operation is usually cheap. * * ---------------------------------------------------------------------- diff --git a/generic/tclProc.c b/generic/tclProc.c index 4add38e..52ca08e 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -2395,7 +2395,7 @@ ProcBodyFree( * * How to manage the internal representations of lambda term objects. * Syntactically they look like a two- or three-element list, where the - * first element is the formal arguments, the second is the the body, and + * first element is the formal arguments, the second is the body, and * the (optional) third is the namespace to execute the lambda term * within (the global namespace is assumed if it is absent). * diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index f6e0e3c..c6778ce 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -3174,7 +3174,7 @@ ShorteningInt64Conversion( /* * Does the current digit put us on the low side of the exact value - * but within within roundoff of being exact? + * but within roundoff of being exact? */ if (b < mplus || (b == mplus @@ -3572,7 +3572,7 @@ ShorteningBignumConversionPowD( /* * Does the current digit put us on the low side of the exact value - * but within within roundoff of being exact? + * but within roundoff of being exact? */ r1 = mp_cmp_mag(&b, (m2plus > m2minus)? &mplus : &mminus); diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index f4428d1..059f8dd 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -597,15 +597,15 @@ TclGetUniChar( } /* - * Optimize the ByteArray case: N need need to convert to a string to - * perform the indexing operation. + * Optimize the ByteArray case: no need to convert to a string to + * perform the indexing operation. */ if (TclIsPureByteArray(objPtr)) { Tcl_Size length = 0; unsigned char *bytes = Tcl_GetBytesFromObj(NULL, objPtr, &length); if (index >= length) { - return -1; + return -1; } return bytes[index]; diff --git a/generic/tclTest.c b/generic/tclTest.c index 6c25770..d2e2aaa 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -8378,7 +8378,7 @@ InterpCmdResolver( * compilation (e.g. in TclProcCompileProc) * * When these conditions hold, this function resolves the - * passed-in cmd literal into a cmd "y", which is taken from the + * passed-in cmd literal into a cmd "y", which is taken from * the global namespace (for simplicity). */ @@ -8404,7 +8404,7 @@ InterpCmdResolver( * * When these conditions hold, this function resolves the * passed-in cmd literal into a cmd "y" or "Y" depending on the - * context. The resolved procs are taken from the the global + * context. The resolved procs are taken from the global * namespace (for simplicity). */ diff --git a/generic/tclTestABSList.c b/generic/tclTestABSList.c index 2e554e7..7e853e4 100644 --- a/generic/tclTestABSList.c +++ b/generic/tclTestABSList.c @@ -480,7 +480,7 @@ static int my_LStringObjRange( * * my_LStringObjReverse -- * - * Creates a new Obj with the the order of the elements in the lstring + * Creates a new Obj with the order of the elements in the lstring * value reversed, where first is last and last is first, etc. * * Results: diff --git a/generic/tclThreadAlloc.c b/generic/tclThreadAlloc.c index 124f655..152b43d 100644 --- a/generic/tclThreadAlloc.c +++ b/generic/tclThreadAlloc.c @@ -69,7 +69,7 @@ typedef union Block { #define blockReqSize b.reqSize /* - * The following defines the minimum and and maximum block sizes and the number + * The following defines the minimum and maximum block sizes and the number * of buckets in the bucket cache. */ diff --git a/generic/tclTrace.c b/generic/tclTrace.c index 18eb1cc..24f4d31 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -1455,7 +1455,7 @@ TclCheckInterpTraces( if (!(tracePtr->flags & TCL_TRACE_EXEC_IN_PROGRESS)) { /* - * The proc invoked might delete the traced command which which + * The proc invoked might delete the traced command which * might try to free tracePtr. We want to use tracePtr until the * end of this if section, so we use Tcl_Preserve() and * Tcl_Release() to be sure it is not freed while we still need diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 9145a95..178df5f 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -3415,7 +3415,7 @@ GetWideForIndex( * Results: * TCL_OK * - * The index is stored at the address given by by 'indexPtr'. + * The index is stored at the address given by 'indexPtr'. * * TCL_ERROR * @@ -3700,7 +3700,7 @@ GetEndOffsetFromObj( * Encodes end+1. This is distinguished from end+n as noted * in function header. * NOTE: this may wrap around if the caller passes (as lset does) - * listLen-1 as endValue and and listLen is 0. The -1 will be + * listLen-1 as endValue and listLen is 0. The -1 will be * interpreted as FF...FF and adding 1 will result in 0 which * is what we want. Callers like lset which pass in listLen-1 == -1 * as endValue will have to adjust accordingly. diff --git a/generic/tclVar.c b/generic/tclVar.c index 74647ee..5320950 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -745,7 +745,7 @@ TclObjLookupVarEx( TclFreeInternalRep(cachedNamePtr); /* - * Now go ahead and convert it the the "localVarName" type, + * Now go ahead and convert it to the "localVarName" type, * since we suspect at least some use of the value as a * varname and we want to resolve it quickly. */ @@ -2990,7 +2990,7 @@ Tcl_LappendObjCmd( * * These functions implement the "array for" Tcl command. * array for {k v} a {} - * The array for command iterates over the array, setting the the + * The array for command iterates over the array, setting the * specified loop variables, and executing the body each iteration. * * ArrayForObjCmd() is the standard wrapper around ArrayForNRCmd(). diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c index fab9c32..d9429c8 100644 --- a/unix/tclUnixFCmd.c +++ b/unix/tclUnixFCmd.c @@ -2066,7 +2066,7 @@ TclpObjNormalizePath( if (haveRealpath) { if (nextCheckpoint == 0) { /* - * The path contains at most one component, e.g. '/foo' or '/', so + * The path contains at most one component, e.g. '/foo' or '/', * so there is nothing to resolve. Also, on some platforms * 'Realpath' transforms an empty string into the normalized pwd, * which is the wrong answer. @@ -2097,7 +2097,7 @@ TclpObjNormalizePath( * Uncommenting this would mean that this native filesystem * routine claims the path is normalized if the file exists, * which would permit the caller to avoid iterating through - * other filesystems filesystems. Saving lots of calls is + * other filesystems. Saving lots of calls is * probably worth the extra access() time, but in the common * case that no other filesystems are registered this is an * unnecessary expense. diff --git a/win/tclWinConsole.c b/win/tclWinConsole.c index ee04b05..7b73780 100644 --- a/win/tclWinConsole.c +++ b/win/tclWinConsole.c @@ -1482,7 +1482,7 @@ static void ConsoleWatchProc( void *instanceData, /* Console state. */ int newMask) /* What events to watch for, one of - * of TCL_READABLE, TCL_WRITABLE */ + * TCL_READABLE, TCL_WRITABLE */ { ConsoleChannelInfo **nextPtrPtr, *ptr; ConsoleChannelInfo *chanInfoPtr = (ConsoleChannelInfo *)instanceData; @@ -1719,7 +1719,7 @@ ConsoleReaderThread( /* * Loop back to recheck for exit conditions changes while the - * the lock was not held. + * lock was not held. */ continue; } -- cgit v0.12