summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2021-03-09 08:37:47 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2021-03-09 08:37:47 (GMT)
commitc197ddb3b23392d20db4eebe164cab63ec46cfeb (patch)
tree82a18a570afb0f69512bab4e64a9a2373d9cccd4
parent25bbbbf3ee5102d8fd13884456e828e6dacd4b5b (diff)
parent3b584dd13f75df5189437493efabbd778b627520 (diff)
downloadtcl-c197ddb3b23392d20db4eebe164cab63ec46cfeb.zip
tcl-c197ddb3b23392d20db4eebe164cab63ec46cfeb.tar.gz
tcl-c197ddb3b23392d20db4eebe164cab63ec46cfeb.tar.bz2
Merge 8.6. Remove end-of-line spacing
-rw-r--r--generic/tclZipfs.c18
-rw-r--r--tools/tcltk-man2html-utils.tcl2
-rwxr-xr-xtools/tcltk-man2html.tcl4
3 files changed, 12 insertions, 12 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c
index b7571b7..b8a772b 100644
--- a/generic/tclZipfs.c
+++ b/generic/tclZipfs.c
@@ -283,7 +283,7 @@ static const char *zipfs_literal_tcl_library = NULL;
/* Function prototypes */
-static int CopyImageFile(Tcl_Interp *interp, const char *imgName,
+static int CopyImageFile(Tcl_Interp *interp, const char *imgName,
Tcl_Channel out);
static inline int DescribeMounted(Tcl_Interp *interp,
const char *mountPoint);
@@ -292,7 +292,7 @@ static void SerializeCentralDirectoryEntry(char *buf, ZipEntry *z,
size_t nameLength, long long dataStartOffset);
static void SerializeCentralDirectorySuffix(char *buf,
int entryCount, long long dataStartOffset,
- long long directoryStartOffset,
+ long long directoryStartOffset,
long long suffixStartOffset);
static void SerializeLocalEntryHeader(char *buf, ZipEntry *z,
int nameLength, int align);
@@ -333,7 +333,7 @@ static int ZipChannelRead(void *instanceData, char *buf,
static int ZipChannelSeek(void *instanceData, long offset,
int mode, int *errloc);
#endif
-static long long ZipChannelWideSeek(void *instanceData,
+static long long ZipChannelWideSeek(void *instanceData,
long long offset, int mode, int *errloc);
static void ZipChannelWatchChannel(void *instanceData,
int mask);
@@ -1244,7 +1244,7 @@ ZipMapArchive(
* Map the file.
*/
- zf->mountHandle = CreateFileMappingW(hFile, 0, PAGE_READONLY, 0,
+ zf->mountHandle = CreateFileMappingW(hFile, 0, PAGE_READONLY, 0,
zf->length, 0);
if (zf->mountHandle == INVALID_HANDLE_VALUE) {
ZIPFS_POSIX_ERROR(interp, "file mapping failed");
@@ -1270,7 +1270,7 @@ ZipMapArchive(
}
lseek(fd, 0, SEEK_SET);
- zf->data = (unsigned char *)
+ zf->data = (unsigned char *)
mmap(0, zf->length, PROT_READ, MAP_FILE | MAP_PRIVATE, fd, 0);
if (zf->data == MAP_FAILED) {
ZIPFS_POSIX_ERROR(interp, "file mapping failed");
@@ -2760,7 +2760,7 @@ ZipFSMkZipOrImgObjCmd(
/*
* Prepare the contents of the ZIP archive.
*/
-
+
Tcl_InitHashTable(&fileHash, TCL_STRING_KEYS);
dataStartOffset = Tcl_Tell(out);
if (mappingList == NULL && stripPrefix != NULL) {
@@ -2811,7 +2811,7 @@ ZipFSMkZipOrImgObjCmd(
name = path;
if (slen > 0) {
len = strlen(name);
- if ((len <= (size_t) slen) ||
+ if ((len <= (size_t) slen) ||
(strncmp(strip, name, slen) != 0)) {
continue;
}
@@ -2844,7 +2844,7 @@ ZipFSMkZipOrImgObjCmd(
/*
* Finalize the central directory.
*/
-
+
Tcl_Flush(out);
suffixStartOffset = Tcl_Tell(out);
SerializeCentralDirectorySuffix(buf, count, dataStartOffset,
@@ -2957,7 +2957,7 @@ CopyImageFile(
/*
* ---------------------------------------------------------------------
*
- * SerializeLocalEntryHeader, SerializeCentralDirectoryEntry,
+ * SerializeLocalEntryHeader, SerializeCentralDirectoryEntry,
* SerializeCentralDirectorySuffix --
*
* Create serialized forms of the structures that make up the ZIP
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl
index 2d725e4..b7a8520 100644
--- a/tools/tcltk-man2html-utils.tcl
+++ b/tools/tcltk-man2html-utils.tcl
@@ -1365,7 +1365,7 @@ proc make-manpage-section {outputDir sectionDescriptor} {
continue
}
set manual(infp) [open $manual(page)]
- fconfigure $manual(infp) -encoding utf-8
+ fconfigure $manual(infp) -encoding utf-8
set manual(text) {}
set manual(partial-text) {}
foreach p {.RS .DS .CS .SO} {
diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl
index 0900697..0e87531 100755
--- a/tools/tcltk-man2html.tcl
+++ b/tools/tcltk-man2html.tcl
@@ -752,7 +752,7 @@ try {
} trap {POSIX ENOENT} {} {
set f [open [file join $pkgsDir $dir configure.ac]]
}
- fconfigure $f -encoding utf-8
+ fconfigure $f -encoding utf-8
foreach line [split [read $f] \n] {
if {2 == [scan $line \
{ AC_INIT ( [%[^]]] , [%[^]]] ) } n v]} {
@@ -777,7 +777,7 @@ try {
set packageDirNameMap {}
if {$build_tcl} {
set f [open $tcltkdir/$tcldir/pkgs/package.list.txt]
- fconfigure $f -encoding utf-8
+ fconfigure $f -encoding utf-8
try {
foreach line [split [read $f] \n] {
if {[string trim $line] eq ""} continue