Check-in [b6937cc4c5]
Overview
Comment:Fixed issue with locating main.tcl on KitDLLs
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b6937cc4c5ce90707a349dcac4464754f2e24723
User & Date: rkeene on 2015-05-29 17:08:48
Other Links: manifest | tags
Context
2015-08-05
03:27
Updated URL to tcllib check-in: faeac9b5b2 user: rkeene tags: trunk
2015-05-29
17:08
Fixed issue with locating main.tcl on KitDLLs check-in: b6937cc4c5 user: rkeene tags: trunk
17:08
Fixed bug where dynamictk was always applied check-in: 360c2ef691 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) {