Check-in [b6937cc4c5]
Overview
SHA1:b6937cc4c5ce90707a349dcac4464754f2e24723
Date: 2015-05-29 17:08:48
User: rkeene
Comment:Fixed issue with locating main.tcl on KitDLLs
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2015-08-05
03:27
[faeac9b5b2] Updated URL to tcllib (user: rkeene, tags: trunk)
2015-05-29
17:08
[b6937cc4c5] Fixed issue with locating main.tcl on KitDLLs (user: rkeene, tags: trunk)
17:08
[360c2ef691] Fixed bug where dynamictk was always applied (user: rkeene, tags: trunk)
Changes

Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [de7a0cddb9] to [3cb384a768].

223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
	"catch {load {} registry}\n"
#endif /* _WIN32 */
	"return 0\n"
"}\n"
"tclKitInit";

static const char initScript[] =
"if {[file isfile [file join [info nameofexe] main.tcl]]} {\n"
	"if {[info commands console] != {}} { console hide }\n"
	"set tcl_interactive 0\n"
	"incr argc\n"
	"set argv [linsert $argv 0 $argv0]\n"
	"set argv0 [file join [info nameofexe] main.tcl]\n"
"} else continue\n";

/* SetExecName --

   Hack to get around Tcl bug 1224888.
*/
static void SetExecName(Tcl_Interp *interp, const char *path) {







|




|







223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
	"catch {load {} registry}\n"
#endif /* _WIN32 */
	"return 0\n"
"}\n"
"tclKitInit";

static const char initScript[] =
"if {[file isfile [file join " TCLKIT_VFSSOURCE " main.tcl]]} {\n"
	"if {[info commands console] != {}} { console hide }\n"
	"set tcl_interactive 0\n"
	"incr argc\n"
	"set argv [linsert $argv 0 $argv0]\n"
	"set argv0 [file join " TCLKIT_VFSSOURCE " main.tcl]\n"
"} else continue\n";

/* SetExecName --

   Hack to get around Tcl bug 1224888.
*/
static void SetExecName(Tcl_Interp *interp, const char *path) {