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     95   				}
    96     96   			}
    97     97   			unset -nocomplain ::tclkit_system_encoding
    98     98   		}
    99     99   
   100    100   		# If we've still not been able to set the encoding, revert to Tclkit defaults
   101    101   		if {[encoding system] eq "identity"} {
          102  +			catch {
   102    103   			switch $::tcl_platform(platform) {
   103    104   				windows		{ encoding system cp1252 }
   104    105   				macintosh	{ encoding system macRoman }
   105    106   			        default		{ encoding system iso8859-1 }
   106    107   			}
   107    108   		}
          109  +		}
   108    110   
   109    111   		# now remount the executable with the correct encoding
   110    112   		vfs::filesystem unmount [lindex [::vfs::filesystem info] 0]
   111    113   
   112    114   		set noe [info nameofexecutable]
   113    115   
   114    116   		# Resolve symlinks

Modified kitsh/buildsrc/kitsh-0.0/zipvfs.tcl from [952d380c4b] to [f8be70e066].

   101    101   	"" -
   102    102   	"r" {
   103    103   	    if {![::zip::exists $zipfd $name]} {
   104    104   		vfs::filesystem posixerror $::vfs::posix(ENOENT)
   105    105   	    }
   106    106   	    
   107    107   	    ::zip::stat $zipfd $name sb
          108  +
          109  +            if {$sb(ino) == -1} {
          110  +                vfs::filesystem posixerror $::vfs::posix(EISDIR)
          111  +            }
   108    112   
   109    113   	    set nfd [vfs::memchan]
   110    114   	    fconfigure $nfd -translation binary
   111    115   
   112    116   	    seek $zipfd $sb(ino) start
   113    117   	    zip::Data $zipfd sb data
   114    118