Check-in [d5bcf0ec06]
Overview
Comment:Updated to load boot.tcl in new interpreters, issue with previous workaround and fixing creating new interpreters
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: d5bcf0ec063272082ffa85557b2f2fcab29d46c7
User & Date: rkeene on 2010-09-26 04:50:00
Other Links: manifest | tags
Context
2010-09-26
04:50
Updated to use dladdr() to find ourselves if possible check-in: eb6f15ad72 user: rkeene tags: trunk
04:50
Updated to load boot.tcl in new interpreters, issue with previous workaround and fixing creating new interpreters check-in: d5bcf0ec06 user: rkeene tags: trunk
04:49
Added guard to only run one nightly test at atime

Added new interp test check-in: d9e99beea7 user: rkeene tags: trunk

Changes

Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [a33903368c] to [0506bc15b0].

124
125
126
127
128
129
130


131


132



133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
			"set s [zlib decompress $s]\n"
		"}\n"
	"}\n"
#endif /* KIT_STORAGE_MK4 */
#ifdef KIT_STORAGE_ZIP
	"set ::tclKitStorage \"zip\"\n"
	"catch { load {} vfs }\n"


	"if {[lsearch -exact [vfs::filesystem info] [info nameofexecutable]] != -1} {"


		"set s \"\"\n"



	"}\n"
	"if {![info exists s]} {\n"
#  include "zipvfs.tcl.h"
		"catch {\n"
			"set ::tclKitStorage_fd [::zip::open [info nameofexecutable]]\n"
		"} err\n"
		"if {![catch { ::zip::stat $::tclKitStorage_fd boot.tcl sb }]} {\n"
			"catch {\n"
				"seek $::tclKitStorage_fd $sb(ino)\n"
				"zip::Data $::tclKitStorage_fd sb s\n"
			"}\n"
		"}\n"
	"}\n"
#endif /* KIT_STORAGE_ZIP */
	"if {![info exists s]} {\n"
		"set f [open setup.tcl]\n"
		"set s [read $f]\n"
		"close $f\n"







>
>
|
>
>
|
>
>
>





<
|
<
|
|
<







124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144

145

146
147

148
149
150
151
152
153
154
			"set s [zlib decompress $s]\n"
		"}\n"
	"}\n"
#endif /* KIT_STORAGE_MK4 */
#ifdef KIT_STORAGE_ZIP
	"set ::tclKitStorage \"zip\"\n"
	"catch { load {} vfs }\n"
	"if {![info exists s]} {\n"
		"catch {\n"
			"set bootfile [file join [info nameofexecutable] boot.tcl]\n"
			"if {[file exists $bootfile]} {\n"
				"set f [open $bootfile]\n"
				"set s [read $f]\n"
				"close $f\n"
			"}\n"
		"}\n"
	"}\n"
	"if {![info exists s]} {\n"
#  include "zipvfs.tcl.h"
		"catch {\n"
			"set ::tclKitStorage_fd [::zip::open [info nameofexecutable]]\n"

			"::zip::stat $::tclKitStorage_fd boot.tcl sb\n"

			"seek $::tclKitStorage_fd $sb(ino)\n"
			"zip::Data $::tclKitStorage_fd sb s\n"

		"}\n"
	"}\n"
#endif /* KIT_STORAGE_ZIP */
	"if {![info exists s]} {\n"
		"set f [open setup.tcl]\n"
		"set s [read $f]\n"
		"close $f\n"