Check-in [77e40265de]
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: 77e40265dede2185f570912d4ffe0f72705d4a33
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

102
103
104
105





106
107
108
109
110
111
112
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 }
				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
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