summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--generic/tcl.h2
-rw-r--r--generic/tclEncoding.c2
-rw-r--r--generic/tclIOUtil.c40
-rw-r--r--generic/tclPathObj.c6
-rw-r--r--generic/tclTestObj.c2
-rw-r--r--unix/tclUnixFCmd.c6
6 files changed, 29 insertions, 29 deletions
diff --git a/generic/tcl.h b/generic/tcl.h
index 5fb91f2..dea9ee8 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -1729,7 +1729,7 @@ typedef struct Tcl_Filesystem {
* arbitrary additional data to files in a
* filesystem. */
Tcl_FSFileAttrsGetProc *fileAttrsGetProc;
- /* Called by 'Tcl_FSFileAttrsGet()' and by
+ /* Called by 'Tcl_FSFileAttrsGet()' and by
* 'file attributes'. */
Tcl_FSFileAttrsSetProc *fileAttrsSetProc;
/* Called by 'Tcl_FSFileAttrsSet()' and by
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index e318d5b..cf738ed 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -1721,7 +1721,7 @@ LoadEncodingFile(
* not be created because the file contained invalid data.
*
* Side effects:
- * See Tcl_CreateEncoding().
+ * See Tcl_CreateEncoding().
*
*-------------------------------------------------------------------------
*/
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index ceee36e..28e1df5 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -620,7 +620,7 @@ FsGetFirstFilesystem(void)
}
/*
- * The epoch can is changed when a filesystems is added or removed, when
+ * The epoch can is changed when a filesystems is added or removed, when
* "system encoding" changes, and when env(HOME) changes.
*/
@@ -959,7 +959,7 @@ Tcl_FSUnregister(
* Search in the given pathname for files matching the given pattern.
* Used by [glob]. Processes just one pattern for one directory. Callers
* such as TclGlob and DoGlob implement manage the searching of multiple
- * directories in cases such as
+ * directories in cases such as
* glob -dir $dir -join * pkgIndex.tcl
*
* Results:
@@ -1222,7 +1222,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.
+ * whether the file exists, or even whether the pathname makes sense.
*
*----------------------------------------------------------------------
*/
@@ -1240,7 +1240,7 @@ Tcl_FSMountsChanged(
/*
* Increment the filesystem epoch to invalidate every existing cached
- * internal representation.
+ * internal representation.
*/
Tcl_MutexLock(&filesystemMutex);
@@ -1475,7 +1475,7 @@ TclGetOpenModeEx(
const char *modeString, /* Mode string, e.g. "r+" or "RDONLY CREAT" */
int *seekFlagPtr, /* Sets this to 1 to tell the the caller to seek to
* EOF after opening the file, and 0 otherwise. */
- int *binaryPtr) /* Sets this to 1 to tell the caller to
+ int *binaryPtr) /* Sets this to 1 to tell the caller to
* configure the channel for binary
* operations after opening the file. */
{
@@ -1718,7 +1718,7 @@ Tcl_FSEvalFileEx(
}
/*
- * The eof character is \32 (^Z). This is standard on Windows, and Tcl
+ * The eof character is \32 (^Z). This is standard on Windows, and Tcl
* uses it on every platform to allow for scripted documents. [Bug: 2040]
*/
@@ -1854,7 +1854,7 @@ TclNREvalFile(
TclPkgFileSeen(interp, Tcl_GetString(pathPtr));
/*
- * The eof character is \32 (^Z). This is standard on Windows, and Tcl
+ * The eof character is \32 (^Z). This is standard on Windows, and Tcl
* uses it on every platform to allow for scripted documents. [Bug: 2040]
*/
@@ -2064,7 +2064,7 @@ Tcl_PosixError(
*----------------------------------------------------------------------
*
* Tcl_FSStat --
- * Calls 'statProc' of the filesystem corresponding to pathPtr.
+ * Calls 'statProc' of the filesystem corresponding to pathPtr.
*
* Replaces the standard library routines stat.
*
@@ -2098,7 +2098,7 @@ Tcl_FSStat(
*----------------------------------------------------------------------
*
* Tcl_FSLstat --
- * Calls the 'lstatProc' of the filesystem corresponding to pathPtr.
+ * Calls the 'lstatProc' of the filesystem corresponding to pathPtr.
*
* Replaces the library version of lstat. If the filesystem doesn't
* provide lstatProc but does provide statProc, Tcl falls back to
@@ -2198,7 +2198,7 @@ Tcl_FSOpenFileChannel(
if (Tcl_FSGetNormalizedPath(interp, pathPtr) == NULL) {
/*
- * Return the correct error message.
+ * Return the correct error message.
*/
return NULL;
}
@@ -2650,7 +2650,7 @@ Tcl_FSGetCwd(
norm = TclFSNormalizeAbsolutePath(interp,retVal);
if (norm != NULL) {
/*
- * Assign to global storage the pathname of the current directory
+ * Assign to global storage the pathname of the current directory
* and copy it into thread-local storage as well.
*
* At system startup multiple threads could in principle
@@ -2953,7 +2953,7 @@ Tcl_FSChdir(
*/
FsUpdateCwd(normDirName, cd);
- }
+ }
} else {
/*
* Tcl_FSGetCwd() synchronizes the file-global cwdPathPtr if
@@ -3017,7 +3017,7 @@ Tcl_FSLoadFile(
/* Places to store pointers to the functions
* named by sym1 and sym2. */
Tcl_LoadHandle *handlePtr, /* A place to store the token for the loaded
- * object. Can be passed to
+ * object. Can be passed to
* (*unloadProcPtr)() to unload the file. */
Tcl_FSUnloadFileProc **unloadProcPtr)
/* A place to store a pointer to the function
@@ -3049,7 +3049,7 @@ Tcl_FSLoadFile(
*
* Load a dynamic shared object by calling 'loadFileProc' of the
* filesystem corresponding to the given pathname, and then finds within
- * the loaded object the functions named in symbols[].
+ * the loaded object the functions named in symbols[].
*
* The given pathname is passed unmodified to `loadFileProc`, which
* decides how to resolve it. On POSIX systems the native filesystem
@@ -3194,7 +3194,7 @@ Tcl_LoadFile(
}
/*
- * The filesystem doesn't support 'load'. Fall to the following:
+ * The filesystem doesn't support 'load'. Fall to the following:
*/
/*
@@ -3377,7 +3377,7 @@ Tcl_LoadFile(
/*
* This is the filesystem for the temporary file the object was loaded
* from. A reference to copyToPtr is already stored in
- * tvdlPtr->divertedFile, so need need to increment the refCount again.
+ * tvdlPtr->divertedFile, so need need to increment the refCount again.
*/
tvdlPtr->divertedFilesystem = copyFsPtr;
@@ -3720,7 +3720,7 @@ TclFSUnloadTempFile(
Tcl_Obj *
Tcl_FSLink(
Tcl_Obj *pathPtr, /* Pathaname of file. */
- Tcl_Obj *toPtr, /*
+ Tcl_Obj *toPtr, /*
* NULL or the pathname of a file to link to.
*/
int linkAction) /* Action to perform. */
@@ -3803,7 +3803,7 @@ Tcl_FSListVolumes(void)
*
* FsListMounts --
*
- * Lists the mounts mathing the given pattern in the given directory.
+ * Lists the mounts mathing the given pattern in the given directory.
*
* Results:
* A list, having a refCount of 0, of the matching mounts, or NULL if no
@@ -4208,7 +4208,7 @@ Tcl_FSCopyFile(
* TclCrossFilesystemCopy --
*
* Helper for Tcl_FSCopyFile and Tcl_FSLoadFile. Copies a file from one
- * filesystem to another, overwiting any file that already exists.
+ * filesystem to another, overwiting any file that already exists.
*
* Results:
* A standard Tcl return code.
@@ -4513,7 +4513,7 @@ Tcl_FSGetFileSystemForPath(
/*
* Call each of the "pathInFilesystem" functions in succession until the
* corresponding filesystem is found.
- */
+ */
for (; fsRecPtr!=NULL ; fsRecPtr=fsRecPtr->nextPtr) {
ClientData clientData = NULL;
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c
index 660db03..13b7768 100644
--- a/generic/tclPathObj.c
+++ b/generic/tclPathObj.c
@@ -47,7 +47,7 @@ static const Tcl_ObjType fsPathType = {
/*
* struct FsPath --
*
- * Internal representation of a Tcl_Obj of fsPathType
+ * Internal representation of a Tcl_Obj of fsPathType
*/
typedef struct FsPath {
@@ -124,7 +124,7 @@ typedef struct FsPath {
* None (beyond the memory allocation for the result).
*
* Special note:
- * Originally based on code from Matt Newman and Jean-Claude Wippler.
+ * Originally based on code from Matt Newman and Jean-Claude Wippler.
* Totally rewritten later by Vince Darley to handle symbolic links.
*
*---------------------------------------------------------------------------
@@ -2028,7 +2028,7 @@ Tcl_FSGetInternalRep(
*
* TclFSEnsureEpochOk --
*
- * Ensure that the path is a valid path, and that it has a
+ * Ensure that the path is a valid path, and that it has a
* fsPathType internal representation that is not stale.
*
* Results:
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c
index 892aee5..e616433 100644
--- a/generic/tclTestObj.c
+++ b/generic/tclTestObj.c
@@ -21,7 +21,7 @@
#ifdef TCL_WITH_EXTERNAL_TOMMATH
# include "tommath.h"
#else
-# include "tclTommath.h"
+# include "tclTomMath.h"
#endif
#include "tclStringRep.h"
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c
index 3fdf95a..62fd9f8 100644
--- a/unix/tclUnixFCmd.c
+++ b/unix/tclUnixFCmd.c
@@ -2035,7 +2035,7 @@ TclpObjNormalizePath(
}
/*
- * Call 'realpath' to obtain a canonical path.
+ * Call 'realpath' to obtain a canonical path.
*/
#ifndef NO_REALPATH
@@ -2045,7 +2045,7 @@ TclpObjNormalizePath(
* The path contains at most one component, e.g. '/foo' or '/', so
* so there is nothing to resolve. Also, on some platforms
* 'Realpath' transforms an empty string into the normalized pwd,
- * which is the wrong answer.
+ * which is the wrong answer.
*/
return 0;
@@ -2091,7 +2091,7 @@ TclpObjNormalizePath(
if (path[nextCheckpoint] != '\0') {
/*
- * Append the remaining path components.
+ * Append the remaining path components.
*/
int normLen = Tcl_DStringLength(&ds);
generated by cgit v0.12 at 2024-09-28 12:14:42 (GMT)