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
				}
			}
			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"} {

			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]







>
|
|
|
|
>







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