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