Differences From Artifact [5e7b5c786a]:
- File kitsh/buildsrc/kitsh-0.0/boot.tcl — part of check-in [e598e77805] at 2010-09-26 04:45:32 on branch trunk — Updated to set sane defaults if we are unable to load the requested encoding (user: rkeene, size: 4066) [annotate] [blame] [check-ins using]
To Artifact [6dee5fa1e9]:
- File
kitsh/buildsrc/kitsh-0.0/boot.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: 4087) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
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]
|
| ︙ | ︙ |