Overview
| Comment: | Updated issue with opening directory
Updated to not panic if native encodings cannot be found |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
77e40265dede2185f570912d4ffe0f72 |
| User & Date: | rkeene on 2010-09-26 04:49:35 |
| Other Links: | manifest | tags |
Context
|
2010-09-26
| ||
| 04:49 | Updated to support running Win32 tests under WINE check-in: 7c572fd6a8 user: rkeene tags: trunk | |
| 04:49 |
Updated issue with opening directory
Updated to not panic if native encodings cannot be found check-in: 77e40265de user: rkeene tags: trunk | |
| 04:49 | Renamed patch to more appropriate name check-in: e0bcd16a13 user: rkeene tags: trunk | |
Changes
Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [5e7b5c786a] to [6dee5fa1e9].
| ︙ | ︙ | |||
95 96 97 98 99 100 101 |
}
}
unset -nocomplain ::tclkit_system_encoding
}
# If we've still not been able to set the encoding, revert to Tclkit defaults
if {[encoding system] eq "identity"} {
| > | | | | > | 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 |
}
}
unset -nocomplain ::tclkit_system_encoding
}
# If we've still not been able to set the encoding, revert to Tclkit defaults
if {[encoding system] eq "identity"} {
catch {
switch $::tcl_platform(platform) {
windows { encoding system cp1252 }
macintosh { encoding system macRoman }
default { encoding system iso8859-1 }
}
}
}
# now remount the executable with the correct encoding
vfs::filesystem unmount [lindex [::vfs::filesystem info] 0]
set noe [info nameofexecutable]
|
| ︙ | ︙ |
Modified kitsh/buildsrc/kitsh-0.0/zipvfs.tcl from [952d380c4b] to [f8be70e066].
| ︙ | ︙ | |||
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
|
| ︙ | ︙ |