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

pa-210 partially

This commit is contained in:
Meisam Bahadori 2026-08-16 12:20:11 +02:00 committed by Holger Vogt
parent 734cb94b01
commit 7cb0c10d2d
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/frontend/inp.c
View File

@ -786,6 +786,20 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
controls = wl_cons(copy(skip_ws(dd->line) + 1), controls);
ld->nextcard = dd->nextcard;
line_free(dd, FALSE);
} else if (!commands && ciprefix(".pss", dd->line) &&
(dd->line[4] == '\0' || isspace_c(dd->line[4]))) {
/* Enhancement-210: a top-level `.pss ...` card is run after the
* circuit is parsed as a `pss ...` command (Enhancement-117
* shooting-method PSS), mirroring the `.hb` handling above -- drop
* the leading '.' and add it to the post-parse control list. The
* stock `.pss` dot-card no-ops in batch (only the `pss` command
* ran); this gives `.pss` the same command-dispatch the rest of
* the periodic-steady-state family uses. The boundary check keeps
* `.pss` from matching a longer name and never matches `.psp`
* (periodic S-parameters, a distinct card). */
controls = wl_cons(copy(skip_ws(dd->line) + 1), controls);
ld->nextcard = dd->nextcard;
line_free(dd, FALSE);
} else if (!commands &&
((ciprefix(".qpss", dd->line) &&
(dd->line[5] == '\0' || isspace_c(dd->line[5]))) ||