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

If the 'source' command fails, fall back to the input 

only if in interactive mode. Otherwise exit.
This commit is contained in:
Holger Vogt 2022-06-19 17:25:32 +02:00
parent b46dd5effd
commit c76efd47ed
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/frontend/inp.c
View File

@ -1737,7 +1737,10 @@ com_source(wordlist *wl)
#ifdef SHARED_MODULE #ifdef SHARED_MODULE
controlled_exit(1); controlled_exit(1);
#else #else
cp_evloop(NULL); if (cp_getvar("interactive", CP_BOOL, NULL, 0))
cp_evloop(NULL);
else
controlled_exit(1);
#endif #endif
} }
while (wl) { while (wl) {
@ -1752,7 +1755,10 @@ com_source(wordlist *wl)
#ifdef SHARED_MODULE #ifdef SHARED_MODULE
controlled_exit(1); controlled_exit(1);
#else #else
cp_evloop(NULL); if (cp_getvar("interactive", CP_BOOL, NULL, 0))
cp_evloop(NULL);
else
controlled_exit(1);
#endif #endif
} }
while ((n = fread(buf, 1, BSIZE_SP, tp)) > 0) while ((n = fread(buf, 1, BSIZE_SP, tp)) > 0)
@ -1774,7 +1780,10 @@ com_source(wordlist *wl)
#ifdef SHARED_MODULE #ifdef SHARED_MODULE
controlled_exit(1); controlled_exit(1);
#else #else
cp_evloop(NULL); if (cp_getvar("interactive", CP_BOOL, NULL, 0))
cp_evloop(NULL);
else
controlled_exit(1);
#endif #endif
return; return;
} }