Differences From Artifact [bd605ba310]:
- File win/tclWinPipe.c — part of check-in [4d9717c8ef] at 2020-03-17 01:20:01 on branch trunk — merge 8.7 (user: dgp size: 96538) [more...]
To Artifact [4fa415cb98]:
- File win/tclWinPipe.c — part of check-in [d652d14132] at 2020-03-22 21:28:01 on branch trunk — Merge 8.7 (user: jan.nijtmans size: 96538) [more...]
| ︙ | ︙ | |||
606 607 608 609 610 611 612 |
NULL, createMode, flags, NULL);
Tcl_DStringFree(&ds);
if (handle == INVALID_HANDLE_VALUE) {
DWORD err;
err = GetLastError();
| | | 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 |
NULL, createMode, flags, NULL);
Tcl_DStringFree(&ds);
if (handle == INVALID_HANDLE_VALUE) {
DWORD err;
err = GetLastError();
if ((err & 0xFFFFL) == ERROR_OPEN_FAILED) {
err = (mode & O_CREAT) ? ERROR_FILE_EXISTS : ERROR_FILE_NOT_FOUND;
}
TclWinConvertError(err);
return NULL;
}
/*
|
| ︙ | ︙ | |||
1303 1304 1305 1306 1307 1308 1309 | /* * Ignore matches on directories or data files, return if identified a * known type. */ attr = GetFileAttributesW(nativeFullPath); | | | 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 |
/*
* Ignore matches on directories or data files, return if identified a
* known type.
*/
attr = GetFileAttributesW(nativeFullPath);
if ((attr == 0xFFFFFFFF) || (attr & FILE_ATTRIBUTE_DIRECTORY)) {
continue;
}
Tcl_DStringInit(&ds);
strcpy(fullName, Tcl_WCharToUtfDString(nativeFullPath, -1, &ds));
Tcl_DStringFree(&ds);
ext = strrchr(fullName, '.');
|
| ︙ | ︙ |