223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
|
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 {[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 [info nameofexe] main.tcl]\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) {
|