Differences From Artifact [952d380c4b]:
- File kitsh/buildsrc/kitsh-0.0/zipvfs.tcl — part of check-in [6e6c5fd01a] at 2010-09-26 04:45:20 on branch trunk — Corrected typo in ZipVFS (user: rkeene, size: 14006) [annotate] [blame] [check-ins using]
To Artifact [f8be70e066]:
- File
kitsh/buildsrc/kitsh-0.0/zipvfs.tcl
— part of check-in
[77e40265de]
at
2010-09-26 04:49:35
on branch trunk
— Updated issue with opening directory
Updated to not panic if native encodings cannot be found (user: rkeene, size: 14120) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
101 102 103 104 105 106 107 108 109 110 111 112 113 114 |
"" -
"r" {
if {![::zip::exists $zipfd $name]} {
vfs::filesystem posixerror $::vfs::posix(ENOENT)
}
::zip::stat $zipfd $name sb
set nfd [vfs::memchan]
fconfigure $nfd -translation binary
seek $zipfd $sb(ino) start
zip::Data $zipfd sb data
| > > > > | 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 |
"" -
"r" {
if {![::zip::exists $zipfd $name]} {
vfs::filesystem posixerror $::vfs::posix(ENOENT)
}
::zip::stat $zipfd $name sb
if {$sb(ino) == -1} {
vfs::filesystem posixerror $::vfs::posix(EISDIR)
}
set nfd [vfs::memchan]
fconfigure $nfd -translation binary
seek $zipfd $sb(ino) start
zip::Data $zipfd sb data
|
| ︙ | ︙ |