luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

search for tclspinit in `cwd' as well

This commit is contained in:
rlar 2012-02-10 16:59:33 +00:00
parent 86ea7c5290
commit 37940c9133
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,3 +1,7 @@
2012-02-10 Holger Vogt / (Robert Larice)
* src/frontend/cpitf.c :
search for tclspinit in `cwd' as well
2012-02-10 Holger Vogt / (Robert Larice) 2012-02-10 Holger Vogt / (Robert Larice)
* src/frontend/postcoms.c : * src/frontend/postcoms.c :
NG_IGNORE something NG_IGNORE something

4
src/frontend/cpitf.c
View File

@ -257,7 +257,11 @@ ft_cpinit(void)
break; break;
#if defined (HAS_WINDOWS) || defined (__MINGW32__) || defined (_MSC_VER) #if defined (HAS_WINDOWS) || defined (__MINGW32__) || defined (_MSC_VER)
/* search in local directory where ngspice.exe resides */ /* search in local directory where ngspice.exe resides */
#if defined TCL_MODULE
} else if ((fp = fopen("./tclspinit", "r")) != NULL) {
#else
} else if ((fp = fopen("./spinit", "r")) != NULL) { } else if ((fp = fopen("./spinit", "r")) != NULL) {
#endif
cp_interactive = FALSE; cp_interactive = FALSE;
inp_spsource(fp, TRUE, buf); inp_spsource(fp, TRUE, buf);
cp_interactive = TRUE; cp_interactive = TRUE;