Check-in [e598e77805]
Overview
Comment:Updated to set sane defaults if we are unable to load the requested encoding
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e598e7780534fe2235814c65b4d09a91d348f2a1
User & Date: rkeene on 2010-09-26 04:45:32
Other Links: manifest | tags
Context
2010-09-26
04:45
Updated to hide errors emitted from `find' check-in: cee8b007e2 user: rkeene tags: trunk
04:45
Updated to set sane defaults if we are unable to load the requested encoding check-in: e598e77805 user: rkeene tags: trunk
04:45
Updated to check to see if required before building check-in: 0ed07039ad user: rkeene tags: trunk
Changes

Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [877050aa4b] to [5e7b5c786a].

86
87
88
89
90
91
92

93
94
95
96
97
98
99
100














101
102
103
104
105
106
107
108
109
110
86
87
88
89
90
91
92
93








94
95
96
97
98
99
100
101
102
103
104
105
106
107



108
109
110
111
112
113
114







+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-







		} else {
			encoding dirs [list [file join [info library] encoding]] ;# TIP 258
		}

		# fix system encoding, if it wasn't properly set up (200207.004 bug)
		if {[encoding system] eq "identity"} {
			if {[info exists ::tclkit_system_encoding] && $::tclkit_system_encoding != ""} {
				catch {
				encoding system $::tclkit_system_encoding
			} else {
				switch $::tcl_platform(platform) {
					windows		{ encoding system cp1252 }
					macintosh	{ encoding system macRoman }
				        default		{ encoding system iso8859-1 }
				}
			}
					encoding system $::tclkit_system_encoding
				}
			}
			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 }
			}
		}

			unset -nocomplain ::tclkit_system_encoding
		}

		# now remount the executable with the correct encoding
		vfs::filesystem unmount [lindex [::vfs::filesystem info] 0]

		set noe [info nameofexecutable]

		# Resolve symlinks