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

add to the source window after 'source' command

This commit is contained in:
Holger Vogt 2019-12-22 23:01:44 +01:00
parent 85177fdaa3
commit f1e08d7d32
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/frontend/inp.c
View File

@ -79,6 +79,11 @@ extern bool ft_batchmode;
extern void exec_controls(wordlist *controls); extern void exec_controls(wordlist *controls);
#endif #endif
/* display the source file name in the source window */
#ifdef HAS_WINGUI
extern void SetSource(char *Name);
#endif
/* structure used to save expression parse trees for .model and /* structure used to save expression parse trees for .model and
* device instance lines * device instance lines
*/ */
@ -1605,6 +1610,10 @@ com_source(wordlist *wl)
if (ft_nutmeg || substring(INITSTR, owl->wl_word) || substring(ALT_INITSTR, owl->wl_word)) if (ft_nutmeg || substring(INITSTR, owl->wl_word) || substring(ALT_INITSTR, owl->wl_word))
inp_spsource(fp, TRUE, tempfile ? NULL : wl->wl_word, FALSE); inp_spsource(fp, TRUE, tempfile ? NULL : wl->wl_word, FALSE);
else { else {
#ifdef HAS_WINGUI
/* set the source window */
SetSource(wl->wl_word);
#endif
/* Save path name for use in XSPICE fopen_with_path() */ /* Save path name for use in XSPICE fopen_with_path() */
if (Infile_Path) if (Infile_Path)
tfree(Infile_Path); tfree(Infile_Path);