export sourceTclFileEchoVerbose
This commit is contained in:
parent
61b1ac4d12
commit
94f3e7f0de
|
|
@ -34,10 +34,6 @@ static SwigInitFunc sta_swig_init;
|
||||||
|
|
||||||
static const char *init_filename = "[file join $env(HOME) .sta]";
|
static const char *init_filename = "[file join $env(HOME) .sta]";
|
||||||
|
|
||||||
static void
|
|
||||||
sourceTclFileEchoVerbose(const char *filename,
|
|
||||||
Tcl_Interp *interp);
|
|
||||||
|
|
||||||
void
|
void
|
||||||
staMain(Sta *sta,
|
staMain(Sta *sta,
|
||||||
int argc,
|
int argc,
|
||||||
|
|
@ -165,7 +161,7 @@ findCmdLineKey(int argc,
|
||||||
}
|
}
|
||||||
|
|
||||||
// Use overridden version of source to echo cmds and results.
|
// Use overridden version of source to echo cmds and results.
|
||||||
static void
|
void
|
||||||
sourceTclFileEchoVerbose(const char *filename,
|
sourceTclFileEchoVerbose(const char *filename,
|
||||||
Tcl_Interp *interp)
|
Tcl_Interp *interp)
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -74,5 +74,9 @@ parseCmdsArg(int argc,
|
||||||
bool &native_cmds,
|
bool &native_cmds,
|
||||||
bool &compatibility_cmds);
|
bool &compatibility_cmds);
|
||||||
|
|
||||||
|
void
|
||||||
|
sourceTclFileEchoVerbose(const char *filename,
|
||||||
|
Tcl_Interp *interp);
|
||||||
|
|
||||||
} // namespace
|
} // namespace
|
||||||
#endif
|
#endif
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue