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 Unified 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


#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 = 








<
<








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.


 */
/*
 * 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

		"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"
		"close $f\n"
	"}\n"
#endif /* !TCLKIT_DLL */
#ifdef TCLKIT_DLL
	"set ::TCLKIT_TYPE \"kitdll\"\n"
#else
	"set ::TCLKIT_TYPE \"tclkit\"\n"
#endif /* TCLKIT_DLL */








<
|
<








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 s \"\"\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