Tcl Source Code

Check-in [22fdee1734]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix [6a8c5833c9]: NTFS alternate data streams (ADS) no longer readable writable
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: 22fdee1734c12d4f34c170f30e2dc707470e0b1bd4c9586be980cac43fc7c289
User & Date: jan.nijtmans 2024-08-18 21:25:31
References
2024-08-18
21:28 Closed ticket [6a8c5833c9]: NTFS alternate data streams (ADS) no longer readable writable plus 7 other changes artifact: 8e3ebb08c6 user: jan.nijtmans
Context
2024-08-20
13:50
Fix [0af9450e56]: test incr-1.31 fails check-in: 536af5cb81 user: jan.nijtmans tags: core-8-6-branch
2024-08-18
21:35
Fix [6a8c5833c9]: NTFS alternate data streams (ADS) no longer readable writable check-in: 65ecef3150 user: jan.nijtmans tags: core-8-branch
21:25
Fix [6a8c5833c9]: NTFS alternate data streams (ADS) no longer readable writable check-in: 22fdee1734 user: jan.nijtmans tags: core-8-6-branch
2024-08-14
19:55
Adding a version was a bad idea check-in: 18523892a5 user: jan.nijtmans tags: core-8-6-branch
Changes
Unified Diff Ignore Whitespace Patch
Changes to win/tclWinFile.c.
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171

    /*
     * In the remainder of the path, translate invalid characters to
     * characters in the Unicode private use area.
     */

    while (*wp != '\0') {
	if ((*wp < ' ') || wcschr(L"\"*:<>?|", *wp)) {
	    *wp |= 0xF000;
	} else if (*wp == '/') {
	    *wp = '\\';
	}
	++wp;
    }








|







3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171

    /*
     * In the remainder of the path, translate invalid characters to
     * characters in the Unicode private use area.
     */

    while (*wp != '\0') {
	if ((*wp < ' ') || wcschr(L"\"*<>?|", *wp)) {
	    *wp |= 0xF000;
	} else if (*wp == '/') {
	    *wp = '\\';
	}
	++wp;
    }