Overview
| Comment: | Fix file permissions such that Tcl thinks it can read these files |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
6b8ea28911df3d95776850c7c4017431 |
| User & Date: | rkeene on 2019-09-16 18:36:31 |
| Other Links: | manifest | tags |
Context
|
2019-09-16
| ||
| 19:28 | Updated to use tcltest check-in: ad7092b843 user: rkeene tags: trunk | |
| 18:36 | Fix file permissions such that Tcl thinks it can read these files check-in: 6b8ea28911 user: rkeene tags: trunk | |
|
2019-09-14
| ||
| 05:24 | Comment out broken tests check-in: fa71466879 user: rkeene tags: trunk | |
Changes
Modified xvfs.c.rvt from [f6fac50f2f] to [a0ec1f3372].
| ︙ | ︙ | |||
190 191 192 193 194 195 196 |
statBuf->st_gid = -1;
statBuf->st_atime = 0;
statBuf->st_ctime = 0;
statBuf->st_mtime = 0;
statBuf->st_blksize = XVFS_FILE_BLOCKSIZE;
if (fileInfo->type == XVFS_FILE_TYPE_REG) {
| | | < | 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 |
statBuf->st_gid = -1;
statBuf->st_atime = 0;
statBuf->st_ctime = 0;
statBuf->st_mtime = 0;
statBuf->st_blksize = XVFS_FILE_BLOCKSIZE;
if (fileInfo->type == XVFS_FILE_TYPE_REG) {
statBuf->st_mode = 0100444;
statBuf->st_nlink = 1;
statBuf->st_size = fileInfo->size;
statBuf->st_blocks = (fileInfo->size + statBuf->st_blksize - 1) / statBuf->st_blksize;
} else if (fileInfo->type == XVFS_FILE_TYPE_DIR) {
statBuf->st_mode = 040555;
statBuf->st_nlink = fileInfo->size;
statBuf->st_size = fileInfo->size;
statBuf->st_blocks = 1;
}
return(0);
}
static struct Xvfs_FSInfo xvfs_<?= $::xvfs::fsName ?>_fsInfo = {
.protocolVersion = XVFS_PROTOCOL_VERSION,
.name = "<?= $::xvfs::fsName ?>",
.getChildrenProc = xvfs_<?= $::xvfs::fsName ?>_getChildren,
.getDataProc = xvfs_<?= $::xvfs::fsName ?>_getData,
.getStatProc = xvfs_<?= $::xvfs::fsName ?>_getStat
|
| ︙ | ︙ |