KitCreator
Check-in [b41fe67416]
Login
HomeDownloadsSource CodeTicketsWiki
Overview
Comment:Updated to not read "setup.tcl"
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b41fe67416acc213472ce6d9f6b829b1033f68b7
User & Date: rkeene on 2013-08-06 23:55:41
Other Links: manifest | tags
Context
2013-08-09
02:02
KitCreator 0.7.0 check-in: 4de8841dfc user: rkeene tags: trunk, 0.7.0
2013-08-06
23:55
Updated to not read "setup.tcl" check-in: b41fe67416 user: rkeene tags: trunk
23:55
Updated to use Tcl 8.5.14 as default build check-in: 31c33b52d5 user: rkeene tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [9bfdc99cac] to [9995cd87d7].

︙
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121

106
107
108
109
110
111
112


113
114
115
116
117
118
119








-
-









#ifdef TCLKIT_REQUIRE_TCLEXECUTABLENAME
char *tclExecutableName;
#endif

/*
 *  Attempt to load a "boot.tcl" entry from the embedded MetaKit file.
 *  If there isn't one, try to open a regular "setup.tcl" file instead.
 *  If that fails, this code will throw an error, using a message box.
 */
/*
 * This Tcl code is invoked whenever Tcl_Init() is called on an
 * interpreter.  It should mount up the VFS and make everything ready for
 * that interpreter to do its job.
 */
static char *preInitCmd =
︙
196
197
198
199
200
201
202
203
204

205
206
207
208
209
210
211
212

194
195
196
197
198
199
200


201

202
203
204
205
206
207
208








-
-
+
-








		"catch {\n"
			"set s [::vfs::cvfs::data::getData tcl boot.tcl]\n"
		"}\n"
	"}\n"
#endif /* KIT_STORAGE_CVFS */
#ifndef TCLKIT_DLL
	"if {![info exists s]} {\n"
		"set f [open setup.tcl]\n"
		"set s [read $f]\n"
		"set s \"\"\n"
		"close $f\n"
	"}\n"
#endif /* !TCLKIT_DLL */
#ifdef TCLKIT_DLL
	"set ::TCLKIT_TYPE \"kitdll\"\n"
#else
	"set ::TCLKIT_TYPE \"tclkit\"\n"
#endif /* TCLKIT_DLL */
︙

Powered by Fossil · RSS