luke
/
OpenSTA
mirror of https://github.com/The-OpenROAD-Project/OpenSTA.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

factor unencode

This commit is contained in:
James Cherry 2020-03-30 09:06:22 -07:00
parent 9d23c0604a
commit 24f6bf7f29
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
app/StaMain.cc
View File

@ -24,6 +24,9 @@
namespace sta {
static char *
unencode(const char *inits[]);
int
parseThreadsArg(int &argc,
char *argv[])
@ -95,6 +98,21 @@ sourceTclFile(const char *filename,
void
evalTclInit(Tcl_Interp *interp,
const char *inits[])
{
char *unencoded = unencode(inits);
if (Tcl_Eval(interp, unencoded) != TCL_OK) {
// Get a backtrace for the error.
Tcl_Eval(interp, "$errorInfo");
const char *tcl_err = Tcl_GetStringResult(interp);
fprintf(stderr, "Error: TCL init script: %s.\n", tcl_err);
fprintf(stderr, " Try deleting app/TclInitVar.cc and rebuilding.\n");
exit(0);
}
delete [] unencoded;
}
static char *
unencode(const char *inits[])
{
size_t length = 0;
for (const char **e = inits; *e; e++) {
@ -113,15 +131,7 @@ evalTclInit(Tcl_Interp *interp,
}
}
*u = '\0';
if (Tcl_Eval(interp, unencoded) != TCL_OK) {
// Get a backtrace for the error.
Tcl_Eval(interp, "$errorInfo");
const char *tcl_err = Tcl_GetStringResult(interp);
fprintf(stderr, "Error: TCL init script: %s.\n", tcl_err);
fprintf(stderr, " Try deleting app/TclInitVar.cc and rebuilding.\n");
exit(0);
}
delete [] unencoded;
return unencoded;
}
} // namespace