174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
if (Tk_CreateConsoleWindow(interp) == TCL_ERROR)
goto error;
#endif
#endif
/* messy because TclSetStartupScriptPath is called slightly too late */
if (Tcl_Eval(interp, initScript) == TCL_OK) {
Tcl_Obj* path = TclGetStartupScriptPath();
|
>
>
|
>
>
>
>
>
>
|
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
|
if (Tk_CreateConsoleWindow(interp) == TCL_ERROR)
goto error;
#endif
#endif
/* messy because TclSetStartupScriptPath is called slightly too late */
if (Tcl_Eval(interp, initScript) == TCL_OK) {
Tcl_Obj* path;
#ifdef HAVE_TCLSETSTARTUPSCRIPTPATH
path = TclGetStartupScriptPath();
TclSetStartupScriptPath(Tcl_GetObjResult(interp));
#else
# ifdef HAVE_TCL_SETSTARTUPSCRIPT
path = Tcl_GetStartupScriptPath(NULL);
TclSetStartupScriptPath(Tcl_GetObjResult(interp));
# endif
#endif
if (path == NULL)
Tcl_Eval(interp, "incr argc -1; set argv [lrange $argv 1 end]");
}
Tcl_SetVar(interp, "errorInfo", "", TCL_GLOBAL_ONLY);
Tcl_ResetResult(interp);
return TCL_OK;
|