Check-in [b41fe67416]
Overview
SHA1:b41fe67416acc213472ce6d9f6b829b1033f68b7
Date: 2013-08-06 23:55:41
User: rkeene
Comment:Updated to not read "setup.tcl"
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2013-08-09
02:02
[4de8841dfc] KitCreator 0.7.0 (user: rkeene, tags: trunk, 0.7.0)
2013-08-06
23:55
[b41fe67416] Updated to not read "setup.tcl" (user: rkeene, tags: trunk)
23:55
[31c33b52d5] Updated to use Tcl 8.5.14 as default build (user: rkeene, tags: trunk)
Changes

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
...
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212

#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 = 
................................................................................
		"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 */







<
<







 







<
|
<







106
107
108
109
110
111
112


113
114
115
116
117
118
119
...
194
195
196
197
198
199
200

201

202
203
204
205
206
207
208

#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 = 
................................................................................
		"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 */